Olá...
Alguém já fez uma nfce com troco? tem como postar um txt de exemplo?
Obrigado
Rubens
TXT do acbr com troco
Moderador: Moderadores
TXT do acbr com troco
Tenta assim
e fala se deu certo.
Código: Selecionar todos
nFormasPgt := 0
if nDinheiro>0
@ nLin,0 say '[Pag' + STRZERO(++nFormasPgt, 3) + ']' ; nLin++
@ nLin,0 say 'tpag=01' ; nLin++
@ nLin,0 say 'vpag=' + Alltrim( Str( nDinheiro, 12, 2 ) ) ; nLin++
endif
if nCheque>0
@ nLin,0 say '[Pag' + STRZERO(++nFormasPgt, 3) + ']' ; nLin++
@ nLin,0 say 'tpag=02' ; nLin++
@ nLin,0 say 'vpag=' + Alltrim( Str( nCheque, 12, 2 ) ) ; nLin++
endif
if nCartao>0
@ nLin,0 say '[Pag' + STRZERO(++nFormasPgt, 3) + ']' ; nLin++
@ nLin,0 say 'tpag=03' ; nLin++
@ nLin,0 say 'vpag=' + Alltrim( Str( nCartao, 12, 2)) ; nLin++
endif
if nDinheiro + nCheque + nCartao > nTotProd - nDescTot // nTicket nao gera troco
nTroco := nDinheiro+nCheque+nCartao - (nTotProd - nDescTot)
endif
//-- Troco
if nTroco>0
@ nLin,0 say 'vTroco=' + Alltrim( Str( nTroco, 12, 2)) ; nLin++
endif
//-- Fim Troco
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
- rubens
- Colaborador

- Mensagens: 1520
- Registrado em: 16 Ago 2003 09:05
- Localização: Nova Xavantina - MT
TXT do acbr com troco
Bom dia...
Então Fladimir...
Estou tentando assim... a mesma coisa que voce me passou.... só que com um valor fixo para testes... (sabe se existe alguma critica no valor passado no troco)?
Gera o TXT com o Troco...
mas no xml não gera a tag do troco
Eh, bem, assim... até ontem não estava gerando... hoje na hora de responder aqui, fui conferir e não é que funcionou.. !!!
Beleza... Fazer mais uns testes e não ouvir mais a reclamação... "Lá no mercado do fulano imprime o troco !!!"...
Obrg...
Rubens
Então Fladimir...
Estou tentando assim... a mesma coisa que voce me passou.... só que com um valor fixo para testes... (sabe se existe alguma critica no valor passado no troco)?
Código: Selecionar todos
@ PROW()+1,00 SAY "[Pag001]"
@ PROW()+1,00 SAY "tpag="+tpag
@ PROW()+1,00 SAY "vPag="+ALLTRIM(STR( NFC->TOTGERAL,10, 2 ))
IF tPAG = '03' .OR. tPAG = '04'
@ PROW()+1,00 SAY "tpIntegra=2"
ENDIF
* @ PROW()+1,00 SAY "CNPJ=01027058000191" // +ALLTRIM(STR( NFC->TOTGERAL,10, 2 ))
* @ PROW()+1,00 SAY "tBand=01" // +ALLTRIM(STR( NFC->TOTGERAL,10, 2 ))
* @ PROW()+1,00 SAY "cAut=01010101" // +ALLTRIM(STR( NFC->TOTGERAL,10, 2 ))
@ PROW()+1,00 SAY "vTroco="+ALLTRIM(STR( 10,10,2))
Código: Selecionar todos
[Total]
ValorProduto=50.17
ValorDesconto=0.00
ValorNota=50.17
[Pag001]
tpag=01
vPag=50.17
vTroco=10.00Beleza... Fazer mais uns testes e não ouvir mais a reclamação... "Lá no mercado do fulano imprime o troco !!!"...
Obrg...
Rubens
- Anexos
-
- 51171107407005000182650010000136881000136883-nfe.xml
- (6.36 KiB) Baixado 61 vezes
"Eu e minha casa servimos ao Senhor e você
"
TXT do acbr com troco
Legal Rubens... parabéns e obrigado por compartilhar.
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
- rubens
- Colaborador

- Mensagens: 1520
- Registrado em: 16 Ago 2003 09:05
- Localização: Nova Xavantina - MT
TXT do acbr com troco
Só um detalhe..
Só gera as tags na versão 4.0
Rubens
Só gera as tags na versão 4.0
Rubens
"Eu e minha casa servimos ao Senhor e você
"
TXT do acbr com troco
Sim somente na versão 4 pq somente na versão 4 q foi implementado
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.