Tally Chapter 172 TDL for Custom Invoice Scrap Invoice By Rajiv Mishra Computer Class
Few Lines are missing here.
Watch the video first.
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 : 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 :parts : 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 : "Custome Title"
Style : newSTY2
Align : Center
FullWidth : Yes
[Line :TRWK]
Field: TRWK
[Field: TRWK]
Set as : "Rajiv Custom Invoice Title"
Style : newSTY2
Align : Center
FullWidth : Yes
[Line: RM CmpName]
Fields : RMcmpname
[Field : RMCmpName]
Set as :"Custom Other Info"
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 : "FSSI 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: Number Field
Set as : $$CollectionField:$BilledQty:1:InventoryEntries
[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 : Rate Price Field
Set as :$$CollectionField:$Rate:1:InventoryEntries
[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 : "All taxes Shall be paid by the Buyer"
[Field: INCDetails]
Style : Normal1
Set as: "All taxes Shall be paid by the buyer"
/*[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
टिप्पणियाँ
एक टिप्पणी भेजें