create or replace TRIGGER LOG_DEVOLUCAOPAG
AFTER DELETE OR INSERT OR UPDATE
ON DEVOLUCAOPAG FOR EACH ROW
DECLARE
  V_USUARIO      VARCHAR2(40);
  V_TIPO         VARCHAR2(1);
  V_ITPESQ       VARCHAR2(40);
  V_DESC         VARCHAR2(300);
  V_CDFILLOGOPER VARCHAR2(4);
  V_DTOPER       DATE;
  V_DSREMOTEADDR VARCHAR2(15);
  V_DSREMOTEHOST VARCHAR2(15);
  V_DSSERVERRDM  VARCHAR2(20);
  V_DSSERVMETHOD VARCHAR2(30);
  V_DSREMOTEOPER VARCHAR2(12);
BEGIN
   V_CDFILLOGOPER := '';
   IF DELETING THEN
      V_TIPO   := '3';
      V_DESC   := ' CDFILIBOLPAG  '  || :OLD.CDFILIBOLPAG                      ||
                  ' NRLANBOLPAG '    || :OLD.NRLANBOLPAG                       ||
                  ' CDAJUCTPAG '     || :OLD.CDAJUCTPAG                        ||
                  ' CDFILIAL '   	 || :OLD.CDFILIAL                          ||
                  ' NRLANCTONF ' 	 || :OLD.NRLANCTONF                        ||
                  ' VRDEVOLUCAOPAG ' || :OLD.VRDEVOLUCAOPAG                    ||
                  ' DTDEVOLUCAOPAG ' || :OLD.DTDEVOLUCAOPAG                    ||
                  ' CDREDUCONT     ' || :OLD.CDREDUCONT                        ||
						' NRMOVICRED     ' || :OLD.NRMOVICRED                        ||
						' CDREDUCONTDEBI ' || :OLD.CDREDUCONTDEBI                    ||
                  ' NRMOVIDEBI     ' || :OLD.NRMOVIDEBI;		 				
      

      V_ITPESQ := :OLD.NRDEVOLUCAOPAG;
		

   ELSE   
		V_TIPO   := '1';
		V_ITPESQ := :NEW.NRDEVOLUCAOPAG;
		V_DESC   := 'CDFILIBOLPAG  '   || :NEW.CDFILIBOLPAG                      ||
						' NRLANBOLPAG '    || :NEW.NRLANBOLPAG                       ||
						' CDAJUCTPAG '     || :NEW.CDAJUCTPAG                        ||
						' CDFILIAL '   	 || :NEW.CDFILIAL                          ||
						' NRLANCTONF ' 	 || :NEW.NRLANCTONF                        ||
						' VRDEVOLUCAOPAG ' || :NEW.VRDEVOLUCAOPAG                    ||
						' DTDEVOLUCAOPAG ' || :NEW.DTDEVOLUCAOPAG                    ||  
						' CDREDUCONT     ' || :NEW.CDREDUCONT                        ||
						' NRMOVICRED     ' || :NEW.NRMOVICRED                        ||
						' CDREDUCONTDEBI ' || :NEW.CDREDUCONTDEBI                    ||
						' NRMOVIDEBI     ' || :NEW.NRMOVIDEBI;		 				
        
      
   END IF;

   IF V_TIPO <> '0' THEN
      NMUSUARIO(V_USUARIO);
      WEBTUNNING(V_DSREMOTEADDR,
                 V_DSREMOTEHOST,
                 V_DSSERVERRDM,
                 V_DSSERVMETHOD,
                 V_DSREMOTEOPER);
      IF NOT V_DESC IS NULL THEN
         IF NOT V_USUARIO IS NULL THEN
            V_DTOPER := SYSDATE;

            INSERT INTO LOGOPERA
               (NMTABELA,   DTOPERACAO, NMRESPOPER,
                IDTIPOOPER, CDPESQITEM, DSOPERACAO,
                CDFILLOGOPER, DSRDMUSUOPER, DSENDUSUOPER,
                DSNMUSUOPER, DSMETUSUOPER, CDORESPOPER)
            VALUES
               ('DEVOLUCAOPAG', V_DTOPER, V_USUARIO,
                V_TIPO, V_ITPESQ, V_DESC,
                V_CDFILLOGOPER, V_DSSERVERRDM, V_DSREMOTEADDR,
                V_DSREMOTEHOST, V_DSSERVMETHOD, V_DSREMOTEOPER);
         END IF;
      END IF;
   END IF;
END;
/
-- VERSAO --
BEGIN ATUVEROBJ('LOG_DEVOLUCAOPAG','6.10.xxx'); END;
/
