Freshmark replication server

freshmark-canonical

Program drill-down

PHYSIC_STK_QTY

STOCK TAKE UPDATE. Type DSP, base table STK_MAST.

Field inventory

54

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 6 C -1 651, 553
$SELECT    A:CONST;PROCESSING...;T\PROGRESS  U:PHYSICAL_STK_QTY;UPDATE_QTY;G\GRID  A:CONST;COMPLETE!!!;T\PROGRESS    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\CONSIGN,I\SUPPL,I\ITEM,I\CONT,I\CNT,I\GR,I\PR,I\DELIV,I\CSQTY,I\SOLD,I\FLR,I\PHYS_QTY,I\UPD,W\STKTAKE:H    A:CONST;;I\AGENT,T\AGENT_NAME,I\STK_TAKE,I\SEQ,I\CONSIGN
1 0.0 Work 1 G -1 1, 289
  
1 0.0 H -1 0, 0
  
1 0.0 I -1 31, 265
  
1 0.0 I -1 111, 265
  
1 0.0 I -1 231, 265
  
1 0.0 Work 18 I 0 11, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;I\RFID=CM_USE_RFID,T\MARKET=CM_NAME,I\CM_SEFA_MAIN_BUYER=CM_SEFA_MAIN_BUYER;      U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\CONSIG
1 0.0 Work 2 I 0 1, 517
  
1 0.0 Work 3 I 0 1, 493
  
1 0.0 Work 1 I 0 71, 61
  
1 0.0 Work 1 I 0 501, 313
  
1 0.0 Work 2 I 0 400, 295
  
1 0.0 Label 26 T -1 631, 241
  
1 0.0 Work 27 I -1 631, 265
  
1 0.0 Work 8 I -1 141, 157
$VALIDATE    C:UCASE  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\CONSIGN,I\SUPPL,I\ITEM,I\GR,I\CONT,I\CNT,I\PR,I\DELIV,I\CSQTY,I\SOLD,I\FLR,I\PHYS_QTY,I\UPD,W\STKTAKE:H    U:PHYSICAL_STK_QTY;LOAD_STK_TAKE;G\GRID    I:I\ERROR;=;Y  D:NO RECORDS FOUND;ERRORM;I\STK_TAKE    'O:DISABLEINPUT;G\GRID  O:SETFOCUS;I\SEQ      
1 0.0 Work 3 I -1 181, 265
  
1 0.0 Work 4 I -1 1, 265
$CALCULATE  I:I\SEQ;<>;  DO(DLD)    A:CONST;Y;I\UPD    O:DISABLEINPUT;I\CONSIGN,I\SUPPL,I\ITEM,I\GR,I\CONT,I\CNT,I\PR,I\DELIV,I\CSQTY,I\SOLD,I\FLR    U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\SEQ    O:SETFOCUS;I\PHYS_QTY  DOEND(DLD)    I:I\SEQ;=;  DO(SQS)      U:PHYSICAL_STK_QTY;MARK_STKTAKE;G\GRID         O:DISABLEINPUT;
1 0.0 Work 1 I -1 141, 121
$SELECT  S:AGENT_CODE;I\AGENT    $CALCULATE  C:UCASE    'O:SHOW;T\ANAME  I:I\AGENT;<>;  F:AGENT_MAST;Y;AM_CODE;T\AGENT_NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\CONSIGN,I\SUPPL,I\ITEM,I\CONT,I\CNT,I\GR,I\CSQTY,I\PR,I\DELIV,I\SOLD,I\FLR,I\PHYSIC_QTY,I\UPD,W\STKTAKE:H        
1 0.0 Label 1 T -1 3, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 621, 25
  
1 0.0 Label 4 T -1 311, 49
  
1 0.0 Label 5 T -1 621, 49
  
1 0.0 Label 7 T -1 41, 241
  
1 0.0 Label 8 T -1 111, 241
  
1 0.0 Label 11 T -1 181, 241
  
1 0.0 Label 22 T -1 671, 49
  
1 0.0 Label 21 T -1 671, 25
  
1 0.0 Label 9 T -1 11, 157
  
1 0.0 Label 2 T -1 231, 241
  
1 0.0 Label 5 T -1 1, 241
  
1 0.0 Label 2 T -1 11, 121
  
1 0.0 Label 1 T -1 271, 241
  
1 0.0 Work 2 I -1 271, 265
  
1 0.0 Label 3 T -1 311, 241
  
1 0.0 Work 4 I -1 311, 265
  
1 0.0 Label 5 T -1 351, 241
  
1 0.0 Work 6 I -1 351, 265
  
1 0.0 Label 7 T -1 391, 241
  
1 0.0 Work 8 I -1 391, 265
  
1 0.0 Label 13 T -1 471, 241
  
1 0.0 Work 14 I -1 471, 265
  
1 0.0 Label 19 T -1 231, 121
  
1 0.0 CMD 20 C -1 191, 121
$SELECT  S:AGN_CODE;I\AGENT
1 0.0 Work 21 I 0 41, 61
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000
1 0.0 Label 22 T -1 551, 241
  
1 0.0 Work 23 I -1 551, 265
  
1 0.0 Label 24 T -1 711, 241
  
1 0.0 Work 25 I -1 711, 265
$CALCULATE  C:UCASE    I:I\PHYS_QTY;=;  DO(0)    U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ    O:SETFOCUS;I\SEQ    A:CONST;;I\SEQ,I\CONSIGN,I\SUPPL,I\ITEM,I\GR,I\CONT,I\CNT,I\PR,I\DELIV,I\CSQTY,I\SOLD,I\FLR,I\PHYS_QTY,I\UPD,W\STKTAKE:H  DOEND(0)    I:I\PHYS_QTY;<>;  DO(01)       U:PHYSICAL_STK_QTY;CAPTURE_QTY;G\GRID   
10 0.0 ZX_PRINT 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_EXIT Z 0 0, 0