AW: A40 bugs V4MD

[Florian Bogeschdorfer]

Igor, these are the interesting lines of the log file:

09:56:24.282000 (2808): (584) SQL: select RecID, * from KUNDENtable ORDER BY
KD_ID; # of records: 8
 09:56:24.292000 (2812): (584) CURSOR(e48b38): FirstRecord : OK
 09:56:24.292000 (2804): (584) CURSOR(e48b38): FirstRecord : OK
 09:56:28.498000 (2808): (584) ERROR #0: No error 
 09:58:59.866000 (2808): (584) SQL: select RecID, * from Z_DAY ORDER BY
Z_DAY_Time; # of records: 0 

This is my involved code:


on resetDatabaseDay
  repeat with i= 1 to VALcursors.count
    VALcursors[i]=0
  end repeat
  x=VALmakeCursorWithAllRecordsFromTable ("KUNDENtable","KD_ID")
  if x=0 then
    --fehler
    alert VALerror
    alert "DB konnte nicht zurückgesetzt werden"
    exit
  else
    y=updateAllRecords(x,[#inhouse:0,#KD_checkedInToday:0])
    if y=1 then
      --      alert ("Datenbank wurde zurückgesetzt")
    else
      alert "Datenbank konnte nicht zurückgesetzt werden"
    end if
    x=0
  end if
  x=VALmakeCursorWithAllRecordsFromTable ("Z_DAY","Z_DAY_Time")
  if x=0 then
    --fehler
    alert VALerror
    alert "DB konnte nicht zurückgesetzt werden"
    exit
  else
    y=deleteAllRecords(x)
    if y=1 then
      alert ("Datenbank wurde zurückgesetzt")
    else
      alert "Datenbank konnte nicht zurückgesetzt werden"
    end if
    x=0
  end if
End

on VALmakeCursorWithAllRecordsFromTable tableName, o
  set xCursor = new( xtra "VCursor", GetRef(VAL[#ID]), "select RecID, * from
"&tableName&&"ORDER BY"&&o,2,1,2)
  if ValentinaError()<>0 then
    VALerror=ValentinaErrorString()
    xCursor=0
    return 0
  else
    return xCursor
  end if
end