代码过账采购装箱单

static void Job133(Args _args)
{
PurchFormLetter purchFormLetter;
PurchTable purchTable;
PurchId purchId;
Num packingSlipId;
PurchPackingSlipTable PurchPackingSlipTableGroup;
PurchPackingSlipTable PurchPackingSlipTable;
PurchLine PurchLine;
VendPackingSlipJour VendPackingSlipJour;
VendPackingSlipPurchLink VendPackingSlipPurchLink;
VendPackingSlipTrans VendPackingSlipTrans;
;

while select PurchPackingSlipTableGroup group by PurchId where PurchPackingSlipTableGroup.Sync == noyes::No{
while select PurchPackingSlipTable where PurchPackingSlipTable.PurchId == PurchPackingSlipTableGroup.PurchId
&& PurchPackingSlipTable.Sync == noyes::No
{
ttsbegin;
select forupdate PurchLine where PurchLine.InventTransId == PurchPackingSlipTable.SyncInventTransId
&& PurchLine.PurchId == PurchPackingSlipTable.PurchId
&& PurchLine.ItemId == PurchPackingSlipTable.Itemid;
// && PurchLine.PurchQty == PurchPackingSlipTable.PurchQty;
if(PurchLine){
PurchLine.PurchReceivedNow = PurchPackingSlipTable.PurchReceivedNow;
PurchLine.setInventReceivedNow();
PurchLine.update();
} else {
info('not PO: '+PurchPackingSlipTable.PurchId);
}
ttscommit;
}
purchTable = PurchTable::find(PurchPackingSlipTableGroup.purchId);
purchFormLetter = PurchFormLetter::construct(DocumentStatus::PackingSlip);
packingSlipId = "MH";
purchFormLetter.update(purchTable,packingSlipId,SystemDateGet(),PurchUpdate::ReceiveNow,AccountOrder::Auto,NoYes::no, NoYes::no);
}
ttsbegin;
select forupdate VendPackingSlipJour where VendPackingSlipJour.PackingSlipId =='';
if(VendPackingSlipJour){
VendPackingSlipJour.PackingSlipId = 'MH';
VendPackingSlipJour.update();
}
select forupdate VendPackingSlipPurchLink where VendPackingSlipPurchLink.PackingSlipId =='';
if(VendPackingSlipPurchLink){
VendPackingSlipPurchLink.PackingSlipId = 'MH';
VendPackingSlipPurchLink.update();
}
select forupdate VendPackingSlipTrans where VendPackingSlipTrans.PackingSlipId =='';
if(VendPackingSlipTrans){
VendPackingSlipTrans.PackingSlipId = 'MH';
VendPackingSlipTrans.update();
}
ttscommit;
}