Sobre xBrowse (SOLUCIONADO) gracias César

[Armando]

Estimados amigos del foro:

Estoy haciendo mi primer xBrowse con FASTEDIT, solo tiene dos columnas, una es de fecha y otra
de cantidad, actualizo directamente una tabla en MySql, la edición de celdas prácticamente no tengo
problemas, la dificultad que tengo es que no se como agregar un registro más cuando edito la última
columna.

Algún ejemplo será bienvenido y agradecido.

Saludos

[cmsoft]

Hola Armando:
Puedes utilizar el bloque de codigo bPastEof

Code: Select all  Expand view  RUN

@ 05,05 XBROWSE oBrwFam DATASOURCE oQryFam;
              COLUMNS "fecha","cantidad";
              HEADERS "Fecha","Cant.";
              SIZES 100,90;
              OF oFol:aDialogs[2] AUTOSORT CELL SIZE 100,80 PIXEL
   WITH OBJECT oBrwFam
        :bPastEof := {|| AgregarFam(oQryFam,oBrwFam)}
   END
   oBrwFam:CreateFromCode()
...

************************************************************
** Agregar un familiar a la lista
STATIC FUNCTION AgregarFam(oQryFam,oBrwFam)
LOCAL lRta, oError, base
lRta := MsgNoYes("Desea agregar un nuevo famliar?","Atencion")
IF lRta
   TRY
      oApp:oServer:BeginTransaction()
      oQryFam:GetBlankRow()
      oQryFam:fecha := DATE()
      oQryFam:cantidad := 0
      oQryFam:Save()
      oApp:oServer:CommitTransaction()
      oQryFam:Refresh()
      oBrwFam:Refresh()
   CATCH oError
      MsgStop("Error al Agregar"+CHR(10)+oError:description,"Error")
      oApp:oServer:RollBack()
   END TRY      
ENDIF
RETURN nil
 

[Armando]

César:

Muchas gracias, voy a tirar por ahí.

Saludos

[Armando]

César:

Solucionado, muchas gracias.

Saludos