VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.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 frptdiferencias 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Reporte de Diferencias (10.190.00)"
   ClientHeight    =   5550
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6300
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   5550
   ScaleWidth      =   6300
   Begin TabDlg.SSTab StaReporteDiferencias 
      Height          =   5535
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6255
      _ExtentX        =   11033
      _ExtentY        =   9763
      _Version        =   393216
      Tabs            =   2
      TabHeight       =   520
      TabCaption(0)   =   "Criterios"
      TabPicture(0)   =   "1019000.frx":0000
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "cmdSalir"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "cmdgenerar"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "Frame1"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "CRReporteDif"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "ChkSaldosDiferentes"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).ControlCount=   5
      TabCaption(1)   =   "Almacen"
      TabPicture(1)   =   "1019000.frx":001C
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "ListRAlmacenes"
      Tab(1).ControlCount=   1
      Begin VB.CheckBox ChkSaldosDiferentes 
         Caption         =   "Saldos diferentes de Cero"
         Height          =   375
         Left            =   240
         TabIndex        =   3
         Top             =   4320
         Width           =   2655
      End
      Begin Crystal.CrystalReport CRReporteDif 
         Left            =   2880
         Top             =   4800
         _ExtentX        =   741
         _ExtentY        =   741
         _Version        =   348160
         PrintFileLinesPerPage=   60
      End
      Begin VB.Frame Frame1 
         Height          =   3495
         Left            =   120
         TabIndex        =   7
         Top             =   600
         Width           =   5895
         Begin VB.ComboBox CmbAgrupadopor 
            Height          =   315
            ItemData        =   "1019000.frx":0038
            Left            =   1680
            List            =   "1019000.frx":0042
            Style           =   2  'Dropdown List
            TabIndex        =   1
            Top             =   240
            Width           =   2175
         End
         Begin pry_list.ctrl_listarray ListRCriterio 
            Height          =   2775
            Left            =   120
            TabIndex        =   2
            Top             =   600
            Width           =   5655
            _ExtentX        =   9975
            _ExtentY        =   4895
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "Agrupar Por:"
            Height          =   195
            Left            =   360
            TabIndex        =   8
            Top             =   360
            Width           =   885
         End
      End
      Begin VB.CommandButton cmdgenerar 
         Caption         =   "&Generar"
         Height          =   855
         Left            =   3480
         Picture         =   "1019000.frx":0060
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   4440
         Width           =   1215
      End
      Begin VB.CommandButton cmdSalir 
         Caption         =   "Sa&lir"
         Height          =   855
         Left            =   4680
         Picture         =   "1019000.frx":036A
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   4440
         Width           =   1215
      End
      Begin pry_list.ctrl_listarray ListRAlmacenes 
         Height          =   4455
         Left            =   -74640
         TabIndex        =   6
         Top             =   480
         Width           =   5775
         _ExtentX        =   10186
         _ExtentY        =   7858
      End
   End
End
Attribute VB_Name = "frptdiferencias"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'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 MobjTomadeInventario As dB_INV_TOMADEINVENTARIO.C_inventario

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 MobjTomadeInventario.CAT_SELECCIONADAS
   Else
      ListRCriterio.llena_lista MobjTomadeInventario.SCAT_SELECCIONADAS
   End If
End Sub

Private Sub cmdgenerar_Click()
  Dim LstrCadenaCategorias  As String
  Dim LstrCadenaSubCategorias As String
  
  Screen.MousePointer = vbHourglass
  
  If Len(ListRCriterio.listar_codigos) >= 255 Then
     MsgBox "Seleccione Menos Items o Todos", vbDefaultButton1 + vbExclamation, "Demasiados Items Seleccionados"
     ListRCriterio.SetFocus
     Exit Sub
  End If
  
  If CmbAgrupadopor.ListIndex = 0 Then 'Si es por Categoría
     CRReporteDif.ReportFileName = GstrReportesInv + "rpt_DiferenciasCategResumido.rpt"
     CRReporteDif.StoredProcParam(0) = "CAT"
     If ListRCriterio.nseleccionados = 0 Then
       LstrCadenaCategorias = "''"
       CRReporteDif.StoredProcParam(3) = 1
     Else
       LstrCadenaCategorias = ListRCriterio.listar_codigos
       CRReporteDif.StoredProcParam(3) = 0
     End If
     LstrCadenaSubCategorias = "''"
     CRReporteDif.StoredProcParam(1) = LstrCadenaCategorias
     CRReporteDif.StoredProcParam(2) = LstrCadenaSubCategorias
     CRReporteDif.StoredProcParam(4) = 0
     
  Else
     'Si es por SubCategoría
     CRReporteDif.ReportFileName = GstrReportesInv + "rpt_DiferenciasSubCategResumido.rpt"
     CRReporteDif.StoredProcParam(0) = "SUB"
     If ListRCriterio.nseleccionados = 0 Then
       LstrCadenaSubCategorias = "''"
       CRReporteDif.StoredProcParam(4) = 1
     Else
       LstrCadenaSubCategorias = ListRCriterio.listar_codigos
       CRReporteDif.StoredProcParam(4) = 0
     End If
     LstrCadenaCategorias = "''"
     CRReporteDif.StoredProcParam(1) = LstrCadenaCategorias
     CRReporteDif.StoredProcParam(2) = LstrCadenaSubCategorias
     CRReporteDif.StoredProcParam(3) = 0
  End If
  
  If ChkSaldosDiferentes.Value = 1 Then
     CRReporteDif.StoredProcParam(5) = 1
  Else
     CRReporteDif.StoredProcParam(5) = 0
  End If
  
  'Formatear el Control Crystal Report
   CRReporteDif.WindowTitle = "Reporte de Diferencias"
   CRReporteDif.Formulas(1) = "formusuario=stringvar strusuario; strusuario:='" & GCUSERID & "'"
   CRReporteDif.Formulas(2) = "formscreen=stringvar strscreen; strscreen:='10.190.00'"
   CRReporteDif.Formulas(3) = "formdescstock=" + Str(GintDecStock)
   CRReporteDif.Formulas(4) = "formdescCosto=" + Str(GintDecCosto)
   CRReporteDif.WindowState = crptMaximized
   CRReporteDif.WindowShowPrintSetupBtn = True
   CRReporteDif.Action = 1
   
   Screen.MousePointer = 0
   
End Sub

Private Sub cmdSalir_Click()
  Unload Me
End Sub

Private Sub Form_Activate()
Dim LBOL_ESTADOINVENTARIO As Boolean
LBOL_ESTADOINVENTARIO = MobjAlmacen.estadoinventarioAlmacen()
If Not LBOL_ESTADOINVENTARIO Then
    MsgBox "La toma de Inventario no esta Activada", vbCritical, "No Puede Ingresar a esta Pantalla"
    Unload Me
End If

 
 '********************************************************************************
 '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 MobjTomadeInventario = New dB_INV_TOMADEINVENTARIO.C_inventario
  
  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
  StaReporteDiferencias.Tab = 0
  CmbAgrupadopor.ListIndex = 0
  ListRCriterio.Size (15)
  'Cargar la Lista de Almacenes
  ListRAlmacenes.llena_lista Nothing, MobjAlmacen.ListarAlmacenesPorStatus(1)
  ListRAlmacenes.Size (24)
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set MobjAlmacen = Nothing
  Set MobjTomadeInventario = Nothing
End Sub
