Modification needed in Customized Sales Invoice Print Format

Dear TDL Experts,

I need your kind help please.
I have a TDL for invoice printing which I have to modify to accommodate customer's VAT TIN, Company's TIN and VAT Output Ledger with Amount to print in the Invoice. I can provide the TDL, please give me your email address, so I can send you the TDL.

Please do me a favour and modify the TDL as per my requirement.

Thanks and regards
Murtaza
murtaza.bohra@yahoo.com
+971554780672

 

Hi Murtaza

As per your requirement i change your code and updated here check it.​

 

Dear D Lokesh,

Am so thankful for your quick take on the query. It is working to print the Customer's VAT TIN, VAT Output Ledger Details but it is disturbing the alignment completely.
Any suggestion to fix it.

Thanks
Murtaza

 

Dear Sir,

It is pre printed so from your side only need to do alignment

 

Dear Mr. Lokesh,

Thanks for your kind help, I have set the alignments.

Thanks once again.
Murtaza

 

Great Good job sir

 

i a have tdl i need tax column and vat Number.

please find below my TDL

[#Form : Sales Color]
Delete : Print : Printed INVOICE
Print : AMF Invoice
[Report : AMF Invoice]
Object : Voucher
Filtered : Yes
Form : AMFInvoice
[Form :AMFinvoice]
Parts :jtop, AMFINVTOP2,AMFINVMID
Bottom Parts : jaccpart,AMFINVBOT1
HEIGHT : 100% PAGE
WIDTH : 100% PAGE
SPACETOP : 21% PAGE
SPACELEFT : 1.50% PAGE
SPACERIGHT : 2% PAGE
; SPACEBOTTOM :4% PAGE
PAGE BREAK : AMFINVCLBREAK,AMFINVOPBREAK

[PART : AMFINVCLBREAK]
PARTS : AMFINVMID,AMFINVCONTINUED
VERTICAL : YES
[PART : AMFINVCONTINUED]
LINE : AMFINVCONTINUED
[LINE : AMFINVCONTINUED]
FIELDS : AMFINVVAL1,AMFINVVAL2,AMFINVVAL3,AMFINVVAL6,AMFINVVAL7
LOCAL : FIELD : AMFINVVAL1 : SETAS : " "
LOCAL : FIELD : AMFINVVAL1 : DELETE : BORDER
LOCAL : FIELD : AMFINVVAL2 : SETAS : " "
LOCAL : FIELD : AMFINVVAL2 : DELETE : BORDER
LOCAL : FIELD : AMFINVVALware : SETAS : " "
LOCAL : FIELD : AMFINVVALware : DELETE : BORDER
LOCAL : FIELD : AMFINVVAL3 : SETAS : " "
LOCAL : FIELD : AMFINVVAL3 : DELETE : BORDER
LOCAL : FIELD : AMFINVVAL8 : SETAS : " "
LOCAL : FIELD : AMFINVVAL8 : DELETE : BORDER
LOCAL : FIELD : AMFINVVAL6 : SETAS : " "
LOCAL : FIELD : AMFINVVAL6 : DELETE : BORDER
LOCAL : FIELD : AMFINVVAL7 : SETAS : " "
LOCAL : FIELD : AMFINVVAL7 : DELETE : BORDER
[PART : AMFINVOPBREAK]
PARTS : jtop, AMFINVTOP2
VERTICAL : YES
;;--------------------------------------------top 2 start
[PART : AMFINVTOP2]
HEIGHT : 16% PAGE
; WIDTH : 70% PAGE
PARTS : AMFINVTOP2PARTY
RIGHT PARTS : AMFINVTOP2RT

[PART : AMFINVTOP2PARTY]
HEIGHT : 16% PAGE
WIDTH : 50% PAGE
LINES : AMFINVPNAME,AMFINVPADD ;;;,amfinvyourref,amfinvatt
REPEAT : AMFINVPADD : buyerADDRESS
SPACE LEFT: 1% PAGE

[LINE : AMFINVPNAME]
space top : 1
FIELD :AMFINVPNAME
[FIELD : AMFINVPNAME]
SETAS : IF $LEDGERNAME="CASH A/C" THEN "CASH CUSTOMER" ELSE $LEDGERNAME
; WIDTH : 50% PAGE
STYLE : normal bold
ALIGN : LEFT
SPACE LEFT :5% PAGE
;; space left : .97% page
[style : lll]
font : ariel bold
height : 14
bold : yes
[LINE : AMFINVPADD]
FIELD : AMFINVPADD
[FIELD : AMFINVPADD]
SETAS : $buyerADDRESS
; WIDTH : 50% PAGE
STYLE : normal
ALIGN : LEFT
SPACE LEFT : 5% PAGE
;;-------
[PART : AMFINVTOP2RT]
HEIGHT :16% PAGE
WIDTH :20% PAGE
LINES : amfinvdte,AMFINVINVNO,AMFINVDO,AMFINVSM
[line : amfinvdte]
field : amfinvdt

[FIELD : AMFINVDT]
SET AS : $$STRING:$DATE
ALIGN : LEFT
; space left : 16 mms
style : normal
[LINE : AMFINVINVNO]
Spacetop : .50% Page
field : AMFINVINVNO

space top:1.5 mms
[FIELD : AMFINVINVNO]
SETAS : $vouchernumber
ALIGN : LEFT
; space left : 16 mms
style : LARGE
[LINE : AMFINVSM]
FIELD : AMFINVSM
SPACE top: 2 MMS
[FIELD : AMFINVSM]
set as : $purchaseorderno
ALIGN : LEFT
style : normal
; space left : 16 mms
[LINE : AMFINVDO]
; Spacetop : 1.50% Page
FIELD :AMFINVDO
SPACE top: 2 MMS
[FIELD : AMFINVDO]
Set as : if NOT $$IsSysName:$ShipDeliveryNote then $ShipDeliveryNote else ""
ALIGN : LEFT

style : normal
; space left : 16 mms
[LINE : AMFINVpay]
; Spacetop : 1.50% Page
FIELD :AMFINVpay
; SPACE : 3 MMS
[FIELD : AMFINVpay]
Set as : $duedateofpymt
ALIGN : LEFT

style : newstyle1
; space left : 16 mms
[Style : NEWSTYLE1]
Font : "arial"
height : 8
Bold : no
;; ALIGN : RIGHT
;;-------------------END OF TOP1
[style : ll]
Font : "Ariel Black"
Height : 10
;;------------------------------------------------MID
[PART : AMFINVMID]
; HEIGHT : 55% PAGE
; WIDTH : 100% PAGE
LINES : AMFINVDET
REPEAT : AMFINVDET : InventoryEntries
; TOTAL : AMFINVVAL7
Total : amfinvval3,AMFINVVAL7 ;;;OPINVQuantiTY
SCROLL : VERTICAL
FLOAT : NO
SPACE TOP: 4% PAGE
[LINE : AMFINVDET]
FIELDS : AMFINVVAL1,AMFINVVAL2
RIGHT FIELD :AMFINVVAL3,AMFINVVAL6,AMFINVVAL7
SPACE top: 1.20 MMS

;;--------------------------------
; Explode : CGInvDet AddDesc
;[Part : CGInvDet AddDEsc]
; Line : CGInvDet AddDesc
; Repeat : CGInvDet AddDesc : User Description
; space bottom : 1% page
;[Line : CGInvDet AddDesc]
; FIELDS : AMFINVVAL1,AMFINVVAL2,AMFINVVAL3exp,AMFINVVAL3,AMFINVVAL6,AMFINVVAL7
; Local : Field : AMFINVVAL1 : Set as : ""
; Local : Field : AMFINVVAL1 : DELETE : BORDER
; Local : Field : AMFINVVAL2: Set as : ""
; Local : Field : AMFINVVAL2: DELETE : BORDER
; Local : Field : AMFINVVAL3 : Set as : ""
; Local : Field : AMFINVVAL3 : DELETE : BORDER
; Local : Field : AMFINVVAL5 : Set as : ""
; Local : Field : AMFINVVAL5 : DELETE : BORDER
; Local : Field : AMFINVVAL6 : Set as : ""
; Local : Field : AMFINVVAL6 : DELETE : BORDER
; Local : Field : AMFINVVAL7 : Set as : ""
; Local : Field : AMFINVVAL7 : DELETE : BORDER
;
; Empty : User Description


;[Field : AMFINVVAL3exp]
; Width : 30% page
; Set as : $UserDescription
; LINES : 0
; space left : 9% page
;;;----------------------------------------
[FIELD : AMFINVVAL1]
SETAS : $$line ;;;partno:stockitem:$stockitemname
WIDTH : 5% PAGE
STYLE : normal
ALIGN : right
[FIELD : AMFINVVAL2]
set as : $stockitemname:stockitem:$stockitemname
; WIDTH : 38% PAGE
STYLE : normal
ALIGN : left
SPACE LEFT : 4
[FIELD : AMFINVVAL21]
set as : $batchname
;; WIDTH : 58% PAGE
STYLE : normal
ALIGN : left
SPACE LEFT : 2
Inactive : NOT @@HasBatchWise
[FIELD : AMFINVVAL3]
USE : QTY FIELD
SETAS : $BILLEDQTY
; WIDTH : 8% PAGE
STYLE : normal
ALIGN : center
Format : "No Symbol"

[FIELD : AMFINVVAL6]
USE : RATE PRICE FIELD
SETAS : $RATE
WIDTH : 14.5% PAGE
STYLE : normal
ALIGN : right
Format : "No Symbol,FOREX"
; space left : 2 mms

[FIELD : AMFINVVAL7]
USE : AMOUNT FOREX FIELD
SETAS : $AMOUNT
WIDTH : 15.5% PAGE
STYLE : normal
ALIGN : RIGHT
; SPACE right : 7 mms
;;-------------------------------------END OF MID
;;-------------------------
[Part : AMFINVBOT1]
Height : 13.50% Page ;;6%
Line : AMFINVBOT3,salman ;;;,amfinvsale ;;,AMFINVBOT2

[Line : AMFINVBOT3]
spacetop : 0.5% Page
field : AMFINVTotalAmtWrds
right Fields : AMFINVtot
[Field : AMFINVTotalAmtWrds]
type : string
; width : 85% page
set as : $$Inwords:#AMFINVtot:"Forex" + " Only" ;;:"NoSymbol"
Style : normal BOLD
FORMAT : "NOSYMBOL"
ALIGN : LEFT
SPACE LEFT:22 mms
;; space right : 7.5 mms
[Field : amfinvtot]
Use : Amount forex Field
Set as : if $$IsPurchase:##SVVoucherType then $$NettAmount:$Amount:$AddlAmount else $Amount
style : LARGE BOLD
[Line : salman]
space top : 1.5
field :saltit, salman
[Field : salman]
set as : ##svautocost
Style : normal BOLD
ALIGN : LEFT
[Field : saltit]
set as : "SalesMan :"
Style : normal BOLD
ALIGN : LEFT
SPACE LEFT:15 mms
;--------------------------------
[Part : JACCPart]
height : 5% page
Lines : JAccLines
Repeat : JAccLines : Ledger Entries
Total : JAFld7
Float : No
[Line : JACCLines]
Fields : JAFld1, JAFld2, JAFld3, JAFld4, JAFld5, JAFld6
Right Field : JAFld7

[Field : JAFld1]
Type : String
Width : @@widthCol1 mms
Set as : " "
; Style : DraftBold2
Align : Left

[Field : JAFld2]
Width : @@widthcol2 mms
Align : Left
Set As : if $Amount < 0 then "Less : "+ $LedgerName else if $$IsSysName:$LedgerName then " " else $LedgerName
Style : normal
space left : 13
[Field : JAFld3]
Width : @@WidthCol3 mms
Set As : " "
Align : Right
[Field : JAFld4]
Width : @@WidthCol4 mms
Set As : " "
Align : Right
[Field : JAFld5]
Width : @@WidthCol5 mms
Set As : " "
Align : Right
[Field : JAFld6]
Width : @@WidthCol6 mms
Set As : " "
Align : Right
[Field : JAFld7]
Use : Amount Field
Width : @@widthCol7 mms
Set as : $Amount
;; Space Right : 6 mms
Style : large
[Part : JTOP]
Lines : JTOP
[Line:JTOP]
Fields : EXPINVPartyLedName ;; This is an invisible required field