Freshmark replication server

freshmark-canonical

Program drill-down

COMMISSION_MAN

COMMISSION % MAINTENANCE. Type MDL, base table COMM_PERC.

Field inventory

64

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 16 T -1 671, 25
  
1 0.0 Label 15 T -1 621, 49
  
1 0.0 H -1 1, 1
  
1 0.0 Label 14 T -1 621, 25
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 Label 17 T -1 671, 49
  
1 0.0 Label 21 T -1 1, 25
  
1 0.0 COMM_PERC CP_COMMPERC I -1 621, 217
'MAKE THIS FIELD MANDATORY AND RANGE MUST BE BETWEEN 0-100  $VALIDATE  M:  R:0;100
1 0.0 Label 4 T -1 681, 145
  
1 0.0 Label 9 T -1 291, 49
  
1 0.0 Work 2 I 0 71, 73
'DISPLAYING TIME  $DEFAULT  A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000  A:USERID;;I\USER  A:USERIP;;I\IP    $BEFORE_DELETE  'I:I\CP_SUPPLIER;=;  'D:CANNOT DELETE, SUPPLIER CODE BLANK;ERRORM;I\CP_SUPPLIER    'I:I\CP_PROD;=;  'D:CANNOT DELETE, PRODUCT CODE BLANK;ERRORM;I\CP_PROD
1 0.0 Work 3 I 0 381, 469
  
1 0.0 Label 9 T -1 621, 169
  
1 0.0 COMM_PERC CP_SUPPLIER I -1 1, 217
'DISPLAYING DATA FOR F5 FUNCTION  $SELECT  'S:SUPPLIER_MAST;I\CP_SUPPLIER    I:I\CP_AGENT;<>;    S:SUPPL_COMM;I\CP_SUPPLIER;I\CP_AGENT    I:I\CP_AGENT;=;    S:SUPPLIER_MAST;I\CP_SUPPLIER      $SELECT6  S:G:G\GRID:R1:I\CP_SUPPLIER;I\CP_SUPPLIER  'A:SELPARM;1;I\CP_SUPPLIER  'A:SELPARM;2;I\SUPP_NAME  A:SELPARM;3;I\CP_PROD
1 0.0 Work 3 G -1 1, 241
  
1 0.0 COMM_PERC CP_SUPPLIER T -1 1, 193
  
1 0.0 COMM_PERC CP_AGENT T -1 91, 109
  
1 0.0 COMM_PERC CP_VARIETY T -1 431, 193
  
1 0.0 COMM_PERC CP_VARIETY I -1 431, 217
'DISPLAYING DATA FOR F5 FUNCTION  $SELECT  S:VAR_MAST_R;I\CP_VARIETY;I\CP_PROD    'CHANGING CASE TO UPPER CASE  $VALIDATE  C:UCASE  'M:    I:I\CP_VARIETY;<>;  F:VAR_MAST;Y;VA_VARIETY;I\VAR_DESC=VA_DESC;VA_PRODUCT='$I\CP_PROD$';I\CP_VARIETY    I:I\CP_SUPPLIER;=;  DO(00)    I:I\CP_PROD;=;    DO(002)      I:I\CP_VARIETY;=
1 0.0 CMD 3 C 0 481, 217
'DISPLAYING DATA FOR F5 FUNCTION  $SELECT  S:VAR_MAST_R;I\CP_VARIETY;I\CP_PROD  
1 0.0 Label 3 T -1 251, 109
  
1 0.0 Work 5 I -1 681, 217
'CHANGING CASE TO UPPER CASE  $VALIDATE  C:UCASE  'ALLOWING 'Y'OR 'N' OR BLANK SPACE  V:Y;N;  'DEFAULT TO 'N' IF LEFT BLANK  I:I\CP_UPD;=;  A:CONST;N;I\CP_UPD  'I:I\CP_UPD;=;Y  'U:AGENT_COMM;CHK_BOX;I\CP_UPD,I\TYPE    $AFTER_WRITE  I:I\CP_UPD;=;Y  U:AGENT_COMM;UPD_DELS;I\MARKET,I\CP_AGENT,I\CP_SUPPLIER,I\CP_PROD,I\CP_V
1 0.0 Work 1 I 0 581, 169
  
1 0.0 Label 9 T -1 621, 193
  
1 0.0 COMM_PERC CP_PROD T -1 261, 193
  
1 0.0 COMM_PERC CP_PRODUCT I -1 261, 217
'DISPLAY DATA FOR F5 FUNCTION  $SELECT   S:PRODUCT_MAST;I\CP_PROD    'CHANGING CASE TO UPPER CASE   $VALIDATE  'M:  C:UCASE    A:CONST;;I\VAR_DESC  A:CONST;;I\PROD_DESC    I:I\CP_PROD;<>;  F:PRODUCT_MAST;Y;PR_PRODUCT;I\PROD_DESC=PR_DESC;;I\CP_PROD        I:I\CP_SUPPLIER;=;  DO(001)    I:I\CP_PROD;=;    D:BOTH SUPPLIER 
1 0.0 CMD 3 C -1 301, 217
'DISPLAY DATA FOR F5 FUNCTION  $SELECT   S:PRODUCT_MAST;I\CP_PROD
1 0.0 Label 8 T -1 681, 193
  
