Dear All, I have a query that, i want to create a TDL, that helps me in generating invoices from sales orders, like i received order from customer for AMC (example) for 12 months, every month i need generate invoice seeing last month invoice (Alt+2 for duplicate invoice, save, send to customer). I want to avoid to look last month invoice, TDL gives me a pop up saying that this amc order is going to generate invoice, Yes / No, once if i yes, then automatically create one invoice. and also need control this generating invoice, that after 12 months of contract, generating invoices should be stopped and gives a pop up or list of orders which are going to expired. Please help in this, give ideas for creating TDL. Thanks in advance Regards
Hello, You can give a number at ledger level or at voucher level for number of months/times for contract to generate invoices example 12 for 12 months. On that basis create generate multiple references with dates in single sales order. Trigger that reference on Tally start Even each day to get list of invoices to generate your that days invoice. Hope this is clear. This thing we did it for sales invoice. We generated multiple references in sales voucher as client is receiving multiple payments against single sales every month on specific date. Thanks! http://www.aaradhyaasolutions.in/
Dear Aaradhya, Thanks for information.. can you please elaborate it how to do it in TDL. (steps) Thanks..
Hi Vijay, Try this steps. Step 1 : Add a UDF in Party Ledger Master that is Number for times or months Step 2 : on system start event check that, is first date of month.? or Previous entry date.? Fetch that particular date orders party wise now check how many entries already passed in party wise if not greater then equal to number of times or month, then create a sales invoice for that particular party with order reference
Dear Sir, Im unable to get the QTY and RATE my customized Purchase Invoice, Please help me and correct my TDL Code: [#Form: Comprehensive Invoice] Parts : STDInvoiceTop, EXPINV OpPageBreak, EXPINV Details BottomParts : EXPINV Totals , EXPINV SignOff , EXPINV Customer, EXPINV Jurisdiction, EXPINV InvoiceCompGen ; Width : @@InvWidth Inch ; Height : @@InvHeight Inch ; Space Top : @@InvSpace inch ; Space Right : 0.5 inch ; Space Left : @@InvSpaceLeft inch ; Space Bottom: 0.25 inch Page Break : EXPINV ClPageBreak, EXPINV OpPageBreak Option : Dealer ExcisePurchaseInvoice : (@@IsExciseTraderOn AND (@@IsPurchase OR @@IsDebitNote) AND @@IsTraderInvoice AND ##PUDealerExciseDutyInfo) Option : STX Comprehensive Invoice : @@IsIndianServiceTax AND $$STXCanUpdateDutyLed Option : Invoice Bank Info Fetch : ##SABankInfo AND NOT $$IsSysName:##SABankName ;; When Sales Bill is made in Voucher mode, while printing sales ledger is also getting printed Set Always : SVViewName : $$SysName:InvVchView Delete arts : STDInvoiceTop, EXPINV OpPageBreak, EXPINV Details Delete :BottomParts : EXPINV Totals , EXPINV SignOff , EXPINV Customer, EXPINV Jurisdiction, EXPINV InvoiceCompGen Add: Top Parts : INV;,EXPSMPtitle1 Height : 100% Page Width : 100% Page Space Top : 0.25 inch Space Right : 0.25 inch Space Left : 0.5 inch Space Bottom: 0.5 inch [part : INV] ;Line :RMCmpName,INVS, TRWK,RMCmpAdd, MIComPhone,MIVATTINNumber Line :RMCmpName,INVS, TRWK,RMCmpAdd,MIVATTINNumber,CSTN Repeat : RMCmpAdd:Company Address Line : MI VCHDate,MI PartyName;, MI ColumnTitles Add: Line: MIQuantity Add: Line: MI rate Add: Line: IE Amount , MI AmtInWords Add: Line: Global ForCmp1 Add: Line: INCDetails Border: MyBorder ; [Border: MyBorder] Top : Flush, Thin, Full Length Bottom : Flush, thin, full length Left : Thin Right : Flush, Thin, Full Length [Border: MyBorder1] ;Top : Flush, Thin, Full Length Bottom : Flush, thin, full length ;Left : Thin ;Right : Flush, Thin, Full Length [Line :INVS] Field: INVS [Field: INVS] Set as : "BOUGHT NOTE" Style : newSTY2 Align : Center FullWidth : Yes [Line :TRWK] Field: TRWK [Field: TRWK] Set as : "Trading To Waste Kraft Boxes" Style : newSTY2 Align : Center FullWidth : Yes [Line: RM CmpName] Fields : RMcmpname [Field : RMCmpName] Set as @CmpMailName Align : Center FullWidth : Yes Style : newSTY1 [Line : RMCmpAdd] Fields : RMCmpAdd [Field : RMCmpAdd] Set as : $Address Align : Center FullWidth : Yes Style : newSTY1 /* [Line: MI ComPhone] Field : MI ComPhone [Field: MI ComPhone] Use : Name Field Set as : $phonenumber:Company:##SvCurrentCompany Indent : 10 */ [Line: MI VATTINNumber] Left Fields: Short Prompt, MI VATTINNumber ;Right Fields: Short Prompt, CSTN Local : Field : Short Prompt : Set as : "TIN No:" ;Local : Field : Short Prompt : Set as : "GST : " [Field : MI VATTINNumber] Use : Name Field Set as : $VATTINNUMBER:Company:##SvCurrentCompany ;FullWidth : yes Style : pp6 Align : Center [Line: CSTN] Right Fields: Short Prompt, CSTN Local : Field : Short Prompt : Set as : "CST.N : " [Field : CSTN] Use : Name Field Set as : $InterstateStnumber:Company:##SvCurrentCompany ;FullWidth : yes Style : pp6 Align : Center [Line: MI VCHDate] Field : Simple Prompt, MI VCHNo Right Field : Short Prompt, MI VCHDate Local : Field : Short Prompt : Set as : "Voucher Date : " Local : Field : Simple Prompt : Set as : " Voucher No : " Border: MyBorder1 [Field: MI VCHDate] Use : Short Date Field Set as : $Date [Field: MI VCHNo] Use : Short Name Field Set as : $VoucherNumber [Line: MI PartyName] Space Top: 1 Field : Short Prompt, MI PartyNAme Local : Field : Short Prompt : Set as : "Purchaser: (Name & Vehical No: " [Field: MI PartyName] Use : Name Field Set as : $PartyLedgerName ;Set as: $BuyerName [Line: MIQuantity] Space Top: 1 Field : Short Prompt, IE Qty Local : Field : Short Prompt : Set as : "Quantity: " ;[Field: MIQuantity] /*Use : Qty Primary Field ;Number Field ;; ;Use : Qty Primary Field Set as : $BasicQty Format : "NoSymbol,Primary" */ [Field : IE Qty] ;Use : Qty Primary Field Use: Number Field Set as : $BilledQty ;Border : Thin Left [Line: MI rate] Space Top: 1 Field : Short Prompt, MI rate Local : Field : Short Prompt : Set as : "Unit Price: " ;Explode : Item Desc : $$NumItems:UserDescription > 0 [Field : MI rate] ;Use : Rate Field ;Border : Thin Left ;Rate Units Field ;Use: Number Field ;Set as : $Rate Use : Rate Price Field Set as : $Rate [Line: IE Amount] Space Top: 1 Field : Short Prompt, IE Amount Local : Field : Short Prompt : Set as : "Amount: " [Field : IE Amount] Use : Amount Field Set as : $Amount ;Border : Thin Left Right Format : "NoComma,NoZero" ;FullWidth : yes [Line: MI AmtInWords] Space Top: 1 Field : Short Prompt, MI AmtInWords Local : Field : Short Prompt : Set as : "Rs: " [Field : MI AmtInWords] Use : Name Field Set as : $$InWords:$Amount FullWidth : yes Style : Small [Line: Global ForCmp1] Space Top: 2 Right Fields: Global ForCmp1 Space Bottom: 2 [Field: Global ForCmp1] Use : Name Field Set as : "For " + @@CMPMailNAme Align : Right Width : 0 [Line: INCDetails] Space Top: 1 Field : INCDetails ;Local : Field : Short Prompt : Set as : "Purchaser tax Shall be paid bythe Purchaser" [Field: INCDetails] Style : Normal1 Set as: "Purchaser tax Shall be paid bythe Purchaser" /*[Collection:VCHCollection] Type: Stock Item */ [System: Formula] LargeSize : 14 SmallerSize : 6 ;******************** Cardinal styles ********************; [Style: Normal1] ;; for linux face name is changed Font : if $$SysInfo:IsWindows then "Arial" else "Helvetica" Bold: Yes Height : @@LargeSize
