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}#50.0#0"; "pry_list.ocx"
Begin VB.Form frpt_resumen_is 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Reporte Resumen  Ingreso/Salidas inventario (IN 10.130.00)"
   ClientHeight    =   6180
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9150
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   6180
   ScaleWidth      =   9150
   Begin TabDlg.SSTab SSTab1 
      Height          =   6135
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9135
      _ExtentX        =   16113
      _ExtentY        =   10821
      _Version        =   393216
      Tabs            =   2
      TabHeight       =   520
      TabCaption(0)   =   "Criterios"
      TabPicture(0)   =   "1013000.frx":0000
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "lblMoneda"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "dtc_moneda"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "Frame2"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "Frame1"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "cmdAceptar"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).Control(5)=   "cmdSalir"
      Tab(0).Control(5).Enabled=   0   'False
      Tab(0).Control(6)=   "Frame3"
      Tab(0).Control(6).Enabled=   0   'False
      Tab(0).Control(7)=   "Frame4"
      Tab(0).Control(7).Enabled=   0   'False
      Tab(0).Control(8)=   "rp"
      Tab(0).Control(8).Enabled=   0   'False
      Tab(0).ControlCount=   9
      TabCaption(1)   =   "Almacen"
      TabPicture(1)   =   "1013000.frx":001C
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "ctrl_sites"
      Tab(1).ControlCount=   1
      Begin Crystal.CrystalReport rp 
         Left            =   6720
         Top             =   4080
         _ExtentX        =   741
         _ExtentY        =   741
         _Version        =   348160
         PrintFileLinesPerPage=   60
      End
      Begin pry_list.ctrl_listarray ctrl_sites 
         Height          =   4935
         Left            =   -74880
         TabIndex        =   21
         Top             =   480
         Width           =   6855
         _ExtentX        =   12091
         _ExtentY        =   8705
      End
      Begin VB.Frame Frame4 
         Height          =   2655
         Left            =   120
         TabIndex        =   18
         Top             =   480
         Width           =   6015
         Begin pry_list.ctrl_listarray ctrl_listmov 
            Height          =   1935
            Left            =   120
            TabIndex        =   19
            Top             =   600
            Width           =   5775
            _ExtentX        =   10186
            _ExtentY        =   3413
         End
         Begin VB.ComboBox cmb_tiposmov 
            Height          =   315
            ItemData        =   "1013000.frx":0038
            Left            =   1680
            List            =   "1013000.frx":0045
            Style           =   2  'Dropdown List
            TabIndex        =   6
            Top             =   240
            Width           =   2175
         End
         Begin VB.Label Label5 
            AutoSize        =   -1  'True
            Caption         =   "Tipo Movimiento:"
            Height          =   195
            Left            =   360
            TabIndex        =   10
            Top             =   300
            Width           =   1215
         End
      End
      Begin VB.Frame Frame3 
         Caption         =   "Rango Fechas"
         Height          =   1455
         Left            =   6240
         TabIndex        =   13
         Top             =   2520
         Width           =   2535
         Begin MSComCtl2.DTPicker dt_fechainicio 
            Height          =   375
            Left            =   1080
            TabIndex        =   14
            Top             =   240
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   661
            _Version        =   393216
            CustomFormat    =   "dd/MM/yyyy"
            Format          =   20905987
            CurrentDate     =   37531
         End
         Begin MSComCtl2.DTPicker dt_fechafinal 
            Height          =   375
            Left            =   1080
            TabIndex        =   15
            Top             =   840
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   661
            _Version        =   393216
            CustomFormat    =   "dd/MM/yyyy"
            Format          =   20905987
            CurrentDate     =   37531
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            Caption         =   "Fecha Inicial:"
            Height          =   195
            Left            =   120
            TabIndex        =   17
            Top             =   330
            Width           =   945
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            Caption         =   "Fecha Final:"
            Height          =   195
            Left            =   120
            TabIndex        =   16
            Top             =   930
            Width           =   870
         End
      End
      Begin VB.CommandButton cmdSalir 
         Caption         =   "Sa&lir"
         Height          =   735
         Left            =   7680
         Picture         =   "1013000.frx":0063
         Style           =   1  'Graphical
         TabIndex        =   9
         Top             =   5040
         Width           =   1215
      End
      Begin VB.CommandButton cmdAceptar 
         Caption         =   "&Generar"
         Height          =   735
         Left            =   6240
         Picture         =   "1013000.frx":036D
         Style           =   1  'Graphical
         TabIndex        =   8
         Top             =   5040
         Width           =   1215
      End
      Begin VB.Frame Frame1 
         Height          =   2655
         Left            =   120
         TabIndex        =   4
         Top             =   3240
         Width           =   6015
         Begin pry_list.ctrl_listarray ctrl_lista 
            Height          =   1935
            Left            =   120
            TabIndex        =   20
            Top             =   600
            Width           =   5775
            _ExtentX        =   10186
            _ExtentY        =   3413
         End
         Begin VB.ComboBox cmbcriterio 
            Height          =   315
            ItemData        =   "1013000.frx":0677
            Left            =   1680
            List            =   "1013000.frx":068D
            Style           =   2  'Dropdown List
            TabIndex        =   5
            Top             =   240
            Width           =   2175
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "Agrupar Por:"
            Height          =   195
            Left            =   360
            TabIndex        =   7
            Top             =   300
            Width           =   885
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "Formato"
         Height          =   975
         Left            =   6240
         TabIndex        =   1
         Top             =   1440
         Width           =   2535
         Begin VB.OptionButton opt_resumido 
            Caption         =   "Resumido"
            Height          =   255
            Left            =   120
            TabIndex        =   3
            Top             =   240
            Value           =   -1  'True
            Width           =   1095
         End
         Begin VB.OptionButton opt_detallado 
            Caption         =   "Detallado"
            Enabled         =   0   'False
            Height          =   255
            Left            =   120
            TabIndex        =   2
            Top             =   600
            Width           =   975
         End
      End
      Begin MSDataListLib.DataCombo dtc_moneda 
         Height          =   315
         Left            =   6240
         TabIndex        =   11
         Top             =   960
         Width           =   2055
         _ExtentX        =   3625
         _ExtentY        =   556
         _Version        =   393216
         Style           =   2
         Text            =   ""
      End
      Begin VB.Label lblMoneda 
         AutoSize        =   -1  'True
         Caption         =   "Expresado en Moneda:"
         Height          =   195
         Left            =   6240
         TabIndex        =   12
         Top             =   720
         Width           =   1650
      End
   End
