Item Sales History while Invoicing

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

 

But need History Show Only Related party..

 

Good Job, Really Super

 

Superb Usefull Tdl

 

THANKS , BUT I NEED FOR PARTICULAR PARTY ONLY

 

For particular party you need to add filter in collection.

 

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

 

Hi....

Enar.txt file for print code for invoice.....

above for only item history during invoice.

 

not working tally 9

 

Great Job !!!

 

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

 

please any bdy step this report i see i need

 

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

 

WHAT ABOUT PURCHASE HISTORY... THIS WILL WORK FOR IT...

 

[Field : FldViewHistory1]
Use : Number Field;Short Name Field

Should not be a number as most will use alpha-bates along with Numbers

 

gooooooooooooooooooooooooooooooooooooooooood job

 

sir how can we get party wise this report??

 

dw

Dear Sir,

while uploding this TDL its showing error screenshot attached
please hepl me out
my contach details 9881016121
mayurlo05@gmail.com

 

Call me on my cell no. 9644011112

 

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