Hi Sukrut,
I am getting below error while using the above refer link,
Error executing the code: The field with Id 0 does not exists in table 'Common'
Stack trace
(S)\Classes\PurchFormletterParmData\newChooseLines - line 112
(C)\Classes\PurchFormLetter_Invoice\selectFromJournalLines - line 10
(C)\Jobs\invoicePurchaseOrder_Packingslip - line 42
My code,
static void invoicePurchaseOrder_Packingslip(Args _args)
{
Purchformletter_invoice Purchformletter;
Purchtable purchtable;
vendPackingSlipJour vendPackingSlipJour;
vendPackingSlipTrans vendPackingSlipTrans;
TmpFrmVirtual tmpFrmVirtual;
List selectedList = new List(Types::Record);
purchParmUpdate purchParmUpdate;
purchParmtable purchParmtable;
ParmId parmId;
VendInvoiceInfoTable vendinvoiceinfoTable;
try
{
ttsbegin;
tmpFrmVirtual.setTmp();
// Add the packing slips into tmpFrmVirtual
while select vendpackingslipjour
where (vendpackingslipjour.packingslipid == 'Aamir-1'
|| vendpackingslipjour.packingslipid == 'Aamir-2'
|| vendpackingslipjour.PackingSlipId == 'Aamir-3')
&& vendPackingSlipJour.PurchId == 'PO-00082'
{
tmpFrmVirtual.clear();
tmpFrmVirtual.TableNum = vendpackingslipjour.TableId;
tmpFrmVirtual.RecordNo = vendpackingslipjour.RecId;
tmpFrmVirtual.NoYes = NoYes::Yes;
tmpFrmVirtual.Id = vendpackingslipjour.PurchId;
tmpFrmVirtual.insert();
}
while select tmpFrmVirtual
{
selectedList.addEnd(tmpFrmVirtual);
}
// Construct form letter
purchformletter = Purchformletter::construct(DocumentStatus::Invoice);
// Add the packing slips to the purch form letter
purchformletter.selectFromJournalLines(selectedList.pack());
purchformletter.sumBy(AccountOrder::None);
purchformletter.reArrangeNow(true);
purchformletter.reArrange();
purchformletter.specQty(purchupdate::PackingSlip);
parmId = purchformletter.parmId();
// Execute
ttscommit;
purchformletter.startOperation();
if (purchFormLetter.parmJournalRecord().recid)
{
info('Invoice completed sucessfully');
}
}
catch
{
throw error(strFmt('Invoice failed'));
}
}
Any urgent feedback must be highly appreciated.
Thanks.
