Freshmark replication server

freshmark-canonical

Program drill-down

SALESMAN_ENTRY

ENTER SALESMAN ON CONSIGNMENT. Type DSP, base table VAT_MAST.

Field inventory

54

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 I 0 611, 265
  
1 0.0 Work 1 I 0 471, 517
  
1 0.0 Work 2 I 0 541, 517
  
1 0.0 Work 2 I -1 301, 193
  
1 0.0 Label 3 T -1 321, 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    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\PROHIBIT_SALES=CM_PROHIBIT_SALES    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    I:I\PROHIBIT_SALES;=;Y  DO(LP)  O:HIDE;C\CREATE  O:DISABLE
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 -1 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    I:I\PROHIBIT_SALES;=;Y  DO(LP2)  O:HIDE;C\CREATE  O:DISABLEINPUT;C\CREATE  D:YOU CAN'T CONTINUE PROGRAM IS PROHIBITED;ERRORM  DOEND(LP2)    I:I\PROHIBIT_SALE
1 0.0 END_DATE I -1 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\START_
1 0.0 LINE_NO I -1 11, 265
$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 51, 265
  
1 0.0 COMMODITY I -1 151, 265
  
1 0.0 I\DESC I -1 301, 265
  
1 0.0 T -1 141, 121
  
1 0.0 Label 5 T -1 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    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    I:I\PROHIBIT_SALES;=;Y  DO(LP2)  O:HIDE;C\CREATE  O:DISABLEINPUT;C\CRE
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, 529
  
1 0.0 Label 6 T -1 301, 241
  
1 0.0 Work 2 G -1 11, 289
  
1 0.0 Label 3 T -1 11, 241
  
1 0.0 Label 4 T -1 51, 241
  
1 0.0 Label 5 T -1 151, 241
  
1 0.0 QTY I -1 491, 265
  
1 0.0 Label 12 T -1 491, 241
  
1 0.0 STK_DETS SD_COMMP I -1 591, 265
  
1 0.0 Label 14 T -1 591, 241
  
1 0.0 Label 15 T -1 691, 241
  
1 0.0 I -1 691, 265
$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_ENTRY;CHECK_ROW;G\GRID    U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\LINE_NO    A
1 0.0 SLS_ENTRY I 0 321, 529
  
1 0.0 CMD 3 C -1 741, 265
$SELECT  S:SALESMAN_AGENT;I\SMAN;I\AGENT
1 0.0 I 0 461, 85
  
1 0.0 Work 2 I 0 361, 529
  
1 0.0 Work 2 I 0 591, 265
  
1 0.0 I 0 431, 85
  
1 0.0 Label 4 T -1 11, 505
  
1 0.0 Work 5 I -1 141, 505
  
1 0.0 CMD 1 C -1 651, 546
$SCMD_FOCUS  O:BACKCOLOR;C\CREATE;YELLOW      $SELECT  U:SALESMAN_ENTRY;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    I:I\ORGS;<>;  O:SETFOCUS;I\START_DATE    I:I\ORGS;=;  DO(NO_AGENT)  A:CONST;;T\SMAN_NAME,I\SD_SMAN  A:CONST;
1 0.0 Work 2 I 0 251, 529
  
1 0.0 Label 1 T -1 141, 193
  
1 0.0 Label 3 T -1 401, 193
  
1 0.0 CMD 1 C -1 151, 73
$SELECT  S:AGENT_CODE;I\AGENT
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