Code: Select all | Expand
STATIC FUNCTION LaBarra( oWindow )
LOCAL oBarra
LOCAL oCursor
DEFINE CURSOR oCursor RESOURCE "Dedo"
DEFINE BUTTONBAR oBarra SIZE 45, 45 OF oWindow CURSOR oCursor 2007
oBarra:bClrGrad = { | lInvert | IF( ! lInvert, ;
{ { 0.50, nRGB( 178, 187, 202 ), nRGB( 137, 155, 179 ) }, ;
{ 0.50, nRGB( 129, 149, 174 ), nRGB( 114, 132, 156 ) } }, ;
{ { 0.50, nRGB( 139, 166, 193 ), nRGB( 69, 119, 170 ) }, ;
{ 0.50, nRGB( 52, 104, 152 ), nRGB( 50, 107, 162 ) } } ) }
oBarra:nClrText = nRGB( 255, 255, 255 )
* -----------------------------------------------------------------------------*
IF aAblM1[01] .AND. aAblM1[02]
DEFINE BUTTON aBtns1[01] OF oBarra RESOURCE "Rec32" cBorde ;
ACTION SirseWin01a(oWindow);
MESSAGE "Registro e impresión de facturas"
aBtns1[01] :cToolTip := { "Registro de facturas", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM1[01] .AND. aAblM1[03]
DEFINE BUTTON aBtns1[02] OF oBarra RESOURCE "Cos32" cBorde ;
ACTION SirseWin01b(oWindow);
MESSAGE "Consultar órdenes de servicio"
aBtns1[02] :cToolTip := { "Consultar órdenes", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM1[01] .AND. aAblM1[04]
DEFINE BUTTON aBtns1[03] OF oBarra RESOURCE "Rep32" cBorde ;
ACTION SirseWin01c(oWindow);
MESSAGE "Asignar reparación"
aBtns1[03] :cToolTip := { "Asignar reparación", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM1[01] .AND. aAblM1[05]
DEFINE BUTTON aBtns1[04] OF oBarra RESOURCE "Pdr32" cBorde ;
ACTION SirseWin01d(oWindow);
MESSAGE "Reporte de órdenes pendientes de reparar"
aBtns1[04] :cToolTip := { "Reporte de pendientes de reparar", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM1[01] .AND. aAblM1[06]
DEFINE BUTTON aBtns1[05] OF oBarra RESOURCE "Rne32" cBorde ;
ACTION SirseWin01e(oWindow);
MESSAGE "Reporte de órdenes reparadas pendientes de entregar"
aBtns1[05] :cToolTip := { "Reporte de reparadas no entregadas", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM1[01] .AND. aAblM1[07]
DEFINE BUTTON aBtns1[06] OF oBarra RESOURCE "Pre32" cBorde ;
ACTION SirseWin01f(oWindow);
MESSAGE "Elaborar e imprimir prespuestos"
aBtns1[06] :cToolTip := { "Presupuestos", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
* -----------------------------------------------------------------------------*
IF aAblM2[01] .AND. aAblM2[02]
DEFINE BUTTON aBtns2[01] OF oBarra RESOURCE "Vdr32" cBorde ;
GROUP;
ACTION SirseWin02a(oWindow);
MESSAGE "Venta de refacciones"
aBtns2[01] :cToolTip := { "Venta de refacciones", "Ventas", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM2[01] .AND. aAblM2[03]
DEFINE BUTTON aBtns2[02] OF oBarra RESOURCE "Ddv32" cBorde ;
ACTION SirseWin02b(oWindow);
MESSAGE "Reporte diario de ventas"
aBtns2[02] :cToolTip := { "Diario de ventas", "Ventas", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
* -----------------------------------------------------------------------------*
IF aAblM4[01] .AND. aAblM4[02]
DEFINE BUTTON aBtns4[01] OF oBarra RESOURCE "Vda32" cBorde ;
GROUP;
ACTION SirseWin03a(oWindow);
MESSAGE "Vales de almacén"
aBtns4[01] :cToolTip := { "Movimientos de almacén", "Inventario", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM4[01] .AND. aAblM4[03]
DEFINE BUTTON aBtns4[02] OF oBarra RESOURCE "Edm32" cBorde ;
ACTION SirseWin03b(oWindow);
MESSAGE "Estadistico de movimientos"
aBtns4[02] :cToolTip := { "Estadistico de movimientos", "Inventario", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
* -----------------------------------------------------------------------------*
IF aAblM6[01] .AND. aAblM6[02]
DEFINE BUTTON aBtns6[01] OF oBarra RESOURCE "Com32" cBorde ;
GROUP;
ACTION SirseWin04a(oWindow);
MESSAGE "Reporte para pago de comisiones"
aBtns6[01] :cToolTip := { "Reporte para pagar comisiones", "Comisiones", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
* -----------------------------------------------------------------------------*
IF aAblM7[01] .AND. aAblM7[02]
DEFINE BUTTON aBtns7[01] OF oBarra RESOURCE "Par32" cBorde ;
GROUP;
ACTION SirseWin05a(oWindow) ;
MESSAGE "Mantenimiento a partes"
aBtns7[01] :cToolTip := { "Archivos", "Partes", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM7[01] .AND. aAblM7[03]
DEFINE BUTTON aBtns7[02] OF oBarra RESOURCE "Mod32" cBorde ;
ACTION SirseWin05b(oWindow) ;
MESSAGE "Mantenimiento a modelos de aparatos"
aBtns7[02] :cToolTip := { "Archivos", "Modelos", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM7[01] .AND. aAblM7[04]
DEFINE BUTTON aBtns7[03] OF oBarra RESOURCE "Gps32" cBorde ;
ACTION SirseWin05c(oWindow) ;
MESSAGE "Mantenimiento a grupos de mano de obra"
aBtns7[03] :cToolTip := { "Archivos", "Grupos", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM7[01] .AND. aAblM7[05]
DEFINE BUTTON aBtns7[04] OF oBarra RESOURCE "Mca32" cBorde ;
ACTION SirseWin05d(oWindow) ;
MESSAGE "Mantenimiento a marcas"
aBtns7[04] :cToolTip := { "Archivos", "Marcas", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM7[01] .AND. aAblM7[06]
DEFINE BUTTON aBtns7[05] OF oBarra RESOURCE "Def32" cBorde ;
ACTION SirseWin05e(oWindow) ;
MESSAGE "Claves de defectos"
aBtns7[05] :cToolTip := { "Archivos", "Defectos", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM7[01] .AND. aAblM7[07]
DEFINE BUTTON aBtns7[06] OF oBarra RESOURCE "Cli32" cBorde ;
ACTION SirseWin05f(oWindow) ;
MESSAGE "Clientes frecuentes"
aBtns7[06] :cToolTip := { "Archivos", "Clientes", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM7[01] .AND. aAblM7[08]
DEFINE BUTTON aBtns7[07] OF oBarra RESOURCE "Tec32" cBorde ;
ACTION SirseWin05g(oWindow);
MESSAGE "Técnicos y empleados"
aBtns7[07] :cToolTip := { "Archivos", "Técnicos", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM7[01] .AND. aAblM7[09]
DEFINE BUTTON aBtns7[08] OF oBarra RESOURCE "Pdu32" cBorde ;
ACTION SirseWin05h(oWindow);
MESSAGE "Porcentajes de utilidad"
aBtns7[08] :cToolTip := { "Archivos", "Porcentajes", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM7[01] .AND. aAblM7[10]
DEFINE BUTTON aBtns7[09] OF oBarra RESOURCE "Tdo32" cBorde ;
ACTION SirseWin05i(oWindow);
MESSAGE "Tipos de órdenes"
aBtns7[09] :cToolTip := { "Archivos", "Tipos de órdenes", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM7[01] .AND. aAblM7[11]
DEFINE BUTTON aBtns7[10] OF oBarra RESOURCE "Tdg32" cBorde ;
ACTION SirseWin05j(oWindow);
MESSAGE "Tipos de garantías"
aBtns7[10] :cToolTip := { "Archivos", "Tipos de garantías", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM7[01] .AND. aAblM7[12]
DEFINE BUTTON aBtns7[11] OF oBarra RESOURCE "Dia32" cBorde ;
ACTION SirseWin05k(oWindow);
MESSAGE "Manuales y diagramas"
aBtns7[11] :cToolTip := { "Archivos", "Manuales y diagramas", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
IF aAblM7[01] .AND. aAblM7[13]
DEFINE BUTTON aBtns7[12] OF oBarra RESOURCE "Cfg32" cBorde ;
ACTION SirseWin05l(oWindow);
MESSAGE "Configurar el sistema"
aBtns7[12] :cToolTip := { "Archivos", "Configurar el sistema", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
* -----------------------------------------------------------------------------*
IF aAblM8[01] .AND. aAblM8[02]
DEFINE BUTTON aBtns8[01] OF oBarra RESOURCE "Dsg32" cBorde ;
GROUP;
ACTION WaitRun(".\VRD.EXE");
MESSAGE "Diseñador de formatos"
aBtns8[01] :cToolTip := { "Soporte", "Diseñador", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
ENDIF
* -----------------------------------------------------------------------------*
DEFINE BUTTON aBtns8[01] OF oBarra RESOURCE "Sal32" cBorde ;
GROUP;
ACTION oWindow:END( ) ;
MESSAGE "Salir de la aplicación"
aBtns8[01] :cToolTip := { "Salir de la aplicación", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
RETURN ( .T. )
