82 lines
3.6 KiB
Plaintext
82 lines
3.6 KiB
Plaintext
database marmotech
|
|
screen size 24 by 80
|
|
{
|
|
Orden No. [f000 ] Fecha Oc.: [f001 ]
|
|
Cliente [f0|f003] [b1 ]
|
|
Vendedor [v1 ] [ve ]
|
|
Direccion [a ]
|
|
Telefono [b ] Fax [c ] Fecha de Entrega [fe ]
|
|
Condiciones [d ] [f20 ] Balance [f09 ]
|
|
Ubicación [ubic ]
|
|
Codigo Alt. Zocalo Term. Bisel Cant. Precio Desc. Total
|
|
[e|f|g |h ][alt ] [k] [b2 ][f22 |f10 |f9][f11 ]
|
|
Total de Material [f12 ]
|
|
Instalacion Tope Cantidad [f13 ] Precio [f14 ]
|
|
Descripcion Mano Obra [un ] Cantidad [f15 ] Precio [f16 ]
|
|
[a2 ] Transporte [f17 ] Itbis [f18 ]
|
|
Total Ventas [f19 ]
|
|
}
|
|
end
|
|
tables
|
|
prtb00012,vetb00004,prtb00013
|
|
attributes
|
|
f000 = prtb00012.num_oc,noentry;
|
|
f001 = prtb00012.fecha_oc,required,format="dd/mm/yyyy";
|
|
f0 = prtb00012.tipo_cliente,required,autonext,comments = "Control-W Busca CLientes";
|
|
f003 = vetb00004.sec_cliente,required,comments = "Control-W Busca CLientes";
|
|
b1 = vetb00004.nombre,reverse,noentry;
|
|
a = prtb00012.direccion,upshift,noentry,
|
|
comments = "Digite la DIRECCION correcta del cliente";
|
|
b = prtb00012.telefono,picture = "###-###-####",noentry,
|
|
comments = "Digite el numero de TELEFONO con su codigo de Area";
|
|
c = prtb00012.fax,picture = "###-###-####",noentry,
|
|
comments = "Digite el numero de FAX con su codigo de Area";
|
|
d = prtb00012.cond_pago,comments =
|
|
"Digite la CONDICION de Pago";
|
|
alt = prtb00013.altura_zocalo;
|
|
f20 = formonly.descrip_p,noentry;
|
|
fe = prtb00012.fecha_entrega,format = "dd/mm/yyyy",
|
|
comments = "Digite la FECHA DE ENTREGA de la Orden";
|
|
f09 = formonly.balance,noentry;
|
|
ubic = prtb00012.ubicacion, upshift,SCROLL,
|
|
comments = "Digite la ubicacion del proyecto ";
|
|
v1 = prtb00012.sec_vend,comments = "Control-W Para Buscar Vendedores";
|
|
ve = formonly.nombre_vend,reverse,noentry;
|
|
|
|
e = prtb00013.cod_n,autonext;
|
|
f = prtb00013.cod_grupo,autonext;
|
|
g = prtb00013.cod_tipo,autonext;
|
|
h = prtb00013.cod_sec,
|
|
comments = "Digite el Codigo del Producto";
|
|
a2 = formonly.descrip_esp,noentry;
|
|
k = formonly.terminacion,upshift,
|
|
comments = "Digite P=Pulido R=Rustico o dejar el campor en blanco";
|
|
b2 = prtb00013.bisel,UPSHIFT,
|
|
comments = "Digite DBN o SDN";
|
|
f22 = prtb00013.cantidad,
|
|
comments = "Digite la Cantidad ";
|
|
f10 = prtb00013.precio,
|
|
comments = "Digite el Precio";
|
|
f9 = prtb00013.descuento;
|
|
f11 = formonly.total_p type Decimal(8,2),noentry;
|
|
|
|
f12 = formonly.sub_total,noentry;
|
|
f13 = prtb00012.cantidad_i,comments =
|
|
"Digite la cantidad de Metros en Instalacion de Topes";
|
|
f14 = prtb00012.precio_i,comments =
|
|
"Digite el precio de Instalacion de Tope";
|
|
un = formonly.unidad_med,noentry;
|
|
f15 = prtb00012.cantidad_mo,comments =
|
|
"Digite la cantidad de Metro a instalar";
|
|
f16 = prtb00012.precio_mo,comments =
|
|
"Digite el precio por Metro de Instalacion";
|
|
f17 = prtb00012.transporte,comments =
|
|
"Digite el Costo del Transporte del Producto";
|
|
f18 = prtb00012.itbis,noentry;
|
|
f19 = formonly.total_v,noentry;
|
|
instructions
|
|
screen record s_pedido[1]
|
|
(cod_n, cod_grupo, cod_tipo, cod_sec, altura_zocalo, terminacion,bisel,
|
|
cantidad, precio, descuento, total_p)
|
|
end
|