Program drill-down
PROV_BUYER_SMAN
PROV BUYER SMAN. Type DSP, base table PROV_BUYER_SMAN.
Field inventory
35
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 321, 49 | ||
| 1 | 0.0 | Label 3 | T | -1 | 2, 25 | ||
| 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 | 621, 49 | ||
| 1 | 0.0 | Label 7 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 8 | T | -1 | 201, 157 | ||
| 1 | 0.0 | Label 9 | T | -1 | 201, 205 | ||
| 1 | 0.0 | Label 10 | T | -1 | 201, 253 | ||
| 1 | 0.0 | I | -1 | 321, 157 | |||
| 1 | 0.0 | I | -1 | 321, 205 | $SELECT S:BUYER NUMBER;I\BUYER 'CHANGE TEXT CASE TO UPPER CASE AND SET THIS FIELD MANDATORY $VALIDATE M: C:UCASE 'LOOK UP FOR THE EXISTING DEBTOR NUMBER, IF DOES NOT EXISTS DISPLAY ERROR MESSAGE F:DEBTOR_MAST;Y;DM_DEBTOR;T\BUYER_NAME=DM_NAME;;I\BUYER I:T\BUYER_NAME;=; D:BUYER DOES NOT EXIST;ERRORM;I\BUYER |
||
| 1 | 0.0 | I | -1 | 321, 253 | $SELECT S:SALESMAN_AGENT;I\SMAN;I\AGENT $VALIDATE M: C:UCASE A:VAR;I\SMAN;I\SMAN;;000 F:SALESMAN_MAST;;SLS_CODE;T\SNAME=SLS_NAME,I\NEW_PIN=SLS_PIN_NO;SLS_AGENT='$I\AGENT$';I\SMAN I:T\SNAME;=; D:SALESMAN DOES NOT EXIST FOR THIS AGENT;ERRORM;I\SMAN F:SALESMAN_MAST;;SLS_CODE;T\SNAME=SLS_NAME,I\NEW_PIN=SLS_PIN_N |
||
| 1 | 0.0 | Work 14 | I | 0 | 1, 61 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET A:ORGS;;I\ORGS A:ORGS;;I\AGENT A:USERIP;;I\IP A:USERID;;I\USER '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:TIME;HH:MM:SS;T\TIME A:DATE;DD MMM YYYY;T\DATE 'A:TIMER_ON;1 |
|
| 1 | 0.0 | Label 15 | T | -1 | 451, 157 | ||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | CMD 16 | C | -1 | 421, 157 | ||
| 1 | 0.0 | Work 17 | I | 0 | 1, 97 | ||
| 1 | 0.0 | Label 1 | T | -1 | 451, 253 | ||
| 1 | 0.0 | Label 2 | T | -1 | 451, 205 | ||
| 1 | 0.0 | CMD 2 | C | -1 | 651, 546 | $SELECT I:W\TMP1;<>; U:PROV_BUYER_SMAN;UPDATE I:W\TMP1;=; U:PROV_BUYER_SMAN;INSERT I:I\ORGS;=; DO(CLR1) A:CONST;;I\AGENT,I\BUYER,I\SMAN,I\BLOCKED,T\AGENT_NAM,T\BUYER_NAME,T\SNAME O:SETFOCUS;I\AGENT DOEND(CLR1) I:I\ORGS;<>; DO(CLR2) A:CONST;;I\BUYER,I\SMAN,I\BLOCKED,T\BUYER_NAME,T\SNAME O:SETFOCUS;I\BUYER |
|
| 1 | 0.0 | Work 1 | I | 0 | 1, 193 | ||
| 1 | 0.0 | CMD 3 | C | -1 | 582, 546 | $SELECT U:PROV_BUYER_SMAN;DELETE I:W\TMP2;=;Y DO(TMP) O:HIDE;C\DELETE I:I\ORGS;=; DO(CLR1) A:CONST;;I\AGENT,I\BUYER,I\SMAN,I\BLOCKED,T\AGENT_NAM,T\BUYER_NAME,T\SNAME O:SETFOCUS;I\AGENT DOEND(CLR1) I:I\ORGS;<>; DO(CLR2) A:CONST;;I\BUYER,I\SMAN,I\BLOCKED,T\BUYER_NAME,T\SNAME O:SET |
|
| 1 | 0.0 | CMD 3 | C | -1 | 421, 205 | $SELECT S:BUYER NUMBER;I\BUYER |
|
| 1 | 0.0 | CMD 4 | C | -1 | 421, 253 | $SELECT S:SALESMAN_AGENT;I\SMAN;I\AGENT |
|
| 1 | 0.0 | Label 1 | T | -1 | 201, 301 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 217 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 133 | ||
| 1 | 0.0 | Work 2 | I | 0 | 1, 169 | ||
| 1 | 0.0 | I | -1 | 321, 301 | $VALIDATE V:N;Y I:I\BLOCKED;=; DO(1) A:CONST;N;I\BLOCKED DOEND(1) F:PROV_BUYER_SMAN;;;W\TMP1=PB_BLOCKED;PB_AGENT='$I\AGENT$' AND PB_BUYER='$I\BUYER$' AND PB_SMAN='$I\SMAN$' I:W\TMP1;<>; DO(M) O:SHOW;C\DELETE O:ENABLEINPUT;C\DELETE O:SETFOCUS;C\RUN O:BACKCOLOR;C\RUN;YELLOW 'O:SETFOCUS;C\DELETE |
||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | ||
| 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 | $SELECT U:PROV_BUYER_DELETE;UPDATE '$SELECT 'U:PROV_BUYER_DELETE;UPDATE |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |