Status Aguardando Processamento Prefeitura

[Túlio]

Boa tarde pessoal,

 

Sou novo aqui no fórum, mas gostaria de propor uma modificação super simples no que diz respeito ao Status do componente TACBrNFSe.

 

Quando utilizei o sistema para envio da RPS pela primeira vez, o processamento da prefeitura foi demorado e a mensagem de "Consultando..." ficava piscando na tela de tempos em tempos (isso para o usuário fica bastante confuso). Para solucionar e mostrar para o usuário que o programa esta aguardando o processamento da prefeitura, criei um TStatusACBrNFSe chamado "stNFSeAguardaProcesso" e realizei uma modificação super simples no ACBrNFSeWebServices só para setar o Status do ACBrNFSe para stNFSeAguardaProcesso quando estiver aguardando a RPS ser processada para a prefeitura.

 

Se for possível e se acharem interessante a modificação, anexei as modificações que fiz à este post. Realizei algumas outras alterações também para enviar a RPS para a prefeitura de Araquari/SC que mais tarde eu vou colocar a disposição aqui também.

 

Para aparecer ao usuário a mensagem de "Aguardando RPS", coloquei esse status a mais em ACBrNFSe1StatusChange.

  stNFSeAguardaProcesso : begin
                if ( frmStatus = nil )
                 then frmStatus := TfrmStatus.Create(Application);
                frmStatus.lblStatus.Caption := 'Aguardando RPS ser processado pela prefeitura...';
                frmStatus.Show;
                frmStatus.BringToFront;
               end;

Obrigado!

 

Túlio

ACBrNFSeWebServices.pas

pnfsConversao.pas

[Italo Giurizzato Junior]

Boa tarde Túlio,

 

Muito obrigado pela colaboração.

 

Os fontes alterados já estão disponíveis.

[Túlio]

Obrigado!