Description
Create Location Records
Parameters
icSite | input | character | Site |
icLocation | input | character | Location |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bmfglocation.p)
/*Creates a Location Record if it does not exist************* */
/* Input Parameters */
/* icSite Site */
/* icLocation Location */
/****************************************************************/
assign oiReturnStatus = -98.
/* load data in inventory master temp table*/
<M-1 run AddDetailLine
(input 'loc_mstr':U (icTable),
input '':U (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BMfgLocation>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then return.
assign tloc_mstr.loc_site = icSite
tloc_mstr.loc_loc = icLocation
tloc_mstr.loc_date = today
tloc_mstr.loc_perm = no.
/*Get Inventory Status*/
<Q-3 run SiteForInventoryStatusLoc (all) (Read) (NoCache)
(input vcDomainCode, (Domain)
input icSite, (Site)
output dataset tqSiteForInventoryStatusLoc) in BMfgSite >
find first tqSiteForInventoryStatusLoc no-error.
if available tqSiteForInventoryStatusLoc
then assign tloc_mstr.loc_status = tqSiteForInventoryStatusLoc.tcsi_status.
/* Return */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.