Ir para conteúdo
  • Cadastre-se

dev botao

gerar xml antes de enviar


  • Este tópico foi criado há 1893 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 para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.