Kennt jemand dieses Problem und hat dafür eine "kleine" Lösung ?
Code: Alles auswählen
proc main
local getlist:={},va:=0,vb:=50,vc:=0
fmakexbla()
va=vb/vc // Kein Fehler inkl. 64bit Version
? va,valtype(va) // 0,00 N
? vb,valtype(vb) // 50 N
? vc,valtype(vc) // 0 N
inkey(0)
use xbla
appe blan
repl wert with va // geht in 64bit Version nicht
*repl wert with val(str(va,10,2)) // so ja
browse()
close xbla
return
*------------------------------------------------------
function fmakexbla()
if file("xbla.dbf")
return .t.
endif
aastruct := {{ "WERT" , "N" , 10 , 2 }}
DBCREATE("xbla",aastruct)
return .t.