VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIFMaestros 
   BackColor       =   &H8000000C&
   Caption         =   "Módulo de Maestras"
   ClientHeight    =   7755
   ClientLeft      =   1845
   ClientTop       =   1890
   ClientWidth     =   10800
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   1
      Top             =   7380
      Width           =   10800
      _ExtentX        =   19050
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   10821
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   1
            Enabled         =   0   'False
            TextSave        =   "MAYÚS"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   3
            Enabled         =   0   'False
            TextSave        =   "INS"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   2
            Enabled         =   0   'False
            TextSave        =   "NÚM"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   120
      Top             =   2640
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   14
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":0000
            Key             =   "new"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":0548
            Key             =   "exit"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":0864
            Key             =   "primero"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":0B80
            Key             =   "anterior"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":0E9C
            Key             =   "siguiente"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":11B8
            Key             =   "ultimo"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":14D4
            Key             =   "edit"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":1930
            Key             =   "delete"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":1A48
            Key             =   "print"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":1F90
            Key             =   "undo"
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":24D8
            Key             =   "copy"
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":25F8
            Key             =   "find"
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":2714
            Key             =   "save"
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFMaestras.frx":2C5C
            Key             =   "preview"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10800
      _ExtentX        =   19050
      _ExtentY        =   1111
      ButtonWidth     =   1429
      ButtonHeight    =   953
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   18
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Nuevo"
            Key             =   "nuevo"
            Object.ToolTipText     =   "Agregar un Nuevo Registro"
            ImageKey        =   "new"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Modificar"
            Key             =   "modificar"
            Object.ToolTipText     =   "Modificar el Registro Actual"
            ImageKey        =   "edit"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Grabar"
            Key             =   "grabar"
            Object.ToolTipText     =   "Grabar el Registro Actual"
            ImageKey        =   "save"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Descartar"
            Key             =   "descartar"
            Object.ToolTipText     =   "Descartar los Cambios Hechos"
            ImageKey        =   "undo"
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Eliminar"
            Key             =   "eliminar_registro"
            Object.ToolTipText     =   "Eliminar el Registro Actual"
            ImageKey        =   "delete"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Refrescar"
            Key             =   "refrescar_registro"
            Object.ToolTipText     =   "Actualiza los Datos"
            ImageKey        =   "copy"
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Primero"
            Key             =   "primer_registro"
            Object.ToolTipText     =   "Moverse al Primer Registro"
            ImageKey        =   "primero"
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Anterior"
            Key             =   "anterior_registro"
            Object.ToolTipText     =   "Moverse al Registro Anterior"
            ImageKey        =   "anterior"
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Siguiente"
            Key             =   "siguiente_registro"
            Object.ToolTipText     =   "Moverse al Siguiente Registro"
            ImageKey        =   "siguiente"
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Ultimo"
            Key             =   "ultimo_registro"
            Object.ToolTipText     =   "Moverse al Ultimo Registro"
            ImageKey        =   "ultimo"
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Imprimir"
            Key             =   "imprimir"
            ImageKey        =   "print"
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Style           =   3
         EndProperty
         BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "Salir"
            Key             =   "salir"
            Object.ToolTipText     =   "Salir dl Modulo Actual"
            ImageKey        =   "exit"
         EndProperty
      EndProperty
   End
   Begin VB.Menu MnuMaestros 
      Caption         =   "Maestros Generales"
      Begin VB.Menu MnuArticulos 
         Caption         =   "Articulos"
         Shortcut        =   ^A
      End
      Begin VB.Menu MnuFormulas 
         Caption         =   "Formulas"
      End
      Begin VB.Menu Mnualmacenes 
         Caption         =   "Almacenes"
      End
      Begin VB.Menu MnuTipoProveedor 
         Caption         =   "Tipo de Proveedor"
      End
      Begin VB.Menu MnuProveedores 
         Caption         =   "Proveedores"
         Shortcut        =   ^P
      End
      Begin VB.Menu mnurelprovart 
         Caption         =   "Relación Proveedor Artículo"
      End
      Begin VB.Menu MnuClasesTipoCambio 
         Caption         =   "Clases de Tipos de Cambio"
      End
      Begin VB.Menu MnuTipoImpuesto 
         Caption         =   "Tipo de Impuesto"
      End
      Begin VB.Menu MnuDocumentos 
         Caption         =   "Documentos"
      End
      Begin VB.Menu MnuMoneda 
         Caption         =   "Moneda"
      End
      Begin VB.Menu MnuMantEstados 
         Caption         =   "Mantenimiento de Estados"
         Begin VB.Menu MnuPais 
            Caption         =   "Pais"
         End
         Begin VB.Menu MnuDepartamento 
            Caption         =   "Departamento"
         End
         Begin VB.Menu MnuDistrito 
            Caption         =   "Distrito"
         End
      End
   End
   Begin VB.Menu MnuMantenimiInv 
      Caption         =   "Inventarios"
      Begin VB.Menu MnuCategorias 
         Caption         =   "Categorias"
         Shortcut        =   ^T
      End
      Begin VB.Menu MnuSubCategorias 
         Caption         =   "SubCategorias"
         Shortcut        =   ^S
      End
      Begin VB.Menu MnuTipos 
         Caption         =   "Tipos (Local-Regional)"
      End
      Begin VB.Menu MnuUnidadMedida 
         Caption         =   "Unidad de Medida"
         Shortcut        =   ^U
      End
      Begin VB.Menu mnuTipoMovIngSal 
         Caption         =   "Tipos de Movimientos (Ingresos y Salidas)"
      End
      Begin VB.Menu MnuTipoListaPrecioInventario 
         Caption         =   "Tipos de Precios de Inventario"
      End
      Begin VB.Menu mnuHistPrecInv 
         Caption         =   "Historial de Precios de Inventario"
      End
   End
   Begin VB.Menu mnuventas 
      Caption         =   "Ventas"
      Begin VB.Menu MnuClientesCoporativos 
         Caption         =   "Clientes"
         Shortcut        =   ^L
      End
      Begin VB.Menu mnuEstadoCliente 
         Caption         =   "Estado de Cliente"
      End
      Begin VB.Menu MnuTipClientes 
         Caption         =   "Tipos de Clientes"
      End
      Begin VB.Menu mnuClienteEstacion 
         Caption         =   "Cliente-Estacion"
      End
      Begin VB.Menu MnuTipFactura 
         Caption         =   "Condición de Pago"
      End
      Begin VB.Menu MnuVendedor 
         Caption         =   "Vendedor"
         Shortcut        =   ^D
      End
      Begin VB.Menu mnuEstado_Vendedor 
         Caption         =   "Estado de Vendedor"
      End
      Begin VB.Menu mnuTipoDeposito 
         Caption         =   "Tipo de Depósito"
      End
      Begin VB.Menu mnuHistPrecCli 
         Caption         =   "Historial de Precios para Clientes"
      End
      Begin VB.Menu mnuRelCliente_TPC 
         Caption         =   "Relación Cliente-Estación-TPC"
      End
      Begin VB.Menu MnuOtros 
         Caption         =   "Otros"
         Begin VB.Menu MnuBancos 
            Caption         =   "Bancos"
         End
         Begin VB.Menu MnuTarjetaCredito 
            Caption         =   "Tarjetas de Crédito"
         End
         Begin VB.Menu MnuZonas 
            Caption         =   "Zonas"
         End
         Begin VB.Menu mnuModVenta 
            Caption         =   "Modalidad de Venta"
         End
         Begin VB.Menu mnu_Competencias 
            Caption         =   "Competencias"
         End
      End
   End
