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
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 .
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