Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

Gerar guias para MT


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