Freshmark replication server

freshmark-canonical

Program drill-down

CONS_COMM_CHANGES

CHANGE COMMISSION ON A CONSIGNMENT. Type DSP, base table AREA_MAST.

Field inventory

57

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 UPDATE C -1 651, 541
$SELECT  I:I\COMM_PERC;=;  D:COMMISSION IS A MANDATORY FIELD;ERRORM;I\COMM_PERC    I:I\SD_CONSIGN;=;  D:CONSIGNMENT IS A MANDATORY FIELD;ERRORM;I\SD_CONSIGN    I:I\UPDATE;=;Y  'A:CONST;N;I\UPDATE                    2015/07/07 BY SIYA TO ALLOW THE PROGRAM TO UPDATE COMMISSION ON SALES WHERE SUPPLIER NOT PAID    'JD20160
1 0.0 Label 1 T -1 271, 277
  
1 0.0 Work 1 I 0 51, 61
$DEFAULT  A:USERIP;;I\IP
1 0.0 Work 2 I 0 71, 61
$DEFAULT  A:USERID;;I\USERID
1 0.0 SUPPLIER T 0 351, 277
  
1 0.0 DELIVERY DATE T -1 271, 241
  
1 0.0 T -1 111, 325
  
1 0.0 COMMISSION I -1 271, 325
$CALCULATE  R:0;100  M:    A:CONST;Y;W\TEMP  A:VAR;I\COMM_PERC;W\COMM_PERC    A:ISNUMERIC;I\COMM_PERC;W\NUMERIC  I:W\NUMERIC;=;N  D:ERROR - ENTER NUMERIC VALUES ONLY;ERRORM;I\COMM_PERC    'VALIDATE THE COMMISION  'I:W\COMM_PERC;<>;W\COMM;NUM  U:CONS_COMM_CHANGES;VALIDATE_COMM        I:W\TEMP;=;G  D:COMMISSION HAS EXCEE
1 0.0 Label 12 T -1 111, 361
  
1 0.0 Label 2 T -1 112, 133
  
1 0.0 STK_DETS SD_CONSIGN I -1 271, 169
$SELECT  S:CONS;I\SD_CONSIGN;I\MARKET;I\AGENT    $CALCULATE  I:I\AGENT;=;  D:ONLY AGENTS ARE ALLOWED TO VIEW THIS SCREEN;ERRORM;I\SD_CONSIGN    A:CONST;;W\AGN_COMM,W\COMM,W\COMM_PERC,I\COMM_PERC,T\COMMODITY,T\DELDATE,T\SUPPL  'A:CONST;0.00;I\COMM_PERC    'MANDATORY  M:  C:UCASE    'VALIDATE THE AGENT CODE  F:AGENT_MAST
1 0.0 Label 4 T -1 111, 169
  
1 0.0 Label 10 T -1 1, 25
  
1 0.0 Label 9 T -1 671, 25
  
1 0.0 Label 8 T -1 621, 25
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 5 T -1 231, 49
  
1 0.0 Label 4 T -1 291, 25
  
1 0.0 H -1 1, 1
  
1 0.0 SD_ITEM I 0 61, 457
  
1 0.0 CM_DEL_LEN I 0 421, 169
  
1 0.0 COMMODITY T -1 271, 205
  
1 0.0 Work 1 I 0 11, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\AGENT    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    I:I\MARKET;<>;13  A:CONST;N;I\UPDATE    I:I\MA
1 0.0 UPDATE I -1 271, 361
$VALIDATE    I:I\UPDATE;=;  A:CONST;N;I\UPDATE    ''I:I\UPDATE;=;Y  'A:CONST;N;I\UPDATE            2015/07/07 BY SIYA TO ALLOW THE PROGRAM TO UPDATE COMMISSION ON SALES WHERE SUPPLIER NOT PAID    C:UCASE  V:Y;N    O:SETFOCUS;C\UPDATE  O:BACKCOLOR;C\UPDATE;YELLOW
1 0.0 CMD 5 C -1 391, 169
$SELECT  S:CONS;I\SD_CONSIGN;I\MARKET;I\AGENT
1 0.0 BLOCKED I 0 521, 169
  
1 0.0 AGENT T -1 271, 133
  
1 0.0 AGENT CODE I 0 31, 61
$DEFAULT  'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE        'GET USERNAME  A:USERNAME;;I\USER    'GET USER IP  A:USERIP;;I\IP    'LOAD AGENT NAME  F:AGENT_MAST;;AM_CODE;T\AGENT=AM_NAME;        'I:I\AGENT;<>;  'D:ONLY AGENTS ARE ALLOWED TO VIEW THIS SCREEN;ABORT;  
1 0.0 SD_CONT I 0 181, 457
  
1 0.0 SD_CONTMASS I 0 231, 457
  
1 0.0 SD_CLASS I 0 281, 457
  
1 0.0 SD_SIZE I 0 321, 457
  
1 0.0 SD_PROV I 0 371, 457
  
1 0.0 VARIETY I 0 141, 457
  
1 0.0 PRODUCT I 0 101, 457
  
1 0.0 PRODUCT DESC I 0 21, 457
  
1 0.0 VARIETY DESC I 0 41, 457
  
1 0.0 Label 28 T -1 111, 241
  
1 0.0 DELNO I 0 481, 169
  
1 0.0 Label 30 T -1 111, 277
  
1 0.0 Label 31 T -1 111, 205
  
1 0.0 SALESMAN I 0 551, 169
  
1 0.0 COMM_INC I 0 341, 505
  
1 0.0 COMM_DECR I 0 361, 505
  
1 0.0 CURRENT COMMISION I 0 431, 325
  
1 0.0 TEMP I 0 451, 325
  
1 0.0 COMM PERC I 0 371, 325
  
1 0.0 AGENT COMM I 0 501, 325
  
1 0.0 NUMERIC I 0 391, 325
  
1 0.0 Work 2 I 0 581, 169
  
1 0.0 Work 1 I 0 11, 85
  
10 0.0 ZX_PRINT Z 0 1, 1
  
10 0.0 ZX_SELECT Z 0 1, 1
  
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