Ir para conteúdo
  • Cadastre-se

dev botao

acbrmonitor NFE gravar os xml atualizados


lecojales
  • Este tópico foi criado há 4737 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Pessoal estou com o seguinte problema, eu, valido, transmito, e quando vai imprimir, diz não estar autorizado.

Estou no ambiente de teste, e fiz bem simples, mas o que acontece é que eu não consigo imprimir ela correta, sem dá a mensagem que não está autorizada. Ele gera o xml, mas é como não atualizasse ele com os dados. Estou usando o monitor versão: 2.0.6.1a capcom.

warqnfe:= "s:\xharbour\nfe_acbr\exec\"+warqnfe

delete file "C:\ACBrNFeMonitor\SAINFE.TXT"

wvw_alert(warqnfe)

memowrit("C:\ACBrNFeMonitor\ENTNFE.TXT","NFe.CriarNFeSefaz(&warqnfe,1)")

delete file "C:\ACBrNFeMonitor\SAINFE.TXT"

memowrit("C:\ACBrNFeMonitor\ENTNFE.TXT","NFe.ValidarNFe(&vwarqxml)")

wvw_alert("validou")

delete file "C:\ACBrNFeMonitor\SAINFE.TXT"

memowrit("C:\ACBrNFeMonitor\ENTNFE.TXT","NFe.AssinarNFe(&vwarqxml)")

wvw_alert("assinou")

delete file "C:\ACBrNFeMonitor\SAINFE.TXT"

memowrit("C:\ACBrNFeMonitor\ENTNFE.TXT","NFe.EnviarNFe(&vwarqxml,vnnfini,,,)")

//nAssina - parâmetro opcional e caso seja passado 1 irá assinar o arquivo XML antes de enviar.

//nImprime - parâmetro opcional e caso seja passado 1 irá imprimir o DANFE caso a nota seja enviada com sucesso.

wvw_alert("transmitiu")

do while .t.

delete file "C:\ACBrNFeMonitor\SAINFE.TXT"

memowrit("C:\ACBrNFeMonitor\ENTNFE.TXT","NFe.ConsultarNFe(&vwarqxml)")

wvw_alert("consultou 1")

w:= memoread("C:\ACBrNFeMonitor\SAINFE.TXT")

//@ 18,00 say substr(w,1,28) //OK: Autorizado o uso da NF-e

//@ 20,00 say substr(w,159,44)

//@ 21,00 say substr(w,214,19)

//@ 22,00 say substr(w,241,15)

if substr(w,1,28) == "OK: Autorizado o uso da NF-e"

select protnfe

replace CHAVE with substr(w,159,44)

replace DTREC with substr(w,214,19)

replace RECIBO with substr(w,241,15)

replace xml with memoread(vwarqxml)

exit

endif

inkey(0.3)

enddo

delete file "C:\ACBrNFeMonitor\SAINFE.TXT"

memowrit("C:\ACBrNFeMonitor\ENTNFE.TXT","NFe.ImprimirDANFE(&vwarqxml,,1)")

Link para o comentário
Compartilhar em outros sites

  • 4 meses depois ...

Essa opção aqui permance causando o problema de Sem Autorização de Uso...

Entao nós abrimos o ACBrNFeMonitor, fazemos a consulta.. esta OK, mandamos imprimir novamente e resultado OK

Obrigado pela atenção.
Att. Jonas Teixeira de Freitas
Desenvolvedor Java/Delphi/PowerBuilder - Smart Sistemas - Araranguá -SC
Bacharel em Sistemas de Informação

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 4737 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.