Ir para conteúdo
  • Cadastre-se

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

Recommended Posts

Postado

Um exemplo de como estou utilizando:

 

hLog.Add(DateTimeToStr(now) + ' - ENVIAR MANIFESTAÇÃO');

IF NOT Solicitamonitor('NFE.ENVIAREVENTO("[EVENTO]'

   + ' idLote=1' + chr(13)

   + ' [EVENTO001]' + chr(13)

   + ' chNFe=' + Trim(Modulo.AdNFE_DestinadaschNFe.Value) + chr(13)

   + ' CNPJ=' + Trim(Modulo.ADOEmitente.FieldByName('CNPJCPF').AsString) + chr(13)

   + ' dhEvento=' + DateTimeToStr(IncMinute(NOW, -30)) + chr(13) // <<== garantir 30 minutos de defasagem e não conflitar com servidor da SEFAZ

   + ' tpEvento=' + '210200' + chr(13)

   + ' nSeqEvento=1' + chr(13)

   + ' versaoEvento=1.00' + '")'

   ) THEN

   BEGIN

      hLog.Add(DateTimeToStr(now) + ' - ' + Modulo.User + ', ocorreu uma falha no Webservice da SEFAZ. Analise a mensagem de retorno.');

      hLog.Add('BtConfirma');

      BtAguarde.Visible := False;

      BtAguarde.SendToBack;

      IF FileExists(ArqComando) THEN DeleteFile(PChar(ArqComando)); IF FileExists(ArqResp) THEN DeleteFile(PChar(ArqResp));

      RAISE Exception.Create(Modulo.User + ', ocorreu uma falha no Webservice da SEFAZ. Analise a mensagem de retorno.');

   END

ELSE

   BEGIN

      // ************************************************************************************************************************************************************

      hLog.Add(DateTimeToStr(now) + ' - ARMAZENA EVENTO NO BANCO DE DADOS');

      // ARMAZENA EVENTO NO BANCO DE DADOS

      WITH Tadocommand.Create(Self) DO

         BEGIN

            Connection := Modulo.Adoconnection;

            Commandtype := Cmdtext;

            Commandtext := 'Insert Into AdNotaEntEventos ( ' +

               'Cod_Empresa, ' +

               'Cod_Filial, ' +

               'Cod_Fornec, ' +

               'Cod_Modelo, ' +

               'Cod_Serie, ' +

               'Cod_Nota, ' +

               'ChNFe, ' +

               'DhRecbto, ' +

               'NProt, ' +

               'tpEvento, ' +

               'nSeqEvento, ' +

               'xJust, ' +

               'xCorrecao, ' +

               'xCondUso' +

               ') Values (' +

               ':Cod_Empresa, ' +

               ':Cod_Filial, ' +

               ':Cod_Fornec, ' +

               ':Cod_Modelo, ' +

               ':Cod_Serie, ' +

               ':Cod_Nota, ' +

               ':ChNFe, ' +

               ':DhRecbto, ' +

               ':NProt, ' +

               ':tpEvento, ' +

               ':nSeqEvento, ' +

               ':xJust, ' +

               ':xCorrecao, ' +

               ':xCondUso' +

               ')';

            Parameters.Paramvalues['Cod_Empresa'] := Empresa;

            Parameters.Paramvalues['Cod_Filial'] := Filial;

            Parameters.Paramvalues['Cod_Fornec'] := Cod_Fornec;

            Parameters.Paramvalues['Cod_Modelo'] := Modelo;

            Parameters.Paramvalues['Cod_Serie'] := Serie;

            Parameters.Paramvalues['Cod_Nota'] := Cod_Nota;

            Parameters.Paramvalues['ChNFe'] := Trim(Copy(chNFe, 1, 44));

            Parameters.Paramvalues['DhRecbto'] := DhRecbto;

            Parameters.Paramvalues['NProt'] := NProt;

            Parameters.Paramvalues['tpEvento'] := tpEvento;

            Parameters.Paramvalues['nSeqEvento'] := nSeqEvento;

            Parameters.Paramvalues['xJust'] := xJust;

            Parameters.Paramvalues['xCorrecao'] := xCorrecao;

            Parameters.Paramvalues['xCondUso'] := xCondUso;

            Connection.BeginTrans;

            TRY Execute;

            EXCEPT

               ON E: Exception DO

                  BEGIN

                     Connection.RollbackTrans;

                     hLog.Add(DateTimeToStr(now) + ' - ' + Modulo.User + ', ocorreu uma falha: ' + #13 + 'Erro: ' + E.Message);

                     hLog.Add('BtConfirma');

                     hLog.Add(Commandtext);

                     BtAguarde.Visible := False;

                     BtAguarde.SendToBack;

                     IF FileExists(ArqComando) THEN DeleteFile(PChar(ArqComando)); IF FileExists(ArqResp) THEN DeleteFile(PChar(ArqResp));

                     RAISE Exception.Create(Modulo.User + ', ocorreu uma falha: ' + #13 + 'Erro: ' + E.Message);

                  END;

            END;

            Connection.CommitTrans;

            Free;

         END;

  • 1 mês depois ...
  • Este tópico foi criado há 4208 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.