Program drill-down
CLEAR_SLS_PIN
SALESMAN PIN MAN. Type DSP, base table TROLLEY_MAST.
Field inventory
36
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | CMD 15 | C | -1 | 331, 349 | $SELECT A:CONST;COLLECTING DATA . . . . .;T\PROG U:CLEARSALESMAN_PIN;UPDATE A:CONST;DONE . . . . .;T\PROG A:CONST;;T\BUYER,I\DEBTOR A:DATE;DD MMM YYYY;I\STDATE A:DATE;DD MMM YYYY;I\EDDATE I:I\ORGS;=; DO(1) A:CONST;;T\SLS_NAME,I\SLS_CODE,I\SLS_PASSWD,I\AGENT,T\AGN_NAME,I\CONFIRM_SALES_PIN,I\SALES_PIN,I |
|
| 1 | 0.0 | CMD 3 | C | -1 | 461, 229 | $SELECT I:I\AGENT;<>; S:SALESMAN_MAST;I\SMAN;I\AGENT |
|
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | Label 1 | T | -1 | 211, 193 | ||
| 1 | 0.0 | Work 2 | I | -1 | 361, 193 | $SELECT S:AGENT_CODE;I\AGENT $VALIDATE M: C:UCASE F:AGENT_MAST;Y;;T\AGN_NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT A:CONST;;I\PROG |
|
| 1 | 0.0 | CMD 3 | C | -1 | 461, 193 | ||
| 1 | 0.0 | Label 4 | T | -1 | 491, 193 | ||
| 1 | 0.0 | Work 13 | I | 0 | 1, 85 | $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 A:SETPWFIELD;I\DM_PINNO A:SETPWFIELD;I\CONFIRM_DM_PINNO A:SETPWFIELD;I\SALES_PIN A:SETPWFIELD;I\CONFIRM_SALES_PIN A:ORGS;;I\A |
|
| 1 | 0.0 | Work 14 | I | 0 | 1, 109 | 'DISPLAYING TIME $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:DATE;DD MMM YYYY;I\STDATE A:DATE;DD MMM YYYY;I\EDATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 |
|
| 1 | 0.0 | Work 2 | I | -1 | 361, 229 | $SELECT I:I\AGENT;<>; S:SALESMAN_MAST;I\SMAN;I\AGENT $VALIDATE A:CONST;;T\SLS_NAME M: C:UCASE F:SALESMAN_MAST;Y;;T\SLS_NAME=SLS_NAME;SLS_AGENT='$I\AGENT$' AND SLS_CODE='$I\SMAN$';I\SLS_CODE |
|
| 1 | 0.0 | Work 3 | I | -1 | 361, 265 | $VALIDATE M: C:UCASE I:I\FLAG;=;N U:CLEARSALESMAN_PIN;SEARCH I:I\FLAG;=;Y D:THIS PIN IS USED BY ANOTHER SALESMAN;ERRORM;I\SALES_PIN |
|
| 1 | 0.0 | Work 4 | I | -1 | 361, 301 | $CALCULATE ''I:I\DM_PINNO;<>;1SC2* M: I:I\CONFIRM_SALES_PIN;<>; DO(CHK) I:I\SALES_PIN;<>;I\CONFIRM_SALES_PIN D:PIN NUMBERS DO NOT MATCH - TRY AGAIN;ERRORM;I\CONFIRM_SALES_PIN DOEND(CHK) 'I:I\DM_REFUND_PIN;=;I\CONFIRM_REFUND_PIN ' DO(001) ' U:DM_UPD_FUZZY;ENCRYPT_PIN '' A:VAR;I\ENC_UN |
|
| 1 | 0.0 | Work 5 | I | 0 | 1, 133 | ||
| 1 | 0.0 | Work 2 | I | 0 | 1, 349 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 349 | ||
| 1 | 0.0 | Work 2 | I | 0 | 101, 121 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 157 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 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 | 671, 25 | ||
| 1 | 0.0 | Label 5 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 7 | T | -1 | 331, 49 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 181 | ||
| 1 | 0.0 | Label 10 | T | -1 | 311, 457 | ||
| 1 | 0.0 | Label 1 | T | -1 | 211, 229 | ||
| 1 | 0.0 | Label 4 | T | -1 | 491, 229 | ||
| 1 | 0.0 | Label 1 | T | -1 | 211, 265 | ||
| 1 | 0.0 | Label 2 | T | -1 | 211, 301 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 205 | ||
| 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 |