{
-----------------------------------------------------------------------------
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