Luego agregue el siguiente código:

Define_Constantes:

dim frm_screen$:fngb__template$(gb__win_id$)

Id_Codigo =Num(Fattr(frm_screen$,"Id_Codigo","ID"))
Id_Descripcion =Num(Fattr(frm_screen$,"Id_Descripcion","ID"))
Id_Cantidad =Num(Fattr(frm_screen$,"Id_Cantidad","ID"))
Id_Costo =Num(Fattr(frm_screen$,"Id_Costo","ID"))
Id_Grid =Num(Fattr(frm_screen$,"Id_Grid","ID"))
Id_Total =Num(Fattr(frm_screen$,"Id_Total","ID"))

Get_Text =1
Get_Value =2
Info_Icon =64
Fatal_Icon =16
Question_Icon =32
Yes_No_Buttons =4
No =7
true =1
false =0
m$ ="####,###,##0.00-"

controlInputN =104
controlInputE =105

Dim Datos$:"Codigo:C(6),Descripcion:C(50),Cantidad:N(10),Costo:N(15),Total:N(15)"

Dim Encabezado$:"Codigo:C(7),Descripcion:C(49),Cantidad:C(10),Costo:C(18),Total:C(16)"

Encabezado.Codigo$ ="Codigo "
Encabezado.Descripcion$ ="Descripcion"
Encabezado.Cantidad$ =pad("Cantidad",8,"R")
Encabezado.Costo$ =pad("Costo",18,"R")
Encabezado.Total$ =pad("Total",16,"R")

Return