If rec1.EOF Then
i = i + 1
.Cells(i, 1) = rec!sklad
.Cells(i, 2) = rec!skln_cd
.Cells(i, 3) = TD(ddd1)
.Cells(i, 4) = 0
If rec!skldcs_SumExt <> 0 And rec!bonus = 1 Then .Cells(i, 5) = 0
ElseIf rec!skldcs_SumExt = 0 And rec!bonus = 1 Then .Cells(i, 5) = -1
.Cells(i, 6) = 0
.Cells(i, 7) = qtn
.Cells(i, 8) = 0
.Cells(i, 9) = 0
.Cells(i, 10) = qtn
.Cells(i, 11) = smn
.Cells(i, 12) = 0
.Cells(i, 13) = 0
.Cells(i, 14) = smn
Else
If ddd1 <> rec1!dat Then
i = i + 1
.Cells(i, 1) = rec!sklad
.Cells(i, 2) = rec!skln_cd
.Cells(i, 3) = TD(ddd1)
.Cells(i, 4) = 0
If rec!skldcs_SumExt <> 0 And rec!bonus = 1 Then .Cells(i, 5) = 0
ElseIf rec!skldcs_SumExt = 0 And rec!bonus = 1 Then .Cells(i, 5) = -1
.Cells(i, 6) = 0
.Cells(i, 7) = qtn
.Cells(i, 8) = 0
.Cells(i, 9) = 0
.Cells(i, 10) = qtn
.Cells(i, 11) = smn
.Cells(i, 12) = 0
.Cells(i, 13) = 0
.Cells(i, 14) = smn
Else
i = i + 1
.Cells(i, 1) = rec!sklad
.Cells(i, 2) = rec!skln_cd
.Cells(i, 3) = TD(rec1!dat)
.Cells(i, 4) = 0
If (rec!skldcs_SumExt <> 0) And (rec!bonus = 1) Then .Cells(i, 5) = 0
ElseIf (rec!skldcs_SumExt = 0) And (rec!bonus = 1) Then .Cells(i, 5) = -1
.Cells(i, 6) = 0
.Cells(i, 7) = qtn
.Cells(i, 8) = rec1!prih
.Cells(i, 9) = rec1!rash
qtn = qtn + rec1!prih - rec1!rash
.Cells(i, 10) = qtn
.Cells(i, 11) = smn
.Cells(i, 12) = rec1!prih * rec!sklkrt_cn
.Cells(i, 13) = rec1!rash * rec!sklkrt_cn
smn = qtn * rec!sklkrt_cn
.Cells(i, 14) = smn
rec1.MoveNext
End If
End If
|
