Clipper On Line • Ver Tópico - TXT do acbr com troco

TXT do acbr com troco

Discussão sobre desenvolvimento de software para atender as exigências da legislação fiscal e tributária (ECF, TEF, SINTEGRA, NF-e, ECD, EFD, etc.)

Moderador: Moderadores

 

TXT do acbr com troco

Mensagempor rubens » 20 Nov 2017 18:10

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 de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

TXT do acbr com troco

Mensagempor fladimir » 21 Nov 2017 00:53

Tenta assim

      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 de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

TXT do acbr com troco

Mensagempor rubens » 21 Nov 2017 09:15

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)?
   @ 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...
[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 66 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 49 vezes
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

TXT do acbr com troco

Mensagempor fladimir » 21 Nov 2017 10:03

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 de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

TXT do acbr com troco

Mensagempor rubens » 21 Nov 2017 11:07

Só um detalhe..

Só gera as tags na versão 4.0

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

TXT do acbr com troco

Mensagempor fladimir » 21 Nov 2017 11:59

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.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes




Retornar para Legislação Fiscal e Tributária

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro