src-db/database/model/triggers/C_INVOICELINE_TRG2.xml
author Hari Madhavan <hari.madhavan@promantia.com>
Sun, 17 Jun 2012 00:06:48 +0530
changeset 17336 19b95eb2252d
parent 9072 79e55dfc8af0
child 17348 5671a6587aa6
permissions -rw-r--r--
Implemented rounding for invoices when using inclusive of tax price
adrian@94
     1
<?xml version="1.0"?>
adrian@94
     2
  <database name="TRIGGER C_INVOICELINE_TRG2">
adrian@94
     3
    <trigger name="C_INVOICELINE_TRG2" table="C_INVOICELINE" fires="after" insert="true" update="true" delete="true" foreach="row">
gorkaion@239
     4
      <body><![CDATA[
asier@799
     5
/*************************************************************************
asier@799
     6
* The contents of this file are subject to the Openbravo  Public  License
priya@9072
     7
* Version  1.1  (the  "License"),  being   the  Mozilla   Public  License
asier@799
     8
* Version 1.1  with a permitted attribution clause; you may not  use this
asier@799
     9
* file except in compliance with the License. You  may  obtain  a copy of
asier@799
    10
* the License at http://www.openbravo.com/legal/license.html
asier@799
    11
* Software distributed under the License  is  distributed  on  an "AS IS"
asier@799
    12
* basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
asier@799
    13
* License for the specific  language  governing  rights  and  limitations
asier@799
    14
* under the License.
asier@799
    15
* The Original Code is Openbravo ERP.
ggi@6701
    16
* The Initial Developer of the Original Code is Openbravo SLU
ggi@6701
    17
* All portions are Copyright (C) 2001-2008 Openbravo SLU
asier@799
    18
* All Rights Reserved.
asier@799
    19
* Contributor(s):  ______________________________________.
asier@799
    20
************************************************************************/
gorkaion@239
    21
adrian@170
    22
adrian@94
    23
adrian@94
    24
adrian@94
    25
adrian@94
    26
   TYPE RECORD IS REF CURSOR;
adrian@94
    27
   Cur_Offer RECORD;
adrian@94
    28
juanpablo@1605
    29
  v_InvoiceLine_Offer_ID VARCHAR2(32);
antonio@735
    30
  v_lineno NUMBER:=0;
adrian@94
    31
  v_Price NUMBER;
adrian@94
    32
  v_PriceNew NUMBER;
adrian@94
    33
  v_Amt NUMBER;
juanpablo@1605
    34
  v_BPartner_ID VARCHAR2(32);
juanpablo@1605
    35
  v_Order_ID VARCHAR2(32);
adrian@94
    36
  v_Insert BOOLEAN :=FALSE;
adrian@94
    37
  v_DateInvoiced DATE;
adrian@94
    38
  v_Precision NUMBER;
juanpablo@1605
    39
  v_PriceList_ID VARCHAR2(32);
eduardo@6017
    40
  v_Processed C_ORDER.PROCESSED%TYPE;
eduardo@6017
    41
  v_ID VARCHAR2(32);
harikrishnan@7567
    42
  v_Issotrx CHAR(1);
harikrishnan@7567
    43
  v_pricecancelAD CHAR(1);
eduardo@6017
    44
  v_oldLine NUMBER;
eduardo@6017
    45
  v_newLineNetAmt NUMBER;
eduardo@6017
    46
  v_newLineAlternate NUMBER;
eduardo@6017
    47
  v_taxAmt NUMBER;
eduardo@6017
    48
  v_Prec C_CURRENCY.STDPRECISION%TYPE;
harikrishnan@7567
    49
  v_BaseAmount C_TAX.BASEAMOUNT%TYPE;  
hari@17336
    50
  v_istaxincluded CHAR(1) ;
hari@17336
    51
  v_oldGrossAmt NUMBER:=0;
hari@17336
    52
  v_newGrossAmt NUMBER:=0;
hari@17336
    53
  v_totallines NUMBER:=0;
hari@17336
    54
  v_grandtotal NUMBER:=0;
hari@17336
    55
        
adrian@94
    56
BEGIN
asier@2084
    57
    
asier@2084
    58
    IF AD_isTriggerEnabled()='N' THEN RETURN;
asier@2078
    59
    END IF;
asier@2078
    60
asier@2078
    61
adrian@94
    62
-- This trigger is used for calculate the applied offers f0r the invoice
adrian@94
    63
eduardo@6017
    64
IF (DELETING) THEN
eduardo@6017
    65
  v_ID:=:OLD.C_INVOICE_ID;
eduardo@6017
    66
ELSE
eduardo@6017
    67
  v_ID:=:NEW.C_INVOICE_ID;
eduardo@6017
    68
END IF;
adrian@94
    69
adrian@94
    70
 IF UPDATING THEN
juanpablo@1605
    71
  IF (    (COALESCE(:NEW.M_Product_ID,'0') != COALESCE(:OLD.M_Product_ID,'0'))
adrian@94
    72
    OR (COALESCE(:NEW.PriceActual,0) != COALESCE(:OLD.PriceActual,0))
adrian@94
    73
    OR (COALESCE(:NEW.QtyInvoiced,0) != COALESCE(:OLD.QtyInvoiced,0))) THEN
adrian@94
    74
  DELETE FROM C_INVOICELINE_OFFER
adrian@94
    75
   WHERE C_InvoiceLine_ID = :NEW.C_InvoiceLine_ID;
adrian@94
    76
   v_Insert := TRUE;
adrian@94
    77
   END IF;
adrian@94
    78
 END IF;
adrian@94
    79
adrian@94
    80
 IF INSERTING OR v_Insert THEN
hari@17336
    81
   SELECT C_BPartner_ID, dateInvoiced, priceprecision, i.M_PriceList_ID,p.istaxincluded
hari@17336
    82
    INTO v_BPartner_ID, v_DateInvoiced, v_Precision, v_PriceList_ID, v_istaxincluded
hari@17336
    83
     FROM C_INVOICE i
hari@17336
    84
             JOIN m_pricelist p ON i.m_pricelist_id = p.m_pricelist_id,
hari@17336
    85
adrian@94
    86
          C_CURRENCY c
hari@17336
    87
          
adrian@94
    88
   WHERE C_Invoice_ID = :NEW.C_Invoice_ID
adrian@94
    89
     AND i.C_Currency_ID = c.C_Currency_ID;
adrian@94
    90
hari@17336
    91
   IF (v_istaxincluded = 'Y') THEN
hari@17336
    92
     IF (DELETING) THEN
hari@17336
    93
        v_oldgrossamt := :old.line_gross_amount;
hari@17336
    94
     ELSIF (UPDATING) THEN
hari@17336
    95
        v_oldgrossamt := :old.line_gross_amount;
hari@17336
    96
        v_newgrossamt := :new.line_gross_amount;
hari@17336
    97
     ELSE
hari@17336
    98
        v_newgrossamt := :new.line_gross_amount;
hari@17336
    99
     END IF;
hari@17336
   100
   END IF;
adrian@94
   101
hari@17336
   102
 
adrian@94
   103
   --Get the new "std" price from the Actual price (if actual price is the std price they will be equal)
adrian@94
   104
   v_Price := :NEW.PriceActual;
adrian@94
   105
    FOR Cur_Offer IN (SELECT M_OFFER_ID
adrian@94
   106
         FROM M_OFFER
gorkaion@280
   107
         WHERE v_DateInvoiced BETWEEN DATEFROM AND COALESCE(DATETO,TO_DATE('31-12-9999','DD-MM-YYYY'))
adrian@94
   108
   AND IsActive = 'Y'
gorkaion@239
   109
   AND (:NEW.QtyInvoiced >= COALESCE(Qty_From,0) OR Qty_From IS NULL)
gorkaion@239
   110
   AND (:NEW.QtyInvoiced <= COALESCE(Qty_To,0) OR Qty_To IS NULL)
adrian@94
   111
   AND ((PRICELIST_SELECTION='Y' AND NOT EXISTS (SELECT 1 FROM M_OFFER_PRICELIST
adrian@94
   112
           WHERE M_OFFER_ID=M_OFFER.M_OFFER_ID
adrian@94
   113
           AND M_PRICELIST_ID = v_PriceList_ID))
adrian@94
   114
     OR (PRICELIST_SELECTION='N' AND EXISTS(SELECT 1 FROM M_OFFER_PRICELIST
adrian@94
   115
            WHERE M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   116
            AND M_PRICELIST_ID = v_PriceList_ID)))
adrian@94
   117
         AND ((BPARTNER_SELECTION='Y' AND NOT EXISTS (SELECT 1 FROM M_OFFER_BPARTNER
adrian@94
   118
           WHERE M_OFFER_ID=M_OFFER.M_OFFER_ID
adrian@94
   119
           AND C_BPARTNER_ID = v_BPartner_ID))
adrian@94
   120
         OR (BPARTNER_SELECTION='N' AND EXISTS(SELECT 1 FROM M_OFFER_BPARTNER
adrian@94
   121
            WHERE M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   122
            AND C_BPARTNER_ID = v_BPartner_ID)))
adrian@94
   123
         AND ((BP_GROUP_SELECTION='Y' AND NOT EXISTS (SELECT 1 FROM C_BPARTNER B, M_OFFER_BP_GROUP OB
adrian@94
   124
           WHERE OB.M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   125
           AND B.C_BPARTNER_ID = v_BPartner_ID
adrian@94
   126
           AND OB.C_BP_GROUP_ID = B.C_BP_GROUP_ID))
adrian@94
   127
         OR (BP_GROUP_SELECTION='N' AND EXISTS (SELECT 1 FROM C_BPARTNER B, M_OFFER_BP_GROUP OB
adrian@94
   128
           WHERE OB.M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   129
           AND B.C_BPARTNER_ID = v_BPartner_ID
adrian@94
   130
           AND OB.C_BP_GROUP_ID = B.C_BP_GROUP_ID)))
adrian@94
   131
         AND ((PRODUCT_SELECTION='Y' AND NOT EXISTS (SELECT 1 FROM M_OFFER_PRODUCT
adrian@94
   132
           WHERE M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   133
           AND M_PRODUCT_ID = :NEW.M_PRODUCT_ID))
adrian@94
   134
         OR (PRODUCT_SELECTION='N' AND EXISTS (SELECT 1 FROM M_OFFER_PRODUCT
adrian@94
   135
            WHERE M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   136
            AND M_PRODUCT_ID = :NEW.M_PRODUCT_ID)))
adrian@94
   137
         AND ((PROD_CAT_SELECTION='Y' AND NOT EXISTS (SELECT 1 FROM M_PRODUCT P, M_OFFER_PROD_CAT OP
adrian@94
   138
           WHERE OP.M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   139
           AND P.M_PRODUCT_ID = :NEW.M_PRODUCT_ID
adrian@94
   140
           AND OP.M_PRODUCT_CATEGORY_ID = P.M_PRODUCT_CATEGORY_ID))
adrian@94
   141
         OR (PROD_CAT_SELECTION='N' AND EXISTS (SELECT 1 FROM M_PRODUCT P, M_OFFER_PROD_CAT OP
adrian@94
   142
           WHERE OP.M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   143
           AND P.M_PRODUCT_ID = :NEW.M_PRODUCT_ID
adrian@94
   144
           AND OP.M_PRODUCT_CATEGORY_ID = P.M_PRODUCT_CATEGORY_ID)))
adrian@94
   145
         ORDER BY PRIORITY DESC, M_OFFER_ID) LOOP
adrian@94
   146
    v_Price := M_Get_Offer_Std_Price(Cur_Offer.M_Offer_ID, v_Price);
adrian@94
   147
   END LOOP;
adrian@94
   148
adrian@94
   149
   FOR Cur_Offer IN (SELECT M_OFFER_ID
adrian@94
   150
    FROM M_OFFER
gorkaion@280
   151
    WHERE v_DateInvoiced BETWEEN DATEFROM AND COALESCE(DATETO,TO_DATE('31-12-9999','DD-MM-YYYY'))
adrian@94
   152
 AND IsActive = 'Y'
gorkaion@239
   153
 AND (:NEW.QtyInvoiced >= COALESCE(Qty_From,0) OR Qty_From IS NULL)
gorkaion@239
   154
   AND (:NEW.QtyInvoiced <= COALESCE(Qty_To,0) OR Qty_To IS NULL)
adrian@94
   155
   AND ((PRICELIST_SELECTION='Y' AND NOT EXISTS (SELECT 1 FROM M_OFFER_PRICELIST
adrian@94
   156
           WHERE M_OFFER_ID=M_OFFER.M_OFFER_ID
adrian@94
   157
           AND M_PRICELIST_ID = v_PriceList_ID))
adrian@94
   158
     OR (PRICELIST_SELECTION='N' AND EXISTS(SELECT 1 FROM M_OFFER_PRICELIST
adrian@94
   159
            WHERE M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   160
            AND M_PRICELIST_ID = v_PriceList_ID)))
adrian@94
   161
    AND ((BPARTNER_SELECTION='Y' AND NOT EXISTS (SELECT 1 FROM M_OFFER_BPARTNER
adrian@94
   162
      WHERE M_OFFER_ID=M_OFFER.M_OFFER_ID
adrian@94
   163
      AND C_BPARTNER_ID = v_BPartner_ID))
adrian@94
   164
    OR (BPARTNER_SELECTION='N' AND EXISTS(SELECT 1 FROM M_OFFER_BPARTNER
adrian@94
   165
       WHERE M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   166
       AND C_BPARTNER_ID = v_BPartner_ID)))
adrian@94
   167
    AND ((BP_GROUP_SELECTION='Y' AND NOT EXISTS (SELECT 1 FROM C_BPARTNER B, M_OFFER_BP_GROUP OB
adrian@94
   168
      WHERE OB.M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   169
      AND B.C_BPARTNER_ID = v_BPartner_ID
adrian@94
   170
      AND OB.C_BP_GROUP_ID = B.C_BP_GROUP_ID))
adrian@94
   171
    OR (BP_GROUP_SELECTION='N' AND EXISTS (SELECT 1 FROM C_BPARTNER B, M_OFFER_BP_GROUP OB
adrian@94
   172
      WHERE OB.M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   173
      AND B.C_BPARTNER_ID = v_BPartner_ID
adrian@94
   174
      AND OB.C_BP_GROUP_ID = B.C_BP_GROUP_ID)))
adrian@94
   175
    AND ((PRODUCT_SELECTION='Y' AND NOT EXISTS (SELECT 1 FROM M_OFFER_PRODUCT
adrian@94
   176
      WHERE M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   177
      AND M_PRODUCT_ID = :NEW.M_PRODUCT_ID))
adrian@94
   178
    OR (PRODUCT_SELECTION='N' AND EXISTS (SELECT 1 FROM M_OFFER_PRODUCT
adrian@94
   179
       WHERE M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   180
       AND M_PRODUCT_ID = :NEW.M_PRODUCT_ID)))
adrian@94
   181
    AND ((PROD_CAT_SELECTION='Y' AND NOT EXISTS (SELECT 1 FROM M_PRODUCT P, M_OFFER_PROD_CAT OP
adrian@94
   182
      WHERE OP.M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   183
      AND P.M_PRODUCT_ID = :NEW.M_PRODUCT_ID
adrian@94
   184
      AND OP.M_PRODUCT_CATEGORY_ID = P.M_PRODUCT_CATEGORY_ID))
adrian@94
   185
    OR (PROD_CAT_SELECTION='N' AND EXISTS (SELECT 1 FROM M_PRODUCT P, M_OFFER_PROD_CAT OP
adrian@94
   186
      WHERE OP.M_OFFER_ID = M_OFFER.M_OFFER_ID
adrian@94
   187
      AND P.M_PRODUCT_ID = :NEW.M_PRODUCT_ID
adrian@94
   188
      AND OP.M_PRODUCT_CATEGORY_ID = P.M_PRODUCT_CATEGORY_ID)))
adrian@94
   189
    ORDER BY PRIORITY, M_OFFER_ID DESC) LOOP
adrian@94
   190
   Ad_Sequence_Next('C_InvoiceLine_Offer', :NEW.AD_Client_ID, v_InvoiceLine_Offer_ID);
adrian@94
   191
   v_lineno := v_lineno + 10;
adrian@94
   192
   v_PriceNew := M_Get_Offer_Price(Cur_Offer.M_Offer_ID, v_Price);
adrian@94
   193
   v_Amt := v_Price - v_PriceNew;
harikrishnan@7567
   194
   v_pricecancelAD := 'N';
harikrishnan@7567
   195
	IF(:NEW.C_ORDERLINE_ID IS NOT NULL) THEN
harikrishnan@7579
   196
	  	SELECT o.issotrx,ol.CancelPriceAD into v_Issotrx,v_pricecancelAD FROM C_ORDER o,C_ORDERLINE ol WHERE ol.C_ORDERLINE_ID = :NEW.C_ORDERLINE_ID AND o.C_ORDER_ID = ol.C_ORDER_ID;
harikrishnan@7579
   197
		IF((v_Issotrx = 'Y' AND v_pricecancelAD <> 'Y') OR v_Issotrx = 'N') THEN
harikrishnan@7579
   198
		   INSERT INTO C_INVOICELINE_OFFER
harikrishnan@7579
   199
		       (C_INVOICELINE_OFFER_ID, AD_CLIENT_ID, AD_ORG_ID, ISACTIVE,
harikrishnan@7579
   200
		      CREATED, CREATEDBY, UPDATED, UPDATEDBY,
harikrishnan@7579
   201
		      C_INVOICELINE_ID, LINE, M_OFFER_ID, PRICEOFFER, AMTOFFER)
harikrishnan@7579
   202
		   VALUES
harikrishnan@7579
   203
		       (v_InvoiceLine_Offer_ID, :NEW.AD_Client_ID, :NEW.AD_Org_ID, :NEW.IsActive,
harikrishnan@7579
   204
		      now(),:NEW.CreatedBy, now(),:NEW.UpdatedBy,
harikrishnan@7579
   205
		     :NEW.C_InvoiceLine_ID, v_lineno, Cur_Offer.M_Offer_Id, ROUND(v_Price,v_Precision), ROUND(v_Amt, v_Precision));
harikrishnan@7579
   206
	     END IF;
harikrishnan@7579
   207
    ELSE
harikrishnan@7579
   208
    	INSERT INTO C_INVOICELINE_OFFER
adrian@94
   209
       (C_INVOICELINE_OFFER_ID, AD_CLIENT_ID, AD_ORG_ID, ISACTIVE,
adrian@94
   210
      CREATED, CREATEDBY, UPDATED, UPDATEDBY,
adrian@94
   211
      C_INVOICELINE_ID, LINE, M_OFFER_ID, PRICEOFFER, AMTOFFER)
harikrishnan@7579
   212
   	VALUES
adrian@94
   213
       (v_InvoiceLine_Offer_ID, :NEW.AD_Client_ID, :NEW.AD_Org_ID, :NEW.IsActive,
antonio@735
   214
      now(),:NEW.CreatedBy, now(),:NEW.UpdatedBy,
adrian@94
   215
     :NEW.C_InvoiceLine_ID, v_lineno, Cur_Offer.M_Offer_Id, ROUND(v_Price,v_Precision), ROUND(v_Amt, v_Precision));
harikrishnan@7579
   216
    END IF;
adrian@94
   217
    v_Price := v_PriceNew;
adrian@94
   218
  END LOOP;
adrian@94
   219
 END IF;
adrian@94
   220
eduardo@6017
   221
  /**************************************************************************
eduardo@6017
   222
   * Calculate Tax, etc.
eduardo@6017
   223
   */
eduardo@6017
   224
 SELECT processed, stdPrecision
eduardo@6017
   225
   INTO v_Processed, v_Prec
eduardo@6017
   226
 FROM C_Invoice, C_Currency
eduardo@6017
   227
 WHERE C_Invoice.C_Currency_ID = C_Currency.C_Currency_ID
eduardo@6017
   228
 AND C_Invoice_ID=v_ID;
eduardo@6017
   229
 v_oldLine:=0;
eduardo@6017
   230
 v_newLineNetAmt:=0;
eduardo@6017
   231
 IF(v_Processed='N') THEN
eduardo@6017
   232
  -- Calculate taxes
harikrishnan@7382
   233
  IF(UPDATING OR DELETING) THEN
eduardo@6017
   234
  v_oldLine:= COALESCE(:old.LineNetAmt,0);
eduardo@6017
   235
  END IF;  
eduardo@6017
   236
  IF (INSERTING OR UPDATING) THEN
eduardo@6017
   237
   DELETE FROM C_INVOICELINETAX WHERE C_INVOICELINE_ID = :new.C_InvoiceLine_ID;
eduardo@6017
   238
   v_newLineNetAmt := COALESCE(:new.LineNetAmt,0);
eduardo@6017
   239
   v_newLineAlternate := COALESCE(:new.TaxBaseAmt,0);
eduardo@6054
   240
   IF(:new.C_Tax_ID IS NOT NULL) THEN
eduardo@6054
   241
     SELECT BaseAmount INTO v_BaseAmount
eduardo@6054
   242
     FROM C_TAX
eduardo@6054
   243
     WHERE C_TAX_ID = :new.C_Tax_ID;
eduardo@6054
   244
     C_INVOICELINETAX_INSERT(:new.AD_Org_ID, :new.C_Invoice_ID, :new.C_InvoiceLine_ID, :new.UpdatedBy, :new.C_Tax_ID, :new.C_Tax_ID, v_newLineNetAmt, v_newLineAlternate, v_Prec);
hari@17336
   245
     IF (v_istaxincluded = 'Y') THEN
hari@17336
   246
        C_INVOICELINETAX_ROUNDING(:new.C_InvoiceLine_ID, :new.line_gross_amount, v_newLineNetAmt);
hari@17336
   247
     END IF;
hari@17336
   248
    
eduardo@6054
   249
   END IF;
eduardo@6017
   250
  -- Get Total Tax Amt
eduardo@6017
   251
   SELECT SUM(TaxAmt)
eduardo@6017
   252
     INTO v_taxAmt
eduardo@6017
   253
   FROM C_InvoiceTax
eduardo@6017
   254
   WHERE C_Invoice_ID=:new.C_Invoice_ID;
eduardo@6017
   255
  -- DBMS_OUTPUT.PUT_LINE('TaxAmt = ' || v_taxAmt);
eduardo@6017
   256
   -- Update Header
hari@17336
   257
       -- Get Total Tax Amt
eduardo@6017
   258
   UPDATE C_Invoice
eduardo@6017
   259
     SET TotalLines = TotalLines - v_oldLine + v_newLineNetAmt,
hari@17336
   260
     GrandTotal = CASE v_istaxincluded
hari@17336
   261
                     WHEN 'Y' THEN grandtotal - v_oldgrossamt + v_newgrossamt
hari@17336
   262
                     ELSE TotalLines - v_oldLine + v_newLineNetAmt + COALESCE(v_taxAmt, 0)
hari@17336
   263
                  END
eduardo@6017
   264
   --  Updated = SysDate -- Don't update as otherwise it does not save changes
eduardo@6017
   265
   WHERE C_Invoice_ID = :new.C_Invoice_ID;
eduardo@6017
   266
  ELSE -- DELETING
eduardo@6017
   267
   SELECT SUM(TaxAmt)
eduardo@6017
   268
     INTO v_taxAmt
eduardo@6017
   269
   FROM C_InvoiceTax
eduardo@6017
   270
   WHERE C_Invoice_ID=:old.C_Invoice_ID;
eduardo@6017
   271
  -- DBMS_OUTPUT.PUT_LINE('TaxAmt = ' || v_taxAmt);
eduardo@6017
   272
   -- Update Header
eduardo@6017
   273
   UPDATE C_Invoice
eduardo@6017
   274
     SET TotalLines = TotalLines - v_oldLine + v_newLineNetAmt,
hari@17336
   275
     GrandTotal = CASE v_istaxincluded
hari@17336
   276
                       WHEN 'Y' THEN grandtotal - v_oldgrossamt
hari@17336
   277
                       ELSE TotalLines - v_oldLine + v_newLineNetAmt + COALESCE(v_taxAmt, 0)
hari@17336
   278
                  END
eduardo@6017
   279
   --  Updated = SysDate -- Don't update as otherwise it does not save changes
eduardo@6017
   280
   WHERE C_Invoice_ID=:old.C_Invoice_ID;
eduardo@6017
   281
  END IF;
hari@17336
   282
  IF (v_istaxincluded = 'Y') THEN
hari@17336
   283
    SELECT totallines, grandtotal INTO v_totallines, v_grandtotal
hari@17336
   284
    FROM c_invoice
hari@17336
   285
    WHERE c_invoice_id = v_id;
hari@17336
   286
    IF (v_totallines <> 0) THEN
hari@17336
   287
      C_INVOICETAX_ROUNDING(v_id, v_grandtotal, v_totallines);
hari@17336
   288
    END IF;
hari@17336
   289
  END IF;
hari@17336
   290
  
eduardo@6017
   291
 END IF;
eduardo@6017
   292
eduardo@6017
   293
antonio@735
   294
END C_INVOICELINE_TRG2
gorkaion@239
   295
]]></body>
adrian@94
   296
    </trigger>
adrian@94
   297
  </database>