Seleccionemos del botón de lista Object --- New Subroutine/Function ---
Y digitemos el nombre Grabar y digitemos el siguiente código:

rem ' -----------------------------------------------------------------
rem ' Grabar
rem ' -----------------------------------------------------------------

Grabar:

Datos.Codigo$ =Ctrl(gb__sysgui,Id_Codigo,Get_Text)
Datos.Descripcion$ =Ctrl(gb__sysgui,Id_Descripcion,Get_Text)
Datos.Cantidad =Num(Ctrl(gb__sysgui,Id_Cantidad,Get_Text))
Datos.Costo =Num(Ctrl(gb__sysgui,Id_Costo,Get_Text))

if cvs(Datos.Codigo$,3)="" then
:          Resp=msgbox("No ha digitado el Codigo",Info_Icon,"Información");
:     Return

if cvs(Datos.Descripcion$,3)="" then
:          Resp=msgbox("No ha digitado la Descripcion ",Info_Icon,"Información");
:     Return

if Datos.Cantidad=0 then
:          Resp=msgbox("No ha digitado la Cantidad",Info_Icon,"Información");
:     Return

if Datos.Costo=0 then
:          Resp=msgbox("No ha digitado el costo",Info_Icon,"Información");
:     Return

Total =(Datos.Cantidad*Datos.Costo)

row%=row%+1
gml_tpl.col$[1]=Datos.Codigo$
gml_tpl.col$[2]=Datos.Descripcion$
gml_tpl.col$[3]=str(Datos.Cantidad)
gml_tpl.col$[4]=str(Datos.Costo)
gml_tpl.col$[5]=str(Total)
gml_tpl.row_n%=row%
call "gml::put"

call "gml::tpl_prep"
call "gml::refresh"

rem '//Desplegar el Total General

TotalG =Num(Ctrl(gb__sysgui,Id_Total,Get_Text))
TotalG =TotalG+Total
Print (gb__sysgui)'title'(Id_Total,str(TotalG))

rem '//---------------------------

Print (gb__sysgui)'clrtitle'(Id_Codigo,Id_Descripcion,Id_Cantidad,Id_Costo),
: 'focus'(Id_Codigo)

return