database smarmotech   
screen
{

   Empleado [co1 ][co2 ][co][co3] [no1           ][no2            ]
   Numero Docto   [nd       ]               Fecha [fe      ]
   Valor          [vf          ]
 \g--------------------------------------------------------------------------\g
  Cuenta No.      Descripcion                                 Valor 
 \g--------------------------------------------------------------------------\g
  [cod     ]     [b4                            ]      [va          ]
  [cod     ]     [b4                            ]      [va          ]
  [cod     ]     [b4                            ]      [va          ]
  [cod     ]     [b4                            ]      [va          ]
                                                       ==============
                                            Total      [tt          ]
}
end
tables
cgtb00001
attributes
co1= formonly.num_emp;  
co2= formonly.departamento,noentry;
co = formonly.nivel_emp,noentry;   
co3= formonly.cod_puesto,noentry;  
no1= formonly.nombre,noentry;
no2= formonly.apellido,noentry;
nd = formonly.num_doc;
fe = formonly.fecha_orig type date,format = "dd/mm/yy";
vf = formonly.valor_fac;

cod= cgtb00001.cuenta_no,comments = "Digite numero de cuenta afectado";
b4 = cgtb00001.descripcion,noentry,color=yellow;
va = formonly.valor_cta,comments="Digite Valor asignado a la cuenta";
tt = formonly.valor1,noentry;
instructions
   screen record cuentas[4](cuenta_no,descripcion,valor_cta)
delimiters " "
end