In the Body Part, there is a list of Material Supplies to the Customer In this, I want the height to max 15 Black Line is where it ends (Max 15 if more is there then it should continue at page 2 then the total part will come in Blank Line then GST analyses (Green Line) then Company Bank Detail (Green Line) and the rest is the same Below is code Please Guide Code: [Part:MICS Body Coloumns Title] Line: MICS Coloumns Title1, MICS Coloumns Title2 Border: Thick Cover Common Border: Yes [Line: MICS Coloumns Title1] Use: Invoice Body Local: Field: Default: Type: String Local: Field: Default: Style: MICS9B Local: Field: Default: Align: Center Local: Field: MICS SrNo: Set as: "Sr" Local: Field: MICS Mark Code:Set as:"No.of" Local: Field: MICS Pkgs Code:Set as:"Packages" Local: Field: MICS Description:Set as:" Item " Local: Field: MICS DNT :Set as:"Delivery" Local: Field: MICS HSN Code: Set as:"HSN" Local: Field: MICS GST Per: Set as:"GST" Local: Field: MICS Qty: Set as:"Qty" Local: Field: MICS Rate: Set as:"Rate" Local: Field: MICS GrossAmt: Set as:"Gross" [Line:MICS Coloumns Title2] Use: Invoice Body Local: Field: Default: Type: String Local: Field: Default: Style: MICS9B Local: Field: Default: Align: Center Local: Field: MICS SrNo: Set as: "No" Local: Field: MICS Mark Code:Set as:"Boxes" Local: Field: MICS Pkgs Code:Set as:"Unit" Local: Field: MICS Description:Set as:"Description" Local: Field: MICS DNT: Set as:"OrderNo" Local: Field: MICS HSN Code: Set as:"Code" Local: Field: MICS GST Per: Set as:"%" Local: Field: MICS Qty: Set as:"" Local: Field: MICS Rate: Set as:"" Local: Field: MICS GrossAmt: Set as:"Amount" [Part:Invoice Body] Line: Invoice Body Repeat:Invoice Body: Inventory Entries Bottom Line: MICS Coloumn Total Border: Thin Cover Scroll: Vertical Float:No Common Border: Yes [Line: Invoice Body] Field: MICS SrNo, MICS Mark Code, MICS Pkgs Code, MICS Description, MICS DNT Right Field: MICS HSN Code, MICS GST Per, MICS Qty, MICS Rate, MICS GrossAmt Local: Field: MICS SrNo: Width:3 Local: Field: MICS Mark Code: Width:8 Local: Field: MICS Pkgs Code: Width:9 Local: Field: MICS Description: Width:64 Local: Field: MICS DNT: Width:10 Local: Field: MICS HSN Code: Width:11 Local: Field: MICS GST Per: Width: 4 Local: Field: MICS Qty: Width:15 Local: Field: MICS Rate: Width: 15 Local: Field: MICS GrossAmt: Width: 12.7 Local: Field: MICS SrNo: Border: Thick Right Local: Field: MICS Mark Code:Border: Thick Left Local: Field: MICS Pkgs Code:Border: Thick Left Local: Field: MICS Description:Border: Thick Left Local: Field: MICS DNT: Border: Thick Left Local: Field: MICS HSN Code: Border: Thick Left Local: Field: MICS GST Per: Border: Thick Left Local: Field: MICS Qty: Border: Thick Left Local: Field: MICS Rate: Border: Thick Left Local: Field: MICS GrossAmt: Border: Thick Left Space Top: 0.15 [Field:MICS SrNo] Use: Simple Field Set as: $$Number:$$Line Style: MICS9 [Field:MICS Mark Code] use: Local Field set as: $BasicPackageMarks Style: MICS9 Align : Right [Field:MICS Pkgs Code] use: Local Field set as: $BasicNumPackages Style: MICS9 Align : Right [Field:MICS Description] Use: Simple Field Style: MICS9 Space Left : 2 Set as: if NOT $$IsSysName:(" "+$StockItemName) then @@InvItemName else "" Line: 0 [Field:MICS DNT] Use:VCHBATCH Track Style: MICS9 Space Left : 3 [Field:MICS HSN Code] Use:Simple Field Align: Right Set as:$GSTItemHSNCodeEx Style: MICS9 [Field:MICS GST Per] Use:Simple Field Set as:If NOT $GSTIsTransLedEx Then "" Else $GSTClsfnIGSTRateEx Align: Right Style:MICS9 [Field:MICS Gross Amt] Use:Amount Forex Field Set as: $Amount Align: Right Style: MICS9 [Field:MICS Qty] Use: Simple Field Set as: $BilledQty Align: Right Style:MICS9 [Field:MICS Rate] Use: Simple Field Set as: $Rate Align: Right Style:MICS9 Set Always: Yes Style:MICS9 [Line:MICS Coloumn Total] Use:Invoice Body Border: Thick Top Bottom Local: Field: MICS SrNo: Set as: "" Local: Field: MICS Mark Code:Set as:"" Local: Field: MICS Pkgs Code:Set as:"" Local: Field: MICS Description:Set as:"Total" Local: Field: MICS DNT: Set as:"" Local: Field: MICS HSN Code: Set as:"" Local: Field: MICS GST Per: Set as:"" Local: Field: MICS Qty: Set as:"" Local: Field: MICS Rate: Set as:"" Local: Field: MICS Gross Amt: Set as: $$CollAmtTotal:InventoryEntries:$Amount Local: Field: MICS Description: Style:MICS9B Local: Field: MICS Gross Amt: Style:MICS9B [System: Formula] SGST :$$FilterAmtTotal:LedgerEntries:SGST1:$Amount SGST1 :$Name:Ledger:$LedgerName Contains $$LocaleString:"SGST" CGST :$$FilterAmtTotal:LedgerEntries:CGST1:$Amount CGST1 :$Name:Ledger:$LedgerName Contains $$LocaleString:"CGST" IGST :$$FilterAmtTotal:LedgerEntries:IGST1:$Amount IGST1 :$Name:Ledger:$LedgerName Contains $$LocaleString:"IGST" Round :$$FilterAmtTotal:LedgerEntries:Round1:$Amount Round1 :$Name:Ledger:$LedgerName Contains $$LocaleString:"Round" [Part:MICS GST analisys Bankdetails ledgerentries] Left Part:VCH GST AnalysisDetails Right Part: MICSBankDetails, MICSLedgerEnteries Border: Thick Cover Common Border:Yes
If you keep asking simple solutions, you might not learn......... you have taken a existing code and modified it as per your requirement. Same way simple things you can do on understanding the same and using it in your code. As a guide I can advise you to learn a little on your own. For your above requirement, learn from DEVELOPER how to set the size of a PART and learn Opening PageBreak and Closing Pagebreak and you will have the solutions. You can do it, it is not that difficult.
Sir, basically I am developer I FoxPro for dos version Sirji your Bit of hint had help me a lot to customise the sales invoices. No dought I am modifying the coding of others but that's the way to learn because of where and how to use which form, part, head etc Sir due to your and other Experts' hints I was able to do these changes Sir you can spot the differences below Old Format New Format This is the result I got