phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
LSL2/STPROC/DIALOG_EMAIL_SHIPMENT.txt
View File

@ -93,8 +93,10 @@ OPEN 'DICT.COMPANY' TO DictVar ELSE
RETURN
END
CustNos = ''
Btree.Extract(SearchString,'COMPANY',DictVar,CustNos,'','')
errCode = ''
IF Get_Status(errCode) THEN
ErrMsg(errCode)
RETURN
@ -160,7 +162,7 @@ SelectQueue:
Sentence = 'SELECT SHIP_EMAIL_QUEUE WITH SHIP_DTM GE ' : Quote(Oconv(Date() - 90, 'DT4/')) : ' BY-DSND SHIP_DTM'
Set_Status(0)
RList(Sentence, 5, '', '', '')
ShipNos = Popup(@WINDOW,'','SHIP_EMAIL_QUEUE')
ShipNos = Popup(@WINDOW,'','SHIP_EMAIL_QUEUE')
IF ShipNos = '' THEN RETURN
IF ShipNos = CHAR(27) THEN RETURN
@ -328,18 +330,3 @@ GOSUB Refresh
RETURN