59 lines
2.7 KiB
Plaintext
59 lines
2.7 KiB
Plaintext
{
|
|
==============================================================================
|
|
FORMULARIO : CPFMCS001
|
|
OBJETIVO : Desplegar el estado de cuenta de un suplidor en un
|
|
rango de fecha
|
|
PROGRAMA Q. LO USA: CPPRRP001
|
|
AUTOR : Tadeo A. Ferreras
|
|
FECHA : Septimebre 16, 1993
|
|
==============================================================================
|
|
}
|
|
database smarmotech
|
|
screen size 24 by 80
|
|
{
|
|
Fecha Inicial [a ] Fecha Final [b ]
|
|
Suplidor :[c1]-[c2 ] [n1 ]
|
|
[d1 ]
|
|
[d2 ]
|
|
Prima [pr ] Balance Inicial [ba ]
|
|
\g------------------------------------------------------------------------------\g
|
|
D O C U M E N T O
|
|
Numero Tipo Fecha Aplicado A Debito Credito Balance
|
|
\g------------------------------------------------------------------------------\g
|
|
[nm ][tp][f1 ][nm1 ][db ][cr ][bf ]
|
|
[nm ][tp][f1 ][nm1 ][db ][cr ][bf ]
|
|
[nm ][tp][f1 ][nm1 ][db ][cr ][bf ]
|
|
[nm ][tp][f1 ][nm1 ][db ][cr ][bf ]
|
|
[nm ][tp][f1 ][nm1 ][db ][cr ][bf ]
|
|
}
|
|
end
|
|
tables
|
|
cptb00001
|
|
cotb00001
|
|
attributes
|
|
a = formonly.fecha_inicial type date,color=yellow,format = "dd/mm/yy",autonext,
|
|
comments = "Fecha inicial del recibo de pago";
|
|
b = formonly.fecha_final type date,color=yellow,format = "dd/mm/yy",autonext,
|
|
comments = "Fecha final del recibo de pago";
|
|
c1 = cptb00001.cod_sp,autonext,color=yellow;
|
|
c2 = cptb00001.cod_sp_sec,color=yellow;
|
|
n1 = cotb00001.nom_sp,noentry,color=yellow;
|
|
d1 = formonly.direccion,noentry,color=yellow;
|
|
d2 = formonly.ciu_sp,noentry,color=yellow;
|
|
ba = formonly.balance type decimal(12,2),noentry,color=yellow;
|
|
pr = formonly.prima,color=yellow,
|
|
comments= "Introduzca Prima Para Valorizar Estados";
|
|
|
|
nm = cptb00001.num_doc,color=yellow;
|
|
tp = cptb00001.tipo_doc,noentry,color=yellow;
|
|
f1 = cptb00001.fecha_orig,noentry,format = "dd/mm/yy",color=yellow;
|
|
nm1 = formonly.aplica_a type char,noentry,color=yellow;
|
|
db = formonly.debito type decimal(12,2),noentry,color=yellow;
|
|
cr = formonly.credito type decimal(12,2),noentry,color=yellow;
|
|
bf = formonly.balance1 type decimal(12,2),noentry,color=yellow;
|
|
INSTRUCTIONS DELIMITERS " "
|
|
screen record cuenta[5] (num_doc,tipo_doc,fecha_orig,aplica_a, debito,
|
|
credito,balance1)
|
|
end
|
|
|