FiveTech Support Forums

   DEFINE OUTLOOK2003 ::oOutLook2003 OF ::oWdlcx ;
      PROMPTS "Catalogos", "Calendar", "Contacts", "" ;
      BITMAPS "reg_edit", "reg_del", "reg_prim"

   @ 0, 0 EXPLORERBAR ::oExBar OF ::oOutLook2003:aDialogs[ 1 ] ;
      SIZE ::oOutLook2003:aDialogs[ 1 ]:nWidth, ::oOutLook2003:aDialogs[ 1 ]:nHeight 
 

    ::iaContl    := {0,0," "," ",0,0,1,385,35,::l2007,0,0,0,0,0,memvar->x_tmotor,0,4,0,memvar->x_tfado,::oWdlcx}
    ::iMatValid  := {"C","PXP0009_1","PROG_VENDED","R1","xls0009.xls","BROW_LISTA",X_TIPBROW,"1",0," "," ",0}
    ::bClick := { | | ::Autoper(::iMatValid[4]) }  // bClick := { || MsgInfo( "djsdk" ) } 


   ::oPanel1 = ::oExBar:AddPanel( "Contable", "people.bmp" )  // no se puede usar imagenes como recursos
   ::oPanel1:lSpecial = .T.
   ::oPanel1:AddLink( "Representante de Ventas", ::bClick, "reg_edit" )
   ::oPanel1:AddLink( "Zona de Ventas", ::bClick, "reg_del" )
   ::oPanel1:AddLink( "Plantas", ::bClick, "reg_prim" )
   ::oPanel1:AddLink( "Sector Industrial", ::bClick, "reg_edit" )
   ::oPanel1:AddLink( "Grupos", ::bClick, "reg_del" )
   ::oPanel1:AddLink( "Condiciones de Pago", ::bClick, "reg_prim" )
   ::oPanel1:AddLink( "Tipo de Documentos", ::bClick, "reg_edit" )
   ::oPanel1:AddLink( "Documento Interes", ::bClick, "reg_del" )
   ::oPanel1:AddLink( "Centro de Costos", ::bClick, "reg_prim" )
   ::oPanel1:AddLink( "Tipo de Moneda", ::bClick, "reg_edit" )
   ::oPanel1:AddLink( "Unidades de Medida", ::bClick, "reg_del" )
   ::oPanel1:AddLink( "Bancos / Agencias", ::bClick, "reg_prim" )
   ::oPanel1:AddLink( "Tipo de Control", ::bClick, "reg_edit" )
   ::oPanel1:AddLink( "Tipo de Causa / Accion", ::bClick, "reg_del" )
   ::oPanel1:AddLink( "Pais / Depto / Ciudad", ::bClick, "reg_prim" )
   ::oPanel1:AddLink( "Representante de Ventas", ::bClick, "reg_edit" )
   ::oPanel1:AddLink( "Zona de Ventas", ::bClick, "reg_del" )
   ::oPanel1:AddLink( "Plantas", ::bClick, "reg_prim" )
      
   ::oPanel2 = ::oExBar:AddPanel( "Almacen Inventarios", "case.bmp" )
   ::oPanel2:AddLink( "Tipo Material", ::bClick, "reg_find" )
   ::oPanel2:AddLink( "Ramo", ::bClick, "reg_canc" )
   ::oPanel2:AddLink( "Categoria Valoracion", ::bClick, "reg_brow" )
   ::oPanel2:AddLink( "Bodegas", ::bClick, "reg_prim" )
   ::oPanel2:AddLink( "Ubicaciones", ::bClick, "reg_prim" )

   ::oPanel3 = ::oExBar:AddPanel( "Produccion", "reg_sig" )
   ::oPanel3:AddLink( "Formulacion", ::bClick, "reg_ant" )
   ::oPanel3:AddLink( "Tipo de Estilos", ::bClick, "reg_ult" )
   ::oPanel3:AddLink( "Tipo de Material", ::bClick, "reg_refr" )
   ::oPanel3:AddLink( "Tipo de Selle", ::bClick, "reg_ant" )
   ::oPanel3:AddLink( "Tipo de Proceso", ::bClick, "reg_ult" )
   ::oPanel3:AddLink( "Rutas", ::bClick, "reg_refr" )
   ::oPanel3:AddLink( "Maquinas", ::bClick, "reg_ant" )
   ::oPanel3:AddLink( "Maquinas Conversion", ::bClick, "reg_ult" )

   
   ::oPanel4 = ::oExBar:AddPanel( "Despachos","PRINT.BMP" )
   ::oPanel4:AddLink( "Conductores", ::bClick, "eg_calc" )
   ::oPanel4:AddLink( "Vehiculos", ::bClick, "reg_help" )


   ::oPanel5 = ::oExBar:AddPanel( "Otros", "reg_grab" )
   ::oPanel5:AddLink( "Operarios", ::bClick, "reg_find" )
   ::oPanel5:AddLink( "Turnos", ::bClick, "reg_canc" )
   ::oPanel5:AddLink( "Semana Programacion", ::bClick, "reg_brow" )
   ::oPanel5:AddLink( "Fourth item", ::bClick, "reg_prim" )

   ::oPanel6 = ::oExBar:AddPanel( "Administracion / Parametrizacion General", "reg_sig" )
   ::oPanel6:AddLink( "Parametrizacion", ::bClick, "reg_ant" )
   ::oPanel6:AddLink( "Usuarios", ::bClick, "reg_ult" )
   ::oPanel6:AddLink( "Modulos", ::bClick, "reg_refr" )
   ::oPanel6:AddLink( "Tipo de Modulos", ::bClick, "reg_ant" )
   ::oPanel6:AddLink( "Compañias", ::bClick, "reg_ult" )
   ::oPanel6:AddLink( "Tipo Usuarios", ::bClick, "reg_refr" )

   ::oPanel7 = ::oExBar:AddPanel( "Terceros/Proveedores/Clientes", "reg_grab" )
   ::oPanel7:AddLink( "Terceros", ::bClick, "reg_find" )
   ::oPanel7:AddLink( "Proveedores", ::bClick, "reg_canc" )
   ::oPanel7:AddLink( "Clientes", ::bClick, "reg_brow" )


   ::oExBar:aPanels[2]:lCollapsed:=.T.
   ::oExBar:Refresh()
   ::oWdlcx:oClient = ::oExBar
**
  @ 0, 191 SPLITTER oSplit VERTICAL _3DLOOK PREVIOUS CONTROLS ::oOutLook2003 ; 
      HINDS CONTROLS ::oWdlcx:oClient ;  //::oWndClient ;
      SIZE 4, ::oWdlcx:nHeight - 70 PIXEL OF ::oWdlcx
   SetParent( oSplit:hWnd, ::oWdlcx:hWnd )
**