nexg-erp / Forms
Refused
fmb_pdc_entry, green-waste

all forms

fmb_pdc_entry: 6 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.

1. fmb_pdc_entryPRE-UPDATE on T_PDCgreen-waste
What you havePRE-UPDATE
declare
  v_terminal varchar2(30);
begin
:PDC_EDT_USER := :global.user;
SELECT USERENV('TERMINAL') into v_terminal  FROM DUAL; 
:PDC_EDT_TERMINAL := v_terminal;
end;
What you getClause Rule Language
on save update:    set PDC_EDT_USER to GLOBAL.USER
# 1 statement did not convert.#   line 6
#   :PDC_EDT_TERMINAL := v_terminal;
#   reason: no recognizer claims it, and the vocabulary has no clause for what it does

1 clause converted, 1 statement refused

2. fmb_pdc_entryWHEN-NEW-FORM-INSTANCE on FMB_PDC_ENTRYgreen-waste
What you haveWHEN-NEW-FORM-INSTANCE
Declare
  V_Window_Name M_Menu.Menu_Name%TYPE;
Begin
  Init_Form;
  Set_Item_Property('pdc_doc_dt', Format_Mask, :Global.DateFormat);
  Set_Item_Property('pdc_chq_dt', Format_Mask, :Global.DateFormat);
  Set_Item_Property('pdc_due_dt', Format_Mask, :Global.DateFormat);
  Select Menu_Name Into V_Window_Name
  From M_Menu
  Where Menu_Code = :Parameter.Menu_Code;
  Set_Window_Property ('WINDOW1', Title, V_Window_Name);
End;
What you getClause Rule Language
on open:    state format PDC_CHQ_DT, PDC_DOC_DT, PDC_DUE_DT as GLOBAL.DATEFORMAT
# 2 statements did not convert.#   line 11
#   Set_Window_Property ('WINDOW1', Title, V_Window_Name);
#   reason: a screen's title is the document's and the platform draws it, and every corpus site reads this one from a local the trigger does not state, so the window property is refused rather than folded into a verb#   Select Menu_Name Into V_Window_Name
#     From M_Menu
#     Where Menu_Code = :Parameter.Menu_Code
#   reason: its query binds Parameter.Menu_Code, which this form has no field for

1 clause converted, 2 statements refused

3. fmb_pdc_entryWHEN-VALIDATE-ITEM on T_PDC.PDC_CHQ_DTgreen-waste
What you haveWHEN-VALIDATE-ITEM
Declare
  Dt_Fm     Date;
  V_Days    Number;
  V_Days1   Date;
  V_sysdate Date;
  V_Dt_Fm   Date;
  V_Dt_To   Date;
Begin
  If :Pdc_Chq_Dt is Not Null Then 
    V_Days :=  Fn_Get_Final_Txn_Param (:Pdc_Txn_Code,:Global.Company,'FINAL_CHEQUE_VALIDITY');
    Select Sysdate - V_Days Into V_Days1 From Dual;
    If :Pdc_Chq_Dt < V_Days1 Then
      Show_Message ('Alert1', 'Date should not less than' || V_Days1);
      Raise Form_Trigger_Failure;
    End If;  
    If Nvl(:Frm_Enable_Pyear,'N') = 'N' Then
      Select Ayr_From_Dt, Ayr_To_Dt Into V_Dt_Fm, V_Dt_To
      From M_Ayear
      Where Ayr_Comp_Code = :Global.Company
      And Ayr_Code =  :Global.Ayear;
      If :Pdc_Chq_Dt < V_Dt_Fm Then  
        Show_Message ('Alert1', 'Previous year date not allowed for this company!!');
        Raise Form_Trigger_Failure;
      End If;
    End If;
  End If;
End;
What you getClause Rule Language
on change of PDC_CHQ_DT when is_filled(PDC_CHQ_DT):    from AYEAR when nvl(FRM_ENABLE_PYEAR, 'N') = 'N'
        # load-fmb-pdc-entry-t-pdc-pdc-chq-dt-change-0    deny when (nvl(FRM_ENABLE_PYEAR, 'N') = 'N') and (PDC_CHQ_DT < AYEAR.AYR_FROM_DT) else "Previous year date not allowed for this company!!"
# 1 statement did not convert.#   line 14
#   Raise Form_Trigger_Failure;
#   reason: its message cannot be built from literals and the standard library

1 clause converted, 1 statement refused