End
Attribute VB_Name = "frpt_resumen_is"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'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
'*******************************************************************************************************************
'falta decidir la cantidad de decimales para redondear los precios, calculos y costos
'debe obtenerse de la tabla in_setup
 Dim cnxprueba As ADODB.Connection
 Dim mobj_calmacen As DB_INV_MANTENIMIENTOS.C_ALMACEN
 Dim mobj_ccategoria As DB_INV_MANTENIMIENTOS.C_CATEGORIA
 Dim mobj_csubcategoria As DB_INV_MANTENIMIENTOS.C_SUBCATEGORIA
 Dim mobj_ctipo As DB_INV_MANTENIMIENTOS.C_TIPO
 Dim mobj_cproveedor As DB_INV_MANTENIMIENTOS.C_PROVEEDOR
 Dim mobj_carticulo As DB_INV_ARTICULO.C_ARTICULO
 Dim mobj_cmoneda As DB_MA_MANTENIMIENTOS.C_MONEDA
 Dim mobj_ctipomovimiento As DB_INV_MANTENIMIENTOS.C_TIPOMOVIMIENTO

Private Sub cmb_tiposmov_Click()
Dim ls_opcion As String
ls_opcion = cmb_tiposmov.Text

Set mobj_ctipomovimiento = New DB_INV_MANTENIMIENTOS.C_TIPOMOVIMIENTO
Select Case ls_opcion
    Case "Ingresos"
    ctrl_listmov.llena_lista mobj_ctipomovimiento.ListarPorTipoMovimiento(1)
    Case "Salidas"
        ctrl_listmov.llena_lista mobj_ctipomovimiento.ListarPorTipoMovimiento(0)
    Case "Todos"
        ctrl_listmov.llena_lista mobj_ctipomovimiento.ListarTiposMovimientosAyuda
