Xailer & OZ Software

Ignacio, compruebo que el problema que tení­a se ha arraglado, pero me
sigue dando el siguiente error:
En los campos fecha, cuando añadimos un valor de la tabla donde el
campo es null da el siguiente fallo:
Adodb:Recorset:update(AddNew)
La operación en varios pasos generó errores. Compruebe los valores de
estado.
Y cuando modificamos el siguiente:
Adodb:RecordSet:FieldPut('FechaNac'):= (C)
La operación en varios pasos generó errores. Compruebe los valores de
estado.
Adjunto te remito un ejemplo.
Saludos.
--

Juan José,
Disculpe por el error. Si fuera ten amable de probar con el siguiente
código:
//---------------------------------------------------------- ----------------
METHOD FieldInfo( nField, nPos ) CLASS XAdoRecords
LOCAL aInfo
LOCAL cType
LOCAL nType, nSize, nDec
aInfo := Array( XA_FLDINFO_COUNT )
WITH OBJECT ::oAdo:Fields[ --nField ]
nType := :Type
cType := BasicType( nType )
nSize := :DefinedSize
nDec := :NumericScale
IF nDec == 255
nDec := 0
ENDIF
aInfo[ XA_FLDINFO_NAME ] := :Name
aInfo[ XA_FLDINFO_SQLTYPE ] := nType
aInfo[ XA_FLDINFO_BASICTYPE ] := cType
aInfo[ XA_FLDINFO_SQLLEN ] := nSize
aInfo[ XA_FLDINFO_BASICLEN ] := BasicSize( nSize, cType )
aInfo[ XA_FLDINFO_SQLDEC ] := nDec
aInfo[ XA_FLDINFO_BASICDEC ] := nDec
aInfo[ XA_FLDINFO_ALLOWSNULL ] := lAnd( :Attributes, adFldIsNullable )
aInfo[ XA_FLDINFO_EDITABLE ] := .T. <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
línea cambiada
aInfo[ XA_FLDINFO_DEFVALUE ] := XA_GetDefValue( cType )
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< línea cambiada
aInfo[ XA_FLDINFO_AUTOINC ] := .F. // NOTA: Existe algun atributo
en ADO para esto?
END WITH
IF ! Empty( nPos )
RETURN aInfo[ nPos ]
ENDIF
RETURN aInfo
E indicarme si el problema se soluciona (aquí parece que va correcto) le
quedaría muy agradecido.
Un cordial saludo,
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"Juan Jose Zamora San Martin" <juanjosezamoras@gmail.com> escribió en el
mensaje news:[email=4ad96136@svctag-j7w3v3j....]4ad96136@svctag-j7w3v3j....[/email]
> Ignacio, compruebo que el problema que tenía se ha arraglado, pero me
> sigue dando el siguiente error:
>
> En los campos fecha, cuando añadimos un valor de la tabla donde el
> campo es null da el siguiente fallo:
>
> Adodb:Recorset:update(AddNew)
> La operación en varios pasos generó errores. Compruebe los valores de
> estado.
>
> Y cuando modificamos el siguiente:
> Adodb:RecordSet:FieldPut('FechaNac'):= (C)
> La operación en varios pasos generó errores. Compruebe los valores de
> estado.
>
>
> Adjunto te remito un ejemplo.
>
> Saludos.
>