69 lines
2.9 KiB
Plaintext
69 lines
2.9 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 ]
|
|
\g--------------------------------------------------------------------------\g
|
|
Codigo Descripcion Bisel Cant. Precio Desc. Total
|
|
\g--------------------------------------------------------------------------\g
|
|
[e|f|g |h ] [a2 ][b ][f22 ][f10 ][f9 ] [f11 ]
|
|
Total de Material [f12 ]
|
|
Instalacion Tope Cantidad [f13 ] Precio [f14 ]
|
|
Mano Obra [un ] Cantidad [f15 ] Precio [f16 ]
|
|
Transporte [f17 ] Itbis [f18 ]
|
|
}
|
|
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,comments = "Control-W Busca CLientes";
|
|
f003 = vetb00004.sec_cliente,required,comments = "Control-W Busca CLientes";
|
|
b1 = vetb00004.nombre,reverse,noentry;
|
|
a = prtb00012.direccion,upshift;
|
|
b = prtb00012.telefono;
|
|
c = prtb00012.fax;
|
|
d = prtb00012.cond_pago,comments =
|
|
"Digite la Condicion de Pago";
|
|
f20 = formonly.descrip_p,noentry;
|
|
fe = prtb00012.fecha_entrega,format = "dd/mm/yyyy";
|
|
f09 = formonly.balance,noentry;
|
|
v1 = prtb00012.sec_vend,comments = "Control-W Para Buscar Vendedores";
|
|
ve = formonly.nombre_vend,reverse,noentry;
|
|
|
|
e = prtb00013.cod_n;
|
|
f = prtb00013.cod_grupo;
|
|
g = prtb00013.cod_tipo;
|
|
h = prtb00013.cod_sec;
|
|
a2 = formonly.descrip_esp,noentry;
|
|
b = prtb00013.bisel,UPSHIFT,INCLUDE = ("DBN","SDN"),comments =
|
|
"Digite DBN o SDN";
|
|
f22 = formonly.cantidad type Decimal(5,2);
|
|
f10 = formonly.precio type Decimal(5,2);
|
|
f9 = formonly.descuento type Decimal(3,2);
|
|
f11 = formonly.total_p type Decimal(8,2),noentry;
|
|
|
|
f12 = formonly.sub_total,noentry;
|
|
f13 = prtb00013.cantidad_i,comments =
|
|
"Digite la cantidad de Metros en Instalacion de Topes";
|
|
f14 = prtb00013.precio_i,comments =
|
|
"Digite el precio de Instalacion de Tope";
|
|
un = formonly.unidad_med,noentry;
|
|
f15 = prtb00013.cantidad_mo,comments =
|
|
"Digite la cantidad de Metro a instalar";
|
|
f16 = prtb00013.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;
|
|
instructions
|
|
screen record s_pedido[1]
|
|
(cod_n, cod_grupo, cod_tipo, cod_sec, descrip_esp, bisel,
|
|
cantidad, precio, descuento, total_p)
|
|
end
|