Body Part

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

 

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