Alterações DoACBrGNReUnit.pas

[eazschornack]

Estava fazendo os testes utilizando o ACBrMonitorPLUS para a emissão do GNRe, e acabei reparando alguns detalhes que podem facilitar o uso. Não são erros, mas fogem do padrão que foi adotado anteriormente.

Antes estava assim:
        Cmd.Resposta := ACBrGNRE1.WebServices.Enviar.Msg+
                     '[STATUS]'+sLineBreak+
                     'Ambiente='+TpAmbToStr(ACBrGNRE1.WebServices.ConsultaUF.ambiente)+sLineBreak+
                     'Codigo='+IntToStr(ACBrGNRE1.WebServices.ConsultaUF.codigo)+sLineBreak+
                     'Descricao='+ACBrGNRE1.WebServices.ConsultaUF.descricao+sLineBreak+
                     'UF='+ACBrGNRE1.WebServices.ConsultaUF.Uf+sLineBreak+
                     'AxigeUfFavorecida='+IfThen(ACBrGNRE1.WebServices.ConsultaUF.exigeUfFavorecida = 'S', 'SIM', 'NÃO')+sLineBreak+
                     'AxigeReceita='+IfThen(ACBrGNRE1.WebServices.ConsultaUF.exigeReceita = 'S', 'SIM', 'NÃO')+sLineBreak;

        Cmd.Resposta :=Cmd.Resposta + sLineBreak+
                     'Envio GNRe'+ sLineBreak+
                     'Ambiente: '+ TpAmbToStr(ACBrGNRE1.WebServices.Retorno.ambiente)+ sLineBreak+
                     'Codigo: '+ IntToStr(ACBrGNRE1.WebServices.Retorno.codigo)+ sLineBreak+
                     'Descricao: + ACBrGNRE1.WebServices.Retorno.descricao+ sLineBreak+
                     'Recibo: + ACBrGNRE1.WebServices.Retorno.numeroRecibo+ sLineBreak+
                     'Protocolo: + ACBrGNRE1.WebServices.Retorno.protocolo+ sLineBreak;     

Alterei dessa forma:
        Cmd.Resposta := ACBrGNRE1.WebServices.Enviar.Msg+sLineBreak+
                     '[STATUS]'+sLineBreak+
                     'Ambiente='+TpAmbToStr(ACBrGNRE1.WebServices.ConsultaUF.ambiente)+sLineBreak+
                     'Codigo='+IntToStr(ACBrGNRE1.WebServices.ConsultaUF.codigo)+sLineBreak+
                     'Descricao='+ACBrGNRE1.WebServices.ConsultaUF.descricao+sLineBreak+
                     'UF='+ACBrGNRE1.WebServices.ConsultaUF.Uf+sLineBreak+
                     'AxigeUfFavorecida='+IfThen(ACBrGNRE1.WebServices.ConsultaUF.exigeUfFavorecida = 'S', 'SIM', 'NÃO')+sLineBreak+
                     'AxigeReceita='+IfThen(ACBrGNRE1.WebServices.ConsultaUF.exigeReceita = 'S', 'SIM', 'NÃO')+sLineBreak;

        Cmd.Resposta :=Cmd.Resposta + sLineBreak+
                     '[ENVIO]'+ sLineBreak+
                     'Ambiente='+ TpAmbToStr(ACBrGNRE1.WebServices.Retorno.ambiente)+ sLineBreak+
                     'Codigo='+ IntToStr(ACBrGNRE1.WebServices.Retorno.codigo)+ sLineBreak+
                     'Descricao='+ ACBrGNRE1.WebServices.Retorno.descricao+ sLineBreak+
                     'Recibo='+ ACBrGNRE1.WebServices.Retorno.numeroRecibo+ sLineBreak+
                     'Protocolo='+ ACBrGNRE1.WebServices.Retorno.protocolo+ sLineBreak;     

Essas alterações fazem com que o retorno possa ser lido como um arquivo Ini, sem precisar manipular os dados dee outra forma.
Se acharem que esteja ok e puderem fazer as alterações.

Obrigado;

DoACbrGNReUnit - Alterações.txt

DoACBrGNReUnit.pas

[Juliomar Marchetti]

Boa tarde

suas sugestões já estão no svn!

Obrigado pela colaboração