Mensaje de error al guardar con TDataRow

Mensaje de error al guardar con TDataRow

Postby MarioG » 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: Select all  Expand view  RUN
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  RUN
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  RUN
oDataPagos  := TDataRow():New( ::oCompras:oQryFCompra, FALSE )

En este acto; se modifica solo dos campos del registro editado:
Code: Select all  Expand view  RUN
   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?
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
User avatar
MarioG
 
Posts: 1380
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 77 guests