VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "crystl32.ocx"
Object = "{C4DED68B-C40F-11D6-AD1A-000795CA0957}#39.0#0"; "pry_list.ocx"
Begin VB.Form FKardexGeneral 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Kardex General (10.100.00)"
   ClientHeight    =   6900
   ClientLeft      =   3480
   ClientTop       =   2040
   ClientWidth     =   6930
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   6900
   ScaleWidth      =   6930
   Begin TabDlg.SSTab StaKardexGeneral 
      Height          =   6735
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6735
      _ExtentX        =   11880
      _ExtentY        =   11880
      _Version        =   393216
      Tabs            =   2
      TabHeight       =   520
      TabCaption(0)   =   "Criterio"
      TabPicture(0)   =   "1010000.frx":0000
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame2"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Frame3"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "Frame1"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "Frame4"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "cmdSalir"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).Control(5)=   "cmdAceptar"
      Tab(0).Control(5).Enabled=   0   'False
      Tab(0).Control(6)=   "CRkGeneral"
      Tab(0).Control(6).Enabled=   0   'False
      Tab(0).ControlCount=   7
      TabCaption(1)   =   "Almacenes"
      TabPicture(1)   =   "1010000.frx":001C
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "ListRAlmacenes"
      Tab(1).ControlCount=   1
      Begin Crystal.CrystalReport CRkGeneral 
         Left            =   3240
         Top             =   6120
         _ExtentX        =   741
         _ExtentY        =   741
         _Version        =   348160
         PrintFileLinesPerPage=   60
      End
      Begin pry_list.ctrl_listarray ListRAlmacenes 
         Height          =   6135
         Left            =   -74400
         TabIndex        =   16
         Top             =   600
         Width           =   5775
         _ExtentX        =   10186
         _ExtentY        =   10821
      End
      Begin VB.CommandButton cmdAceptar 
         Caption         =   "&Generar "
         Height          =   735
         Left            =   960
         Picture         =   "1010000.frx":0038
         Style           =   1  'Graphical
         TabIndex        =   14
         Top             =   5760
         Width           =   1335
      End
      Begin VB.CommandButton cmdSalir 
         Caption         =   "Sa&lir"
         Height          =   735
         Left            =   4440
         Picture         =   "1010000.frx":0342
         Style           =   1  'Graphical
         TabIndex        =   15
         Top             =   5760
         Width           =   1335
      End
      Begin VB.Frame Frame4 
         Caption         =   "Tipo"
         Height          =   2295
         Left            =   3240
         TabIndex        =   4
         Top             =   480
         Width           =   3375
         Begin VB.OptionButton OptNoValorizado 
            Caption         =   "No Valorizado"
            Height          =   255
            Left            =   120
            TabIndex        =   5
            Top             =   360
            Value           =   -1  'True
            Width           =   1575
         End
         Begin MSDataListLib.DataCombo DtcMoneda 
            Height          =   315
            Left            =   360
            TabIndex        =   7
            Top             =   1200
            Width           =   2415
            _ExtentX        =   4260
            _ExtentY        =   556
            _Version        =   393216
            Style           =   2
            Text            =   "DataCombo1"
         End
         Begin VB.OptionButton OptValorizado 
            Caption         =   "Valorizado en "
            Height          =   255
            Left            =   120
            TabIndex        =   6
            Top             =   840
            Width           =   1455
         End
      End
      Begin VB.Frame Frame1 
         Caption         =   "Formato"
         Height          =   735
         Left            =   240
         TabIndex        =   8
         Top             =   2040
         Width           =   2775
         Begin VB.OptionButton Optdetallado 
            Caption         =   "Detallado"
            Height          =   255
            Left            =   1560
            TabIndex        =   10
            Top             =   320
            Width           =   1095
         End
         Begin VB.OptionButton Optresumido 
            Caption         =   "Resumido"
            Height          =   255
            Left            =   240
            TabIndex        =   9
            Top             =   320
            Value           =   -1  'True
            Width           =   1935
         End
      End
      Begin VB.Frame Frame3 
         Caption         =   "Rango de Fechas"
         Height          =   1455
         Left            =   240
         TabIndex        =   1
         Top             =   480
         Width           =   2775
         Begin MSComCtl2.DTPicker DTPHasta 
            Height          =   310
            Left            =   960
            TabIndex        =   3
            Top             =   840
            Width           =   1455
            _ExtentX        =   2566
            _ExtentY        =   556
            _Version        =   393216
            Format          =   62259201
            CurrentDate     =   37523
         End
         Begin MSComCtl2.DTPicker DTPDesde 
            Height          =   310
            Left            =   960
            TabIndex        =   2
            Top             =   360
            Width           =   1455
            _ExtentX        =   2566
            _ExtentY        =   556
            _Version        =   393216
            Format          =   62259201
            CurrentDate     =   37523
         End
         Begin VB.Label Label2 
            Caption         =   "Desde"
            Height          =   255
            Left            =   240
            TabIndex        =   19
            Top             =   360
            Width           =   1215
         End
         Begin VB.Label Label3 
            Caption         =   "Hasta"
            Height          =   375
            Left            =   240
            TabIndex        =   18
            Top             =   840
            Width           =   1215
         End
      End
      Begin VB.Frame Frame2 
         Height          =   2775
         Left            =   240
         TabIndex        =   11
         Top             =   2880
         Width           =   6375
         Begin pry_list.ctrl_listarray ListRCriterio 
            Height          =   2055
            Left            =   360
            TabIndex        =   13
            Top             =   600
            Width           =   5775
            _ExtentX        =   10186
            _ExtentY        =   3625
         End
         Begin VB.ComboBox CmbAgrupadopor 
            Height          =   315
            ItemData        =   "1010000.frx":064C
            Left            =   1560
            List            =   "1010000.frx":0656
            Style           =   2  'Dropdown List
            TabIndex        =   12
            Top             =   240
            Width           =   2655
         End
         Begin VB.Label Label1 
            Caption         =   "Agrupar por"
            Height          =   375
            Left            =   360
            TabIndex        =   17
            Top             =   240
            Width           =   1215
         End
      End
   End
