Fetch Date and Vch Numbers

Discussion in 'Tally Developer' started by kosi, Oct 25, 2019.

    
  1. kosi

    kosi Member


    programmers kindly help
    im stuck
    i want to fecth date and voucher number to the OpenDF and Vchinv fields
    code is bellow



    [#Menu:GateWay Of Tally]
    ;;if u want menu
    Add:Item:john:Display:OpeninAndClosingBal

    [Report:OpeninAndClosingBal]
    Form:OpeninAndClosingBal
    Variable : SVFromDate, SVToDate
    Set : SVfromDate : ##SVDate
    Set : SVToDate : ##SVCurrentDate


    [Form:OpeninAndClosingBal]
    Height:100% Screen
    Width:100% Screen
    Part:TitL,OpeninAndClosingBal
    Button:printButton,ExportButton,ChangePeriod,Refresh TDL;;, ExplodeFlag


    [Part:TitL]
    Line:TitL
    [Line:TitL]
    Field:Date,Vchno,TitL,TitL1,TitL2,TitL3,TitL4
    Local:Field:Date:Set as:"Date"
    Local:Field:Vchno:Set as:"Invoice No."
    Local:Field:TitL:Set as:"Customers"
    Local:Field:TitL1:Set as:"Sales"
    Local:Field:TitL2:Set as:"Paid"
    Local:Field:TitL3:Set as:"Balance Due"
    Local:Field:TitL4:Set as:"" + $$String:##SVFromDate +" to "+ $$String:##SVToDate


    ;;Style : Large Bold
    ;; Set as : "" + $$String:##SVFromDate +" to "+ $$String:##SVToDate

    [Field:Date]
    Use:Name Field
    Style : Large Bold
    [Field:Vchno]
    Use:Name Field
    Style : Large Bold
    [Field:TitL]
    Use:Name Field
    Style : Large Bold
    [Field:TitL1]
    Use:Name Field
    Style : Large Bold
    [Field:TitL2]
    Use:Name Field
    Style : Large Bold
    [Field:TitL3]
    Use:Name Field
    Style : Large Bold
    [Field:TitL4]
    Style : Large Bold
    Use:Name Field
    Space Left:20






    [Part:OpeninAndClosingBal]
    Line:OpeninAndClosingBal
    Repeat:OpeninAndClosingBal:OpeninAndClosingBalColl
    Scroll:Vertical
    ;;Break On:$$IsEmpty:$OpeninAndClosingBalColl




    [Line:OpeninAndClosingBal]
    Field:OpenDF,Vchinv,OpeninAndClosingBal,OpeninAndClosingBal1,OpeninAndClosingBal2,OpeninAndClosingBal3
    Local:Field:OpenDF:Set as:$Date
    Local:Field:Vchinv:Set as:$VoucherNumber
    Local:Field:OpeninAndClosingBal:Set as:$Name
    Local:Field:OpeninAndClosingBal1:Set as:$DebitTotals;;$Credittotals
    Local:Field:OpeninAndClosingBal2:Set as:$CreditTotals;;$Credittotals
    Local:Field:OpeninAndClosingBal3:Set as:$DebitTotals - $Credittotals


    [Field:OpenDF]
    Use:Short Date Field
    [Field:Vchinv]
    Use:Number Field
    ;;Use:Short Name Field
    Space Left:20
    [Field:OpeninAndClosingBal]
    Use:Name Field
    Space Left:15
    [Field:OpeninAndClosingBal1]
    ;;Use:Name Field
    ;;Space Left:15
    [Field:OpeninAndClosingBal2]
    Use:Amount Field
    Space Left:10
    [Field:OpeninAndClosingBal3]
    Use:Amount Field
    Space Left:15



    [Collection:OpeninAndClosingBalColl]
    Type:Ledger
    ;;Child Of:"Customers"
     


  2. balajimg

    balajimg Active Member


    you are repeating ledger collections,
    to get voucher details , your collection should be
    Type : Vouchers
     


  3. kosi

    kosi Member


    thanks boss
    if i used
    Type : Vouchers
    the following fields gets vanished.
    OpeninAndClosingBal
    OpeninAndClosingBal1
    OpeninAndClosingBal2
    OpeninAndClosingBal3
    please help me to get the above fields when i use
    Type : Vouchers
    how do i repeat ledger collections to get voucher details or
    repeat voucher colections to get ledger details

    codes are bellow once again
    [#Menu:GateWay Of Tally]
    ;;if u want menu
    Add:Item:john:Display:OpeninAndClosingBal

    [Report:OpeninAndClosingBal]
    Form:OpeninAndClosingBal
    Variable : SVFromDate, SVToDate
    Set : SVfromDate : ##SVDate
    Set : SVToDate : ##SVCurrentDate


    [Form:OpeninAndClosingBal]
    Height:100% Screen
    Width:100% Screen
    Part:TitL,OpeninAndClosingBal
    Button:printButton,ExportButton,ChangePeriod,Refresh TDL;;, ExplodeFlag


    [Part:TitL]
    Line:TitL
    [Line:TitL]
    Field:Date,Vchno,TitL,TitL1,TitL2,TitL3,TitL4
    Local:Field:Date:Set as:"Date"
    Local:Field:Vchno:Set as:"Invoice No."
    Local:Field:TitL:Set as:"Customers"
    Local:Field:TitL1:Set as:"Sales"
    Local:Field:TitL2:Set as:"Paid"
    Local:Field:TitL3:Set as:"Balance Due"
    Local:Field:TitL4:Set as:"" + $$String:##SVFromDate +" to "+ $$String:##SVToDate


    ;;Style : Large Bold
    ;; Set as : "" + $$String:##SVFromDate +" to "+ $$String:##SVToDate

    [Field:Date]
    Use:Name Field
    Style : Large Bold
    [Field:Vchno]
    Use:Name Field
    Style : Large Bold
    [Field:TitL]
    Use:Name Field
    Style : Large Bold
    [Field:TitL1]
    Use:Name Field
    Style : Large Bold
    [Field:TitL2]
    Use:Name Field
    Style : Large Bold
    [Field:TitL3]
    Use:Name Field
    Style : Large Bold
    [Field:TitL4]
    Style : Large Bold
    Use:Name Field
    Space Left:20






    [Part:OpeninAndClosingBal]
    Line:OpeninAndClosingBal
    Repeat:OpeninAndClosingBal:OpeninAndClosingBalColl
    Scroll:Vertical
    ;;Break On:$$IsEmpty:$OpeninAndClosingBalColl




    [Line:OpeninAndClosingBal]
    Field:OpenDF,Vchinv,OpeninAndClosingBal,OpeninAndClosingBal1,OpeninAndClosingBal2,OpeninAndClosingBal3
    Local:Field:OpenDF:Set as:$Date
    Local:Field:Vchinv:Set as:$VoucherNumber
    Local:Field:OpeninAndClosingBal:Set as:$Name
    Local:Field:OpeninAndClosingBal1:Set as:$DebitTotals;;$Credittotals
    Local:Field:OpeninAndClosingBal2:Set as:$CreditTotals;;$Credittotals
    Local:Field:OpeninAndClosingBal3:Set as:$DebitTotals - $Credittotals


    [Field:OpenDF]
    Use:Short Date Field
    [Field:Vchinv]
    Use:Number Field
    ;;Use:Short Name Field
    Space Left:20
    [Field:OpeninAndClosingBal]
    Use:Name Field
    Space Left:15
    [Field:OpeninAndClosingBal1]
    ;;Use:Name Field
    ;;Space Left:15
    [Field:OpeninAndClosingBal2]
    Use:Amount Field
    Space Left:10
    [Field:OpeninAndClosingBal3]
    Use:Amount Field
    Space Left:15



    [Collection:OpeninAndClosingBalColl]
    Type:vouchers
    ;;Child Of:"Customers"
     


Share This Page