Dear Admin & All, Kindly help me in finding a logic for scenario, where a product (CD/DVD, Books, Room, Bed etc.) is taken for rent for few days. I would like to know at any moment of time, a product's availability. We make invoices, when the product object is returned with rent, late fees, damage, room service etc. Does this require customisation or can it be handled in Tally? Regards Vinod
Thank you sir. But I'm trying to find a solution without customisation, that could solve at least 80% problem.
You need to Enter two kind of Vouchers. One is for inventory Control One is for Booking of your income. Let us take an example you are renting CD to me . For the First you need to Create Item CD-Film Name The you need to create a ledger in my name under debtors and a godown with an option 'our stock with third party'. Both must be same name for easy understanding. When you rent me cd you can enter a matrial out voucher and when cd is returned you can enter material in voucher. For charging rent charges you can create service invoice also.
Thank you sir. This is what I was looking for. So when we create an service invoice, there will be no Stock item information in that. If required, that information we would have to customise it, isn't it? When CD is rented, only one voucher is necessary i.e. Material Out, when CD is returned two vouchers are needed i.e. Material In and Sales vouchers. I could not understand the line "Both must be same name for easy understanding". Could help me more by explaining this?
Yes Absolutly Right. What I said, if we keep both godown name and Ledger Name is same name;it will reduce the chance of error. to find out a particular cd is lying with which customer we can know from default stock report of tally. Enable option Stock with third party and filter the name of CD
Sir, Ok I got it. You mean to say for every customer we create, a corresponding godown is also to be created with the same name, so as to find which CD is with which customer. We also have to create another godown for our office, to which the CD is returned. Will more no. of godowns affect Tally's performance in any way? I hope I have understood it right. Isn't it Sir?
yes pls find attachment ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [#form :sales color] delete rint rinted invoice print : BIS Invoiceyaa [report :BIS Invoiceyaa] object :voucher filtered: yes form :BIS Invoiceyaa [form :BIS Invoiceyaa] height : 280 mms width :204 mms space left :10 mms space right : 10 mms space top :2 mms space bottom : 5 mms horizontal align :center parts :raminvtop, raminvbody bottom parts : EtainvBottom Page Break : adsvchCIBreak, adsvchPBreak [Part : adsvchPBreak] Parts :raminvtop Vertical : Yes [Part : adsvchCIBreak] BottomParts : adsvchPageBreak Vertical : Yes [Part : adsvchPageBreak] Lines : adsvchPageBreak ;Height : 62 MMS [Line : adsvchPageBreak] Right Fields : Info Field Local : Field : Info Field : Info : "continued ..." ;Space Top : 10 MMS Local : Field : Info Field : Space Right : 10 MMS [part :raminvtop] parts :raminvtop1,raminvtop4,raminvtop5, raminvtop7 ;RightParts : raminvtop5r ;raminvtop3 vertical :yes [part :raminvtop1] lines :raminvconame,raminvcoadd1 Repeat : raminvcoadd1: Company Address ;height : 8 mms ;border :thinbox [line :raminvconame] fields :raminvconame space top :2 mms [field :raminvconame] ;Info : "" set as @cmpmailname full width :yes align :center style : Salesfontaa [line :raminvcoadd1] fields :raminvcoadd1 ;space top :2mms ;,raminvcoadd2 [field :raminvcoadd1] set :$address ;space left : 15 mms ;height :20 mms fullwidth :yes align :center style : normal [part :raminvtop4] lines :raminvadd3 ;;lines :raminvadd3,raminvadd341 ;height :22 mms [line :raminvadd3] fields :raminvadd3 ;right fields :raminvgstinfo space top: 5 mms [line :raminvadd341] fields :raminvadd3123 space top: 5 mms [field :raminvadd3123] set as : "" fullwidth : yes align :center style : normal [field :raminvadd3] ;info : "INVOICE" ;set as : if @@IsInvVch then "INVOICE" else if @@IsOptionalStatus then "QUOTATION" SET AS : if @@IsOptionalStatus then "QUOTATION" else " INVOICE" fullwidth :yes align :center style :large serif bold Border : thin bottom [part :raminvtop5] rightparts :raminvtop5l parts :raminvtop5r vertical :no ;height : 50 mms [part :raminvtop5l] lines :raminvno,raminvdt,raminvgst,raminvgstgg,raminvlorry ;;lines :raminvno,raminvdt,raminvgst ;raminvlorry ;raminvinfo2 [line :raminvno] fields :raminvnoinfo,raminvno Space top : 1.5 mms ;raminvgst [field :raminvnoinfo] ;SET AS : if @@IsOptionalStatus then "QUOTATION NO :" else "No. " INFO : "Invoice No :" ;Space top : 2 MMS Width : 40 MMS STYLE :ERfontss align : left [field :raminvno] set as :$vouchernumber STYLE :ERfontss Width : 30 MMS align :left [Line : raminvinfo1] Field : raminvinfo1,raminvinfo1d Space top : 2.5 mms [Field : raminvinfo1] Info : "Your Po approved No :" Width : 40 MMS align : left [Field : raminvinfo1d] set as:$PurchaseOrderNo align :left Width : 30 MMS [line :raminvdt] fields :raminvdtinfo,raminvdt Space top : 2.5 mms [field :raminvdtinfo] INFO : "Invoice Date :" Width : 40 MMS align : left [field :raminvdt] set as :$date align :left [line :raminvgst] fields :raminvgstinfo,raminvgstx Space top : 2.5 mms ;raminvgst ;[Line : raminvinfo2] ;field : raminvinfo2 ;[Field : raminvinfo2] ;Info : "" ;Width : 50 MMS [field :raminvgstinfo] INFO : "Sales Rep :" Width : 40 MMS align : left [field :raminvgstx] ;;set as :$reference set as :$DueDateOfPymt align :left [line :raminvgstgg] fields :raminvgstinfogg,raminvgstxgg Space top : 2.5 mms ;raminvgst [field :raminvgstinfogg] INFO : "Delivery To :" Width : 40 MMS align : left [field :raminvgstxgg] set as :$OrderTerms ;;;set as :$DueDateOfPymt align :left [line : raminvlorry] fields : raminvlorryinfo, raminvlorry Space top : 2.5 mms ;border : thick TOP [field : raminvlorryinfo] ;style : NORMAL Bold Width : 40 MMS align : left [Field : raminvlorry] align : left [part :raminvtop5r] lines :raminvbuyinfo, raminvbuydet, raminvbuyadd Repeat : raminvBuyadd : partyAddress width : 50% page ;,raminvbuyname [line :raminvbuyinfo] fields :raminvbuyinfo Space top : 2.5 mms [field :raminvbuyinfo] INFO : "Customer Name:" STYLE : NORMAL BOLD [Line : raminvbuydet] Field : raminvbuydet pace top : 2.5 mms [field : raminvbuydet] Set as : $ledgerName Space Left : 10 MMS ;;STYLE : small bold STYLE :ERfontss FULL WIDTH: YES [Line : raminvbuyadd] Field : raminvbuyadd [Field : raminvbuyadd] Set as : $Address Space Left : 10 MMS ;STYLE: SMALL BOLD FULL WIDTH: YES [Line : vat] Field :raminvbuyaddlf, raminvbuyaddl space top : 2 mms [Field : raminvbuyaddlf] Set as :"Customer Vat No : " [Field : raminvbuyaddl] Set as : $SALESTAXNUMBER:ledger:$ledgerName Space Left : 10 MMS ;STYLE: SMALL BOLD FULL WIDTH: YES [Part : raminvtop7] Line : raminvDestitle Height : 9 MMS Border : YCSBorder CommonBorder : yes [Border : YCSBorder] Top : Thick, Double Lined Bottom : Thick [Line : RAMINVDesTitle] Fields : RAMINVItemNoT,RAMINVDescT Explode : RaminvUserDesc : not $$isEmpty:$stockItemName and ##ICFAdd1Desc Right Fields : RAMINVItemNoTo,RAMINVQtyTaa,www ,RaminvRateT, RAMINVDiscT, RAMINVInvAmtT Space Top : 2 MMS [Field : RAMINVItemNoT] Info : "No." Width : 15 MMS Align : Center style: normal bold [Field : RAMINVItemNoTo] ;Info : "." Width : 20 MMS Align : Center [Field : RAMINVDescT] Info : "Description " FullWidth : Yes Align : LEFT style: normal bold [Field : www] Info : "InvQty" ;;Align : Right Align : Center Width : 20 MMS style: normal bold [Field : RAMINVQtyTaa] Info : "Free Qty" Align : Center ;;Align : Right Width : 20 MMS style: normal bold [Field : RAMINVRateT] Info : "Price" Align : Center Width : 25 MMS style: normal bold [Field : RAMINVDiscT] Info : "Discount" Align : Center ;;Align : Right Width : 18 MMS style: normal bold [Field : RAMINVInvAmtT] Info : "Amount" ;;Align : Right Align : Center Width : 27 MMS style: normal bold [Part : RAMINVBody] Parts : RAMINVInvDet Option : RAMINVAccInfo : Not $$SetNo = 4 Vertical : Yes Scroll : Vertical Float : No ;;Thin Left Right ;Border : Thin Bottom [!Part : RAMINVAccInfo] Add : Parts : RAMINVAcctDet [Part : RAMINVInvDet] Lines : RAMINVInvDet ;;Option : RAMINVSubTot : Not $$SetNo = 4 Repeat : RAMINVInvDet : Inventory Entries Scroll : Vertical Total : RAMINVInvAmt ;[!Line : RAMINVSubTot1] ;Add : Lines : RAMINVSubTot [Line : RAMINVInvDet] Fields : RAMINVItemNo,RAMINVDesc Right Fields : RAMINVItemNoo,RAMINVQtyaaaaa,bbb,RaminvRate,RAMINVDiscsss, RAMINVInvAmt Explode : RAMINVUserDesc : NOT $$IsEmpty:$StockItemName AND ##ICFGAddlDesc Space Top : 1 MMS [Field : RAMINVItemNo] Set as : $$Line ;;If $$IsEmpty:$PartNo:StockItem:$StockItemName then $AliasName:StockItem:$StockItemName else $PartNo:StockItem:$StockItemName Width : 15 MMS ;;Space Left : 2 MMS Align : Center [Field : RAMINVItemNoo] Set as : $PartNo:StockItem:$StockItemName ;;If $$IsEmpty:$PartNo:StockItem:$StockItemName then $AliasName:StockItem:$StockItemName else $PartNo:StockItem:$StockItemName Width : 20 MMS ;;Space Left : 2 MMS Align : Center [Field : RAMINVDesc] ;SET AS :$DESCRIPTION:StockItem:$StockItemName Set as : $StockItemName Space Left : 2 MMS ;Align : Left Style : Normal ;BORDER : THIN BOTTOM [Field : bbb] Use : Qty Primary Field Set as : $BilledQty Width : 20 MMS Style : Normal [Field : RAMINVDiscsss] Use : Number Field Set as : $Discount Format : "NoZero,Percentage" Invisible : $$SetNo = 4 Width : 18 MMS Align : Center ;;;Invisible : NOT @@IsInvoice OR (NOT @@InvWithRate AND NOT @@InvWithAmt) OR (NOT $$IsDiscountsOn AND NOT $HasDiscounts) Style : Normal [Field : RAMINVRate] Use : Rate Price Field Set as : $Rate Width : 25 MMS ;Invisible : $$SetNo = 4 Style : Normal Format : "Forex" [Field : RAMINVInvAmt] Use : Amount Forex Field Set as : $Amount Width : 27 MMS Format : "NoSymbol" Style : Normal ;Invisible : $$SetNo = 4 [Field : RAMINVQtyaaaaa] Use: Qty Field Set As: $ActualQty - $BilledQty Width : 20 MMS Style : Normal [Part : RAMINVAcctDet] Lines : RAMINVAcctDet Repeat : RAMINVAcctDet : LedgerEntries [Line : RAMINVAcctDet] Fields : RAMINVAccSp, RAMINVAccSign, RAMINVAccQua, RAMINVAccName Right Fields : RAMINVAccDue, RAMINVAccQty, RAMINVAccRate, RAMINVAccPer, RAMINVAccAmt Space Top : 2 MMS [Field : RAMINVAccSp] Info : "" Width : 12 MMS [Field : RAMINVAccSign] Use : Logical Field Set as : ($IsDeemedPositive = @@VchSign) OR ($Amount < 0) Invisible : Yes Set always : Yes Skip : Yes [Field : RAMINVAccQua] Use : Simple Field Set as : if #RAMINVAccSign then "" else "" Style : Small Italic ;Width : 20 MMS Space Left : 2 MMS Align : Left [Field : RAMINVAccName] ;Set as : if NOT $$IsSysName:$LedgerName then $LedgerName else "" Style : Normal bold Italic Align : Right FullWidth : Yes Space Right : 3 MMS [Field : RAMINVAccDue] Info : "" Width : 20 MMS ;Border : Thin Left [Field : RAMINVAccQty] Info : "" Width : 20 MMS [Field : RAMINVAccRate] Use : Rate Price Field Type : Number Align : Right Format : "NoZero,Decimals:-1" Style : Normal Italic Set as : $RateOfInvoiceTax Inactive : $$IsSysName:$LedgerName invisible : yes ; Invisible : not@@InvwithRate Width : 12.5 MMS [Field : RAMINVAccPer] Use : Rate Units Field Type : String Align : Left Style : Normal Italic Set as : if $$IsEmpty:$RateOfInvoiceTax then "" else "" Inactive : $$IsSysName:$LedgerName Invisible : NOT @@InvWithRate Width : 12.5 MMS [Field : RAMINVAccDisc] Info : "" Width : 16 MMS [Field : RAMINVAccAmt] Use : Amount Forex Field Set as : $Amount Width : 30 MMS Format : "NoSymbol" Style : Normal Invisible :YES [Part : RaminvUserDesc] Line : RaminvUserDesc Repeat : RaminvUserDesc : UserDescription [Line : RaminvUserDesc] Fields : RaminvUserS,RaminvUserDesc [Field : RaminvUserS] Info : "" Width : 12 MMS [Field : RaminvUserDesc] set as : $UserDescription Style : small bold Space Left : 15 MMS [Part : EtainvBottom] Parts : EtainvInvDet1, EtainvInvDet2,ST ;; Parts : EtainvInvDet1, EtainvInvDet2,ST Height : 85 mms Vertical : Yes ;BORDER : THIN BOX [Line : RAMINVSubTot] Right Fields : RAMINVSubTot Space Top : 2 MMS Space Bottom : 2 MMS [Field : RAMINVSubTot] Use : Amount Forex Field Set as : $$Total:RAMINVINVAmt ;Invisible : $$SetNo = 4 Width : 30 MMS Inactive : ($$NumItems:InventoryEntries = 1) OR ($$IsSysName:$$CollectionField:$LedgerName:2:LedgerEntries) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Border : Thin Top : ($$NumItems:InventoryEntries > 1) AND (NOT $$IsSysName:$$CollectionField:$LedgerName:2:LedgerEntries) Skip : Yes Style : normal Bold ; Invisible : NOT @@InvWithAmt Format : "NoSymbol" [Part :EtainvInvDet1] Line : EtainvSubTot [Line : EtainvSubTot] Left fields :ttyyya,shvyya Right Fields : EtainvSubTotx,EtainvSubTot BORDER : THIN BOX [Field : EtainvSubTotx] info:"GRAND TOTAL" style: Salesfonta [Field : EtainvSubTot] Use : Amount Forex Field Set as : $$Total:RAMINVINVAmt Width : 40 MMS ;Inactive : ($$NumItems:InventoryEntries = 1) OR ($$IsSysName:$$CollectionField:$LedgerName:2:LedgerEntries) ;Border : Thin Top : ($$NumItems:InventoryEntries > 1) AND (NOT $$IsSysName:$$CollectionField:$LedgerName:2:LedgerEntries) Skip : Yes style: Salesfonta Invisible : NOT @@InvWithAmt Format : "NoSymbol" [part:EtainvInvDet2] Option : EtainvAccInfo [!Part : EtainvAccInfo] Add : Parts : EtainvAcctDet [Part : EtainvAcctDet] Lines : EtainvAcctDet,EtainvTotAmt,ttttyann,tttt,ttttkk,ttttkk1,ttttkk2,ttttkk3 Repeat : EtainvAcctDet : LedgerEntries ;Height : 22 mms Vertical : Yes [Line : EtainvAcctDet] Fields : AS,EtainvAccSp, EtainvAccSign,EtainvAccQua,EtainvAccName, Right Fields : EtainvAccDue, EtainvAccQty, EtainvAccRate, EtainvAccPer,vvv,EtainvAccAmt, [Field : EtainvAccSp] Info : "" Width : 12 MMS [Field : EtainvAccSign] Use : Logical Field Set as : ($IsDeemedPositive = @@VchSign) OR ($Amount < 0) Invisible : Yes Set always : Yes Skip : Yes [Field : EtainvAccQua] Use : Simple Field ;Set as : if #EtainvAccSign then "Deduct :" else "Add :" Style : Small Italic ;Width : 20 MMS Space Left : 2 MMS Align : Left [Field : EtainvAccName] Set as : if NOT $$IsSysName:$LedgerName then $LedgerName else "" Style : Normal Italic Align : Right FullWidth : Yes Space Right : 3 MMS Invisible : yes [Field : EtainvAccDue] Info : "" Width : 20 MMS ;Border : Thin Left [Field : EtainvAccQty] Info : "" Width : 20 MMS [Field : EtainvAccRate] ;Use : Rate Price Field ;Type : Number Align : Right ;Format : "NoZero,Decimals:-1" Style : Normal Info : "" ;Set as : $RateOfInvoiceTax ;Inactive : $$IsSysName:$LedgerName ;invisible : yes ;Invisible : not@@InvwithRate Width : 12.5 MMS [Field : EtainvAccPer] Use : Rate Units Field Type : String Align : Left Style : Normal Italic Set as : if $$IsEmpty:$RateOfInvoiceTax then "" else "" Inactive : $$IsSysName:$LedgerName Invisible : NOT @@InvWithRate Width : 12.5 MMS [Field : EtainvAccDisc] Info : "" Width : 16 MMS [Field : EtainvAccAmt] Use : Amount Forex Field Set as : $Amount Width : 40 MMS Format : "NoSymbol" ;BORDER : THIN LEFT style: Salesfonta ;[Part : EtainvTot] .Line : EtainvTotAmt [Line : EtainvTotAmt] Fields : mmn Right Fields : mmm,EtainvTotal, EtainvTotAmt [Field : vvv] Set as : if NOT $$IsSysName:$LedgerName then $LedgerName else "" Style : Salesfonta Align : right ;FullWidth : Yes ;Space Right : 3 MMS ;Invisible : yes ;Info : " Add : Vat 15%" ;align : left [Field : AS] Info : "" style : normal bold [Field : mmm] Info : "NET AMOUNT" style : Salesfonta Align : rIGHT [Field : EtainvTotal] Use : Amount Forex Field Set as : #EtainvTotAmt Width : 40 MMS Border : Totals style: Salesfonta Format : "NoSymbol" Align : rIGHT [Field : EtainvTotAmt] Use : Amount Forex Field Storage : Amount : Ledger Entries : First Invisible : Yes [Line : bvbv] Fields : mmn [Field : mmn] Max : @@MaxNarrWidth Set as : $$InWords:#EtainvTotal:"Forex" + " Only" Style : Normal Lines : 0 Width : 100 mms Inactive : $$IsEmpty:#EtainvTotal ; Invisible : NOT @@InvWithAmt $$SetNo = 4 Invisible : $$SetNo = 4 [Part :ST] Line : TST [Line : TST Fields : STS,STSz,STSx,STSxe,STSxr space top : 15 mms [Field : STS] Info : "Received By" align : CENTER BORDER : THIN TOP WIDTH : 20% page [Field : STSz] Info : "Customer Signature" align : CENTER BORDER : THIN TOP WIDTH : 20% page [Field : STSx] Info : "Name" align : CENTER BORDER : THIN TOP WIDTH : 20% page [Field : STSxe] Info : "Date" align : CENTER BORDER : THIN TOP WIDTH : 20% page [Field : STSxr] Info : "Stamp" align : CENTER BORDER : THIN TOP WIDTH : 20% page [style:Salesfontaa ] height :16 bold : yes font:" times newroman" [style:Salesfonta ] height :12 bold : yes font:" times newroman" [line :tttt] fields :ttyy,shvy Space top : 2.5 mms ;height : 8 mms ;border :thinbox [field :ttyy] ;;;INFO : "ADVANCE PAYMENT:" Info:"Prev.Balance Rs" style : Salesfonta Width : 40 MMS align : left ;;style:Salesfontafontss ;;;;; Style : Normal [line :ttttkk] Rightfields :ttyykk Space top : 2.5 mms ;height : 8 mms ;border :thinbox [field :ttyykk] ;;;INFO : "ADVANCE PAYMENT:" Info:"E.&.O.E" style : Salesfonta Width : 40 MMS align : Right ;;style:Salesfontafontss ;;;;; Style : Normal [line :ttttkk1] fields :ttyykk1 Space top : 1 mms ;height : 8 mms ;border :thinbox [field :ttyykk1] INFO : "Goods once sold will not be taken back" ;;Info:"E.&.O.E" style : Salesfonta ;;Width : 40 MMS align : Left ;;style:Salesfontafontss ;;;;; Style : Normal [line :ttttkk2] fields :ttyykk2,ttyykk22 Space top : 1 mms ;height : 8 mms ;border :thinbox [field :ttyykk2] INFO : " Issue cheque in favour of " ;;;Info:"E.&.O.E" style : Salesfonta Width : 40 MMS align : Left ;;style:Salesfontafontss ;;;;; Style : Normal [field :ttyykk22] ;;INFO : " Issue cheque in favour of " ;;;Info:"E.&.O.E" set as @cmpmailname full width :yes style : Salesfonta ;;;Width : 40 MMS align : Left ;;style:Salesfontafontss ;;;;; Style : Normal [line :ttttkk3] fields :ttyykk3 Space top : 1 mms ;height : 8 mms ;border :thinbox [field :ttyykk3] INFO : "Dishonoured cheque will attract intrest 18% from date of delivery." ;;;;Info:"E.&.O.E" style : Salesfonta ;;Width : 40 MMS align : Left ;;style:Salesfontafontss ;;;;; Style : Normal [field :shvy] ;;Set as : $$Total:RAMINVINVAmt Use :Amount Field ;;Set as$$ToValue:$Date:$ClosingBalance:Ledger:$$CollectionField:$LedgerName:1:LedgerEntries)-$$abs:$EXPINVTOTAL Set as$$ToValue:$Date:$ClosingBalance:Ledger:$$CollectionField:$LedgerName:1:LedgerEntries)-$$abs:#EtainvTotAmt ;;;set as :$VoucherChequeName Width : 30 MMS align :left ;;style:Salesfontafontss style : Salesfonta Border: Totals ;;;Style : Normal [line :ttttya] fields :ttyyya,shvyya ;Space top : 2.5 mms [field :ttyyya] INFO : "Total Qty" Width : 40 MMS align : left ;;style:Salesfontafontss Style : Normal [field :shvyya] ;;;;Use:Amount Field use:Qty Primary Field Set as : $$CollQtyTotal:InventoryEntries:$ActualQty Width : 30 MMS align :left ;;style:Salesfontafontss Style : Normal [line :ttttyann] fields :ttyyyann,shvyyann Space top : 2.5 mms [field :ttyyyann] INFO : "Total Outstanding" ;;Info:"Curr.Balance" ;;border :thinbox Width : 37 MMS align : left Border : thin bottom ;;style:Salesfontafontss style:Salesfontafontss ;;Style : Normal [field :shvyyann] ;;;INFO : " PAYMENT:" Use: Qty Field ;;Use : Simple Field ;;;Use : Logical Field ;;;Set as : $$CollQtyTotal:InventoryEntries:$ActualQty ;;;;Border: Totals [style:Salesfontaafontss ] height :16 bold : yes font:" times newroman" [style:Salesfontafontss ] height :12 bold : yes font:" times newroman" [style:ERfontss ] height :12 bold : yes font:" times newroman"
Repeat : RAMINVAcctDet : My Item List [Collection : My Item List] Source Collection : .. Walk : Inventory Entries By : StockItemName:$StockItemName Sort : @@Default: $StockItemName
Thank you sir. I'm New in Tdl sir But I'm try is not coming item alphabetic order Repeat : RAMINVAcctDet : My Item List [Collection : My Item List] Source Collection : .. Walk : Inventory Entries By : StockItemName:$StockItemName Sort : @@Default: $StockItemName