Request to know if we can use Amount Forex Field at Compute Lever

Discussion in 'Requests' started by naijaind, May 19, 2021.

    
  1. naijaind

    naijaind Member


    Dear Sirs,

    I have TDL where I fetch data from Tally to Excel via ODBC, if I run TDL in Excel I get Forex currency but when I run in Excel ODBC I get base currency figures. So I was thinking if there is possibility go get Amount Forex Field at Compute Level. Below TDL :

    ==========

    [Collection: CompanyCollection]
    Type : Company
    Fetch : Name
    ;**********************************************************;
    [#Menu : Gateway of Tally]
    Add : Item : Bank Payment : Display : Bank Payment Details
    [Report:Bank Payment Details]
    Form : Bank Payment Details
    Title : "Payment Details"
    [Form: Bank Payment Details]

    Use : DSP Template ;;;Its a pre defined report containing all the necessary keys, buttons, etc required for reporting purposes
    Parts :MB Company,Bank Account Details Tit, Bank Payment Part
    Delete : Page Break
    Add : Page Break : SatCl Page Break, SatOp Page Break
    Height : 100% screen ;;;defining height of form as 100% sccreen
    Width : 100% screen ;;;defining width of form as 100% sccreen
    Background : Light Yellow ;Very Light Blue ;;;Setting the background color of report to grey
    [Part:MB Company]
    Line: MB Company Name,MB Company Address
    Border: Thin Box
    [Line:MB Company Name]
    Field: Name Field
    Local: Field: Name Field: Set as: @@CmpMailName
    Local: Field: Name Field: Style:Large Bold
    Local: Field: Name Field: Align : Center
    Local: Field: Name Field: Full Width:Yes
    Space Top: 0.05
    Local: Field: Name Field:color:geranium
    [Line:MB Company Address]
    Field: Name Field
    Local: Field: Name Field: Set as: $$FullList:CompanyAddress:$Address
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Style:O9
    Local: Field: Name Field: Align : Center
    Local: Field: Name Field: Line:0
    Local: Field: Name Field:color:Blue
    [Part : Bank Account Details Tit]
    Line :Bank Account DetailsDate
    [Line : Bank Account DetailsDate]
    Border:THIN BOTTOM LEFT RIGHT
    Space Top: 1% page
    Space Bottom: 1% page
    Field : Bank Account DetailFromdt,ToooField,Bank Account DetailTodt
    [Field : Bank Account DetailFromdt]
    Use : n Field
    Set as:$$LocaleString:"Ledger Statement For the period " + $$String:##SVFromDate
    Width : 58% Screen
    Align : RIGHT
    Style : LARGE BOLD
    Color:geranium
    [Field : ToooField]
    Use : Name Field
    Set as : "To"
    Width : 2% Screen
    Align : Center
    Style : Normal
    Color:geranium
    [Field : Bank Account DetailTodt]
    Use : Date Field
    Set as : ##SVToDate
    Width : 45% Screen
    Align : Left
    Style : LARGE BOLD
    Color:geranium
    [Part: Bank Payment Part]
    Lines : Bank Payment Title, Bank Payment Line,
    Repeat : Bank Payment Line : paymentColl ;;;line will repeat on the collection of the ledger
    CommonBorder: Yes
    Scroll : Vertical
    [Line : Bank Payment Title]
    Use : Bank Payment Line
    Local : Field : Default :Color : White
    Local : Field : Default :Background : Dark Green
    Local : Field : Default : Type : String
    Local : Field : Default : Align : Centre
    Local : Field : Default : Style : Arial Bold
    Local : Field : Default :Border : BlueBorderXThin
    Local : Field : Payment Vch Date : Set as : "Date"
    Local : Field : Payment Led Name : Set as : "Party Ledger Name"
    Local : Field : Payment Vch Type : Set as : "Vch Type"
    Local : Field : Payment Vch Number : Set as : "Vch No."
    Local : Field : Payment Dr Amount : Set as : "Debit Amount"
    Local : Field : Payment Cr Amount : Set as : "Credit Amount"
    Local : Field : ParentName : Set as: "Parent Name"

    Border : Thin Top Bottom
    [Line: Bank Payment Line]
    Fields : Payment Vch Date, Payment Led Name, Payment Vch Type, Payment Vch Number, Payment Cr Amount, Payment Dr Amount, Parent Name
    ;Repeat : Payment Led Name ;;;line will repeat on the collection of the ledger
    [Field: ParentName]
    Use : Name Field
    Set as : $EnteredBy
    Style : Normal Serif
    Align: Left
    Width: 30
    [Field:payment Vch Date]
    Use : Name Field
    Set as : $Date
    Format : “Short Date”
    Border : Thin Right
    Style : TINY
    Width : 7% screen
    SPACE RIGHT : 1
    SPACE LEFT : 1
    Align : left
    [Field:payment Vch Number]
    Use : Name Field
    Set as : $VoucherNumber
    Border : Thin Right
    Style : TINY
    Width :10% screen
    SPACE RIGHT : 1
    SPACE LEFT : 1
    Align : left
    Alter : Voucher
    [Field:payment Led Name]
    Use : Name Field
    Set as : $$FilterValue:$LedgerName:AllLedgerEntries:1: IsDefBankAllocLedgerHasValue ;;;set ledger name to field
    Border : Thin Right
    Style : TINY Bold
    Width :35
    SPACE RIGHT : 1
    SPACE LEFT : 1
    Align : left

    [Field:payment Vch Type]
    Use : Name Field
    Set as : $VoucherTypeName
    Border : Thin Right
    Style : TINY
    ;Color : If $VoucherTypeName contains "-FC" then Red else Black
    Width :6% screen
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align : left
    [Field:payment Dr Amount]
    Use : Amount Forex Field ;;Name Field
    Set as : if not $$IsDr:$Amount then 0 else $Amount
    Border : Thin Right
    Style : TINY
    Width :10% screen
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align : Right
    [Field:payment Cr Amount]
    Use : Amount Forex Field ;;Name Field
    Set as : if $$IsDr:$Amount then " " else $Amount
    Border : Thin Right
    Style : TINY
    Width :10% screen
    SPACE RIGHT: 1
    SPACE LEFT: 1
    Align : Right
    ;**********************************************************;
    [Collection:paymentColl]
    Type : Vouchers : Group
    Use : Amount Forex Field
    Child Of: $$GroupBank ;;:$LedgerName = "18-BANK BALANCES"
    Belongs To: Yes
    Fetch : *.*, Debit Amount, Credit Amount
    Compute : Debit Amount : if $$IsDr:$Amount then "" else $Amount*1
    Compute : Credit Amount : if not $$IsDr:$Amount then "" else $Amount*-1
    Sort : @Default : $VoucherTypeName
    Compute :CompName:$$LoopCollObj:$Name ;;;mACHu6R&C#2t
    Compute:Identifier:$UDF
    ;Filter : PayFilter
    ;[System:Formula]
    ;PayFilter : $Parent = "18-BANK BALANCES"
    ;Set : ##SVFromDate : "27/03/2021"
    ;Set : ##SVToDate : "02/04/2021"
    ;Sort : @Default : $VoucherTypeName
    ;**********************************************************;
    [Border : BlueBorderXThin]
    Top : Thin
    Bottom : Thin
    Right : Thin
    Left : Thin
    Color : "Blue"
    Print Fg: "Blue"
    ;[Collection: CompanyCollection]
    ;Type : Company
    ;Fetch : Name
    [Collection: WeeklyBank]
    Collection :paymentColl:CompanyCollection
    IsODBCTable: Yes


    ======

    Thanks,
    Sanjay
     


  2. naijaind

    naijaind Member


    Amit sir, please help with your advise.
     


  3. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Wish I could...but this is beyond my expertise / knowledge.
     


  4. Himanshu-2002

    Himanshu-2002 Active Member


    Do it Like this

    [Collection:VchColl]
    ...
    Compute:ForexAmt:$$ForexValue:$Amount

    If This didn't work then try this

    Compute:ForexAmt:$$String:($Amount):Forex
     
    Last edited: Jun 20, 2021
    Devendra_Rawat likes this.


  5. Devendra_Rawat

    Devendra_Rawat Well-Known Member



    Yes, and you are getting amount in Forex in Tally report, because your are using Amount Forex Field to format it.

    also remove Amount Forex Field from collection definition
     
    Himanshu-2002 likes this.


  6. Himanshu-2002

    Himanshu-2002 Active Member


    Yes I was also thinking that Directly using the function might not work But I am pretty sure that we can do it by using the method attribute
     
    Devendra_Rawat likes this.


  7. naijaind

    naijaind Member


    Thank you so much Amitji, Himanshu, Garima that worked very well, I appreciate you all.
     


Share This Page