Freshmark replication server

freshmark-canonical

Program drill-down

PROKON_INSPECT

PROKON INSPECTION. Type DSP, base table VAR_MAST.

Field inventory

27

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 15 C -1 651, 548
$SELECT    U:PROKON_INSPECTION;UPDATE;G\GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\CONSIGN,I\DELDATE  A:CONST;;I\AGENT,T\AGNDESC  O:SETFOCUS;I\AGENT  
1 0.0 Work 16 I 0 1, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET      '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  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\CONSIGN,I\DELDATE    A:DAT
1 0.0 Label 1 T -1 291, 25
  
1 0.0 Label 2 T -1 671, 49
  
1 0.0 Label 3 T -1 621, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 1, 25
  
1 0.0 Label 7 T -1 311, 49
  
1 0.0 Label 8 T -1 231, 157
  
1 0.0 Label 9 T -1 281, 193
  
1 0.0 Work 10 I -1 281, 157
$SELECT  S:AGENT_CODE;I\AGENT    $CALCULATE    M:  C:UCASE     I:I\AGENT;<>;  F:AGENT_MAST;Y;;T\AGNDESC=AM_NAME;AM_CODE='$I\AGENT$' AND AM_BLOCK <>'Y';I\AGENT
1 0.0 CMD 11 C -1 381, 157
  
1 0.0 Work 12 I -1 281, 217
$CALCULATE  M:  F:STK_DETS;Y;;I\DELDATE=SD_DATE,W\AGENT=SD_AGENT;SD_CONSIGN='$I\CONSIGN$' AND SD_MARKET='$I\MARKET$' AND ISNULL(SD_CDATE);I\CONSIGN  I:W\AGENT;<>;I\AGENT  D:THIS CONSIGNMENT IS NOT FOR THIS AGENT;ERRORM;I\CONSIGN  U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ  A:CONST;;I\SEQ,I\CONSIGN,I\DELDATE  O:DISABLEI
1 0.0 Label 1 T -1 231, 193
  
1 0.0 Work 2 I -1 231, 217
$CALCULATE    I:I\SEQ;=;  DO(001)    A:CONST;;I\SEQ,I\CONSIGN    O:DISABLEINPUT;I\CONSIGN    O:DISABLEINPUT;G\GRID          O:BACKCOLOR;C\UPDATE;YELLOW    O:SETFOCUS;C\UPDATE  DOEND(001)    I:I\SEQ;<>;  DO(001)    I:I\SEQ;=;+    DO(002)      O:ENABLEINPUT;I\CONSIGN,I\DELDATE      A:CONST;;I\SEQ,I\CONSIGN,I\DELDATE     
1 0.0 Work 14 G -1 231, 241
  
1 0.0 Work 4 I -1 381, 217
  
1 0.0 H -1 0, 0
  
1 0.0 Label 1 T -1 431, 157
  
1 0.0 Work 3 I 0 1, 85
  
1 0.0 Label 3 T -1 381, 193
  
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_EXIT Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0