45 lines
1.9 KiB
Plaintext
45 lines
1.9 KiB
Plaintext
{
|
|
----------------------------------------------------------------------------
|
|
FORMULARIO : CGFMMT004
|
|
OBJETIVO : Capturar las transacciones contables (CGPRMT004)
|
|
PROGRAMADOR : Ing. Juan Soto
|
|
FECHA REALIZACION : Octubre 6, 1993
|
|
----------------------------------------------------------------------------
|
|
}
|
|
database smarmotech
|
|
screen size 24 by 80
|
|
{
|
|
Fecha Inicial [f1 ] Fecha Final [f2 ] Balance Inic.
|
|
Cuenta [ct ] [ds ] [bal ]
|
|
\g----------------------------------------------------------------------------\g
|
|
Fecha Referencia Dpto. Debito Credito Balance
|
|
\g----------------------------------------------------------------------------\g
|
|
[f003 ][f004 ][dpt ][f005 ][f006 ][bal1 ]
|
|
[f003 ][f004 ][dpt ][f005 ][f006 ][bal1 ]
|
|
[f003 ][f004 ][dpt ][f005 ][f006 ][bal1 ]
|
|
[f003 ][f004 ][dpt ][f005 ][f006 ][bal1 ]
|
|
[f003 ][f004 ][dpt ][f005 ][f006 ][bal1 ]
|
|
[f003 ][f004 ][dpt ][f005 ][f006 ][bal1 ]
|
|
}
|
|
tables
|
|
cgtb00004,cgtb00001
|
|
attributes
|
|
f1 = formonly.fecha1 type date,format = "dd/mm/yyyy";
|
|
f2 = formonly.fecha2 type date,format = "dd/mm/yyyy";
|
|
bal = formonly.balance type decimal,noentry;
|
|
ct = cgtb00004.cuenta_no,comments =
|
|
" Digite Una Cuenta Especifica o Presione <Esc> Busca Todas Las Cuentas";
|
|
ds = cgtb00001.descripcion,noentry;
|
|
|
|
f003= cgtb00004.fecha,format = "dd/mm/yy";
|
|
f004= formonly.detalle type char,noentry;
|
|
dpt = cgtb00004.departamento,noentry;
|
|
f005= cgtb00004.debito,noentry;
|
|
f006= cgtb00004.credito,noentry;
|
|
bal1= formonly.balance1 type decimal(12,2),noentry;
|
|
|
|
instructions
|
|
delimiters " "
|
|
screen record s_cuenta2[6] (fecha,detalle,departamento,debito,credito,balance1)
|
|
end
|