Home

Linha Microsiga Protheus

Páginas filhas
  • Impressao de acrescimo + desconto em ECF -- 16172

Impressao de acrescimo + desconto em ECF

Como rdmake SCRFIS é utilizado para impressão do cupom fiscal em todos os ECFs, a partir da versão 5.08, nos deparamos com o detalhe que algumas impressoras como Bematech não permitem a impressão de acrescimo e descontos no total do mesmo cupom, já para a Sweda isto é um procedimento normal.<br><br>Sabendo dessa limitação e como a impressão é feita por um rdmake, segue o procedimento que deverá ser adotado para a utilização do exemplo acima.<br><br>Vale lembrar que o default do SCRFIS é fazer a impressão do acrescimo OU do desconto.<br><br>Segue trecho do fonte padrão:<br>-------------------------------------<br>// Verifica o Desconto e o Acrescimo <br>If nVlrAcrs &gt; 0<br> cAcrescimo := Alltrim(Str(nVlrAcrs,14,2))<br> iRetorno := IFAcresTot( nHdlECF, cAcrescimo )<br> If L010AskImp(.F.,iRetorno)<br> Return (.F.)<br> EndIf<br>ElseIf _nDescloj &gt; 0<br> _cDescTotal := Alltrim(Str( _nDescloj , 14, 2 ))<br> iRetorno := IFDescTot( nHdlECF,_cDescTotal )<br> If L010AskImp(.F.,iRetorno)<br> Return (.F.)<br> EndIf<br>Endif<br><br><br>Segue trecho do fonte de como deverá ser alterado para a impressão de acrescimo E desconto no mesmo cupom.<br>---------------------------------------------------------------------------------------<br>// Verifica o Desconto e o Acrescimo<br>If nVlrAcrs &gt; 0<br> cAcrescimo := Alltrim(Str(nVlrAcrs,14,2))<br> iRetorno := IFAcresTot( nHdlECF, cAcrescimo )<br> If L010AskImp(.F.,iRetorno)<br> Return (.F.)<br> EndIf<br>Endif<br>If _nDescloj &gt; 0<br> _cDescTotal := Alltrim(Str( _nDescloj , 14, 2 ))<br> iRetorno := IFDescTot( nHdlECF,_cDescTotal )<br> If L010AskImp(.F.,iRetorno)<br> Return (.F.)<br> EndIf<br>Endif<br>

Nível 1 (Acesso Clientes)
Espanhol , Inglês
Advanced Protheus 5.08 , Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11