Jump to content

dev botao

gerar xml antes de enviar


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

Recommended Posts

boa tarde, gostaria de salvar o xml antes de enviar para o webservice pq que possa comparar o xml que eu gerei pelo site e o xml que o acbr esta gerando

não estou conseguindo emitir e sempre que tento enviar a guia da erro

Sempre ele cai no except

            try

                    if ACBrGNRE1.Enviar(False) then
                        begin
                          ACBrGNRE1.GuiasRetorno.Clear;
                          ACBrGNRE1.GNREGuia := ACBrGNREGuiaFR1;


                          ACBrGNRE1.GuiasRetorno.LoadFromFile(ACBrGNRE1.Configuracoes.Arquivos.PathArqTXT + ACBrGNRE1.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica + '-gnre.txt');
                          ACBrGNREGuiaFR1.FastFile := ExtractFilePath('GNRE_GUIA.fr3');

                          ACBrGNRE1.GuiasRetorno.Imprimir;
                          ACBrGNRE1.GuiasRetorno.ImprimirPDF;
                        end
                    else
                          ShowMessage(UTF8Encode(ACBrGNRE1.WebServices.Retorno.RetWS));
             except
                   // Caso haja um erro ao tentar gravar o registro
                    on E: Exception do
                      begin
                           if (pos('UF favorecida nao gera GNRE para a Receita informada',ACBrGNRE1.WebServices.Retorno.RetWS) > 0) then
                              ShowMessage('UF favorecida nao gera GNRE para a Receita informada')
                           else
                           if (pos('O Campo Extra ''Chave de Acesso da NFe ou do CTe''',ACBrGNRE1.WebServices.Retorno.RetWS) > 0) then
                              ShowMessage('O Campo Extra ''Chave de Acesso da NFe ou do CTe')
                           else
                           if (pos('Deve-se informar ou o Valor Principal ou o Valor Total',ACBrGNRE1.WebServices.Retorno.RetWS) > 0) then
                              ShowMessage('Deve-se informar ou o Valor Principal ou o Valor Total')
                           else
                           if ACBrGNRE1.WebServices.Retorno.RetWS = '' then
                              ShowMessage('Atenção. Erro ao enviar GNRE para o estado de destino. Checar se o estado esta habilitado para tal procedimento')
                           else
                              MessageDlg(ACBrGNRE1.WebServices.Retorno.descricao, mtError, [mbOK], 0);
                      end;
            end;

quando faço pelo site a guia é emitida normal com os dados abaixo

UF Favorecida:  MG
Receita:  100102 - ICMS Consumidor Final Não Contribuinte Outra UF por Operação
CPF Emitente:  465.534.286-20
Razão Social Emitente:  MAURO CESAR FERREIRA
Endereco Emitente:  RUA JOSE EUSTAQUIO CARDOSO 50
UF Emitente:  MG
Município Emitente:  04007 - ARAXA
CEP Emitente:  38181-166
Telefone Emitente:  
Tipo Doc. de Origem:  NOTA FISCAL
Documento de Origem:  00031036
Convênio:  41/20008
Data de Vencimento:  21/01/2019
Data de Pagamento:  21/01/2019
Valor Principal:  R$ 0,90    

GNRE_Lote_1907507229.pdf

guia.txt

Lote_2019_01_21_02_39.txt

Link to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.