30
« on: May 21, 2023, 12:17:14 pm »
In case someone is interested, this code works:
reprows = 0
ok = VRMethod( "QRY_2", "MoveFirst" )
identifier = ''
sum = 0
do while( ok = 1 )
call VRMethod "QRY_2", "RowData", "data."
if data.1 <> identifier then do
identifier = data.1
sum = data.2
end
else do
sum = sum + data.2
end
data.3 = sum
reprows=reprows+1
data.reprows.TEKSTFLT = data.1
data.reprows.TALLFLT1 = data.2
data.reprows.AKKUM = data.3
ok = VRMethod( "QRY_2", "MoveNext" )
end
data.0=reprows
DO i=1 TO data.0
END i
hwnd = VRGet( "Window1", "HWnd" )
rc=VpPrintReport(hwnd, 'REP_HBAKKM.vpt', 'data.', '<PREVIEW>' )