static void PO_partialpackingslip(Args args)
{
PurchFormLetter PurchFormLetter;
PurchTable PurchTable;
date _ReceivedDate = systemDateGet();
PurchId _purchId = "000403";
PurchLine purchLine;
;
PurchTable = PurchTable::find(_purchId,true);
ttsBegin;
while select forUpdate * from purchLine
where purchLine.PurchId == PurchTable.PurchId
{
purchLine.PurchReceivedNow = 5;
purchLine.update();
}
ttsCommit;
purchFormLetter = purchFormLetter::construct(DocumentStatus::PackingSlip);
//Enum name is recorded, label is registered
//change enum on purchUpdate to change what value(s) are posted
PurchFormLetter.update(PurchTable,"test",systemDateGet(), PurchUpdate::ReceiveNow,AccountOrder::None,NoYes::No,NoYes::No);
}
{
PurchFormLetter PurchFormLetter;
PurchTable PurchTable;
date _ReceivedDate = systemDateGet();
PurchId _purchId = "000403";
PurchLine purchLine;
;
PurchTable = PurchTable::find(_purchId,true);
ttsBegin;
while select forUpdate * from purchLine
where purchLine.PurchId == PurchTable.PurchId
{
purchLine.PurchReceivedNow = 5;
purchLine.update();
}
ttsCommit;
purchFormLetter = purchFormLetter::construct(DocumentStatus::PackingSlip);
//Enum name is recorded, label is registered
//change enum on purchUpdate to change what value(s) are posted
PurchFormLetter.update(PurchTable,"test",systemDateGet(), PurchUpdate::ReceiveNow,AccountOrder::None,NoYes::No,NoYes::No);
}
No comments:
Post a Comment