Freshmark replication server

freshmark-canonical

Program drill-down

LABELS

PRINTING OF LABELS. Type DSP, base table STK_DETS.

Field inventory

25

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 1 T -1 541, 229
  
1 0.0 CMD 1 C -1 371, 385
$SELECT  I:I\MARKET;<>;15  DO(N15)    I:I\NO_LABELS;<>;    DO(003)      I:I\SIZE;=;L      DO(L)        'A:CON;" ",I\NO_LABELS;I\NO_LABELS        E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_BIG_CONSIGN_LABELS;$I\CONSIGN$,$I\NO_LABELS$,P      DOEND(L)          I:I\SIZE;=;S      DO(S)        'A:CON;" ",I\NO_L
1 0.0 Label 11 T -1 201, 265
  
1 0.0 Label 1 T -1 201, 301
  
1 0.0 Work 9 I 0 1, 73
$DEFAULT  A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 3 T -1 341, 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 671, 49
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 3 T -1 201, 229
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Work 1 I -1 391, 301
$VALIDATE  I:I\NO_LABELS;=;  D:ENTER NO. OF COPIES;ERRORM;I\NO_LABELS  O:SETFOCUS;C\PRINT  O:BACKCOLOR;C\PRINT;YELLOW  'O:DISABLEINPUT;I\NO_LABELS    
1 0.0 Work 8 I 0 1, 109
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MKT    I:I\MARKET;=;15  DO(21)  A:CONST;S;I\SIZE  O:HIDE;I\SIZE,T\LABEL  DOEND(21)
1 0.0 Work 1 I -1 391, 265
$VALIDATE  I:I\SIZE;=;  D:ENTER LABEL SIZE;ERRORM;I\SIZE  C:UCASE  V:L;S  I:I\SIZE;=;S  A:CONST;12 SMALL LABELS PER PAGE;T\NLABELS  I:I\SIZE;=;L  A:CONST;1 BIG LABEL PER PAGE;T\NLABELS  'E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_CONSINGO_LABELS;$I\CONSIGN$,P  'I:I\SIZE;=;S  'E:$GBLROOT$LEGEND\PROJ_FMS\BI
1 0.0 CMD 2 C -1 491, 229
$SELECT  S:CON_LABELS;I\CONSIGN
1 0.0 H -1 1, 1
  
1 0.0 I -1 391, 229
$SELECT  S:CON_LABELS;I\CONSIGN  $VALIDATE  M:  F:STK_DETS;Y;;T\ITEM=SD_ITEM;SD_CONSIGN=$I\CONSIGN$;I\CONSIGN    I:I\MARKET;=;15  DO(2)  O:SETFOCUS;I\NO_LABELS  DOEND(2)      
1 0.0 Label 1 T -1 541, 265
$VALIDATE  C:MCASE;;T\NLABELS
10 0.0 ZX_EXIT Z 0 1, 1
  
10 0.0 ZX_UPDATE Z 0 1, 1
  
10 0.0 ZX_DELETE Z 0 1, 1
  
10 0.0 ZX_PRINT Z 0 1, 1
  
10 0.0 ZX_SELECT Z 0 1, 1