End Select

End Sub

Private Sub cmbcriterio_Click()
Set mobj_ccategoria = New DB_INV_MANTENIMIENTOS.C_CATEGORIA
Set mobj_csubcategoria = New DB_INV_MANTENIMIENTOS.C_SUBCATEGORIA
Set mobj_ctipo = New DB_INV_MANTENIMIENTOS.C_TIPO
Set mobj_cproveedor = New DB_INV_MANTENIMIENTOS.C_PROVEEDOR
Set mobj_carticulo = New DB_INV_ARTICULO.C_ARTICULO
Dim ls_criterio As String
ls_criterio = cmbcriterio.Text
If ls_criterio = "Documento" Then
    opt_detallado.Enabled = True
Else
    opt_detallado.Enabled = False
    opt_resumido.Value = True
End If

Select Case ls_criterio
    Case "Categoria"
        ctrl_lista.llena_lista mobj_ccategoria.ListarCategoriasayuda
    Case "Sub Categoria"
        ctrl_lista.llena_lista mobj_csubcategoria.ListarSubCategorias
    Case "Articulo x Almacen"
        ctrl_lista.llena_lista mobj_carticulo.ListarArticulosayuda
    Case "Almacen x Articulo"
        ctrl_lista.llena_lista mobj_carticulo.ListarArticulosayuda
    Case "Documento"
        ctrl_lista.llena_lista Nothing
End Select
End Sub

Private Sub cmd_tiposmov_Change()

End Sub

Private Sub cmdaceptar_Click()
Dim ls_criterio As String
Dim ls_condicion As String          ' condicion de agrupamiento
Dim ls_condicion_mov As String      ' condicion de movimientos
Dim li_todos As Byte                ' 1 todos los elementos, 0 algunos
Dim li_todosmov As Byte             ' 1 todos los movimientos
Dim LS_MONEDA As String
Dim ls_dmoneda As String
Dim ls_rutar As String  'ruta de los reportes
Dim ls_tipomov As String
Dim ls_sites As String
Dim ls_tcriterio As String

ls_rutar = GstrReportesInv

ls_dmoneda = dtc_moneda.Text
LS_MONEDA = dtc_moneda.BoundText

'moneda para expresar el resultado
If LS_MONEDA = "" Then
    MsgBox "Debe Seleccionar un tipo de moneda destino ", vbExclamation, "Parametros Incompletos"
    dtc_moneda.SetFocus
    Exit Sub
End If

ls_tipomov = cmb_tiposmov.Text
If ls_tipomov = "" Then
    MsgBox "Debe Seleccionar un tipo de filtro de transacciones ", vbExclamation, "Parametros Incompletos"
    cmb_tiposmov.SetFocus
    Exit Sub
End If

'tipos de transaccion
If ls_tipomov = "Todos" And (ctrl_listmov.ndisponibles = 0 Or ctrl_listmov.nseleccionados = 0) Then
    ls_condicion_mov = "*"
    li_todosmov = 1
Else
    li_todosmov = 0
    If ctrl_listmov.nseleccionados = 0 Then
        MsgBox "Debe elegir algun tipo de transaccion", vbInformation, "Parametros Incompletos"
        Exit Sub
    Else
        ls_condicion_mov = ctrl_listmov.listar_codigos()
    End If
End If

'condicion de agrupamiento menos para documento
ls_criterio = cmbcriterio.Text
If ctrl_lista.ndisponibles = 0 Or ctrl_lista.nseleccionados = 0 Then
    li_todos = 1
    ls_condicion = "*"
Else
    li_todos = 0
    ls_condicion = ctrl_lista.listar_codigos()
    If Len(ls_condicion) >= 255 Then    'se excedio el numero de items que soporta crystal
        MsgBox "Seleccione menos Items o Todos", vbCritical, "Demasiados Items Seleccionados"
        Exit Sub
    End If
End If

