Показать сообщение отдельно
Старый 24.01.2006, 13:51   #4  
belugin is offline
belugin
Участник
Аватар для belugin
Сотрудники Microsoft Dynamics
Лучший по профессии 2017
Лучший по профессии 2015
Лучший по профессии 2014
Лучший по профессии 2011
Лучший по профессии 2009
 
4,622 / 2925 (107) +++++++++
Регистрация: 16.01.2004
Записей в блоге: 5
в 3.0 ест такой код
\Classes\BankChequeCancel\createPaymentOffsetTrans
X++:
protected VendVoucher createPaymentOffsetTrans(VendTrans        _vendTrans,
                                               LedgerVoucher    _ledgerVoucher)
{
    VendTrans       vendTrans_old = VendTrans::find(_vendTrans.recId);
    LedgerTransTxt  transTxt;
    CustVendVoucher vendVoucher;
    ;

    vendVoucher = CustVendVoucher::construct(SysModule::Vend,
                                             _ledgerVoucher,
                                             vendTrans_old.accountNum,
                                             -vendTrans_old.amountCur,
                                             vendTrans_old.currencyCode,
                                             transTxt,
                                             vendTrans_old.dimension,
                                             vendTrans_old.PostingProfile,//'',
                                             LedgerPostingType::VendBalance);

    vendVoucher.setPaymMode(vendTrans_old.paymMode);
    vendVoucher.setPaymSpec(vendTrans_old.paymSpec);
    vendVoucher.parmTransTxt(strFmt('%1: %2, %3',"@SYS1068", vendTrans_old.voucher, cancelReason));
    vendVoucher.parmTransDate(transDate);
    vendVoucher.exchRate(vendTrans_old.amountCur ? vendTrans_old.amountMST / vendTrans_old.amountCur * 100 : 0);
    vendVoucher.post(vendTrans_old);

    return vendVoucher;
}