1

我正在尝试在 TransAccountForm 的每一行中添加供应商名称。

当 LedgerJournalTrans 中的 LedgerDimension 可用时，我编写了一小段代码来获取供应商名称：

static void GetVendorName(Args _args)
{
   CustAccount custAccount;
   VendTable vendTable;

   LedgerJournalTrans ledgerJournalTrans;

   while select ledgerJournalTrans
   {
       if (ledgerJournalTrans.AccountType == LedgerJournalACType::Vend)
       {
           custAccount = DimensionStorage::ledgerDimension2AccountNum(LedgerJournalTrans.LedgerDimension);

           select firstOnly vendTable
               where vendTable.AccountNum == custAccount;

            info(strFmt("Vendor Name: %1, Voucher: %2", DirPartyTable::getName(vendTable.Party), ledgerJournalTrans.Voucher));
        }
    }
}

但是，我怎样才能运行此代码以将新列与供应商名称一起使用？

感谢 Jan B. Kjeldsen，我得到了这个解决方案：

LedgerTransAccount 中的数据源之一是 GeneralJournalEntry，我在其中添加了显示方法。在 SubLedgerVoucher 的帮助下，我可以从 LedgerJournalTrans 获得一行。

public display Name VendorName()
{
    Name ret;
    LedgerJournalTrans ledgerJournalTrans;

    select firstFast firstOnly ledgerJournalTrans
        where ledgerJournalTrans.Voucher == this.SubledgerVoucher && 
            ledgerJournalTrans.TransDate == this.AccountingDate;

   ret = ledgerJournalTrans.AccountType == LedgerJournalACType::Vend ?
               vendTable::find(DimensionStorage::ledgerDimension2AccountNum
                (ledgerJournalTrans.LedgerDimension)).name() : '';

   return ret;
}

在此之后，我只需将此方法拖放到表单的网格上。

4

1 回答 1

1

您可以在ledgerJournalTrans表格中添加显示方法：

[SysClientCacheDataMethodAttribute(true)]
display VendName vendName()
{
    return this.AccountType == LedgerJournalACType::Vend ? vendTable::find(DimensionStorage::ledgerDimension2AccountNum(this.LedgerDimension)).name() : '';
}

单线。

于 2015-11-25T07:31:31.327 回答