'almacenes seleccionados
If ctrl_sites.nseleccionados = 0 Then
    MsgBox "Debe Seleccionar un almacen como minimo", vbExclamation, "Parametros Incompletos"
    Exit Sub
Else
    ls_sites = ctrl_sites.listar_codigos()
End If
Screen.MousePointer = 11
rp.Reset
rp.WindowState = crptMaximized
rp.Destination = crptToWindow
rp.WindowShowPrintSetupBtn = True
rp.WindowShowGroupTree = True
rp.WindowShowCloseBtn = True
rp.WindowShowSearchBtn = True
rp.WindowTitle = "Reporte Resumen de Ingresos y Salidas"

Select Case ls_criterio
     Case "Categoria"
         rp.ReportFileName = ls_rutar + "rpt_ris_categoria.rpt"
         ls_tcriterio = "CAT"
     Case "Sub Categoria"
         rp.ReportFileName = ls_rutar + "rpt_ris_subcategoria.rpt"
         ls_tcriterio = "SCA"
     Case "Almacen x Articulo"
         rp.ReportFileName = ls_rutar + "rpt_ris_sitearticulo.rpt"
         ls_tcriterio = "ART"
    Case "Articulo x Almacen"
         rp.ReportFileName = ls_rutar + "rpt_ris_articulosite.rpt"
         ls_tcriterio = "ARS"
     Case "Documento"
            ls_tcriterio = "PRO"
         If opt_resumido.Value Then
            rp.ReportFileName = ls_rutar + "RPT_ris_documento_resumen.RPT"
        End If
        If opt_detallado.Value Then
            rp.ReportFileName = ls_rutar + "RPT_ris_documento_detalle.RPT"
        End If
    Case "Proveedor"
         rp.ReportFileName = ls_rutar + "rpt_ris_categoria_2.rpt"
         ls_tcriterio = " "
    Case Else
         MsgBox "Debe Seleccionar un Criterio de agrupamiento", vbCritical
         cmbcriterio.SetFocus
         Exit Sub
 End Select
rp.StoredProcParam(0) = LS_MONEDA
rp.StoredProcParam(1) = ls_sites
rp.StoredProcParam(2) = li_todosmov
rp.StoredProcParam(3) = ls_condicion_mov
rp.StoredProcParam(4) = Str(dt_fechainicio.Value)
rp.StoredProcParam(5) = Str(dt_fechafinal.Value)

If ls_criterio <> "Documento" Or (ls_criterio = "Documento" And opt_detallado.Value) Then
    rp.StoredProcParam(6) = ls_tcriterio
    rp.StoredProcParam(7) = li_todos
    rp.StoredProcParam(8) = ls_condicion
End If

rp.Formulas(0) = "form_nreporte='10.130.00'"
rp.Formulas(2) = "form_moneda='" + LS_MONEDA + " " + ls_dmoneda + "'"
rp.Formulas(3) = "form_ndeccosto=" + Str(GintDecCosto)
rp.Formulas(4) = "form_ndecstock=" + Str(GintDecStock)
rp.Formulas(5) = "form_usuario='" + GCUSERID + "'"
rp.Action = 1
Screen.MousePointer = 0
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 mobj_calmacen = New DB_INV_MANTENIMIENTOS.C_ALMACEN
Set mobj_cmoneda = New DB_MA_MANTENIMIENTOS.C_MONEDA

Me.Left = (MDIFInventarios.Width - Me.Width) / 2
Me.Top = ((MDIFInventarios.Height - Me.Height) / 2) - MDIFInventarios.Toolbar1.Height


ctrl_sites.Size (20)
ctrl_sites.llena_lista mobj_calmacen.ListarAlmacenesPorStatus(0), mobj_calmacen.ListarAlmacenesPorStatus(1)

Set dtc_moneda.RowSource = mobj_cmoneda.ListarMonedas
dtc_moneda.ListField = "descr"
dtc_moneda.BoundColumn = "CURYID"
Me.Width = 9270
Me.Height = 6585

End Sub

Sub actualizar_registro()
   
End Sub
Sub salir_formulario()
 gformmdi.Toolbar1.Buttons(18).Caption = "Salir"
 Unload Me
End Sub

