FiveTech Support Forums

@ 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