Code: [#Form : Sales Color] Delete : Print Add : Print : nInvA [#Form : Credit Note Color] Delete : Print Add : Print : nInvA [Report :nInvA] Use : Printed Invoice Delete: Form : Printed Invoice Form : nInvA [Form:nInvA] Width : 9.00 INCH Height : 11.69 INCH Space Top: 0.25 INCH Space Bottom: 0.25 INCH Space Left: 0.25 INCH Space Right: 0.25 INCH Part: KA Opening Page Break, KA Invoice Body Bottom Part: nGSTanalisysBankdetailsledgerentries,KA Invoice Total, KA Goods Sold Page Break : ClKA Page Break, KA Opening Page Break [Part:ClKA Page Break] Lines : GIKA ClPgBrk [Line: GIKA 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: KA Opening Page Break] Part: KA Invoice Title, KA CMP Details, KA Coloumn Titles Vertical: Yes [Part:KA Invoice Title] Line:KA Invoice Title [Line:KA Invoice Title] Field: Simple Fieldblank,Simple Field Right Field:Name Field Local: Field: Simple Fieldblank: Width: 45% Screen Local: Field: Simple Field: Set as: if @@IsCreditNote then "Credit Note" else "QUOTATION" Local: Field: Simple Field: Style: Pramod CMP Name Local: Field: Simple Field: Width: 55% Screen Local: Field: Simple Field: Align: Left Local: Field: Name Field: Set as:If @@GetCopyNum = 1 Then "" Else + If @@GetCopyNum = 2 Then $$LocaleString:"DUPLICATE FOR SUPPLIER" Else + If @@GetCopyNum = 3 Then $$LocaleString:"TRIPLICATE FOR TRANSPOTER" Else + If @@GetCopyNum = 4 Then $$LocaleString:"EXTRA COPY" Else $$LocaleString:"EXTRA COPY" [Field: Simple Fieldblank] Set as: "" [Style: Pramod CMP Name] Font: Arial Black Height:20 Bold: Yes [Part:KA CMP Details] Left Part: DMICash CMP Name Details,KA Customer Details Border: Thick Cover Height: 45 mms [Part:DMICash CMP Name Details] Line: KA CMP Name, KA CMP Address,KA Invoice No, KA Invoice Date, KA Invoice ShippedBy ; Width: 59% Page Border: Thick Right [Line: KA CMP Name] Field: KA CMP Name Local: Field: KA CMP Name: Set as: @@CmpMailName Local: Field: KA CMP Name: Style:Parth CMP Name Cash Local: Field:KA CMP Name: Full Width: Yes Local: Field:KA CMP Name: Print FG : Red Local: Field:KA CMP Name: Print BG :Grey Local: Field: KA CMP Name: Border: Sub Column Titles Space Top:0.25 Space Bottom:0.25 [Field: KA CMP Name] Use : Name Field Set as : "" [Style: Parth CMP Name Cash] Font: Arial Black Height:15 Bold: Yes [Line:KA CMP Address] Field: Name Field Local: Field: Name Field: Set as: $$FullList:CompanyAddress:$Address Local: Field: Name Field: Full Width: Yes Local: Field: Name Field: Line:0 Local: Field: Name Field: Border: Sub Column Titles Space Bottom:0.50 [Line:KA Invoice No] Field: Medium Prompt,Simple Field Local: Field: Medium Prompt: Set as: if @@IsCreditNote then "Cr.Note No :" else "Quotation No :" Local: Field: Medium Prompt: Width: 15 Local: Field: Simple Field: Set as: $VoucherNumber Local: Field: Simple Field: Style:Normal Bold Local: Field: Simple Field: Full Width: Yes Space Top:0.10 Space Bottom:0.25 [Line:KA Invoice Date] Field: Medium Prompt, Simple Field Local: Field: Medium Prompt: Set as: "Date" Local: Field: Simple Field: Style:Normal Bold Local: Field: Medium Prompt: Width: 15 Local: Field: Simple Field: Set as: $Date Local: Field: Simple Field: Full Width: Yes Space Bottom:0.25 [Line:KA Invoice ShippedBy] Field: Medium Prompt, Simple Field Local: Field: Medium Prompt: Set as: "Rate Contract No :" Local: Field: Medium Prompt: Style: Normal Local: Field: Medium Prompt: Width: 15 Local: Field: Simple Field: Set as: $$String:$Ratecardno;"4700003300" Local: Field: Simple Field: Style: Normal Local: Field: Simple Field: Full Width: Yes Local: Field: Simple Field: Style:Normal Bold [Part:KA Customer Details] Line:KA Customer Details Title, KA Customer Name, KA Customer Address, KA Customer State Name, KA Customer GST No, KA Customer Contact Width: 41% Page Repeat:KACustomerAddress:PartyAddress [Line:KA Customer Details Title] Field: Simple Field Local: Field: Simple Field : Set as: "CUSTOMER DETAILS " Local: Field: Default : Style : Normal Bold Local: Field: Simple Field: Full Width: Yes Space Top:0.25 Space Bottom:0.25 Local : Field : Simple Field : Space Left:0.10 Local: Field: Simple Field: Border: Right Sub Column Titles Local: Field: Default: Align: Center Local: Field: Simple Field: Style:CMP Name Style Local: Field:Simple Field: Print BG :Grey [Style: CMP Name Style] Font: Arial Black Height:15 Bold: Yes [Line:KA Customer Name] Field: Simple Field Local: Field: Simple Field: Set as: @@SimpleOtherPartyName Local: Field: Default : Style :Normal Bold Local: Field: Simple Field: Full Width: Yes Space Top:0.25 [Line:KA Customer Address] Fields : KA Customer Address [Field: KA Customer Address] Use : Name Field Set as : $Address Full Width : Yes Style : Normal [Line:KA Customer State Name] Field: Simple Field Local: Field: Simple Field: Set as: "State Name"+" : "+ $LedStateName:Ledger:$LedgerName +" "+ "Code :"+" "+ $$getgststatecode:$LedStateName:Ledger:$LedgerName Local: Field: Simple Field: Local Formula:StateName : If NOT ($$IsEmpty:$StateName OR $$IsSysName:NotApplicable:$StateName) Then $StateName Else $LedStateName:Ledger:@PartyName Local: Field: Simple Field: Full Width: Yes Local: Field: Simple Field: Style: Normal [Line:KA Customer GST No] Field: Simple Field Local: Field: Simple Field: Set as: "GSTIN No : " +" "+ $PARTYGSTIN:Ledger:$LedgerName +" "+" PAN No :"+" "+$IncomeTaxNumber:Ledger:$LedgerName Local: Field: Simple Field: Full Width: Yes [Line:KA Customer Contact] Field: Simple Field Local: Field: Simple Field: Set as: "Kind Attention :"+" "+ $$String:$MMSalesmanName Local: Field: Default : Style : Normal Bold Local: Field: Simple Field: Full Width: Yes Space Top:1.0 [Part:KA Coloumn Titles] Line:KA Invoice Body Title Border: Thin Left Right Common Border: Yes [Part: KA Invoice Body] Part:KA Invoice Body Coloumns Border: ThiN Cover;ThiN Cover Vertical: Yes [Part:KA Invoice Body Title] Line:KA Invoice Body Title Common Border: Yes [Line:KA Invoice Body Title] Use: KA Invoice Body Coloumns Local: Field: Default: Type: String Local: Field: Default : Lines : 2 Local: Field: Default: Align: Center Local: Field:KA SrNo: Set as: "Sr No" Local: Field:KA SrNo: Print BG :Grey Local: Field:KA Item Description: Set as: "Particulars" Local: Field:KA Item Description: Print BG :Grey Local: Field: KA GST : Set as : "%" Local: Field: KA GST: Full Width: Yes Local: Field:KA GST: Print BG :Grey Local: Field:KA HSN: Set as: "HSN" Local: Field:KA HSN: Print BG :Grey Local: Field:KA Billed Qty: Set as: "Qty" Local: Field:KA Billed Qty: Print BG :Grey Local: Field: KA Rate: Set as: "Rate" Local: Field:KA Rate: Print BG :Grey Local: Field: KA Per: Set as: "Per" Local: Field:KA Per: Print BG :Grey Local: Field:KA Gross Amt: Set as: "Amount" Local: Field:KA Gross Amt: Print BG :Grey Border: Thin Top Space Top: 0.10 Local: Field: Default: Style:PMP Name Style [Style: PMP Name Style] Font: Cambria (Headings) Height:10 Bold: Yes [Part:KA Invoice Body Coloumns] Line:KA Invoice Body Coloumns Repeat:KA Invoice Body Coloumns:Inventory Entries ; Bottom Line: KA Invoice Body Coloumns Total Scroll: Vertical Float: No Common Border: Yes Vertical : Yes [Line:KA Invoice Body Coloumns] Left Field: KA SrNo, KA Item Description Right Field:KA GST,KA HSN,KA Billed Qty, KA Rate, KA Per,KA Gross Amt Space Top: 0.25 Explode : Item Desc : $$NumItems:UserDescription > 0 ;;;$$NumItems is a used defned functions which can be ;;;used for counting purposes. It takes collection name as parameter Border: Thin Top Local: Field:KA SrNo: Width: 4 Local: Field:KA Item Description: Width:70 Local: Field: KA GST: Full Width: Yes Local: Field:KA HSN: Width:8 Local: Field:KA Billed Qty: Width: 7 Local: Field: KA Rate: Width: 5 Local: Field: KA Per: Width: 5 Local: Field:KA Gross Amt: Width: 10 Local:Field:KA GST:Align:Centre Local: Field:KA SrNo: Border: Thin Right Local: Field:KA Billed Qty: Border: Thin Left Local: Field: KA Rate: Border: Thin Left Local: Field: KA Per: Border: Thin Left Local: Field:KA Gross Amt: Border: Thin Left [Part: Item Desc] Lines : Item Desc,Itemdesknar,Itemdeskremark,Itemdeskremark11 Repeat : Item Desc : myudfs ;UserDescription [Line: Item Desc] Field:KA SrNo, KA Item Description Local:Field:KA SrNo:Set as:"" Local:Field:KA Item Description:Info:$BasicUserDescription10 +" "+ $$String:$SQFT3 +""+ $$String:$JAPPer +$$NewLine +"QTY."+ $$String:$JapDesc+"@" +$$String:$FinalRate+" = "+$$String:$JapDesc2+"/-" Local:Field:KA Item Description:Lines:0 Local:Field:KA Item Description:Style:Normal [Line: Itemdeskremark] ;;Add : Option : MLK Item Desc : $$IsEmpty:#Desc3 Field : IE SNoo,IE Remark Local:Field:IE SNoo:Set as:"" Local : Field : IE Remark : Info : $Desc3 Invisible : $$IsEmpty:$Desc3 [!Line : MLK Item Desc] Add : Field : IE SNoo,IE Remark Local:Field:IE SNoo:Set as:"" Local : Field : IE Remark : Info : $Desc3 [Line: Itemdeskremark11] Field : IE SNoo11,IE Remark11 Local:Field:IE SNoo:Set as:"" Local : Field : IE Remark11 : Info : $Desc33 Invisible : $$IsEmpty:$Desc33 Local: Field:IE Remark11: Print FG : Red [Field:IE SNoo11] Use : Short Name Field Set as : "" Border : Thin Left Width : 4 [Field: IE Remark11] Use : Name Field Set as : "" Border : Thin Left Style : Tiny Bold [Field:IE SNoo] Use : Short Name Field Set as : "" Border : Thin Left Width : 4 [Field: IE Remark] Use : Name Field Set as : "" Border : Thin Left Style : Tiny Bold [Line: Itemdesknar] Field:KA SrNo, KA Item Description Local:Field:KA SrNo:Set as:"" Local:Field:KA Item Description:Set as:"Quotation No : " + $VoucherNumber Local : Field : Default : Style : Tiny Bold [Field: Item Desc] Use : Name Field Width : 70 Indent : 8 Set as : $UserDescription Style : Normal Size : 4 [Field: KA Sr NO] Use: Simple Field Set as: $$Line Format: "No Zero" Style : Normal Bold Align: Center [Field:KA Item Description] Use: Simple Field Set as: $StockItemName Style : Normal Bold [Field: KA GST] Use : Name Field Set as : $GSTIGSTRate:StockItem:$StockItemName Format : "NoZero, Percentage" Border : Thin Left Align : Center Width : 2.5 [Field: KA HSN] Use : Name Field Set as : $GSTHSNCode:StockItem:$StockItemName Border : Thin Left Align : Centre Width : 8 [Field:KA Billed Qty] Use: Number Field Set as: $BilledQty Format : "NoSymbol" Align : Centre Width : 7 [Field:KA Rate] Use: Rate Price Field Set as: $Rate [Field: KA Per] Use : Name Field Set as : $BaseUnits:StockItem:$StockItemName Align : Centre Width : 5 [Field:KA Gross Amt] Use:Amount Forex Field Set as: $Amount Width: 10 [Part:nGSTanalisysBankdetailsledgerentries] Left Part:VCH GST AnalysisDetails ; Border: Thick Cover Common Border:Yes [Part:KA Invoice Total] Right Part: KA Ledger Entries Left Part: KA Invoice Sing Off Border: Thick Box [Part:KA Ledger Entries] Line:nGrossTotal,KA Ledger Entries Repeat:KA Ledger Entries:Ledger Entries Float: No Common Border: Yes Bottom Line: KA Invoice Total [Style:nStyleGross] Font:"Calibri" Height:10 Bold:Yes [Line:nGrossTotal] Field: nGrossTotalTitle, nGrossTotalAmt Border: thick Bottom Height:5 mms Local: Field: Default: Style:PPP Name Style [Style: PPP Name Style] Font: Cambria (Headings) Height:10 Bold: Yes [Field:nGrossTotalTitle] Use: Simple Field Set as:"GROSS TOTAL" Width:20.7 ;Border: Thick Bottom [Field:nGrossTotalAmt] Use: Amount Field Set as: $$CollAmtTotal:InventoryEntries:$Amount Style: nStyleGross Width:10 Border: Thin Left [Line: KA Ledger Entries] Remove if : $LedgerName = $PartyLedgerName Field: KA Ledger Name, KA Ledger Amount Space Top: 0.5 Border: Thin Bottom Local: Field:KA Ledger Name: Print FG : Blue Local: Field:KA Ledger Amount: Print FG : Blue Local: Field: KA Ledger Name: Style:Normal Bold Local: Field: KA Ledger Amount: Style:Normal Bold [Field: KA Ledger Name] Use: Simple Field Set as: $LedgerName Width: 20.7 Border: Thin Left [Field:KA Ledger Amount] Use: Amount Field Set as: $Amount Width: 10 Border: Thin Left Align: Right [Line:KA Invoice Total] Field: KA Invoice Total Title, KA Invoice Total Amt Space Bottom:0.25 Local: Field: KA Invoice Total Title: Style:PP Name Style [Style: PP Name Style] Font: Cambria (Headings) Height:12 Bold: Yes [Field:KA Invoice Total Title] Use: Simple Field Set as:"QUOTATION TOTAL" Width:20.7 [Field:KA Invoice Total Amt] Use: Amount Field Set as: $Amount Style: Large Bold Width:10 Border: Thin Left [Part:KA Invoice Sing Off] Part: KA Amount In Word and Declaration, KA Invoice Sing Off Part Vertical: Yes [Part:KA Amount In Word and Declaration] Line: KA Amount In Word [Line:KA Amount In Word] Field: Simple Field Local: Field: Simple Field: Set as: "AMOUNT IN WORDS :" +" "+ $$InWords:$Amount Local: Field: Simple Field: Full Width: Yes Local : Field : Default : Style : Tiny Bold Local: Field: Simple Field: Line:0 [Part:KA Invoice Sing Off Part] Left Part: nBankDetails Right Part: For KA Border: thick Top [Part:nBankDetails] Line:nInvBankNameLine,username [Line: nInvBankNameLine] Fields : Simple Field Local : Field : Simple Field : Set as :"NOTE :" +" "+ $$String:$RemarkFld Local : Field : Default : Style : Tiny Bold Local: Field: Simple Field: Full Width: Yes Local: Field: Simple Field: Line:0 [Line: nInvBranchLine] Space Top:0.75 ;Space Bottom:0.25 Fields : Medium Prompt,Name Field Local : Field : Medium Prompt : Width :30 mms; 18% Page Local : Field : Name Field :Align:Left Local : Field : Name Field : Width :50 mms [Line:username] Field:Name field Local:Field:Name Field:Set as:"Created By :"+$$String:$$Cmpusername Local: Field: Name field: Full Width: Yes Local: Field: Name field: Style:Tiny Local: Field: Name field: Align: Left Space Top:3.5 [Part:For KA] Line: For KA, Bottom Line:KA Authorised Signatory Border: Thick Left [Line: For KA] Field: Simple Field Local: Field: Simple Field: Set as: " For " +" "+ @@CmpMailName Local: Field: Simple Field: Full Width: Yes Local: Field: Simple Field: Style:Normal Bold Local: Field: Simple Field: Align: Right Space Top: 0.50 [Line:KA Authorised Signatory] Field: Simple Field Local: Field: Simple Field: Set as: "Authorized Signatory" Local: Field: Simple Field: Full Width: Yes Local: Field: Simple Field: Style:Normal Bold Local: Field: Simple Field: Align: Center Space Top:2 Space Bottom:1.0 [Part:KA Goods Sold] Line:KA Juridiction [Line:KA Juridiction] Field: Simple Field Local: Field: Simple Field: Set as: "" Local: Field: Simple Field: Align: Center Local: Field: Simple Field: Full Width: Yes
IN........ [Line:KA Invoice Body Coloumns] Left Field: KA SrNo, KA Item Description Right Field:KA GST,KA HSN,KA Billed Qty, KA Rate, KA Per,KA Gross Amt Space Top: 0.25 Explode : Item Desc : $$NumItems:UserDescription > 0 You have already exploded "Item Desc"............ so similarly explode "BasicUserDesciption"
ref : [Line: OTS Invoice Body] explode : TriS EXPINV ItemDesc [Part: TriS EXPINV ItemDesc] Line : TriS EXPINV ItemDesc Repeat : TriS EXPINV ItemDesc : UserDescription BreakOn : $$IsEmpty:$UserDescription Scroll : Vertical [Line: TriS EXPINV ItemDesc] Fields: EXPINV ColSlNo, EXPINV ColItemDesc local: field : EXPINV ColSlNo : set as: "" local: field : EXPINV ColItemDesc : set as: $UserDescription local: field : EXPINV ColItemDesc : style : Size10Italic local: field : EXPINV ColQtyBAG : set as: "" get help from this code
