Axapta Create WH Location x++
static void CreateWHLocation(Args _args){ WMSLocation WMSLocationSource, WMSLocationCopy; inventlocation inventlocationSource,InventlocationCopy; inventdim inventdim; InventLocationId InventLocationIdsource,newInventLocationId; wMSLocationId wMSLocationIdsource,newwMSLocationId; ;
InventLocationIdsource = "IM-0001"; newInventLocationId = "IM-0002"; wMSLocationIdsource ="WMS001"; newwMSLocationId = "WMS002"; if(!inventlocation::exist(newInventLocationId)) { inventlocationSource = inventlocation::find(InventLocationIdsource); if(inventlocationSource) { inventlocationcopy.clear(); inventlocationcopy = inventlocationSource.data(); inventlocationcopy.InventLocationId = newInventLocationId; inventlocationcopy.insert(); info(strfmt('Create wh :%1', inventlocationcopy.InventLocationId)); } }
if(!WMSLocation::exist(newInventLocationId,newwMSLocationId)) { WMSLocationSource = WMSLocation::find(wMSLocationIdsource,InventLocationIdsource); if(WMSLocationSource) { WMSLocationCopy.clear(); WMSLocationCopy = WMSLocationSource.data(); WMSLocationCopy.inventLocationId = newInventLocationId; WMSLocationCopy.wMSLocationId = newwMSLocationId; WMSLocationCopy.insert(); info(strfmt('Create wh :%1 location : %2', newInventLocationId,newwMSLocationId)); } }
info('Success');}
============================ OR ===================================
static void _CreateWMSLocation(Args _args){ inventdim inventdim; WMSLocation WMSLocationSource, WMSLocationCopy; ; ttsbegin; inventdim.InventLocationId = 'FG4'; inventdim.wMSLocationId = '2A03'; inventdim.inventBatchId = '2018-25';
if(!WMSLocation::exist(inventDim.wMSLocationId,inventDim.InventLocationId)) { WMSLocationSource = WMSLocation::find(inventDim.wMSLocationId,'FG2'); WMSLocationCopy.clear(); WMSLocationCopy = WMSLocationSource.data(); WMSLocationCopy.inventLocationId = inventDim.InventLocationId; WMSLocationCopy.insert(); }
inventdim = inventdim::findOrCreate(inventdim); ttscommit; info(inventdim.inventdimid);}
InventLocationIdsource = "IM-0001"; newInventLocationId = "IM-0002"; wMSLocationIdsource ="WMS001"; newwMSLocationId = "WMS002"; if(!inventlocation::exist(newInventLocationId)) { inventlocationSource = inventlocation::find(InventLocationIdsource); if(inventlocationSource) { inventlocationcopy.clear(); inventlocationcopy = inventlocationSource.data(); inventlocationcopy.InventLocationId = newInventLocationId; inventlocationcopy.insert(); info(strfmt('Create wh :%1', inventlocationcopy.InventLocationId)); } }
if(!WMSLocation::exist(newInventLocationId,newwMSLocationId)) { WMSLocationSource = WMSLocation::find(wMSLocationIdsource,InventLocationIdsource); if(WMSLocationSource) { WMSLocationCopy.clear(); WMSLocationCopy = WMSLocationSource.data(); WMSLocationCopy.inventLocationId = newInventLocationId; WMSLocationCopy.wMSLocationId = newwMSLocationId; WMSLocationCopy.insert(); info(strfmt('Create wh :%1 location : %2', newInventLocationId,newwMSLocationId)); } }
info('Success');}
============================ OR ===================================
static void _CreateWMSLocation(Args _args){ inventdim inventdim; WMSLocation WMSLocationSource, WMSLocationCopy; ; ttsbegin; inventdim.InventLocationId = 'FG4'; inventdim.wMSLocationId = '2A03'; inventdim.inventBatchId = '2018-25';
if(!WMSLocation::exist(inventDim.wMSLocationId,inventDim.InventLocationId)) { WMSLocationSource = WMSLocation::find(inventDim.wMSLocationId,'FG2'); WMSLocationCopy.clear(); WMSLocationCopy = WMSLocationSource.data(); WMSLocationCopy.inventLocationId = inventDim.InventLocationId; WMSLocationCopy.insert(); }
inventdim = inventdim::findOrCreate(inventdim); ttscommit; info(inventdim.inventdimid);}
ความคิดเห็น
แสดงความคิดเห็น