56 lines
2.2 KiB
Plaintext
56 lines
2.2 KiB
Plaintext
|
|
{
|
|
----------------------------------------------------------------------------
|
|
FORMULARIO : CPFMMT001
|
|
OBJETIVO : Pantalla para la captura de la factura comercial del
|
|
proveedor
|
|
PROGRAMAS UTILIZAN : cpprmt001
|
|
PROGRAMADOR : Tadeo Ferreras
|
|
FECHA REALIZACION : Julio 17, 1993
|
|
MODIFICADO POR : Juan Soto
|
|
FECHA : Agosto 17, 1993
|
|
----------------------------------------------------------------------------
|
|
}
|
|
database marmotech
|
|
screen
|
|
{
|
|
|
|
Numero Factura [nf ]
|
|
Codigo Suplidor [c1]-[c2 ][c3 ]
|
|
Fecha Factura [fe ]
|
|
Fecha Efectiva [fp ] Monto Factura [v1 ]
|
|
Observacion [cp ]
|
|
\g----------------------------------------------------------------------\g
|
|
Apl. Aplica a. Tipo Monto Dcto. Valor Aplicado
|
|
\g----------------------------------------------------------------------\g
|
|
[t1] [na ] [ti] [va ] [va1 ]
|
|
[t1] [na ] [ti] [va ] [va1 ]
|
|
[t1] [na ] [ti] [va ] [va1 ]
|
|
[t1] [na ] [ti] [va ] [va1 ]
|
|
}
|
|
end
|
|
tables
|
|
cptb00001
|
|
attributes
|
|
c1 = cptb00001.cod_sp,autonext;
|
|
c2 = cptb00001.cod_sp_sec,autonext,comments =
|
|
"Presione Ctrl-W Para busca Suplidor";
|
|
nf = cptb00001.num_doc;
|
|
c3 = formonly.nom_sup,noentry,color=yellow;
|
|
fe = cptb00001.fecha_orig,format = "dd/mm/yy";
|
|
fp = cptb00001.fecha_proc,format = "dd/mm/yy";
|
|
v1 = formonly.valor_fac type decimal(12,2),comments =
|
|
"Digite el valor de la factura";
|
|
cp = cptb00001.detalle,upshift;
|
|
|
|
t1 = formonly.tipo type char,upshift,comments=
|
|
"Digite S = en caso de que desee aplica prepago, N = en caso contrario";
|
|
na = cptb00001.aplica_a,upshift,comments =
|
|
"Digite el numero del prepago";
|
|
ti = cptb00001.tipo_doc,noentry;
|
|
va = formonly.valor_prep type decimal(12,2),noentry;
|
|
va1= cptb00001.valor,comments = "Digite el valor a aplicar";
|
|
instructions delimiters " "
|
|
screen record factura1[4](tipo,aplica_a,tipo_doc,valor_prep,valor)
|
|
end
|