Olá...
Alguém já fez uma nfce com troco? tem como postar um txt de exemplo?
Obrigado
Rubens
Moderador: Moderadores
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
@ 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))
[Total]
ValorProduto=50.17
ValorDesconto=0.00
ValorNota=50.17
[Pag001]
tpag=01
vPag=50.17
vTroco=10.00
Retornar para Legislação Fiscal e Tributária
Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes