Ir para conteúdo
  • Cadastre-se

dev botao

Gerar guias para MT


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

Recommended Posts

Estou tentando enviar as guias para MT, estou preenchendo os campos que são obrigatorio tomando como base o site

quando tento fazer o envio é emitido um exception e não traz nenhuma mensagem de erro, a mensagem vem vazia

Existe alguma particularidade para Mato Grosso, alem das que existem no site ?

 

 

              try
                    if ACBrGNRE1.Enviar(False) then
                        begin
                          ACBrGNRE1.GuiasRetorno.Clear;
                          ACBrGNRE1.GuiasRetorno.LoadFromFile(ACBrGNRE1.Configuracoes.Arquivos.PathArqTXT + ACBrGNRE1.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica + '-gnre.txt');
                          TACBrGNREGuiaFR(ACBrGNRE1.GNREGuia).FastFile := ExtractFilePath(CONF_NFEDANFE_NFE.AsString) + '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
                                  MessageDlg(ACBrGNRE1.WebServices.Retorno.descricao, mtError, [mbOK], 0);
                          end;
                end;
 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2565 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.