Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

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


Go to solution Solved by Juliomar Marchetti,
  • Este tópico foi criado há 1989 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

NFCe FortesA4.jpg

VANDERLEI MATTE

INFOMATTE Sistemas e Consultoria

Distrito de Castelo de Sonhos - Altamira / PA

Fone: (93) 3502-2228

msn: [email protected]

email: [email protected]

Link to comment
Share on other sites

  • Consultores

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!

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

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....

 

 

VANDERLEI MATTE

INFOMATTE Sistemas e Consultoria

Distrito de Castelo de Sonhos - Altamira / PA

Fone: (93) 3502-2228

msn: [email protected]

email: [email protected]

Link to comment
Share on other sites

  • Consultores
  • Solution

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!

 

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

  • Este tópico foi criado há 1989 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.