marcioe

Tenho Mas usa banco de dados mysql https://play.google.com/store/search?q=informais comanda&c=apps

Otimo, Mas isso não está disponivel para nós meros mortais.

Introdução a Programação com Harbour Material sobre Harbor Quem quiser segue o link https://mega.nz/file/oIBQkI7b#9iBgBb6oEOcnvO2pe_uIHCHcF1EwcOYpOo043O7C0CU

Claro que não Vem ao caso, mas fiz uma tela de mesas, usando XBROWSE com Array,e imagens, fica bem legal. Claro que não se aplica a sua realidade, isso, mas serve pra voce tirar ideias. Nesse casos as mesas são dinâmicas( tem cliente com 500 mesas, tem com 30) e são cadastradas no BD. Tem um Time que atualiza essa tela abaixo em tempos em tempos. Claro que terá que fazer conforme a sua realidade, mas poderia colocar a foto do veiculo, ou a placa dele no lugar o "icone do garçon", etc... Se precisar de mais informaçoes, pode me chamar no Zap (32)9 8892-5094

Top demais amigo, isso ai

O amigo Luiz Fernando Empresoft Muito Obrigado Segue caso ajude mais amigos *------------------------------------------------------------------------- oDB_T_NOTA_SAIDA:bRClicked := { | nRow, nCol | popmenu2( nRow, nCol, oDB_T_NOTA_SAIDA) } *------------------------------------------------------------------------------- *------------------------------------------------------------------------------- static function popmenu2( nRow, nCol, oBrw_geral) local oPopup, oFont wCol=oBrw_geral:nColSel nLin=oBrw_geral:nRowSel MENU oPopup POPUP 2007 MENUITEM "Adicionar Produto" action alert(time()) MENUITEM "Alterar Produto" action alert(time()) SEPARATOR MENUITEM "Desassociar Produto" action alert(time()) SEPARATOR MENUITEM "Retorna" ACTION oPopup:end() ENDMENU ACTIVATE POPUP oPopup OF oBrw_geral AT nRow, nCol return .t.

Não consegui fazer funcionar. vou tentar mais vezes para ver

Ola a todos os amigos, estou querendo colocar um menu POPUP no Xbrowse Vejam o exemplo de como seria Agradeço a Todos

Olá pessoal, to precisando de impressão de DanfeSimplificado. tipo esse se tiver o FR3

Avisa depois para a galera se deu certinho, Valeu !

