Errro en UPDATE()

[ecuevas]

hola tengo un programas con su altas, bajas y cambios todo funciona bien solo que en la parte de cambios me manda un errro en el update

Application
===========
Path and name: C:\pruebah\akurata\tablacr.exe (32 bits)
Size: 1,668,608 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 21/08/2007, 17:11:12
Error description: Error adodb.recordset/16389 E_FAIL: UPDATE
Args:

Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:UPDATE(0)
Called from: tablacr.prg => XACRMEN_GRABACAM(345)
Called from: tablacr.prg => (b)ACRMEN_CAMBIOS(332)
Called from: BUTTON.PRG => TBUTTON:CLICK(0)
Called from: CONTROL.PRG => TBUTTON:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => SENDMESSAGE(0)
Called from: DIALOG.PRG => TDIALOG:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: tablacr.prg => ACRMEN_CAMBIOS(335)
Called from: tablacr.prg => (b)TABLACR_INI(90)
Called from: BUTTON.PRG => TBUTTON:CLICK(0)
Called from: CONTROL.PRG => TBUTTON:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => SENDMESSAGE(0)
Called from: DIALOG.PRG => TDIALOG:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: tablacr.prg => TABLACR_INI(162)
Called from: tablacr.prg => TABLACR(44)

esta es la parte del programa el error me lo manda en cambios esta al final


FUNCTION ACRMEN_ALTAS()

public oDlg12, oBot1,oGet11, oGet21, oGet31, oGet41

xLimInf:=0
xLimSup:=0
xCuofij:=0
xFactor:=0

DEFINE DIALOG oDlg12 RESOURCE "IMPALTAS"

REDEFINE GET oGet11 VAR xLiminf ID 101 OF oDlg12 PICTURE "###########.##"
REDEFINE GET oGet21 VAR xLimSup ID 102 OF oDlg12 PICTURE "###########.##"
REDEFINE GET oGet31 VAR xCuoFij ID 103 OF oDlg12 PICTURE "###########.##"
REDEFINE GET oGet41 VAR xFactor ID 104 OF oDlg12 PICTURE "#.######"

REDEFINE BUTTON oBot1 ID 105 OF oDlg12 WHEN xCuoFij<>0 ACTION (ACRMEN_GRABA1(),oFld:Refresh())
REDEFINE BUTTON oBot1 ID 106 OF oDlg12 ACTION (sysrefresh(),oFld:Refresh(),oDlg12:End())

ACTIVATE DIALOG oDlg12 CENTERED

RETURN


FUNCTION ACRMEN_GRABA1

oRsTACRMENS:AddNew()

oRsTACRMENS:fields("AM_LIM_INF"):value:=xLimInf
oRsTACRMENS:fields("AM_LIM_SUP"):value:=xLimSup
oRsTACRMENS:fields("AM_CUO_FIJ"):value:=xCuoFij
oRsTACRMENS:fields("AM_PORCENT"):value:=xFactor
oRsTACRMENS:UPDATE()

STORE 0 TO xLimInF,xLimSup,xCuofij,xFactor


RETURN

FUNCTION ACRMEN_BAJAS()
xLimInf:= oRsTACRMENS:fields("AM_LIM_INF"):value
xLimSup:= oRsTACRMENS:fields("AM_LIM_SUP"):value
xCuoFij:= oRsTACRMENS:fields("AM_CUO_FIJ"):value
xFactor:= oRsTACRMENS:fields("AM_PORCENT"):value

DEFINE DIALOG oDlg2 RESOURCE "IMPBAJAS"

REDEFINE SAY oSay1 VAR xLimInf ID 101 OF oDlg2 PICTURE "###########.##"
REDEFINE SAY oSay1 VAR xLimSup ID 102 OF oDlg2 PICTURE "###########.##"
REDEFINE SAY oSay1 VAR xCuoFij ID 103 OF oDlg2 PICTURE "###########.##"
REDEFINE SAY oSay1 VAR xFactor ID 104 OF oDlg2 PICTURE "#.######"

REDEFINE BUTTON oBot1 ID 105 OF oDlg2 ACTION (ACRMEN_BORRA1(),sysrefresh(),oFld:Refresh(),oDlg2:End())
REDEFINE BUTTON oBot1 ID 106 OF oDlg2 ACTION (sysrefresh(),oFld:Refresh(),oDlg2:End())

ACTIVATE DIALOG oDlg2 CENTERED

RETURN

FUNCTION ACRMEN_BORRA1()

oRsTACRMENS:Delete()
oRsTACRMENS:Update()
oRsTACRMENS:ReQuery()

RETURN

FUNCTION ACRMEN_CAMBIOS()

xLimInf:= oRsTACRMENS:fields("AM_LIM_INF"):value
xLimSup:= oRsTACRMENS:fields("AM_LIM_SUP"):value
xCuoFij:= oRsTACRMENS:fields("AM_CUO_FIJ"):value
xFactor:= oRsTACRMENS:fields("AM_PORCENT"):value

DEFINE DIALOG oDlg3 RESOURCE "IMPCAMBIOS"

REDEFINE GET oGet1 VAR xLimInf ID 101 OF oDlg3 PICTURE "###########.##" // &&valid checaACR2()&&
REDEFINE GET oGet1 VAR xLimSup ID 102 OF oDlg3 PICTURE "###########.##"
REDEFINE GET oGet1 VAR xCuoFij ID 103 OF oDlg3 PICTURE "###########.##"
REDEFINE GET oGet1 VAR xFactor ID 104 OF oDlg3 PICTURE "#.######"

REDEFINE BUTTON oBot1 ID 105 OF oDlg3 ACTION (XACRMEN_GRABACAM(),sysrefresh(),oFld:Refresh(),oDlg3:End())
REDEFINE BUTTON oBot1 ID 106 OF oDlg3 ACTION (sysrefresh(),oDlg3:End())

ACTIVATE DIALOG oDlg3 CENTERED

RETURN

FUNCTION XACRMEN_GRABACAM()

*oRsTACRMENS:fields("AM_LIM_INF"):value =xLimInf
*oRsTACRMENS:fields("AM_LIM_SUP"):value =xLimSup
oRsTACRMENS:fields('AM_CUO_FIJ'):value =xCuoFij
oRsTACRMENS:fields('AM_PORCENT'):value =xFactor
oRsTACRMENS:update()
oRsTACRMENS:requery()
RETURN


lo raro es que en otros programas si funciona mis altas,bajas y cambios y tienen el update y requery....

me podrian ayudar.... gracias.

[dduarte]

Cuevas,

Mirar aquí:
http://fivetechsoft.com/forums/viewtopi ... ght=#10249

He tenido ese error, después de mucho buscar, tocar puertas y probar la solución fue cambiar el tipo de campo. En mi caso cambié de un campo DOUBLE a un campo DECIMAL(14,2) y problema resuelto.

Un saludo,

Danilo