For
i = 0
To
Gridview.RowCount - 1
If
(i
Mod
10) = 0
Then
Gridview.SetCurrentCell i,
"MATNR"
If
istRenner(Gridview.GetCellValue(i,
"MATNR"
)) =
False
Then
NichtRenner = NichtRenner + Gridview.GetCellValue(i,
"ZUMENGE"
)
End
If
If
istRenner(Gridview.GetCellValue(i,
"MATNR"
)) =
True
Then
Renner = Renner + Gridview.GetCellValue(i,
"ZUMENGE"
)
End
If
If
KleinTwoTE(Gridview.GetCellValue(i,
"MATNR"
)) =
True
Then
KleinerKontakt2TE = KleinerKontakt2TE + Gridview.GetCellValue(i,
"ZUMENGE"
)
End
If
If
KleinFourTE(Gridview.GetCellValue(i,
"MATNR"
)) =
True
Then
KleinerKontakt4TE = KleinerKontakt4TE + Gridview.GetCellValue(i,
"ZUMENGE"
)
End
If
End
If
qp.Report.setPercent i / Gridview.RowCount
Next