[#Form:Simple Printed Invoice] Add:Option:Am Invoice@isSales [!Form:Am Invoice] Deletearts Delete:BottomPart DeleteageBreak Addart:Ra Part1,Ra Part2 Add:BottomPart:Ra Part3,PI InvisiblePart Addage Break: UsCs GI ClPgBrk, UsCs GI OpPgBrk;Add : pagebreak : TDclpage,TDoppage Height: 220 mms Width:200 mms Space Top:48 mms;;38 mms;;30 mms ;Space Left:5 mms;;15 mms ;Space Right:17 mms;;10 mms space Bottom:3 mms;;5 mms;;15 mms [Part: UsCs GI ClPgBrk] Lines: UsCs GI ClPgBrk [Line: UsCs GI ClPgBrk] Fields: Simple Field Local: Field: Simple Field: Set As: "Continued..." Local: Field: Simple Field: FullWidth: Yes Local: Field: Simple Field: Align: Right ;Border: Full Thin Top [Part: UsCs GI OpPgBrk] Parts: Ra Part1,Ra Part2;UsCs Global Invoice Top, UsCs Global Invoice Add, UsCs GI Inventory Title ;BottomPart:Ra Part3;,PI InvisiblePart Vertical: Yes [Part : PI InvisiblePart] Lines :JAEInvisiblePart [Line:JAEInvisiblePart] Fields: EXPINVPartyLedName [Part: Ra Part1] Part: Ra Part1Left, Ra Part1Right [Part: Ra Part1left] Line : Ra Partyname,ra PartyAdd,Ra Phoneno Repeat : ra PartyAdd: BuyerAddress [Line : Ra Partyname] Field : Ra Partyname spacetop:4 mms [Field : Ra Partyname] Use : namefield Set as:$partyname Full width: yes Space left : 10 mms Style : Style12b [Line : ra PartyAdd] Field : Ra Partyname1 ;spacetop:4 mms [Field : Ra Partyname1] Use : namefield Set as: $BuyerAddress Full width: yes Space left : 10 mms Style : Style12b [Line : Ra Phoneno] Field : Ra Partyname Local:Field:Ra Partyname:Setas:$LedgerPhone:Ledger:$PartyLedgerName Local:Field:Ra Partyname:style:style12 [Part: ra Part1right] Line:Ra invno,Ra invDt,terms,Ra Orderno,del [Line:del] RightField:del [Field:del] Use:NameField Setas:$BasicShipDocumentNo Width:40 mms style:style12 [Line:terms] RightField:terms1 [Field:terms1] Use:NameField Setas:$BasicDueDateOfPymt Width:40 mms style:style12 [Line:Ra invNo] RightField:Ra invNo [Field:Ra invNo] Use:NameField Setas:$VoucherNumber Width:40 mms style:style12 [Line:Ra Invdt] RightField:Ra invNo Spacetop:2 mms Local:Field:Ra InVNo:Setas:$$String:$Date:ShortDate [Line:Ra OrderNo] RightField:Ra invNo Spacetop:2 mms Local:Field:Ra InVNo:Setas:$$FullList:InvoiceOrderList:$BasicPurchaseOrderno [Part: Ra Part2] Part: BB Part2a,BB Part2b Scroll:vertical vertical:Yes Spacetop:15 mms [Part:BB Part2a] Line:invDetails;;;,Invtotal Repeat:InvDetails:InventoryEntries Scroll:vertical Vertical:Yes [Line:InvDetails] Field:Sno,code,item RightField:Qty,alt,rate,Amt;Qty,RUnit,rate,Amt ;Explode:Td Explode:Not $$Isempty:$UserDescription [Field:Sno] Use:NameField setas:$$Line Width:20 mms Style:Style12 align:left;;;;;;;; [Field:code] Use:NameField setas:"" Width:5 mms Style:Style12 align:left; [Field:item] Use:nameField Setas:$Stockitemname;+ $UserDescription ;FullWidth:yes Style:Style12 align:left Width:35 mms ;align:center [Field:Qty] Use:QtyPrimaryField Setas:$BilledQty Width:20 mms Format:"No Symbol,No Zero" Style:Style12 ;align:right [Field:alt] Use:QtySecondaryField Setas:$BilledQty Width:20 mms Format:"No Symbol,No Zero" Style:Style12 ;align:right [Field:RUnit] Use:NameField Setas:$BaseUnits:StockItem:$Stockitemname Width:20 mms;;10 mms ;align:center Style:Style12 align:right [Field:Rate] Use:ratePriceField Setas:$rate Width: 20 mms Format:"No Symbol,No Zero" ;align:right Style:Style12 [Field:Amt] Use:AmountField Setas:$Amount Width:20 mms Style:Style12 ;align:right [Part:Td Explode] Line: Td Explode Repeat:Td Explode:UserDescription [Line:Td Explode] Field:Sno,code,item RightField:Qty,alt,RUnit,rate,Amt Local:Field:Sno:Setas:"" Local:Field:item:Setas:$Userdescription Local:Field:Qty:Setas:"" Local:Field:alt:Setas:"" Local:Field:Runit:Setas:"" Local:Field:Rate:Setas:"" Local:Field:Amt:Setas:"" [Line:Invtotal] Field:Sno,item RightField:Qty,alt,RUnit,rate,Amt Local:Field:Sno:Setas:"" Local:Field:item:Setas:"" Local:Field:Qty:Setas:"" Local:Field:alt:Setas:"" Local:Field:Rate:Setas:"" Local:Field:Runit:Setas:"" Local:Field:Amt:Setas:$$collamtTotal:Inventoryentries:$amount Local:Field:Amt:border:thintop [Part:BB Part2b] Line :LedDetails Repeat:LedDetails:ledgerEntries Scroll:vertical Vertical:yes [Line:LedDetails] Field:Sno,code,item RightField:Qty,alt,RUnit,rate,Amt ;Explode:Td Explode:Not $$Isempty:$UserDescription Local:Field:Sno:Setas:"" Local:Field:item:Setas:$LedgerName Local:Field:Qty:Setas:"" Local:Field:Runit:Setas:"" Local:Field:alt:Setas:"" Local:Field:Rate:Setas:"" Local:Field:Amt:Setas:$Amount [Part: Ra Part3] Line:inwords [Line:inwords] Field:inwords RightField:total [Field:inwords] Use:NameField Setas:$$inwords:$amount+" Only" Full Width:Yes style:style12 align:center ;spaceleft:7 mms [Field:total] Use:AmountField Setas:$Amount align:right ;Width:40 mms style:style12 ;spaceleft:7 mms /* Line:BB Total [Line:BB Total] Field:Sno,item RightField:Qty,RUnit,rate,Amt Local:Field:Sno:Setas:"" Local:Field:item:Setas:$$inwords:$amount+" Only" Local:Field:item:spaceleft:7 mms Local:Field:item:lines:0 Local:Field:Qty:Setas:"" Local:Field:Runit:Setas:"" Local:Field:Rate:Setas:"" Local:Field:Amt:Setas:$Amount */ [Style:Style10b] font:"Times New Roman" Height:10 bold:Yes [Style:Style12] font:"Times New Roman" Height:12 [Style:Style12b] font:"Times New Roman" Height:12 bold:Yes [Style:Style16b] font:"Times New Roman" Height:16 bold:Yes [#Line: EI ShipDetails] Local : Field : Medium Prompt : Info : $$LocaleString:"D.O No. :" [#Line: EI OrderDetailsTitle] Local : Field : Medium Prompt : Info : $$LocaleString:"L.P.O No :"
Dear Sir, How to add this "Original for buyer", "Duplicate for Transporter", and "Triplicate for supplier". Thanks in advance,
this is for ur reference use this and modify as per ur need [Field: Copy Field] FullWidth : Yes Set As : If @IsExciseOn AND @@IsSales AND @IsExciseVchType Then @@ExciseSet Else @NonTaxInvSet IsExciseOn : @@IsIndian AND $$IsExciseOn AND $$IsInventoryOn:$$CurrentCompany IsExciseVchType : $$Owner:$$FilterCount:LedgerEntries:IsLedDutyHeadExcise > 0 NonTaxInvSet : If @@GetCopyNum = 1 Then @Original Else + If @@GetCopyNum = 2 Then $$LocaleString:"(Duplicate)" Else + If @@GetCopyNum = 3 Then $$LocaleString:"(Triplicate)" Else + If @@GetCopyNum = 4 Then $$LocaleString:"(Quadruplicate)" Else $$LocaleString:"(Extra Copy)" Original : If @@IsIndianVATVch AND $IsTaxInvoice:VoucherType:$VoucherTypeName Then $$LocaleString:"Original - Buyer's Copy" + Else $$LocaleString:"(Original)" Style : Small Italic Align : Right Option : CopyTypeNotApplicable : @@VchHasPrintCopies AND (Not @@IsPrintCopyApplicable)
