Freshmark replication server

freshmark-canonical

Program drill-down

SALESMAN_TAKE-ON

CONSIGNMENT SALESMAN TAKE ON. Type DSP, base table SUPPLIER_MAST.

Field inventory

58

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 I 0 611, 217
  
1 0.0 Work 2 I -1 291, 121
  
1 0.0 Label 3 T -1 251, 49
  
1 0.0 Label 5 T -1 621, 25
  
1 0.0 Label 6 T -1 671, 25
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 8 T -1 671, 49
  
1 0.0 MARKET I 0 141, 37
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\PROHIBIT_SALES=CM_PROHIBIT_SALES    'A:VAR;I\MARKET;I\MARKET2  '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:TI
1 0.0 Label 2 T -1 291, 25
  
1 0.0 H -1 0, 0
  
1 0.0 Label 9 T -1 1, 25
  
1 0.0 START_DATE I 0 301, 121
'$DEFAULT  'A:CONST;$T\DATE$;I\START_DATE  'A:CONST;$T\DATE$;I\END_DATE    'O:DISABLEINPUT;I\SMAN,C\SMAN    '$AFTER_READ  'A:CONST;$T\DATE$;I\START_DATE    $VALIDATE  'GET DIFFERENCE BETWEEN RETURN DATE AND TODAYS DATE  'A:DATEDIFF;I\END_DATE;I\DATEDIFF;I\START_DATE    'I:I\DATEDIFF;<;0  'D:ERROR - START DATE CANNOT BE
1 0.0 END_DATE I 0 301, 157
'$DEFAULT  'A:DATE;DD MMM YYYY;I\END_DATE    '$AFTER_READ  'A:DATE;DD MMM YYYY;I\END_DATE    '$VALIDATE  'A:CONST;;I\DATEDIFF2,I\DATEDIFF  'A:CONST;;I\LINE_NO,I\CONSIGN,I\COMMODITY,I\DESC,I\QTY,I\DELNO,I\DELDATE,I\COMM,I\SMAN    'GET DIFFERENCE BETWEEN RETURN DATE AND TODAYS DATE  'A:DATEDIFF;I\END_DATE;I\DATEDIFF;I\ST
1 0.0 LINE_NO I -1 1, 217
$VALIDATE  A:CONST;;I\CONSIGN,I\COMMODITY,I\DESC,I\QTY,I\DELNO,I\DELDATE,I\COMM,I\SMAN    I:I\LINE_NO;=;   DO(01)    A:CONST;;I\CONSIGN,I\COMMODITY,I\DESC,I\QTY,I\DELNO,I\DELDATE,I\COMM,I\SMAN    O:DISABLEINPUT;I\SMAN,C\SMAN    O:SETFOCUS;C\CREATE    O:BACKCOLOR;C\CREATE;YELLOW   DOEND(01)      I:I\LINE_NO;<>;   DO(02)
1 0.0 I -1 41, 217
  
1 0.0 COMMODITY I -1 141, 217
  
1 0.0 I\DESC I -1 291, 217
  
1 0.0 T 0 141, 121
  
1 0.0 Label 5 T 0 141, 157
  
1 0.0 AGENT I -1 101, 73
'RETRIVING AGENT NAME  $DEFAULT  'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\ALL  A:ORGS;I\AGENT  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE_NO,I\CONSIGN,I\COMMODITY,I\DESC,I\QTY,I\DELNO:H,I\DELDATE:H,I\COMM,I\
1 0.0 Label 8 T -1 181, 73
  
1 0.0 Label 9 T -1 21, 73
  
1 0.0 DATEDIFF I 0 281, 553
  
1 0.0 Label 6 T -1 291, 193
  
1 0.0 Work 2 G -1 1, 241
  
1 0.0 Label 3 T -1 1, 193
  
1 0.0 Label 4 T -1 41, 193
  
1 0.0 Label 5 T -1 141, 193
  
1 0.0 QTY I -1 481, 217
  
1 0.0 Label 12 T -1 481, 193
  
1 0.0 STK_DETS SD_COMMP I -1 581, 217
  
1 0.0 Label 14 T -1 581, 193
  
1 0.0 Label 15 T -1 681, 193
  
1 0.0 I -1 681, 217
$SELECT  S:SALESMAN_AGENT;I\SMAN;I\AGENT        $VALIDATE    C:UCASE  '@A:VAR;I\SMAN;I\SMAN;;000    I:I\SMAN;<>;  F:SALESMAN_MAST;Y;;T\NAME=SLS_NAME;SLS_AGENT='$I\AGENT$' AND SLS_CODE='$I\SMAN$';I\SMAN    I:I\CONSIGN;<>;   DO(05)    U:SALESMAN_TAKE_ON;CHECK_ROW;G\GRID    A:VAR;I\SMAN;I\SMAN_CODE    U:ZZGRID_SPLIT;SCREE
1 0.0 SLS_ENTRY I 0 321, 553
  
1 0.0 CMD 3 C -1 731, 217
$SELECT  S:SALESMAN_AGENT;I\SMAN;I\AGENT
1 0.0 I 0 461, 85
  
1 0.0 Work 2 I 0 361, 553
  
1 0.0 Work 2 I 0 591, 217
  
1 0.0 I 0 431, 85
  
1 0.0 CMD 1 C -1 651, 546
$SCMD_FOCUS  O:BACKCOLOR;C\CREATE;YELLOW      $SELECT  I:I\TOTAL_LINES;<>;  DO(01)  U:SALESMAN_TAKE_ON;UPDATE_STK_DETS;G\GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE_NO,I\CONSIGN,I\COMMODITY,I\DESC,I\QTY,I\DELNO:H,I\DELDATE:H,I\COMM,I\SMAN  U:SALESMAN_TAKE_ON;LOAD_GRID;G\GRID  O:SETFOCUS;I\LINE_NO  DOEND(01)
1 0.0 Work 2 I 0 241, 553
  
1 0.0 Label 1 T -1 161, 121
  
1 0.0 Label 3 T -1 391, 121
  
1 0.0 Label 4 T -1 1, 493
  
1 0.0 Work 5 I -1 111, 493
  
1 0.0 Work 2 I 0 391, 553
  
1 0.0 CMD 1 C -1 571, 546
$SELECT    U:SALESMAN_TAKE_ON;MSG    I:I\ALL;=;Y   DO(ALL)    I:I\SMAN_CODE;<>;     DO(02)      I:I\TOTAL_LINES;=>;1      U:SALESMAN_TAKE_ON;UPDATE_ALL_STK_DETS;G\GRID      U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE_NO,I\CONSIGN,I\COMMODITY,I\DESC,I\QTY,I\DELNO:H,I\DELDATE:H,I\COMM,I\SMAN      U:SALESMAN_TAKE_ON;LOAD_GRID;
1 0.0 Work 3 I 0 431, 553
  
1 0.0 SMAN_CODE I 0 561, 505
  
1 0.0 CMD 1 C -1 151, 73
$SELECT  S:AGENT_CODE;I\AGENT
1 0.0 PROHIBIT_SALES I 0 400, 496
  
1 0.0 ORGS I 0 251, 493
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0