56 lines
1.7 KiB
Plaintext
56 lines
1.7 KiB
Plaintext
Compile function EpiPro_Services(@Service, @Params)
|
|
#pragma precomp SRP_PreCompiler
|
|
|
|
$insert LOGICAL
|
|
$insert WM_OUT_EQUATES
|
|
|
|
Declare function Database_Services, Error_Services
|
|
Declare subroutine Error_Services
|
|
|
|
GoToService
|
|
|
|
Return Response or ""
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// SERVICES
|
|
//-----------------------------------------------------------------------------
|
|
|
|
Service GetBatchID(MUCassID)
|
|
|
|
Response = ''
|
|
If MUCassID NE '' then
|
|
WONo = Field(MUCassID, '.', 1)
|
|
CassNo = Field(MUCassID, '.', 2)
|
|
WOMatKey = WONo:'*':CassNo
|
|
BatchID = Xlate('WO_MAT', WOMatKey, 'SAP_BATCH_NO', 'X')
|
|
Response = BatchID
|
|
end
|
|
|
|
end service
|
|
|
|
|
|
//----------------------------------------------------------------------------------------------------------------------
|
|
// GetFinalQAStatus
|
|
//
|
|
// RDSNo. - [Required]
|
|
//
|
|
// Returns the boolean value of the Final QA status of a given RDS record. Returns True$ if
|
|
// the Final QA step is signed and False$ if it is not signed.
|
|
//----------------------------------------------------------------------------------------------------------------------
|
|
Service GetFinalQAStatus(WMOKey)
|
|
|
|
FinalQA = False$
|
|
If WMOKey NE '' then
|
|
WMOutRow = Database_Services('ReadDataRow', 'WM_OUT', WMOKey)
|
|
If Error_Services('NoError') then
|
|
If (WMOutRow<WM_OUT_SUP_VER_SIG$> NE '') then
|
|
FinalQA = True$
|
|
end
|
|
end
|
|
end else
|
|
Error_Services('Add', 'Null WMOKey supplied to ':Service:'.')
|
|
end
|
|
Response = FinalQA
|
|
|
|
End Service
|