sinval.gedolin

não é ainda o comando por meio de texto, esse é o comando por ini,. note como é dieferente, quando por via socks: essa tela tem o comando ini e o socks Preciso de um comando como o acima, porém para fazer o desconhecimento da operação de uma nota enviada contra meu CNPJ

Senhores, não acho em lugar algum, como fazer o desconhecimento de uma nota emitida contra meu CNPJ, em formato de SOCKS. apenas acho em formato ini. por favor alguém pode ser objetivo e me enviar o comando de desconhecimento de operação, pois estou com tempo curto, e já estou a meses tentando achar o comando correto. algo tipo o comanod de baixar os xmls. abaixo eu colocao o camndo de baixar as notas, quero algo similar, para o desconhecimento de uma nota emitida contra meu CNPJ. Já assisti aos videos e não achei nada. NFe.DistribuicaoDFeporUltNSU("52","37247772000132","00")

Como faço para o Monitor, procurar novamente as notas antigas, digo, como retirar o controle NSU, para ele recomeçar a baixar.

Gente como eu faço para mudar estes comandos ini que vcs mandaram, em comando SOCKS ou TEXTO? Ambos os casos estai corretos entao, eu quw nao estou sabendo enviar o comando pelo socks.

Juliomar, está tendo uma confusão aí. quero enviar um evendo do DFe para não aceitar uma nota emitida por um fornecedor para mim, e não uma nota que eu emiti. Compreenda: O cliente, me enviou uma nota fiscal de um produto que normalmente eu compro para suprir minhas necessidades de produção, porém não preciso deste produto, o produto ainda não chegou, então eu simplesmente não reconheço essa venda, e quero enviar um comunicado para o SEFAZ, que aquela nota não faz parte do bloco para a cobrança de impostos. Ou seja,a nota emitida pelo meu fornecedor para mim, veio errada, não a aceito. que comando do DFe eu envio para isso?

Isso acho que notri, vlw Italo. Mas e quanto ao desconhecimento da operação , tem o comando para eu anular a nota enviada contra mim?

Amarildo, e como faço isso usando um comando do AcbrMonitor?

e aproveitando, tem como eu negar uma nota emitida por um fornecedor, mas que não deveria ser para meu CNPJ?

Fiz num evento de testes, mas não me lembro mais qual foi, apaguei o TXT.

Quero os registros das NSU das notas contra mim. assim eu posso fazer um controle do que foi e do que nao foi baixado.

Gostaria de saber se existe algum meio do Monitor, me passar os NSU usados, para eu ter um controle. usei um comando para trazer os NSU EM UM csv, POREM NÃO ME TROUXE NADA.

corrigido, favor fechar o ppost.

José, mas esta dessa forma, e mesmo assim, tenho os resultados como na imagem que passei anteriormente, para voce ver a minha configuração, segue a imagem.

Continua fazendo assim: E naõ quero, quero tudo no mesmo diretorio, sem nenhuma separação. Não achei essas opções de separar por ... que voce diz

Fiz isso, mas o mesmo continuou a fazer um monte de pastas com inúmeros CNPJs

É possivel eu configurar o ACBr para colocar todos os XML em uma unica pasta, para que eu faça a triagem por meio de meu software?

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

Consegui fazer funcionar, obrigado pode fechar o topico

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

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

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)

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

como faço para isso entrar em produção?? hahahah te juro que pensava que era produção. consegui, muito obrigado pessoal

continuo recebendo isso como resposta: [DistribuicaoDFe] CStat=137 CUF=0 Msg=Nenhum documento localizado VerAplic=1.2.0 Versao=1.01 XMotivo=Nenhum documento localizado arquivo= dhResp=16/07/2020 17:22:28 indCont=1 maxNSU=000000000000000 tpAmb=2 ultNSU=000000000000000 OK: [DistribuicaoDFe] CStat=137 CUF=0 Msg=Nenhum documento localizado. VerAplic=1.0.0_2007161822 Versao=1.00 XMotivo=Nenhum documento localizado. arquivo= dhResp=16/07/2020 18:22:34 indCont=1 maxNSU=000000000000000 tpAmb=2 ultNSU=000000000000000 o primeiro para nfe e o segundo para cte

já em produção mas não veio nada NFe.DistribuicaoDFeporUltNSU("52","37247772000132","0") coloquei isso agora e a resposta foi a mesma uma outra coisa para completar o post acima, se caso somente houver CT-e's eles virão também, correto?