marcioe

Mais fácil me ligar apos as 13:30 dai falamos 32 98892-5094 zap

Primeiro seu banco de dados terá que ser mysql. Ou pelo menos seu sistema acessar banco de dados mysql/mariaDb

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