leo@lhsistemas.com

A porta é 3307 mesmo ? O OWNER= ???

Bom dia Edu. Eu gero um arquivo(.TXT) com a chave MD5 dos executáveis do FTP quando faço o Upload. Daí depois antes de baixar novamente do FTP, faço a comparação das chaves, se diferente inicio a atualização. Abraço!

Bom dia a todos. Alguém tem o TED por DLL da GETCARD ou SCOPE ?

Que bacana, como fez isso ?

Kapi, minha FW é 10.12. Isso é em qual versão ?

Bom dia a TODOS. Estou precisando gerar PDF pela PRINTER sem a necessidade de abrir aquelas janelas do PDFCREATOR/MICROSOFT PDF/CUTEPDF para o usuário ficar escolhendo a pasta e nome do arquivo a gerar. Alguém que tenha essa rotina pode me ajudar em compartilhar. Abraços a TODOS!

Bom dia. Gostaria de saber como faço para pegar a geolocalização do cliente ao cadastrar no meu sistema, é possível ? Como fazer ?

Bom dia. Chame assim: winexec("javaws.exe -jar d:\progs\esocial\EsocialSign.jar") De preferência, mova-se para o diretório D:\PROGS\ESOCIAL e a partir daí execute o comando acima.

Bom dia. No seu código que envia o email, deve-se ativar o TLS.

Vitor, bom dia. Tenho as soluções NFe, CTe e MDFe 100% puro em Java. Salva o XML e PDF em pasta definida, separando-os por Mês e Ano. Envia automaticamente para o destinatário e outros que desejar o XML e PDF. OBS: Para quem utilizar no formato TXT(emissor gratuito) não precisa modificar nada.

EMPRESOFT, boa tarde. No seu fonte principal, insira o setkey, exemplo: SETKEY(VK_V12,{|| _QualRotina("SCL")}) Segue abaixo a função para estudos: Function _QualRotina(Nomenclatura) Local cTexto:="",nI:=0 /* Nomenclatura => O padrão dos seus códigos-fontes, se houver */ Do While .T. If Empty(Procname(nI)) Exit EndIf If At(Nomenclatura,Procname(nI)) > 0 .and. Upper(Left(Procname(nI),3)) != "(B)" cTexto += StrZero(nI,2)+" "+Procname(nI) + CRLF EndIf nI ++ Enddo If ! Empty(cTexto) Msginfo(cTexto) EndIf Return(NIL) Percebi aqui nos meus testes, de que sempre o PROCNAME(11) é o código atual sendo executado. Espero ter ajudado. Abraços, Leonardo Guimarães.

Creio que sim. Exemplo: PRINCIPAL = habilita o setkey(VK_F12) CADCLI = teclar F12 Você quer que exiba em qual código-fonte está o usuário(tipo: CADCLI, CADFOR, CADVEN, etc...) É isto ?

Alain, boa tarde. Tenho sim, prontinho com NFe, CTe e MDFe tanto para NFe ou CTe. Tudo roda em MYSQL/JAVA. Você continua gerando o arquivo no formato TXT do emissor gratuito que faço a translação para o XML, assino, valido, transmito e exibo o DANFE na tela. Quando autorizada a NFe/CTe já envia automaticamente o XML e o PDF para o email do cliente e salva os arquivos XML e PDF na pasta definida separando por ano e mês(ex: 2016_MARÇO, 2016_ABRIL) Qualquer informação é só enviar-me email. Abraços, Leonardo Guimarães.

Crisvan, bom dia. Isto também acontecia comigo na BEMATECH NÃO-FISCAL quando conectada via USB, parece que a fila de impressão fica cheia a trava qualquer impressão, só volta a funcionar ser reiniciar o PC. Solução: O cliente comprou uma USADA no OLX que tem a conexão SERIAL, daí está funcionando perfeitamente a mais de 3 meses sem fica me ligando...Graças a Deus !!!

