Files
MBS/PROYECTO/vedir/vefmmt049a.per
T

96 lines
3.7 KiB
Plaintext

database eurostone
screen title "Generales"
{
Compania [f1] [d1 ] Cotizacion No.[f2 ]T. Bruto [f26 ]
Cliente [f3]-[f4 ][f5 ]S. Total [f27 ]
Nombre Proyecto [f6 ]M. Desc. [f28 ]
Direccion Cliente[f7 ]Itbi [f25 ]
Ciudad [f8][d3 ]M. Itbi [f29 ]
Direccion Proy. [f9 ]Neto [f30 ]
Telefono Res. [f10 ]Prima US$[f14 ] M. US$ [f31 ]
Telefono Ofic. [f11 ]Beeper [f12 ]Us. Creador[f33 ]
Celular [f13 ]Fax Res. [f17 ]F. Creacion[f34 ]
Fax Ofic. [f15 ]Celular 2 [f16 ]Us. Mod. [f35 ]
Fecha [f18 ]Fecha Entrega[f19 ]F. Mod. [f36 ]
Plazo Entrega [f20 ]
Area Codigo Cant. Precio Desc. Total
--------------------------------------------------------------------
[va][e|f |g |h ] [f37 |f38 |f39 ][f40 ]
[d6 ][un ]
[va][e|f |g |h ] [f37 |f38 |f39 ][f40 ]
[d6 ][un ]
[va][e|f |g |h ] [f37 |f38 |f39 ][f40 ]
[d6 ][un ]
Area: [pk ]
}
screen title "Continuacion"
{
Comentarios [f21 ]
Contacto [f22 ]
Condiciones Pago [f23][d4 ]
Vendedor [f24][d5 ]
Stado [f32]
}
end
tables
vetb00050,vetb00051
attributes
f1 = vetb00050.cod_cia ;
d1 = formonly.nombre_cia,noentry;
f2 = vetb00050.cotizacion_no,noentry;
f3 = vetb00050.tipo_cliente ;
f4 = vetb00050.sec_cliente ;
f5 = vetb00050.nombre_cliente,upshift ;
f6 = vetb00050.nombre_proyecto,upshift ;
f7 = vetb00050.direccion_cliente,upshift;
f8 = vetb00050.cod_provincia ;
d3 = formonly.nombre_ciudad,noentry;
f9 = vetb00050.direccion_proyecto,upshift;
f10 = vetb00050.telefono_r ;
f11 = vetb00050.telefono_o ;
f12 = vetb00050.beeper ;
f13 = vetb00050.celular ;
f14 = vetb00050.prima ;
f15 = vetb00050.fax1 ;
f16 = vetb00050.celular1 ;
f17 = vetb00050.fax ;
f18 = vetb00050.fecha ;
f19 = vetb00050.fecha_entrega ;
f20 = vetb00050.plazo_entrega;
f21 = vetb00050.comentario,upshift ;
f22 = vetb00050.contacto,upshift ;
f23 = vetb00050.cond_pago ;
d4 = formonly.nombre_condicion,upshift;
f24 = vetb00050.sec_vend ;
d5 = formonly.nombre_vend,noentry;
f25 = vetb00050.porc_itbi ;
f26 = vetb00050.total_bruto,noentry;
f27 = vetb00050.sub_total,noentry ;
f28 = vetb00050.monto_desc,noentry ;
f29 = vetb00050.monto_itbi,noentry ;
f30 = vetb00050.total_neto,noentry ;
f31 = vetb00050.monto_dolar,noentry ;
f32 = vetb00050.status_t,noentry ;
f33 = vetb00050.us_crea,noentry ;
f34 = vetb00050.fech_crea,noentry ;
f35 = vetb00050.us_mod,noentry ;
f36 = vetb00050.fech_mod,noentry ;
va = vetb00051.area;
e = vetb00051.cod_n;
f = vetb00051.cod_grupo;
g = vetb00051.cod_tipo;
h = vetb00051.cod_sec;
f37 = vetb00051.cantidad;
f38 = vetb00051.precio;
f39 = vetb00051.porc_desc;
f40 = formonly.total_p,noentry;
d6 = formonly.nombre_p,noentry;
un = formonly.unidad,noentry;
pk = formonly.nombre_area;
instructions
screen record s_pedido[3]
(area,cod_n, cod_grupo, cod_tipo, cod_sec,nombre_p,unidad,cantidad, precio, porc_desc, total_p)
end