ye load nhi ho raha can any one correct this code Code: [Collection: MyIntDaysDC] List : "Both Side", "Debit Side", "Credit Side" Title : "Which Side" [Collection: MyIntonBC] List : "Yes", "No" Title : "Yes/No" [System: UDF] MyDiscountDays: Number: 1007 MyIntRate : Number : 1008 MyIntDaysDC : String : 1009 MyIntonBC : String : 1010 ;;Modify the Part in the Default Tally TDL and add a new line [#Part: MST LED Details] Add: Line:vint Line, MyDiscountDays,MyIntRate,MyIntDaysDC,MyIntonBC ;;Line contains two fields ;;One to display caption and the other to accept user-input [Line: vint Line] Fields :vntfield Space Top : 0.4 [Field: vntfield] Set as : $$LocaleString:"Intrest Caluclation" Border : Thin Bottom Style : Normal Bold Skip : Yes [Line: MyDiscountDays] Field: Short Prompt, MyDiscountDays Local: Field: Short Prompt: Set as: "My Discount Days" [Line: MyIntRate] Field: Short Prompt, MyIntRate Local: Field: Short Prompt: Set as: "My Intreset Rate" [Line: MyIntDaysDC] Field: Short Prompt, MyIntDaysDC Local: Field: Short Prompt: Set as: "Caluclate Discount Days on" [Line: MyIntonBC] Field: Short Prompt, MyIntonBC Local: Field: Short Prompt: Set as: "On Opening Balance Also" ;;Field to accept User-input [Field: MyDiscountDays] Use: Number Field Storage: MyDiscountDays [Field: MyIntRate] Use: Number Field Storage: MyIntRate [Field: MyIntDaysDC] Use: Name Field Storage: MyIntDaysDC Table : MyIntDaysDC;, Not Applicable Show Table : Always [Field: MyIntonBC] Use: Name Field Storage: MyIntonBC Table : MyIntonBC Show Table : Always [#Menu: Gateway of Tally] Add : Key Item : Intrest : D : Display Collection : CMPLedCOLL [Collection: CMPLedCOLL] ;Collection : MyLed : My Company ;[Collection : My Led] Title : "List of Ledger" Type : Ledger;: Company ;Childof: ##SVCurrentCompany Belongs To : Yes Variable : GroupName Report : Leder int Report Trigger : Int Ledger Trigger Rep ; Align : Centre ; Filter : IsDebtor ;[Collection : MyCompany] ;Type : Company ;[System : Formula] ; IsDebtor : $$IsBelongsTo:$$GroupSundryDebtors ;;Trigger Report [Report : Int Ledger Trigger Rep] Use : Collection Variable Local : Line : Collection Variable : Add : Field : IntLedgerGroup Local : Field: MV Title : Info : "Name of Ledger" [Field: IntLedgerGroup] Use : Name Field Variable : GroupName Modifies : GroupName Table : CMPLedCOLL Show Table : Always [Report : Leder int Report] Variable : SVFromDate, SVToDate Set : SVfromDate : $BooksFrom:Company :##SVCurrentCompany Set : GroupName : ##GroupName Variable : IsMultiPage, InNewPages Set : IsMultiPage : yes Set : InNewPages : yes Set : SVToDate : ##SVCurrentdate Form : Vint Form [Form : Vint Form] Height : 100% Screen Width : 100% Screen BackGround : Lily White Space Top : If $$InPrintMode Then 0.5 Else 0 inches Button : PrintButton, ExportButton,F2 ChangePeriod Parts : Vint Tit,VintinfoReport Add : Bottom Part : DBCBDetailsvmv1 [Part : Vint Tit] Space Bottom : 0.2 inch Line : Vint Tit Line,VintDate,Vint Tit Line1,Vint Tit Line2 [Line : Vint Tit Line] Field : Vint Tit Field [Field : Vint Tit Field] Use : Name Field Set as : $Name:Company:##SVCurrentCompany Align : Center Full Width : Yes Style : Large Bold [Line : VintDate] Field:Vintpartyname,Vintpartyname1,VintFrmdateFld,vintFrmdateAns [Field:Vintpartyname Use:Name Field SetAs:"Party Name:-" Width:25 mms Style:Tiny [Field:Vintpartyname1] Use:Name Field SetAs:##GroupName ;Width:40 mms ;Style:tiny Border : Thin Box [Field :VintFrmdateFld] Use:Medium prompt Setas :"From Date:" Width :20 mms Style :Tiny [Field :vintFrmdateAns] ; Use :UniDateField Setas :$$String:##SVfromDate +" to " + $$String:##SVToDate Width :50 mms Align :Left Style :Tiny [Line : Vint Tit Line1] Field : Vint Tit Field1,Vint Tit Field8,Vint Tit Field11 [Field : Vint Tit Field1] Use : Name Field Set as : "INT Rate:" ; Align : Center ; Full Width : Yes Style :Tiny [Field : Vint Tit Field8] Set as :@@myintrates Style :Tiny [Field : Vint Tit Field11] Set as :"%" Style :Tiny [Line : Vint Tit Line2] Field : Vint Tit Field9,Vint Tit Field10 [Field : Vint Tit Field9] Set as :" Discount Days Caluclated on" Style :Tiny [Field : Vint Tit Field10] Set as :$MyIntDaysDC:Ledger:##GroupName Style :Tiny [Part : VintInfoReport] Line : VintcolumnTitles,VintcolumnTitles1,VintInfo Repeat : VintInfo : Vintcollection Scroll : Both Common Border : Yes Float : No Border : Thin Box Bottom Line:VinCOlTotals Total :VintDebit,VintCredit,VintDays,VintRebateDays,VintTotalDays,VintIntrest,VintIntrest2 [Line : VintColumnTitles] Border : Column Titles Fields : VintDate,VintParticulars,VintDebit,VintCredit,VintDays,VintRebateDays,VintTotalDays,VintIntrest,VintIntrest2 Local : Field : VintDate : Set as : "Date" Local : Field : VintParticulars : Set as : "Particulars" Local : Field : VintDebit : Set as : "Debit" Local : Field : VintCredit : Set as : "Credit" Local : Field : VintDays : Set as : "Total Days" Local : Field : VintRebateDays : Set as : "Rebate Days" Local : Field : VintTotalDays : Set as : "Count Days" Local : Field : VintIntrest : Set as : "Intrest on sales" Local : Field : VintIntrest2 : Set as : "Interst on Deposit" Local : Field : Default : Type : String Local : Field : Default : Style : Small Local : Field : Default : Align : Center [Line : VintColumnTitles1] Border : Column Titles Fields : VintDate,VintParticulars,VintDebit,VintCredit,VintDays,VintRebateDays,VintTotalDays,VintIntrest,VintIntrest2 Local : Field : VintDate : Set as : $$String:##SVfromDate Local : Field : VintParticulars : Set as : "Opening Balance" Local : Field : VintDebit : Set as : if $$IsDr:@@myob then @@myob else 0 Local : Field : VintCredit : Set as : if not $$IsDr:@@myob then @@myob else 0 Local : Field : VintDays : Set as : ##SVToDate - ##SVfromDate Local : Field : VintRebateDays : Set as : " " Local : Field : VintTotalDays : Set as : " " Local : Field : VintIntrest : Set as : @@abcde Local : Field : VintIntrest : Format : "DrCr" Local : Field : VintIntrest2 :set as : @@abcdef Local : Field : Default : Type : String Local : Field : Default : Style : Small Local : Field : Default : Align : Center [Line : VintInfo] Fields : VintDate,VintParticulars,VintDebit,VintCredit,VintDays,VintRebateDays,VintTotalDays,VintIntrest,VintIntrest2 ;Option : AlterOnEnter [Field : VintDate] ;Use : Number Field Set as : $Date Format : “Short Date†Width : 7% Screen Style : Normal [Field : VintParticulars] Use : Name Field Set as : $VoucherNumber + $Narration Width : 10% Screen Style : Normal Border : Thin Left [Field : VintDebit] Use : Amount Field Set as : if not $$IsDr:$Amount then 0 else $Amount Width : 10% Screen Style : Normal color : Red Border : Thin Left [Field : VintCredit] Use : Amount Field Set as : if $$IsDr:$Amount then 0 else $Amount Width : 10% Screen Style : Normal Color : Blue Border : Thin Left [Field : VintDays] ;Use : Amount Field Set as : ##Svtodate - $Date Width : 10% Screen Style : Normal Border : Thin Left [Field : VintRebateDays] Set as : if $$IsDr:$Amount then @@mydisountdays else "" Width : 10% Screen Style : Normal Border : Thin Left [Field : VintTotalDays] ;Use : Amount Field Set as : @@Totaldayscount Width : 10% Screen Style : Normal Border : Thin Left [Field : VintIntrest] Use : Amount Field Set as : if not $$IsDr:$Amount then 0 else ($Amount) * (@@Totaldayscount) /365 * @@myintrates % Format : "DrCr" Width : 10% Screen Style : Normal color : Red Border : Thin Left [Field : VintIntrest2] Use : Amount Field Set as : if $$IsDr:$Amount then 0 else ($Amount) * (@@Totaldayscount) /365 * @@myintrates % Format : "DrCr" Width : 7% Screen Style : Normal Color : Blue Border : Thin left [Line: VinCOlTotals] Use : VintColumnTitles Local : Field : VintDate : Set as: "" Local : Field : VintParticulars : Set as: "Grand Total" Local : Field : VintDebit : Set as: $$Total:VintDebit Local : Field : VintCredit : Set as: $$Total:VintCredit Local : Field : VintRebateDays : Set as:@@abcde + $$Total:VintIntrest - $$Total:VintIntrest2 Local : Field : VintDays : Set as: "Grand Interst" Local : Field : VintTotalDays : Set as: (@@abcde + $$Total:VintIntrest - $$Total:VintIntrest2 )/$$Total:VintDebit * 100 Local : Field : VintIntrest : Set as: if not $$IsDr:@@myob then @@abcde + $$Total:VintIntrest else $$Total:VintIntrest + @@abcde Local : Field : VintIntrest : Format : "DrCr" Local : Field : VintIntrest2 : set as : $$Total:VintIntrest2 [Part : DBCBDetailsvmv1] Line : DBCBDetailsvmvTL2,DBCBDetailsvmvTL1 ; Scroll : Vertical ; Height : 10 % Page [Line : DBCBDetailsvmvTL2] Field : myintabc,myintabc1,myintabc2 [Field: myintabc] Set as :"Party Closing Balance" + ": " [Field: myintabc1] Set as : $closingBalance:Ledger:##GroupName ; "Closing Balance " + $$InWords:(($closingBalance:Ledger:##GroupName)+0000) +" only" [Field: myintabc2] Set as : $$InWords:(($closingBalance:Ledger:##GroupName)+0000) +" only" Border : Thin Box [Line : DBCBDetailsvmvTL1] Field : Simple Field Local : Field : Simple Field : info :"LEARN WELL" ; "Closing Balance " + $$InWords:(($closingBalance:Ledger:##GroupName)+0000) +" only" Local : Field : simplefield : style : smallbold Local : Field : simplefield : width : 100 % Screen Local : Field : simplefield : background : Black Local : Field : simplefield : align : center Local : Field : simplefield : Fullwidth : yes Local : Field : simplefield : color : White Local : Field : simplefield : skip : yes Border : Thin Bottom [Collection : Vintcollection] Type : Vouchers Filter : vINTCAlu [System: Formula] vINTCAlu: $LedgerName = ##GroupName abcde : If $MyIntonBC:Ledger:##GroupName CONTAINS "Yes" then @@myobcal1 else 0 Format : "DrCr" abcdef : If $MyIntonBC:Ledger:##GroupName CONTAINS "Yes" then @@myobcal2 else 0 Format : "DrCr" mydisountdays : $MyDiscountDays:Ledger:##GroupName myintrates : $MyIntRate:Ledger:##GroupName myob : $OpeningBalance:Ledger:##GroupName myobcal1 : if $$IsDr:@@myob then (@@myob) * (##SVToDate - ##SVfromDate) / 365 * @@myintrates % else 0 myobcal2 : if not $$IsDr:@@myob then(@@myob) * (##SVToDate - ##SVfromDate) / 365 * @@myintrates % else 0 mytotal: $$Total:VintIntrest2 Totaldayscount : if $$IsDr:$Amount then ##Svtodate - $Date - @@mydisountdays else ##Svtodate - $Date
FORM mai niche ka button add karke aap agr kisi amount me intrest na lagana ho usee remove kar sakte ho Bottom ToolBar Button:BottomToolBarBtn8, BottomToolBarBtn9
