schema smarmotech   
screen size 24 by 80
{
Fecha Liquidacion [lq      ]
Fecha             [fe      ]       Tipo Liquidacion[tl       ]
numero orden      [f1     ]
Codigo            [a]-[b]-[c ]-[d  ][e                             ] [g  ]
Cantidad          [cn           ]   Costo Real      [f005          ]
[l]
Usuario Creador   [f006     ]           Usuario Modificador  [f008     ]
Fecha Creacion    [f007            ]    Fecha Modificacion   [f009            ]
}
end
tables
cttb00013,intb00001
attributes
lq   = cttb00013.fecha_lq,format = "dd/mm/yy";
fe   = cttb00013.fecha,format = "dd/mm/yy";
tl   = cttb00013.tipo_lq;
f1   = cttb00013.num_oc;
a    = cttb00013.cod_n,autonext,comments = "Digite el NIVEL";
b    = cttb00013.cod_grupo,autonext,comments = "Digite el GRUPO";
c    = cttb00013.cod_tipo,autonext,comments = "Digite el TIPO";
d    = cttb00013.cod_sec,autonext,comments = "Digite la SECUENCIA";
e    = intb00001.descrip_esp,noentry;
g    = intb00001.unidad_med,noentry;
cn   = cttb00013.cantidad,comments = "Digite La Cantidad";
f005 = cttb00013.costo_lq,comments = "Digite el costo";
l    = cttb00013.status_t,noentry;
f006 = cttb00013.us_crea,noentry;
f007 = cttb00013.fech_crea,noentry;
f008 = cttb00013.us_mod,noentry;
f009 = cttb00013.fech_mod,noentry;
instructions
   delimiters " "
end