Luego seleccionemos la subrutina Grid Event
Y agreguemos el siguiente código:

rem ' -----------------------------------------------------------------
rem ' Grid Event
rem ' -----------------------------------------------------------------

grid_event:

call "gml_m",gb__sysgui,gb__event$,gb__notice$,
: gml_set$,gml_tpl$,gml$,gml_gm$[all],gml_gc$[all],gml_gr$[all]

switch gml.notify
     case 6; rem end edit
          switch gml_tpl.flag
               case 1; rem enter
                    call "gml::end_edit"
                    break
          swend
     break
     case 9; rem start edit
          switch gml_tpl.flag
               case 3; rem start edit (double click)
                    Total =num(gml_tpl.col$[5])
                    TotalG =Num(Ctrl(gb__sysgui,Id_Total,Get_Text))
                    TotalG =TotalG-Total
                    Print (gb__sysgui)'title'(Id_Total,str(TotalG)),
:                       'title'(Id_Codigo,gml_tpl.col$[1]),
:                       'title'(Id_Descripcion,gml_tpl.col$[2]),
:                       'title'(Id_Cantidad,gml_tpl.col$[3]),
:                       'title'(Id_Costo,gml_tpl.col$[4])
                    if gml_tpl.row_stat%=0 then
:                   row%=row%-1
                    call "gml::delete_row"

          case 9; rem start edit (enter)
               call "gml::start_edit"
          break
     swend
break
swend

return

Luego seleccionemos del botón de lista Object --- New Subroutine/Function ---
Y digitemos el nombre Limpiar Pantalla y digitemos el siguiente código.

rem ' -----------------------------------------------------------------
rem ' Limpiar Pantalla
rem ' -----------------------------------------------------------------

Limpiar_Pantalla:

Print (gb__sysgui)'clrtype'(controlInputN,controlInputE)

gml.set%=1
call "gml::tpl_prep"
call "gml::clear"

row%=0

Print (gb__sysgui)'focus'(Id_Codigo)

Return