modules/org.openbravo.advpaymentmngt/src-db/database/model/triggers/APRM_FIN_PMT_CHECK_TRG.xml
author Harpreet Singh <harpreet@openbravo.com>
Fri, 10 Dec 2010 19:47:45 +0100
changeset 9076 c4f1a5c7d7c2
child 12911 195b478bc8df
permissions -rw-r--r--
Added 3.0 modules to modules dir and changed the VERSION number
harpreet@9076
     1
<?xml version="1.0"?>
harpreet@9076
     2
  <database name="TRIGGER APRM_FIN_PMT_CHECK_TRG">
harpreet@9076
     3
    <trigger name="APRM_FIN_PMT_CHECK_TRG" table="FIN_PAYMENT" fires="before" insert="true" update="true" delete="true" foreach="row">
harpreet@9076
     4
      <body><![CDATA[
harpreet@9076
     5
harpreet@9076
     6
/************************************************************************
harpreet@9076
     7
* The contents of this file are subject to the Openbravo  Public  License
harpreet@9076
     8
* Version  1.0  (the  "License"),  being   the  Mozilla   Public  License
harpreet@9076
     9
* Version 1.1  with a permitted attribution clause; you may not  use this
harpreet@9076
    10
* file except in compliance with the License. You  may  obtain  a copy of
harpreet@9076
    11
* the License at http://www.openbravo.com/legal/license.html
harpreet@9076
    12
* Software distributed under the License  is  distributed  on  an "AS IS"
harpreet@9076
    13
* basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
harpreet@9076
    14
* License for the specific  language  governing  rights  and  limitations
harpreet@9076
    15
* under the License.
harpreet@9076
    16
* The Original Code is Openbravo ERP.
harpreet@9076
    17
* The Initial Developer of the Original Code is Openbravo SLU
harpreet@9076
    18
* All portions are Copyright (C) 2010 Openbravo SLU
harpreet@9076
    19
* All Rights Reserved.
harpreet@9076
    20
* Contributor(s):  ______________________________________.
harpreet@9076
    21
*************************************************************************/
harpreet@9076
    22
harpreet@9076
    23
v_DateNull DATE := TO_DATE('01-01-1900','DD-MM-YYYY');
harpreet@9076
    24
  
harpreet@9076
    25
BEGIN
harpreet@9076
    26
   
harpreet@9076
    27
  IF AD_isTriggerEnabled()='N' THEN RETURN;
harpreet@9076
    28
  END IF;
harpreet@9076
    29
harpreet@9076
    30
  IF (UPDATING) THEN
harpreet@9076
    31
    IF(:OLD.PROCESSED='Y' AND ((COALESCE(:OLD.AD_ORG_ID, '0') <> COALESCE(:NEW.AD_ORG_ID, '0'))
harpreet@9076
    32
      OR(COALESCE(:OLD.DOCUMENTNO, '0') <> COALESCE(:NEW.DOCUMENTNO, '0'))
harpreet@9076
    33
      OR(COALESCE(:OLD.C_CURRENCY_ID, '0') <> COALESCE(:NEW.C_CURRENCY_ID, '0'))
harpreet@9076
    34
      OR(COALESCE(:OLD.C_BPARTNER_ID, '0') <> COALESCE(:NEW.C_BPARTNER_ID, '0'))
harpreet@9076
    35
      OR(COALESCE(:OLD.FIN_PAYMENTMETHOD_ID, '0') <> COALESCE(:NEW.FIN_PAYMENTMETHOD_ID, '0'))
harpreet@9076
    36
      OR(COALESCE(:OLD.FIN_FINANCIAL_ACCOUNT_ID, '0') <> COALESCE(:NEW.FIN_FINANCIAL_ACCOUNT_ID, '0'))
harpreet@9076
    37
      OR(COALESCE(:OLD.AMOUNT, 0) <> COALESCE(:NEW.AMOUNT, 0))
harpreet@9076
    38
      OR(COALESCE(:OLD.WRITEOFFAMT, 0) <> COALESCE(:NEW.WRITEOFFAMT, 0))
harpreet@9076
    39
      OR(COALESCE(:OLD.PAYMENTDATE, v_DateNull) <> COALESCE(:NEW.PAYMENTDATE, v_DateNull)))) THEN
harpreet@9076
    40
      RAISE_APPLICATION_ERROR(-20000, '@20501@');
harpreet@9076
    41
    END IF;
harpreet@9076
    42
  END IF;
harpreet@9076
    43
  IF(INSERTING) THEN
harpreet@9076
    44
   IF(:NEW.PROCESSED='Y') THEN
harpreet@9076
    45
     RAISE_APPLICATION_ERROR(-20000, '@20501@');
harpreet@9076
    46
   END IF;
harpreet@9076
    47
  END IF;
harpreet@9076
    48
  IF(DELETING) THEN
harpreet@9076
    49
   IF(:OLD.PROCESSED='Y') THEN
harpreet@9076
    50
     RAISE_APPLICATION_ERROR(-20000, '@20501@');
harpreet@9076
    51
   END IF;
harpreet@9076
    52
  END IF;
harpreet@9076
    53
END APRM_FIN_PMT_CHECK_TRG
harpreet@9076
    54
]]></body>
harpreet@9076
    55
    </trigger>
harpreet@9076
    56
  </database>