Value not fetch in my report

Discussion in 'Free Source Codes' started by Jenny, Aug 12, 2019.

    
  1. Jenny

    Jenny Active Member


    Untitled.jpg
    Code:
    [System : UDF ]
        BDetails : String : 24670
     
    [#Part: LED Contact]
        Add: Lines  :After: LED Website: LED BankRegister, LED BankRegisteropeningbal
     
    [Line:LED BankRegister]
        Field : Short Prompt, LED BankDetails
        Local : Field : Short Prompt : Set as : "Daily Bank Register: "
        Local: Field: Short Prompt: Width: 20
        Local: Field: Short Prompt: Style: Normal Bold
     
    [Field : LED BankDetails]
        Use : Logical Field
        Table: YesNoTable
        Show Table    : Always
        Sub Form: BankDetailsReport : $$Value = "Yes"
     
    [Line:LED BankRegisteropeningbal]
        Field : Short Prompt, LED BankRegisteropeningbal
        Local : Field : Short Prompt : Set as : "Daily Register Opening Balance: "
        Local: Field: Short Prompt: Width: 20
        Local: Field: Short Prompt: Style: Normal Bold
     
    [Field : LED BankRegisteropeningbal]
        Use            : Amount Field
        Set as        : $$Value
        Storage        : BankRegisteropeningbal
     
    [System: UDF]
    BankRegisteropeningbal:Amount: 2555
    
    [Report:BankDetailsReport]
    Variable : SVFromDate, SVToDate
    Set : SVFromDate : ($BooksFrom:Company:##SVCurrentCompany)
    Set : SVToDate   : ($LastVoucherDate:Company:##SVCurrentCompany)
    Form:BankDetailsReport
    Title:$$LocaleString:"DAILY BANK DETAILS ENTRY FORM"
    ;Object:Company
    
    [Form:BankDetailsReport] 
    Background:Light Ochre Yellow
    Height:100% page
    Width:100% page
    Space Top : If $$InPrintMode Then 0.5 Else 0 inches
    Buttons : PrintButton, ExportButton
    Part: BankDetailsTitlee,BankDetailsinfoPart,ClosingBalance Part
    
    [Part : BankDetailsTitlee]
    Space Bottom : 0.2 inch
    Line : BankDetailsTitlee
    
    [Line:BankDetailsTitlee]
    Field:BankDetailsTitlee
    Space Top:0.02
    Border:thin bottom
    
    [Field:BankDetailsTitlee]
    Use:name field
    Set as:$$LocaleString:"D A I L Y - B A N K - R E G I S T E R - E N T E R Y - F O R M"
    Align : Center
    Full Width : Yes
    Local:Style:defualt:Height:15
    Color:Black
    Skip: Yes
    Style:large bold
    
    [Part:BankDetailsinfoPart]
    Left Part:Receipt part
    Common Border   : Yes
    
    [Part:Receipt part]
    Line:ReceiptTitleLeft,ReceiptTitleOpening,ReceiptDetailsLeft
    Bottom Line:ReceiptClbalfieldtot
    Repeat: ReceiptDetailsLeft : ReceiptDetailsAgg
    Scroll: Vertical
    Break On: $$IsEmpty:$LEDMDate OR $$IsEndOfList:#LEDMParty
    Total  :LEDMDrAmt,LEDMCrAmt
    Common Border   : Yes
    
    [Line: ReceiptTitleLeft]
    Fields: LEDMDate,LEDMParty,LEDMCHQNo,LEDMDrAmt,LEDMCrAmt,LEDMRemark
    Local: Field: Default : Delete: Storage
    Local: Field: Default : Skip: Yes
    Local: Field: Default : Fixed: Yes
    Local: Field: Default : Type: String
    Local: Field: Default : Background: Yellow
    
    Local: Field: LEDMDate        : Set as: "Date"
    Local: Field: LEDMParty        : Set as: "Party Name"
    Local: Field: LEDMCHQNo        : Set as: "CHQ No"
    Local: Field: LEDMDrAmt        : Set as: "RECEIPT (Dr)"
    Local: Field: LEDMCrAmt        : Set as: "PAYMENT (Cr)"
    Local: Field: LEDMRemark    : Set as: "Remark"
    
    Local: Field: LEDMDate        : Style : Normal Bold
    Local: Field: LEDMParty        : Style : Normal Bold
    Local: Field: LEDMCHQNo        : Style : Normal Bold
    Local: Field: LEDMDrAmt        : Style : Normal Bold
    Local: Field: LEDMCrAmt        : Style : Normal Bold
    Local: Field: LEDMRemark    : Style : Normal Bold
    
    Local: Field: LEDMDate        : Color: Black
    Local: Field: LEDMParty        : Color: Black
    Local: Field: LEDMCHQNo        : Color: Black
    Local: Field: LEDMDrAmt        : Align: Center
    Local: Field: LEDMCrAmt        : Align: Center
    Local: Field: LEDMCrAmt        : Color: Red
    Local: Field: LEDMRemark    : Align: Center
    Local: Field: LEDMRemark    : Color: Black
    Border : Flush Totals
    
    [Line:ReceiptTitleOpening]
    Fields: OPLEDMDate,OPLEDMParty,OPLEDMCHQNo,OPLEDMDrAmt,OPLEDMCrAmt,OPLEDMRemark
                                  
    [Field: OPLEDMDate]
        Use            : Uni Date Field
        Set as        : $OPLEDMDate
        Storage        : OPLEDMDate
        Width        : 6% Screen
        Align        : Left
        Color        : Black
        Border        : Thin Left Right
        Style         : Normal Bold
    
    [Field: OPLEDMParty]
        Use            : Name Field
        Set as        : "Opening Balance :"
        Width        : 38% Screen
        Color        : Red
        Border        : Thin Left Right
        Style         : Normal Bold
        Skip        : Yes
     
    [Field: OPLEDMCHQNo]
        Use            : Name Field
        Set as        : ""
        Width        : 6% Screen
        Color        : Black
        Border        : Thin Left Right
        Style         : Normal
        Skip        : Yes
    
    [Field: OPLEDMDrAmt]
        Use            : Amount Field
        Set as        : $$Value
        Storage        : OPLEDMDrAmt
        Width        : 10% Screen
        Format         : Decimal : 2
        Align        : Right
        Color        : Blue
        Border        : Thin Left Right
        Style         : Normal Bold
     
    [Field: OPLEDMCrAmt]
        Use            : Amount Field
        Set as        : $$Value
        Storage        : OPLEDMCrAmt
        Width        : 10% Screen
        Format         : Decimal : 2
        Align        : Right
        Color        : Red
        Border        : Thin Left Right
        Style         : Normal Bold
         
    [Field: OPLEDMRemark]
        Use            : Name Field
        Set as        : ""
        Full Width    : Yes
        Color        : Black
        Style         : Normal
        Skip        : Yes 
    
    [Line:ReceiptDetailsLeft]
    Fields: LEDMDate,LEDMParty,LEDMCHQNo,LEDMDrAmt,LEDMCrAmt,LEDMRemark
                                  
    [Field: LEDMDate]
        Use            : Uni Date Field
        Set as        : $LEDMDate
        Storage        : LEDMDate
        Width        : 6% Screen
        Align        : Left
        Color        : Black
        Border        : Thin Left Right
        Style         : Normal
    
    [Field: LEDMParty]
        Use            : Name Field
        Storage        : LEDMParty
        Width        : 38% Screen
        Color        : Black
        Border        : Thin Left Right
        Table        : DailyBankLedgercollection,EndOfList
        Show Table    :Always
        Style         : Normal
     
    [Field: LEDMCHQNo]
        Use            : Name Field
        Set as        : $$Value
        Storage        : LEDMCHQNo
        Width        : 6% Screen
        Color        : Black
        Border: Thin Left Right
        Style         : Normal
    
    [Field: LEDMDrAmt]
        Use            : Amount Field
        Set as        : $$Value
        Storage        : LEDMDrAmt
        Width        : 10% Screen
        Format         : Decimal : 2
        Align        : Right
        Color        : Blue
        Border        : Thin Left Right
        Skip         : IF $$IsLedOfGrp:#LEDMParty:$$GroupSundryCreditors   then yes else NO ; What is the syntax of $$IsBelongsTo:#LDMParty:$$GroupSundryCreditors
        Style         : Normal
     
    [Field: LEDMCrAmt]
        Use        : Amount Field
        Set as        : $$Value
        Storage        : LEDMCrAmt
        Width        : 10% Screen
        Format         : Decimal : 2
        Align        : Right
        Color        : Red
        Border: Thin Left Right
        Skip         : if $$IsLedOfGrp:#LEDMParty:$$GroupSundryDebtors then Yes else No
        Style         : Normal
         
    [Field: LEDMRemark]
        Use            : Name Field
        Set as        : $$Value
        Storage        : LEDMRemark
        Full Width    : Yes
        Color        : Black
        Style         : Normal
     
    [Collection: DailyBankLedgercollection]
        Type        : Ledger
        Title        : "Ledger List"
        List Name    : $$LocaleString:"Opening Balance"
        Fetch        : Name,LEDMDrAmt,LEDMCrAmt
        Include     : Group:$$GroupSundryDebtors, Group:$$GroupSundryCreditors
     
    [System: UDF]
        ReceiptDetailsAgg    : Aggregate    : 2541
        LEDMDate            : Date        : 2542
        LEDMParty            : String    : 2543 
        LEDMCHQNo            : String    : 2544
        LEDMDrAmt            : Amount    : 2545
        LEDMCrAmt            : Amount    : 2547
        LEDMRemark            : String    : 2546
        OPLEDMDate            : Date        : 2548
        OPLEDMDrAmt            : Amount    : 2549
        OPLEDMCrAmt            : Amount    : 2550
     
    
    [Line:ReceiptClbalfieldtot]
    Fields:RTotalDate,RTotalParty,RTotalCHQNo,RTotalDrAmt,RTotalCrAmt,RTotalRemark
    Border: Totals
    Local: Field: RTotalParty        : Set as: "Total :"
    Local: Field: RTotalParty        :Background: misty rose
    Local: Field: RTotalParty        :Border : Thin Top
    Local: Field: RTotalParty        :Color  : Black
    
    
    [Field: RTotalDate]
        Use            : Name Field
        Set as        : ""
        Width        : 6% Screen
        Align        : Right
        Border        : ThiN Cover
        Skip        : Yes
     
    [Field: RTotalParty]
        Use            : Name Field
        Set as        : ""
        Width        : 38% Screen
        Border        : ThiN Cover
        Skip        : Yes
        Color        : Blue
        Align        : Right
    [Field: RTotalCHQNo]
        Use            : Name Field
        Set as        : ""
        Width        : 6% Screen
        Border        : ThiN Cover
        Skip        : Yes
     
    [Field:RTotalDrAmt]
        Use         : Amount Forex Field
        Set as         : $$Total:LEDMDrAmt
        Skip         : Yes
        style         : normal bold
        Width         : 10% Screen
        Align:Right
        Background: misty rose
        Color        : Blue
    
    [Field:RTotalCrAmt]
        Use         : Amount Forex Field
        Set as         : $$Total:LEDMCrAmt
        Skip         : Yes
        style         : normal bold
        Width         : 10% Screen
        Align        : Right
        Background    : misty rose
        Color        : Red
     
    [Field: RTotalRemark]
        Use            : Name Field
        Set as        : ""
        Full Width    : Yes
        Border        : ThiN Cover
        Skip        : Yes
     
    [Part:ClosingBalance Part]
    Left Part    : ClosingBalance part1
    
    
    [Part:    ClosingBalance part1]
    Line:ClosingBalance part1 
    
    [Line:ClosingBalance part1]
    Fields:FTotalDate,FTotalParty,FTotalCHQNo,FTotalAmt,FTotalRemark
    
    Border: Totals
    Local: Field: FTotalParty        : Set as: "Closing Balance :"
    Local: Field: FTotalParty        :Background: DEEP COBALT BLUE
    Local: Field: FTotalParty        :Border : Thin Top
    Local: Field: FTotalParty        :color : WHITE
    Local: Field: FTotalParty        :Align: Right
    
    [Field: FTotalDate]
        Use            : Name Field
        Set as        : ""
        Width        : 6% Screen
        Align        : Left
        Skip    : Yes
     
    [Field: FTotalParty]
        Use            : Name Field
        Set as        : ""
        Width        : 38% Screen
        Skip    : Yes
     
    [Field: FTotalCHQNo]
        Use            : Name Field
        Set as        : ""
        Width        : 6% Screen
        Skip        : Yes
     
    [Field:FTotalAmt]
        Use         : Amount Forex Field
        Set as         : (#OPLEDMDrAmt+#RTotalDrAmt) - (#OPLEDMCrAmt+#RTotalCrAmt)
        Skip         : Yes
        style         : normal bold
        Width        : 20% Screen
        Align        :Center
        Background    : DEEP COBALT BLUE
        Color         : WHITE
     
    [Field: FTotalRemark]
        Use            : Name Field
        Set as        : ""
        Skip        : Yes 
        Full Width    : Yes
        Align        :Right
    
    
    [Color:Medium Lavender Magenta]
        RGB:221,160,221
     
    [Color:misty rose]
        RGB:255,228,225
    ;;;;;;;;;REPORT CODE START HERE;;;;;;;;;;;;;;;;;;;;;;;
    
    [#Menu: Gateway of Tally]
    Add: Item: Daily Banking Register : Display: BankDetailsReport2
    
    [Report:BankDetailsReport2]
    Title      : "BANK DETAILS REPORT"
    Variables: SV CurrentCompany, SVFromDate, SVToDate, SVSortMethod
    Variables: ExplodeFlag, IsForexReport
    Variable : DSPHasMultiLevel
    Variable : IsMultiPage, InNewPages, ShowBillType, IsGrpBillReport
    Variables: SVSelectAllToggle,DSPRepeatCollection
    Variable : vBankPartyLedgerListName : String
    Variable : vDailyBanking : String
    Variable : IsMultiPage
    
    Set : SV Sort Method : @@Default
    Set : SVFromDate : ($BooksFrom:Company:##SVCurrentCompany)
    Set : SVToDate   : ($LastVoucherDate:Company:##SVCurrentCompany)
    Set : IsMultiPage : No
    Set : vBankPartyLedgerListName : ""
    Set : vDailyBanking : ""
    Export : Yes
    Form:BankDetailsReport2
    
    
    [Form:BankDetailsReport2]
    Use : DSP Template
    Background: @@SV_RELEASEDLEAFGREEN_PL
    Height:100% page
    Width:100% page
    Space Top : If $$InPrintMode Then 0.5 Else 0 inches
    Bottom Toolbar Buttons : BottomToolBarBtn1, BottomToolBarBtn6, BottomToolBarBtn7, BottomToolBarBtn8,BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11, BottomToolBarBtn12
    Buttons : PrintButton, ExportButton
    Add: Button: BankPartyNameFilter,FCL New BankEntry,FCL BankListA Alter,FCL DailyBankingA Filter
    Parts : BankDetailsTitlee2,BankStatement Tit2,BankDetailsinfoPart2,ClosingBalance Part2
    Set Always        : SV From Date    : If $$IsEmpty:##SVFromDate Then @@BooksFromDate Else ##SVFromDate
    Set Always        : SV To Date    : If $$IsEmpty:##SVToDate Then @@LastVoucherDate Else ##SVToDate
    
    
    [Part : BankDetailsTitlee2]
    Space Bottom : 0.2 inch
    Line : BankDetailsTitlee2
    
    [Line:BankDetailsTitlee2]
    Field:BankDetailsTitlee2
    Space Top:0.02
    Border:thin bottom
    
    [Field:BankDetailsTitlee2]
    Use:name field
    Set as:$$LocaleString:"ALL - B A N K - D A I L Y - R E G I S T E R"
    Align : Center
    Full Width : Yes
    Local:Style:defualt:Height:15
    Color:Black
    Skip: Yes
    Style:large bold
    
    [Part : BankStatement Tit2]
    Line : BankStatementPeriod2
    
    [Line:BankStatementPeriod2]
    Field:BankStatementPeriod2
    Local: Field: BankStatementPeriod2    : Set as:"Details For the period " + $$String:##SVFromDate + " to " + $$String:##SVToDate
    
    [Field:BankStatementPeriod2]
    Use:name field
    Set as:$$LocaleString:""
    Align : Center
    Width : 100% screen
    Color:Black
    Skip: Yes
    Background:WHITE
    Border        : ThiN Cover
    
    [Part:BankDetailsinfoPart2]
    Part    :Receipt part2
    Common Border   : Yes
    
    
    [Part:Receipt part2]
    Line:ReceiptTitleLeft2,ReceiptDetailsLeft2
    Bottom Line:ReceiptOPbalfieldtot2,ReceiptClbalfieldtot2
    Repeat: ReceiptDetailsLeft2 : FCL BANKList100
    Scroll: Vertical
    Break On: $$IsEmpty:$LEDMDate2
    Total  :LEDMDrAmt2,LEDMCrAmt2
    Common Border   : Yes
    
    [Line: ReceiptTitleLeft2]
    Fields: LEDBANKGroupName2,LEDMDate2,LEDMParty2,LEDMCHQNo2,LEDMDrAmt2,LEDMCrAmt2,LEDMRemark2
    Local: Field: Default : Delete: Storage
    Local: Field: Default : Skip: Yes
    Local: Field: Default : Fixed: Yes
    Local: Field: Default : Type: String
    Local: Field: Default : Background: Yellow
    
    Local: Field: LEDBANKGroupName2    : Set as: "Bank Name"
    Local: Field: LEDMDate2            : Set as: "Date"
    Local: Field: LEDMParty2        : Set as: "Party Name"
    Local: Field: LEDMCHQNo2        : Set as: "CHQ No"
    Local: Field: LEDMDrAmt2        : Set as: "RECEIPT (Dr)"
    Local: Field: LEDMCrAmt2        : Set as: "PAYMENT (Cr)"
    Local: Field: LEDMRemark2    : Set as: "Remark"
    
    Local: Field: LEDMDate2        : Color: Black
    Local: Field: LEDMParty2        : Color: Black
    Local: Field: LEDMCHQNo2        : Color: Black
    Local: Field: LEDMDrAmt2        : Align: Center
    Local: Field: LEDMCrAmt2        : Align: Center
    Local: Field: LEDMCrAmt2        : Color: Red
    Local: Field: LEDMRemark2        : Align: Center
    Local: Field: LEDMRemark2        : Color: Black
    Border : Flush Totals
    
    
    [Line:ReceiptDetailsLeft2]
    Fields: LEDBANKGroupName2,LEDMDate2,LEDMParty2,LEDMCHQNo2,LEDMDrAmt2,LEDMCrAmt2,LEDMRemark2
    
    [Field: LEDBANKGroupName2]
        Use            : Name Field
        Set as        : $Name
        Width        : 10% Screen
        Align        : Left
        Color        : Black
        Border        : Thin Left Right
    
    [Field: LEDMDate2]
        Use            : Uni Date Field
        Set as        : $LEDMDate
        Width        : 8% Screen
        Align        : Left
        Color        : Black
        Border        : Thin Left Right
    [Field: LEDMParty2]
        Use            : Name Field
        Set as        : $LEDMParty
        Width        : 30% Screen
        Color        : Black
        Border        : Thin Left Right
    [Field: LEDMCHQNo2]
        Use            : Name Field
        Set as        : $LEDMCHQNo
        Width        : 6% Screen
        Color        : Black
        Border        : Thin Left Right
    [Field: LEDMDrAmt2]
        Use            : Amount Field
        Set as        : $LEDMDrAmt
        Width        : 10% Screen
        Format         : Decimal : 2
        Align        : Right
        Color        : Blue
        Border        : Thin Left Right
     
    [Field: LEDMCrAmt2]
        Use        : Amount Field
        Set as        : $LEDMCrAmt
        Width        : 10% Screen
        Format         : Decimal : 2
        Align        : Right
        Color        : Red
        Border: Thin Left Right
     
    [Field: LEDMRemark2]
        Use            : Name Field
        Set as        : $LEDMRemark
        Full Width    : Yes
        Color        : Black
     
    [Line:ReceiptOPbalfieldtot2]
    Fields:RLEDBANKGroupName25,RTotalDate25,RTotalParty25,RTotalCHQNo25,RTotalDrAmt25,RTotalCrAmt25,RTotalRemark25
    Border: Totals
    Local: Field: RTotalParty25        : Set as: "Opening Balance :"
    Local: Field: RTotalParty25        :Background: misty rose
    Local: Field: RTotalParty25        :Border : Thin Top
    Local: Field: RTotalParty25        :Color  : Black
    
    [Field: RLEDBANKGroupName25]
        Use        : Name Field
        Set as        : ""
        Width        : 10% Screen
        Align        : Right
        Border        : ThiN Cover
        Skip        : Yes
    
    [Field: RTotalDate25]
        Use        : Name Field
        Set as        : ""
        Width        : 8% Screen
        Align        : Right
        Border        : ThiN Cover
        Skip        : Yes
     
    [Field: RTotalParty25]
        Use        : Name Field
        Set as        : ""
        Width        : 30% Screen
        Border        : ThiN Cover
        Skip        : Yes
        Align        : Right
     
    [Field: RTotalCHQNo25]
        Use        : Name Field
        Set as        : ""
        Width        : 6% Screen
        Border        : ThiN Cover
        Skip        : Yes
     
    [Field:RTotalDrAmt25]
        Use         : Amount Forex Field
        Set as         : $OPLEDMDrAmt:Ledger:##LedgerName
        Skip         : Yes
        style         : normal bold
        Width         : 10% Screen
        Align:Right
        Background: misty rose
        Color        : Blue
    
    [Field:RTotalCrAmt25]
        Use         : Amount Forex Field
        Set as         : $BankRegisteropeningbal:Ledger:##LedgerName;$OPLEDMCrAmt:Ledger:##LedgerName
        Skip         : Yes
        style         : normal bold
        Width         : 10% Screen
        Align        : Right
        Background    : misty rose
        Color        : Red
     
    [Field: RTotalRemark25]
        Use            : Name Field
        Set as        : ""
        Full Width     : Yes
        Border        : ThiN Cover
        Skip        : Yes
     
    
    [Line:ReceiptClbalfieldtot2]
    Fields:RLEDBANKGroupName2,RTotalDate2,RTotalParty2,RTotalCHQNo2,RTotalDrAmt2,RTotalCrAmt2,RTotalRemark2
    Border: Totals
    Local: Field: RTotalParty2        : Set as: "Current Total :"
    Local: Field: RTotalParty2        :Background: misty rose
    Local: Field: RTotalParty2        :Border : Thin Top
    Local: Field: RTotalParty2        :Color  : Black
    
    [Field: RLEDBANKGroupName2]
        Use        : Name Field
        Set as        : ""
        Width        : 10% Screen
        Align        : Right
        Border        : ThiN Cover
        Skip        : Yes
    
    [Field: RTotalDate2]
        Use        : Name Field
        Set as        : ""
        Width        : 8% Screen
        Align        : Right
        Border        : ThiN Cover
        Skip        : Yes
     
    [Field: RTotalParty2]
        Use        : Name Field
        Set as        : ""
        Width        : 30% Screen
        Border        : ThiN Cover
        Skip        : Yes
        Align        : Right
     
    [Field: RTotalCHQNo2]
        Use        : Name Field
        Set as        : ""
        Width        : 6% Screen
        Border        : ThiN Cover
        Skip        : Yes
     
    [Field:RTotalDrAmt2]
        Use         : Amount Forex Field
        Set as         : $$Total:LEDMDrAmt2
        Skip         : Yes
        style         : normal bold
        Width         : 10% Screen
        Align:Right
        Background: misty rose
        Color        : Blue
    
    [Field:RTotalCrAmt2]
        Use         : Amount Forex Field
        Set as         : $$Total:LEDMCrAmt2
        Skip         : Yes
        style         : normal bold
        Width         : 10% Screen
        Align        : Right
        Background    : misty rose
        Color        : Red
     
    [Field: RTotalRemark2]
        Use            : Name Field
        Set as        : ""
        Full Width     : Yes
        Border        : ThiN Cover
        Skip        : Yes
     
    [Part:ClosingBalance Part2]
    Line:FinalClbalfield2 
    
    [Line:FinalClbalfield2]
    Fields:FLEDBANKGroupName2,FTotalDate2,FTotalParty2,FTotalCHQNo2,FTotalAmt2,FTotalRemark2
    
    Border: Totals
    Local: Field: FTotalParty2        : Set as: "Closing Balance :"
    Local: Field: FTotalParty2        :Background: DEEP COBALT BLUE
    Local: Field: FTotalParty2        :Border : Thin Top
    Local: Field: FTotalParty2        :color : WHITE
    Local: Field: FTotalParty2        :Align: Right
    
    [Field: FLEDBANKGroupName2]
        Use            : Name Field
        Set as        : ""
        Width        : 10% Screen
        Align        : Left
        Skip    : Yes
    
    [Field: FTotalDate2]
        Use            : Name Field
        Set as        : ""
        Width        : 8% Screen
        Align        : Left
        Skip    : Yes
     
    [Field: FTotalParty2]
        Use            : Name Field
        Set as        : ""
        Width        : 30% Screen
        Skip    : Yes
     
    [Field: FTotalCHQNo2]
        Use            : Name Field
        Set as        : ""
        Width        : 6% Screen
        Skip        : Yes
     
    [Field:FTotalAmt2]
        Use         : Amount Forex Field
        Set as         : #RTotalDrAmt2 - #RTotalCrAmt2
        Skip         : Yes
        style         : normal bold
        Width        : 20% Screen
        Align        :Center
        Background    : DEEP COBALT BLUE
        Color         : WHITE
     
    [Field: FTotalRemark2]
        Use            : Name Field
        Set as        : ""
        Skip        : Yes 
        Full Width     : Yes
        Align        :Right
     
    [Collection: LED MC PD100]
        Type: Ledger
        Include     :Group:$$GroupBank,Group:$$GroupBankOD
        ;Child Of: $$GroupBank
        Belongs To: Yes
     
    [Collection: FCL BANKList100]
        Source Collection: LED MC PD100
        Walk: ReceiptDetailsAgg
        Title: "Price LIST"
        Native Method: Name,LEDMDate,LEDMParty,LEDMCHQNo, LEDMDrAmt, LEDMCrAmt,LEDMRemark,OPLEDMDrAmt,OPLEDMCrAmt
        Format: $Name , 20 
        Format: $LEDMParty , 30
        Filter: SalesManFilter,DateFilter,DailyBankingfilter1
     
     
    [System: Formula]
    SalesManFilter: IF $$IsSysName:##vBankPartyLedgerListName Then 1=1 Else $Name = ##vBankPartyLedgerListName 
    DateFilter      : $LEDMDate between ##svfromdate and ##svtodate
    ;DailyBankingfilter1: IF $$IsSysName:##vDailyBanking Then 1=1 Else $LEDMParty = ##vDailyBanking
    
    [Collection: ReceiptDetailsColl]
        Type     : ReceiptDetailsAgg : Company
        Childof : ##SVCurrentCompany
        Filter    : SalesManFilter,DailyBankingfilter1
        Fetch     : LEDMDate,LEDMParty,LEDMCHQNo, LEDMDrAmt, LEDMCrAmt,LEDMRemark
    ;============================== Filter ===================================
    
    [Button:BankPartyNameFilter]
    Key : F4
    Action :  Execute: BankPartyNameFilter
    Title : Bank List
    
    [Report:BankPartyNameFilter]
    Form : BankPartyNameFilter
    
    [Form:BankPartyNameFilter]
    Part : BankPartyNameFilter
    No Confirmation : Yes
    
    [Part:BankPartyNameFilter]
    Line : BankPartyNameFilter
    
    [Line:BankPartyNameFilter]
    Field : Medium Prompt,BankPartyNameFilter
    Option : alter on enter
    Local : Field : Medium Prompt : Set as : "Select Bank Name: "
    Local : Field : Medium Prompt : Color :Blue
    Local : Field : Medium Prompt : Style :Normal Bold
    
    [Field:BankPartyNameFilter]
    Set as: ##vBankPartyLedgerListName
    Table : LED DailyBank List100,EndOfList
    ShowTable : Always
    Use : Name Field
    Width : 22
    Border : Thin Box
    Modifies : vBankPartyLedgerListName
    
    [Collection: LED MC SD200]
        Type: Ledger
        Include     : Group:$$GroupBank, Group:$$GroupBankOD
        ;Include        : $$IsBelongsTo:$$GroupBank OR $$IsBelongsTo:$$GroupBankOD
        Belongs To: Yes
        Filter: BanklistFilter10
     
    [System: Formulae]
        BanklistFilter10 : $$IsBelongsTo:$$GroupBank OR $$IsBelongsTo:$$GroupBankOD
     
    [Collection: LED MC List200]
        Collection: LED MultiBank List00 : LED MC SD200
     
    [Collection: LED MultiBank List00]
        Type: Ledger
        Include     : Group:$$GroupBank, Group:$$GroupBankOD
        Belongs To: Yes
        Fetch: Name
     
    [Collection: LED DailyBank List100]
        Source Collection: LED MC SD200
        Walk: ReceiptDetailsAgg
        Title: BANK LIST
        Native Method: Name,OPLEDMDrAmt,OPLEDMCrAmt
        Format: $Name, 30
     
    
    
    
    [Variable:vBankPartyLedgerListName]
    Type : String
    Persistent: Yes
    
    [System:Variable]
    vBankPartyLedgerListName : ""
    
    
    
    ;;=================================
    
    [Button: FCL New BankEntry]
        Title: New Entry
        Key: F5
        Action: Call: FCL New BankEntry
    
    [Function: FCL New BankEntry]
        Variable: BankLedName        : String
        Variable: JDate                : Date
        Variable: JledgerName        : String
        Variable: JCHQNo            : String
        Variable: JReceiptAmt        : Number
        Variable: JPaymentAmt        : Number
        Variable: JRemark            : String
    
        01    : Alter: FCL New BankEntry
        02    : If: $$LastResult
    
        10    :        New Object: Ledger : ##BankLedName
        11    :            Insert Collection Object: ReceiptDetailsAgg
        12    :                Set Value: LEDMDate            : ##JDate
        13    :                Set Value: LEDMParty        : ##JledgerName
        16  :                Set Value: LEDMCHQNo        : ##JCHQNo
        17  :                Set Value: LEDMDrAmt        : ##JReceiptAmt
        18  :                Set Value: LEDMCrAmt        : ##JPaymentAmt
        19  :                Set Value: LEDMRemark        : ##JRemark
        14    :            Set Target: ..
        15    :    Save Target
    
        100    : End If
     
    
    [Report: FCL New BankEntry]
        Forms: FCL New BankEntry
     
    [Form: FCL New BankEntry]
        Parts: FormSubTitle,FCL New BankEntry
        ;Height:100% Screen
            Width:40% Screen
            Local : Field : Form SubTitle : Info : $$LocaleString:"ADD NEW Entry"
            Local: Field:Form SubTitle    : Style    : Large SerIf Bold
            Local: Field:Form SubTitle    : Width    : 20
         
    [Part: FCL New BankEntry]
        Lines: FCL New BankLedName, FCL New BankDate,FCL New PartyName,FCL New BankCHQNo,FCL New BankReceiptAmt,FCL New BankPaymentAmt,FCL New BankRemark
        [Line: FCL New BankLedName]
            Fields: Medium Prompt, FCL New BankLedName
            Local: Field: Medium Prompt : Info: $$LocaleString:"Bank Name:"
            [Field: FCL New BankLedName]
                Use        : Name Field
                Set as    : ##BankLedName ;; $$Value
                Modifies: BankLedName
                Width    : 20% Screen
                Table    : LED DailyBank List100
                Show Table    :Always
             
        [Line: FCL New BankDate]
            Fields: Medium Prompt,FCL New BankDate
            Local: Field: Medium Prompt : Info: $$LocaleString:"Date :"
     
            [Field: FCL New BankDate]
                Use        : Uni Date Field
                Set as    : $$Value
                Modifies: JDate 
                Width    : 10% Screen
                Align    : Left
    
             
        [Line: FCL New PartyName]
            Fields: Medium Prompt,FCL New PartyName
            Local: Field: Medium Prompt : Info: $$LocaleString:"Party Name :"
     
            [Field: FCL New PartyName]
                Use        : Name Field
                Set as    : $$Value
                Table    : DailyBankLedgercollection
                Modifies: JledgerName
                Width    : 25% Screen
                Show Table    :Always
             
        [Line: FCL New BankCHQNo]
            Fields: Medium Prompt,FCL New BankCHQNo
            Local: Field: Medium Prompt : Info: $$LocaleString:"Cheque No :"
     
            [Field: FCL New BankCHQNo]
                Use        : Name Field
                Set as    : $$Value
                Modifies: JCHQNo
                Width    : 25% Screen
             
        [Line: FCL New BankReceiptAmt]
            Fields: Medium Prompt,FCL New BankReceiptAmt
            Local: Field: Medium Prompt : Info: $$LocaleString:"Receipt Amt (Dr) :"
     
            [Field: FCL New BankReceiptAmt]
                Use        : Number Field
                Set as    : $$Value
                Modifies: JReceiptAmt
                Width    : 25% Screen
                Skip     : IF $$IsLedOfGrp:#FCLNewPartyName:$$GroupSundryCreditors   then yes else NO
             
        [Line: FCL New BankPaymentAmt]
            Fields: Medium Prompt,FCL New BankPaymentAmt
            Local: Field: Medium Prompt : Info: $$LocaleString:"Payment Amt (Cr) :"
     
            [Field: FCL New BankPaymentAmt]
                Use        : Number Field
                Set as    : $$Value
                Modifies: JPaymentAmt
                Width    : 25% Screen
                Skip         : if $$IsLedOfGrp:#FCLNewPartyName:$$GroupSundryDebtors then Yes else No
             
        [Line: FCL New BankRemark]
            Fields: Medium Prompt,FCL New BankRemark
            Local: Field: Medium Prompt : Info: $$LocaleString:"Remark :"
     
            [Field: FCL New BankRemark]
                Use        : Name Field
                Set as    : $$Value
                Modifies: JRemark
                Width    : 25% Screen
             
     
    ;;============================================================================================
    
    [Button:FCL BankListA Alter]
        Title : Alter Entry
        Key : F8
        Action : Call: My New BankList Alter : ($$CollectionField:$Name:1:FCLCurrentaa) ;; Alter: My New Price Alter
    
    [Function:My New BankList Alter]
        Parameter: LedgerName : String
    ;;    01    : Query Box: ##LedgerName
        02    : Alter: My New BankList Alter
    
    [Report:My New BankList Alter]
    Form:BankDetailsReport
    Object:Ledger : ##LedgerName ;; @@SelectedPriceLedger
    Title:$$LocaleString:"New BankList"
    ;;Object:Company
    
    
    [System: Formulae]
        Selected PriceLedger : $$CollectionField:$Name:1:FCLParentCurrentaa
     
    [Collection: FCL CurrentAa]
        Data Source: Report: Current
        Native Method: *
    
    [Collection: FCL ParentCurrentAa]
        Data Source: Parent Report: Current
        Native Method: *
    
    ;===========================================================================================
    
    [Button:FCL DailyBankingA Filter]
        Title : Party List
        Key : F7
        Action : Execute: DailyBankingfilter1
    
    [Report:DailyBankingfilter1]
        Form : DailyBankingfilter1
    
    
    [Form:DailyBankingfilter1]
        Part :DailyBankingfilter1
        No Confirmation : Yes
    
    [Part:DailyBankingfilter1]
        Line : DailyBankingfilter1
    
        [Line:DailyBankingfilter1]
            Field : Medium Prompt,DailyBankingfilter1
            Local : Field : Medium Prompt : Set as : "Select Party Name: "
            Local : Field : Medium Prompt     : Color :Blue
            Local : Field : Medium Prompt : Style :Normal Bold
    
            [Field:DailyBankingfilter1]
                Set as: ##vDailyBanking
                Table : DailyBankLedgercollection500,EndOfList
                ShowTable : Always
                Use : Name Field
                Width : 22
                Border : Thin Box
                Modifies : vDailyBanking
    
    [Variable:vDailyBanking]
        Type : String
        Persistent: Yes
     
    
    [System:Variable]
        vDailyBanking : ""
    
    [System: Formulae]
        DailyBankingfilter1: IF $$IsSysName:##vDailyBanking Then 1=1 Else $LEDMParty = ##vDailyBanking
     
    
    [Collection: DailyBankLedgercollection500]
        Type        : Ledger
        Title        : "Party List"
        Fetch        : Name,LEDMDrAmt,LEDMCrAmt
        Include     : Group:$$GroupSundryDebtors, Group:$$GroupSundryCreditors
    
    
    [Collection: JennyLED MC SD100]
        Type: Ledger
        Include     : Group:$$GroupSundryDebtors, Group:$$GroupSundryCreditors
        Belongs To: Yes
    
    [Collection: JennyLED MultiContact List100]
        Source Collection: JennyLED MC SD100
        Walk: ReceiptDetailsAgg
        Title: "PARTY LIST"
        Native Method: Name,LEDMDate, LEDMParty, LEDMCHQNo, LEDMDrAmt, LEDMCrAmt, LEDMRemark
        Format: $LEDMParty, 30
     
    
    
        
    View attachment 5654 View attachment 5654 View attachment 5654
     


  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    try to objectify it in [#Object : Ledger]
     



  3. Dear Jenny, you had developed daily bank register is good tdl, but if you want to delete entry data then how to do, either we have to alter ?
    Another issue is i had to alter which one i had to select but show all .
     
    Last edited: Oct 7, 2019


  4. Jenny

    Jenny Active Member


    This code not full code..in my query that part i upload it..This code u can delete and alter also...
     



  5. Actually concept you had used in TDL is Appreciable.so if you can please share or send your full code on email: itcnepaltraders@gmail.com
     



  6. Concept I had used in my own TDL Sample Picture you can see
     

    Attached Files:

    • test.jpg
      test.jpg
      File size:
      464.5 KB
      Views:
      79
    bharat shah likes this.


  7. bharat shah

    bharat shah Member


    santosh dai
    can u send ur code to= bharatshah7048@gmail.com
     


Share This Page