1 0.0 COMM_PERC CP_AGENT I -1 151, 109
$DEFAULT  'RETRIVING AGENT NAME  A:ORGS;I\CP_AGENT  F:AGENT_MAST;;AM_CODE;T\AGENT=AM_NAME;AM_MARKET='$I\MARKET$'    I:I\ORGS;<>;  O:DISABLEINPUT;I\CP_AGENT,C\3    'INITIALIZES GRID AND DATA FROM DATABASE TO GRID.  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\CP_SUPPLIER,I\SUPP_NAME,I\AGENT:H,I\CP_PROD,I\PROD_DESC,I\CP_VARIETY,I\V
1 0.0 CMD 1 C -1 81, 217
'DISPLAYING DATA FOR F5 FUNCTION  $SELECT  'S:SUPPLIER_MAST;I\CP_SUPPLIER    I:I\CP_AGENT;<>;    S:SUPPL_COMM;I\CP_SUPPLIER;I\CP_AGENT    I:I\CP_AGENT;=;    S:SUPPLIER_MAST;I\CP_SUPPLIER
1 0.0 Label 7 T -1 681, 169
  
1 0.0 Work 4 I 0 121, 73
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET
1 0.0 Work 2 I -1 481, 217
  
1 0.0 Work 3 I -1 111, 217
  
1 0.0 Work 1 I -1 331, 217
  
1 0.0 Label 4 T -1 111, 193
  
1 0.0 Label 5 T -1 331, 193
  
1 0.0 Label 6 T -1 501, 193
  
1 0.0 Label 1 T 0 571, 145
  
1 0.0 Work 1 I 0 281, 469
  
1 0.0 Work 2 I 0 321, 469
  
1 0.0 COMM_PERC CP_BLOCKED I -1 751, 217
$VALIDATE    'DEFAULT TO 'N' IF LEFT BLANK  I:I\CP_BLOCKED;=;  A:CONST;N;I\CP_BLOCKED    '==================  'JD BUILDING CHECKS  '==================  'VARIETY CANNOT BE STAND ALONE  I:I\CP_VARIETY;<>;  DO(DOC)    I:I\CP_SUPPLIER;=;    DO(MAF)      I:I\CP_PROD;=;      DO(AA5)        I:I\CP_CONT;=;        D:VARIETY CAN
1 0.0 I 0 331, 145
  
1 0.0 ORGS I 0 151, 145
$DEFAULT  A:ORGS;I\ORGS  I:I\ORGS;<>;  O:DISABLEINPUT;I\CP_AGENT,C\3  
1 0.0 COMM_PERC CP_CONT I -1 581, 217
$SELECT  S:CONT_MAST_NB;I\CP_CONT;I\CP_PROD;I\CP_VARIETY    $VALIDATE  'M:  C:UCASE  I:I\CP_CONT;<>  F:CONT_MAST;Y;CN_CONT;W\BLOCKED=CN_BLOCKED;CN_CONT='$I\CP_CONT$' AND CN_PRODUCT='$I\CP_PROD$';I\CP_CONT    I:W\BLOCKED;=;Y  D:ERRROR - THIS CONTAINER HAS BEEN BLOCKED;ERRORM;I\CP_CONT
1 0.0 COMM_PERC T -1 751, 193
  
1 0.0 AGENT I 0 431, 469
  
1 0.0 CP_SUPPLIER I 0 431, 493
  
1 0.0 CMD 3 C -1 191, 109
  
1 0.0 TYPE I -1 721, 217
  
1 0.0 Label 2 T -1 581, 193
  
1 0.0 Work 2 I 0 141, 505
  
1 0.0 Work 1 I 0 141, 481
  
1 0.0 Work 1 I 0 151, 73
  
10 0.0 ZX_DELETE Z 0 1, 1
  
10 0.0 ZX_UPDATE Z 0 1, 1
  
10 0.0 ZX_EXIT Z 0 1, 1
  
10 0.0 ZX_SELECT Z 0 1, 1
  
10 0.0 ZX_PRINT Z 0 1, 1
  
10 0.0 ZX_UPDATE Z 0 1, 1
  
10 0.0 ZX_SELECT Z 0 1, 1
  
10 0.0 ZX_EXIT Z 0 1, 1
  
10 0.0 ZX_DELETE Z 0 1, 1
  
10 0.0 ZX_PRINT Z 0 1, 1