added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
444
LSL2/STPROC/QUOTE_SIGS.txt
Normal file
444
LSL2/STPROC/QUOTE_SIGS.txt
Normal file
@ -0,0 +1,444 @@
|
||||
COMPILE FUNCTION Quote_Sigs(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
||||
|
||||
/*
|
||||
Commuter module for Quote_Sigs (Work Process Access Control) window
|
||||
|
||||
01/7/2010 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, obj_Tables,ErrMsg
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow, Send_Dyn
|
||||
DECLARE SUBROUTINE obj_Notes, Security_Err_Msg, End_Window, Forward_Event, Start_Window, Create_Note
|
||||
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Popup, Collect.Ixvals
|
||||
DECLARE FUNCTION Send_Message, Msg, Security_Check, Admin_User, obj_Tables
|
||||
|
||||
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
$INSERT QUOTE_SIGS_EQU
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
EQU TAB$ TO \09\
|
||||
|
||||
|
||||
ErrTitle = 'Error in Quote_Sigs'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE EntID = @WINDOW
|
||||
BEGIN CASE
|
||||
CASE Event = 'CLEAR' ; GOSUB Clear
|
||||
CASE Event = 'CREATE' ; GOSUB Create
|
||||
CASE Event = 'CLOSE' ; GOSUB Close
|
||||
|
||||
END CASE
|
||||
|
||||
CASE EntID = @WINDOW:'.CANCEL' AND Event = 'CLICK' ; GOSUB Cancel
|
||||
CASE EntID = @WINDOW:'.SAVE' AND Event = 'CLICK' ; GOSUB Save
|
||||
|
||||
CASE EntID = @WINDOW:'.NUM_SIGS' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.SIGNERS' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.WO_SIG_PROF' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.VIP_MFG' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.VIP_MFG_PWD' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.ENG_MGR' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.FACIL_MGR' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.MAINT_MGR' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.MKT_MGR' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.MKT_MGR_PWD' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.MTLS_MGR' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.PROD_CTRL_MGR' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.PROD_MGR' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.QUALITY_MGR' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.SHIP_MGR' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.MET_MGR' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.SHIFT1_SUP' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.SHIFT1_QTL' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.SHIFT2_SUP' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.SHIFT2_QTL' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.SHIFT3_SUP' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.SHIFT3_QTL' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.SHIFT4_SUP' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.SHIFT4_QTL' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.EPIPRO_LEAD' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.REENG_SPEC' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.TRAIN_SPEC' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.MAIN_FAX_USER' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.PREQUAL_SIGS' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.QUAL_SIGS' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.PREPROD_SIGS' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.PROD_SIGS' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
CASE EntID = @WINDOW:'.RCV_MGR' AND Event = 'OPTIONS' ; GOSUB UserNameOption
|
||||
|
||||
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Parameters ':EntID:' - ':Event:' passed to commuter'
|
||||
ErrMsg(ErrorMsg)
|
||||
RETURN
|
||||
|
||||
END CASE
|
||||
|
||||
IF ErrorMsg NE '' THEN
|
||||
ErrMsg(ErrTitle:@SVM:ErrorMsg)
|
||||
END
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
UserNameOption:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
EditTables = Utility('OBJECTLIST', @WINDOW, 'EDITTABLE')
|
||||
EditLines = Utility('OBJECTLIST',@WINDOW,'EDITFIELD')
|
||||
|
||||
LOCATE EntID IN EditLines USING @FM SETTING Pos THEN
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = 1 ;* Single Select
|
||||
|
||||
Result = Popup(@WINDOW,TypeOver,'SHOW_USERS')
|
||||
|
||||
|
||||
IF Result NE '' THEN
|
||||
Set_Property(EntID,'DEFPROP',Result)
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
LOCATE EntID IN EditTables USING @FM SETTING Dummy THEN
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = 2 ;* Multiple Select
|
||||
|
||||
Result = Popup(@WINDOW,TypeOver,'SHOW_USERS')
|
||||
|
||||
CurrList = Get_Property(EntID,'LIST')
|
||||
|
||||
IF INDEX(CurrList<1>,@VM,1) THEN
|
||||
NullLine = @VM
|
||||
END ELSE
|
||||
NullLine = ''
|
||||
END
|
||||
|
||||
LOOP
|
||||
LastLine = CurrList[-1,'B':@FM]
|
||||
UNTIL LastLine NE NullLine
|
||||
CurrList[COL1(),99] = ''
|
||||
REPEAT
|
||||
|
||||
|
||||
RCnt = COUNT(Result,@VM) + (Result NE '')
|
||||
|
||||
FOR I = 1 TO RCnt
|
||||
IF INDEX(CurrList<1>,@VM,1) THEN
|
||||
CurrList<-1> = Result<1,I>:@VM
|
||||
END ELSE
|
||||
CurrList<-1> = Result<1,I>
|
||||
END
|
||||
NEXT I
|
||||
|
||||
Set_Property(EntID,'LIST',CurrList)
|
||||
|
||||
END
|
||||
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('Create',@WINDOW)
|
||||
|
||||
|
||||
IF Admin_User( @USER4 ) THEN
|
||||
|
||||
OPEN 'CONFIG' TO ConfigTable ELSE
|
||||
ErrMsg('Unable to open CONFIG table' )
|
||||
End_Dialog(@WINDOW, '' )
|
||||
RETURN
|
||||
END
|
||||
|
||||
LOCK ConfigTable, 'QUOTE_SIGS' ELSE
|
||||
ErrMsg('QUOTE_SIGS is in use somewhere else...' )
|
||||
End_Dialog( @WINDOW, '' )
|
||||
RETURN
|
||||
END
|
||||
|
||||
READ QuoteSigInfo FROM ConfigTable,'QUOTE_SIGS' ELSE
|
||||
ErrMsg('Unable to READ QuoteSigInfo FROM "CONFIG", "QUOTE_SIGS" record' )
|
||||
End_Dialog( @WINDOW, '' )
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF QuoteSigInfo NE '' THEN
|
||||
|
||||
NumQuoteSigs = QuoteSigInfo<NumQuoteSigs$>
|
||||
|
||||
QuoteSigners = QuoteSigInfo<QuoteSigners$>
|
||||
QuotePassWords = QuoteSigInfo<QSPasswords$>
|
||||
|
||||
RefreshWOMatSigProf = QuoteSigInfo<RefreshWOMatSigProf$>
|
||||
|
||||
VPMfg = QuoteSigInfo<VipMfg$>
|
||||
VPMfgPwd = QuoteSigInfo<VipMfgPwd$>
|
||||
EngMgr = QuoteSigInfo<EngMgr$>
|
||||
FacMgr = QuoteSigInfo<FacilMgr$>
|
||||
MaintMgr = QuoteSigInfo<MaintMgr$>
|
||||
MarketingMgr = QuoteSigInfo<MktMgr$>
|
||||
MarketingMgrPwd = QuoteSigInfo<MktMgrPwd$>
|
||||
MaterialsMgr = QuoteSigInfo<MtlsMgr$>
|
||||
ProdCtrlMgr = QuoteSigInfo<ProdCtrlMgr$>
|
||||
ProdMgr = QuoteSigInfo<ProdMgr$>
|
||||
QualityMgr = QuoteSigInfo<QualityMgr$>
|
||||
QualityMgr2 = QuoteSigInfo<QualityMgr2$>
|
||||
ShippingMgr = QuoteSigInfo<ShipMgr$>
|
||||
MetMgr = QuoteSigInfo<MetMgr$>
|
||||
|
||||
Shift1Sup = QuoteSigInfo<Shift1Sup$>
|
||||
Shift1Lead = QuoteSigInfo<Shift1Lead$>
|
||||
Shift2Sup = QuoteSigInfo<Shift2Sup$>
|
||||
Shift2Lead = QuoteSigInfo<Shift2Lead$>
|
||||
Shift3Sup = QuoteSigInfo<Shift3Sup$>
|
||||
Shift3Lead = QuoteSigInfo<Shift3Lead$>
|
||||
Shift4Sup = QuoteSigInfo<Shift4Sup$>
|
||||
Shift4Lead = QuoteSigInfo<Shift4Lead$>
|
||||
|
||||
EpiPROLead = QuoteSigInfo<EpiPROLead$>
|
||||
ReEngSpec = QuoteSigInfo<ReEngSpec$>
|
||||
TrainingSpec = QuoteSigInfo<TrainSpec$>
|
||||
|
||||
QuoteFaxUser = QuoteSigInfo<QuoteFaxUser$>
|
||||
|
||||
PSNPreQualSigs = QuoteSigInfo<PSNPreQualSigs$>
|
||||
PSNQualSigs = QuoteSigInfo<PSNQualSigs$>
|
||||
PSNPreProdSigs = QuoteSigInfo<PSNPreProdSigs$>
|
||||
PSNProdSigs = QuoteSigInfo<PSNProdSigs$>
|
||||
|
||||
RcvMgr = QuoteSigInfo<RcvMgr$>
|
||||
|
||||
Set_Property(@WINDOW:'.NUM_SIGS','TEXT',NumQuoteSigs)
|
||||
Set_Property(@WINDOW:'.SIGNERS','ARRAY',QuoteSigners:@FM:QuotePassWords)
|
||||
Set_Property(@WINDOW:'.WO_SIG_PROF','ARRAY',RefreshWOMatSigProf)
|
||||
Set_Property(@WINDOW:'.VIP_MFG','TEXT',VPMfg)
|
||||
Set_Property(@WINDOW:'.VIP_MFG_PWD','TEXT',VPMfgPwd)
|
||||
|
||||
Set_Property(@WINDOW:'.ENG_MGR','TEXT',EngMgr)
|
||||
Set_Property(@WINDOW:'.FACIL_MGR','TEXT',FacMgr)
|
||||
Set_Property(@WINDOW:'.MAINT_MGR','TEXT',MaintMgr)
|
||||
Set_Property(@WINDOW:'.MKT_MGR','TEXT',MarketingMgr)
|
||||
Set_Property(@WINDOW:'.MKT_MGR_PWD','TEXT',MarketingMgrPwd)
|
||||
Set_Property(@WINDOW:'.MTLS_MGR','TEXT',MaterialsMgr)
|
||||
Set_Property(@WINDOW:'.PROD_CTRL_MGR','TEXT',ProdCtrlMgr)
|
||||
Set_Property(@WINDOW:'.PROD_MGR','TEXT',ProdMgr)
|
||||
Set_Property(@WINDOW:'.QUALITY_MGR','TEXT',QualityMgr)
|
||||
Set_Property(@WINDOW:'.QUALITY_MGR2','TEXT',QualityMgr2)
|
||||
Set_Property(@WINDOW:'.SHIP_MGR','TEXT',ShippingMgr)
|
||||
Set_Property(@WINDOW:'.MET_MGR','TEXT',MetMgr)
|
||||
Set_Property(@WINDOW:'.SHIFT1_SUP','TEXT',Shift1Sup)
|
||||
Set_Property(@WINDOW:'.SHIFT1_QTL','TEXT',Shift1Lead)
|
||||
Set_Property(@WINDOW:'.SHIFT2_SUP','TEXT',Shift2Sup)
|
||||
Set_Property(@WINDOW:'.SHIFT2_QTL','TEXT',Shift2Lead)
|
||||
Set_Property(@WINDOW:'.SHIFT3_SUP','TEXT',Shift3Sup)
|
||||
Set_Property(@WINDOW:'.SHIFT3_QTL','TEXT',Shift3Lead)
|
||||
Set_Property(@WINDOW:'.SHIFT4_SUP','TEXT',Shift4Sup)
|
||||
Set_Property(@WINDOW:'.SHIFT4_QTL','TEXT',Shift4Lead)
|
||||
|
||||
Set_Property(@WINDOW:'.EPIPRO_LEAD','TEXT',EpiPROLead)
|
||||
Set_Property(@WINDOW:'.REENG_SPEC','TEXT',ReEngSpec)
|
||||
Set_Property(@WINDOW:'.TRAIN_SPEC','TEXT',TrainingSpec)
|
||||
Set_Property(@WINDOW:'.MAIN_FAX_USER','TEXT',QuoteFaxUser)
|
||||
|
||||
Set_Property(@WINDOW:'.RCV_MGR','TEXT',RcvMgr)
|
||||
|
||||
|
||||
|
||||
Set_Property(@WINDOW:'.PREQUAL_SIGS','ARRAY',PSNPreQualSigs)
|
||||
Set_Property(@WINDOW:'.QUAL_SIGS','ARRAY',PSNQualSigs)
|
||||
Set_Property(@WINDOW:'.PREPROD_SIGS','ARRAY',PSNPreProdSigs)
|
||||
Set_Property(@WINDOW:'.PROD_SIGS','ARRAY',PSNProdSigs)
|
||||
|
||||
END ;* End of check for null data
|
||||
END ELSE
|
||||
Message = 'You do not have the proper security to enter Authorized quote signatures...'
|
||||
Message<micon$> = 'H'
|
||||
MSG( '', Message )
|
||||
Send_Event( @WINDOW, 'CLOSE' )
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
IF Get_Property(@WINDOW,'@READONLY') THEN
|
||||
obj_AppWindow('ReadOnly',@RM:1) ;* Reenables data bound controls
|
||||
Set_Property(@WINDOW,'@READONLY',0) ;* Clear flag on window
|
||||
END
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Save:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
OPEN 'CONFIG' TO ConfigTable ELSE
|
||||
ErrMsg('Unable to open CONFIG table' )
|
||||
End_Dialog(@WINDOW, '' )
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
|
||||
NumQuoteSigs = Get_Property(@WINDOW:'.NUM_SIGS','TEXT')
|
||||
|
||||
SignerArray = Get_Property(@WINDOW:'.SIGNERS','ARRAY')
|
||||
QuoteSigners = SignerArray<1>
|
||||
QuotePassWords = SignerArray<2>
|
||||
|
||||
|
||||
RefreshWOMatSigProf = Get_Property(@WINDOW:'.WO_SIG_PROF','ARRAY')
|
||||
|
||||
VPMfg = Get_Property(@WINDOW:'.VIP_MFG','TEXT')
|
||||
VPMfgPwd = Get_Property(@WINDOW:'.VIP_MFG_PWD','TEXT')
|
||||
|
||||
EngMgr = Get_Property(@WINDOW:'.ENG_MGR','TEXT')
|
||||
FacMgr = Get_Property(@WINDOW:'.FACIL_MGR','TEXT')
|
||||
MaintMgr = Get_Property(@WINDOW:'.MAINT_MGR','TEXT')
|
||||
MarketingMgr = Get_Property(@WINDOW:'.MKT_MGR','TEXT')
|
||||
MarketingMgrPwd = Get_Property(@WINDOW:'.MKT_MGR_PWD','TEXT')
|
||||
MaterialsMgr = Get_Property(@WINDOW:'.MTLS_MGR','TEXT')
|
||||
ProdCtrlMgr = Get_Property(@WINDOW:'.PROD_CTRL_MGR','TEXT')
|
||||
ProdMgr = Get_Property(@WINDOW:'.PROD_MGR','TEXT')
|
||||
QualityMgr = Get_Property(@WINDOW:'.QUALITY_MGR','TEXT')
|
||||
QualityMgr2 = Get_Property(@WINDOW:'.QUALITY_MGR2','TEXT')
|
||||
ShippingMgr = Get_Property(@WINDOW:'.SHIP_MGR','TEXT')
|
||||
MetMgr = Get_Property(@WINDOW:'.MET_MGR','TEXT')
|
||||
Shift1Sup = Get_Property(@WINDOW:'.SHIFT1_SUP','TEXT')
|
||||
Shift1Lead = Get_Property(@WINDOW:'.SHIFT1_QTL','TEXT')
|
||||
Shift2Sup = Get_Property(@WINDOW:'.SHIFT2_SUP','TEXT')
|
||||
Shift2Lead = Get_Property(@WINDOW:'.SHIFT2_QTL','TEXT')
|
||||
Shift3Sup = Get_Property(@WINDOW:'.SHIFT3_SUP','TEXT')
|
||||
Shift3Lead = Get_Property(@WINDOW:'.SHIFT3_QTL','TEXT')
|
||||
Shift4Sup = Get_Property(@WINDOW:'.SHIFT4_SUP','TEXT')
|
||||
Shift4Lead = Get_Property(@WINDOW:'.SHIFT4_QTL','TEXT')
|
||||
|
||||
EpiPROLead = Get_Property(@WINDOW:'.EPIPRO_LEAD','TEXT')
|
||||
ReEngSpec = Get_Property(@WINDOW:'.REENG_SPEC','TEXT')
|
||||
TrainingSpec = Get_Property(@WINDOW:'.TRAIN_SPEC','TEXT')
|
||||
QuoteFaxUser = Get_Property(@WINDOW:'.MAIN_FAX_USER','TEXT')
|
||||
RcvMgr = Get_Property(@WINDOW:'.RCV_MGR','TEXT')
|
||||
|
||||
|
||||
PSNPreQualSigs = Get_Property(@WINDOW:'.PREQUAL_SIGS','ARRAY')
|
||||
PSNQualSigs = Get_Property(@WINDOW:'.QUAL_SIGS','ARRAY')
|
||||
PSNPreProdSigs = Get_Property(@WINDOW:'.PREPROD_SIGS','ARRAY')
|
||||
PSNProdSigs = Get_Property(@WINDOW:'.PROD_SIGS','ARRAY')
|
||||
|
||||
|
||||
QuoteSigInfo = ''
|
||||
|
||||
QuoteSigInfo<NumQuoteSigs$> = NumQuoteSigs
|
||||
|
||||
QuoteSigInfo<QuoteSigners$> = QuoteSigners
|
||||
QuoteSigInfo<QSPasswords$> = QuotePassWords
|
||||
|
||||
QuoteSigInfo<RefreshWOMatSigProf$> = RefreshWOMatSigProf
|
||||
|
||||
QuoteSigInfo<VipMfg$> = VPMfg
|
||||
QuoteSigInfo<VipMfgPwd$> = VPMfgPwd
|
||||
QuoteSigInfo<EngMgr$> = EngMgr
|
||||
QuoteSigInfo<FacilMgr$> = FacMgr
|
||||
QuoteSigInfo<MaintMgr$> = MaintMgr
|
||||
QuoteSigInfo<MktMgr$> = MarketingMgr
|
||||
QuoteSigInfo<MktMgrPwd$> = MarketingMgrPwd
|
||||
QuoteSigInfo<MtlsMgr$> = MaterialsMgr
|
||||
QuoteSigInfo<ProdCtrlMgr$> = ProdCtrlMgr
|
||||
QuoteSigInfo<ProdMgr$> = ProdMgr
|
||||
QuoteSigInfo<QualityMgr$> = QualityMgr
|
||||
QuoteSigInfo<QualityMgr2$> = QualityMgr2
|
||||
QuoteSigInfo<ShipMgr$> = ShippingMgr
|
||||
QuoteSigInfo<MetMgr$> = MetMgr
|
||||
|
||||
QuoteSigInfo<Shift1Sup$> = Shift1Sup
|
||||
QuoteSigInfo<Shift1Lead$> = Shift1Lead
|
||||
QuoteSigInfo<Shift2Sup$> = Shift2Sup
|
||||
QuoteSigInfo<Shift2Lead$> = Shift2Lead
|
||||
QuoteSigInfo<Shift3Sup$> = Shift3Sup
|
||||
QuoteSigInfo<Shift3Lead$> = Shift3Lead
|
||||
QuoteSigInfo<Shift4Sup$> = Shift4Sup
|
||||
QuoteSigInfo<Shift4Lead$> = Shift4Lead
|
||||
|
||||
QuoteSigInfo<EpiPROLead$> = EpiPROLead
|
||||
QuoteSigInfo<ReEngSpec$> = ReEngSpec
|
||||
QuoteSigInfo<TrainSpec$> = TrainingSpec
|
||||
|
||||
QuoteSigInfo<QuoteFaxUser$> = QuoteFaxUser
|
||||
QuoteSigInfo<RcvMgr$> = RcvMgr
|
||||
|
||||
QuoteSigInfo<PSNPreQualSigs$> = PSNPreQualSigs
|
||||
QuoteSigInfo<PSNQualSigs$> = PSNQualSigs
|
||||
QuoteSigInfo<PSNPreProdSigs$> = PSNPreProdSigs
|
||||
QuoteSigInfo<PSNProdSigs$> = PSNProdSigs
|
||||
|
||||
|
||||
WRITE QuoteSigInfo ON ConfigTable, 'QUOTE_SIGS' ELSE
|
||||
ErrMsg('Unable to write QUOTE_SIGS in CONFIG table' )
|
||||
End_Dialog(@WINDOW, '' )
|
||||
RETURN
|
||||
END
|
||||
|
||||
UNLOCK ConfigTable,'QUOTE_SIGS' ELSE
|
||||
ErrMsg( 'Unable to unlock QUOTE_SIGS in CONFIG table' )
|
||||
END
|
||||
|
||||
End_Dialog(@WINDOW, '' )
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * *
|
||||
Close:
|
||||
* * * * * *
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
OPEN 'CONFIG' TO ConfigTable ELSE
|
||||
ErrMsg('Unable to open CONFIG table' )
|
||||
End_Dialog(@WINDOW, '' )
|
||||
RETURN
|
||||
END
|
||||
|
||||
UNLOCK ConfigTable, 'QUOTE_SIGS' ELSE NULL
|
||||
|
||||
End_Dialog(@WINDOW, '' )
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
Reference in New Issue
Block a user