End
Attribute VB_Name = "MDIFMaestros"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'autor: gustavo duffoo
'fecha: 05/09/2002
'funcionabilidad: crear una barra de herramientas estandar para todos los proyectos
'
'ultima modificacion : 11/09/2002
'se cambio el pronombre en el evento click del toolbar por "me"

Private Sub MDIForm_Activate()
 Me.Caption = "Módulo de Maestras [Usuario: " & GCUSERID & "] - Titanium Versión " & App.Major & "." & App.Minor & "." & App.Revision
End Sub

Private Sub MDIForm_Load()
Set gformmdi = Me   'REFERENCIA AL FORMULARIO MDI
End Sub

Private Sub mnu_Competencias_Click()
  Dim frm As FCompetencias
  Set frm = New FCompetencias
  frm.Show
End Sub

Private Sub Mnualmacenes_Click()
  Dim frm As FAlmacen
  Set frm = New FAlmacen
  frm.Show
End Sub

Private Sub MnuArticulos_Click()
  Dim frm As FMaestroArticulos
  Set frm = New FMaestroArticulos
  frm.Show
End Sub

Private Sub MnuBancos_Click()
  Dim frm As FBanco
  Set frm = New FBanco
  frm.Show
End Sub

Private Sub MnuCategorias_Click()
  Dim frm As FCategoria
  Set frm = New FCategoria
  frm.Show
End Sub

Private Sub MnuClasesTipoCambio_Click()
  Dim frm As FClaseTipoCambio
  Set frm = New FClaseTipoCambio
  frm.Show
End Sub

Private Sub mnuClienteEstacion_Click()
  Dim frm As FClientePlacaEstacion
  Set frm = New FClientePlacaEstacion
  frm.Show
End Sub

Private Sub MnuClientesCoporativos_Click()
  Dim frm As FMaestroClientes
  Set frm = New FMaestroClientes
  frm.Show
End Sub

Private Sub MnuDepartamento_Click()
  Dim frm As FDepartamento
  Set frm = New FDepartamento
  frm.Show
End Sub

Private Sub MnuDistrito_Click()
  Dim frm As FDistrito
  Set frm = New FDistrito
  frm.Show
End Sub

Private Sub MnuDocumentos_Click()
    Dim frm As FDocumento
    Set frm = New FDocumento
    frm.Show
End Sub

