pl help me in this tdl & this tdl was recd from net surfing. ok .................................... Code: [#Menu: Gateway of Tally] Add : Key Item : Before : @@locQuit : PSJAIN Menu : I : Menu : PSJAINDevpLang Item : Blank [Menu: PSJAINDevpLang] Item : Blank Key Item : Ledger Voucher Extration : T : Alter : FPVoucherExtraction Item : Blank Title : "PSJAIN Basic Reports" ;Control : "User Defined Fields" : NOT $$IsFPCompany ;; Include Files - TDL - The Development Language [Report: FPVoucherExtraction] ;; Auto Report Form : FPLedVoucherExtraction Title : $$LocaleString:"Extraction of Vouchers of Ledger" ;Auto : Yes [Form: FPLedVoucherExtraction] No Confirm : No Space Top : 1 Space Left : 1 Space Right : 1 Space Bottom : 1 Option : Medium Size Form Full Width : No Full Height : No Vertical Align : Centre Parts : Led Master Extract Title, Led Master Extract Details On : Form Accept : Yes : Call : FPProcessVouchers Local : Field : Led Master Extract Name : Modifies : FPSVSelectedLedger : Yes Local : Field : Led Master Extract Name : Variable : FPSVSelectedLedger [Part: Led Master Extract Title] Lines : Led Master Extract, Led Master Extract Info [Line: Led Master Extract] Fields : Form Sub Title Space Bottom : 0.25 Local : Field : Form Sub Title : Info : $$LocaleString:"Extraction of Vouchers of Ledger" [Line: Led Master Extract Info] Field : Simple Field Space Bottom : 0.25 Local : Field : Simple Field : Info : $$LocaleString:" Select Ledger from Table" Local : Field : Simple Field : Full Width : Yes Local : Field : Simple Field : Align : Centre [Part: Led Master Extract Details] Lines : Led Master Extract Name [Line: Led Master Extract Name] Field : LedMedium Prompt, Led Master Extract Name [Line: LedNextLine] Field : Led Master Extract Name [Field : LedMedium Prompt] Info : $$LocaleString:"Ledger to Extract From :" Skip : Yes Width : 30 [Field: Led Master Extract Name] Use : Name Field Table : FPLedgerList, EndOfList ;Set as : ##FPSvSelectedLedger Show Table : Always Modifies : FPSvSelectedLedger Variable : FPSvSelectedLedger Width : 30 [Collection: FPLedgerList] Use : Alias Collection Type : Ledger Title : $$LocaleString:"List of Ledgers" Fetch : Name [Report: FPLedReport] Form : LedReportForFP Variable : SVFromDate, SVToDate Title : "Basic Report to Show Voucher Extraction from a Ledger" ;Set : SVFromDate : ##SVCurrentDate ;Set : SVToDate : ##SVCurrentDate ;; Name and Closing Balnce needs to be fetched from Server Local : Collection : FPLedVchColl : Fetch : Amount, LedgerName, IsDeemedPositive, PartyLedgerName, Date, Narration, GUID, MasterId, [Form: LedReportForFP] Width : 100% Screen Parts : LedReportForFP Button: ExportButton, ChangePeriod Option : Alter on Enter Option : DisplayOnAltEnter [Part: LedReportForFP] Lines : LedReportForFPTitle, LedReportForFPDetails Bottom Lines : FPLedTotals Repeat : LedReportForFPDetails : FPLedVchColl Scroll : Vertical Common Borders : Yes Border : Thin Bottom Total : LedVchDrAmt, LedVchCrAmt [Line: LedReportForFPTitle] Use : LedReportForFPDetails Local : Field : Default : Type : String Local : Field : LedVchDate : Set as: "Vch. Date" Local : Field : LedVchDate: Align: Left Local : Field : LedVchDate: Style: Normal Serif Bold Local : Field : LedVchNo : Set as: "Vch. No." Local : Field : LedVchNo: Align: Left Local : Field : LedVchNo: Style: Normal Serif Bold Local : Field : LedVchType : Set as: "Voucher Type" Local : Field : LedVchType: Align: Left Local : Field : LedVchType: Style: Normal Serif Bold Local : Field : LedVchName : Set as: "Ledger Name" Local : Field : LedVchName: Align: Left Local : Field : LedVchName: Style: Normal Serif Bold Local : Field : LedVchNarr : Set as: "Narration" Local : Field : LedVchNarr: Align: Left Local : Field : LedVchNarr: Style: Normal Serif Bold Local : Field : LedVchPartyName : Set as: "Party Name" Local : Field : LedVchPartyName: Align: Left Local : Field : LedVchPartyName: Style: Normal Serif Bold Local : Field : LedVchDrAmt: Set as: "Dr Amount" Local : Field : LedVchDrAmt: Style: Normal Serif Bold Local : Field : LedVchCrAmt: Set as: "Cr Amount" Local : Field : LedVchCrAmt: Style: Normal Serif Bold Border : Column Titles [Line: FPLedTotals] Use :LedReportForFPDetails Local : Field : Default : Type : String Local : Field : Default : Style : Normal Serif Bold Local : Field : Default : Align : Left Local : Field : LedVchDrAmt: Set as: $$Total:LedVchDrAmt Local : Field : LedVchCrAmt: Set as: $$Total:LedVchCrAmt Local : Field : LedVchDrAmt : Align : Right Local : Field : LedVchCrAmt : Align : Right ;Local : Field : fRNNDbOutAmount : Invisible : Border : Flush Totals Fixed : Yes Space Top : 1 Height : 1.5 [Line: LedReportForFPDetails] Fields : FPVchMasterId, LedVchDate, LedVchNo, LedVchType, LedVchName, LedVchPartyName, LedVchNarr Right Fields: LedVchDrAmt, LedVchCrAmt Border: thin Bottom Option : Alter on Enter Option : DisplayOnAltEnter [Field: FPVchMasterId] Use : Name Field Set as : $$SPrintF:@@VCHMasterID:$MasterId Variable : VchMasterID Invisible : Yes [Field: LedVchType] Use : Name Field Set as : $VoucherTypeName Style : Normal Serif Align: Left Width: 8 Border : thin Left [Field: LedVchDate] Use : Short Date Field Set as : $Date Style : Normal Serif Align: Left Width: 8 Border : thin Left Display : Voucher : $$IsVoucher AND NOT $IsDeleted [Field: LedVchNo] Use : Name Field Set as : $VoucherNumber Style : Normal Serif Align: Left Width: 6 Border : thin Left [Field: LedVchName] Use : Name Field Set as : $LedgerName Style : Normal Serif Align: Left Width: 25 Border : thin Left [Field: LedVchNarr] Use : Name Field Set as : $Narration Style : Normal Serif Align: Left Width: @@NarrWidth Border : thin Left [Field: LedVchPartyName] Use : Name Field Set as : If $$IsEmpty:$PartyLedgerName then $PartyName else $PartyLedgerName Style : Normal Serif Align: Left Width: 25 Border : thin Left [Field: LedVchDrAmt] Use : Amount field Set as : If $IsDeemedPositive then 0 else $Amount ; Border : Thin Left Style : Normal Serif Border : thin Left [Field: LedVchCrAmt] Use : Amount field Set as : If $IsDeemedPositive then $Amount else 0 Border : Thin Leftright Style : Normal Serif ;; End-of-File [Collection:FPLedgerVouchers] Type : Vouchers:Ledger Child of : ##FPSvSelectedLedger Fetch : *, LedgerEntries.* ;, CategoryAllocations.*, CostCentreAllocations.* ;Filter : FPSelectedLedgerFilter Belongs To: Yes [System:Formula] FPSelectedLedgerFilter : $LedgerName = ##FPSVSelectedLedger [System: Variable] Variable :FPSvSelectedLedger List Variable : SelectedLedVouchers [Variable: SelectedLedVouchers] Variable: GUID: String Variable: MasterId: Long Variable: VoucherTypeName:String Variable: Date:Date Variable: VoucherNumber : String Variable: LedgerName: String Variable: PartyLedgerName:String Variable: PartyName: String Variable: Narration: String Variable: IsDeemedPositive:Logical Variable: Amount:Amount [Function: FPProcessVouchers] Variable: ProgressCount : Number Variable: VcMasterId : Long Variable: VchTypeName: String Variable: VchNumber: String Variable: VchNarr: String Variable: VchDate: Date Variable: VchGUID: String ; 10 : START PROGRESS : ($$NumItems:FPLedgerVouchers) : "Reading" : "Excel File" 15 : LIST DELETE Ex: SelectedLedVouchers 16 : Set: ProgressCount : 1 20 : WALK COLLECTION : FPLedgerVouchers 25 : Set: VcMasterId : $MasterId 26 : Set: VchTypeName : $VoucherTypeName 27 : Set: VchDate : $Date 28 : Set: VchNarr : $Narration 29 : Set: VchGUID : $GUID 30 : WALK COLLECTION : LedgerEntries 40 : IF : NOT $LedgerName = ##FPSvSelectedLedger ;60 : Log: $$String:##ProgressCount+ "--"+ "Not Matched" + " -- " + ##FPSvSelectedLedger +" -- " + $LedgerName + $$String:$Amount +" -- "+ $$String:$IsDeemedPositive ;70 : ELSE ;80 : Log: $$String:##ProgressCount+ "--"+ "Matched" + " -- " + ##FPSvSelectedLedger +" -- " + $LedgerName + $$String:$Amount+" -- "+$$String:$IsDeemedPositive 110 : LIST ADD EX: SelectedLedVouchers 120 : SET: SelectedLedVouchers[##ProgressCount].MasterId: ##VcMasterId 130 : SET: SelectedLedVouchers[##ProgressCount].VoucherTypeName : ##VchTypeName 140 : SET: SelectedLedVouchers[##ProgressCount].Date : ##VchDate 150 : SET: SelectedLedVouchers[##ProgressCount].LedgerName : $LedgerName 160 : SET: SelectedLedVouchers[##ProgressCount].PartyLedgerName : $PartyLedgerName 170 : SET: SelectedLedVouchers[##ProgressCount].Narration : ##VchNarr 175 : SET: SelectedLedVouchers[##ProgressCount].IsDeemedPositive: $IsDeemedPositive 180 : SET: SelectedLedVouchers[##ProgressCount].Amount:$Amount 190 : SET: SelectedLedVouchers[##ProgressCount].VoucherNumber:$VoucherNumber 195 : Set: SelectedLedVouchers[##ProgressCount].GUID:##VchGUID 200 : SET: ProgressCount : ##ProgressCount + 1 210 : END IF 220 : END WALK ; 320 : SHOW PROGRESS : ##ProgressCount 340 : END WALK ; 350 : END PROGRESS ;360 : MSGBOX : "Status" : "Process completed successfully!!" 370 : Display : FPLedReport ;380 : LIST DELETE Ex: ImportStatusGroups 390 : RETURN : TRUE [Collection: FPLedVchColl] Data Source : Variable : SelectedLedVouchers [Variable: FPSvSelectedLedger] Type: String Set Always: Yes I wanted only Display & Printing in this format as shown in SCreen Shoot in Mutil accounting printing options. PL help me this matterrrrrrrrrrrrrrrrrr Pankaj jain
