Description
Updating Location
Parameters
icSite | input | character | Site |
icLocation | input | character | Location |
icPart | input | character | Part |
icLotSerial | input | character | Lot Serial |
icLotReference | input | character | Lot Reference |
itExpirationDate | input | date | Expiry Date |
icTransactionType | input | character | Transaction Type |
itEffectiveDate | input | date | Effective Date |
idQuantity | input | decimal | |
iiBMfgLocationDetInstanceID | input | integer | |
ihBMfgLocationDetHandle | input | handle | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bmfglocation.p)
/*Updates the quantity in location master */
/* Input Parameters */
/* TransactionType Transaction Type */
/* EffectiveDate Effective Date */
/* Part Part */
/* Site Site */
/* Location Location */
/* LotSerial Lot Serial */
/* LotReference Lot reference */
/* ExpirationDate Expiry Date */
/* Ref_Site Reference site */
/* Quantity Base quantity */
/* BMfgLocationDetInstanceID */
/* BMfgLocationDetHandle */
/************************************************************/
if icSite = ? then assign icSite = '':U.
if icLocation = ? then assign icLocation = '':U.
assign oiReturnStatus = -98.
<M-19 run LoadLocation
(input icSite (icSite),
input icLocation (icLocation),
output viFcReturnSuper (oiReturnStatus)) in BMfgLocation>
if viFcReturnSuper = -4
then do:
<M-18 run CreateLocation
(input icSite (icSite),
input icLocation (icLocation),
output viFcReturnSuper (oiReturnStatus)) in BMfgLocation>
end.
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then return.
/* create records for update of locatin det */
create tLocationDetInfo.
assign tLocationDetInfo.tcDomain = vcDomainCode
tLocationDetInfo.tcLocation = icLocation
tLocationDetInfo.tcLotReference = icLotReference
tLocationDetInfo.tcLotSerial = icLotSerial
tLocationDetInfo.tcPart = icPart
tLocationDetInfo.tcSite = icSite
tLocationDetInfo.tcTransactionType = icTransactionType
tLocationDetInfo.ttEffectiveDate = itEffectiveDate
tLocationDetInfo.ttExpirationDate = itExpirationDate
tLocationDetInfo.tdQuantity = idQuantity.
/* Return */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.