fmb_supplier_agreement: 19 programs convert in part
Shortest first. Left, the PL/SQL as the form holds it. Right, the clauses in the vocabulary’s spelling and, under them, each refused statement with the converter’s reason. 5 of them are program units, headed on unit: a unit’s refusals belong to the unit and are finished there once, and a caller that inlined one links to it rather than asking for the same work again.
1. fmb_supplier_agreementPRE-UPDATE on T_SUPP_CONTRACT_ITEMALLOCstudy
What you havePRE-UPDATE
:Suppci_Edt_User := :Global.User;
Select Sysdate Into :Suppci_Edt_Dt From Dual;
Select Userenv('TERMINAL') Into :Suppci_Edt_Terminal From Dual;What you getClause Rule Language
on save update: set SUPPCI_EDT_USER to GLOBAL.USER set SUPPCI_EDT_DT to sysdate() # 1 statement did not convert.# line 3 # Select Userenv('TERMINAL') Into :Suppci_Edt_Terminal From Dual; # reason: USERENV is one of PL/SQL's own verbs, one of SQL's scalar functions or a built-in package, so it is not a database object a FormConnect entry is written for and there is no body here to inline under the caller's point and item either
2 clauses converted, 1 statement refused
2. fmb_supplier_agreementPRE-UPDATE on T_SUPP_CONTRACTstudy
What you havePRE-UPDATE
:Suppc_Edt_User := :Global.User;
Select Sysdate Into :Suppc_Edt_Dt From Dual;
Select Userenv('TERMINAL') Into :Suppc_Edt_Terminal From Dual;
If :Suppc_Auto_Renewal ='Y' Then
If Nvl(:Suppc_Auto_Renew_Days,0) = 0 Then
Show_Message('Alert1', 'Auto renew days cannot be zero/null!');
Raise Form_Trigger_Failure;
End If;
End If;What you getClause Rule Language
on save update: set SUPPC_EDT_USER to GLOBAL.USER set SUPPC_EDT_DT to sysdate() deny when (SUPPC_AUTO_RENEWAL = 'Y') and (nvl(SUPPC_AUTO_RENEW_DAYS, 0) = 0) else "Auto renew days cannot be zero/null!" # 1 statement did not convert.# line 3 # Select Userenv('TERMINAL') Into :Suppc_Edt_Terminal From Dual; # reason: USERENV is one of PL/SQL's own verbs, one of SQL's scalar functions or a built-in package, so it is not a database object a FormConnect entry is written for and there is no body here to inline under the caller's point and item either
3 clauses converted, 1 statement refused
3. fmb_supplier_agreementWHEN-BUTTON-PRESSED on T_SUPP_CONTRACT.PB_PREVIEWstudy
What you haveWHEN-BUTTON-PRESSED
Declare
Rep_Url Varchar2(2000);
Host Varchar2(2000);
V_Count Number;
V_Count1 Number;
V_Id Number;
V_Type Varchar2(2);
v_url Varchar2(200);
Begin
v_url := :Frm_IMAGE_URL;
Insert Into T_Image_Load (Imgl_Id,Imgl_Doc_Code,Imgl_Doc_Name,Imgl_Load_Type,Imgl_Cr_User,Imgl_Cr_Date)
Values (Fn_Get_Next_Id('Emp_Image_Load'),:Suppc_Loc_Code ||:Suppc_Type_Flag||:Suppc_No,:SUPPC_TYPE_NAME,'P',:Global.User, Sysdate);
Standard.Commit;
Rep_Url :='http://'|| v_url ||'/Filescan.Aspx?Code='||Fn_Get_Image_Id(:Suppc_Loc_Code ||:Suppc_Type_Flag||:Suppc_No)||'&cmp='||:Frm_Img_Db_String;
Web.Show_Document(Rep_Url,'_Blank');
message(Rep_Url);
End;What you getClause Rule Language
on press of PB_PREVIEW: call WRITE_T_IMAGE_LOAD_500F3520(SUPPC_LOC_CODE, SUPPC_TYPE_FLAG, SUPPC_NO, SUPPC_TYPE_NAME, GLOBAL.USER) warn (((('http://' || FRM_IMAGE_URL) || '/Filescan.Aspx?Code=') || FN_GET_IMAGE_ID((SUPPC_LOC_CODE || SUPPC_TYPE_FLAG) || SUPPC_NO)) || '&cmp=') || FRM_IMG_DB_STRING # 2 statements did not convert.# line 13 # Standard.Commit; # reason: G13: mid-trigger DML and the transaction boundary are refused, not converted# line 15 # Web.Show_Document(Rep_Url,'_Blank'); # reason: Web.Show_Document opens a URL and runs no report; the corpus sites that are not the delivery of a claimed run open a scanned image, which has no web equivalent
2 clauses converted, 2 statements refused
4. fmb_supplier_agreementWHEN-BUTTON-PRESSED on T_SUPP_CONTRACT.PB_SCANstudy
What you haveWHEN-BUTTON-PRESSED
Declare
Rep_Url Varchar2(2000);
Host Varchar2(2000);
V_Count Number;
V_Count1 Number;
V_Id Number;
V_Type Varchar2(2);
v_url Varchar2(200);
Begin
v_url := :Frm_IMAGE_URL;
Insert Into T_Image_Load (Imgl_Id,Imgl_Doc_Code,Imgl_Doc_Name,Imgl_Load_Type,Imgl_Cr_User,Imgl_Cr_Date)
Values (Fn_Get_Next_Id('Emp_Image_Load'),:Suppc_Loc_Code ||:Suppc_Type_Flag||:Suppc_No,:SUPPC_TYPE_NAME,'N',:Global.User, Sysdate);
Standard.Commit;
Rep_Url :='http://'|| v_url ||'/Filescan.aspx?Code='||Fn_Get_Image_Id(:Suppc_Loc_Code ||:Suppc_Type_Flag||:Suppc_No)||'&cmp='||:Frm_Img_Db_String;
Web.Show_Document(Rep_Url,'_Blank');
message(Rep_Url);
End;What you getClause Rule Language
on press of PB_SCAN: call WRITE_T_IMAGE_LOAD_2DDFE962(SUPPC_LOC_CODE, SUPPC_TYPE_FLAG, SUPPC_NO, SUPPC_TYPE_NAME, GLOBAL.USER) warn (((('http://' || FRM_IMAGE_URL) || '/Filescan.aspx?Code=') || FN_GET_IMAGE_ID((SUPPC_LOC_CODE || SUPPC_TYPE_FLAG) || SUPPC_NO)) || '&cmp=') || FRM_IMG_DB_STRING # 2 statements did not convert.# line 13 # Standard.Commit; # reason: G13: mid-trigger DML and the transaction boundary are refused, not converted# line 15 # Web.Show_Document(Rep_Url,'_Blank'); # reason: Web.Show_Document opens a URL and runs no report; the corpus sites that are not the delivery of a claimed run open a scanned image, which has no web equivalent
2 clauses converted, 2 statements refused
5. fmb_supplier_agreementWHEN-BUTTON-PRESSED on CTRL_ITEMLOAD.PB_LOADstudy
What you haveWHEN-BUTTON-PRESSED
Declare
V_Cnt Number;
Begin
Go_Block('Ctrl_Itemload');
First_Record;
Last_Record;
V_Cnt:=:System.Trigger_Record;
First_Record;
For I In 1..V_Cnt Loop
If :Ctrl_Itemload.load='Y' Then
:T_Supp_Contract_Itemalloc.Suppci_Item_Code:=:Ctrl_Itemload.Item_Code;
End If;
Go_Block('Ctrl_Itemload');
Next_Record;
Go_Block('T_Supp_Contract_Itemalloc');
If :T_Supp_Contract_Itemalloc.Suppci_Item_Code Is Not Null Then
Next_Record;
End If;
End Loop;
End;
What you getClause Rule Language
on press of PB_LOAD: go to CTRL_ITEMLOAD last record of CTRL_ITEMLOAD first record of CTRL_ITEMLOAD # 1 statement did not convert.# line 9 # For I In 1..V_Cnt Loop # If :Ctrl_Itemload.load='Y' Then # :T_Supp_Contract_Itemalloc.Suppci_Item_Code:=:Ctrl_Itemload.Item_Code; # End If; # Go_Block('Ctrl_Itemload'); # Next_Record; # Go_Block('T_Supp_Contract_Itemalloc'); # If :T_Supp_Contract_Itemalloc.Suppci_Item_Code Is Not Null Then # Next_Record; # End If; # End Loop; # reason: it moves to CTRL_ITEMLOAD and T_SUPP_CONTRACT_ITEMALLOC inside the loop, so it acts on two blocks in one body and a collection operation names one collection
3 clauses converted, 1 statement refused
6. fmb_supplier_agreementWHEN-BUTTON-PRESSED on CTRL_BRANDLOAD.PB_LOAD1study
What you haveWHEN-BUTTON-PRESSED
Declare
V_Cnt Number;
Begin
Go_Block('Ctrl_Brandload');
First_Record;
Last_Record;
V_Cnt:=:System.Trigger_Record;
First_Record;
For I In 1..V_Cnt Loop
If :Ctrl_Brandload.Load1 = 'Y' Then
:T_Supp_Contract_Itemalloc.Suppci_Brand_Code := :Ctrl_Brandload.Brand_Code;
:T_Supp_Contract_Itemalloc.Brand_Name := :Ctrl_Brandload.Brand_Name1;
End If;
Go_Block('Ctrl_Brandload');
Next_Record;
Go_Block('T_Supp_Contract_Itemalloc');
If :T_Supp_Contract_Itemalloc.Suppci_Brand_Code Is Not Null Then
Next_Record;
End If;
End Loop;
First_Record;
End; What you getClause Rule Language
on press of PB_LOAD1: go to CTRL_BRANDLOAD last record of CTRL_BRANDLOAD first record of CTRL_BRANDLOAD first record of CTRL_BRANDLOAD # 1 statement did not convert.# line 9 # For I In 1..V_Cnt Loop # If :Ctrl_Brandload.Load1 = 'Y' Then # :T_Supp_Contract_Itemalloc.Suppci_Brand_Code := :Ctrl_Brandload.Brand_Code; # :T_Supp_Contract_Itemalloc.Brand_Name := :Ctrl_Brandload.Brand_Name1; # End If; # Go_Block('Ctrl_Brandload'); # Next_Record; # Go_Block('T_Supp_Contract_Itemalloc'); # If :T_Supp_Contract_Itemalloc.Suppci_Brand_Code Is Not Null Then # Next_Record; # End If; # End Loop; # reason: it moves to CTRL_BRANDLOAD and T_SUPP_CONTRACT_ITEMALLOC inside the loop, so it acts on two blocks in one body and a collection operation names one collection
4 clauses converted, 1 statement refused
7. fmb_supplier_agreementWHEN-BUTTON-PRESSED on T_SUPP_CONTRACT_PADJ.PB_LOV_ITEM1study
What you haveWHEN-BUTTON-PRESSED
Declare
PL_Id ParamList;
Begin
:Global.Item_Code := Null;
PL_Id := Get_Parameter_List('Find_Item');
If Not Id_Null(Pl_Id) Then
Destroy_Parameter_List(Pl_Id);
End If;
PL_Id := Create_Parameter_List('Find_Item');
If Nvl(:Frm_Validate_Suppitems,'N') ='Y' Then
Add_Parameter(Pl_Id, 'Supp_Code', Text_Parameter, :Suppc_Supp_Code);
End If;
Add_Parameter (Pl_Id, 'Loc_Code', Text_Parameter, :Suppc_Loc_Code);
Call_Form('fmb_finditem', No_Hide, No_Replace, Query_Only, PL_Id);
If :Global.Item_Code Is Not Null Then
:Suppcp_Item_Code := :Global.Item_Code;
End If;
End;What you getClause Rule Language
on press of PB_LOV_ITEM1: set GLOBAL.ITEM_CODE to null set SUPPCP_ITEM_CODE to GLOBAL.ITEM_CODE when is_filled(GLOBAL.ITEM_CODE) # 3 statements did not convert.# line 13 # Add_Parameter(Pl_Id, 'Supp_Code', Text_Parameter, :Suppc_Supp_Code); # reason: the screen parameter Supp_Code is added inside a branch of this body, so the source passes it on one path and not on another, and a with list carries a value and no guard: a step built from it would run without that parameter and say nothing about it, so the whole sequence is refused rather than one value dropped# line 16 # Add_Parameter (Pl_Id, 'Loc_Code', Text_Parameter, :Suppc_Loc_Code); # reason: the screen parameter Supp_Code is added inside a branch of this body, so the source passes it on one path and not on another, and a with list carries a value and no guard: a step built from it would run without that parameter and say nothing about it, so the whole sequence is refused rather than one value dropped# line 17 # Call_Form('fmb_finditem', No_Hide, No_Replace, Query_Only, PL_Id); # reason: the screen parameter Supp_Code is added inside a branch of this body, so the source passes it on one path and not on another, and a with list carries a value and no guard: a step built from it would run without that parameter and say nothing about it, so the whole sequence is refused rather than one value dropped
2 clauses converted, 3 statements refused
8. fmb_supplier_agreementKEY-LISTVAL on T_SUPP_CONTRACT_PADJ.SUPPCP_ITEM_CODEstudy
What you haveKEY-LISTVAL
Declare
PL_Id ParamList;
Begin
:Global.Item_Code := Null;
PL_Id := Get_Parameter_List('Find_Item');
If Not Id_Null(Pl_Id) Then
Destroy_Parameter_List(Pl_Id);
End If;
PL_Id := Create_Parameter_List('Find_Item');
If Nvl(:Frm_Validate_Suppitems,'N') ='Y' Then
Add_Parameter(Pl_Id, 'Supp_Code', Text_Parameter, :Suppc_Supp_Code);
End If;
Add_Parameter (Pl_Id, 'Loc_Code', Text_Parameter, :Suppc_Loc_Code);
Call_Form('fmb_finditem', No_Hide, No_Replace, Query_Only, PL_Id);
If :Global.Item_Code Is Not Null Then
:Suppcp_Item_Code := :Global.Item_Code;
End If;
End;What you getClause Rule Language
on help of SUPPCP_ITEM_CODE: set GLOBAL.ITEM_CODE to null set SUPPCP_ITEM_CODE to GLOBAL.ITEM_CODE when is_filled(GLOBAL.ITEM_CODE) # 3 statements did not convert.# line 13 # Add_Parameter(Pl_Id, 'Supp_Code', Text_Parameter, :Suppc_Supp_Code); # reason: the screen parameter Supp_Code is added inside a branch of this body, so the source passes it on one path and not on another, and a with list carries a value and no guard: a step built from it would run without that parameter and say nothing about it, so the whole sequence is refused rather than one value dropped# line 16 # Add_Parameter (Pl_Id, 'Loc_Code', Text_Parameter, :Suppc_Loc_Code); # reason: the screen parameter Supp_Code is added inside a branch of this body, so the source passes it on one path and not on another, and a with list carries a value and no guard: a step built from it would run without that parameter and say nothing about it, so the whole sequence is refused rather than one value dropped# line 17 # Call_Form('fmb_finditem', No_Hide, No_Replace, Query_Only, PL_Id); # reason: the screen parameter Supp_Code is added inside a branch of this body, so the source passes it on one path and not on another, and a with list carries a value and no guard: a step built from it would run without that parameter and say nothing about it, so the whole sequence is refused rather than one value dropped
2 clauses converted, 3 statements refused
9. fmb_supplier_agreementWHEN-VALIDATE-ITEM on T_SUPP_CONTRACT_RENTAREA.SUPPCR_AREA_CODEstudy
What you haveWHEN-VALIDATE-ITEM
Declare
V_Count Number;
Begin
If :Suppcr_Area_Code Is Not Null Then
Select Count(*) Into V_Count
From M_Rent_Area
Where Area_Comp_Code = :Global.Company
And Area_Code =:Suppcr_Area_Code
And Area_Loc_Code = :T_Supp_Contract.Suppc_Loc_Code;
If V_Count = 1 Then
Select Area_Name,Area_uom_Code,Area_Qty,Area_rate,Area_Rac_Code
Into :AREA_NAME,:SUPPCR_UOM_CODE,:SUPPCR_QTY,:Suppcr_Mth_Rate,:Suppcr_Rac_Code
From M_Rent_Area
Where Area_Comp_Code = :Global.Company
And Area_Code =:Suppcr_Area_Code
And Area_Loc_Code = :T_Supp_Contract.Suppc_Loc_Code;
End If;
If Nvl(:Suppcr_Rate,0) =0 Then
Select Decode(Mod(Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),.5),.5,
Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),0,Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days-1,:Suppc_Dt_Fm),1),
Round(((:Suppc_Dt_Fm + :Suppc_Days) -:Suppc_Dt_Fm)/30,1)) * :Suppcr_Mth_Rate Into :Suppcr_Rate from dual;
End If;
End If;
End;What you getClause Rule Language
on change of SUPPCR_AREA_CODE when is_filled(SUPPCR_AREA_CODE): from RENT_AREA_COUNT(SUPPC_LOC_CODE, SUPPCR_AREA_CODE) # load-fmb-supplier-agreement-t-supp-contract-rentarea-suppcr-area-code-when-validate-item-change-0 from RENT_AREA(SUPPC_LOC_CODE, SUPPCR_AREA_CODE) when RENT_AREA_COUNT.COUNT = 1 # load-fmb-supplier-agreement-t-supp-contract-rentarea-suppcr-area-code-when-validate-item-change-1 set AREA_NAME to RENT_AREA.AREA_NAME when RENT_AREA_COUNT.COUNT = 1 set SUPPCR_UOM_CODE to RENT_AREA.AREA_UOM_CODE when RENT_AREA_COUNT.COUNT = 1 set SUPPCR_QTY to RENT_AREA.AREA_QTY when RENT_AREA_COUNT.COUNT = 1 set SUPPCR_MTH_RATE to RENT_AREA.AREA_RATE when RENT_AREA_COUNT.COUNT = 1 set SUPPCR_RAC_CODE to RENT_AREA.AREA_RAC_CODE when RENT_AREA_COUNT.COUNT = 1 # 1 statement did not convert.# line 19 # Select Decode(Mod(Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),.5),.5, # Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),0,Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days-1,:Suppc_Dt_Fm),1), # Round(((:Suppc_Dt_Fm + :Suppc_Days) -:Suppc_Dt_Fm)/30,1)) * :Suppcr_Mth_Rate Into :Suppcr_Rate from dual; # reason: a SELECT FROM DUAL reads no row, and CRL has no expression for Decode(Mod(Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),.5),.5, Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),0,Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days-1,:Suppc_Dt_Fm),1), Round(((:Suppc_Dt_Fm + :Suppc_Days) -:Suppc_Dt_Fm)/30,1)) * :Suppcr_Mth_Rate, which this one writes into SUPPCR_RATE
5 clauses converted, 1 statement refused
10. fmb_supplier_agreementWHEN-VALIDATE-ITEM on T_SUPP_CONTRACT.SUPPC_DAYSstudy
What you haveWHEN-VALIDATE-ITEM
Declare
v_day Number;
Begin
If :Suppc_Pay_Interval = 'O' Then
If Nvl(:SUPPC_DAYS, 0) = 0 Then
:EXP_DT := :SUPPC_DT_FM;
Else
:EXP_DT := :SUPPC_DT_FM + Nvl(:SUPPC_DAYS,1)-1;
End If;
Else
:EXP_DT := :SUPPC_DT_FM+Nvl(:SUPPC_DAYS,1)-1;
End If;
If Nvl(:Suppc_Old_Days,0) <> :Suppc_Days and :Suppc_Type_Flag ='RENT' Then
Select Decode(Mod(Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),.5),.5,
Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),0,Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),
Round(((:Suppc_Dt_Fm + :Suppc_Days) -:Suppc_Dt_Fm)/30,1)) * :Suppcr_Mth_Rate ,
Decode(Mod(Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),.5),.5,
Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days-1,:Suppc_Dt_Fm),1),0,Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days-1,:Suppc_Dt_Fm),1),
Round(((:Suppc_Dt_Fm + :Suppc_Days) -:Suppc_Dt_Fm)/30,1)) Into :Suppcr_Rate,v_Day from dual;
-- If Mod(v_Day,.5) Not in (0,.5) Then
-- Show_Message('Alert1','Rent Period is multle of monthly/half monthly');
-- Raise form_trigger_failure;
-- End If;
End If;
If Nvl(:Suppc_Days,0) > 0 Then
Proc_Validate_dt;
End If;
End;
What you getClause Rule Language
on change of SUPPC_DAYS: set EXP_DT to SUPPC_DT_FM when (SUPPC_PAY_INTERVAL = 'O') and (nvl(SUPPC_DAYS, 0) = 0) set EXP_DT to (SUPPC_DT_FM + nvl(SUPPC_DAYS, 1)) - 1 when (SUPPC_PAY_INTERVAL = 'O') and not (nvl(SUPPC_DAYS, 0) = 0) set EXP_DT to (SUPPC_DT_FM + nvl(SUPPC_DAYS, 1)) - 1 when not (SUPPC_PAY_INTERVAL = 'O') call PROC_VALIDATE_DT() when nvl(SUPPC_DAYS, 0) > 0 # 1 statement did not convert.# line 15 # Select Decode(Mod(Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),.5),.5, # Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),0,Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1), # Round(((:Suppc_Dt_Fm + :Suppc_Days) -:Suppc_Dt_Fm)/30,1)) * :Suppcr_Mth_Rate , # Decode(Mod(Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),.5),.5, # Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days-1,:Suppc_Dt_Fm),1),0,Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days-1,:Suppc_Dt_Fm),1), # Round(((:Suppc_Dt_Fm + :Suppc_Days) -:Suppc_Dt_Fm)/30,1)) Into :Suppcr_Rate,v_Day from dual; # reason: a SELECT FROM DUAL reads no row, and CRL has no expression for Decode(Mod(Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),.5),.5, Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1),0,Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days -1,:Suppc_Dt_Fm),1), Round(((:Suppc_Dt_Fm + :Suppc_Days) -:Suppc_Dt_Fm)/30,1)) * :Suppcr_Mth_Rate, which this one writes into SUPPCR_RATE
4 clauses converted, 1 statement refused
11. fmb_supplier_agreementon unit VALIDATE_SLABstudy
What you havePROGRAM-UNIT
PROCEDURE Validate_Slab IS
v_amt_fm Number;
v_Amt_to Number;
BEGIN
If :Suppc_Type_Flag in('PREBATE') Then
Go_Block('T_Supp_Contract_Rebate_Slab');
First_Record;
Loop
If :Scrs_Amt_Fm <= Nvl(v_amt_fm,0) and :Scrs_Amt_Fm>0
and Nvl(v_amt_fm,0) > 0 Then
Show_Message('Alert1','Error!,Rebate slab amount overlapping');
Raise form_trigger_Failure;
v_Amt_Fm :=:Scrs_Amt_Fm;
Else
v_Amt_fm :=:Scrs_Amt_Fm;
End If;
If :Scrs_Amt_To <= Nvl(v_amt_to,0) and :Scrs_Amt_To>0
and Nvl(v_amt_To,0) > 0 Then
Show_Message('Alert1','Error!,Rebate slab amount overlapping');
Raise form_trigger_Failure;
v_Amt_to :=:Scrs_Amt_To;
Else
v_Amt_to :=:Scrs_Amt_To;
End If;
If :System.Last_Record='TRUE' Then
Exit;
End If;
Next_Record;
End Loop;
End If;
END;What you getClause Rule Language
on unit VALIDATE_SLAB: go to T_SUPP_CONTRACT_REBATE_SLAB when SUPPC_TYPE_FLAG = 'PREBATE' # 1 statement did not convert.# line 8 # Loop # If :Scrs_Amt_Fm <= Nvl(v_amt_fm,0) and :Scrs_Amt_Fm>0 # and Nvl(v_amt_fm,0) > 0 Then # Show_Message('Alert1','Error!,Rebate slab amount overlapping'); # Raise form_trigger_Failure; # v_Amt_Fm :=:Scrs_Amt_Fm; # Else # v_Amt_fm :=:Scrs_Amt_Fm; # End If; # # If :Scrs_Amt_To <= Nvl(v_amt_to,0) and :Scrs_Amt_To>0 # and Nvl(v_amt_To,0) > 0 Then # Show_Message('Alert1','Error!,Rebate slab amount overlapping'); # Raise form_trigger_Failure; # v_Amt_to :=:Scrs_Amt_To; # Else # v_Amt_to :=:Scrs_Amt_To; # End If; # # If :System.Last_Record='TRUE' Then # Exit; # End If; # Next_Record; # End Loop; # reason: its body holds a statement no recognizer claims, and a for each with one dropped runs the rest against every row: the branch guarded by :Scrs_Amt_Fm <= Nvl(v_amt_fm,0) and :Scrs_Amt_Fm...; the branch guarded by :Scrs_Amt_To <= Nvl(v_amt_to,0) and :Scrs_Amt_To...
1 clause converted, 1 statement refused
12. fmb_supplier_agreementon unit GET_STOCKstudy
What you havePROGRAM-UNIT
Procedure Get_Stock (Stk_Col_Name In Varchar2, Stk_Dtl_Col_Name In Varchar2, Comp_Code In Varchar2, Loc_Code In Varchar2, Item_Code In Varchar2, Max_Loose In Number, Stk_Chk_Type In Varchar2) Is
V_Count Number;
V_Stock Number;
V_Resv Number;
V_Stock_Dtl Varchar2(100);
Begin
If Loc_Code Is Null Then
--Show Complete Direct Location Stock
Select Sum(Nvl(Stk_Unconf_Qty, 0))
Into V_Stock
From M_Stock, M_Location
Where Loc_Comp_Code = Stk_Comp_Code
And Loc_Code = Stk_Loc_Code
And Stk_Comp_Code = Comp_Code
And Stk_Item_Code = Item_Code
And Loc_Sman_Code Is Null
And Loc_Stock_Fm Is Null;
--Show Reserv Stock
Select Count(*)
Into V_Count
From M_Stock_Resv, M_Location
Where Loc_Comp_Code = Stkr_Comp_Code
And Loc_Code = Stkr_Loc_Code
And Stkr_Comp_Code = Comp_Code
And Stkr_Item_Code = Item_Code
And Loc_Sman_Code Is Null
And Loc_Stock_Fm Is Null;
If V_Count >0 Then
Select Sum(Nvl(Stkr_Qty, 0))
Into V_Resv
From M_Stock_Resv, M_Location
Where Loc_Comp_Code = Stkr_Comp_Code
And Loc_Code = Stkr_Loc_Code
And Stkr_Comp_Code = Comp_Code
And Stkr_Item_Code = Item_Code
And Loc_Sman_Code Is Null
And Loc_Stock_Fm Is Null;
End If;
Else
Select Count(*) Into V_Count
From M_Stock
Where Stk_Comp_Code = Comp_Code
And Stk_Loc_Code = Loc_Code
And Stk_Item_Code = Item_Code;
If V_Count = 1 Then
Select Nvl(Stk_Unconf_Qty, 0) Into V_Stock
From M_Stock
Where Stk_Comp_Code(+) = Comp_Code
And Stk_Loc_Code (+) = Loc_Code
And Stk_Item_Code (+) = Item_Code;
End If;
--Reserv Stock
Select Count(*) Into V_Count
From M_Stock_Resv
Where Stkr_Comp_Code = Comp_Code
And Stkr_Loc_Code = Loc_Code
And Stkr_Item_Code = Item_Code;
If V_Count = 1 Then
Select Nvl(Stkr_Qty, 0) Into V_Resv
From M_Stock_Resv
Where Stkr_Comp_Code(+) = Comp_Code
And Stkr_Loc_Code (+) = Loc_Code
And Stkr_Item_Code (+) = Item_Code;
End If;
End If;
If Nvl(V_Resv, 0) > 0 Then
V_Stock_Dtl := Fn_Get_Carton(Nvl(V_Stock, 0), Max_Loose) || '[Aft Rsvd: ' || Fn_Get_Carton(V_Resv, Max_Loose) || ']';
Else
V_Stock_Dtl := Fn_Get_Carton(V_Stock, Max_Loose);
End If;
Copy (V_Stock_Dtl, Stk_Dtl_Col_Name);
Copy (V_Stock, Stk_Col_Name);
End;
What you getClause Rule Language
on unit GET_STOCK(STK_COL_NAME, STK_DTL_COL_NAME, COMP_CODE, LOC_CODE, ITEM_CODE, MAX_LOOSE, STK_CHK_TYPE): from STOCK_SUM(ARG.COMP_CODE, ARG.ITEM_CODE) when is_blank(ARG.LOC_CODE) # load-fmb-supplier-agreement-get-stock-unit-0 from STOCK_RESV_1(ARG.COMP_CODE, ARG.ITEM_CODE) when is_blank(ARG.LOC_CODE) # load-fmb-supplier-agreement-get-stock-unit-1 from STOCK_RESV_SUM(ARG.COMP_CODE, ARG.ITEM_CODE) when is_blank(ARG.LOC_CODE) and (STOCK_RESV_1.COUNT > 0) # load-fmb-supplier-agreement-get-stock-unit-2 from STOCK_COUNT(ARG.COMP_CODE, ARG.ITEM_CODE, ARG.LOC_CODE) when not is_blank(ARG.LOC_CODE) # load-fmb-supplier-agreement-get-stock-unit-3 from STOCK(ARG.COMP_CODE, ARG.ITEM_CODE, ARG.LOC_CODE) when not is_blank(ARG.LOC_CODE) and (STOCK_COUNT.COUNT = 1) # load-fmb-supplier-agreement-get-stock-unit-4 from STOCK_RESV_5(ARG.COMP_CODE, ARG.ITEM_CODE, ARG.LOC_CODE) when not is_blank(ARG.LOC_CODE) # load-fmb-supplier-agreement-get-stock-unit-5 from STOCK_RESV(ARG.COMP_CODE, ARG.ITEM_CODE, ARG.LOC_CODE) when not is_blank(ARG.LOC_CODE) and (STOCK_RESV_5.COUNT = 1) # load-fmb-supplier-agreement-get-stock-unit-6 set ARG.STK_COL_NAME to STOCK.V_STOCK # 1 statement did not convert.# line 76 # Copy (V_Stock_Dtl, Stk_Dtl_Col_Name); # reason: Copy writes into the field ARG.STK_DTL_COL_NAME names, and CRL has no expression for V_STOCK_DTL, which is what it would write there
1 clause converted, 1 statement refused
13. fmb_supplier_agreementWHEN-BUTTON-PRESSED on T_SUPP_CONTRACT.PB_PRINTstudy
What you haveWHEN-BUTTON-PRESSED
Declare
Pl_Id Paramlist;
-- V_Report Varchar2(30) := 'Rep_Fmb_Rac';
V_Report Varchar2(30) := 'print_rac';
V_Rep_Id Report_Object;
V_Rep_Job_Id Varchar2(100);
V_Job_Id Varchar2(100);
V_Rep_Status Varchar2(100);
V_Rep_Url Varchar2(1000);
V_Host_Name Varchar2(100) := :Global.Rep_Host_Name;
V_Port Varchar2(100) := :Global.Rep_Port;
V_Rep_Server Varchar2(100) := :Global.Rep_Server;
V_Log_Id Number(10);
V_Dt Date;
Begin
Txn_Validate;
If :Suppc_Type_Flag IN('REBATE','PREBATE','REBATE-S','REBATE-FIN') Then
v_Report := 'print_rebate_contract';
Elsif :Suppc_Type_Flag ='ITEM_ACT' Then
v_Report := 'print_listing_contract';
Elsif :Suppc_Type_Flag ='FOC' Then
v_Report := 'print_foc_contract';
Elsif :Suppc_Type_Flag in('PRICE_ADJS','PRICE_ADJ','PRICE_ADJP','PADJ_POS') Then
v_Report := 'print_supp_contra_padj';
Else
v_Report := Lower(:Frm_Report);
End If;
:Frm_Printer_Name := Fn_Get_User_Preference(:Global.User, :Global.Company, :Suppc_Txn_Code, 'USR_PRINTER');
If :Frm_Printer_Name Is Null Then
:Frm_Printer_Name := Fn_Get_Stk_Txn_Param(:Suppc_Txn_Code, :Suppc_Comp_Code, 'Suppc_PRINTER');
End If;
Pl_Id := Get_Parameter_List('Print');
If Not Id_Null(Pl_Id) Then
Destroy_Parameter_List(Pl_Id);
End If;
Pl_Id := Create_Parameter_List('Print');
Add_Parameter(Pl_Id, 'Suppc_Comp_Code', Text_Parameter, :Suppc_Comp_Code);
Add_Parameter(Pl_Id, 'suppc_Loc_Code', Text_Parameter, :Suppc_Loc_Code);
Add_Parameter(Pl_Id, 'suppc_Txn_Code', Text_Parameter, :Suppc_Txn_Code);
Add_Parameter(Pl_Id, 'suppc_AYr_Code', Text_Parameter, :Suppc_Ayr_Code);
Add_Parameter(Pl_Id, 'Suppc_No_Fm', Text_Parameter, :Suppc_No);
Add_Parameter(Pl_Id, 'Suppc_No_To', Text_Parameter, :Suppc_No);
Add_Parameter(Pl_Id, 'Suppc_Type', Text_Parameter, :Suppc_Type);
Add_Parameter(Pl_Id, 'Suppc_Supp_Code', Text_Parameter, :Suppc_Supp_Code);
Add_Parameter(Pl_Id, 'Parm_User', Text_Parameter, :Global.User);
Add_Parameter(Pl_Id, 'ParamForm', Text_Parameter, 'No');
Add_Parameter(Pl_Id, 'DesType', Text_Parameter, 'Preview');
Add_Parameter(Pl_Id, 'Curr_Fmt', Text_Parameter, :Global.Curr_Format);
Add_Parameter(Pl_Id, 'Dt_Fmt', Text_Parameter, :Global.Dateformat);
Add_Parameter(PL_Id, 'Usr_Id', Text_Parameter, :Global.User);
Add_Parameter(PL_Id, 'Rep_Id', Text_Parameter, :Global.System_Product || '.' || :Parameter.Menu_Code);
Add_Parameter(PL_Id, 'Comp_Name', Text_Parameter, :Global.Company_Name);
--Find Report Object
--V_Rep_Id := Find_Report_Object('Rep_Fmb_Rac');
V_Rep_Id := Find_Report_Object('print_rac');
--Communication Mode
Set_Report_Object_Property(V_Rep_Id, Report_Comm_Mode, Synchronous);
Set_Report_Object_Property(V_Rep_Id, Report_Desformat, :Frm_Desformat);
--Handled Destination Type And Name
If :Mnu_Dest_Name = 'PRINTER' Then
Set_Report_Object_Property(V_Rep_Id, Report_Destype, Printer);
If Nvl(:Frm_Printer_Name,:Mnu_Printer_Name) Is Not Null Then
Set_Report_Object_Property(V_Rep_Id, Report_Desname, Nvl(:Frm_Printer_Name,:Mnu_Printer_Name));
End If;
Else
Set_Report_Object_Property(V_Rep_Id, Report_Destype,Cache);
End If;
--Specify Report Server And Report File Name
Set_Report_Object_Property(V_Rep_Id, Report_Server, V_Rep_Server);
Set_Report_Object_Property(V_Rep_Id, Report_Filename, v_Report);
--Run Report
V_Rep_Job_Id := Run_Report_Object(V_Rep_Id, Pl_Id);
V_Rep_Status := Report_Object_Status(V_Rep_Job_Id);
If V_Rep_Status = 'FINISHED' Then
-------------29-06-13----------
If Upper(:Mnu_Dest_Name) = 'PRINTER' Then
V_Job_Id := Substr(V_Rep_Job_Id, Length(V_Rep_Server)+2);
V_Rep_Url := 'http://' || V_Host_Name || ':' || V_Port || '/reports/rwservlet/getjobid' || V_Job_Id || '?server=' || V_Rep_Server;
Set_Custom_Property('CTRL.PRINTBEAN',1,'FILE_NAME',V_Rep_Url);
Set_Custom_Property('CTRL.PRINTBEAN',1,'PRINT_FILE','');
--------------------------------------
Elsif Upper(:Mnu_Dest_Name) = 'CACHE' Then
V_Job_Id := Substr(V_Rep_Job_Id, Length(V_Rep_Server)+2);
V_Rep_Url := 'http://' || V_Host_Name || ':' || V_Port || '/reports/rwservlet/getjobid' || V_Job_Id || '?server=' || V_Rep_Server;
-- Message(V_Rep_Url);
Web.Show_Document(V_Rep_Url, '_blank');
End If;
Else
Message('Error Running Report');
End If;
--Print Log
Proc_Insert_Txn_Print_Log1(:Global.Company,:Suppc_Loc_Code, :Suppc_Ayr_Code, :Suppc_Txn_Code, :Suppc_No, :Suppc_No, Sysdate,:Global.User);
End;What you getClause Rule Language
on press of PB_PRINT: call TXN_VALIDATE() set FRM_PRINTER_NAME to FN_GET_USER_PREFERENCE(GLOBAL.USER, GLOBAL.COMPANY, SUPPC_TXN_CODE, 'USR_PRINTER') set FRM_PRINTER_NAME to FN_GET_STK_TXN_PARAM(SUPPC_TXN_CODE, SUPPC_COMP_CODE, 'Suppc_PRINTER') when is_blank(FRM_PRINTER_NAME) report decode(SUPPC_TYPE_FLAG, 'REBATE', 'print_rebate_contract', 'PREBATE', 'print_rebate_contract', 'REBATE-S', 'print_rebate_contract', 'REBATE-FIN', 'print_rebate_contract', 'ITEM_ACT', 'print_listing_contract', 'FOC', 'print_foc_contract', 'PRICE_ADJS', 'print_supp_contra_padj', 'PRICE_ADJ', 'print_supp_contra_padj', 'PRICE_ADJP', 'print_supp_contra_padj', 'PADJ_POS', 'print_supp_contra_padj', lower(FRM_REPORT)) with (Comp_Name = GLOBAL.COMPANY_NAME, Curr_Fmt = GLOBAL.CURR_FORMAT, DesType = 'Preview', Dt_Fmt = GLOBAL.DATEFORMAT, ParamForm = 'No', Parm_User = GLOBAL.USER, Rep_Id = (GLOBAL.SYSTEM_PRODUCT || '.') || PARAMETER.MENU_CODE, Suppc_Comp_Code = SUPPC_COMP_CODE, Suppc_No_Fm = SUPPC_NO, Suppc_No_To = SUPPC_NO, Suppc_Supp_Code = SUPPC_SUPP_CODE, Suppc_Type = SUPPC_TYPE, Usr_Id = GLOBAL.USER, suppc_AYr_Code = SUPPC_AYR_CODE, suppc_Loc_Code = SUPPC_LOC_CODE, suppc_Txn_Code = SUPPC_TXN_CODE) call PROC_INSERT_TXN_PRINT_LOG1(GLOBAL.COMPANY, SUPPC_LOC_CODE, SUPPC_AYR_CODE, SUPPC_TXN_CODE, SUPPC_NO, SUPPC_NO, sysdate(), GLOBAL.USER) # 1 statement did not convert.# line 88 # If V_Rep_Status = 'FINISHED' Then # If Upper(:Mnu_Dest_Name) = 'PRINTER' Then # V_Job_Id := Substr(V_Rep_Job_Id, Length(V_Rep_Server)+2); # V_Rep_Url := 'http://' || V_Host_Name || ':' || V_Port || '/reports/rwservlet/getjobid' || V_Job_Id || '?server=' || V_Rep_Server; # Set_Custom_Property('CTRL.PRINTBEAN',1,'FILE_NAME',V_Rep_Url); # Set_Custom_Property('CTRL.PRINTBEAN',1,'PRINT_FILE',''); # Else # If Upper(:Mnu_Dest_Name) = 'CACHE' Then # V_Job_Id := Substr(V_Rep_Job_Id, Length(V_Rep_Server)+2); # V_Rep_Url := 'http://' || V_Host_Name || ':' || V_Port || '/reports/rwservlet/getjobid' || V_Job_Id || '?server=' || V_Rep_Server; # Web.Show_Document(V_Rep_Url, '_blank'); # End If; # End If; # Else # Message('Error Running Report'); # End If; # reason: the guard reads the local V_REP_STATUS, which is written from something CRL has no expression for: a Forms built-in, a database call or a shape the reader refuses
5 clauses converted, 1 statement refused
14. fmb_supplier_agreementPOST-QUERY on T_SUPP_CONTRACTstudy
What you havePOST-QUERY
Begin
If :Suppc_Loc_Code Is Not Null Then
Select Loc_Name Into :Loc_Name
From M_Location
Where Loc_Comp_Code = :Global.Company
And Loc_Code = :Suppc_Loc_Code;
End If;
If :Suppc_Supp_Code Is Not Null Then
Select Supp_Name Into :Supp_Name
From M_Supplier
Where Supp_Code=:Suppc_Supp_Code;
End If;
Select Count(*) Into :Prn_Count From T_Txn_Print_Log
Where Log_Comp_Code =:Suppc_Comp_Code
And Log_Loc_Code =:Suppc_Loc_Code
And Log_Ayr_Code =:Suppc_Ayr_Code
And Log_Txn_Code =:Suppc_Txn_Code
And :Suppc_No Between Log_No_From And Log_No_To;
--:Exp_Dt:=:Suppc_Dt_Fm+:Suppc_Days -1;
If :Suppc_Pay_Interval = 'O' Then
If Nvl(:Suppc_Days, 0) = 0 Then
:Exp_Dt := :Suppc_Dt_Fm;
Else
:Exp_Dt := :Suppc_Dt_Fm + Nvl(:Suppc_Days,1)-1;
End If;
Else
:Exp_Dt := :Suppc_Dt_Fm + Nvl(:Suppc_Days,1)-1;
End If;
-----------04-06-2013---------------
If :Suppc_Main_Acnt_Code Is Not Null Then
Select Main_Acnt_Name Into :Main_Acnt_Name
From M_Main_Account
Where Main_Acnt_Code=:Suppc_Main_Acnt_Code;
End If;
-----------------------
If :Suppc_Type Is Not Null Then
Select Ctype_Description,Ctype_Flag
Into :Suppc_Type_Name,:Suppc_Type_Flag
From M_Supp_Contract_Type
Where Ctype_Code=:Suppc_Type;
End If;
End;
If :Suppc_Pay_Interval ='O' Then
--Set_item_Property('Suppc_Days',Enabled,Property_False);
Set_item_Property('Suppc_Pay_Count',Enabled,Property_False);
Else
-- Set_item_Property('Suppc_Days',Enabled,Property_True);
Set_item_Property('Suppc_Pay_Count',Enabled,Property_True);
End If;
:Frm_Rights_Cancel := Fn_Get_User_Rights(:Global.Company, :Parameter.Menu_Code, :Global.User, 'Cancel');
If :Frm_Rights_Cancel> 0 Then
Set_Item_Property('Btn_Cancel',Visible,Property_true);
Set_Item_Property('Btn_Cancel',Enabled,Property_True);
Else
Set_Item_Property('Btn_Cancel',Visible,Property_False);
End If;
If :Suppc_Type_Flag IN('REBATE','PREBATE','REBATE-S','REBATE-FIN') Then
Set_Tab_Page_Property('Rebate', Enabled, Property_True);
Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'Rebate');
Set_Tab_Page_Property('Rentarea', Enabled, Property_False);
Set_Tab_Page_Property('Itemalloc', Enabled, Property_False);
Set_Tab_Page_Property('Reb_Except', Enabled, Property_True);
Elsif :Suppc_Type_Flag ='RENT' Then
Set_Tab_Page_Property('Rentarea', Enabled, Property_True);
Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'Rentarea');
Set_Tab_Page_Property('Itemalloc', Enabled, Property_True);
Set_Tab_Page_Property('Rebate', Enabled, Property_False);
Set_Tab_Page_Property('Reb_Except', Enabled, Property_False);
Elsif :Suppc_Type_Flag='ITEM_ACT' Then
Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'Itemalloc');
Set_Tab_Page_Property('Itemalloc', Enabled, Property_True);
Set_Tab_Page_Property('Rebate', Enabled, Property_False);
Set_Tab_Page_Property('Rentarea', Enabled, Property_False);
Set_Tab_Page_Property('Reb_Except', Enabled, Property_False);
Elsif :Suppc_Type_Flag In ('PRICE_ADJ', 'PRICE_ADJP', 'PRICE_ADJS', 'PADJ_POS') Then
Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'Padj');
Set_Tab_Page_Property('Padj', Enabled, Property_True);
Set_Tab_Page_Property('Rebate', Enabled, Property_False);
Set_Tab_Page_Property('Rentarea', Enabled, Property_False);
Set_Tab_Page_Property('Itemalloc', Enabled, Property_False);
Set_Tab_Page_Property('Reb_Except', Enabled, Property_False);
Elsif :Suppc_Type_Flag='FOC' Then
Set_Tab_Page_Property('foc', Enabled, Property_True);
Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'foc');
Set_Tab_Page_Property('Rebate', Enabled, Property_False);
Set_Tab_Page_Property('Rentarea', Enabled, Property_False);
Set_Tab_Page_Property('Itemalloc', Enabled, Property_False);
Set_Tab_Page_Property('Padj', Enabled, Property_False);
Set_Tab_Page_Property('Reb_Except', Enabled, Property_False);
End If;
If :Suppc_Type_Flag In('RENT','REBATE','OTHERS','ITEM_ACT','PREBATE','REBATE-S','REBATE-FIN') Then
If Get_Item_Property('PB_PROC_QRY',Enabled) <>'TRUE' Then
Set_item_Property('PB_PROC_QRY',Enabled,Property_True);
End If;
Elsif :Suppc_Type_Flag In( 'PRICE_ADJS','PRICE_ADJ','FOC','PADJ_POS','PRICE_ADJP') Then
If Get_Item_Property('PB_PROC_QRY',Enabled) ='TRUE' Then
Set_item_Property('PB_PROC_QRY',Enabled,Property_False);
End If;
End If;
:Suppc_Old_Days := :Suppc_Days;What you getClause Rule Language
on load of T_SUPP_CONTRACT: from LOCATION(SUPPC_LOC_CODE) when is_filled(SUPPC_LOC_CODE) # load-fmb-supplier-agreement-t-supp-contract-post-query-load-0 from SUPPLIER(SUPPC_SUPP_CODE) when is_filled(SUPPC_SUPP_CODE) # load-fmb-supplier-agreement-t-supp-contract-post-query-load-1 from TXN_PRINT_LOG(SUPPC_AYR_CODE, SUPPC_COMP_CODE, SUPPC_LOC_CODE, SUPPC_NO, SUPPC_TXN_CODE) # load-fmb-supplier-agreement-t-supp-contract-post-query-load-2 from MAIN_ACCOUNT(SUPPC_MAIN_ACNT_CODE) when is_filled(SUPPC_MAIN_ACNT_CODE) # load-fmb-supplier-agreement-t-supp-contract-post-query-load-3 from SUPP_CONTRACT_TYPE(SUPPC_TYPE) when is_filled(SUPPC_TYPE) # load-fmb-supplier-agreement-t-supp-contract-post-query-load-4 set LOC_NAME to LOCATION.LOC_NAME when is_filled(SUPPC_LOC_CODE) set SUPP_NAME to SUPPLIER.SUPP_NAME when is_filled(SUPPC_SUPP_CODE) set PRN_COUNT to TXN_PRINT_LOG.COUNT set EXP_DT to SUPPC_DT_FM when (SUPPC_PAY_INTERVAL = 'O') and (nvl(SUPPC_DAYS, 0) = 0) set EXP_DT to (SUPPC_DT_FM + nvl(SUPPC_DAYS, 1)) - 1 when (SUPPC_PAY_INTERVAL = 'O') and not (nvl(SUPPC_DAYS, 0) = 0) set EXP_DT to (SUPPC_DT_FM + nvl(SUPPC_DAYS, 1)) - 1 when not (SUPPC_PAY_INTERVAL = 'O') set MAIN_ACNT_NAME to MAIN_ACCOUNT.MAIN_ACNT_NAME when is_filled(SUPPC_MAIN_ACNT_CODE) set SUPPC_TYPE_NAME to SUPP_CONTRACT_TYPE.CTYPE_DESCRIPTION when is_filled(SUPPC_TYPE) set SUPPC_TYPE_FLAG to SUPP_CONTRACT_TYPE.CTYPE_FLAG when is_filled(SUPPC_TYPE) state disable SUPPC_PAY_COUNT when SUPPC_PAY_INTERVAL = 'O' state enable SUPPC_PAY_COUNT when not (SUPPC_PAY_INTERVAL = 'O') set FRM_RIGHTS_CANCEL to FN_GET_USER_RIGHTS(GLOBAL.COMPANY, PARAMETER.MENU_CODE, GLOBAL.USER, 'Cancel') state show BTN_CANCEL when FRM_RIGHTS_CANCEL > 0 state enable BTN_CANCEL when FRM_RIGHTS_CANCEL > 0 state hide BTN_CANCEL when not (FRM_RIGHTS_CANCEL > 0) state enable TAB.REBATE when (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN') state disable TAB.ITEMALLOC, TAB.RENTAREA when (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN') state enable TAB.REB_EXCEPT when (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN') state enable TAB.RENTAREA when not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') state enable TAB.ITEMALLOC when not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') state disable TAB.REBATE, TAB.REB_EXCEPT when not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') state enable TAB.ITEMALLOC when (not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT') state disable TAB.REBATE, TAB.REB_EXCEPT, TAB.RENTAREA when (not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT') state enable TAB.PADJ when ((not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state disable TAB.ITEMALLOC, TAB.REBATE, TAB.REB_EXCEPT, TAB.RENTAREA when ((not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state enable TAB.FOC when (((not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'FOC') state disable TAB.ITEMALLOC, TAB.PADJ, TAB.REBATE, TAB.REB_EXCEPT, TAB.RENTAREA when (((not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'FOC') state enable PB_PROC_QRY when ((((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN') state disable PB_PROC_QRY when not (((((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) and (((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'FOC')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) set SUPPC_OLD_DAYS to SUPPC_DAYS # 5 statements did not convert.# line 68 # Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'Rebate'); # reason: this sets a canvas property, and design.md ruling 5 says Forms' colours are not carried while ruling 3 says a canvas's own geometry is the layout engine's# line 74 # Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'Rentarea'); # reason: this sets a canvas property, and design.md ruling 5 says Forms' colours are not carried while ruling 3 says a canvas's own geometry is the layout engine's# line 79 # Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'Itemalloc'); # reason: this sets a canvas property, and design.md ruling 5 says Forms' colours are not carried while ruling 3 says a canvas's own geometry is the layout engine's# line 85 # Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'Padj'); # reason: this sets a canvas property, and design.md ruling 5 says Forms' colours are not carried while ruling 3 says a canvas's own geometry is the layout engine's# line 94 # Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'foc'); # reason: this sets a canvas property, and design.md ruling 5 says Forms' colours are not carried while ruling 3 says a canvas's own geometry is the layout engine's
30 clauses converted, 5 statements refused
15. fmb_supplier_agreementon unit PROC_VALIDATE_DTstudy
What you havePROGRAM-UNIT
PROCEDURE Proc_validate_dt IS
v_Dt_Fm Date;
v_Dt_To Date;
v_Mth Number(6);
v_Prv_Dt_Fm Date;
v_Prv_Dt_To Date;
v_Amount Number(12,2);
v_Day_Amt Number;
v_Interval Number;
v_Srd_Id Number(10);
v_fin_Amt Number(14,2);
V_Qtr_1 Number(6);
V_Qtr_2 Number(6);
V_Qtr_3 Number(6);
V_Qtr_4 Number(6);
v_Count Number;
v_Supp_Flag Varchar2(10);
v_Dt Date;
v_Ayr Varchar2(10);
v_Prv_Ayr Varchar2(10);
v_Period_Interval Number;
Begin
--Select Ctype_Flag Into v_Supp_Flag from M_Supp_Contract_type Where Ctype_Code =:Suppc_Type;
If :Suppc_Pay_Interval ='O' and Nvl(:Suppc_Days,0) = 0 Then
:Suppc_Days := 0;
End If;
If :Suppc_Dt_Fm is Not Null and :Suppc_Pay_Interval is Not Null and :Suppc_Days is Not Null Then
v_Dt_Fm :=Null;
v_Dt_To :=Null;
If :Suppc_Processed_upto is Not null Then
v_Prv_Dt_Fm :=Null;
v_Prv_Dt_To :=:Suppc_Processed_upto;
Else
v_Prv_Dt_To :=:Suppc_Dt_Fm -1;
End If;
If :Suppc_Pay_Interval = 'O' Then
v_Period_Interval :=0;
v_Dt_fm := :Suppc_Dt_Fm;
If Nvl(:Suppc_Days,0) > 0 Then
v_Dt_To := (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0) -1);
Else
v_Dt_To := (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0));
End If;
ElsIf :Suppc_Pay_Interval = 'M' Then
v_Period_Interval :=0;
If v_Prv_Dt_To >= (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0) -1) Then
v_Dt_Fm :=Null;
ElsIf v_Prv_Dt_To is Not Null Then
v_Dt_Fm := v_Prv_Dt_To +1;
v_Dt_To := Last_Day(v_Dt_Fm);
If v_Dt_to > (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0) -1) THEN
v_Dt_To :=(:Suppc_Dt_Fm + Nvl(:Suppc_Days,0) -1);
End If;
End If;
ElsIf :Suppc_Pay_Interval = 'Q' Then
v_Period_Interval :=2;
If v_Prv_Dt_To >= (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1) Then
v_Dt_Fm :=Null;
ElsIf v_Prv_Dt_To is Not Null Then
v_Dt_Fm := v_Prv_Dt_To +1;
If Add_Months(v_Prv_Dt_To + 1,2) <=(:Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1) Then
v_Dt_To := Last_Day(Add_Months(v_Prv_Dt_To + 1,2));
Else
v_Dt_To := :Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1;
End If;
End If;
ElsIf :Suppc_Pay_Interval = 'H' Then
v_Period_Interval :=5;
If v_Prv_Dt_To >= (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1) Then
v_Dt_Fm :=Null;
ElsIf v_Prv_Dt_To is Not Null Then
v_Dt_Fm := v_Prv_Dt_To +1;
If Add_Months(v_Prv_Dt_To + 1,5) <=(:Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1) Then
v_Dt_To := Last_Day(Add_Months(v_Prv_Dt_To + 1,5));
Else
v_Dt_To := :Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1;
End If;
End If;
ElsIf :Suppc_Pay_Interval ='Y' Then
v_Period_Interval := 12;
If v_Prv_Dt_To >= (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1) Then
v_Dt_Fm :=Null;
ElsIf v_Prv_Dt_To is Not Null Then
v_Dt_Fm := v_Prv_Dt_To +1;
If Add_Months(v_Prv_Dt_To + 1,11) <= (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1) Then
v_Dt_To := Last_Day(Add_Months(v_Prv_Dt_To + 1,11));
Else
v_Dt_To := :Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1;
End If;
End If;
End If;
v_Ayr := Fn_Get_date_Ayr(:Global.Company,Nvl(v_Dt_To,:Suppc_Dt_Fm));
v_Prv_Ayr := Fn_Get_Ayr_Code(:Global.Company, 'P');
If v_Ayr =v_Prv_Ayr And Nvl(:Frm_En_Prv_Year, 'N') = 'N' Then
Show_Message('RAC_ALERT','Previous year entry not allowed!');
Raise Form_Trigger_Failure;
ElsIf v_Ayr =v_Prv_Ayr And Nvl(:Frm_En_Prv_Year, 'N') = 'Y' Then
Select Ayr_To_Dt Into v_Dt_To From M_Ayear
Where Ayr_comp_code = :Global.Company And Ayr_Code = v_Prv_Ayr;
If Nvl(v_Dt_To,:Suppc_Dt_Fm) - Nvl(:Frm_Prv_Days, 0) >:Suppc_Dt_Fm Then
Show_Message('RAC_ALERT','Previous year entry not allowed! Previous year maximum allowing days :'||Nvl(:Frm_Prv_Days, 0));
Raise Form_Trigger_Failure;
End If;
End If;
End If;
End;What you getClause Rule Language
on unit PROC_VALIDATE_DT: set SUPPC_DAYS to 0 when (SUPPC_PAY_INTERVAL = 'O') and (nvl(SUPPC_DAYS, 0) = 0) # 5 statements did not convert.# line 52 # If v_Prv_Dt_To >= (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0) -1) Then # v_Dt_Fm :=Null; # Else # If v_Prv_Dt_To is Not Null Then # v_Dt_Fm := v_Prv_Dt_To +1; # v_Dt_To := Last_Day(v_Dt_Fm); # If v_Dt_to > (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0) -1) Then # v_Dt_To :=(:Suppc_Dt_Fm + Nvl(:Suppc_Days,0) -1); # End If; # End If; # End If; # reason: the guard reads the local V_PRV_DT_TO, which 2 arms of one branch above it write, the last of them an Else, and the guards are not all an equality or an IN list on one name, so no decode says which arm ran: `:SUPPC_PROCESSED_UPTO IS NOT NULL` asks a question a value pair cannot# line 63 # If v_Prv_Dt_To >= (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1) Then # v_Dt_Fm :=Null; # Else # If v_Prv_Dt_To is Not Null Then # v_Dt_Fm := v_Prv_Dt_To +1; # If Add_Months(v_Prv_Dt_To + 1,2) <=(:Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1) Then # v_Dt_To := Last_Day(Add_Months(v_Prv_Dt_To + 1,2)); # Else # v_Dt_To := :Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1; # End If; # End If; # End If; # reason: the guard reads the local V_PRV_DT_TO, which 2 arms of one branch above it write, the last of them an Else, and the guards are not all an equality or an IN list on one name, so no decode says which arm ran: `:SUPPC_PROCESSED_UPTO IS NOT NULL` asks a question a value pair cannot# line 75 # If v_Prv_Dt_To >= (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1) Then # v_Dt_Fm :=Null; # Else # If v_Prv_Dt_To is Not Null Then # v_Dt_Fm := v_Prv_Dt_To +1; # If Add_Months(v_Prv_Dt_To + 1,5) <=(:Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1) Then # v_Dt_To := Last_Day(Add_Months(v_Prv_Dt_To + 1,5)); # Else # v_Dt_To := :Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1; # End If; # End If; # End If; # reason: the guard reads the local V_PRV_DT_TO, which 2 arms of one branch above it write, the last of them an Else, and the guards are not all an equality or an IN list on one name, so no decode says which arm ran: `:SUPPC_PROCESSED_UPTO IS NOT NULL` asks a question a value pair cannot# line 87 # If v_Prv_Dt_To >= (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1) Then # v_Dt_Fm :=Null; # Else # If v_Prv_Dt_To is Not Null Then # v_Dt_Fm := v_Prv_Dt_To +1; # If Add_Months(v_Prv_Dt_To + 1,11) <= (:Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1) Then # v_Dt_To := Last_Day(Add_Months(v_Prv_Dt_To + 1,11)); # Else # v_Dt_To := :Suppc_Dt_Fm + Nvl(:Suppc_Days,0)-1; # End If; # End If; # End If; # reason: the guard reads the local V_PRV_DT_TO, which 2 arms of one branch above it write, the last of them an Else, and the guards are not all an equality or an IN list on one name, so no decode says which arm ran: `:SUPPC_PROCESSED_UPTO IS NOT NULL` asks a question a value pair cannot# line 101 # If v_Ayr =v_Prv_Ayr And Nvl(:Frm_En_Prv_Year, 'N') = 'N' Then # Show_Message('RAC_ALERT','Previous year entry not allowed!'); # Raise Form_Trigger_Failure; # Else # If v_Ayr =v_Prv_Ayr And Nvl(:Frm_En_Prv_Year, 'N') = 'Y' Then # Select Ayr_To_Dt Into v_Dt_To From M_Ayear # Where Ayr_comp_code = :Global.Company And Ayr_Code = v_Prv_Ayr; # If Nvl(v_Dt_To,:Suppc_Dt_Fm) - Nvl(:Frm_Prv_Days, 0) >:Suppc_Dt_Fm Then # Show_Message('RAC_ALERT','Previous year entry not allowed! Previous year maximum allowing days :'||Nvl(:Frm_Prv_Days, 0)); # Raise Form_Trigger_Failure; # End If; # End If; # End If; # reason: the guard reads the local V_AYR, which is written from something CRL has no expression for: a Forms built-in, a database call or a shape the reader refuses
1 clause converted, 5 statements refused
16. fmb_supplier_agreementon unit PROC_PAY_SCHEDULEstudy
What you havePROGRAM-UNIT
PROCEDURE proc_pay_schedule IS
v_Amt Number(12,2);
v_Inst_Amt Number(12,2);
v_Count Number;
v_yrmth Number;
v_Days Number;
v_Total Number;
v_Inst_cnt Number;
v_Date Date;
v_Cnt Number;
v_Interval Number;
BEGIN
If :Suppc_Pay_Interval ='M' Then
v_Interval := 1;
ElsIf :Suppc_Pay_Interval ='Q' Then
v_Interval := 3;
ElsIf :Suppc_Pay_Interval ='H' Then
v_Interval := 6;
ElsIf :Suppc_Pay_Interval ='Y' Then
v_Interval := 12;
End If;
If :Suppc_Type is Not Null Then
Select count(*) into v_Count From
M_Supp_Contract_Type
Where Ctype_Code=:Suppc_Type;
If v_Count >0 Then
Select CType_Flag
Into :Suppc_Type_Flag
From M_Supp_Contract_Type
Where Ctype_Code=:Suppc_Type;
End If;
v_Date := :Suppc_Dt_Fm;
If :Suppc_Type_Flag IN('REBATE','PREBATE','REBATE-S','REBATE-FIN') Then
Null;
Elsif :Suppc_Type_Flag='RENT' Then
v_Amt :=:Total_Amt;
If :Total_Amt > 0 Then
Go_Block('T_Supp_Contract_Pay_Schedule');
Clear_Block;
Select Count(*) into v_Cnt From T_Supp_Contract_Pay_Schedule Where
Scpc_Suppc_Id =:Suppc_Id;
If v_Cnt > 0 Then
Delete from T_Supp_Contract_Pay_Schedule Where
Scpc_Suppc_Id =:Suppc_Id;
End If;
First_Record;
v_yrmth := To_Char(v_Date,'YYYYMM');
If :Suppc_Pay_Interval ='O' Then
:ScPc_Pay_Mth := v_yrmth;
:Scpc_Amt :=v_Amt;
v_Total := v_Amt;
:Scpc_Divn_Code :=:Suppc_Divn_Code;
Else
If Nvl(:Suppc_Days,0) <= 31 Then
:Scpc_Amt :=v_Amt;
v_Total := v_Amt;
:ScPc_Pay_Mth := v_yrmth;
:Scpc_Divn_Code :=:Suppc_Divn_Code;
Else
v_Count := 0;
Select Decode(Mod(Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days,:Suppc_Dt_Fm),1),.5),.5,
Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days,:Suppc_Dt_Fm),1),0,
Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days,:Suppc_Dt_Fm),1),
Round(((:Suppc_Dt_Fm + :Suppc_Days) -:Suppc_Dt_Fm)/30,1)) Into v_Count from dual;
v_Inst_Amt :=Round(v_Amt/(v_Count/v_Interval));
Loop
Exit when v_Amt <= 0 ;
v_Inst_Cnt := Nvl(v_Inst_Cnt,0) + v_Interval ;
If v_Inst_Cnt >= v_Count Then
v_Inst_Amt :=v_Amt;
End If;
v_Amt :=v_Amt - v_Inst_Amt;
:ScPc_Pay_Mth := v_yrmth;
:Scpc_Amt :=v_Inst_Amt;
:Scpc_Divn_Code :=:Suppc_Divn_Code;
v_Date := Add_Months(v_Date,v_Interval);
v_yrmth :=To_Char(v_Date,'YYYYMM');
Next_Record;
End loop;
End If;
End If;
End If;
If :Total_Amt >0 and Nvl(:Total_Amt,0) <> Nvl(:Sum_Shed_Amt,0) Then
Show_Message('Alert1','Scheduled total and contract total not tally');
Raise form_trigger_failure;
End If;
Elsif :Suppc_Type_Flag In ('LISTING','NEW_REG','ITEM_ACT','OTHERS') Then
v_Amt :=:Suppc_Amount;
If :Suppc_Amount > 0 Then
Go_Block('T_Supp_Contract_Pay_Schedule');
Clear_Block;
Select Count(*) into v_Cnt From T_Supp_Contract_Pay_Schedule Where
Scpc_Suppc_Id =:Suppc_Id;
If v_Cnt > 0 Then
Delete from T_Supp_Contract_Pay_Schedule Where
Scpc_Suppc_Id =:Suppc_Id;
End If;
First_Record;
v_yrmth := To_Char(v_Date,'YYYYMM');
If :Suppc_Pay_Interval ='O' Then
:ScPc_Pay_Mth := v_yrmth;
:Scpc_Amt :=v_Amt;
v_Total := v_Amt;
:Scpc_Divn_Code :=:Suppc_Divn_Code;
Else
--Show_Message('alert1','1');
If Nvl(:Suppc_Pay_Count,1) = 1 Then
:ScPc_Pay_Mth := v_yrmth;
:Scpc_Amt :=v_Amt;
v_Total := v_Amt;
:Scpc_Divn_Code :=:Suppc_Divn_Code;
Else
--Show_Message('alert1','2');
v_Inst_Amt :=Round(v_Amt/ Nvl(:Suppc_Pay_Count,1));
Loop
Exit when v_Amt <= 0 ;
v_Inst_Cnt := Nvl(v_Inst_Cnt,0) +1;
If v_Inst_Cnt >= Nvl(:Suppc_Pay_Count,1) Then
v_Inst_Amt :=v_Amt;
End If;
v_Amt :=v_Amt - v_Inst_Amt;
:ScPc_Pay_Mth := v_yrmth;
:Scpc_Amt :=v_Inst_Amt;
:Scpc_Divn_Code :=:Suppc_Divn_Code;
v_Date := Add_Months(v_Date,v_Interval);
v_yrmth :=To_Char(v_Date,'YYYYMM');
Next_Record;
End loop;
End If;
End If;
End If;
If :Suppc_Amount >0 and Nvl(:Suppc_Amount,0) <> Nvl(:Sum_Shed_Amt,0) Then
Show_Message('Alert1','Scheduled total and contract total not tally');
Raise form_trigger_failure;
End If;
End If;
End If;
END;What you getClause Rule Language
on unit PROC_PAY_SCHEDULE: from SUPP_CONTRACT_TYPE_COUNT(SUPPC_TYPE) when is_filled(SUPPC_TYPE) # load-fmb-supplier-agreement-proc-pay-schedule-unit-0 from SUPP_CONTRACT_TYPE(SUPPC_TYPE) when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0) # load-fmb-supplier-agreement-proc-pay-schedule-unit-1 from SUPP_CONTRACT_PAY_SCHEDULE(SUPPC_ID) when ((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (TOTAL_AMT > 0) # load-fmb-supplier-agreement-proc-pay-schedule-unit-2 set SUPPC_TYPE_FLAG to SUPP_CONTRACT_TYPE.CTYPE_FLAG when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0) go to T_SUPP_CONTRACT_PAY_SCHEDULE when ((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (TOTAL_AMT > 0) clear T_SUPP_CONTRACT_PAY_SCHEDULE when ((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (TOTAL_AMT > 0) call WRITE_T_SUPP_CONTRACT_PAY_SCHEDULE_38427BC4(SUPPC_ID) when (((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (TOTAL_AMT > 0)) and (SUPP_CONTRACT_PAY_SCHEDULE.COUNT > 0) first record when ((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (TOTAL_AMT > 0) set SCPC_PAY_MTH to to_char(SUPPC_DT_FM, 'YYYYMM') when (((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (TOTAL_AMT > 0)) and (SUPPC_PAY_INTERVAL = 'O') set SCPC_AMT to TOTAL_AMT when (((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (TOTAL_AMT > 0)) and (SUPPC_PAY_INTERVAL = 'O') set SCPC_DIVN_CODE to SUPPC_DIVN_CODE when (((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (TOTAL_AMT > 0)) and (SUPPC_PAY_INTERVAL = 'O') set SCPC_AMT to TOTAL_AMT when ((((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (TOTAL_AMT > 0)) and not (SUPPC_PAY_INTERVAL = 'O')) and (nvl(SUPPC_DAYS, 0) <= 31) set SCPC_PAY_MTH to to_char(SUPPC_DT_FM, 'YYYYMM') when ((((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (TOTAL_AMT > 0)) and not (SUPPC_PAY_INTERVAL = 'O')) and (nvl(SUPPC_DAYS, 0) <= 31) set SCPC_DIVN_CODE to SUPPC_DIVN_CODE when ((((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (TOTAL_AMT > 0)) and not (SUPPC_PAY_INTERVAL = 'O')) and (nvl(SUPPC_DAYS, 0) <= 31) deny when ((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((TOTAL_AMT > 0) and (nvl(TOTAL_AMT, 0) <> nvl(SUM_SHED_AMT, 0))) else "Scheduled total and contract total not tally" go to T_SUPP_CONTRACT_PAY_SCHEDULE when (((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPC_AMOUNT > 0) clear T_SUPP_CONTRACT_PAY_SCHEDULE when (((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPC_AMOUNT > 0) call WRITE_T_SUPP_CONTRACT_PAY_SCHEDULE_38427BC4(SUPPC_ID) when ((((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPC_AMOUNT > 0)) and (SUPP_CONTRACT_PAY_SCHEDULE.COUNT > 0) first record when (((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPC_AMOUNT > 0) set SCPC_PAY_MTH to to_char(SUPPC_DT_FM, 'YYYYMM') when ((((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPC_AMOUNT > 0)) and (SUPPC_PAY_INTERVAL = 'O') set SCPC_AMT to SUPPC_AMOUNT when ((((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPC_AMOUNT > 0)) and (SUPPC_PAY_INTERVAL = 'O') set SCPC_DIVN_CODE to SUPPC_DIVN_CODE when ((((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPC_AMOUNT > 0)) and (SUPPC_PAY_INTERVAL = 'O') set SCPC_PAY_MTH to to_char(SUPPC_DT_FM, 'YYYYMM') when (((((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPC_AMOUNT > 0)) and not (SUPPC_PAY_INTERVAL = 'O')) and (nvl(SUPPC_PAY_COUNT, 1) = 1) set SCPC_AMT to SUPPC_AMOUNT when (((((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPC_AMOUNT > 0)) and not (SUPPC_PAY_INTERVAL = 'O')) and (nvl(SUPPC_PAY_COUNT, 1) = 1) set SCPC_DIVN_CODE to SUPPC_DIVN_CODE when (((((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPC_AMOUNT > 0)) and not (SUPPC_PAY_INTERVAL = 'O')) and (nvl(SUPPC_PAY_COUNT, 1) = 1) deny when (((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and ((SUPPC_AMOUNT > 0) and (nvl(SUPPC_AMOUNT, 0) <> nvl(SUM_SHED_AMT, 0))) else "Scheduled total and contract total not tally" # 2 statements did not convert.# line 71 # Loop # Exit when v_Amt <= 0 ; # v_Inst_Cnt := Nvl(v_Inst_Cnt,0) + v_Interval ; # If v_Inst_Cnt >= v_Count Then # v_Inst_Amt :=v_Amt; # End If; # v_Amt :=v_Amt - v_Inst_Amt; # :ScPc_Pay_Mth := v_yrmth; # :Scpc_Amt :=v_Inst_Amt; # :Scpc_Divn_Code :=:Suppc_Divn_Code; # v_Date := Add_Months(v_Date,v_Interval); # v_yrmth :=To_Char(v_Date,'YYYYMM'); # Next_Record; # End loop; # reason: it exits when v_Amt <= 0, which is a condition on a row and not the end of the collection# line 124 # Loop # Exit when v_Amt <= 0 ; # v_Inst_Cnt := Nvl(v_Inst_Cnt,0) +1; # If v_Inst_Cnt >= Nvl(:Suppc_Pay_Count,1) Then # v_Inst_Amt :=v_Amt; # End If; # v_Amt :=v_Amt - v_Inst_Amt; # :ScPc_Pay_Mth := v_yrmth; # :Scpc_Amt :=v_Inst_Amt; # :Scpc_Divn_Code :=:Suppc_Divn_Code; # v_Date := Add_Months(v_Date,v_Interval); # v_yrmth :=To_Char(v_Date,'YYYYMM'); # Next_Record; # End loop; # reason: it exits when v_Amt <= 0, which is a condition on a row and not the end of the collection
23 clauses converted, 2 statements refused
17. fmb_supplier_agreementKEY-COMMIT on FMB_SUPPLIER_AGREEMENTstudy
What you haveKEY-COMMIT
Declare
Pl_Id Paramlist;
-- V_Report Varchar2(30) := 'Rep_Fmb_Rac';
V_Report Varchar2(30) := 'print_rac';
V_Rep_Id Report_Object;
V_Rep_Job_Id Varchar2(100);
V_Job_Id Varchar2(100);
V_Rep_Status Varchar2(100);
V_Rep_Url Varchar2(1000);
V_Host_Name Varchar2(100) := :Global.Rep_Host_Name;
V_Port Varchar2(100) := :Global.Rep_Port;
V_Rep_Server Varchar2(100) := :Global.Rep_Server;
V_Log_Id Number(10);
V_Dt Date;
Begin
Txn_Validate;
Validate_Slab;
Validate_Others;
If :System.Form_Status = 'CHANGED' Then
/*
If :Suppc_Old_Days <> :Suppc_Days and :Suppc_Type_Flag ='RENT' Then
Select Decode(Mod(Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days,:Suppc_Dt_Fm),1),.5),.5,
Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days,:Suppc_Dt_Fm),1),0,Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days,:Suppc_Dt_Fm),1),
Round(((:Suppc_Dt_Fm + :Suppc_Days) -:Suppc_Dt_Fm)/30,1)) * :Suppcr_Mth_Rate Into :Suppcr_Rate from dual;
End If;
*/
If :Suppc_Type_Flag ='RENT' Then
Go_Block ('T_SUPP_CONTRACT_ITEMALLOC');
First_Record;
If :SUPPCI_BRAND_CODE is Null Then
Show_Message('RAC_ALERT', 'Brand Code cannot be Null');
Go_Item('SUPPCI_BRAND_CODE');
Raise Form_Trigger_Failure;
End If;
End If;
If Nvl(:Suppcd_Total,0) > 0 Then
Proc_Divn_Pay_Schedule;
Else
Proc_Pay_Schedule;
End If;
If :Suppc_Type_Flag ='RENT' Then
If Nvl(:Sum_Shed_Amt,0) = 0 and :Total_Amt > 0
and :Suppc_Pay_Mode ='CN' Then
Show_Message('RAC_ALERT', 'Rental amount payment should be included in scheduled Payment');
Raise form_trigger_Failure;
End If;
End If;
Commit_Form;
If :System.Form_Status <> 'QUERY' Then
Show_Message('RAC_ALERT','ERROR, Document cannot be saved !');
Raise Form_Trigger_Failure;
End If;
End If;
-- If :Suppc_Type_Flag ='REBATE' Then
-- v_Report := 'print_rebate_contract';
-- Elsif :Suppc_Type_Flag ='ITEM_ACT' Then
-- v_Report := 'print_listing_contract';
-- Else
v_Report := Lower(:Frm_Report);
-- End If;
Select Count(*) Into :Prn_Count From T_Txn_Print_Log
Where Log_Comp_Code =:Suppc_Comp_Code
And Log_Loc_Code =:Suppc_Loc_Code
And Log_Ayr_Code =:Suppc_Ayr_Code
And Log_Txn_Code =:Suppc_Txn_Code
And :Suppc_No Between Log_No_From And Log_No_To;
If Nvl(:Prn_Count, 0) > 0 /* 06-06-2013*/And Nvl(:Frm_Rights_Override,0)=0 Then
Exit_Form(Do_Commit, No_Rollback);
Elsif (Nvl(:Prn_Count, 0) = 0 And Nvl(:Frm_Skip_Print, 'N') = 'N') Or (Nvl(:Prn_Count, 0) > 0 And Nvl(:Frm_Rights_Override,0)>0 ) Then
Pl_Id := Get_Parameter_List('Print');
If Not Id_Null(Pl_Id) Then
Destroy_Parameter_List(Pl_Id);
End If;
Pl_Id := Create_Parameter_List('Print');
Add_Parameter(Pl_Id, 'Suppc_Comp_Code', Text_Parameter, :Suppc_Comp_Code);
Add_Parameter(Pl_Id, 'suppc_Loc_Code', Text_Parameter, :Suppc_Loc_Code);
Add_Parameter(Pl_Id, 'suppc_Txn_Code', Text_Parameter, :Suppc_Txn_Code);
Add_Parameter(Pl_Id, 'suppc_AYr_Code', Text_Parameter, :Suppc_Ayr_Code);
Add_Parameter(Pl_Id, 'Suppc_No_Fm', Text_Parameter, :Suppc_No);
Add_Parameter(Pl_Id, 'Suppc_No_To', Text_Parameter, :Suppc_No);
Add_Parameter(Pl_Id, 'Suppc_Type', Text_Parameter, :Suppc_Type);
Add_Parameter(Pl_Id, 'Suppc_Supp_Code', Text_Parameter, :Suppc_Supp_Code);
Add_Parameter(Pl_Id, 'Parm_User', Text_Parameter, :Global.User);
Add_Parameter(Pl_Id, 'ParamForm', Text_Parameter, 'No');
Add_Parameter(Pl_Id, 'DesType', Text_Parameter, 'Preview');
Add_Parameter(Pl_Id, 'Curr_Fmt', Text_Parameter, :Global.Curr_Format);
Add_Parameter(Pl_Id, 'Dt_Fmt', Text_Parameter, :Global.Dateformat);
Add_Parameter(PL_Id, 'Usr_Id', Text_Parameter, :Global.User);
Add_Parameter(PL_Id, 'Rep_Id', Text_Parameter, :Global.System_Product || '.' || :Parameter.Menu_Code);
Add_Parameter(PL_Id, 'Comp_Name', Text_Parameter, :Global.Company_Name);
--Find Report Object
V_Rep_Id := Find_Report_Object('print_rac');
--Communication Mode
Set_Report_Object_Property(V_Rep_Id, Report_Comm_Mode, Synchronous);
Set_Report_Object_Property(V_Rep_Id, Report_Desformat, :Frm_Desformat);
--Handled Destination Type And Name
If :Mnu_Dest_Name = 'PRINTER' Then
Set_Report_Object_Property(V_Rep_Id, Report_Destype, Printer);
If Nvl(:Frm_Printer_Name,:Mnu_Printer_Name) Is Not Null Then
Set_Report_Object_Property(V_Rep_Id, Report_Desname, Nvl(:Frm_Printer_Name,:Mnu_Printer_Name));
End If;
Else
Set_Report_Object_Property(V_Rep_Id, Report_Destype,Cache);
End If;
--Specify Report Server And Report File Name
Set_Report_Object_Property(V_Rep_Id, Report_Server, V_Rep_Server);
Set_Report_Object_Property(V_Rep_Id, Report_Filename, v_Report);
--Run Report
V_Rep_Job_Id := Run_Report_Object(V_Rep_Id, Pl_Id);
V_Rep_Status := Report_Object_Status(V_Rep_Job_Id);
If V_Rep_Status = 'FINISHED' Then
-------------29-06-13----------
If Upper(:Mnu_Dest_Name) = 'PRINTER' Then
V_Job_Id := Substr(V_Rep_Job_Id, Length(V_Rep_Server)+2);
V_Rep_Url := 'http://' || V_Host_Name || ':' || V_Port || '/reports/rwservlet/getjobid' || V_Job_Id || '?server=' || V_Rep_Server;
Set_Custom_Property('CTRL.PRINTBEAN',1,'FILE_NAME',V_Rep_Url);
Set_Custom_Property('CTRL.PRINTBEAN',1,'PRINT_FILE','');
--------------------------------------
Elsif Upper(:Mnu_Dest_Name) = 'CACHE' Then
V_Job_Id := Substr(V_Rep_Job_Id, Length(V_Rep_Server)+2);
V_Rep_Url := 'http://' || V_Host_Name || ':' || V_Port || '/reports/rwservlet/getjobid' || V_Job_Id || '?server=' || V_Rep_Server;
-- Message(V_Rep_Url);
Web.Show_Document(V_Rep_Url, '_blank');
End If;
Else
Message('Error Running Report');
End If;
--Print Log
Proc_Insert_Txn_Print_Log1(:Global.Company,:Suppc_Loc_Code, :Suppc_Ayr_Code, :Suppc_Txn_Code, :Suppc_No, :Suppc_No, Sysdate,:Global.User);
Commit;
------------
Else
Show_Message('Alert1','Do# :'||:Suppc_Loc_Code||'/'||:Suppc_Txn_Code||'/'||:Suppc_No);
End If;
-------------------
Clear_Form;
Init_Form;
End;What you getClause Rule Language
on commit: from load-fmb-supplier-agreement--0(SUPPC_AYR_CODE, SUPPC_COMP_CODE, SUPPC_LOC_CODE, SUPPC_NO, SUPPC_TXN_CODE) call TXN_VALIDATE() call VALIDATE_SLAB() call VALIDATE_OTHERS() go to T_SUPP_CONTRACT_ITEMALLOC when (SYSTEM.FORM_STATUS = 'CHANGED') and (SUPPC_TYPE_FLAG = 'RENT') warn "Brand Code cannot be Null" when ((SYSTEM.FORM_STATUS = 'CHANGED') and (SUPPC_TYPE_FLAG = 'RENT')) and is_blank(SUPPCI_BRAND_CODE) go to SUPPCI_BRAND_CODE when ((SYSTEM.FORM_STATUS = 'CHANGED') and (SUPPC_TYPE_FLAG = 'RENT')) and is_blank(SUPPCI_BRAND_CODE) deny when ((SYSTEM.FORM_STATUS = 'CHANGED') and (SUPPC_TYPE_FLAG = 'RENT')) and is_blank(SUPPCI_BRAND_CODE) silent call PROC_DIVN_PAY_SCHEDULE() when (SYSTEM.FORM_STATUS = 'CHANGED') and (nvl(SUPPCD_TOTAL, 0) > 0) call PROC_PAY_SCHEDULE() when (SYSTEM.FORM_STATUS = 'CHANGED') and not (nvl(SUPPCD_TOTAL, 0) > 0) deny when ((SYSTEM.FORM_STATUS = 'CHANGED') and (SUPPC_TYPE_FLAG = 'RENT')) and (((nvl(SUM_SHED_AMT, 0) = 0) and (TOTAL_AMT > 0)) and (SUPPC_PAY_MODE = 'CN')) else "Rental amount payment should be included in scheduled Payment" deny when (SYSTEM.FORM_STATUS = 'CHANGED') and (SYSTEM.FORM_STATUS <> 'QUERY') else "ERROR, Document cannot be saved !" set PRN_COUNT to COUNT close screen when (nvl(PRN_COUNT, 0) > 0) and (nvl(FRM_RIGHTS_OVERRIDE, 0) = 0) report lower(FRM_REPORT) with (Comp_Name = GLOBAL.COMPANY_NAME, Curr_Fmt = GLOBAL.CURR_FORMAT, DesType = 'Preview', Dt_Fmt = GLOBAL.DATEFORMAT, ParamForm = 'No', Parm_User = GLOBAL.USER, Rep_Id = (GLOBAL.SYSTEM_PRODUCT || '.') || PARAMETER.MENU_CODE, Suppc_Comp_Code = SUPPC_COMP_CODE, Suppc_No_Fm = SUPPC_NO, Suppc_No_To = SUPPC_NO, Suppc_Supp_Code = SUPPC_SUPP_CODE, Suppc_Type = SUPPC_TYPE, Usr_Id = GLOBAL.USER, suppc_AYr_Code = SUPPC_AYR_CODE, suppc_Loc_Code = SUPPC_LOC_CODE, suppc_Txn_Code = SUPPC_TXN_CODE) when not ((nvl(PRN_COUNT, 0) > 0) and (nvl(FRM_RIGHTS_OVERRIDE, 0) = 0)) and (((nvl(PRN_COUNT, 0) = 0) and (nvl(FRM_SKIP_PRINT, 'N') = 'N')) or ((nvl(PRN_COUNT, 0) > 0) and (nvl(FRM_RIGHTS_OVERRIDE, 0) > 0))) call PROC_INSERT_TXN_PRINT_LOG1(GLOBAL.COMPANY, SUPPC_LOC_CODE, SUPPC_AYR_CODE, SUPPC_TXN_CODE, SUPPC_NO, SUPPC_NO, sysdate(), GLOBAL.USER) when not ((nvl(PRN_COUNT, 0) > 0) and (nvl(FRM_RIGHTS_OVERRIDE, 0) = 0)) and (((nvl(PRN_COUNT, 0) = 0) and (nvl(FRM_SKIP_PRINT, 'N') = 'N')) or ((nvl(PRN_COUNT, 0) > 0) and (nvl(FRM_RIGHTS_OVERRIDE, 0) > 0))) warn (((('Do# :' || SUPPC_LOC_CODE) || '/') || SUPPC_TXN_CODE) || '/') || SUPPC_NO when not ((nvl(PRN_COUNT, 0) > 0) and (nvl(FRM_RIGHTS_OVERRIDE, 0) = 0)) and not (((nvl(PRN_COUNT, 0) = 0) and (nvl(FRM_SKIP_PRINT, 'N') = 'N')) or ((nvl(PRN_COUNT, 0) > 0) and (nvl(FRM_RIGHTS_OVERRIDE, 0) > 0))) clear form # 2 statements did not convert.# line 127 # If V_Rep_Status = 'FINISHED' Then # If Upper(:Mnu_Dest_Name) = 'PRINTER' Then # V_Job_Id := Substr(V_Rep_Job_Id, Length(V_Rep_Server)+2); # V_Rep_Url := 'http://' || V_Host_Name || ':' || V_Port || '/reports/rwservlet/getjobid' || V_Job_Id || '?server=' || V_Rep_Server; # Set_Custom_Property('CTRL.PRINTBEAN',1,'FILE_NAME',V_Rep_Url); # Set_Custom_Property('CTRL.PRINTBEAN',1,'PRINT_FILE',''); # Else # If Upper(:Mnu_Dest_Name) = 'CACHE' Then # V_Job_Id := Substr(V_Rep_Job_Id, Length(V_Rep_Server)+2); # V_Rep_Url := 'http://' || V_Host_Name || ':' || V_Port || '/reports/rwservlet/getjobid' || V_Job_Id || '?server=' || V_Rep_Server; # Web.Show_Document(V_Rep_Url, '_blank'); # End If; # End If; # Else # Message('Error Running Report'); # End If; # reason: the guard reads the local V_REP_STATUS, which is written from something CRL has no expression for: a Forms built-in, a database call or a shape the reader refuses# line 146 # Commit; # reason: COMMIT is one of PL/SQL's own verbs, one of SQL's scalar functions or a built-in package, so it is not a database object a FormConnect entry is written for and there is no body here to inline under the caller's point and item either
17 clauses converted, 2 statements refused
18. fmb_supplier_agreementon unit PROC_DIVN_PAY_SCHEDULEstudy
What you havePROGRAM-UNIT
PROCEDURE proc_divn_pay_schedule IS
v_Amt Number(12,2);
v_Inst_Amt Number(12,2);
v_Count Number;
v_yrmth Number;
v_Days Number;
v_Total Number;
v_Inst_cnt Number;
v_Date Date;
v_Cnt Number;
v_Interval Number;
BEGIN
If :Suppc_Pay_Interval ='M' Then
v_Interval := 1;
ElsIf :Suppc_Pay_Interval ='Q' Then
v_Interval := 3;
ElsIf :Suppc_Pay_Interval ='H' Then
v_Interval := 6;
ElsIf :Suppc_Pay_Interval ='Y' Then
v_Interval := 12;
End If;
If :Suppc_Type is Not Null Then
Select count(*) into v_Count From
M_Supp_Contract_Type
Where Ctype_Code=:Suppc_Type;
If v_Count >0 Then
Select CType_Flag
Into :Suppc_Type_Flag
From M_Supp_Contract_Type
Where Ctype_Code=:Suppc_Type;
End If;
v_Date := :Suppc_Dt_Fm;
If :Suppc_Type_Flag IN('REBATE','PREBATE','REBATE-S','REBATE-FIN') Then
Null;
Elsif :Suppc_Type_Flag='RENT' Then
If :Suppcd_Total > 0 Then
Select Count(*) into v_Cnt From T_Supp_Contract_Pay_Schedule Where
Scpc_Suppc_Id =:Suppc_Id;
If v_Cnt > 0 Then
Delete from T_Supp_Contract_Pay_Schedule Where
Scpc_Suppc_Id =:Suppc_Id;
End If;
Go_Block('T_Supp_Contract_Pay_Schedule');
Clear_Block(No_Validate);
Go_Block('T_Supp_Contract_Divn');
First_Record;
Loop
If :Suppcd_Amt >0 Then
v_Amt :=:Suppcd_Amt;
Go_Block('T_Supp_Contract_Pay_Schedule');
If :System.Record_status <> 'NEW' then
Last_Record;
Next_record;
Else
First_Record;
End if;
v_Date :=:Suppc_Dt_Fm;
v_Inst_Cnt :=0;
v_yrmth := To_Char(v_Date,'YYYYMM');
If :Suppc_Pay_Interval ='O' Then
:ScPc_Pay_Mth := v_yrmth;
:Scpc_Amt := v_Amt;
v_Total := v_Amt;
:Scpc_Suppcd_Id := :Suppcd_Id;
:Scpc_Divn_Code := :Suppcd_Divn_Code;
Else
If Nvl(:Suppc_Days,0) <= 31 Then
:Scpc_Amt :=v_Amt;
v_Total := v_Amt;
:ScPc_Pay_Mth := v_yrmth;
:Scpc_Suppcd_Id := :Suppcd_Id;
:Scpc_Divn_Code := :Suppcd_Divn_Code;
Else
v_Count := 0;
Select Decode(Mod(Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days,:Suppc_Dt_Fm),1),.5),.5,
Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days,:Suppc_Dt_Fm),1),0,
Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days,:Suppc_Dt_Fm),1),
Round(((:Suppc_Dt_Fm + :Suppc_Days) -:Suppc_Dt_Fm)/30,1)) Into v_Count from dual;
v_Inst_Amt :=Round(v_Amt/(v_Count/v_Interval));
Loop
Exit when v_Amt <= 0 ;
v_Inst_Cnt := Nvl(v_Inst_Cnt,0) + v_Interval ;
If v_Inst_Cnt >= v_Count Then
v_Inst_Amt :=v_Amt;
End If;
v_Amt :=v_Amt - v_Inst_Amt;
:ScPc_Pay_Mth := v_yrmth;
:Scpc_Amt :=v_Inst_Amt;
:Scpc_Suppcd_Id := :Suppcd_Id;
:Scpc_Divn_Code := :Suppcd_Divn_Code;
v_Date := Add_Months(v_Date,v_Interval);
v_yrmth :=To_Char(v_Date,'YYYYMM');
Next_Record;
End loop;
End If;
End If;
End If;
Go_Block('T_Supp_Contract_Divn');
If :SYSTEM.LAST_RECORD = 'TRUE' Then
Exit;
End If;
Next_Record;
End Loop;
End If;
If :Suppcd_Total >0 and Nvl(:Suppcd_Total,0) <> Nvl(:Sum_Shed_Amt,0) Then
Show_Message('Alert1','Scheduled total and contract total not tally');
Raise form_trigger_failure;
End If;
Elsif :Suppc_Type_Flag In ('LISTING','NEW_REG','ITEM_ACT','OTHERS') Then
If :Suppcd_Total > 0 Then
Select Count(*) into v_Cnt From T_Supp_Contract_Pay_Schedule Where
Scpc_Suppc_Id =:Suppc_Id;
If v_Cnt > 0 Then
Delete from T_Supp_Contract_Pay_Schedule Where
Scpc_Suppc_Id =:Suppc_Id;
End If;
Go_Block('T_Supp_Contract_Pay_Schedule');
Clear_Block(No_Validate);
Go_Block('T_Supp_Contract_Divn');
First_Record;
Loop
If :Suppcd_Amt >0 Then
v_Amt :=:Suppcd_Amt;
Go_Block('T_Supp_Contract_Pay_Schedule');
If :System.Record_status <> 'NEW' then
Last_Record;
Next_record;
End if;
v_Date :=:Suppc_Dt_Fm;
v_Inst_Cnt :=0;
v_yrmth := To_Char(v_Date,'YYYYMM');
If :Suppc_Pay_Interval ='O' Then
:ScPc_Pay_Mth := v_yrmth;
:Scpc_Amt := v_Amt;
v_Total := v_Amt;
:Scpc_Suppcd_Id := :Suppcd_Id;
:Scpc_Divn_Code := :Suppcd_Divn_Code;
Else
--Show_Message('alert1','1');
If Nvl(:Suppc_Pay_Count,1) = 1 Then
:ScPc_Pay_Mth := v_yrmth;
:Scpc_Amt :=v_Amt;
v_Total := v_Amt;
:Scpc_Suppcd_Id := :Suppcd_Id;
:Scpc_Divn_Code := :Suppcd_Divn_Code;
Else
--Show_Message('alert1','2');
v_Inst_Amt :=Round(v_Amt/ Nvl(:Suppc_Pay_Count,1));
Loop
Exit when v_Amt <= 0 ;
v_Inst_Cnt := Nvl(v_Inst_Cnt,0) +1;
If v_Inst_Cnt >= Nvl(:Suppc_Pay_Count,1) Then
v_Inst_Amt :=v_Amt;
End If;
v_Amt :=v_Amt - v_Inst_Amt;
:ScPc_Pay_Mth := v_yrmth;
:Scpc_Amt :=v_Inst_Amt;
:Scpc_Suppcd_Id := :Suppcd_Id;
:Scpc_Divn_Code := :Suppcd_Divn_Code;
v_Date := Add_Months(v_Date,v_Interval);
v_yrmth :=To_Char(v_Date,'YYYYMM');
Next_Record;
End loop;
End If;
End If;
End If;
Go_Block('T_Supp_Contract_Divn');
If :SYSTEM.LAST_RECORD = 'TRUE' Then
Exit;
End If;
Next_Record;
End Loop;
End If;
If :Suppcd_Total >0 and Nvl(:Suppcd_Total,0) <> Nvl(:Sum_Shed_Amt,0) Then
Show_Message('Alert1','Scheduled total and contract total not tally');
Raise form_trigger_failure;
End If;
End If;
End If;
END;What you getClause Rule Language
on unit PROC_DIVN_PAY_SCHEDULE: from SUPP_CONTRACT_TYPE_COUNT(SUPPC_TYPE) when is_filled(SUPPC_TYPE) # load-fmb-supplier-agreement-proc-divn-pay-schedule-unit-0 from SUPP_CONTRACT_TYPE(SUPPC_TYPE) when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0) # load-fmb-supplier-agreement-proc-divn-pay-schedule-unit-1 from SUPP_CONTRACT_PAY_SCHEDULE(SUPPC_ID) when ((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (SUPPCD_TOTAL > 0) # load-fmb-supplier-agreement-proc-divn-pay-schedule-unit-2 set SUPPC_TYPE_FLAG to SUPP_CONTRACT_TYPE.CTYPE_FLAG when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0) call WRITE_T_SUPP_CONTRACT_PAY_SCHEDULE_38427BC4(SUPPC_ID) when (((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (SUPPCD_TOTAL > 0)) and (SUPP_CONTRACT_PAY_SCHEDULE.COUNT > 0) go to T_SUPP_CONTRACT_PAY_SCHEDULE when ((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (SUPPCD_TOTAL > 0) clear T_SUPP_CONTRACT_PAY_SCHEDULE when ((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (SUPPCD_TOTAL > 0) go to T_SUPP_CONTRACT_DIVN when ((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and (SUPPCD_TOTAL > 0) deny when ((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPPCD_TOTAL > 0) and (nvl(SUPPCD_TOTAL, 0) <> nvl(SUM_SHED_AMT, 0))) else "Scheduled total and contract total not tally" call WRITE_T_SUPP_CONTRACT_PAY_SCHEDULE_38427BC4(SUPPC_ID) when ((((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPCD_TOTAL > 0)) and (SUPP_CONTRACT_PAY_SCHEDULE.COUNT > 0) go to T_SUPP_CONTRACT_PAY_SCHEDULE when (((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPCD_TOTAL > 0) clear T_SUPP_CONTRACT_PAY_SCHEDULE when (((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPCD_TOTAL > 0) go to T_SUPP_CONTRACT_DIVN when (((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and (SUPPCD_TOTAL > 0) deny when (((is_filled(SUPPC_TYPE) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS'))) and ((SUPPCD_TOTAL > 0) and (nvl(SUPPCD_TOTAL, 0) <> nvl(SUM_SHED_AMT, 0))) else "Scheduled total and contract total not tally" # 2 statements did not convert.# line 51 # Loop # If :Suppcd_Amt >0 Then # v_Amt :=:Suppcd_Amt; # Go_Block('T_Supp_Contract_Pay_Schedule'); # If :System.Record_status <> 'NEW' then # Last_Record; # Next_record; # Else # First_Record; # End if; # v_Date :=:Suppc_Dt_Fm; # v_Inst_Cnt :=0; # v_yrmth := To_Char(v_Date,'YYYYMM'); # If :Suppc_Pay_Interval ='O' Then # :ScPc_Pay_Mth := v_yrmth; # :Scpc_Amt := v_Amt; # v_Total := v_Amt; # :Scpc_Suppcd_Id := :Suppcd_Id; # :Scpc_Divn_Code := :Suppcd_Divn_Code; # Else # If Nvl(:Suppc_Days,0) <= 31 Then # :Scpc_Amt :=v_Amt; # v_Total := v_Amt; # :ScPc_Pay_Mth := v_yrmth; # :Scpc_Suppcd_Id := :Suppcd_Id; # :Scpc_Divn_Code := :Suppcd_Divn_Code; # Else # v_Count := 0; # Select Decode(Mod(Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days,:Suppc_Dt_Fm),1),.5),.5, # Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days,:Suppc_Dt_Fm),1),0, # Round(Months_Between(:Suppc_Dt_Fm + :Suppc_Days,:Suppc_Dt_Fm),1), # Round(((:Suppc_Dt_Fm + :Suppc_Days) -:Suppc_Dt_Fm)/30,1)) Into v_Count from dual; # v_Inst_Amt :=Round(v_Amt/(v_Count/v_Interval)); # Loop # Exit when v_Amt <= 0 ; # v_Inst_Cnt := Nvl(v_Inst_Cnt,0) + v_Interval ; # If v_Inst_Cnt >= v_Count Then # v_Inst_Amt :=v_Amt; # End If; # v_Amt :=v_Amt - v_Inst_Amt; # :ScPc_Pay_Mth := v_yrmth; # :Scpc_Amt :=v_Inst_Amt; # :Scpc_Suppcd_Id := :Suppcd_Id; # :Scpc_Divn_Code := :Suppcd_Divn_Code; # v_Date := Add_Months(v_Date,v_Interval); # v_yrmth :=To_Char(v_Date,'YYYYMM'); # Next_Record; # End loop; # End If; # End If; # End If; # Go_Block('T_Supp_Contract_Divn'); # If :SYSTEM.LAST_RECORD = 'TRUE' Then # Exit; # End If; # Next_Record; # End Loop; # reason: it holds a loop over a block inside a loop over a block, and a collection operation reads one collection# line 127 # Loop # If :Suppcd_Amt >0 Then # v_Amt :=:Suppcd_Amt; # Go_Block('T_Supp_Contract_Pay_Schedule'); # If :System.Record_status <> 'NEW' then # Last_Record; # Next_record; # End if; # v_Date :=:Suppc_Dt_Fm; # v_Inst_Cnt :=0; # # v_yrmth := To_Char(v_Date,'YYYYMM'); # If :Suppc_Pay_Interval ='O' Then # :ScPc_Pay_Mth := v_yrmth; # :Scpc_Amt := v_Amt; # v_Total := v_Amt; # :Scpc_Suppcd_Id := :Suppcd_Id; # :Scpc_Divn_Code := :Suppcd_Divn_Code; # Else # # If Nvl(:Suppc_Pay_Count,1) = 1 Then # :ScPc_Pay_Mth := v_yrmth; # :Scpc_Amt :=v_Amt; # v_Total := v_Amt; # :Scpc_Suppcd_Id := :Suppcd_Id; # :Scpc_Divn_Code := :Suppcd_Divn_Code; # Else # # v_Inst_Amt :=Round(v_Amt/ Nvl(:Suppc_Pay_Count,1)); # Loop # Exit when v_Amt <= 0 ; # v_Inst_Cnt := Nvl(v_Inst_Cnt,0) +1; # If v_Inst_Cnt >= Nvl(:Suppc_Pay_Count,1) Then # v_Inst_Amt :=v_Amt; # End If; # v_Amt :=v_Amt - v_Inst_Amt; # :ScPc_Pay_Mth := v_yrmth; # :Scpc_Amt :=v_Inst_Amt; # :Scpc_Suppcd_Id := :Suppcd_Id; # :Scpc_Divn_Code := :Suppcd_Divn_Code; # v_Date := Add_Months(v_Date,v_Interval); # v_yrmth :=To_Char(v_Date,'YYYYMM'); # Next_Record; # End loop; # End If; # End If; # End If; # Go_Block('T_Supp_Contract_Divn'); # If :SYSTEM.LAST_RECORD = 'TRUE' Then # Exit; # End If; # Next_Record; # End Loop; # reason: it holds a loop over a block inside a loop over a block, and a collection operation reads one collection
11 clauses converted, 2 statements refused
19. fmb_supplier_agreementKEY-NEXT-ITEM on T_SUPP_CONTRACT.SUPPC_TYPEstudy
What you haveKEY-NEXT-ITEM
Declare
V_En_Days Char(1);
v_Count Number;
Begin
If :Suppc_Type Is Null Then --Added by Ebilin,7/2/21
List_Values;
Else
Next_Item;
End If; --till here
If Get_Tab_Page_Property('Pay_Shed',Enabled) <>'TRUE' Then
Set_Tab_Page_Property('Pay_Shed', Enabled, Property_True);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Disc_Perc',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Disc_Perc',Enabled,Property_True);
End If;
If :Suppc_Type is Not Null Then
Select count(*) into v_Count From
M_Supp_Contract_Type
Where Ctype_Code=:Suppc_Type;
If v_Count >0 Then
Select Nvl(CTYPE_NO_DAYS_EN,'N'),CType_Main_Acnt_Code,CType_Description,CType_Flag
Into V_En_Days,:Suppc_Main_Acnt_Code,:Suppc_Type_Name,:Suppc_Type_Flag
From M_Supp_Contract_Type
Where Ctype_Code=:Suppc_Type;
If V_En_Days='Y' Then
Set_Item_Property('Suppc_Days',Enabled,Property_True);
Else
Set_Item_Property('Suppc_Days',Enabled,Property_False);
End If;
If :Suppc_Type_Flag in('REBATE','PREBATE','REBATE-S','REBATE-FIN') Then
:T_Supp_Contract.Suppc_Items_Reg_Count:='';
:T_Supp_Contract.Suppc_Amount:='';
:T_Supp_Contract.Suppc_Pay_Count:=0;
If Get_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Days',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Days',Enabled,Property_True);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled,Property_False);
End If;
If Get_Tab_page_Property('Rebate',Enabled ) <> 'TRUE' Then
Set_Tab_Page_Property('Rebate', Enabled, Property_True);
Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'Rebate');
Set_Tab_Page_Property('Reb_Except', Enabled, Property_True);
End If;
Set_Block_Property ('T_Supp_Contract_Rebate', Insert_Allowed, Property_True);
Set_Block_Property ('T_Supp_Contract_Rebate', Update_Allowed, Property_True);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Insert_Allowed, Property_True);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Update_Allowed, Property_True);
Set_Block_Property ('T_Supp_Contract_Rentarea', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rentarea', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Update_Allowed, Property_False);
Set_Item_Property('T_Supp_Contract_Itemalloc.Pb_Load',Enabled,Property_False);
If Get_Tab_Page_Property('Rentarea',Enabled ) = 'TRUE' Then
Set_Tab_Page_Property('Rentarea', Enabled, Property_False);
Set_Tab_Page_Property('Itemalloc', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Padj',Enabled) = 'TRUE' Then
Set_Tab_Page_Property('Padj', Enabled, Property_False);
End If;
Elsif :Suppc_Type_Flag='RENT' Then
:T_Supp_Contract.Suppc_Items_Reg_Count:='';
:T_Supp_Contract.Suppc_Amount:='';
:T_Supp_Contract.Suppc_Pay_Count:=0;
If Get_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Days',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Days',Enabled,Property_True);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Mode',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Mode',Enabled,Property_True);
:Suppc_Days:=0;
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled)<> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled,Property_True);
:Suppc_Days:=0;
End If;
If Get_Tab_Page_Property('Rentarea',Enabled ) <> 'TRUE' Then
Set_Tab_Page_Property('Rentarea', Enabled, Property_True);
Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'Rentarea');
Set_Tab_Page_Property('Itemalloc', Enabled, Property_True);
If Get_Item_Property('Suppci_Cat_Code',Enabled) ='FALSE' Then
Set_Item_Property('SuppcI_Cat_Code',Enabled,Property_True);
Set_Item_Property('SuppcI_Make_Code',Enabled,Property_True);
End If;
If Get_Tab_Page_Property('Padj',Enabled) = 'TRUE' Then
Set_Tab_Page_Property('Padj', Enabled, Property_False);
End If;
End If;
Set_Block_Property ('T_Supp_Contract_Rentarea', Insert_Allowed, Property_True);
Set_Block_Property ('T_Supp_Contract_Rentarea', Update_Allowed, Property_True);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Insert_Allowed, Property_True);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Update_Allowed, Property_True);
Set_Item_Property('T_Supp_Contract_Itemalloc.Pb_Load',Enabled,Property_True);
Set_Block_Property ('T_Supp_Contract_Rebate', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rebate', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Update_Allowed, Property_False);
If Get_Tab_Page_Property('Rebate',Enabled ) = 'TRUE' Then
Set_Tab_Page_Property('Rebate', Enabled, Property_False);
Set_Tab_Page_Property('Reb_Except', Enabled, Property_False);
End If;
Elsif :Suppc_Type_Flag In('LISTING','NEW_REG') Then
If Get_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled,Property_True);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Item_Reg_Offer',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Item_Reg_Offer',Enabled,Property_True);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled,Property_True);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled,Property_True);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Days',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Days',Enabled,Property_False);
:Suppc_Days:=0;
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Mode',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Mode',Enabled,Property_True);
:Suppc_Days:=0;
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled)<> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled,Property_True);
:Suppc_Days:=0;
End If;
Set_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled,Property_True);
Set_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled,Property_True);
If Get_Tab_Page_Property('Rebate',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Rebate', Enabled, Property_False);
Set_Tab_Page_Property('Reb_Except', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Padj',Enabled) = 'TRUE' Then
Set_Tab_Page_Property('Padj', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Rentarea',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Rentarea', Enabled, Property_False);
Set_Tab_Page_Property('Itemalloc', Enabled, Property_False);
End If;
Set_Block_Property ('T_Supp_Contract_Rebate', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rebate', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rentarea', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rentarea', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Update_Allowed, Property_False);
Set_Item_Property('T_Supp_Contract_Itemalloc.Pb_Load',Enabled,Property_False);
Elsif :Suppc_Type_Flag In('ITEM_ACT') Then
If Get_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled,Property_True);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Item_Reg_Offer',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Item_Reg_Offer',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled,Property_True);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled,Property_True);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Days',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Days',Enabled,Property_False);
:Suppc_Days:=0;
End If;
If Get_Tab_Page_Property('Padj',Enabled) = 'TRUE' Then
Set_Tab_Page_Property('Padj', Enabled, Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Mode',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Mode',Enabled,Property_True);
:Suppc_Days:=0;
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled)<> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled,Property_True);
:Suppc_Days:=0;
End If;
--Set_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled,Property_True);
--Set_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled,Property_True);
If Get_Tab_Page_Property('Rebate',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Rebate', Enabled, Property_False);
Set_Tab_Page_Property('Reb_Except', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Rentarea',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Rentarea', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Itemalloc',Enabled) <> 'TRUE' Then
Set_Tab_Page_Property('Itemalloc', Enabled, Property_True);
Set_Item_Property('SuppcI_Cat_Code',Enabled,Property_False);
Set_Item_Property('SuppcI_Make_Code',Enabled,Property_False);
End If;
Set_Block_Property ('T_Supp_Contract_Rebate', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rebate', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rentarea', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rentarea', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Insert_Allowed, Property_True);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Update_Allowed, Property_True);
Set_Item_Property('T_Supp_Contract_Itemalloc.Pb_Load',Enabled,Property_False);
--Shibu on 28/03/18
Elsif :Suppc_Type_Flag In('PRICE_ADJ') Then
If Get_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Days',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Days',Enabled,Property_False);
:Suppc_Days:=0;
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Item_Reg_Offer',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Item_Reg_Offer',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Padj_Disc_Amt',Enabled)<> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Padj_Disc_Amt',Enabled,Property_True);
End If;
:Suppc_Pay_Mode :='CN';
:Suppc_Pay_Interval :='O';
:Suppc_Pay_Count := 1;
:Suppc_Dt_Fm := :Suppc_Dt;
:Suppc_Days := 1;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Mode',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Mode',Enabled,Property_False);
:Suppc_Days:=0;
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled,Property_False);
:Suppc_Days:=0;
End If;
If Get_Tab_Page_Property('Rebate',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Rebate', Enabled, Property_False);
Set_Tab_Page_Property('Reb_Except', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Padj',Enabled) <> 'TRUE' Then
Set_Tab_Page_Property('Padj', Enabled, Property_True);
End If;
If Get_Tab_Page_Property('Pay_Shed',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Pay_Shed', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Rentarea',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Rentarea', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Itemalloc',Enabled) = 'TRUE' Then
Set_Tab_Page_Property('Itemalloc', Enabled, Property_False);
Set_Item_Property('SuppcI_Cat_Code',Enabled,Property_False);
Set_Item_Property('SuppcI_Make_Code',Enabled,Property_False);
End If;
Set_Block_Property ('T_Supp_Contract_Rebate', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rebate', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rentarea', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rentarea', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Insert_Allowed, Property_True);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Update_Allowed, Property_True);
Set_Item_Property('T_Supp_Contract_Itemalloc.Pb_Load',Enabled,Property_False);
Set_Item_Property('Suppcp_Make_Code',Enabled,Property_False);
Set_Item_Property('Suppcp_Cat_Code',Enabled,Property_False);
Set_Item_Property('Suppcp_Brand_Code',Enabled,Property_False);
Set_Item_Property('Pb_Lov_Brand1',Enabled,Property_False);
Set_Item_Property('Pb_Lov_Make1',Enabled,Property_False);
Set_Item_Property('Pb_Lov_Cat1',Enabled,Property_False);
Set_Item_Property('Suppcp_Disc_Perc',Enabled,Property_False);
Elsif :Suppc_Type_Flag In('PRICE_ADJS','PRICE_ADJP','PADJ_POS') Then
If Get_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Days',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Days',Enabled,Property_True);
:Suppc_Days:=0;
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Item_Reg_Offer',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Item_Reg_Offer',Enabled,Property_False);
End If;
If Get_Item_Property('SuppcD_Divn_Code',Enabled) <> 'TRUE' Then
Set_Item_Property('SuppcD_Divn_Code',Enabled,Property_True);
Set_Item_Property('PB_Lov_Divn',Enabled,Property_True);
End If;
:Suppc_Pay_Mode :='CN';
:Suppc_Pay_Interval :='M';
:Suppc_Pay_Count := 1;
:Suppc_Dt_Fm := :Suppc_Dt;
:Suppc_Days := 30;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Mode',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Mode',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled) <>'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled,Property_True);
End If;
If Get_Tab_Page_Property('Rebate',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Rebate', Enabled, Property_False);
Set_Tab_Page_Property('Reb_Except', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Padj',Enabled) <> 'TRUE' Then
Set_Tab_Page_Property('Padj', Enabled, Property_True);
End If;
If Get_Tab_Page_Property('Pay_Shed',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Pay_Shed', Enabled, Property_True);
End If;
If Get_Item_Property('Suppcp_Qty',Enabled) = 'TRUE' Then
Set_Item_Property('Suppcp_Qty',Enabled,Property_False);
End If;
If Get_Item_Property('Suppcp_Loose',Enabled) = 'TRUE' Then
Set_Item_Property('Suppcp_Loose',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled) <>'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled,Property_True);
End If;
If Get_Tab_Page_Property('Rentarea',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Rentarea', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Itemalloc',Enabled) = 'TRUE' Then
Set_Tab_Page_Property('Itemalloc', Enabled, Property_False);
Set_Item_Property('SuppcI_Cat_Code',Enabled,Property_False);
Set_Item_Property('SuppcI_Make_Code',Enabled,Property_False);
End If;
Set_Block_Property ('T_Supp_Contract_Rebate', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rebate', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rentarea', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rentarea', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Insert_Allowed, Property_True);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Update_Allowed, Property_True);
Set_Item_Property('T_Supp_Contract_Itemalloc.Pb_Load',Enabled,Property_False);
--
Elsif :Suppc_Type_Flag In('OTHERS') Then
If Get_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled,Property_False);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled,Property_True);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Count',Enabled,Property_True);
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Days',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Days',Enabled,Property_True);
:Suppc_Days:=0;
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Mode',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Mode',Enabled,Property_True);
:Suppc_Days:=0;
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled)<> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Pay_Interval',Enabled,Property_True);
:Suppc_Days:=0;
End If;
If Get_Item_Property('T_Supp_Contract.Suppc_Item_Reg_Offer',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Item_Reg_Offer',Enabled,Property_False);
End If;
--Set_Item_Property('T_Supp_Contract.Suppc_Items_Reg_Count',Enabled,Property_True);
--Set_Item_Property('T_Supp_Contract.Suppc_Amount',Enabled,Property_True);
If Get_Tab_Page_Property('Rebate',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Rebate', Enabled, Property_False);
Set_Tab_Page_Property('Reb_Except', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Padj',Enabled) = 'TRUE' Then
Set_Tab_Page_Property('Padj', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Rentarea',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Rentarea', Enabled, Property_False);
Set_Tab_Page_Property('Itemalloc', Enabled, Property_False);
End If;
Set_Block_Property ('T_Supp_Contract_Rebate', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rebate', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rentarea', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rentarea', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Update_Allowed, Property_False);
Set_Item_Property('T_Supp_Contract_Itemalloc.Pb_Load',Enabled,Property_False);
If Get_Item_Property('SuppcD_Divn_Code',Enabled) <> 'TRUE' Then
Set_Item_Property('SuppcD_Divn_Code',Enabled,Property_True);
Set_Item_Property('PB_Lov_Divn',Enabled,Property_True);
End If;
If Get_Item_Property('SuppcD_Amt',Enabled) <> 'TRUE' Then
Set_Item_Property('SuppcD_Amt',Enabled,Property_True);
Set_Item_Property('SuppcD_Amt',Enabled,Property_True);
End If;
End If;
If :Suppc_Type_Flag In('RENT','REBATE','OTHERS','ITEM_ACT','PREBATE','REBATE-S','PRICE_ADJS','PRICE_ADJ','FOC','PADJ_POS','PRICE_ADJP','REBATE-FIN') Then
If Get_Item_Property('Suppc_Disc_Perc',Enabled) = 'TRUE' Then
Set_Item_Property('Suppc_Disc_Perc',Enabled,Property_False);
End If;
Else
If Get_Item_Property('Suppc_Disc_Perc',Enabled) <> 'TRUE' Then
Set_Item_Property('Suppc_Disc_Perc',Enabled,Property_True);
End If;
End If;
If :Suppc_Type_Flag In('RENT','REBATE','PREBATE','REBATE-S','REBATE-FIN') Then
If Get_Item_Property('Suppc_Auto_Renewal',Enabled) <> 'TRUE' Then
Set_Item_Property('Suppc_Auto_Renewal',Enabled,Property_True);
End If;
Else
If Get_Item_Property('Suppc_Auto_Renewal',Enabled) = 'TRUE' Then
Set_Item_Property('Suppc_Auto_Renewal',Enabled,Property_False);
:Suppc_Auto_Renewal := 'N';
End If;
End If;
If :Suppc_Type_Flag Not In('RENT','REBATE','PREBATE','REBATE-S','REBATE-FIN') Then
:Suppc_Pay_Mode :='CN';
:Suppc_Pay_Interval :='O';
:Suppc_Pay_Count := 1;
:Suppc_Dt_Fm := :Suppc_Dt;
End If;
-- Progressive Rebate
If :Suppc_Type_Flag in('PREBATE') Then
Set_Block_Property ('T_Supp_Contract_Rebate_Slab', Insert_Allowed, Property_True);
Set_Block_Property ('T_Supp_Contract_Rebate_Slab', Update_Allowed, Property_True);
Else
Set_Block_Property ('T_Supp_Contract_Rebate_Slab', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rebate_Slab', Update_Allowed, Property_False);
End If;
If :Suppc_Type_Flag In('REBATE','PREBATE','REBATE-S','REBATE-FIN') Then
:Suppc_Pay_Mode :='CN';
:Suppc_Pay_Interval :='M';
If Get_Item_Property('SuppcD_Divn_Code',Enabled) <> 'TRUE' Then
Set_Item_Property('SuppcD_Divn_Code',Enabled,Property_True);
Set_Item_Property('PB_Lov_Divn',Enabled,Property_True);
End If;
Else
If Get_Item_Property('SuppcD_Divn_Code',Enabled) = 'TRUE' Then
Set_Item_Property('SuppcD_Divn_Code',Enabled,Property_False);
Set_Item_Property('PB_Lov_Divn',Enabled,Property_False);
End If;
End If;
If :Suppc_Type_Flag in('PRICE_ADJS','PRICE_ADJP','PADJ_POS') Then
Set_Item_Property('Suppcp_Qty',Enabled,Property_False);
Set_Item_Property('Suppcp_Loose',Enabled,Property_False);
If Get_Item_Property('SuppcD_Divn_Code',Enabled) <> 'TRUE' Then
Set_Item_Property('SuppcD_Divn_Code',Enabled,Property_True);
Set_Item_Property('PB_Lov_Divn',Enabled,Property_True);
End If;
End If;
End If;
If :Suppc_Type_Flag Not in('PRICE_ADJ','PADJ_POS','PRICE_ADJS','PRICE_ADJP') Then
If Get_Item_Property('T_Supp_Contract.Suppc_Padj_Disc_Amt',Enabled) = 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Padj_Disc_Amt',Enabled,Property_False);
End If;
:T_Supp_Contract.Suppc_Padj_Disc_Amt:=0;
End If;
If :Suppc_Type_Flag In('OTHERS') Then
If Get_Item_Property('SuppcD_Divn_Code',Enabled) <> 'TRUE' Then
Set_Item_Property('SuppcD_Divn_Code',Enabled,Property_True);
Set_Item_Property('PB_Lov_Divn',Enabled,Property_True);
End If;
Else
If Get_Item_Property('SuppcD_Amt',Enabled) = 'TRUE' Then
Set_Item_Property('SuppcD_Amt',Enabled,Property_False);
Set_Item_Property('SuppcD_Amt',Enabled,Property_False);
End If;
End If;
If :Suppc_Type_Flag In('FOC') Then
:Suppc_Pay_Mode :='FOC';
:Suppc_Pay_Interval :=Null;
If Get_Tab_Page_Property('FOC',Enabled) <> 'TRUE' Then
Set_Tab_Page_Property('FOC', Enabled, Property_True);
End If;
If Get_Item_Property('SuppcD_Divn_Code',Enabled) <> 'TRUE' Then
Set_Item_Property('SuppcD_Divn_Code',Enabled,Property_True);
Set_Item_Property('PB_Lov_Divn',Enabled,Property_True);
End If;
If Get_Tab_Page_Property('Rebate',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Rebate', Enabled, Property_False);
Set_Tab_Page_Property('Reb_Except', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Padj',Enabled) = 'TRUE' Then
Set_Tab_Page_Property('Padj', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Pay_Shed',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Pay_Shed', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Rentarea',Enabled) ='TRUE' Then
Set_Tab_Page_Property('Rentarea', Enabled, Property_False);
End If;
If Get_Tab_Page_Property('Itemalloc',Enabled) = 'TRUE' Then
Set_Tab_Page_Property('Itemalloc', Enabled, Property_False);
Set_Item_Property('SuppcI_Cat_Code',Enabled,Property_False);
Set_Item_Property('SuppcI_Make_Code',Enabled,Property_False);
End If;
Set_Block_Property ('T_Supp_Contract_Rebate', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rebate', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Reb_Except', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rentarea', Insert_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Rentarea', Update_Allowed, Property_False);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Insert_Allowed, Property_True);
Set_Block_Property ('T_Supp_Contract_Itemalloc', Update_Allowed, Property_True);
Set_Item_Property('T_Supp_Contract_Itemalloc.Pb_Load',Enabled,Property_False);
Set_Item_Property('Suppcp_Make_Code',Enabled,Property_False);
Set_Item_Property('Suppcp_Cat_Code',Enabled,Property_False);
Set_Item_Property('Suppcp_Brand_Code',Enabled,Property_False);
Set_Item_Property('Pb_Lov_Brand1',Enabled,Property_False);
Set_Item_Property('Pb_Lov_Make1',Enabled,Property_False);
Set_Item_Property('Pb_Lov_Cat1',Enabled,Property_False);
Set_Item_Property('Suppcp_Disc_Perc',Enabled,Property_False);
Else
If Get_Tab_Page_Property('FOC',Enabled) = 'TRUE' Then
Set_Tab_Page_Property('FOC', Enabled, Property_False);
End If;
End If;
End If;
if :Suppc_Type_Flag In ('LISTING','NEW_REG','ITEM_ACT','OTHERS') Then
If Get_Item_Property('T_Supp_Contract.Suppc_Days',Enabled) <> 'TRUE' Then
Set_Item_Property('T_Supp_Contract.Suppc_Days',Enabled,Property_False);
:Suppc_Days:=0;
End If;
End If;
End;
If :Suppc_Type_Flag is Not Null Then
Go_Block('T_Supp_Contract_Rebate');
Clear_Block;
Go_Block('T_Supp_Contract_Rentarea');
Clear_Block;
Go_Block('T_Supp_Contract_Itemalloc');
Clear_Block;
Go_Block('T_Supp_Contract_Padj');
Clear_Block;
Go_Block('T_Supp_Contract_Foc');
Clear_Block;
--Go_Item('Suppc_Pay_Mode');
Go_Item('SUPPC_SUPP_CODE');
-- Next_Item;
End If;
What you getClause Rule Language
on change of SUPPC_TYPE: from SUPP_CONTRACT_TYPE_COUNT(SUPPC_TYPE) when is_filled(SUPPC_TYPE) # load-fmb-supplier-agreement-t-supp-contract-suppc-type-key-next-item-change-0 from SUPP_CONTRACT_TYPE(SUPPC_TYPE) when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0) # load-fmb-supplier-agreement-t-supp-contract-suppc-type-key-next-item-change-1 open value help of SUPPC_TYPE when is_blank(SUPPC_TYPE) state enable SUPPC_DISC_PERC set SUPPC_MAIN_ACNT_CODE to SUPP_CONTRACT_TYPE.CTYPE_MAIN_ACNT_CODE when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0) set SUPPC_TYPE_NAME to SUPP_CONTRACT_TYPE.CTYPE_DESCRIPTION when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0) set SUPPC_TYPE_FLAG to SUPP_CONTRACT_TYPE.CTYPE_FLAG when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0) state enable SUPPC_DAYS when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and (SUPP_CONTRACT_TYPE.V_EN_DAYS = 'Y') state disable SUPPC_DAYS when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not (SUPP_CONTRACT_TYPE.V_EN_DAYS = 'Y') set SUPPC_ITEMS_REG_COUNT to '' when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) set SUPPC_AMOUNT to '' when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) set SUPPC_PAY_COUNT to 0 when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) state disable SUPPC_ITEMS_REG_COUNT when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) state disable SUPPC_AMOUNT when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) state enable SUPPC_DAYS when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) state disable SUPPC_PAY_COUNT when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) state unlock T_SUPP_CONTRACT_REBATE on insert, update when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) state unlock T_SUPP_CONTRACT_REB_EXCEPT on insert, update when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) state lock T_SUPP_CONTRACT_RENTAREA on insert, update when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) state lock T_SUPP_CONTRACT_ITEMALLOC on insert, update when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) state disable PB_LOAD when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) set SUPPC_ITEMS_REG_COUNT to '' when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') set SUPPC_AMOUNT to '' when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') set SUPPC_PAY_COUNT to 0 when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') state disable SUPPC_ITEMS_REG_COUNT when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') state disable SUPPC_AMOUNT when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') state enable SUPPC_DAYS when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') state disable SUPPC_PAY_COUNT when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') state enable SUPPC_PAY_MODE when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not enabled of SUPPC_PAY_MODE set SUPPC_DAYS to 0 when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not enabled of SUPPC_PAY_MODE state enable SUPPC_PAY_INTERVAL when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not enabled of SUPPC_PAY_INTERVAL set SUPPC_DAYS to 0 when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not enabled of SUPPC_PAY_INTERVAL state unlock T_SUPP_CONTRACT_RENTAREA on insert, update when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') state unlock T_SUPP_CONTRACT_ITEMALLOC on insert, update when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') state enable PB_LOAD when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') state lock T_SUPP_CONTRACT_REBATE on insert, update when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') state lock T_SUPP_CONTRACT_REB_EXCEPT on insert, update when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') state enable SUPPC_ITEMS_REG_COUNT when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) state enable SUPPC_ITEM_REG_OFFER when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) state enable SUPPC_AMOUNT when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) state enable SUPPC_PAY_COUNT when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) state disable SUPPC_DAYS when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and enabled of SUPPC_DAYS set SUPPC_DAYS to 0 when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and enabled of SUPPC_DAYS state enable SUPPC_PAY_MODE when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not enabled of SUPPC_PAY_MODE set SUPPC_DAYS to 0 when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not enabled of SUPPC_PAY_MODE state enable SUPPC_PAY_INTERVAL when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not enabled of SUPPC_PAY_INTERVAL set SUPPC_DAYS to 0 when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not enabled of SUPPC_PAY_INTERVAL state enable SUPPC_AMOUNT, SUPPC_ITEMS_REG_COUNT when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) state lock T_SUPP_CONTRACT_REBATE on insert, update when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) state lock T_SUPP_CONTRACT_REB_EXCEPT on insert, update when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) state lock T_SUPP_CONTRACT_RENTAREA on insert, update when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) state lock T_SUPP_CONTRACT_ITEMALLOC on insert, update when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) state disable PB_LOAD when (((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) state enable SUPPC_ITEMS_REG_COUNT when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT') state disable SUPPC_ITEM_REG_OFFER when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT') state enable SUPPC_AMOUNT when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT') state enable SUPPC_PAY_COUNT when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT') state disable SUPPC_DAYS when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and enabled of SUPPC_DAYS set SUPPC_DAYS to 0 when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and enabled of SUPPC_DAYS state enable SUPPC_PAY_MODE when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not enabled of SUPPC_PAY_MODE set SUPPC_DAYS to 0 when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not enabled of SUPPC_PAY_MODE state enable SUPPC_PAY_INTERVAL when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not enabled of SUPPC_PAY_INTERVAL set SUPPC_DAYS to 0 when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not enabled of SUPPC_PAY_INTERVAL state lock T_SUPP_CONTRACT_REBATE on insert, update when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT') state lock T_SUPP_CONTRACT_REB_EXCEPT on insert, update when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT') state lock T_SUPP_CONTRACT_RENTAREA on insert, update when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT') state unlock T_SUPP_CONTRACT_ITEMALLOC on insert, update when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT') state disable PB_LOAD when ((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT') state disable SUPPC_ITEMS_REG_COUNT when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') state disable SUPPC_AMOUNT when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') state disable SUPPC_PAY_COUNT when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') state disable SUPPC_DAYS when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and enabled of SUPPC_DAYS set SUPPC_DAYS to 0 when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and enabled of SUPPC_DAYS state disable SUPPC_ITEM_REG_OFFER when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') state enable SUPPC_PADJ_DISC_AMT when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') set SUPPC_PAY_MODE to 'CN' when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') set SUPPC_PAY_INTERVAL to 'O' when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') set SUPPC_PAY_COUNT to 1 when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') set SUPPC_DT_FM to SUPPC_DT when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') set SUPPC_DAYS to 1 when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') state disable SUPPC_PAY_MODE when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and enabled of SUPPC_PAY_MODE set SUPPC_DAYS to 0 when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and enabled of SUPPC_PAY_MODE state disable SUPPC_PAY_INTERVAL when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and enabled of SUPPC_PAY_INTERVAL set SUPPC_DAYS to 0 when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and enabled of SUPPC_PAY_INTERVAL state lock T_SUPP_CONTRACT_REBATE on insert, update when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') state lock T_SUPP_CONTRACT_REB_EXCEPT on insert, update when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') state lock T_SUPP_CONTRACT_RENTAREA on insert, update when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') state unlock T_SUPP_CONTRACT_ITEMALLOC on insert, update when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') state disable PB_LOAD, PB_LOV_BRAND1, PB_LOV_CAT1, PB_LOV_MAKE1, SUPPCP_BRAND_CODE, SUPPCP_CAT_CODE, SUPPCP_DISC_PERC, SUPPCP_MAKE_CODE when (((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ') state disable SUPPC_ITEMS_REG_COUNT when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state disable SUPPC_AMOUNT when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state disable SUPPC_PAY_COUNT when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state enable SUPPC_DAYS when (((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and not enabled of SUPPC_DAYS set SUPPC_DAYS to 0 when (((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and not enabled of SUPPC_DAYS state disable SUPPC_ITEM_REG_OFFER when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state enable PB_LOV_DIVN, SUPPCD_DIVN_CODE when (((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and not enabled of SUPPCD_DIVN_CODE set SUPPC_PAY_MODE to 'CN' when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) set SUPPC_PAY_INTERVAL to 'M' when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) set SUPPC_PAY_COUNT to 1 when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) set SUPPC_DT_FM to SUPPC_DT when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) set SUPPC_DAYS to 30 when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state disable SUPPC_PAY_MODE when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state enable SUPPC_PAY_INTERVAL when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state disable SUPPCP_QTY when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state disable SUPPCP_LOOSE when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state enable SUPPC_PAY_INTERVAL when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state lock T_SUPP_CONTRACT_REBATE on insert, update when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state lock T_SUPP_CONTRACT_REB_EXCEPT on insert, update when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state lock T_SUPP_CONTRACT_RENTAREA on insert, update when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state unlock T_SUPP_CONTRACT_ITEMALLOC on insert, update when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state disable PB_LOAD when ((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state disable SUPPC_ITEMS_REG_COUNT when (((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS') state enable SUPPC_AMOUNT when (((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS') state enable SUPPC_PAY_COUNT when (((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS') state enable SUPPC_DAYS when ((((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) and not enabled of SUPPC_DAYS set SUPPC_DAYS to 0 when ((((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) and not enabled of SUPPC_DAYS state enable SUPPC_PAY_MODE when ((((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) and not enabled of SUPPC_PAY_MODE set SUPPC_DAYS to 0 when ((((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) and not enabled of SUPPC_PAY_MODE state enable SUPPC_PAY_INTERVAL when ((((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) and not enabled of SUPPC_PAY_INTERVAL set SUPPC_DAYS to 0 when ((((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) and not enabled of SUPPC_PAY_INTERVAL state disable SUPPC_ITEM_REG_OFFER when (((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS') state lock T_SUPP_CONTRACT_REBATE on insert, update when (((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS') state lock T_SUPP_CONTRACT_REB_EXCEPT on insert, update when (((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS') state lock T_SUPP_CONTRACT_RENTAREA on insert, update when (((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS') state lock T_SUPP_CONTRACT_ITEMALLOC on insert, update when (((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS') state disable PB_LOAD when (((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS') state enable PB_LOV_DIVN, SUPPCD_DIVN_CODE when ((((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) and not enabled of SUPPCD_DIVN_CODE state enable SUPPCD_AMT when ((((((((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT')) and not ((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG'))) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) and not (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) and not enabled of SUPPCD_AMT state disable SUPPC_DISC_PERC when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((((((((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'FOC')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) state enable SUPPC_DISC_PERC when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((((((((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJ')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'FOC')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) state enable SUPPC_AUTO_RENEWAL when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and (((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) state disable SUPPC_AUTO_RENEWAL when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not (((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and enabled of SUPPC_AUTO_RENEWAL set SUPPC_AUTO_RENEWAL to 'N' when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not (((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'RENT') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and enabled of SUPPC_AUTO_RENEWAL set SUPPC_PAY_MODE to 'CN' when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and (((((SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'RENT') and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'REBATE')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'PREBATE')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'REBATE-S')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'REBATE-FIN')) set SUPPC_PAY_INTERVAL to 'O' when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and (((((SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'RENT') and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'REBATE')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'PREBATE')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'REBATE-S')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'REBATE-FIN')) set SUPPC_PAY_COUNT to 1 when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and (((((SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'RENT') and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'REBATE')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'PREBATE')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'REBATE-S')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'REBATE-FIN')) set SUPPC_DT_FM to SUPPC_DT when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and (((((SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'RENT') and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'REBATE')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'PREBATE')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'REBATE-S')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'REBATE-FIN')) state unlock T_SUPP_CONTRACT_REBATE_SLAB on insert, update when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE') state lock T_SUPP_CONTRACT_REBATE_SLAB on insert, update when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE') set SUPPC_PAY_MODE to 'CN' when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) set SUPPC_PAY_INTERVAL to 'M' when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN')) state enable PB_LOV_DIVN, SUPPCD_DIVN_CODE when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and not enabled of SUPPCD_DIVN_CODE state disable PB_LOV_DIVN, SUPPCD_DIVN_CODE when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and not ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PREBATE')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-S')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'REBATE-FIN'))) and enabled of SUPPCD_DIVN_CODE state disable SUPPCP_LOOSE, SUPPCP_QTY when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS')) state enable PB_LOV_DIVN, SUPPCD_DIVN_CODE when ((is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE_COUNT.COUNT > 0)) and (((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJS') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PRICE_ADJP')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'PADJ_POS'))) and not enabled of SUPPCD_DIVN_CODE state disable SUPPC_PADJ_DISC_AMT when is_filled(SUPPC_TYPE) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'PRICE_ADJ') and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'PADJ_POS')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'PRICE_ADJS')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'PRICE_ADJP')) set SUPPC_PADJ_DISC_AMT to 0 when is_filled(SUPPC_TYPE) and ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'PRICE_ADJ') and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'PADJ_POS')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'PRICE_ADJS')) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG <> 'PRICE_ADJP')) state enable PB_LOV_DIVN, SUPPCD_DIVN_CODE when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) and not enabled of SUPPCD_DIVN_CODE state disable SUPPCD_AMT when (is_filled(SUPPC_TYPE) and not (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) and enabled of SUPPCD_AMT set SUPPC_PAY_MODE to 'FOC' when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'FOC') set SUPPC_PAY_INTERVAL to null when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'FOC') state enable PB_LOV_DIVN, SUPPCD_DIVN_CODE when (is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'FOC')) and not enabled of SUPPCD_DIVN_CODE state lock T_SUPP_CONTRACT_REBATE on insert, update when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'FOC') state lock T_SUPP_CONTRACT_REB_EXCEPT on insert, update when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'FOC') state lock T_SUPP_CONTRACT_RENTAREA on insert, update when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'FOC') state unlock T_SUPP_CONTRACT_ITEMALLOC on insert, update when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'FOC') state disable PB_LOAD, PB_LOV_BRAND1, PB_LOV_CAT1, PB_LOV_MAKE1, SUPPCP_BRAND_CODE, SUPPCP_CAT_CODE, SUPPCP_DISC_PERC, SUPPCP_MAKE_CODE when is_filled(SUPPC_TYPE) and (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'FOC') state disable SUPPC_DAYS when ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) and not enabled of SUPPC_DAYS set SUPPC_DAYS to 0 when ((((SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'LISTING') or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'NEW_REG')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'ITEM_ACT')) or (SUPP_CONTRACT_TYPE.CTYPE_FLAG = 'OTHERS')) and not enabled of SUPPC_DAYS go to T_SUPP_CONTRACT_REBATE when is_filled(SUPP_CONTRACT_TYPE.CTYPE_FLAG) clear T_SUPP_CONTRACT_REBATE when is_filled(SUPP_CONTRACT_TYPE.CTYPE_FLAG) go to T_SUPP_CONTRACT_RENTAREA when is_filled(SUPP_CONTRACT_TYPE.CTYPE_FLAG) clear T_SUPP_CONTRACT_RENTAREA when is_filled(SUPP_CONTRACT_TYPE.CTYPE_FLAG) go to T_SUPP_CONTRACT_ITEMALLOC when is_filled(SUPP_CONTRACT_TYPE.CTYPE_FLAG) clear T_SUPP_CONTRACT_ITEMALLOC when is_filled(SUPP_CONTRACT_TYPE.CTYPE_FLAG) go to T_SUPP_CONTRACT_PADJ when is_filled(SUPP_CONTRACT_TYPE.CTYPE_FLAG) clear T_SUPP_CONTRACT_PADJ when is_filled(SUPP_CONTRACT_TYPE.CTYPE_FLAG) go to T_SUPP_CONTRACT_FOC when is_filled(SUPP_CONTRACT_TYPE.CTYPE_FLAG) clear T_SUPP_CONTRACT_FOC when is_filled(SUPP_CONTRACT_TYPE.CTYPE_FLAG) go to SUPPC_SUPP_CODE when is_filled(SUPP_CONTRACT_TYPE.CTYPE_FLAG) # 33 statements did not convert.# line 12 # If Get_Tab_Page_Property('Pay_Shed',Enabled) <>'TRUE' Then # Set_Tab_Page_Property('Pay_Shed', Enabled, Property_True); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 57 # If Get_Tab_page_Property('Rebate',Enabled ) <> 'TRUE' Then # Set_Tab_Page_Property('Rebate', Enabled, Property_True); # Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'Rebate'); # Set_Tab_Page_Property('Reb_Except', Enabled, Property_True); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 73 # If Get_Tab_Page_Property('Rentarea',Enabled ) = 'TRUE' Then # Set_Tab_Page_Property('Rentarea', Enabled, Property_False); # Set_Tab_Page_Property('Itemalloc', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 78 # If Get_Tab_Page_Property('Padj',Enabled) = 'TRUE' Then # Set_Tab_Page_Property('Padj', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 114 # If Get_Tab_Page_Property('Rentarea',Enabled ) <> 'TRUE' Then # Set_Tab_Page_Property('Rentarea', Enabled, Property_True); # Set_Canvas_Property('Can_Tab', Topmost_Tab_Page, 'Rentarea'); # Set_Tab_Page_Property('Itemalloc', Enabled, Property_True); # If Get_Item_Property('Suppci_Cat_Code',Enabled) ='FALSE' Then # Set_Item_Property('SuppcI_Cat_Code',Enabled,Property_True); # Set_Item_Property('SuppcI_Make_Code',Enabled,Property_True); # End If; # If Get_Tab_Page_Property('Padj',Enabled) = 'TRUE' Then # Set_Tab_Page_Property('Padj', Enabled, Property_False); # End If; # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 141 # If Get_Tab_Page_Property('Rebate',Enabled ) = 'TRUE' Then # Set_Tab_Page_Property('Rebate', Enabled, Property_False); # Set_Tab_Page_Property('Reb_Except', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 181 # If Get_Tab_Page_Property('Rebate',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Rebate', Enabled, Property_False); # Set_Tab_Page_Property('Reb_Except', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 186 # If Get_Tab_Page_Property('Padj',Enabled) = 'TRUE' Then # Set_Tab_Page_Property('Padj', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 191 # If Get_Tab_Page_Property('Rentarea',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Rentarea', Enabled, Property_False); # Set_Tab_Page_Property('Itemalloc', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 227 # If Get_Tab_Page_Property('Padj',Enabled) = 'TRUE' Then # Set_Tab_Page_Property('Padj', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 242 # If Get_Tab_Page_Property('Rebate',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Rebate', Enabled, Property_False); # Set_Tab_Page_Property('Reb_Except', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 247 # If Get_Tab_Page_Property('Rentarea',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Rentarea', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 251 # If Get_Tab_Page_Property('Itemalloc',Enabled) <> 'TRUE' Then # Set_Tab_Page_Property('Itemalloc', Enabled, Property_True); # Set_Item_Property('SuppcI_Cat_Code',Enabled,Property_False); # Set_Item_Property('SuppcI_Make_Code',Enabled,Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 309 # If Get_Tab_Page_Property('Rebate',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Rebate', Enabled, Property_False); # Set_Tab_Page_Property('Reb_Except', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 314 # If Get_Tab_Page_Property('Padj',Enabled) <> 'TRUE' Then # Set_Tab_Page_Property('Padj', Enabled, Property_True); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 318 # If Get_Tab_Page_Property('Pay_Shed',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Pay_Shed', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 323 # If Get_Tab_Page_Property('Rentarea',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Rentarea', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 327 # If Get_Tab_Page_Property('Itemalloc',Enabled) = 'TRUE' Then # Set_Tab_Page_Property('Itemalloc', Enabled, Property_False); # Set_Item_Property('SuppcI_Cat_Code',Enabled,Property_False); # Set_Item_Property('SuppcI_Make_Code',Enabled,Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 387 # If Get_Tab_Page_Property('Rebate',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Rebate', Enabled, Property_False); # Set_Tab_Page_Property('Reb_Except', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 392 # If Get_Tab_Page_Property('Padj',Enabled) <> 'TRUE' Then # Set_Tab_Page_Property('Padj', Enabled, Property_True); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 396 # If Get_Tab_Page_Property('Pay_Shed',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Pay_Shed', Enabled, Property_True); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 413 # If Get_Tab_Page_Property('Rentarea',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Rentarea', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 417 # If Get_Tab_Page_Property('Itemalloc',Enabled) = 'TRUE' Then # Set_Tab_Page_Property('Itemalloc', Enabled, Property_False); # Set_Item_Property('SuppcI_Cat_Code',Enabled,Property_False); # Set_Item_Property('SuppcI_Make_Code',Enabled,Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 468 # If Get_Tab_Page_Property('Rebate',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Rebate', Enabled, Property_False); # Set_Tab_Page_Property('Reb_Except', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 472 # If Get_Tab_Page_Property('Padj',Enabled) = 'TRUE' Then # Set_Tab_Page_Property('Padj', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 476 # If Get_Tab_Page_Property('Rentarea',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Rentarea', Enabled, Property_False); # Set_Tab_Page_Property('Itemalloc', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 585 # If Get_Tab_Page_Property('FOC',Enabled) <> 'TRUE' Then # Set_Tab_Page_Property('FOC', Enabled, Property_True); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 592 # If Get_Tab_Page_Property('Rebate',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Rebate', Enabled, Property_False); # Set_Tab_Page_Property('Reb_Except', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 597 # If Get_Tab_Page_Property('Padj',Enabled) = 'TRUE' Then # Set_Tab_Page_Property('Padj', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 601 # If Get_Tab_Page_Property('Pay_Shed',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Pay_Shed', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 606 # If Get_Tab_Page_Property('Rentarea',Enabled) ='TRUE' Then # Set_Tab_Page_Property('Rentarea', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 610 # If Get_Tab_Page_Property('Itemalloc',Enabled) = 'TRUE' Then # Set_Tab_Page_Property('Itemalloc', Enabled, Property_False); # Set_Item_Property('SuppcI_Cat_Code',Enabled,Property_False); # Set_Item_Property('SuppcI_Make_Code',Enabled,Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own# line 635 # If Get_Tab_Page_Property('FOC',Enabled) = 'TRUE' Then # Set_Tab_Page_Property('FOC', Enabled, Property_False); # End If; # reason: the guard reads ENABLED of a tab page, and a tab page is not a thing the state effect's verbs name: they name a field or a block, and whether a tab page joins them is a component question, which component-tracker.md and design.md own
168 clauses converted, 33 statements refused