database smarmotech   
screen size 24 by 80
{

 Fecha Inicial  [a         ]       Total  Debito [td         ]
 Fecha Final    [b         ]       Total Credito [tc         ]
 Suplidor       [c1]-[c2  ]      Total Balance [tg         ]
}
end
tables
cptb00001
attributes
a  = formonly.fecha_inicial type date, format = "dd/mm/yyyy",autonext,
     comments = "Fecha inicial del recibo de pago"; 
b  = formonly.fecha_final type date, format = "dd/mm/yyyy",autonext,
     comments = "Fecha final del recibo de pago"; 
c1 = cptb00001.cod_sp,autonext;
c2 = cptb00001.cod_sp_sec;
td = formonly.totald type decimal(10,2),noentry;
tc = formonly.totalc type decimal(10,2),noentry;
tg = formonly.totalg type decimal(10,2),noentry;
end