NFC-e Fortes A4 - Quebra de Linha em InfAdic.infCpl + Texto 'EMITIDA EM CONTIGÊNCIA"

[infomatte]

Boa Noite...

Primeiramente gostaria de parabenizar a todos os desenvolvedores do ACBR pela excelência e qualidade do componente...

Estou nos testes finais do desenvolvimento da NFC-e para meu Software de gestão comercial aqui no estado do Pará e,
nos testes  para transmissão Offline - Contingência, verifiquei que quando em Contingência, no modo de homologação,
não é impresso o texto "EMITIDA EM CONTINGÊNCIA"... no Fortes em A4...

Verifiquei também que, no Fortes A4, não está considerando o parâmetro do ; (ponto e virgula) para a quebra de linha
nas informações complementares...

No intuito de contribuir com o projeto, alterei a unit ACBrDANFCeFortesFrA4.pas, nas seguintes linhas, para adequação
ao exposto:

***************************************************************************************************************************************

linha 590 - Impressão Texto EMITIDA EM CONTINGÊNCIA.

    De:
    Text := ACBrStr('EMITIDA EM AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL')

    Para:
    Begin
    if self.FACBrNFeDANFCeFortesA4.FpNFe.Ide.tpEmis <> teNormal then
        Text := ACBrStr('EMITIDA EM CONTINGÊNCIA - AMBIENTE DE HOMOLOGAÇÃO -  SEM VALOR FISCAL')
    else
       Text := ACBrStr('EMITIDA EM AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL')
    End;

Linha 418 - Quebra de linha com ; (ponto e vírgula)

  De:
  PrintIt := Trim(self.FACBrNFeDANFCeFortesA4.FpNFe.InfAdic.infCpl) <> '';

  Para:
  PrintIt := StringReplace(Trim(self.FACBrNFeDANFCeFortesA4.FpNFe.InfAdic.infCpl), ';', #13, [rfReplaceAll] ) <> '';

Linha 697 - Quebra de linha com ; (ponto e vírgula)

  De:
  Text := self.FACBrNFeDANFCeFortesA4.FpNFe.InfAdic.infCpl;

  Para:
  Text := StringReplace(self.FACBrNFeDANFCeFortesA4.FpNFe.InfAdic.infCpl, ';', #13, [rfReplaceAll] ) ;

***************************************************************************************************************************************

Seguem em anexo a unit modificada e imagem de exemplo dela em funcionamento...

Em caso de relevância para o projeto, gostaria que a Unit fosse colocada no repositório....

PS: Revision da Unit modificada: 11593.

ACBrDANFCeFortesFrA4.pas

[Régys Silveira]

Por favor anexe o arquivo alterado é mais simples de comparar e subir alterações.

[Juliomar Marchetti]

Régys já está! veja no meio do post

não subi nada pois precisaria padronizar isso pois senão vai ficar igual a danfe cada componente tem a sua propriedade mesmo herdando!

[infomatte]

Em 06/04/2016 at 22:15, Juliomar Marchetti disse:

Régys já está! veja no meio do post

não subi nada pois precisaria padronizar isso pois senão vai ficar igual a danfe cada componente tem a sua propriedade mesmo herdando!

Bom Dia...

As alterações da linha 590 - Impressão Texto EMITIDA EM CONTINGÊNCIA, somente afetam a impressão quando no Ambiente de Homologação.

As Alterações das Linhas 418 e 697 - Quebra de linha com ; (ponto e vírgula), pensei em colocar na Unit  ACBrDANFCeFortesFrA4.pas, pelo fato dela existir e funcionar já na Unit  ACBrDANFCeFortesFr.pas...

Enquanto não padronizar, seguirei alterando a Unit ACBrDANFCeFortesFrA4.pas manualmente então, apos cada atualização do meu repositório....

Obrigado....

 

 

[Juliomar Marchetti]

Bom dia!

tem razão, já subi ao svn a sugestão pois fica igual ao outro modelo!

mas será necessário padronizar isso ainda!

 

[infomatte]

Valeu Juliomar....