4. fmb_pdc_entryWHEN-BUTTON-PRESSED on T_PDC.PB_CANCELgreen-waste
What you haveWHEN-BUTTON-PRESSED
Declare    
  V_Count  Number; 
  V_Cheque Varchar2(20);        
Begin
  Select Count(*) Into V_Count
  From T_Pdc
  Where Pdc_Id =:Pdc_Id;
  
  If V_Count = 0 Then
    Show_Message('MSG_ALERT','Document not found!');
    Raise Form_Trigger_Failure;    
  End If;
    
  Select Count(*) Into V_Count
  From T_Pdc
  Where Pdc_Id =:Pdc_Id
  And Nvl(Pdc_Confirmed,'N') = 'Y';  
      
  If V_Count> 0 Then
    Show_Message('MSG_ALERT','Confirmed document cannot be cancel!');
    Raise Form_Trigger_Failure;    
  End If; 
    
  Select Count(*) Into V_Count
  From T_Pdc
  Where Pdc_Id =:Pdc_Id
  And Nvl(Pdc_Confirmed,'N') = 'C';  
      
  If V_Count> 0 Then
    Show_Message('MSG_ALERT','Already Canceled!');
    Raise Form_Trigger_Failure;    
  End If;   
  
  Update T_Pdc Set Pdc_Confirmed = 'C', Pdc_Cancel_User = :Global.User, Pdc_Cancel_Dt = Sysdate Where Pdc_Id =:Pdc_Id;                
          
  Standard.Commit; 
  Show_Message('Alert1', 'PDC Canceled Sucessfully');  
End;
What you getClause Rule Language
on press of PB_CANCEL:    from PDC_0(PDC_ID)
        # load-fmb-pdc-entry-t-pdc-pb-cancel-press-0    from PDC_1(PDC_ID) when not (PDC_0.COUNT = 0)
        # load-fmb-pdc-entry-t-pdc-pb-cancel-press-1    from PDC(PDC_ID) when not (PDC_0.COUNT = 0) and not (PDC_1.COUNT > 0)
        # load-fmb-pdc-entry-t-pdc-pb-cancel-press-2    exists of PDC_0 else "Document not found!"    unique of PDC_1 else "Confirmed document cannot be cancel!"    unique of PDC else "Already Canceled!"    call WRITE_T_PDC_89BD574E(GLOBAL.USER, PDC_ID)    warn "PDC Canceled Sucessfully"
# 1 statement did not convert.#   line 36
#   Standard.Commit;
#   reason: G13: mid-trigger DML and the transaction boundary are refused, not converted

5 clauses converted, 1 statement refused

5. fmb_pdc_entryWHEN-BUTTON-PRESSED on T_PDC.PB_CHEQUE_RELEASEgreen-waste
What you haveWHEN-BUTTON-PRESSED
Declare  
  V_Count  Number; 
  V_Cheque Varchar2(20);        