Private Sub mnuEstado_Vendedor_Click()
    Dim frm As FEstadoVendedor
    Set frm = New FEstadoVendedor
    frm.Show
End Sub

Private Sub mnuEstadoCliente_Click()
    Dim frm As FEstadoCliente
    Set frm = New FEstadoCliente
    frm.Show
End Sub

Private Sub MnuFormulas_Click()
    Dim frm As FFormulas
    Set frm = New FFormulas
    frm.Show
End Sub

Private Sub mnuHistPrecCli_Click()
  Dim frm As FHistPreciosCli
  Set frm = New FHistPreciosCli
  frm.Show
End Sub

Private Sub mnuHistPrecInv_Click()
  Dim frm As FHistPreciosInv
  Set frm = New FHistPreciosInv
  frm.Show
End Sub

Private Sub mnuModVenta_Click()
  Dim frm As FModalidadVenta
  Set frm = New FModalidadVenta
  frm.Show
End Sub

Private Sub MnuMoneda_Click()
  Dim frm As FMoneda
  Set frm = New FMoneda
  frm.Show
End Sub

Private Sub MnuPais_Click()
  Dim frm As FPais
  Set frm = New FPais
  frm.Show
End Sub

Private Sub MnuProveedores_Click()
  Dim frm As FProveedor
  Set frm = New FProveedor
  frm.Show
End Sub

Private Sub mnuRelCliente_TPC_Click()
    FCliente_TPC.Show
End Sub

Private Sub mnurelprovart_Click()
  Dim frm As FRelProveArt
  Set frm = New FRelProveArt
  frm.Show
End Sub

Private Sub MnuSubCategorias_Click()
  Dim frm As fSubCategoria
  Set frm = New fSubCategoria
  frm.Show
End Sub

Private Sub MnuTarjetaCredito_Click()
  Dim frm As FTarjetaCredito
  Set frm = New FTarjetaCredito
  frm.Show
End Sub

Private Sub MnuTipClientes_Click()
    Dim frm As FTipoCliente
    Set frm = New FTipoCliente
    frm.Show
End Sub

Private Sub MnuTipFactura_Click()
    Dim frm As FCondicionPago
    Set frm = New FCondicionPago
    frm.Show
End Sub

Private Sub mnuTipoDeposito_Click()
  Dim frm As FTipoDeposito
  Set frm = New FTipoDeposito
  frm.Show
End Sub

Private Sub MnuTipoImpuesto_Click()
  Dim frm As FTipoImpuesto
  Set frm = New FTipoImpuesto
  frm.Show
End Sub

Private Sub MnuTipoListaPrecioInventario_Click()
  Dim frm As FTipoPrecioInv
  Set frm = New FTipoPrecioInv
  frm.Show
End Sub

Private Sub mnuTipoMovIngSal_Click()
  Dim frm As FTipoMovimiento
  Set frm = New FTipoMovimiento
  frm.Show
End Sub

Private Sub MnuTipoProveedor_Click()
  Dim frm As FTipoProveedor
  Set frm = New FTipoProveedor
  frm.Show
End Sub

Private Sub MnuTipos_Click()
  Dim frm As FTipo
  Set frm = New FTipo
  frm.Show
End Sub

Private Sub MnuUnidadMedida_Click()
  Dim frm As FUnidadMedida
  Set frm = New FUnidadMedida
  frm.Show
End Sub

Private Sub MnuVendedor_Click()
  Dim frm As FVendedor
  Set frm = New FVendedor
  frm.Show
End Sub

Private Sub MnuZonas_Click()
  Dim frm As FZonaCliente
  Set frm = New FZonaCliente
  frm.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If ActiveForm Is Nothing And Button.Key = "salir" Then gsalir

If ActiveForm Is Nothing Then Exit Sub

Select Case Button.Key
    Case "nuevo"
        Me.ActiveForm.agregar_registro
    Case "modificar"
        Me.ActiveForm.modificar_registro
    Case "grabar"
        Me.ActiveForm.grabar_registro
    Case "descartar"
    If MsgBox("Esta Seguro Que Desea Descartar los Cambios", vbYesNo + vbQuestion, "Atencion") = vbYes Then
        Me.ActiveForm.descartar_registro
    End If
    Case "eliminar_registro"
        If MsgBox("Esta Seguro Que Desea Eliminar el Registro", vbYesNo + vbQuestion, "Atencion") = vbYes Then
            Me.ActiveForm.borrar_registro
        End If
    Case "refrescar_registro"
        Me.ActiveForm.actualizar_registro
    Case "Imprimir"
        Me.ActiveForm.primer_registro
    Case "primer_registro"
        Me.ActiveForm.primer_registro
    Case "anterior_registro"
        Me.ActiveForm.registro_anterior
    Case "siguiente_registro"
        Me.ActiveForm.registro_siguiente
    Case "ultimo_registro"
        Me.ActiveForm.ultimo_registro
    Case "imprimir"
        Me.ActiveForm.imprimir
    Case "salir"
        Me.ActiveForm.salir_formulario
End Select
End Sub
