FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Mensaje de error al guardar con TDataRow
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Mensaje de error al guardar con TDataRow
Posted: Tue Jun 15, 2021 12:39 PM
Hola Gente!
Tengo el siguiente, sencillo Query, de una Tabla con 29 campos, la mayoría de tipo numérico
Code (fw): Select all Collapse
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 (fw): Select all Collapse
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 (fw): Select all Collapse
 oDataPagos  := TDataRow():New( ::oCompras:oQryFCompra, FALSE )

En este acto; se modifica solo dos campos del registro editado:
Code (fw): Select all Collapse
    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.


Cual podría ser es el motivo del mensaje emergente?
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Continue the discussion