Begin
  Select Count(*) Into V_Count
  From T_Pdc
  Where Pdc_Id =:Pdc_Id;
  
  If V_Count = 0 Then
    Show_Message('MSG_ALERT','Document not found!');
    Raise Form_Trigger_Failure;    
  End If;
  
  Select Count(*) Into V_Count
  From T_Pdc
  Where Pdc_Id =:Pdc_Id
  And Nvl(Pdc_Chq_Print_Flag,'N') = 'N';  
      
  If V_Count> 0 Then
    Show_Message('MSG_ALERT','Already Relesed!');
    Raise Form_Trigger_Failure;    
  End If;  
      
  If :Pdc_Lc_Amt <=0 Then
    Show_Message('MSG_ALERT','Amount cannot be zero or negative!');
    Raise Form_Trigger_Failure;    
  End If;   
  
  If Nvl(:Pdc_Chq_No,' ')=' ' Then
    Show_Message('MSG_ALERT','Cheque No cannot be null!');
    Raise Form_Trigger_Failure;    
  End If;
  
  If :Pdc_Chq_Dt  Is Null Then
    Show_Message('MSG_ALERT','Cheque date cannot be null!');
    Raise Form_Trigger_Failure; 
  Elsif (:Pdc_Chq_Dt + 1) < Sysdate Then
    Show_Message('MSG_ALERT','Cheque date expired!');
    Raise Form_Trigger_Failure;    
  End If;   
  
  Update T_Pdc Set Pdc_Chq_Print_Flag = 'N' Where Pdc_Id =:Pdc_Id; 
                  
  Insert Into T_Pdc_Print_Release(Ppr_Id,Ppr_Pdc_Id,Ppr_Pdc_Pdcg_Id,Ppr_Pdc_Comp_Code,Ppr_Pdc_Divn_Code,
  Ppr_Pdc_Ayr_Code, Ppr_Pdc_Txn_Code,Ppr_Pdc_No,Ppr_Pdc_Doc_Dt,Ppr_Pdc_Due_Dt,Ppr_Pdc_Party_Main_Acnt_Code,
  Ppr_Pdc_Chq_No, Ppr_Pdc_Chq_Dt,Ppr_Pdc_Fc_Amt,Ppr_Pdc_Lc_Amt,Ppr_Cr_User,Ppr_Cr_Dt)
  Values(Fn_Get_Next_Id('Pdc_Print_Release'), :Pdc_Id, :Pdc_Pdcg_Id, :Pdc_Comp_Code, :Pdc_Divn_Code, 
   :Pdc_Ayr_Code,  :Pdc_Txn_Code, :Pdc_No, :Pdc_Doc_Dt, :Pdc_Due_Dt ,:Pdc_Party_Main_Acnt_Code,
   :Pdc_Chq_No,:Pdc_Chq_Dt ,:Pdc_Fc_Amt,:Pdc_Lc_Amt,:Global.User,Sysdate);         
  Standard.Commit; 
  Show_Message('Alert1', 'PDC Print Released Sucessfully');  
End;
What you getClause Rule Language
on press of PB_CHEQUE_RELEASE:    from PDC_COUNT(PDC_ID)
        # load-fmb-pdc-entry-t-pdc-pb-cheque-release-press-0    from PDC(PDC_ID) when not (PDC_COUNT.COUNT = 0)
        # load-fmb-pdc-entry-t-pdc-pb-cheque-release-press-1    exists of PDC_COUNT else "Document not found!"    unique of PDC else "Already Relesed!"    deny when PDC_LC_AMT <= 0 else "Amount cannot be zero or negative!"    deny when nvl(PDC_CHQ_NO, ' ') = ' ' else "Cheque No cannot be null!"    deny when is_blank(PDC_CHQ_DT) else "Cheque date cannot be null!"    deny when not is_blank(PDC_CHQ_DT) and ((PDC_CHQ_DT + 1) < sysdate()) else "Cheque date expired!"    call WRITE_T_PDC_BEDE2466(PDC_ID)    call WRITE_T_PDC_PRINT_RELEASE_E1D01E0F(PDC_ID, PDC_PDCG_ID, PDC_COMP_CODE, PDC_DIVN_CODE, PDC_AYR_CODE, PDC_TXN_CODE, PDC_NO, PDC_DOC_DT, PDC_DUE_DT, PDC_PARTY_MAIN_ACNT_CODE, PDC_CHQ_NO, PDC_CHQ_DT, PDC_FC_AMT, PDC_LC_AMT, GLOBAL.USER)    warn "PDC Print Released Sucessfully"
# 1 statement did not convert.#   line 50
#   Standard.Commit;
#   reason: G13: mid-trigger DML and the transaction boundary are refused, not converted

9 clauses converted, 1 statement refused

6. fmb_pdc_entryWHEN-BUTTON-PRESSED on T_PDC.PB_CHEQUE_PRINTgreen-waste
What you haveWHEN-BUTTON-PRESSED
Declare
  Pl_Id        Paramlist;
  V_Report     Varchar2(30);
  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;
  V_Count      Number;
  V_Rep_Height Number;
  V_Rep_Width  Number;
  V_Chq        Varchar2(20);
        
