From 100fc61d8b87578c04510efbc7b82cc20b074d2f Mon Sep 17 00:00:00 2001 From: "andrew.hardy" Date: Mon, 20 Aug 2012 08:34:52 +0000 Subject: [PATCH] Completed work on plsql_ccflag switches to allow easier testing: - force_old_address makes old contact details appear; - force_new_address makes new contact details appear; - force_old_date makes the change over date appear to be 13-aug-2012 These switches should be used exclusive to one-another. In production, no compilation switches should be used. git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@58720 248e525c-4dfb-0310-94bc-949c084e9493 --- Modules/mip_quotation_document.pck | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Modules/mip_quotation_document.pck b/Modules/mip_quotation_document.pck index 5762ce6..aa273b6 100644 --- a/Modules/mip_quotation_document.pck +++ b/Modules/mip_quotation_document.pck @@ -4,8 +4,14 @@ CREATE OR REPLACE PACKAGE mip_quotation_document IS -- Created : 15/11/2007 11:27:58 -- Purpose : Handle life-cycle of quotations + $IF $$force_old_date $THEN + gc_address_change_over_date DATE := TO_DATE('13-aug-2012' + ,'dd-mon-yyyy'); + $ELSE gc_address_change_over_date DATE := TO_DATE('20-aug-2012' ,'dd-mon-yyyy'); + $END + -- Public type declarations --type is ; TYPE caveat_text IS VARRAY(20) OF VARCHAR2(4000); @@ -244,7 +250,7 @@ CREATE OR REPLACE PACKAGE BODY mip_quotation_document IS $IF $$force_new_address $THEN RETURN FALSE; $ELSIF - $$force_old_address $THEN + $$force_old_address $THEN RETURN TRUE; $END