Description
Updates the quantity in location detail
Parameters
| icSite | input | character | Site |
| icLocation | input | character | Location |
| icPart | input | character | Part |
| icLotSerial | input | character | Lot Serial |
| icLotReference | input | character | Lot Reference |
| icExpirationDate | input | character | Expiration Date |
| icTransactionType | input | character | Transaction Type |
| itEffectiveDate | input | date | Effective Date |
| idQuantity | input | decimal | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bmfglocationdet.p)
/*Updates the quantity in location detail master */
/* Input Parameters */
/* TransactionType Transaction Type */
/* QuantityBase Base Quantity */
/* EffectiveDate Effective Date */
/* Domain Domain */
/* Part Part */
/* Site Site */
/* Location Location */
/* LotSerial Lot Serial */
/* LotReference Lot reference */
/* ExpirationDate Expiry Date */
/* Ref_Site Reference site */
/************************************************************/
assign oiReturnStatus = -98.
/*Load location detail record*/
<M-18 run LoadLocationDet
(input icSite (icSite),
input icLocation (icLocation),
input icPart (icPart),
input icLotSerial (icLotSerial),
input icLotReference (icLotReference),
output viFcReturnSuper (oiReturnStatus)) in BMfgLocationDet>
if viFcReturnSuper = -4
then do:
<M-17 run CreateLocationDet
(input icSite (icSite),
input icLocation (icLocation),
input icPart (icPart),
input icLotSerial (icLotSerial),
input icLotReference (icLotReference),
input icTransactionType (icTransactionType),
input itEffectiveDate (itEffectiveDate),
output viFcReturnSuper (oiReturnStatus)) in BMfgLocationDet>
end.
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then return.
/* update quantity */
assign tld_det.ld_qty_oh = tld_det.ld_qty_oh + idQuantity.
if oiReturnStatus = -98 then assign oiReturnStatus = 0.