Begin
  V_Report :=Null;
  Select Count(*) Into V_Count
  From T_Pdc
  Where Pdc_Id =:Pdc_Id;
  If V_Count = 0 Then
    Show_Message('MSG_ALERT','Document not found!');
    Raise Form_Trigger_Failure;    
  End If;   
  Select Count(*) Into V_Count
  From T_Pdc
  Where Pdc_Id =:Pdc_Id
  And Nvl(Pdc_Chq_Print_Flag,'N') = 'Y';   
  If V_Count> 0 Then
    Show_Message('MSG_ALERT','Already Printed!');
    Raise Form_Trigger_Failure;    
  End If;  
  
  Select Count(*) Into V_Count 
  From M_Bank_Company 
  Where Bankc_Comp_Code =:Global.Company
  And Bankc_Main_Acnt_Code =:Pdc_Bank_Main_Acnt_Code;   
  If V_Count > 0 Then
    Select Bankc_Cheq_Rep_Name,Bankc_Cheq_Printer,Bankc_Cheq_Width ,Bankc_Cheq_Hight  
    Into V_Report,:Frm_Printer,V_Rep_Width,V_Rep_Height  
    From M_Bank_Company
    Where Bankc_Comp_Code =:Global.Company
    And Bankc_Main_Acnt_Code =:Pdc_Bank_Main_Acnt_Code;
    If V_Report Is Null Then
      Show_Message('MSG_ALERT','Report not defined!');
      Raise Form_Trigger_Failure;    
    End If;
  Else
    Show_Message('MSG_ALERT','Report not found!');
    Raise Form_Trigger_Failure;    
  End If;        
  If :Pdc_Lc_Amt <=0 Then
    Show_Message('MSG_ALERT','Amount cannot be zero or negative!');
    Raise Form_Trigger_Failure;    
  End If;            
  If Nvl(:Pdc_Chq_No,' ')=' ' Then
    Show_Message('MSG_ALERT','Cheque No cannot be null!');
    Raise Form_Trigger_Failure;    
  End If;
  If :Pdc_Chq_Dt  Is Null Then
    Show_Message('MSG_ALERT','Cheque date cannot be null!');
    Raise Form_Trigger_Failure; 
  Elsif (:Pdc_Chq_Dt + 1) < Sysdate Then
    Show_Message('MSG_ALERT','Cheque date expired!');
    Raise Form_Trigger_Failure;    
  End If;
  
  If :Pdc_Bank_Main_Acnt_Code Is Null Then
    Show_Message('MSG_ALERT','Bank main account cannot be null!');
    Raise Form_Trigger_Failure;    
  End If; 
  
  If :Pdc_Party_Main_Acnt_Code Is Null Then
    Show_Message('MSG_ALERT','Party account cannot be null!');
    Raise Form_Trigger_Failure;    
  End If; 
  
  If :Party_Main_Desc Is Null Then
    Show_Message('MSG_ALERT','Party account name cannot be null!');
    Raise Form_Trigger_Failure;    
  End If;
  
  
  /*Select Count(*) Into V_Count 
  From T_Cheq_Print_Release 
  Where Cpr_Payh_Id =:Pdc_Id 
  And Cpr_Reason ='CANCEL';
  If V_Count >0 Then
    Select Cpr_Cheq_No Into V_Chq 
    From T_Cheq_Print_Release Where
    Cpr_Payh_Id =:Pdc_Id 
    And Cpr_Reason ='CANCEL';
    If :Pdc_Chq_No = V_Chq Then
      Show_Message('MSG_ALERT','Cancelled Cheque No cannot be printed!');
      Raise Form_Trigger_Failure;    
    End If;     
  End If;*/
  :Frm_Rep_Desformat := Fn_Get_Final_Txn_Param(:Pdc_Txn_Code, :Global.Company, 'FINAL_REP_DESFORMAT');
  
  If :Frm_Printer Is Null Then     
    :Frm_Printer:= Fn_Get_Final_Txn_Param(:Pdc_Txn_Code, :Global.Company, 'FINAL_TXN_PRINTER');   
  End If; 
  :Frm_En_Report_Security := Fn_Get_Company_Param(:Global.Company,'COM_EN_REPORT_SCEURITY');
  Pl_Id := Get_Parameter_List(V_Report);
  If Not Id_Null(Pl_Id) Then
    Destroy_Parameter_List(Pl_Id);
  End If; 
  Pl_Id:=Create_Parameter_List(V_Report);
  Select Sysdate Into V_Dt From Dual;        
  Add_Parameter(Pl_Id, 'Pay_Name', Text_Parameter, :Party_Main_Desc);
  Add_Parameter(Pl_Id, 'Cheq_Dt', Text_Parameter, :Pdc_Chq_Dt);
  Add_Parameter(Pl_Id, 'Cheq_Amt', Text_Parameter, :Pdc_Lc_Amt);
  Add_Parameter(Pl_Id, 'Usr_Id', Text_Parameter, :Global.User);
  Add_Parameter(Pl_Id, 'CURR_CODE', Text_Parameter, :Global.Basecurrency);
  Add_Parameter(Pl_Id, 'ParamForm', Text_Parameter, 'No'); 
  --Find Report Object
  V_Rep_Id := Find_Report_Object('rep_print');  
  --Communication Mode
  Set_Report_Object_Property(V_Rep_Id, Report_Comm_Mode, Synchronous);
  Set_Report_Object_Property(V_Rep_Id, Report_Desformat, 'PDF'); 
  If :Mnu_Dest_Name = 'PRINTER' Then
    --Set_Report_Object_Property(v_Rep_Id, Report_DesType, PRINTER);
    Set_Report_Object_Property(V_Rep_Id, Report_Destype,Cache);
  If :Mnu_Printer_Name Is Not Null Then
    Set_Report_Object_Property(V_Rep_Id, Report_Desname, :Frm_Printer);
    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);
  
  Set_Custom_Property('CTRL.PRINTBEAN',1,'DEFAULT_PRINTER',:Frm_Printer);
  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;      
      Message(V_Rep_Url);
      Set_Custom_Property('CTRL.PRINTBEAN',1,'FILE_NAME',V_Rep_Url);      
      Set_Custom_Property('CTRL.PRINTBEAN',1,'PAGE_WIDTH',Nvl(V_Rep_Width,'7.56')); 
      Set_Custom_Property('CTRL.PRINTBEAN',1,'PAGE_HEIGHT',Nvl(V_Rep_Height,'3.54'));
      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);
      If Nvl(:Frm_En_Report_Security, 'N') = 'Y' Then
        V_Rep_Url := Encry_Report(V_Host_Name, V_Port, V_Rep_Server, V_Job_Id);
      Else
        V_Rep_Url := 'http://' || V_Host_Name || ':' || V_Port || '/reports/rwservlet/getjobid' || V_Job_Id || '?server=' || V_Rep_Server;
      End If;
      Web.Show_Document(V_Rep_Url, '_blank');
    End If;
     Update T_Pdc Set Pdc_Chq_Prn_Count =Nvl(Pdc_Chq_Prn_Count,0) +1, Pdc_Chq_Print_Flag = 'Y' Where Pdc_Id =:Pdc_Id;              
     Insert Into T_Cheq_Print_Log(Cpl_Id,Cpl_Comp_Code,Cpl_Dt,Cpl_Chq_Dt,Cpl_Bank_Main_Acnt_Code,Cpl_Main_Acnt_Code,
     Cpl_Payee_Name,Cpl_Chq_Amt,Cpl_Chq_No,Cpl_Payh_Id,Cpl_Cr_User,Cpl_Cr_Dt)
     Values(Fn_Get_Next_Id('Cheq_Print_log'),:Global.Company,Sysdate, :Pdc_Chq_Dt,:Pdc_Bank_Main_Acnt_Code,:Pdc_Party_Main_Acnt_Code,
     :Bank_Main_Desc,:Pdc_Lc_Amt,:Pdc_Chq_No,:Pdc_Id,:Global.User,Sysdate);         
    Standard.Commit;   
  Else
    Message('Error Running Report');
  End If; 
