Jump to content

sinval.gedolin

Membros
  • Posts

    61
  • Joined

  • Last visited

Community Answers

  1. sinval.gedolin's post in Comandos por Socks was marked as the answer   
    coloquei para que o ADVPL fizesse uma pausa de 15 segundos antes de fechar a conexão SOCKs, se ver no codigo acima, foi colocado para ele fechar a conexão depois de enviar  comando.
    E antes dos 15 segundos eu fiz uma verificação se houve algum retorno.
    ficando assim:
     
     
        Private oObj        := tSocketClient():New()     Private _cEol       := Chr(13)+Chr(10)+Chr(46)+Chr(13)+Chr(10)       For nX := 1 to 3         nResp := oObj:Connect( nPort,nIp,10 )         // -------------------------------         // Se conectou abandona o FOR         // -------------------------------         If(nResp == 0 )             Exit         Else             conout("--> Tentativa de Conexão ACBr: " + StrZero(nX,3))             Sleep(2000)         EndIf     Next       If( !oObj:IsConnected() )         conout("*********  Não foi possível estabelecer conexão com o ACBr. *********")         Return(.F.)     Else         conout("****************** ACBr CONECTADO! ************************")         Sleep(2000)         cSend := 'NFe.DistribuicaoDFeporUltNSU("52","37247772000132","0")'+_cEol         nResp := oObj:Send( cSend )         if( nResp != len( cSend ) )             conout( "--> Erro! Dado não transmitido" )         else             conout( "--> Dado Enviado - Retorno: " +StrZero(nResp,5) )         endif         Sleep(20000)         conout("****************** Fechando o ACBr! ************************")         oObj:CloseConnection()     EndIf  
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.