Retorno Do Acbrnfse1.consultarloterps

[Dércio Luis Zanatta]

Boa tarde

Enviei um RPS com o fone do tomador incorreto.

Ocorre que ao executar o método ACBrNFSe1.ConsultarLoteRps retorna erro no Exception com uma mensagem E181 - Fone do tomador inválido.

Como faço para pegar esse código de retorno E181 ?

Tentei usar o ACBrNFSe1.WebServices.ConsLote.RetWS, mas ele retorna tudo junto.. queria seperar o código da mensagem Tem como ?

 

[jonatan.souza]

       ACBrNFSe1..ConsultarLoteRps(NumLote, qryConLoteRPS.FieldByName('num_protocolo').AsString, qryConLoteRPS.FieldByName('cnpj').AsString, qryConLoteRPS.FieldByName('inscricao').AsString );

 

        Result := True;

 

        RetMSG := '';

 

        For i := 0 To ACBrNFSe1..WebServices.ConsLote.NFSeRetorno.ListaNfse.MsgRetorno.Count-1 Do

        Begin

 

           RetMSG := RetMSG + 'Código   : ' + ACBrNFSe1..WebServices.ConsLote.NFSeRetorno.ListaNfse.MsgRetorno.Items.Codigo + #13 +

                              'Mensagem : ' + ACBrNFSe1.WebServices.ConsLote.NFSeRetorno.ListaNfse.MsgRetorno.Items.Mensagem + #13;

 

        End;

Editado 10 Março, 2015 por jonathan-augusto