Freshmark replication server

freshmark-canonical

Program drill-down

SUNDRY_INVOICES

SUNDRY INVOICES. Type DSP, base table DEBTOR_TRANS.

Field inventory

42

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 0
  
1 0.0 Label 15 T -1 231, 157
  
1 0.0 Label 8 T -1 1, 25
  
1 0.0 Label 9 T -1 291, 25
  
1 0.0 Label 10 T -1 621, 25
  
1 0.0 Label 11 T -1 321, 49
  
1 0.0 Label 12 T -1 621, 49
  
1 0.0 Label 13 T -1 671, 25
  
1 0.0 Label 14 T -1 671, 49
  
1 0.0 CMD 16 C -1 441, 157
$SELECT  I:I\PARM;<>;DEV  DO(LLL)    I:I\PARM;<>;HEA    DO(CCC)      O:DISABLEINPUT;I\CODE,I\QTY,I\VAL,W\DEL,C\23,C\PROCESS      D:ONLY HEAD CASHIER MAY USE THIS SCREEN;ERRORM;I\DEBTOR    DOEND(CCC)  DOEND(LLL)    S:SUNDRY_DEBTOR;I\DEBTOR
1 0.0 DEBTOR I -1 341, 157
$SVAR_FOCUS  I:I\PARM;<>;DEV  DO(LLL)    I:I\PARM;<>;HEA    DO(CCC)      O:DISABLEINPUT;I\CODE,I\QTY,I\VAL,W\DEL,C\23,C\PROCESS      D:ONLY HEAD CASHIER MAY USE THIS SCREEN;ERRORM;I\DEBTOR    DOEND(CCC)  DOEND(LLL)    $SELECT  I:I\PARM;<>;DEV  DO(LLL)  I:I\PARM;<>;HEA    DO(CCC)      O:DISABLEINPUT;I\CODE,I\QTY,I\VAL,W
1 0.0 Label 18 T -1 491, 157
  
1 0.0 Work 19 G -1 91, 289
  
1 0.0 LINE I -1 91, 265
$SVAR_FOCUS  A:CONST;+;I\LINE    $CALCULATE    I:I\LINE;=;  DO(SKS)    O:DISABLEINPUT;I\CODE,I\QTY,I\VAL,W\DEL    O:SETFOCUS;C\PROCESS    O:BACKCOLOR;C\PROCESS;YELLOW  DOEND(SKS)    I:I\LINE;<>;  DO(002)    I:I\LINE;<>;+    DO(003)      U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\LINE      '''O:ENABLEINPUT;I\LINE,I\CODE,I\C
1 0.0 CODE I -1 131, 265
$SELECT  S:SUNDRY_CODES;I\CODE    $ESC  A:CONST;+;I\LINE  O:SETFOCUS;I\LINE    $CALCULATE  M:  C:UCASE  F:CASH_TRN_TYPE;Y;;I\CODE_DESC=CTT_DESC;CTT_TRTYPE='$I\CODE$' AND CTT_SLSTYP = 'S';I\CODE  O:SETFOCUS;I\QTY
1 0.0 CODE_DESC I -1 211, 265
  
1 0.0 CMD 23 C -1 181, 265
$SELECT  S:SUNDRY_CODES;I\CODE
1 0.0 QTY I -1 361, 265
$CALCULATE  I:I\QTY;=;  A:CONST;1;I\QTY    O:SETFOCUS;I\VAL    $ESC  O:SETFOCUS;I\CODE
1 0.0 VAL I -1 431, 265
$CALCULATE  M:  U:SUNDRY_INVOICES;LINE_TOTAL    O:SETFOCUS;W\DEL  
1 0.0 CMD 26 C -1 651, 541
$SELECT  I:I\DEBTOR;=;  D:PLEASE ENTER A DEBTOR NUMBER!;ERRORM;I\DEBTOR    I:I\PARM;<>;DEV  DO(LLL)    I:I\PARM;<>;HEA    DO(CCC)      A:CONST;I\DEBTOR,I\CODE,I\QTY,I\VAL,W\DEL      O:DISABLEINPUT;I\CODE,I\QTY,I\VAL,W\DEL,C\23,C\PROCESS      U:SUNDRY_INVOICES;CLEAR_GRID      D:ONLY HEAD CASHIER MAY USE THIS SCREEN;ERRO
1 0.0 Label 27 T -1 91, 241
  
1 0.0 Label 28 T -1 131, 241
  
1 0.0 Label 29 T -1 211, 241
  
1 0.0 Label 30 T -1 361, 241
  
1 0.0 Label 31 T -1 431, 241
  
1 0.0 VAT I -1 531, 265
  
1 0.0 Label 33 T -1 531, 241
  
1 0.0 TOTAL I -1 601, 265
  
1 0.0 Label 35 T -1 601, 241
  
1 0.0 ORGS I 0 21, 61
$DEFAULT  A:ORGS;;I\ORGS
1 0.0 MARKET I 0 1, 61
$DEFAULT    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\PROCESS    'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'INITIALIZES THE DATE AND
1 0.0 IP I 0 41, 61
$DEFAULT  A:USERIP;;I\IP
1 0.0 USERID I 0 61, 61
$DEFAULT  A:USERID;;I\USERID    U:MENU_GROUP;LOOKUP
1 0.0 Label 43 T -1 691, 241
  
1 0.0 Work 42 I -1 701, 265
$ESC  O:SETFOCUS;I\QTY    $CALCULATE  C:UCASE    I:W\DEL;=  A:CONST;Y;W\DEL    V:C;Y    I:W\DEL;=;C  DO(CAC)    A:CONST;;I\CODE,I\CODE_DESC,I\QTY,I\VAL,I\VAT,I\TOTAL,W\DEL    O:SETFOCUS;I\LINE  DOEND(CAC)    I:W\DEL;=;Y  DO(SLA)    U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\LINE    A:CONST;;I\CODE,I\CODE_DESC,I\QTY,I\VAL,I
1 0.0 PARM I 0 581, 541
  
1 0.0 TAX INV I 0 441, 529
  
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