added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
781
LSL2/STPROC/COMM_DIALOG_COC_QUERY.txt
Normal file
781
LSL2/STPROC/COMM_DIALOG_COC_QUERY.txt
Normal file
@ -0,0 +1,781 @@
|
||||
COMPILE FUNCTION Comm_Dialog_COC_Query(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_COC_Query window.
|
||||
|
||||
10/28/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, Btree.Extract, Comm_Dialog_Order_Find
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Utility, Key_Sort, Msg, Send_Message
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU COL$CUST_NO TO 1 ;* Customer edit table column equates
|
||||
EQU COL$CUST_NAME TO 2
|
||||
|
||||
EQU DTS_MULTIROW$ TO 512
|
||||
EQU DTS_LARGEDATA$ TO 4096
|
||||
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT COC_EQU
|
||||
$INSERT APPCOLORS
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_COC_Query'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'CustChar' ; GOSUB CustChar
|
||||
CASE Method = 'CustPC' ; GOSUB CustPC
|
||||
CASE Method = 'CustDC' ; GOSUB CustDC
|
||||
CASE Method = 'WONoDC' ; GOSUB WONoDC
|
||||
CASE Method = 'PONoDC' ; GOSUB PONoDC
|
||||
CASE Method = 'LotDC' ; GOSUB LotDC
|
||||
CASE Method = 'PartDC' ; GOSUB PartDC
|
||||
CASE Method = 'LUDate' ; GOSUB LUDate
|
||||
CASE Method = 'PerformQuery' ; GOSUB PerformQuery
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'SelectStatusCodes' ; GOSUB SelectStatusCodes
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Set_Property(@WINDOW:'.USER_ID','INVALUE',@USER4)
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
* Turn edit table symbolic column backgrounds to green
|
||||
|
||||
stat = Send_Message(@WINDOW:'.CUST_INFO','COLOR_BY_POS',2,0,GREEN$) ;* Turn names column all rows green
|
||||
stat = Send_Message(@WINDOW:'.CURR_STATUS','COLOR_BY_POS',2,0,GREEN$) ;* Turn names column all rows green
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustChar:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustArray = Get_Property(CtrlName,'ARRAY') ;* Customer Information table
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
DataIn = CustArray<COL$CUST_NO,CurrRow>
|
||||
|
||||
IF LEN(DataIn) > 2 THEN
|
||||
|
||||
ReturnToCtrl = CtrlName
|
||||
ReturnToPos = CurrPos
|
||||
|
||||
IF NOT(NUM(DataIn)) THEN
|
||||
Set_Property(CtrlName,'CELLPOS','',CurrPos) ;* Clear characters input
|
||||
Start_Window('COMP_LOOKUP',@WINDOW,DataIn:@VM:'C':@FM:ReturnToCtrl:@FM:ReturnToPos,'','')
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustPC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
IF CustNo NE '' THEN
|
||||
Set_Property(CtrlName,'CELLPOS',XLATE('COMPANY',CustNo,4,'X'),COL$CUST_NAME:@FM:CurrRow)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustDC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
LineCnt = COUNT(CustList,@FM) + (CustList NE '')
|
||||
IF CustNo = '' THEN
|
||||
CustNos = Popup(@WINDOW,'','CUSTOMER')
|
||||
CustCnt = COUNT(CustNos,@VM) + (CustNos NE '')
|
||||
IF CustCnt > LineCnt THEN
|
||||
FOR I = 1 TO CustCnt
|
||||
stat = Send_Message(CtrlName,'INSERT',-1,@VM:@FM) ; * Add blank lines
|
||||
NEXT I
|
||||
END
|
||||
|
||||
FOR I = CurrRow TO CurrRow + CustCnt
|
||||
CustNo = CustNos<1,I>
|
||||
CustName = XLATE('COMPANY',CustNo,4,'X')
|
||||
Set_Property(CtrlName,'CELLPOS',CustNo,COL$CUST_NO:@FM:I)
|
||||
Set_Property(CtrlName,'CELLPOS',CustName,COL$CUST_NAME:@FM:I)
|
||||
Set_Property(CtrlName,'SELPOS',COL$CUST_NO:@FM:I+1)
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
ErrMsg('DoubleClick on the first empty Cust No field to view a popup of all Customers')
|
||||
END
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PONoDC:
|
||||
* * * * * * *
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting PO Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.ORDER' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'PO_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'ORDER', DictVar, OrderKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF OrderKeys NE '' THEN
|
||||
RawPONos = XLATE('ORDER',OrderKeys,ORDER_PO_NO$,'X')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
PONos = ''
|
||||
FOR I = 1 TO COUNT(RawPONos,@VM) + (RawPONos NE '')
|
||||
RawPONo = RawPONos<1,I>
|
||||
LOCATE RawPONo IN PONos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PONos = INSERT(PONos,1,Pos,0,RawPONo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
PONos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PONos = '' THEN
|
||||
ErrMsg('No Purchase Orders on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PONos := @VM
|
||||
CONVERT @VM TO @RM IN PONos
|
||||
CALL V119('S','','D','R',PONos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PONos
|
||||
PONos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PONos
|
||||
PONos = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PONos NE '' THEN
|
||||
PONos := @VM:@VM
|
||||
Set_Property(@WINDOW:'.PO_NO','DEFPROP',PONos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.ORDER in COMM_DIALOG_ORDER_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
WONoDC:
|
||||
* * * * * * *
|
||||
DEBUG
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Work Order Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.COC' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'WO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'COC', DictVar, ShipmentKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF ShipmentKeys NE '' THEN
|
||||
RawWONos = XLATE('COC',ShipmentKeys,COC_WO$,'X')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
WONos = ''
|
||||
FOR I = 1 TO COUNT(RawWONos,@VM) + (RawWONos NE '')
|
||||
RawWONo = RawWONos<1,I>
|
||||
LOCATE RawWONo IN WONos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
WONos = INSERT(WONos,1,Pos,0,RawWONo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
WONos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF WONos = '' THEN
|
||||
ErrMsg('No Work Orders on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
WONos := @VM
|
||||
CONVERT @VM TO @RM IN WONos
|
||||
CALL V119('S','','D','R',WONos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN WONos
|
||||
WONos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = WONos
|
||||
WONos = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF WONos NE '' THEN
|
||||
WONos := @VM:@VM
|
||||
Set_Property(@WINDOW:'.WO_NO','DEFPROP',WONos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.COC in COMM_DIALOG_COC_QUERY.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LotDC:
|
||||
* * * * * * *
|
||||
|
||||
DEBUG
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting PO Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.ORDER' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'PO_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'ORDER', DictVar, OrderKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF OrderKeys NE '' THEN
|
||||
RawPONos = XLATE('ORDER',OrderKeys,ORDER_PO_NO$,'X')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
PONos = ''
|
||||
FOR I = 1 TO COUNT(RawPONos,@VM) + (RawPONos NE '')
|
||||
RawPONo = RawPONos<1,I>
|
||||
LOCATE RawPONo IN PONos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PONos = INSERT(PONos,1,Pos,0,RawPONo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
PONos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PONos = '' THEN
|
||||
ErrMsg('No Purchase Orders on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PONos := @VM
|
||||
CONVERT @VM TO @RM IN PONos
|
||||
CALL V119('S','','D','R',PONos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PONos
|
||||
PONos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PONos
|
||||
PONos = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PONos NE '' THEN
|
||||
PONos := @VM:@VM
|
||||
Set_Property(@WINDOW:'.PO_NO','DEFPROP',PONos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.ORDER in COMM_DIALOG_ORDER_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PartDC:
|
||||
* * * * * * *
|
||||
|
||||
DEBUG
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Part Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'PART_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
PartNos = ''
|
||||
OrderNos = ''
|
||||
FOR N = 1 TO COUNT(WOKeys,@VM) + (WOKeys NE '')
|
||||
WOKey = WOKeys<1,N>
|
||||
RawPartNos = XLATE('WO_LOG',WOKey,'PART_NO','X')
|
||||
OrderNo = XLATE('WO_LOG',WOKey,WO_LOG_ORDER_NO$,'X')
|
||||
|
||||
FOR I = 1 TO COUNT(RawPartNos,@VM) + (RawPartNos NE '')
|
||||
RawPartNo = RawPartNos<1,I>
|
||||
|
||||
LOCATE RawPartNo IN PartNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PartNos = INSERT(PartNos,1,Pos,0,RawPartNo)
|
||||
END
|
||||
|
||||
LOCATE OrderNo IN OrderNos<Pos> BY 'DR' USING @VM SETTING OPos ELSE
|
||||
OrderNos = INSERT(OrderNos,Pos,OPos,0,OrderNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
NEXT N
|
||||
END ELSE
|
||||
PartNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PartNos = '' THEN
|
||||
ErrMsg('No Purchase Orders on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PartNos := @VM
|
||||
CONVERT @VM TO @RM IN PartNos
|
||||
CALL V119('S','','D','R',PartNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PartNos
|
||||
PartNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PartNos
|
||||
PartNos = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PartNos NE '' THEN
|
||||
debug
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_ORDER_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SelectStatusCodes:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = @WINDOW:'.CURR_STATUS'
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = 2 ;* Multiple select
|
||||
|
||||
StatusCodes = Popup(@WINDOW,TypeOver,'RDS_CURR_STATUS')
|
||||
|
||||
IF StatusCodes NE '' THEN
|
||||
ExistingArray = ''
|
||||
FOR I = 1 TO COUNT(StatusCodes,@VM) + (StatusCodes NE '') + 1
|
||||
ExistingArray<1,I> = StatusCodes<1,I>
|
||||
ExistingArray<2,I> = OCONV(StatusCodes<1,I>,'[RDS_CURR_STATUS_CONV]')
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.CURR_STATUS','DEFPROP',ExistingArray)
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUDate:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = Parm1[1,@RM]
|
||||
|
||||
IF ReturnCtrl = '' THEN ReturnCtrl = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
DateSelected = Dialog_Box('POPUP_YEAR',@WINDOW)
|
||||
|
||||
RetVal = OCONV(DateSelected, 'D4/')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
obj_Appwindow('LUValReturn',RetVal:@RM:ReturnCtrl)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PerformQuery:
|
||||
* * * * * * *
|
||||
|
||||
open 'DICT.COC' to DictCOCTable else
|
||||
Void = msg( '', 'Unable to open DICT.COC...' )
|
||||
return 0
|
||||
end
|
||||
SearchStr = ''
|
||||
|
||||
CustIds = Get_Property(@WINDOW:'.CUSTOMER_INFO','ARRAY')<1>
|
||||
EntryDateFrom = Get_Property(@WINDOW:'.ENTRY_DATE_FROM','TEXT')
|
||||
EntryDateThru = Get_Property(@WINDOW:'.ENTRY_DATE_THRU','TEXT')
|
||||
EntryIds = Get_Property(@WINDOW:'.ENTRY_IDS','ARRAY')<1>
|
||||
Wo = Get_Property(@WINDOW:'.WO','ARRAY')
|
||||
Po = Get_Property(@WINDOW:'.PO','ARRAY')
|
||||
swap @vm:@vm with '' in Wo
|
||||
if Wo[-1,1] = @vm then Wo[-1,1] = ''
|
||||
swap @vm:@vm with '' in Po
|
||||
if Po[-1,1] = @vm then Po[-1,1] = ''
|
||||
swap @vm:@vm with '' in CustIds
|
||||
if CustIds[-1,1] = @vm then CustIds[-1,1] = ''
|
||||
swap @vm:@vm with '' in EntryIds
|
||||
if EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''
|
||||
|
||||
|
||||
|
||||
if CustIds then
|
||||
SearchStr<-1> = 'WO_CUST_NO_SHIP_TO':@vm:CustIds
|
||||
end
|
||||
if EntryDateFrom and EntryDateThru then
|
||||
SearchStr<-1> = 'ENTRY_DATE':@vm:EntryDateFrom:'...':EntryDateThru
|
||||
end else
|
||||
if EntryDateFrom then
|
||||
SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom
|
||||
end
|
||||
if EntryDateThru then
|
||||
SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru
|
||||
end
|
||||
end
|
||||
if EntryIds then
|
||||
SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds
|
||||
end
|
||||
if Wo then
|
||||
SearchStr<-1> = 'WO':@vm:Wo
|
||||
end
|
||||
if Po then
|
||||
SearchStr<-1> = 'PO':@VM:Po
|
||||
end
|
||||
if SearchStr then
|
||||
SearchStr := @fm
|
||||
Void = utility( 'CURSOR', 'H' )
|
||||
* do a btree.extract
|
||||
btree.extract( SearchStr, 'COC', DictCOCTable, Keys, '', Flag )
|
||||
if Flag <> 0 then
|
||||
Void = msg( '', 'Error while extracting COC records...' )
|
||||
return 0
|
||||
end
|
||||
if Keys then
|
||||
convert @vm to @fm in Keys
|
||||
Keys = key_sort( Keys, 'COC', 'CUST_NAME_BILL_TO':@fm:'#ENTRY_DATE', 1 )
|
||||
end_dialog( @window, Keys )
|
||||
end else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'No records found meeting your criteria...'
|
||||
MsgInfo<micon$> = '!'
|
||||
Void = msg( '', MsgInfo )
|
||||
end
|
||||
Void = utility( 'CURSOR', 'A' )
|
||||
end else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'You have not entered any search criteria...'
|
||||
MsgInfo<micon$> = '!'
|
||||
Void = msg( '', MsgInfo )
|
||||
end
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
OPEN 'DICT.RDS' TO DictRDSTable ELSE
|
||||
ErrMsg( 'Unable to open DICT.RDS...' )
|
||||
End_Dialog( @WINDOW,'')
|
||||
END
|
||||
|
||||
WONos = Get_Property(@WINDOW:'.WO','ARRAY')<1>
|
||||
Reactors = Get_Property(@WINDOW:'.REACTORS','ARRAY')<1>
|
||||
PSNs = Get_Property(@WINDOW:'.PSN_NOS','ARRAY')<1>
|
||||
QuoteNos = Get_Property(@WINDOW:'.QUOTE_NOS','ARRAY')<1>
|
||||
PONos = Get_Property(@WINDOW:'.PO','ARRAY')<1>
|
||||
PartNos = Get_Property(@WINDOW:'.PART_NUM','ARRAY')<1>
|
||||
LotNos = Get_Property(@WINDOW:'.LOT_NUM','ARRAY')<1>
|
||||
CurrStatusCds = Get_Property(@WINDOW:'.CURR_STATUS','ARRAY')<1>
|
||||
CustIds = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<1>
|
||||
|
||||
SWAP @VM:@VM WITH '' IN WONos ; IF WONos[-1,1] = @VM THEN WONos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN Reactors ; IF Reactors[-1,1] = @VM THEN Reactors[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN PSNs ; IF PSNs[-1,1] = @VM THEN PSNs[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN QuoteNos ; IF QuoteNos[-1,1] = @VM THEN QuoteNos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN PONos ; IF PONos[-1,1] = @VM THEN PONos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN PartNos ; IF PartNos[-1,1] = @VM THEN PartNos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN LotNos ; IF LotNos[-1,1] = @VM THEN LotNos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN CurrStatusCds ; IF CurrStatusCds[-1,1] = @VM THEN CurrStatusCds[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN CustIDs ; IF CustIDs[-1,1] = @VM THEN CustIds[-1,1] = ''
|
||||
|
||||
DateInFrom = Get_Property(@WINDOW:'.DATE_IN_FROM','TEXT')
|
||||
DateInThru = Get_Property(@WINDOW:'.DATE_IN_THRU','TEXT')
|
||||
DateOutFrom = Get_Property(@WINDOW:'.DATE_OUT_FROM','TEXT')
|
||||
DateOutThru = Get_Property(@WINDOW:'.DATE_OUT_THRU','TEXT')
|
||||
TimeInFrom = Get_Property(@WINDOW:'.TIME_IN_FROM','TEXT')
|
||||
TimeInThru = Get_Property(@WINDOW:'.TIME_IN_THRU','TEXT')
|
||||
TimeOutFrom = Get_Property(@WINDOW:'.TIME_OUT_FROM','TEXT')
|
||||
TimeOutThru = Get_Property(@WINDOW:'.TIME_OUT_THRU','TEXT')
|
||||
|
||||
SearchStr = ''
|
||||
|
||||
IF WONos THEN SearchStr<-1> = 'WO':@VM:WONos
|
||||
IF Reactors THEN SearchStr<-1> = 'REACTOR':@VM:Reactors
|
||||
IF PSNs THEN SearchStr<-1> = 'PROD_SPEC_ID':@VM:PSNs
|
||||
IF QuoteNos THEN SearchStr<-1> = 'QUOTE_NO':@VM:QuoteNos
|
||||
IF PONos THEN SearchStr<-1> = 'PO':@VM:PONos
|
||||
IF PartNos THEN SearchStr<-1> = 'PART_NUM':@VM:PartNos
|
||||
IF LotNos THEN SearchStr<-1> = 'LOT_NUM':@VM:LotNos
|
||||
IF CurrStatusCds THEN SearchStr<-1> = 'CURR_STATUS':@VM:CurrStatusCds
|
||||
IF CustIds THEN SearchStr<-1> = 'CUST_NO':@VM:CustIds
|
||||
|
||||
|
||||
IF DateInFrom AND DateInThru THEN
|
||||
SearchStr<-1> = 'DATE_IN':@VM:DateInFrom:'...':DateInThru
|
||||
END ELSE
|
||||
IF DateInFrom THEN SearchStr<-1> = 'DATE_IN':@VM:'>=':DateInFrom
|
||||
IF DateInThru THEN SearchStr<-1> = 'DATE_IN':@VM:'<=':DateInThru
|
||||
END
|
||||
|
||||
IF DateOutFrom and DateOutThru THEN
|
||||
SearchStr<-1> = 'DATE_OUT':@VM:DateOutFrom:'...':DateOutThru
|
||||
END ELSE
|
||||
IF DateOutFrom THEN SearchStr<-1> = 'DATE_OUT':@VM:'>=':DateOutFrom
|
||||
IF DateOutThru THEN SearchStr<-1> = 'DATE_OUT':@VM:'<=':DateOutThru
|
||||
END
|
||||
|
||||
IF TimeInFrom and TimeInThru THEN
|
||||
SearchStr<-1> = 'TIME_IN':@VM:TimeInFrom:'...':TimeInThru
|
||||
END ELSE
|
||||
IF TimeInFrom THEN SearchStr<-1> = 'TIME_IN':@VM:'>=':TimeInFrom
|
||||
IF TimeInThru THEN SearchStr<-1> = 'TIME_IN':@VM:'<=':TimeInThru
|
||||
END
|
||||
|
||||
IF TimeOutFrom and TimeOutThru THEN
|
||||
SearchStr<-1> = 'TIME_OUT':@VM:TimeOutFrom:'...':TimeOutThru
|
||||
END ELSE
|
||||
IF TimeOutFrom THEN SearchStr<-1> = 'TIME_OUT':@VM:'>=':TimeOutFrom
|
||||
IF TimeOutThru THEN SearchStr<-1> = 'TIME_OUT':@VM:'<=':TimeOutThru
|
||||
END
|
||||
|
||||
IF SearchStr THEN
|
||||
SearchStr := @FM
|
||||
Void = Utility( 'CURSOR', 'H' )
|
||||
* do a btree.extract
|
||||
Btree.Extract( SearchStr, 'RDS', DictRDSTable, RDSNos, '', Flag )
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
End_Dialog( @WINDOW,'')
|
||||
END
|
||||
|
||||
IF RDSNos THEN
|
||||
CONVERT @VM TO @FM IN RDSNos
|
||||
RDSNos = Key_Sort( RDSNos, 'RDS', 'CUST_NAME':@fm:'WO':@fm:'RUN_ORDER_NUM', 0 )
|
||||
End_Dialog( @WINDOW, RDSNos )
|
||||
END ELSE
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'No records found meeting your criteria...'
|
||||
MsgInfo<micon$> = '!'
|
||||
Void = msg( '', MsgInfo )
|
||||
END
|
||||
Void = utility( 'CURSOR', 'A' )
|
||||
END ELSE
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'You have not entered any search criteria...'
|
||||
MsgInfo<micon$> = '!'
|
||||
Void = msg( '', MsgInfo )
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user