;;; Purchase and cost center add in bill allocation wise [#Collection: Pending Bills] Title : $$LocaleString:"Pending Bills" Sub Title : $$LocaleString:"Name", $$LocaleString:"Date", $$LocaleString:"Project", $$LocaleString:"Balance" Source Collection : Pending Bills SRC Fetch : Name, BillDate, BillCreditPeriod, BaseClosing, FinalBalance,costcenter1,CostCentreName Unique : $$Name Format : $$Name, 14 Format : $BillDate, 8 : Universal Date Format : $BaseClosing : "AllSymbols, DrCr" Format : $costcenter1, 10 Client Only : Yes Keep Source : ... ;; Keep the source at Bill allocations subform Level Option : ShowBillFnlBlnc : ##VchShowBillFnlBlnc Fetch:$costcenter1 [#Collection: ShowBillFnlBlnc] Add : Sub Title : $$LocaleString:"Final Balance" Add : Format : $FinalBalance : "AllSymbols, DrCr" Fetch:$costcenter1 [#Line: VCHBILL MainLine] add: Field:After : VCHBILLType :costcenter1 [Field:costcenter1] Use : Name Field Width : @@VCHShortNameWidth Storage : costcenter1 ;; Storage used to conflict with existing eTDS capsule Set as :$CostCentreName Invisible:Yes [System:UDF] costcenter1:String:12345 [#Field: VCH CostClassPrompt] Use : Simple Prompt Skip : Yes Style : Small Italic Set as : IF ##CstClassFlag OR ##EmpExplodeFlag then $$LocaleString:"Project Name:" Else $$LocaleString:"Project Name:" Inactive : NOT $UseAutoCost:Company:##SVCurrentCompany OR @@PayVchIsPayrollRelVch OR $$IsStockJrnl:##SVVoucherType OR @@IsJobWorkVouchers ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Payment voucher cost center display ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [#Line: VCHBILL ExplLine] add: Fields : before:VCHBILLDateate1,proj1 [Field: Date1] ; Use : Short Date Field Type : Date : Forced Storage : Bill Date Set as : if ##VCHShowBillTables AND $$IsSysNameEqual:AgstRef:$BillType then @TableDate else $EffectiveDate TableDate : if NOT $$IsEmpty:$$Value AND $$IsEmpty:$$Table:VCHBILLName:$BillDate then $$Value else $$Table:VCHBillName:$BillDate Set always : Yes Invisible : No Skip : Yes [Field: proj1] ; Use : name Field Storage : proj1 Set as:$costcenter1 Set By Condition : ##VCHShowBillTables AND ($$IsSysNameEqual:AgstRef:$BillType) : $$Table:VCHBILLName:$costcenter1 Set always : Yes Invisible : No Skip : Yes [System:UDF] proj:String:10125 ;;;;;;;;;;;;;;;;;;;;;;; ;; Cost center Print in Payment Print ;;;;;;;;;;;;;;;;;;;;;; Please help me, How to print cost center name in payment voucher.