End
Attribute VB_Name = "FKardexGeneral"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'Se tiene que crear el procedimiento "salir_formulario"
'Variables para el Control de la Barra General
 Public pb_editar As Boolean
 Public pb_agregar As Boolean
 Public pb_primerregistro As Boolean
 Public pb_ultimoregistro As Boolean
 Public pbderecho_agregar As Boolean
 Public pbderecho_consultar As Boolean
 Public pbderecho_editar As Boolean
 Public pbderecho_borrar As Boolean
 Public pbderecho_imprimir As Boolean
 Public pb_tiposcreen As String

'*******************************************************************************************************************

Private MobjAlmacen As DB_INV_MANTENIMIENTOS.C_ALMACEN
Private MobjCategoria As DB_INV_MANTENIMIENTOS.C_CATEGORIA
Private MobjSubCategoria As DB_INV_MANTENIMIENTOS.C_SUBCATEGORIA
Private MobjArticulo As DB_INV_ARTICULO.C_ARTICULO
Private MobjMoneda  As DB_MA_MANTENIMIENTOS.C_MONEDA
Private MrsListadoMoneda As adodb.Recordset
Private Sub DestruirObjetos()
   Set MobjAlmacen = Nothing
   Set MobjCategoria = Nothing
   Set MobjSubCategoria = Nothing
   Set MobjArticulo = Nothing
   Set MobjMoneda = Nothing
   Set MrsListadoMoneda = Nothing
End Sub
Sub actualizar_registro()
   'Se invoca al Evento Click para recargar las Listas
    'CmbAgrupadopor_Click
   'Se Recarga la Listas de Almacenes
    'ListRAlmacenes.llena_lista Nothing, MobjAlmacen.ListarAlmacenesPorStatus(1)
    'ListRAlmacenes.Size (24)
 
End Sub
Sub salir_formulario()
 gformmdi.Toolbar1.Buttons(18).Caption = "Salir"
 Unload Me
End Sub
Private Sub CmbAgrupadopor_Click()
   If CmbAgrupadopor.ListIndex = 0 Then
      ListRCriterio.llena_lista MobjCategoria.ListarCategorias
   Else
      If CmbAgrupadopor.ListIndex = 1 Then
        ListRCriterio.llena_lista MobjSubCategoria.ListarSubCategorias
      Else
        ListRCriterio.llena_lista MobjArticulo.ListarArticulosayuda
      End If
   End If
End Sub

