Page 1 of 1

Mensaje de error al guardar con TDataRow

PostPosted: Tue Jun 15, 2021 12:39 pm
by MarioG
Hola Gente!
Tengo el siguiente, sencillo Query, de una Tabla con 29 campos, la mayoría de tipo numérico
Code: Select all  Expand view
local cSQL    := "SELECT COMP.* FROM cabcompras AS COMP " + ;
                 "WHERE id_FacState="+FW_ValtoSQL( _DOCCOMPRAS ) +" "+ ;
                 "ORDER BY FeCompra DESC"
 

Donde el campo id_FacState es de tipo numérico y solo registra los valores 1 (_DOCCOMPRAS ) Y 2 (_DOCPAGOS)
De manera que al agregar, un registro (documento factura) hago:
Code: Select all  Expand view
oDataFCompra:= TDataRow():New( ::oQryFCompra, TRUE )

En esta acción de Agregar, el proceso es correcto.

En el segundo paso y al pasar este proceso al estado "pagado"; se procede a editar un registro, mediante:
Code: Select all  Expand view
oDataPagos  := TDataRow():New( ::oCompras:oQryFCompra, FALSE )

En este acto; se modifica solo dos campos del registro editado:
Code: Select all  Expand view
   oDataPagos:Detalle    := "Factura PAGADA a: " +Rtrim( cProveedor )
   oDataPagos:id_FacState:= _DOCPAGOS
   ... luego, en un TRY CATCH se procede a Guardar, mediante:
   oDataPagos:Save()

Y es aquí donde emerge la siguiente ventana; y que en el paso siguiente, NO pasa por el CATCH y realiza (guarda) la modificación de los campos precitados.
Image

Cual podría ser es el motivo del mensaje emergente?