Sugestão De Alteração No Acbrnfedanfeescpos

[leandroaoa]

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

[Juliomar Marchetti]

Disponibilizada no svn

Obrigado

[leandroaoa]

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

[leandroaoa]

estou enviando os novos arquivos contemplando as alterações proposta pelo Solivan.

 

segue em anexo...

ACBrNFeDANFEClass.pas

ACBrNFeDANFeESCPOS.pas

[leandroaoa]

estou enviando os novos arquivos atualizado com a revisao 8873 do svn.

ACBrNFeDANFEClass.pas

ACBrNFeDANFeESCPOS.pas

ACBrNFeDANFEClass.pas

ACBrNFeDANFeESCPOS.pas

[Régys Silveira]

Já conferido e enviado, obrigado pela contribuição.

[leandroaoa]

eu que agradeço .. 

[Valdir Dill]

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!

[Juliomar Marchetti]

Bom dia

conforme é repassado em diversos posts, deve atualizar a pasta toda !

depois é necessário recompilar os componentes e então dar um build em sua aplicação

[leandroaoa]

bom dia

Como o Juliomar disse voce deve atualizar a pasta toda pois esta variavel esta no  ACBrNFeDANFEClass.pas  utilize o ACBrInstall assim voce evita erro na hora de atualizar o acbr

[Valdir Dill]

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!

[leandroaoa]

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

Editado 4 Julho, 2015 por leandroaoa

[Juliomar Marchetti]

subi no svn somente no trunk

[leandroaoa]

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