TXT do acbr com troco

Fórum sobre desenvolvimento de software para atender as exigências da legislação fiscal e tributária (NFe, NFCe, NFSe, SPEED, Projeto ACBr, TEF, ECD, EFD, etc.)

Moderador: Moderadores

Avatar do usuário
rubens
Colaborador
Colaborador
Mensagens: 1520
Registrado em: 16 Ago 2003 09:05
Localização: Nova Xavantina - MT

TXT do acbr com troco

Mensagem por rubens »

Olá...

Alguém já fez uma nfce com troco? tem como postar um txt de exemplo?

Obrigado
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar do usuário
fladimir
Colaborador
Colaborador
Mensagens: 2445
Registrado em: 15 Nov 2006 20:21

TXT do acbr com troco

Mensagem por fladimir »

Tenta assim

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
e fala se deu certo.
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.
Avatar do usuário
rubens
Colaborador
Colaborador
Mensagens: 1520
Registrado em: 16 Ago 2003 09:05
Localização: Nova Xavantina - MT

TXT do acbr com troco

Mensagem por rubens »

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)?

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))
Gera o TXT com o Troco...

Código: Selecionar todos

[Total]
ValorProduto=50.17
ValorDesconto=0.00
ValorNota=50.17
[Pag001]
tpag=01
vPag=50.17
vTroco=10.00
mas no xml não gera a tag do troco
nfce13688.pdf
(14.48 KiB) Baixado 78 vezes
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
Anexos
51171107407005000182650010000136881000136883-nfe.xml
(6.36 KiB) Baixado 62 vezes
"Eu e minha casa servimos ao Senhor e você ???"
Avatar do usuário
fladimir
Colaborador
Colaborador
Mensagens: 2445
Registrado em: 15 Nov 2006 20:21

TXT do acbr com troco

Mensagem por fladimir »

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.
Avatar do usuário
rubens
Colaborador
Colaborador
Mensagens: 1520
Registrado em: 16 Ago 2003 09:05
Localização: Nova Xavantina - MT

TXT do acbr com troco

Mensagem por rubens »

Só um detalhe..

Só gera as tags na versão 4.0

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar do usuário
fladimir
Colaborador
Colaborador
Mensagens: 2445
Registrado em: 15 Nov 2006 20:21

TXT do acbr com troco

Mensagem por fladimir »

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.
Responder