Jump to content

dev botao
  • Este tópico foi criado há 3509 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Posted

Boa tarde Senhores

 

Fiz uma alteração para contemplar o nome fantasia na impressao pelo ACBrNFeDANFeESCPOS

 

alterei a procedure TACBrNFeDANFeESCPOS.GerarClicheEmpresa acrescentando esse novo campo;

 

Se estiver correto, e de acordo, favor subir pro SVN

 

Segue:

 

Abraços

ACBrNFeDANFeESCPOS.pas

  • 2 weeks later...
Posted

Boa tarde Senhores

 

Fiz mais uma alteração para contemplar os tributos separadamente
 
acrescentei as seguintes propriedades na classe ACBrNFeDANFEClass
 
    FTributosSeparadamente : Boolean; //informação dos tributos separadamente
    FvTribFed: Currency; //total tributos federais
    FvTribEst: Currency; //total tributos estaduais
    FvTribMun: Currency; //total tributos municipais
 
e fiz a seguinte alteracao na classe ACBrNFeDANFeESCPOS
procedure TACBrNFeDANFeESCPOS.GerarTotTrib;
begin
 if TributosSeparadamente = False then
  begin
   if FpNFe.Total.ICMSTot.vTotTrib > 0 then
    begin
     FBuffer.Add(cCmdFontePequena + ParseTextESCPOS(padS('Informação dos Tributos Totais Incidentes|' +
      FormatFloat('#,###,##0.00', FpNFe.Total.ICMSTot.vTotTrib), nColunasPapel, '|'))
     );
     FBuffer.Add(cCmdFontePequena + ParseTextESCPOS('(Lei Federal 12.741/2012)'));
     FBuffer.Add(GetLinhaSimples);
    end;
  end
 else
  begin
   if (vTribFed > 0) or (vTribEst > 0) or (vTribMun > 0) then
    begin
     FBuffer.Add(cCmdFontePequena + ParseTextESCPOS('Informação dos Tributos Totais (Lei Federal 12.741/2012)'));
 
     FBuffer.Add(cCmdFontePequena + ParseTextESCPOS(padS('Tributos Federais   R$ :-|' + FormatFloat('#,###,##0.00', vTribFed), nColunasPapel, '|')));
     FBuffer.Add(cCmdFontePequena + ParseTextESCPOS(padS('Tributos Estaduais  R$ :-|' + FormatFloat('#,###,##0.00', vTribEst), nColunasPapel, '|')));
     FBuffer.Add(cCmdFontePequena + ParseTextESCPOS(padS('Tributos Municipais R$ :-|' + FormatFloat('#,###,##0.00', vTribMun), nColunasPapel, '|')));
 
     FBuffer.Add(GetLinhaSimples);
    end;
  end;
end;
 

Se estiver correto, e de acordo, favor subir pro SVN

 

Segue:

 

Abraços

 

ACBrNFeDANFEClass.pas

ACBrNFeDANFeESCPOS.pas

  • Membros Pro
Posted

Atualizei os fontes agora pela manhã e ao recompilar os fontes dá erro "[dcc32 Error] ACBrNFeDANFeESCPOS.pas(991): E2003 Undeclared identifier: 'TributosSeparadamente'" na lina 991 da ACBrNFeDANFeESCPOS.pas

 

Onde está declarada essa variável TributosSeparadamente que ele não encontra?

Ou estou fazendo algo errado?

 

obrigado!

Valdir Dill

Rio de Janeiro - RJ

 

 

  • Membros Pro
Posted

Eu sempre atualizo a pasta toda. Mas acredito que algum arquivo que eu tenha alterado não tenha sido atualizado pelo svn justamente porque ele foi alterado.

Deletei a pasta toda e reinstalei tudo e resolveu.

 

Obrigado!

Valdir Dill

Rio de Janeiro - RJ

 

 

  • 1 month later...
Posted (edited)

boa tarde

Acrescentei mais uma alteração no acbrdanfeescpos para imprimir os dados adicionais dos produtos

para utilizar basta setar o ImprimeInfAdProd = True e preencher a propriedade infadprod do xml

 

 

ACBrNFeDANFeESCPOS.pas

Edited by leandroaoa
Posted

subi no svn somente no trunk

Obrigado. 

Ainda não tive tempo para baixar o trunk2 devido a correria vou tentar baixar no final de semana e providenciar os acertos la, qualquer coisa eu posto aqui novamente

  • Este tópico foi criado há 3509 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...