Manifestação Do Destinatário

[Paulo Tenório]

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;

[ArqBox]

quando estará disponível o recurso no acbrnfemonitor?

[André Ferreira de Moraes]

quando estará disponível o recurso no acbrnfemonitor?

O exemplo acima do seu post, postado pelo Paulo Tenório é no ACBrNFeMonitor.