Olá amigo, terá que ajustar para o seu Código, Mas segue STATIC FUNCTION Enviar_email_xml_nfe_cte_mdfe_cce(e_mail_assunto,e_mail_normal_cancelado,e_mail_destino,e_mail_array_anexos) *---------------------------------------------------------------------------- IF empty(alltrim(e_mail_assunto)) MsgStop('Envio de e-mail Automatico'+CHR(13)+'Está Vazio o Campo de Assunto'+chr(13)+CHR(13)+'Rotina.: '+ alltrim(ProcName()) +CHR(13)+ 'Linha.: ' + alltrim(Str(ProcLine(),10,0)) ,SISTEMA) ELSE *---------------------------------------------------------------------------- CARREGA_CONFIGURACAO_DB( (DISKNAME()+":\"+ALLTRIM(CURDIR())+'\'+'CONFIGURACAO.INI') ) *---------------------------------------------------------------------- IF len(e_mail_array_anexos) > 0 c_assunto := IF(ALLTRIM(e_mail_normal_cancelado)='C','Cancelado o ','') + 'Documento Fiscal ' + ALLTRIM(e_mail_assunto) e_mail_mensagem := '<h2>Favor Nao Responder este email</h2>' e_mail_mensagem := e_mail_mensagem + '<hr/>' e_mail_mensagem := e_mail_mensagem + '<h3>Fantasia.: ' + ALLTRIM(M->T_FANT_EMPRESA) + ' Tel.: ' + M->T_FONE_EMPRESA + ' - ' + alltrim(M->T_FAX__EMPRESA) +'</h4>' e_mail_mensagem := e_mail_mensagem + '<h4>Empresa.: ' + ALLTRIM(M->T_NOME_EMPRESA) + ' Cnpj.: ' + ALLTRIM(M->T_CNPJ_EMPRESA) +'</h4>' e_mail_mensagem := e_mail_mensagem + '<hr/>' e_mail_mensagem := e_mail_mensagem + 'Em anexo, enviamos o arquivo PDF/XML '+CRLF e_mail_mensagem := e_mail_mensagem + '<h3>'+ALLTRIM(e_mail_assunto)+'</h3>' e_mail_mensagem := e_mail_mensagem + 'Endereco para Consultar este Documento www.nfe.fazenda.gov.br' IF T_STATUS_SEFAZ_NOTA_FISCAL = '135' .OR. T_STATUS_SEFAZ_NOTA_FISCAL = '155' e_mail_normal_cancelado = 'C' ENDIF IF e_mail_normal_cancelado = 'C' e_mail_mensagem := e_mail_mensagem + '<hr/>' e_mail_mensagem := e_mail_mensagem + '<h2>ATENCAO DOCUMENTO ESTA CANCELADO</h2>' e_mail_mensagem := e_mail_mensagem + '<hr/>' ENDIF e_mail_mensagem := e_mail_mensagem + '<hr/>' e_mail_mensagem := e_mail_mensagem + '<h6>Desenvolvido por ' + ALLTRIM(M->RODAPE_RELATORIO) + '</h6>' e_mail_mensagem := e_mail_mensagem + '<h6>Este e-mail Foi Gerado Pelo Sistema MESTOQ - Versao ' + ALLTRIM(STR(M->VERSAO,05,02)) +'</h6>' e_mail_mensagem := e_mail_mensagem + '<hr/>' *--------------------------------------------------------------------------------------- * Se não For Ambiente de Produção o sistema manda o e-mail para a minha caixa de e-mail *-------------------------------------------------------------------------------------- c_destino_email := e_mail_destino IF M->T_NFE_PRODUC_HOMOLOG=2 &&&&,'Produção - Oficial','Homologação - Testes') c_destino_email := ALLTRIM('masterservicevrb@gmail.com') ENDIF *------------------------------------------------------------------- * caso o cliente nao tenha e-mail cadastrado, mas o e-mail do * contador esteja cadastrado, o sistema Envia para o contador o e-mail *------------------------------------------------------------------- IF !EMPTY(ALLTRIM(T_EMAIL_E_MAIL_CONTADOR)) if empty(alltrim(c_destino_email)) .or. empty(alltrim(e_mail_destino)) c_destino_email := ALLTRIM(T_EMAIL_E_MAIL_CONTADOR) e_mail_destino := ALLTRIM(T_EMAIL_E_MAIL_CONTADOR) endif ENDIF *------------------------------------------------------------------- c_email_copia_oculta := '' IF EMPTY(ALLTRIM(e_mail_destino)) T_TXT_NF_DADOS_COMP := 'O XML NAO FOI ENVIADO' oT_TXT_NF_DADOS_COMP : Refresh() MsgStop('Envio de e-mail Automatico'+CHR(13)+'Está Vazio o Campo de e-mail de Destino',SISTEMA) ELSE IF !EMPTY(ALLTRIM(T_EMAIL_E_MAIL_CONTADOR)) c_destino_email := ALLTRIM(c_destino_email) + ';'+ ALLTRIM(T_EMAIL_E_MAIL_CONTADOR) ENDIF T_TXT_NF_DADOS_COMP := 'Enviando o Arquivo XML '+ALLTRIM(e_mail_assunto) +' Para ' + ALLTRIM(c_destino_email) + if(!empty(alltrim(T_EMAIL_E_MAIL_CONTADOR)),' Com Cópia Para ' + alltrim(T_EMAIL_E_MAIL_CONTADOR),'') oT_TXT_NF_DADOS_COMP : Refresh() *---------------------------------------------------------------- MsgRun("Enviando E-mail, Aguarde...",alltrim(M->SISTEMA),{||InformaativoMailVBS( alltrim(c_assunto) , alltrim(e_mail_mensagem) , Lower( alltrim(T_EMAIL_NOME_USUARIO)+alltrim(T_EMAIL_DOMI_USUARIO) ),Lower(Alltrim(c_destino_email)), e_mail_array_anexos ) }) T_TXT_NF_DADOS_COMP := 'Arquivo XML foi Enviado com Exito....' oT_TXT_NF_DADOS_COMP : Refresh() ENDIF ELSE for email:=1 to 10 T_TXT_NF_DADOS_COMP := '('+str(email,02,0)+ '/10) INFELIZMENTE NAO FOI ENVIADO O E-MAIL ( Não Foi Possível Anexar XML/PDF)' oT_TXT_NF_DADOS_COMP : Refresh() SysWait(0.5) T_TXT_NF_DADOS_COMP := ' ' oT_TXT_NF_DADOS_COMP : Refresh() SysWait(0.5) next ENDIF ENDIF T_TXT_NF_DADOS_COMP := '' oT_TXT_NF_DADOS_COMP : Refresh() Return .t. //===========================================================================*/ Function InformaativoMailVBS(cAssunto,cTexto,cFrom,cTo,cArquivo) //===========================================================================*/ Local cScripty:="",objShellApp,I,aTexto default cAssunto:="",cTexto:="",cFrom:="",cTo:="",cArquivo:="" if Empty(cFrom) MsgAlert("Email remetente não informado.") Return .F. Endif if Empty(cTo) MsgAlert("Email destinatário não informado.") Return .F. Endif *---------------------------------------------------------------------------- CARREGA_CONFIGURACAO_DB( (DISKNAME()+":\"+ALLTRIM(CURDIR())+'\'+'CONFIGURACAO.INI') ) *---------------------------------------------------------------------------- if At(';',cTexto)>0 atexto:=hb_atokens(cTexto,';') cTexto:="" for i = 1 to len(aTexto) cTexto+=aTexto[i]+'</p>' Next Endif *---------------------------------------------------------------------------- DIR_TEMP := (CurDrive() +":\"+ CurDir()) *---------------------------------------------------------------------------- //cTexto:='teste' cTexto:=StrTran(cTexto,CRLF,'<br>') fErase(DIR_TEMP+"\sendnfce4.vbs") //cScripty+="On Error Resume Next"+CRLF cScripty+='Set emailObj = CreateObject("CDO.Message")'+CRLF cScripty+='emailObj.From = "'+cFrom+'"'+CRLF if !empty(cArquivo) For x := 1 To Len( cArquivo ) cScripty+='emailObj.AddAttachment "'+AllTrim(cArquivo[x])+'"'+CRLF Next Endif cScripty+='emailObj.To = "'+cTo+'"'+CRLF cScripty+=''+CRLF cScripty+='emailObj.Subject = "'+cAssunto+'"'+CRLF cScripty+='emailObj.HtmlBody = "<html><body><br>'+cTexto+'</br></body></html>"'+CRLF cScripty+='Set emailConfig = emailObj.Configuration'+CRLF cScripty+=''+CRLF *---------------------------------------------------------------------------- cScripty+='emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "'+LOWER(ALLTRIM(T_EMAIL_SERVIDOR_SMTP)) +'"'+CRLF cScripty+='emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = '+ALLTRIM(T_EMAIL_PORTA_COMUNICACAO)+CRLF cScripty+='emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'+CRLF cScripty+='emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1'+CRLF cScripty+='emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = '+IF(T_EMAIL_AUTENTICACAO_SSL = 'S','true','false')+CRLF cScripty+='emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "'+LOWER(ALLTRIM(T_EMAIL_NOME_USUARIO)+ALLTRIM(T_EMAIL_DOMI_USUARIO)) +'"'+CRLF cScripty+='emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "'+ALLTRIM(T_EMAIL_SENHA_USAURIO)+'"'+CRLF *---------------------------------------------------------------------------- cScripty+='emailConfig.Fields.Update'+CRLF cScripty+='emailObj.Send' savefile(DIR_TEMP+'\sendnfce4.vbs',cScripty) Try objShellApp = CreateObject("Shell.Application") objShellApp:ShellExecute('wscript',DIR_TEMP+'\sendnfce4.vbs /s') syswait(2) Catch return .f. End return(.T.) Qualquer Dúvida Estou a disposição

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=37352&p=223152&hilit=TSwitch&sid=6f024b8b1d98255d52739c0b77548b95&sid=6f024b8b1d98255d52739c0b77548b95#p223152

Olá a Todos, É possivel postarem um exemplo de como fazer esse tipo de CheckBox no Fivewin Desde já Agradeço a Todos

Olá a aTodos Tem como validar Código de barras Exemplo 7891260097793 Válido 7891260097794 Inválido Teria uma Rotina para fazer isso Pois tem clientes que cadastram errado ,e está me gerando problemas de envio de NF

top, deu certo