Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

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

Whattzap: (66) 99695-4979

email: vanderleim[email protected]

Postado
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

Whattzap: (66) 99695-4979

email: vanderleim[email protected]

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...