53 lines
845 B
Plaintext
53 lines
845 B
Plaintext
COMPILE ROUTINE TEST_LINK_WO_STEP_RDS(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_RDS, Send_Dyn, Btree.Extract, ErrMsg
|
|
DECLARE FUNCTION Get_Status,obj_RDS, Send_Dyn,
|
|
|
|
debug
|
|
RDSNo = 201318
|
|
|
|
|
|
RDSRec = XLATE('RDS',RDSNo,'','X')
|
|
|
|
QuoteNo = RDSRec<1>
|
|
WONo = RDSRec<6>
|
|
OrdNo = RDSRec<7>
|
|
PSN = RDSRec<114>
|
|
|
|
QuoteRec = XLATE('QUOTE',QuoteNo,'','X')
|
|
QuoteDetKeys = QuoteRec<35>
|
|
|
|
IF NOT(INDEX(QuoteDetKeys,@VM,1)) THEN
|
|
|
|
* Single quote item
|
|
|
|
QuoteDetRec = XLATE('QUOTE_DET',QuoteNo:'*1','','X')
|
|
QuoteSteps = QuoteDetRec<8>
|
|
QuotePSNs = QuoteDetRec<9>
|
|
QuoteProcDescs = QuoteDetRec<10>
|
|
|
|
IF INDEX(QuoteDetRec<9>,@VM,1) THEN
|
|
* Multi Step Process
|
|
|
|
|
|
END ELSE
|
|
* Single Step Process
|
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
END
|
|
|
|
|
|
GOTO Bail
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|