VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIFVENTAS 
   BackColor       =   &H8000000C&
   Caption         =   "Módulo de Ventas"
   ClientHeight    =   7440
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   10485
   Icon            =   "MDIFVentas.frx":0000
   LinkTopic       =   "MDIForm1"
   LockControls    =   -1  'True
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10485
      _ExtentX        =   18494
      _ExtentY        =   1111
      ButtonWidth     =   1402
      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 MSComctlLib.ImageList ImageList1 
      Left            =   1680
      Top             =   1560
      _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         =   "MDIFVentas.frx":030A
            Key             =   "new"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFVentas.frx":0852
            Key             =   "exit"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFVentas.frx":0B6E
            Key             =   "primero"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFVentas.frx":0E8A
            Key             =   "anterior"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFVentas.frx":11A6
            Key             =   "siguiente"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFVentas.frx":14C2
            Key             =   "ultimo"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFVentas.frx":17DE
            Key             =   "edit"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFVentas.frx":1C3A
            Key             =   "delete"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFVentas.frx":1D52
            Key             =   "print"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFVentas.frx":229A
            Key             =   "undo"
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFVentas.frx":27E2
            Key             =   "copy"
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFVentas.frx":2902
            Key             =   "find"
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFVentas.frx":2A1E
            Key             =   "save"
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFVentas.frx":2F66
            Key             =   "preview"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   1
      Top             =   7065
      Width           =   10485
      _ExtentX        =   18494
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   10292
         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
            TextSave        =   "NÚM"
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnu_facturacion 
      Caption         =   "Facturacion"
      Begin VB.Menu mnu_facturacion_playa 
         Caption         =   "Facturacion Playa"
         Visible         =   0   'False
      End
      Begin VB.Menu mnu_facturacion_Tienda 
         Caption         =   "Facturacion Tienda"
         Visible         =   0   'False
      End
      Begin VB.Menu mnu_facturacion_manual 
         Caption         =   "Facturacion Manual"
         Visible         =   0   'False
      End
      Begin VB.Menu mnu_facturacion_notacredito 
         Caption         =   "Notas de Credito"
      End
      Begin VB.Menu mnu_facturacion_cash 
         Caption         =   "Mantenimiento cash drop"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuLine1 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_facturacion_cierre 
         Caption         =   "Cierre de Ventas"
         Shortcut        =   ^F
      End
      Begin VB.Menu mnuLine2 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_facturacion_contometros 
         Caption         =   "Contometros Manuales"
      End
      Begin VB.Menu mnu_facturacion_Caras_Vendedor 
         Caption         =   "Configuración de Caras - Vendedor"
      End
      Begin VB.Menu mnu_facturacion_Ctrl_Precios_Comp 
         Caption         =   "Control Precios de Competencia"
         Begin VB.Menu mnu_Ctrl_Precios_local 
            Caption         =   "Estación Local"
         End
         Begin VB.Menu mnu_Ctrl_Precios_Competencias 
            Caption         =   "Estaciones de Competencia"
         End
      End
   End
   Begin VB.Menu mnu_pdiario_ 
      Caption         =   "Parte Diario"
      Begin VB.Menu mnu_pdiario_controlfuels 
         Caption         =   "Control de Combustibles"
         Begin VB.Menu mnu_PrecioCombustible 
            Caption         =   "Precios Anti - Combustibles"
            Visible         =   0   'False
         End
         Begin VB.Menu mnu_cred_combustibles 
            Caption         =   "Precios - Combustibles"
         End
         Begin VB.Menu mnu_StockCombustible 
            Caption         =   "Stock - Combustibles"
         End
      End
      Begin VB.Menu mnu_pdiario_tarjetas 
         Caption         =   "Tarjetas de Credito"
      End
      Begin VB.Menu mnu_pdiario_falta_sobra 
         Caption         =   "Faltantes Sobrantes"
      End
      Begin VB.Menu mnu_pdiario_vdiarias 
         Caption         =   "Resumen Ventas/Vales del Dia"
      End
      Begin VB.Menu mnu_pdiario_depositos 
         Caption         =   "Depositos"
      End
      Begin VB.Menu mnu_pdiario_aprobacionpdiarios 
         Caption         =   "Aprobacion Parte Diario"
      End
   End
   Begin VB.Menu mnu_rep_ 
      Caption         =   "Reportes"
      Begin VB.Menu mnu_rep_ventas 
         Caption         =   "Ventas"
      End
      Begin VB.Menu mnu_rep_ventasproductos 
         Caption         =   "Ventas x Producto"
      End
      Begin VB.Menu mnu_vtasDia 
         Caption         =   "Ventas x Dia"
      End
      Begin VB.Menu mnu_rep_tarjeta 
         Caption         =   "Ventas con Tarjeta de Credito"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuLine3 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_rep_ventasvales 
         Caption         =   "Ventas con Tickets Factura Credito"
         Shortcut        =   ^B
      End
      Begin VB.Menu mnuLine4 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_rep_formapago 
         Caption         =   "Ventas x Forma de Pago"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnu_RotacionStock 
         Caption         =   "Rotación de Stock de Productos"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnu_rep_cashdrop 
         Caption         =   "Ventas Cash Drop Vendedor"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnu_rep_faltasobra 
         Caption         =   "Faltantes/Sobrantes x Fecha"
      End
      Begin VB.Menu mnu_rep_tarjetas 
         Caption         =   "Registro Tarjetas Credito x Dia"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuLine5 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_rep_RegVentas 
         Caption         =   "Registro de Ventas"
         Shortcut        =   ^A
      End
      Begin VB.Menu mnuLine6 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_rep_depositos 
         Caption         =   "Depositos x Dia"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnu_rep_anulaciones 
         Caption         =   "Anulaciones"
      End
      Begin VB.Menu mnuauditVent 
         Caption         =   "Auditoría de Resumenes de Ventas"
      End
   End
End
Attribute VB_Name = "MDIFVENTAS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub MDIForm_Activate()
    Me.Caption = "Módulo de Ventas [Usuario: " & GCUSERID & "] - SIESSAC Version " & App.Major & "." & App.Minor & "." & App.Revision
End Sub

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

End Sub

Private Sub mnu_cred_combustibles_Click()
    FControlCombustibleCredito.Show
End Sub

Private Sub mnu_Ctrl_Precios_Competencias_Click()
    FCtrlPreciosCompetencia.Show
End Sub

Private Sub mnu_Ctrl_Precios_local_Click()
    FCtrlPreciosEstacion.Show
End Sub

'Private Sub mnu_DcocFree_Click()
'    Dim frm As FDocFree
'    Set frm = New FDocFree
'    frm.Show
'End Sub

Private Sub mnu_facturacion_Caras_Vendedor_Click()
    FConfigCarasVendedor.Show
End Sub

Private Sub mnu_facturacion_cierre_Click()
    FCierreVentas.Show
End Sub

Private Sub mnu_facturacion_contometros_Click()
    FContometrosM.Show
End Sub

Private Sub mnu_facturacion_notacredito_Click()
  Dim frm As fnotacreditodebito
  Set frm = New fnotacreditodebito
  frm.Show
End Sub

Private Sub mnu_pdiario_aprobacionpdiarios_Click()
   FAprobarParteDiario.Show
End Sub

Private Sub mnu_pdiario_depositos_Click()
    FDepositos.Show
End Sub

Private Sub mnu_pdiario_falta_sobra_Click()
    FFaltantesSobrantes.Show
End Sub

Private Sub mnu_pdiario_tarjetas_Click()
    FTarjetasCredito.Show
End Sub

Private Sub mnu_pdiario_vdiarias_Click()
    Fresumenventas.Show
End Sub

Private Sub mnu_PrecioCombustible_Click()
    FControlCombustible.Show
End Sub

Private Sub mnu_rep_anulaciones_Click()
    FReporteAnulaciones.Show
End Sub

Private Sub mnu_rep_cashdrop_Click()
' @ Jorge: no existe ninguna ventana

End Sub

Private Sub mnu_rep_depositos_Click()
'@ Jorge: nunca existio una llamada a una ventana, INHABILITADO

End Sub

Private Sub mnu_rep_faltasobra_Click()
    FReporteFaltanteSobrante.Show
End Sub

Private Sub mnu_rep_formapago_Click()
'@ Jorge: nunca existio una llamada a una ventana, INHABILITADO

End Sub


Private Sub mnu_rep_RegVentas_Click()
    FRegistroVentas.Show
End Sub

Private Sub mnu_rep_tarjeta_Click()
    FReporteVentasConTarjeta.Show
End Sub

Private Sub mnu_rep_tarjetas_Click()
    '@ JORGE: NO NECESARIO
    FReporteRegtarjetas.Show
End Sub

Private Sub mnu_rep_ventas_Click()
    FReporteVentas.Show
End Sub

Private Sub mnu_rep_ventasproductos_Click()
    FReporteVentasPorArticulo.Show
End Sub

Private Sub mnu_rep_ventasvales_Click()
    '@ Jorge: nombre original de este menu: 'Ventas con Vales de Credito'
    FReporteVentasConVales.Show
End Sub

Private Sub mnu_RotacionStock_Click()
    '@ Jorge: Falta su reporte no existe, en el disco (*.rpt)
    FReporteRotacionStock.Show
End Sub

Private Sub mnu_StockCombustible_Click()
    FControlCombustible2.Show
End Sub

Private Sub mnu_vtasDia_Click()
    FReporteVentasDia.Show
End Sub

Private Sub mnuauditVent_Click()
   frmauditoriasist.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

