Cost Center Name in Bill Allocation

Discussion in 'Free Source Codes' started by Ranjith M C, Jun 15, 2019.

    
  1. Ranjith M C

    Ranjith M C New Member


    ;;; 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:VCHBILLDate:Date1,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

    ;;;;;;;;;;;;;;;;;;;;;;
















    :rolleyes::rolleyes::rolleyes: Please help me, How to print cost center name in payment voucher.o_Oo_Oo_O
     
    Last edited: Jun 15, 2019


Share This Page