Danfe SVC-AN

[hleorj]

@Kiko Fernandes, obrigado pela orientação no detalhe.

@BigWings,  obrigado pela dica, vou ter  que ler o pai dos burros com mas atenção, para controlar as variáveis de mensagem. 

@medeiros.sunsystem, foi possível simular o erro no demo, com o seu XML.

Mas alguma orientação ou dica ?

 

[medeiros.sunsystem]

Não seu Henrique, acredito que o que percebi é somente isto mesmo. Muito grato pela sua atenção.

Editado 30 Janeiro, 2017 por medeiros.sunsystem

[hleorj]

Segue a analise de alteração

Antes 

      teContingencia,
      teFSDA,
      teSCAN,
      teSVCAN,
      teSVCRS,
      teSVCSP           : begin
                          sChaveContingencia                  := TACBrNFe(TACBrNFeDANFeRL(Owner).ACBrNFe).GerarChaveContingencia(FNFe);
                          rlbCodigoBarrasFS.Caption           := sChaveContingencia;
                          rlbCodigoBarrasFS.Visible           := True;

                          rllDadosVariaveis3_Descricao.Caption:= 'DADOS DA NF-E';
                          rllDadosVariaveis3.Caption          := FormatarChaveAcesso(sChaveContingencia);

                          if (dhCont > 0) and (xJust > '') then
                            rllContingencia.Caption           := ACBrStr( 'Data / Hora da entrada em contingência: ') +
                                                                          FormatDateTime('dd/mm/yyyy hh:nn:ss', dhCont) +
                                                                          ' Motivo contingência: ' + xJust;
                        end;

Depois

      teContingencia,
      teFSDA,
      teSCAN,
      teSVCAN,
      teSVCRS,
      teSVCSP         : begin
                          sChaveContingencia  := TACBrNFe(TACBrNFeDANFeRL(Owner).ACBrNFe).GerarChaveContingencia(FNFe);
                          if FNFe.Ide.tpEmis  = teFSDA then
                          begin
                            rlbCodigoBarrasFS.Caption     := sChaveContingencia;
                            rlbCodigoBarrasFS.Visible     := True;

                            rllDadosVariaveis3_Descricao.Caption:= 'DADOS DA NF-E';
                            rllDadosVariaveis3.Caption    := FormatarChaveAcesso(sChaveContingencia);
                          end
                          else
                          begin
                            rllDadosVariaveis1a.Visible   := ( FNFe.procNFe.cStat > 0 );
                            rllDadosVariaveis1b.Visible   := rllDadosVariaveis1a.Visible;
                            rllDadosVariaveis1c.Visible   := rllDadosVariaveis1a.Visible;

                            if FProtocoloNFe <> '' then
                              rllDadosVariaveis3.Caption  := FProtocoloNFe
                            else
                              rllDadosVariaveis3.Caption  := FNFe.procNFe.nProt + ' ' +
                                                                  DateTimeToStr(FNFe.procNFe.dhRecbto);
                          end;

                          if (dhCont > 0) and (xJust > '') then
                            rllContingencia.Caption           := ACBrStr( 'Data / Hora da entrada em contingência: ') +
                                                                          FormatDateTime('dd/mm/yyyy hh:nn:ss', dhCont) +
                                                                          ' Motivo contingência: ' + xJust;
                        end;

@Kiko Fernandes,

@BigWings

@medeiros.sunsystem,  Favor analisarem o código e o pdf anexo

35170112342787000159550140000070426005016418.pdf

[medeiros.sunsystem]

Boa tarde.
Não sei responder se: DANFE em Contingência - Impresso em decorrência de problemas técnicos
fica alí mesmo. Mas do resto, acho que está correto, do meu ponto de vista.
Quanto ao fonte, não utilizo, pois só uso o acbrmonitorplus.

[BigWings]

4 horas atrás, hleorj disse:

@Kiko Fernandes,

@BigWings

@medeiros.sunsystem,  Favor analisarem o código e o pdf anexo

35170112342787000159550140000070426005016418.pdf

Segue minha sugestão de código, removendo as repetições desnecessárias

ACBrNFeDANFeRLPaisagem.pas

ACBrNFeDANFeRLRetrato.pas

35170112342787000159550140000070426005016418.pdf

[Kiko Fernandes]

Companheiro @hleorj me parece tudo correto agora.

Só o detalhe:  PROTOCOLO DE AUTORIZAÇÃO DE USO: 635170000003775 27/01/2017 11:21:56
nos dados adicionais é somente para o FNFe.Ide.tpEmis = teFSDA, pois devido as duas barras e a informação necessária nos campos, não sobre espaço para informação do protocolo. Apenas neste caso, para os outros o campo estará disponível, podendo ser preenchido aonde se encontra por padrão.

 

Um abraço!

Obg. pelo empenho!

[hleorj]

5 horas atrás, BigWings disse:

Segue minha sugestão de código, removendo as repetições desnecessárias

ACBrNFeDANFeRLPaisagem.pas

ACBrNFeDANFeRLRetrato.pas

35170112342787000159550140000070426005016418.pdf

Minha sugestão, otimizada :

- Remoção de variáveis 

- Refatoração / remoção no uso do if.. else.. end;

- Remoção de códigos duplicados

- Nova inicialização de variáveis ;

Se passar nos seus testes, envio ao SVN.

 

 

 

ACBrNFeDANFeRLRetrato.pas

ACBrNFeDANFeRLPaisagem.pas

[Kiko Fernandes]

17 horas atrás, hleorj disse:

Se passar nos seus testes, envio ao SVN.

Boa tarde!
@BigWings, por favor teste para vermos se podemos encerrar o assunto.
Muito obrigado!

 

[BigWings]

18 horas atrás, hleorj disse:

Minha sugestão, otimizada :

- Remoção de variáveis 

- Refatoração / remoção no uso do if.. else.. end;

- Remoção de códigos duplicados

- Nova inicialização de variáveis ;

Se passar nos seus testes, envio ao SVN.

ACBrNFeDANFeRLRetrato.pas

ACBrNFeDANFeRLPaisagem.pas

 

31 minutos atrás, Kiko Fernandes disse:

Boa tarde!
@BigWings, por favor teste para vermos se podemos encerrar o assunto.
Muito obrigado!

 

Fiz alguns testes com NF-e normal, SVC e FS-DA, retrato e paisagem.

De minha parte, parece tudo certo.

[hleorj]

Enviado ao SVN.  na revisão  12874

Grato pela ajuda de todos os envolvidos.

[medeiros.sunsystem]

Nós que agradecemos. Quando sairá a versão do acbrmonitorplus com esta alteração ?

[Juliomar Marchetti]

13 minutos atrás, medeiros.sunsystem disse:

Nós que agradecemos. Quando sairá a versão do acbrmonitorplus com esta alteração ?

para quem é do SAC sai semanalmente no inicio da semana!

 

[medeiros.sunsystem]

Sempre pagamos o SAC