MsgSelect({"@Impressora","@PDF","@HTML","Titulo","Mensagem ?",2) ************************************************************************* Function MsgSelect( aItems, cValue, cTitle,nPosInicial) Local nOpcao:=1,cVar,nTam,cOpcao,oBmp Private cTitulo:="Selecione uma Opcao !",oDlgMsgS,oBut01,oBut02,oBut03,; oBut04,oBut05,oBut06,oBut07 #ifdef __CLIPPER__ #Else #include "TSButton.ch" #EndIf /* Standard icon resource IDs */ #define IDI_APPLICATION 32512 #define IDI_HAND 32513 #define IDI_QUESTION 32514 #define IDI_EXCLAMATION 32515 #define IDI_ASTERISK 32516 If cValue != Nil cTitulo:=cValue Endif cTitle := If(cTitle=Nil,"Selecione ?",cTitle) nPosInicial := If(nPosInicial=NIL,1,nPosInicial) nTam := Len(aItems)*13.33 DEFINE DIALOG oDlgMsgS FROM 5,10 TO 12, 14+nTam TITLE cTitulo @ 00.7,01 ICON oICon Of oDlgMsgS oIcon:hIcon := LoadIcon(0, IDI_QUESTION) @ 00.7,05 Say Alltrim(cTitle) Of oDlgMsgS nI:=1 If Len(aITems) >= 1 @ 02.45, 3.5+((nI-1)*8) sBUTTON OBUT01 Prompt aItems[nI] OF oDlgMsgS ; SIZE 40, 12 ; ACTION ( OBUT01:Cargo:="2", oDlgMsgS:End() ) ; ToolTip StrTran(aItems[nI],"&","") XP EndIf If Len(aITems) >= 2 nI:=2 @ 02.45, 3.5+((nI-1)*8) sBUTTON OBUT02 Prompt aItems[nI] OF oDlgMsgS ; SIZE 40, 12 ; ACTION ( OBUT02:Cargo:="2", oDlgMsgS:End() ) ; ToolTip StrTran(aItems[nI],"&","") XP EndIf If Len(aITems) >= 3 nI:=3 @ 02.45, 3.5+((nI-1)*8) sBUTTON OBUT03 Prompt aItems[nI] OF oDlgMsgS ; SIZE 40, 12 ; ACTION ( OBUT03:Cargo:="2", oDlgMsgS:End() ) ; ToolTip StrTran(aItems[nI],"&","") XP EndIf If Len(aITems) >= 4 nI:=4 @ 02.45, 3.5+((nI-1)*8) sBUTTON OBUT04 Prompt aItems[nI] OF oDlgMsgS ; SIZE 40, 12 ; ACTION ( OBUT04:Cargo:="2", oDlgMsgS:End() ) ; ToolTip StrTran(aItems[nI],"&","") XP EndIf If Len(aITems) >= 5 nI:=5 @ 02.45, 3.5+((nI-1)*8) sBUTTON OBUT05 Prompt aItems[nI] OF oDlgMsgS ; SIZE 40, 12 ; ACTION ( OBUT05:Cargo:="2", oDlgMsgS:End() ) ; ToolTIp StrTran(aItems[nI],"&","") XP EndIf If Len(aITems) >= 6 nI:=6 @ 02.45, 3.5+((nI-1)*8) sBUTTON OBUT06 Prompt aItems[nI] OF oDlgMsgS ; SIZE 40, 12 ; ACTION ( OBUT06:Cargo:="2", oDlgMsgS:End() ) ; ToolTip StrTran(aItems[nI],"&","") XP EndIf If Len(aITems) >= 7 nI:=7 @ 02.45, 3.5+((nI-1)*8) sBUTTON OBUT07 Prompt aItems[nI] OF oDlgMsgS ; SIZE 40, 12 ; ACTION ( OBUT07:Cargo:="2", oDlgMsgS:End() ) ; ToolTIp StrTran(aItems[nI],"&","") XP EndIf #Endif For nI := 1 to Len(aITems) cVar := "OBUT"+StrZero(nI,2) &(cVar):Cargo:="1" Next cVar := "OBUT"+StrZero(nPosInicial,2) oDlgMsgS:BStart := {|| &(cVar):SetFocus() } ACTIVATE DIALOG oDlgMsgS CENTERED For nI := 1 to Len(aITems) cVar := "OBUT"+StrZero(nI,2) If &(cVar):Cargo = "2" nOpcao:=nI Endif Next Return(nOpcao) Faz o teste ai Kapi..