Bill Ref Name/Number

Dear All Intellectual members,
I have made a code in which Bill Ref Name/Number is not showing............... Please help

Code:

[#Part: CMP COLBasics]
    Lines   :COLREGWithINVNo
   
[Line: COLREGWithINVNo]

        Fields      : Medium Prompt, COLREGWithINVNo
        Local       : Field : Medium Prompt : Info : $$LocaleString:"Show Invoice No. ?"
       
[Field: COLREGWithINVNo]

            Use     : Logical Field
            Modifies: COLREGWithINVNo
           
[Variable: COLREGWithINVNo]

    Type        : Logical
    Persistent  : Yes
   
[System: Variables]
    COLREGWithINVNo:No
   

;==================================================
[#Line: DSP ColVchTitle]
        Local:Field:LomeInvoice:Set as : $$LocaleString:"Invoice No."
       
[#Part: DBC UserName]
        Local   : Field : LomeInvoice         : Set as    : ""
       
[#Line: DSP ColVchDetailAlt]
        Add:Field:Before:DBC VchNo:LomeInvoice
        Local   : Field : LomeInvoice         : Set as    : ""
       
[#Line: DSP ColVchDetail]
        Add:Field:Before:DBC VchNo:LomeInvoice

[Field: LomeInvoice]

        Use            : Short Name Field
        Set As      : $Name
        Width       : 0
        Style       : Normal
        Bound       : 8,15
        Invisible    : NOT ##COLREGWithINVNo
        Scroll      : Yes
        Border          : Thin Left 
       
[Collection: VouchersCol]
Type : Vouchers
IsODBCTable: Yes

[Collection : VoucherBillColl]
Source Collection : VouchersColl
Walk : AllLedgerEntries,BillAllocations
by : Name : $Name

 

what is your requirement?

 

I want Below Field there

 

Code:

 

    [#Line : DB Title1]
    Add : Right Fields : After : DSP VchNumberTitle : DSP VchRefNoTitle
    [#Line : DSP VchAccTitles]
    Add : Right Fields : After : DSP VchNumberTitle : DSP VchRefNoTitle
    [#Line : DSP VchDetail]
    Add : Right Fields : After : DSP VchNumber : DSP VchRefNo
    [#Line : DSP VchInv1Titles]
    Add : Right Fields : After : DSP VchNumberTitle : DSP VchRefNoTitle
    Local : Field : DSP VchRefNoTitle : Set as : "Ref."
    [#Line : DSP VchInv2Titles]
    Add : Right Fields : After : DSP VchNumberTitle : DSP VchRefNoTitle
    Local : Field : DSP VchRefNoTitle : Set as : "No."
    [#Line : STKVCH NormalDetail]
    Add : Right Fields : After : DSP VchNumber : DSP VchRefNo
    [Field : DSP VchRefNoTitle]
    Use : Short Name Title Field
    Width : 3
    Info : "Ref"
    Align : Right
    Invisible : ##BankRecMode OR $$InDraftMode
    Delete : Border

    [Field : DSP VchRefNo]
    Use : Name Field
    Width : 3
    Set as : $Reference;$$CollectionField:$ExcisePurchaseNumber:1:ExciseAllocations;$Reference ;;if Not $$IsVoucher then "" else
    ;;Set as : if Not $$IsVoucher then "" else @OptStr + $Reference;$$CollectionField:$ExcisePurchaseNumber:1:ExciseAllocations;$Reference ;;
    OptStr : if $IsOptional then "(Optional) " else ""
    Style : Small
    Align : Right
    Invisible : ##BankRecMode OR $$InDraftMode
    Delete : Border

    [#Field : DBC Qty]
    Set as : if $IsDeemedPositive:VoucherType:##VoucherTypeName then $$AsOutQty:$VchTotalQty else $$AsInQty:$VchTotalQty
    [#Part : DBC QtyDetails]
    Local : Field : DBC Qty : Set as : If NOT $$IsEmpty:$BilledQty then $BilledQty else $ActualQty
    [#Line : DSP VchExplosion]
    Add : Right Fields : DSP InBlock, DSP OutBlock, DSP ClBlock
    Local : Field : Default : Delete : Border
    Local : Field : DSP VchInQty : Set as : If @@IsInType then @@GetNewVal else ""
    Local : Field : DSP VchInAmt : Set as : ""
    Local : Field : DSP VchOutQty : Set as : If @@IsOutType then @@GetNewVal else ""
    Local : Field : DSP VchOutAmt : Set as : ""
    Local : Field : DSP VchClQty : Set as : ""
    Local : Field : DSP VchClAmt : Set as : ""
    ;___ @@-OBJECT-MODIFICATIONS ____________________________________________________________
    [#Object : Voucher]
    VchTotalQty : $$CollQtyTotal:InventoryEntries:$ActualQty

    ;___ @@-SYSTEM-FORMULA __________________________________________________________________
    [System : Formula]
    GetNewVal : If NOT $$IsEmpty:$BilledQty then $BilledQty else $ActualQty
    IsOutType : ($$IsDelNote:$VoucherTypeName OR $$IsSales:$VoucherTypeName OR $$IsCreditNote:$VoucherTypeName)
    IsInType : ($$IsRcptNote:$VoucherTypeName OR $$IsPurchase:$VoucherTypeName OR $$IsDebitNote:$VoucherTypeName)
    ;___ @@-END-OF-VCH-REFERENCE ____________________________________________________________

    [#Collection: Daybook Vouchers of Company]
    Fetch : reference


    [#Collection: Vouchers of Ledger]
    Fetch : reference

 

its not working Brother !

 

Ok I have finish the code the full and final code is below