Jump to content

Gerar guias para MT


Fernando Rodrigo
  • Este tópico foi criado há 1970 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 to comment
Share on other sites

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