End;
What you getClause Rule Language
on press of PB_CHEQUE_PRINT:    from PDC_0(PDC_ID)
        # load-fmb-pdc-entry-t-pdc-pb-cheque-print-press-0    from PDC_1(PDC_ID) when not (PDC_0.COUNT = 0)
        # load-fmb-pdc-entry-t-pdc-pb-cheque-print-press-1    from BANK_COMPANY_COUNT(PDC_BANK_MAIN_ACNT_CODE) when not (PDC_0.COUNT = 0) and not (PDC_1.COUNT > 0)
        # load-fmb-pdc-entry-t-pdc-pb-cheque-print-press-2    from BANK_COMPANY(PDC_BANK_MAIN_ACNT_CODE) when ((BANK_COMPANY_COUNT.COUNT > 0) and not (PDC_0.COUNT = 0)) and not (PDC_1.COUNT > 0)
        # load-fmb-pdc-entry-t-pdc-pb-cheque-print-press-3    exists of PDC_0 else "Document not found!"    unique of PDC_1 else "Already Printed!"    set FRM_PRINTER to BANK_COMPANY.BANKC_CHEQ_PRINTER when BANK_COMPANY_COUNT.COUNT > 0    deny when (BANK_COMPANY_COUNT.COUNT > 0) and is_blank(BANK_COMPANY.BANKC_CHEQ_REP_NAME) else "Report not defined!"    deny when not (BANK_COMPANY_COUNT.COUNT > 0) else "Report not found!"    deny when PDC_LC_AMT <= 0 else "Amount cannot be zero or negative!"    deny when nvl(PDC_CHQ_NO, ' ') = ' ' else "Cheque No cannot be null!"    deny when is_blank(PDC_CHQ_DT) else "Cheque date cannot be null!"    deny when not is_blank(PDC_CHQ_DT) and ((PDC_CHQ_DT + 1) < sysdate()) else "Cheque date expired!"    require PDC_BANK_MAIN_ACNT_CODE else "Bank main account cannot be null!"    require PDC_PARTY_MAIN_ACNT_CODE else "Party account cannot be null!"    require PARTY_MAIN_DESC else "Party account name cannot be null!"    set FRM_REP_DESFORMAT to FN_GET_FINAL_TXN_PARAM(PDC_TXN_CODE, GLOBAL.COMPANY, 'FINAL_REP_DESFORMAT')    set FRM_PRINTER to FN_GET_FINAL_TXN_PARAM(PDC_TXN_CODE, GLOBAL.COMPANY, 'FINAL_TXN_PRINTER') when is_blank(BANK_COMPANY.BANKC_CHEQ_PRINTER)    set FRM_EN_REPORT_SECURITY to FN_GET_COMPANY_PARAM(GLOBAL.COMPANY, 'COM_EN_REPORT_SCEURITY')    report BANK_COMPANY.BANKC_CHEQ_REP_NAME with (CURR_CODE = GLOBAL.BASECURRENCY, Cheq_Amt = PDC_LC_AMT, Cheq_Dt = PDC_CHQ_DT, ParamForm = 'No', Pay_Name = PARTY_MAIN_DESC, Usr_Id = GLOBAL.USER)
# 2 statements did not convert.#   line 140
#   Set_Custom_Property('CTRL.PRINTBEAN',1,'DEFAULT_PRINTER',:Frm_Printer);
#   reason: 'CTRL.PRINTBEAN' is a bean for printing, a Bean Area, and component-tracker.md tier 4.4 rules Bean Areas will not be built: they are a Forms applet's own protocol and the web has no equivalent#   line 141
#   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;
#       Message(V_Rep_Url);
#       Set_Custom_Property('CTRL.PRINTBEAN',1,'FILE_NAME',V_Rep_Url);
#       Set_Custom_Property('CTRL.PRINTBEAN',1,'PAGE_WIDTH',Nvl(V_Rep_Width,'7.56'));
#       Set_Custom_Property('CTRL.PRINTBEAN',1,'PAGE_HEIGHT',Nvl(V_Rep_Height,'3.54'));
#       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);
#         If Nvl(:Frm_En_Report_Security, 'N') = 'Y' Then
#           V_Rep_Url := Encry_Report(V_Host_Name, V_Port, V_Rep_Server, V_Job_Id);
#         Else
#           V_Rep_Url := 'http://' || V_Host_Name || ':' || V_Port || '/reports/rwservlet/getjobid' || V_Job_Id || '?server=' || V_Rep_Server;
#         End If;
#         Web.Show_Document(V_Rep_Url, '_blank');
#       End If;
#     End If;
#     Update T_Pdc Set Pdc_Chq_Prn_Count =Nvl(Pdc_Chq_Prn_Count,0) +1, Pdc_Chq_Print_Flag = 'Y' Where Pdc_Id =:Pdc_Id;
#     Insert Into T_Cheq_Print_Log(Cpl_Id,Cpl_Comp_Code,Cpl_Dt,Cpl_Chq_Dt,Cpl_Bank_Main_Acnt_Code,Cpl_Main_Acnt_Code,
#        Cpl_Payee_Name,Cpl_Chq_Amt,Cpl_Chq_No,Cpl_Payh_Id,Cpl_Cr_User,Cpl_Cr_Dt)
#        Values(Fn_Get_Next_Id('Cheq_Print_log'),:Global.Company,Sysdate, :Pdc_Chq_Dt,:Pdc_Bank_Main_Acnt_Code,:Pdc_Party_Main_Acnt_Code,
#        :Bank_Main_Desc,:Pdc_Lc_Amt,:Pdc_Chq_No,:Pdc_Id,:Global.User,Sysdate);
#     Standard.Commit;
#   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

16 clauses converted, 2 statements refused