Files
MBS/PROYECTO/ccdir/ccfmmt008.per
T

165 lines
10 KiB
Plaintext

{
-----------------------------------------------------------------------------
FORMULARIO : CCFMMT008
OBJETIVO : Requisiciones Despachos
REALIZADO POR : Ing. Juan Soto
FECHA : Octubre 11, 2010
-----------------------------------------------------------------------------
}
SCHEMA smarmotech
ACTION DEFAULTS
ACTION busca_parametros (TEXT="Ejecuta Busqueda",IMAGE="find")
ACTION cancel (TEXT="Cancela Operacion",IMAGE="stop")
ACTION procesa (TEXT="Procesa Requisicion",IMAGE="mail")
ACTION sale (TEXT="Salir Consulta",IMAGE="exit")
ACTION siguiente (TEXT="Siguiente",IMAGE="arr2right")
ACTION anterior (TEXT="Anterior",IMAGE="arr2left")
ACTION primero (TEXT="Primero",IMAGE="arr2beg")
ACTION Actualizar (TEXT="Actualiza",IMAGE="edit")
ACTION anular (TEXT="Anula",IMAGE="garbage2")
ACTION ultimo (TEXT="Ultimo",IMAGE="arr2right")
ACTION refrescar (TEXT="Actualizar",IMAGE="refresh")
ACTION seleccion (TEXT="Seleccionar",IMAGE="listadd")
ACTION desseleccion (TEXT="Des-Seleccionar",IMAGE="listdel")
ACTION mensaje (TEXT="Mensaje",IMAGE="letter")
END
TOOLBAR
ITEM nuevo (TEXT="Requisicion", IMAGE="new", COMMENT="Nueva Requisicion")
ITEM buscar (TEXT="Buscar Requisicion", IMAGE="find", COMMENT="Criterio de busqueda")
SEPARATOR
ITEM salir (TEXT="Salir", IMAGE="quit")
END
LAYOUT (TEXT="Requisiciones Despachos",STYLE="basic")
FOLDER
PAGE p1 (TEXT="LISTA REQUISICIONES")
SCROLLGRID
{
<G >
Codigo Vendedor[cod ][nom ]
<G >
<t >
[c3 ][X20 ][es1 ][v3 ][c5 ][x30 ][x31 ][x32 ][v2 ][c1 ][c2 ]
[c3 ][X20 ][es1 ][v3 ][c5 ][x30 ][x31 ][x32 ][v2 ][c1 ][c2 ]
[c3 ][X20 ][es1 ][v3 ][c5 ][x30 ][x31 ][x32 ][v2 ][c1 ][c2 ]
[c3 ][X20 ][es1 ][v3 ][c5 ][x30 ][x31 ][x32 ][v2 ][c1 ][c2 ]
[c3 ][X20 ][es1 ][v3 ][c5 ][x30 ][x31 ][x32 ][v2 ][c1 ][c2 ]
[c3 ][X20 ][es1 ][v3 ][c5 ][x30 ][x31 ][x32 ][v2 ][c1 ][c2 ]
<G >
[b11 ]
}
END
END
PAGE p2 (TEXT="MANTENIMIENTO REQUISICIONES DESPACHOS")
SCROLLGRID
{
<G "Generales" >
Numero Orden [ord ]Fecha[fe2 ]
Requisicion [n1 ] Fecha [f1 ] Cotizacion [cot ]
Solicitado Por [p1 ] [v1 ]
Aprobada Por [ap1 ] [ap2 ] ESTADO [es ]
<G "Detalle" >
<t t1 >
[ck ][x1 ][fe1 ][c10 ][x10][x11 ][x12 ][X14 ][x6 ][x13][x2 ][x3 ][x4 ][x5 ][d1 ][u1 ][x15 ][x9 ][Z10 ][x7 ][z1 ][z2 ][x8 ][kp ]
[ck ][x1 ][fe1 ][c10 ][x10][x11 ][x12 ][X14 ][x6 ][x13][x2 ][x3 ][x4 ][x5 ][d1 ][u1 ][x15 ][x9 ][Z10 ][x7 ][z1 ][z2 ][x8 ][kp ]
[ck ][x1 ][fe1 ][c10 ][x10][x11 ][x12 ][X14 ][x6 ][x13][x2 ][x3 ][x4 ][x5 ][d1 ][u1 ][x15 ][x9 ][Z10 ][x7 ][z1 ][z2 ][x8 ][kp ]
[ck ][x1 ][fe1 ][c10 ][x10][x11 ][x12 ][X14 ][x6 ][x13][x2 ][x3 ][x4 ][x5 ][d1 ][u1 ][x15 ][x9 ][Z10 ][x7 ][z1 ][z2 ][x8 ][kp ]
[ck ][x1 ][fe1 ][c10 ][x10][x11 ][x12 ][X14 ][x6 ][x13][x2 ][x3 ][x4 ][x5 ][d1 ][u1 ][x15 ][x9 ][Z10 ][x7 ][z1 ][z2 ][x8 ][kp ]
[ck ][x1 ][fe1 ][c10 ][x10][x11 ][x12 ][X14 ][x6 ][x13][x2 ][x3 ][x4 ][x5 ][d1 ][u1 ][x15 ][x9 ][Z10 ][x7 ][z1 ][z2 ][x8 ][kp ]
[ck ][x1 ][fe1 ][c10 ][x10][x11 ][x12 ][X14 ][x6 ][x13][x2 ][x3 ][x4 ][x5 ][d1 ][u1 ][x15 ][x9 ][Z10 ][x7 ][z1 ][z2 ][x8 ][kp ]
<G ><G "VALORES" >
[ :b1 :b2 :b3 :b12 :b13 :b14 ] Valor Cotizacion :[cot10 ]
[ :b4 :b5 :b6 :b7 :b8 :b9 :b10 ] Valor Requisicion:[req10 ]
}
END
end
END
tables
cctb00001
ATTRIBUTES
kp = formonly.kit;
cod = formonly.busca_vend,comments="Digite Codigo Vendedor";
LABEL cot10 = formonly.total_cotizacion,format="###,###,###.##";
LABEL req10 = formonly.total_requisicion,format="###,###,###.##";
LABEL nom = formonly.bnombre_vend;
CHECKBOX ck= formonly.procesa type char,NOT NULL,TITLE="PROCESA",comments="Coteje este registro para procesar",VALUEUNCHECKED="NO",VALUECHECKED="SI",DEFAULT="NO";
n1 = formonly.num_req,format="&&&&&&",style="title";
f1 = formonly.fecha_requisicion,style="title",format="dd/mm/yyyy";
p1 = formonly.sec_vend;
LABEL v1 = formonly.nombre_vendedor;
EDIT ap1 = formonly.sec_vend_a,noentry;
ap2 = formonly.nombre_a,noentry;
es = formonly.estado,NOENTRY;
es1 = formonly.estado_produccion,TITLE="ESTADO PRODUCCION";
ord = formonly.busca_orden,
comments="Digite orden o especifique rango con los dos puntos( : ), ejemplo: 1724:1730";
fe2 = formonly.busca_fecha,
comments="Digite Fecha o Rango con los dos Puntos ( : ), ejemplo: 100910:103110";
cot = formonly.busca_cotizacion,
comments = "Digite Cotizacion o Rango con los dos Puntos ( : ), ejemplo: 2040:2050";
LABEL x1= formonly.num_oc,TITLE="ORDEN";
LABEL fe1= formonly.fecha,format="dd/mm/yyyy",TITLE="FECHA ORDEN";
LABEL c10= formonly.cotizacion_no,TITLE="COTIZACION";
LABEL X10= formonly.tipo_cliente,TITLE="CODIGO";
LABEL x11= formonly.sec_cliente, TITLE="CODIGO";
LABEL x12= formonly.nombre,TITLE="NOMBRE";
LABEL x13= formonly.area,TITLE="AREA";
LABEL x2= formonly.cod_n,TITLE="CLASE";
LABEL x3= formonly.cod_grupo,TITLE="GRUPO";
LABEL x4= formonly.cod_tipo,TITLE="TIPO";
LABEL x5= formonly.cod_Sec,TITLE="SECUENCIA";
LABEL d1= formonly.descripcion,TITLE="DESCRIPCION";
LABEL u1= formonly.unidad_med,TITLE="UNIDAD MED";
x14 = formonly.cantidad_1,TITLE="PIEZAS";
LABEL x6= formonly.cantidad,TITLE="CANTIDAD";
LABEL x7= formonly.precio,TITLE="PRECIO",FORMAT="###,###.##";
LABEL z1= formonly.descuento,TITLE="%DESCUENTO",FORMAT="###.##";
LABEL z2= formonly.descvalor,TITLE="VALOR DESC",FORMAT="###,###.##";
LABEL x8= formonly.valor,TITLE="VALOR",FORMAT="##,###,###.##";
LABEL x15 = formonly.cantidad_ord1,TITLE="PIEZAS ORDEN";
LABEL x9= formonly.cantidad_ord,TITLE="ORDENADA";
LABEL Z10= formonly.cantidad_pendiente,TITLE="PENDIENTE",style="rojo";
#=========================================================================
LABEL c3 = formonly.estado1,TITLE="ESTADO";
LABEL x20 = formonly.estado2,TITLE="DEPACHO";
LABEL v3 = formonly.num_req1,TITLE="REQUISICION";
LABEL c5 = formonly.fecha1,TITLE="FECHA";
LABEL x30 = formonly.material,TITLE="MATERIAL";
LABEL x31 = formonly.fecha_transporte,TITLE="TRANSPORTE";
LABEL x32 = formonly.fecha_llegada,TITLE="LLEGADA CLIENTE";
LABEL v2 = formonly.num_oc1,TITLE="ORDEN";
LABEL c1 = formonly.cliente1,TITLE="CLIENTE";
LABEL c2 = formonly.valor1,format = "##,###,###.##",TITLE="VALOR";
BUTTON b1: busca_parametros;
BUTTON b2: cancel;
BUTTON b3: procesa ;
BUTTON b10: sale ;
BUTTON b4: siguiente ;
BUTTON b5: ultimo ;
BUTTON b6: primero ;
BUTTON b7: anterior ;
BUTTON b8: Actualizar ;
BUTTON b9: anular ;
BUTTON b11: refrescar;
BUTTON b12: seleccion;
BUTTON b13: desseleccion;
BUTTON b14: mensaje;
instructions
screen record s_requisi (procesa,num_oc,fecha,cotizacion_no,tipo_cliente,sec_cliente,nombre,cantidad_1,cantidad,area,cod_n,cod_grupo,cod_tipo,cod_sec,descripcion,unidad_med,cantidad_ord1,cantidad_ord,cantidad_pendiente,precio,descuento,descvalor,valor,kit)
screen record s_lista (estado1,estado2,estado_produccion,num_req1,fecha1,material,fecha_transporte,fecha_llegada,num_oc1,cliente1,valor1)
delimiters " "
end