Comandos por Socks

[sinval.gedolin]

Caros amigos, este é um trecho de meu programa ADVPL, ele está conectando, porem envio umcomando ao monitor e não recebo nada. será que estou enviando o comando correto/

Na variável cSEND eu coloco a String que queri enviar por Socks ao endereço e porta conectado.

me ajudem com a sintaxe correta do comando sock do AcBr porfavor.

 

    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")'

        nResp := oObj:Send( cSend )

        oObj:CloseConnection()

    EndIf   

 

 

[Juliana Tamizou]

Boa tarde.

Por favor anexe o log do ACBrMonitorPlus para que possamos analisar melhor.

Att.

[Juliana Tamizou]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Rafael Dias]

falto os caracteres de finalização no final do comando coloque "\r\n.\r\n"

[José M. S. Junior]

Todo método via Socket precisa utilizar um terminador:

https://acbr.sourceforge.io/ACBrMonitor/Apresentacao.html

[sinval.gedolin]

Rafaael, eu coloco em ANSI mesmo ou em ASCII

acha que colocar "\r\n.\r\n" depois de meu comando funciona?

cSend := 'NFe.DistribuicaoDFeporUltNSU("52","37247772000132","0")'+"\r\n.\r\n"

antigamente eu finalizava com isso, mas era outro produto acebr

 Chr(13)+Chr(10)+Chr(46)+Chr(13)+Chr(10)

[sinval.gedolin]

Amigos notem que coloquei os caracteres junto com a string, e mesmo assim, não funcionou.

    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 )

        oObj:CloseConnection()

    EndIf   

[Rafael Dias]

estranho você checou se no monitor esta chegando os comandos, poste o log dele
Obs.: \r\n é caracteres de comando em linguagens baseadas em C e é a mesma coisa que o char(13) + Char(10)

[sinval.gedolin]

Rafael, eu coloquei isso depois do comando Chr(13)+Chr(10)+Chr(46)+Chr(13)+Chr(10)

Ou seja minha String enviada, foi:

 'NFe.DistribuicaoDFeporUltNSU("52","37247772000132","0")'+Chr(13)+Chr(10)+Chr(46)+Chr(13)+Chr(10)

E não trqbalhou

[Juliomar Marchetti]

Por favor tente anexar o que a Juliana pediu assim dá pra identificar

17 horas atrás, Juliana Tamizou disse:

Boa tarde.

Por favor anexe o log do ACBrMonitorPlus para que possamos analisar melhor.

Att.

 

[sinval.gedolin]

Consegui fazer funcionar, obrigado pode fechar o topico

[Juliomar Marchetti]

Poderia descrever o que fez pra resolver? caso algum colega tenha o mesmo problema?

[sinval.gedolin]

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

 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

[José M. S. Junior]

Deve configurar sempre um timeOut pouco maior que o tempo configurado no ACBrMonitor, para não encerrar a conexão antes do tempo de espera.