Hi Friend I again modified this code and made to view purchase history as well as sales history by pressing Alt + F9 and Alt + F8. But I want to display both report by pressing single key Alt + Enter. If someone has any idea, please share here.
Just change the filter as below SalesPurFilter : $$IsSales:$VoucherTypeName or $$IsPurchase:$VoucherTypeName
Res. Members, Pls Try This [#Field: VCH StockItem] ;; Sub Form : Ledger Voucher : $$IsSales:$VoucherTypeName Add : KEy :Ledger Voucher Button [#Form :Voucher] ;; Add:Button:Ledger Voucher Button [Key:Ledger Voucher Button] Key : Alt+J INactive : Not $$IsSales : $VoucherTypeName Action : Modify Variables : Ledger Voucher ;; Action : Modify Variables : Ledger Voucher [report : Ledger Voucher] Form : Vasu Set : SV From Date : ##SVFromDate Set : SV To Date : ##SVCurrentDate Set : $$IsSales :$VoucherTypeName Object : Ledger Object : Report [Form : Vasu] Use : Extra VchKeys Button : F2ChangePeriod, ChangeCompany BottomButton: BlankButton, RelReports, InvReports, AcctReports, ReportOperations Local : Button : ValueButton : Inactive : Yes Keys : ChangePeriod Background : White, Surf Green Local : Button: Rel Reports : Action : Related Display : LedgerRelReports Local : Button: Direct Columnar : Key : Alt+F8 Local : Button: Direct Columnar : Inactive : No ;; Buttons : PrintButton, ExportButton, UploadButton, MailButton Space Top : if $$InPrintMode then ##SVSpaceTop else 0.05 inches Space Bottom: if $$InPrintMode then 0.5 else 0 inches Space Left : if $$InPrintMode AND $$InPixelMode then 0.5 else 0 inches Space Right : if $$InPrintMode AND $$InPixelMode then 0.25 else 0 inches Option : Voucher Extract : ##ExtractMode Option : SetExplodeFlag : NOT ##ExtractMode AND ($$IsCashLedger:#LedgerName) Option : UnSetExplodeFlag : NOT ##ExtractMode AND (NOT $$IsCashLedger:#LedgerName) Option : Normal Ledger : NOT ##ExtractMode AND (NOT ##ColumnarDayBook AND (NOT ##InConfirmMode OR $$InDraftMode OR NOT $$InPrintMode)) Option : Ledger Confirmation : NOT ##ExtractMode AND (NOT ##ColumnarDayBook AND (##InConfirmMode AND NOT $$InDraftMode AND $$InPrintMode)) Option : Columnar Ledger : NOT ##ExtractMode AND (##Column.arDayBook) Background : LiGHT Yellow Height : 100 % Screen Width : 85 % Screen PArt : PRi,NAme,Vasu [Part : Vasu] ; Repeat : Ram1: LedVch Line : Ram,Dummy,Ram1 Repeat : rAM1 : Anu Vertical : Yes Scroll : Vertical [system : Formula] Vasudvd: $StockItemName = #Name [Collection : Anu] Use : Vouchers of Ledger Child of : @@InvPartyName Filter : Pri Filter : Inv Filter : Stkitm [Collection: Rama] Use : Vouchers of Ledger ; Child of : #LedgerName [Part : NAme] Line : Name ;;================================================================================================== [Include : Enar.txt] ;;================================================================================================== [Part : Pri] Line : Name1,Add Repeat : Add : CompanyAddress INvisible : Not $$InPrintMode Space Bottom : 5 mms [Line : Name1] Field : Name1 [Line : Add] Field : Add Space Top : 0.5 mms [Field : Add] Use : NAme Field Set As : $Address Align : Center FullWidth : Yes [Field : NAme1] USe : Name Field Set AS : ##SVCurrentCompany FullWidth : Yes Align : Centre [Line : Name] Field : VasuName,Name,LName Right Field : PeriodVh Space Bottom : 6 mms [Line : PeriodVh] Field : PeriodVh Space Bottom : 2 mms [Field : VasuNAme] USe : Name Field Set AS : "Ledger : " Width : 20 mms Align : Left Skip : Yes [Field : NAme] USe : Name Field Set As : $StockItemName Width : 20 mms Align : Left Skip : Yes Invisible: Yes [Field : LNAme] USe : Name Field Set AS : @@InvPartyName Width : 70 mms Align : Left Skip : Yes [Field : PeriodVh] Use : Name Field Set As : $$String:##SVFromDate +" To " + $$String:##SVToDate Width : 100 mms Align : Right Skip : Yes [Collection : Rasa] ; Use : StockItem Name Type : Voucher ; Filter : Stkitm Filter : inv [System : Formula] Stkitm : $Date >= ##SVFromDate AND ($Date <=##SVToDate) Inv : $ISInvoice Pri : $PartyLedgerNAme = @@INVPartyName Rayal : $StockItemName Contains #VCHStockItem [Line : Ram] Field : Date,PAct,VchNo,Item,item2 Right Fields : EnarQty,qty,rate,Paper,Print,amount Border : Thick Top [Line : Dummy] Field : Dummy Border : Thin Bottom Space Top : 5 mms [Line : Ram1] Field : Date1,Pact1,VchNo1,Item1 Right Fields : EnarQty2,EnarQty1,qty1,rate1,Paper1,Print1,amount1 Empty : If #vchno1 contains "5" Then Yes Else No ;; Explode : Rana Empty : If $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$Amount Then NO Else Yes Empty : IF $StockItemName=$$ReqObject:#Name Then YEs Else No Explode : Desc Option : AlterOnEnter [System : Formula] ValFilter :$StockItemName=$$ReqObject:#Name [Field : Dummy] Use : Name Field;;Qty Field Set As : "" FullWidth : Yes Skip : Yes [Field : Dummy1] Use : Name Field;;Qty Field Set As : "" FullWidth : Yes Skip : Yes [Field : Date] Use : Name Field;;Qty Field Set As : "Date" Width : 19 mms Style : Small Skip : Yes Align : Center Alter : Voucher [Field : Date1] Use : Short Date Field Align : Left InVisible : $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$Amount Set As : $Date Style : Small Alter : Voucher ;; Skip : Yes Width : 19 mms [Field : Pact] Use : Name Field;;Qty Field Set As : "Particular" Align : Center Width : 40 mms Invisible : YEs Skip : Yes [Field : PAct1] Use : NAme Field InActive : $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$Amount Set As : @@InvPartyName Skip : Yes Invisible : YEs Width : 40 mms [Field : Item] Use : Name Field;;Qty Field Set As : "Item" Width : 40 mms Style : Small Bold Align : Left Space Left : 10 mms Skip : Yes [Field : Item1] Use : NAme Field ;;; Set As : $StockitemName Set As : #Name InVIsible : $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$Amount Style : Small Bold Skip : Yes Width : 60 mms [Field : Item2] Use : NAme Field Style : Small Set As : "Description" Skip : Yes Width : 40 mms Space LEft : 15 mms [Field : VchNo] Use : Name Field;;Qty Field Set As : "Sales No" Width : 20 mms Style : Small Align : Center Skip : Yes [Collection : Good] Type : All Inventory Entries : Voucher Filter : VasuDvd [Field : VchNo1] Use : Name Field Set As : $VoucherNumber ;;; Set as : $$NumItems:Good InActive: $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$Amount Skip : Yes Width : 20 mms Style : Small Align : Center [Field : Qty] Use : Name Field;;Qty Field Set As : "Qty" Skip : Yes Style : Small Bold Align : Center Width : 20 mms [Field : Qty1] Use : Qty Field Style : Small Bold Set As : $$FilterAmtTotal:InventoryEntries:ValFilter:$BilledQty Skip : Yes Width : 20 mms InActive: $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$Amount [Field : EnarQty] Use : Name Field;;Qty Field Set As : "EnarQty" Skip : Yes ;; INvisible : Yes Align : Center Style : Small Bold Width : 40 mms [Field : Print] Use : Name Field;;Qty Field Set As : "Printing Charges" Skip : Yes ;; INvisible : Yes Align : Center Style : Small Width : 40 mms [Field : Paper] Use : Name Field;;Qty Field Set As : "Paper Charges" Skip : Yes ;; INvisible : Yes Align : Center Style : Small Width : 40 mms [Field : EnarQty2] Set As : $$FilterAmtTotal:InventoryEntries:ValFilter:$EnarQty Skip : Yes INvisible : YEs Width : 50 mms Space LEft : 15 mms ;; InActive : $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$Amount [Field : PAper1] Set As : $$FilterAmtTotal:InventoryEntries:ValFilter:$PaperCharges Skip : Yes INvisible : YEs Style : Small Width : 50 mms Space LEft : 15 mms ;; InActive : $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$Amount [Field : Print1] Set As : $$FilterAmtTotal:InventoryEntries:ValFilter:$PrintingCharges Skip : Yes Style : Small INvisible : YEs Width : 50 mms Space LEft : 15 mms ;; InActive : $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$Amount [Field : EnarQty1] ;; Set As : $NumPackages;;$PackageMarks ;; Set As : $$FilterAmtTotal:InventoryEntries:ValFilter:$EnarQty;;#Avga;;$EnarQty Set AS : #EnarQty2 Skip : Yes Width : 50 mms Space LEft : 24 mms [Field : Rate] Use : Name Field;;Qty Field Set As : "Rate" Width : 20 mms Style : Small Skip : Yes Align : Center [Field : Rate1] Use : Rate PRice Field Set As : $$FilterAmtTotal:InventoryEntries:ValFilter:$Rate Skip : Yes Style : Small Align : Right Width : 20 mms InActive: $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$Amount [Field : Amount] Use : Name Field;;Qty Field Set As : "Amount" Width : 27 mms Style : Style Skip : Yes Space Right: 6 mms Align : Right [Field : Amount1] Use : Amount BAse Field Set As : $$FilterAmtTotal:InventoryEntries:ValFilter:$Amount ;; Set As : $Amount ;; InActive: $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$BilledQty Alter : Voucher : $$IsVoucher AND NOT $IsDeleted Width : 107 mms Space Right: 2 mms Style : Style ;;; InActive: $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$BilledQty Skip : Yes [Style : Style] Font : Arial Bold Height : 9 ;;****************************************************** [Part : desc] Line : Desc Repeat : Desc : Inventory Entries [Line : Desc] Field : Kvasu,Kvasu1,Kvasu2 ;; Empty : IF ($$ISEmpty:$EnarQty) And ($$ISEmpty:$UserDescription) Then YEs Else No Explode : VDesc [Part : VDesc] Line : Vdesc Repeat : Vdesc : UserDescription [Line : Vdesc] Field : Vdesc Empty : IF $$ISEmpty:$UserDescription Then YEs Else No ;; Field : Date1,Pact1,VchNo1 ;; Right Fields : Item1,qty1,rate1,amount1 ;; Local : Field : date1 : Set As : " " ;; Local : Field : PAct1 : Set As : " " ;; Local : Field : VchNo1 : Set As : " " ;; Local : Field : Item1 : Space Left : 7 mms ;; Local : Field : Item1 : Set As : $Description:StockItem:$StockItemName ;; Local : Field : Item1 : Invisible : $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$BilledQty ;; Local : Field : Qty1 : Set As : " " ;; Local : Field : Rate1 : Set As : " " ;; Local : Field : Amount1 : Set As : " " [Field : VDesc] Use : Name Field Set As : $Userdescription Width : 125 mms Style : Small Inactive: $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$Amount InActive: IF $StockItemName=$$ReqObject:#Name Then NO Else YEs Space LEft : 85 mms ;; Skip : Yes [Field : Kvasu] Use : Name Field Set AS : $EnarQty Width : 185 mms ;; InActive: $$ISEmpty:$$FilterAmtTotal:InventoryEntries:ValFilter:$Amount Style : Small Bold Inactive: IF $StockItemName=$$ReqObject:#Name Then NO Else Yes Space LEft : 135 mms Skip : YEs [Field : Kvasu1] Use : Number Field Set AS : $PaperCharges Width : 45 mms InActive: IF $StockItemName=$$ReqObject:#Name Then NO Else Yes Invisible : IF $PaperCharges > 0 Then NO Else Yes Format : "Decimal:2" Style : Small Align : Right Skip : YEs [Field : Kvasu2] Use : Number Field Invisible : IF $PrintingCharges > 0 Then NO Else Yes Set AS : $PrintingCharges Format : "Decimal:2" Align : Right Width : 40 mms InVisible : IF $StockItemName=$$ReqObject:#Name Then NO Else Yes Style : Small Skip : YEs ;;======================================== [#Line: ACLSInfo] Delete : Field : ACLSAmt
Hi Mahesh: Thank you for providing such a long code; but unfortunately when I tried it, I get the following error message: ' error T 0001: could not find the file "Enar txt" ' Could it be that I made some mistake ? Bye
Sir, Your Code is superb indeed. Thanks for sharing. But if you can show the records in reverse order , End Date to Beginning Date , It will be fantastic to view from the current bill to previous. and also when I press the selling price should be pasted on the voucher. Try you can do it sure. Thanks in Advance. and good luck
Sir, Your tdl is very good and If you can display the same in Reverse order this is too good . I mean the latest voucher on the Top of the popup Thanks
DEAR Gopal Rajbhandari, PLEASE again modified YOUR code , IT IS SHOWING HISTORY ONLY FOR CURRENT YEAR, BUT I SUGGEST IT SHOULD SHOW HISTORY FOR LAST 3 YEARS OR ATLEAST LAST 5 ENTRY, SO PLEASE DEVELOP YOUR CODE FOR ABOVE TO SHOWN HISTORY FOR LAST 3 YEARS.
/* TDL to reset the discount basesd on the cash paid by customer it is useful where bargain system prevail. this code is not working.. FUNCTION resetdisc LABEL unknown action(null) please help */ [System: UDF] Cashpaid: Number: 1001 [#Part: VCH narration] Option: Cashpaid : $$Issales:##SVVoucherType [!Part: Cashpaid] Add: Line: lnCashpaid [Line: lnCashpaid] Add: Field: lblCashpaid Add: Field: fldCashpaid [Field: lblCashpaid] Info : "Cash paid : " Width: 10 [Field: fldCashpaid] Use: number field Storage: Cashpaid Width: 20 [#Form: Export Invoice] on : FormAccept : @@IsSales : call : Resetdisc :$Cashpaid [collection : invoice1] Type : Voucher Fetch : InventoryEntries [Function : Resetdisc] Parameter : cashpaid : Number Variable : tempdisc : Number Variable : finaldisc : Number Variable : value1 : Number 00 : Set: tempdisc : 100 - ((##cashpaid * 100) / Amount) 10 : IF : $cashpaid > 0 20 : Walk Collection : invoice1 25 : set : value1 : billedqty * rate 30 : Set: finaldisc : 100 - ((Value-((Value * ##tempdisc) / 100 )) * 100 / ##value1) 40 : set Value : Discount : $$RoundUp:##finaldisc 50 : End Walk 60 : ENDIF ;; End-of-File
[Field : FldViewHistory1] Use : Number Field;Short Name Field Should not be a number as most will use alpha-bates along with Numbers
dw Dear Sir, while uploding this TDL its showing error screenshot attached please hepl me out my contach details 9881016121 mayurlo05@gmail.com
DEAR ALL EXPERT , MAINE EK TXT FILE CREATE KI HAI , LEKIN USME THODASA CORRECTION KARVANA HAI , MAINE GST RATE IN SALES OR PURCHASE VOUCHERS KI TXT FILE CREATE KI HAI LEKIN USME GST RATE SHOW NAHI HO RAHA HAI , TO KYA AAP MUJHE CORRECT KARAKE DENGE , MAINE PHOTO OR TXT FILE ATTACH KI HAI .
pleeeeeeeeeeese send me excal to tally all sales purchase bank cash sales return transfer to tally please send me code urget mail id : shahankur_ahmedabad@rediffmail.com