Help in this TDL

Discussion in 'Requests' started by anish, May 30, 2014.

    
  1. anish

    anish Member


    Please help in the below code
    1) The Cheque number is not automatically coming in Bank Details PopUp Window.
    2) The Cheque Filter is not working in Report also .

    Code:
    ;; Sri Ganeshji : Sri Balaji : Sri Pitreshwarji : Sri Durgaji : Sri Venkateshwara
     
    ;; Alteration of Reports for Cheque Details
     
    [#Report: Bank Recon]
     
        Variable      : TSPL FFE ChqStartNo, TSPL FFE ChqEndNo    : Number
     
    [#Report: Ledger Vouchers]
     
        Variable      : TSPL FFE ChqStartNo, TSPL FFE ChqEndNo    : Number
        Local        : Form            : Default    : Add    : Buttons        : TSPL FFE ChqFilter
        Local        : Collection    : Default    : Fetch    : TSPLFFEChequeNumberBRS, DueDateOfPymt
     
    ;; Button Definition
     
    [Button: TSPL FFE ChqFilter]
     
        Key        : Ctrl + C
        Action    : Modify Variables        : TSPL FFE Range of Cheque
        Title    : "Cheque Filter"
     
    ;; Alteration of relevant Lines to include Cheque No.
     
    [#Line: DSP VchAccTitles]
     
        Add    : Fields    : After : DSP VchAcctTitle    : TSPL FFE Cheque No Disp
     
        Local    : Field        : TSPL FFE Cheque No Disp    : Info    : "Cheque No"
     
    [#Line: DSP VchDetail]
     
        Add    : Right Fields    : Before : DSP VchType    : TSPL FFE Cheque No Disp
     
        [Field: TSPL FFE Cheque No Disp]
     
            Use            : Short Name Field
            Set as      : If Not $$IsEmpty:$DueDateOfPymt then $DueDateOfPymt else $TSPLFFEChequeNumberBRS
            Style        : Normal
            Skip        : Yes
            Invisible    : NOT ##TSPLFFEShowChequeNo
            Inactive    : NOT ##TSPLFFEShowChequeNo
            Align        : Centre
         
    [#Form: Bank Recon]
     
        Local    : Part    : DSP VchTitle    : Local : Line : DSP VchTitle    : Local : Field : TSPL FFE Cheque No Disp : Invisible : @@TSPLFFEIsAutoBankReco
        Local    : Part    : LV Body        : Local : Line : DSP VchDetail    : Local : Field : TSPL FFE Cheque No Disp : Invisible : @@TSPLFFEIsAutoBankReco
     
    ;; Collection alteration to includes relevant filters
     
    [#Collection: Vouchers of Ledger]
     
        Filter    : TSPL FFE ValidChequeRange
        Sort    : Cheque No (Increasing)    : $DueDateOfPymt
        Sort    : Cheque No (Decreasing)    : -$DueDateOfPymt
     
    [#Collection: Reconciliation Vouchers]
     
        Filter    : TSPL FFE ValidChequeRange
     
    ;; System Formula Definition
     
    [System: Formula]
     
        TSPL FFE ValidChequeRange    : If ##TSPLFFEChqEndNo > 0 then @@TSPLFFECheckChqRange else Yes
        TSPL FFE CheckChqRange        : NOT (@@TSPLFFESplitChqNo < ##TSPLFFEChqStartNo OR @@TSPLFFESplitChqNo > ##TSPLFFEChqEndNo)
     
    ;; Cheque Filter Report definition
     
    [Report: TSPL FFE Range of Cheque]
     
        Use        : Modify Variables
        Local  : Part    : Modify Variables    : Lines : TSPL FFE Show Cheque No, TSPL FFE ChqStartNo, TSPL FFE ChqEndNo
        Local    : Field    : MV Title            : Info    : "Range of Cheques"
        Local    : Part    : Default            : Local    : Line    : Default    : Space Bottom    : 0
     
        [Line: TSPL FFE Show Cheque No]
     
            Fields  : Medium Prompt, TSPL FFE Show Cheque No
            Local  : Field : Medium Prompt : Info    : "Show Cheque No(s). ?"
     
            [Field: TSPL FFE Show Cheque No]
     
                Use        : Logical Field
                Modifies    : TSPL FFE ShowChequeNo
     
        [Line: TSPL FFE ChqStartNo]
     
            Fields  : Short Prompt, TSPL FFE ChqStartNo
            Local  : Field : Short Prompt    : Info  : "From :"
            Local    : Field : Short Prompt    : Indent: 3
            SpaceTop: 0.5
     
            [Field: TSPL FFE ChqStartNo]
     
                Use        : Number Field
                Modifies    : TSPL FFE ChqStartNo
     
        [Line: TSPL FFE ChqEndNo]
     
            Fields  : Short Prompt, TSPL FFE ChqEndNo
            Local  : Field : Short Prompt    : Info    : "To :"
            Local    : Field : Short Prompt    : Indent: 3
     
            [Field: TSPL FFE ChqEndNo]
     
                Use        : Number Field
                Modifies    : TSPL FFE ChqEndNo
                Set As        : if $$IsEmpty:##TSPLFFEChqEndNo then #TSPLFFEChqStartNo else ##TSPLFFEChqEndNo
                Set Always    : Yes
                Validate    : $$Value >= #TSPLFFEChqStartNo
     
    ;; Configuration Changes
     
    [#Part: LEDVCHCFG Common]
     
        Add : Lines : TSPL FFE Show Cheque No
     
    [Variable: TSPL FFE Show Cheque No]
     
        Type        : Logical
        Persistent    : Yes
     
    [System: Variables]
     
        TSPL FFE ShowChequeNo    : No
     
    ;; End-of-File
    Thanks in advance
     


  2. anish

    anish Member


    Anyone there to help me Small Guidance is also appreciable in this Regard
     


Share This Page