{
----------------------------------------------------------------------------
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