VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIFMaestros 
   BackColor       =   &H8000000C&
   Caption         =   "Módulo de Maestro "
   ClientHeight    =   7755
   ClientLeft      =   1845
   ClientTop       =   1890
   ClientWidth     =   8730
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
   Begin VB.Menu MnuMaestros 
      Caption         =   "Maestros"
      Begin VB.Menu MnuArticulos 
         Caption         =   "Articulos"
      End
      Begin VB.Menu MnuMantenimiInv 
         Caption         =   "Mantenimiento de Inventarios"
         Begin VB.Menu MnuCategorias 
            Caption         =   "Categorias"
         End
         Begin VB.Menu MnuSubCategorias 
            Caption         =   "SubCategorias"
         End
         Begin VB.Menu MnuTipos 
            Caption         =   "Tipos"
         End
         Begin VB.Menu MnuUnidadMedida 
            Caption         =   "Unidad de Medida"
         End
         Begin VB.Menu mnuTipoMovIngSal 
            Caption         =   "Tipos de Movimientos (Ingresos y Salidas)"
         End
         Begin VB.Menu Mnualmacenes 
            Caption         =   "Almacenes"
         End
         Begin VB.Menu MnuProveedores 
            Caption         =   "Proveedores"
         End
         Begin VB.Menu MnuFormulas 
            Caption         =   "Formulas"
         End
      End
      Begin VB.Menu MnuClientesCoporativos 
         Caption         =   "Clientes (Para Clientes Corporativos)"
      End
      Begin VB.Menu MnuTipClientes 
         Caption         =   "Tipos de Clientes"
      End
      Begin VB.Menu MnuTipFactura 
         Caption         =   "Tipos de Factura (Condición de Pago)"
      End
      Begin VB.Menu MnuVendedor 
         Caption         =   "Vendedor"
      End
      Begin VB.Menu MnuMantVentas 
         Caption         =   "Mantenimiento de Ventas"
         Begin VB.Menu MnuDocumentos 
            Caption         =   "Documentos"
         End
         Begin VB.Menu MnuBancos 
            Caption         =   "Bancos"
         End
         Begin VB.Menu MnuTarjetaCredito 
            Caption         =   "Tarjetas de Crédito"
         End
         Begin VB.Menu MnuMoneda 
            Caption         =   "Moneda"
         End
         Begin VB.Menu MnuZonas 
            Caption         =   "Zonas"
         End
      End
      Begin VB.Menu MnuTipoProveedor 
         Caption         =   "Tipo de Proveedor"
      End
      Begin VB.Menu MnuTipoImpuesto 
         Caption         =   "Tipo de Impuesto"
      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
      Begin VB.Menu MnuTipoListaPrecioInventario 
         Caption         =   "Tipo de Lista de Precios de Inventario"
      End
      Begin VB.Menu MnuClasesTipoCambio 
         Caption         =   "Clases de Tipos de Cambio"
      End
      Begin VB.Menu MnuTipoListaPrecioCliente 
         Caption         =   "Tipo de Lista de Precios por Cliente"
      End
      Begin VB.Menu MnuListaPrecioCliente 
         Caption         =   "Lista de Precios por Cliente"
      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_Load()
Set gformmdi = Me   'REFERENCIA AL FORMULARIO MDI
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 MnuCategorias_Click()
  Dim FRM As FCategoria
  Set FRM = New FCategoria
  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 MnuFormulas_Click()
    Dim FRM As FFormulas
    Set FRM = New FFormulas
    FRM.Show
End Sub

Private Sub MnuIngresos_Click()
  Dim FRM As FIngresos
  Set FRM = New FIngresos
  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 MnuSubCategorias_Click()
  Dim FRM As fSubCategoria
  Set FRM = New fSubCategoria
  FRM.Show
End Sub

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

Private Sub MnuTipoListaPrecioArticulo_Click()
  
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 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
