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
     


Share This Page