Private Sub cmdAceptar_Click()
  Dim LstrCadenaCategorias  As String
  Dim LstrCadenaSubCategorias As String
  Dim LstrCadenaAlmacenes As String
  Dim LsrtCadenaArticulos As String
    
  On Error GoTo ErrorHandler
    
  Screen.MousePointer = vbHourglass
    
  If ListRAlmacenes.nseleccionados = 0 Then
     MsgBox "Debe seleccionar un Almacen", vbDefaultButton1 + vbExclamation, "Mensaje"
     Screen.MousePointer = 0
     Exit Sub
  End If
    
  LstrCadenaAlmacenes = ListRAlmacenes.listar_codigos
   
  If Len(LstrCadenaAlmacenes) >= 255 Then
     MsgBox "Seleccione Menos Items o Todos", vbDefaultButton1 + vbExclamation, "Demasiados Items Seleccionados"
     Screen.MousePointer = 0
     StaKardexGeneral.Tab = 1
     ListRAlmacenes.SetFocus
     Exit Sub
  End If
  If Len(ListRCriterio.listar_codigos) >= 255 Then
     MsgBox "Seleccione Menos Items o Todos", vbDefaultButton1 + vbExclamation, "Demasiados Items Seleccionados"
     Screen.MousePointer = 0
     ListRCriterio.SetFocus
     Exit Sub
  End If
  
  'Moneda Solicitada
  CRkGeneral.StoredProcParam(0) = DtcMoneda.BoundText
  'Dia de la Fecha Desde
  CRkGeneral.StoredProcParam(1) = Trim(Format(Day(DTPDesde.Value), "00"))
  'Mes de la Fecha Desde
  CRkGeneral.StoredProcParam(2) = Trim(Format(Month(DTPDesde.Value), "00"))
  'Año de la Fecha Desde
  CRkGeneral.StoredProcParam(3) = Trim(Trim(Str(Year(DTPDesde.Value))))
  'Dia de la Fecha Inicial
  CRkGeneral.StoredProcParam(4) = "01"
  'Mes de la Fecha Inicial
  CRkGeneral.StoredProcParam(5) = Trim(Format(Month(DTPDesde.Value), "00"))
  'Año de la Fecha Inicial
  CRkGeneral.StoredProcParam(6) = Trim(Str(Year(DTPDesde.Value)))
  'Mes a tomar en el KDXHIST
  CRkGeneral.StoredProcParam(7) = Trim(Format(Month(DTPDesde.Value) - 1, "00"))
  'Dia de la Fecha Hasta
  CRkGeneral.StoredProcParam(8) = Trim(Format(Day(DTPHasta.Value), "00"))
  'Mes de la Fecha Hasta
  CRkGeneral.StoredProcParam(9) = Trim(Format(Month(DTPHasta.Value), "00"))
  'Año de la Fecha Hasta
  CRkGeneral.StoredProcParam(10) = Trim(Str(Year(DTPHasta.Value)))
  'Cadena de Almacenes
  CRkGeneral.StoredProcParam(11) = Trim(LstrCadenaAlmacenes)
  'Según la Cadena de Almacenes
  CRkGeneral.StoredProcParam(13) = 0
  If ListRCriterio.nseleccionados = 0 Then
     CRkGeneral.StoredProcParam(12) = "''"
     CRkGeneral.StoredProcParam(14) = 1
  Else
     LstrCadenaCategorias = ListRCriterio.listar_codigos
     CRkGeneral.StoredProcParam(12) = Trim(LstrCadenaCategorias)
     CRkGeneral.StoredProcParam(14) = 0
  End If
  
  'El criterio seleccionado es por Categoría
  If CmbAgrupadopor.ListIndex = 0 Then
       
     If OptValorizado.Value = True Then
         'Valorizado
          If Optresumido.Value = True Then
             'Si es Resumido
              CRkGeneral.ReportFileName = GstrReportesInv + "rpt_KG_Val_CategoriaResumido.rpt"
              CRkGeneral.WindowTitle = "Kardex General Valorizado Resumido por Categoría "
          Else
             'Ruta del Reporte
              CRkGeneral.ReportFileName = GstrReportesInv + "rpt_KG_Val_Categoria.rpt"
              CRkGeneral.WindowTitle = "Kardex General Valorizado Detallado por Categoría "
          End If
      Else
         'No es Valorizado -------
          If Optresumido.Value = True Then
            'Si es Resumido
             CRkGeneral.ReportFileName = GstrReportesInv + "rpt_KG_NoVal_CategoriaResumido.rpt"
             CRkGeneral.WindowTitle = "Kardex General No Valorizado Resumido por Categoría "
          Else
            'Ruta del Reporte
             CRkGeneral.ReportFileName = GstrReportesInv + "rpt_KG_NoVal_Categoria.rpt"
             CRkGeneral.WindowTitle = "Kardex General No Valorizado Detallado por Categoría "
          End If
      End If
  Else
     If CmbAgrupadopor.ListIndex = 1 Then
        'El Criterio seleccionado es por SubCategoria
        If OptValorizado.Value = True Then
           If Optresumido.Value = True Then
             'Si es Resumido
             CRkGeneral.ReportFileName = GstrReportesInv + "rpt_KG_Val_SubCategoriaResumido.rpt"
             CRkGeneral.WindowTitle = "Kardex General Valorizado Resumido por SubCategoría "
           Else
             CRkGeneral.ReportFileName = GstrReportesInv + "rpt_KG_Val_SubCategoria.rpt"
             CRkGeneral.WindowTitle = "Kardex General Valorizado Detallado por SubCategoría "
           End If
        Else
           ' No es Valorizado
           If Optresumido.Value = True Then
             CRkGeneral.ReportFileName = GstrReportesInv + "rpt_KG_NoVal_SubCategoriaResumido.rpt"
             CRkGeneral.WindowTitle = "Kardex General No Valorizado Resumido por SubCategoría "
           Else
             CRkGeneral.ReportFileName = GstrReportesInv + "rpt_KG_NoVal_SubCategoria.rpt"
             CRkGeneral.WindowTitle = "Kardex General No Valorizado Detallado por SubCategoría "
           End If
        End If
     Else
        'El Criterio seleccionado es por Articulo
        
     End If
  End If
  
  CRkGeneral.Formulas(0) = "formusuario='" + GCUSERID + "'"
  CRkGeneral.Formulas(1) = "formdesde='" + Format(DTPDesde.Value, "dd/mm/yyyy") + "'"
  CRkGeneral.Formulas(2) = "formhasta='" + Format(DTPHasta.Value, "dd/mm/yyyy") + "'"
  CRkGeneral.Formulas(3) = "formscreen='10.100.00'"
  CRkGeneral.Formulas(4) = "formmoneda='" + DtcMoneda.Text + "'"
  CRkGeneral.Formulas(5) = "formdecstock=" + Str(GintDecStock)
  CRkGeneral.Formulas(6) = "formdeccosto=" + Str(GintDecCosto)
  CRkGeneral.WindowState = crptMaximized
  CRkGeneral.WindowShowPrintSetupBtn = True
  CRkGeneral.WindowShowExportBtn = True
  CRkGeneral.Action = 1
  Screen.MousePointer = 0
Exit Sub
ErrorHandler:
   Screen.MousePointer = 0
   MsgBox Err.Description, vbDefaultButton1 + vbCritical, "Error al Generar Reporte"
   
   
End Sub

Private Sub cmdSalir_Click()
  Unload Me
End Sub

Private Sub Form_Activate()
 '********************************************************************************
 'Código que se Tiene que Copiar para Invocar a la Rutina de Seguridad para poder
    Call gactualizaopcion(pbderecho_agregar, pbderecho_editar, pbderecho_borrar, pbderecho_imprimir)
    Call gactualiza_barra(Me) 'pb_editar, pb_primerregistro, pb_ultimoregistro)
    If pbderecho_consultar = False Then
       Unload Me
    End If
 '********************************************************************************
End Sub

Private Sub Form_Load()
'********************************************************************************
'Código que se Tiene que Copiar para Invocar a la Rutina de Seguridad para poder
 Call gseguridad(Me)
 If pbderecho_consultar Then
 Else
    MsgBox ("No tiene Derechos de Consultar en este formulario"), vbCritical + vbDefaultButton1, "Mensaje"
 End If
'********************************************************************************

  Set MobjAlmacen = New DB_INV_MANTENIMIENTOS.C_ALMACEN
  Set MobjCategoria = New DB_INV_MANTENIMIENTOS.C_CATEGORIA
  Set MobjSubCategoria = New DB_INV_MANTENIMIENTOS.C_SUBCATEGORIA
  Set MobjArticulo = New DB_INV_ARTICULO.C_ARTICULO
  Set MobjMoneda = New DB_MA_MANTENIMIENTOS.C_MONEDA
        
  Me.Left = (MDIFInventarios.Width - Me.Width) / 2
  Me.Top = ((MDIFInventarios.Height - Me.Height) / 2) - MDIFInventarios.Toolbar1.Height
  
  'Ubicar el Combo de en el primer Item
  StaKardexGeneral.Tab = 0
  CmbAgrupadopor.ListIndex = 0
  DTPHasta.Value = Now
  
  'LLenar la lista con Almacenes
  
  ListRAlmacenes.llena_lista Nothing, MobjAlmacen.ListarAlmacenesPorStatus(1)
  ListRAlmacenes.Size (24)
  
  'Cargar el Combo de la Moneda
  
  Set MrsListadoMoneda = MobjMoneda.ListarMonedas
    
  Set DtcMoneda.DataSource = MrsListadoMoneda
  DtcMoneda.DataField = "descr"
  Set DtcMoneda.RowSource = MrsListadoMoneda
  DtcMoneda.ListField = "descr"
  DtcMoneda.BoundColumn = "curyid"
  If Not MrsListadoMoneda.EOF Then
    DtcMoneda.BoundText = MrsListadoMoneda.Fields("curyid")
  End If
  
  
End Sub

Private Sub Form_Unload(Cancel As Integer)
  DestruirObjetos
End Sub
