VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "Crystl32.OCX"
Begin VB.Form FProveedoresxArticulo 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Proveedores por Articulo (10.180.00)"
   ClientHeight    =   1125
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4485
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   1125
   ScaleWidth      =   4485
   Begin VB.CommandButton cmdgenerar 
      Caption         =   "&Generar"
      Height          =   855
      Left            =   1020
      Picture         =   "FProveedoresxArticulo.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   150
      Width           =   1095
   End
   Begin VB.CommandButton cmdsalir 
      Caption         =   "Sa&lir"
      Height          =   855
      Left            =   2220
      Picture         =   "FProveedoresxArticulo.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   150
      Width           =   1095
   End
   Begin Crystal.CrystalReport crReporte 
      Left            =   3600
      Top             =   360
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   348160
      PrintFileLinesPerPage=   60
   End
End
Attribute VB_Name = "FProveedoresxArticulo"
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_tiposcreen  As String
 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

Private Sub cmdgenerar_Click()
On Error GoTo TrataError
    
    crReporte.ReportFileName = GstrReportesInv + "rpt_Proveedores_Por_Articulo.rpt"

                
    crReporte.WindowTitle = "Reporte de Proveedores por Articulo"
    crReporte.Formulas(1) = "formUsuario=stringvar strusuario; strusuario:='" & GCUSERID & "'"
    crReporte.Formulas(2) = "formscreen=stringvar strscreen; strscreen:='10.180.00'"
    crReporte.Formulas(3) = "formFecha=stringvar Fecha; Fecha:='" & cadFecha & "'"
    
    crReporte.WindowState = crptMaximized
    crReporte.WindowShowPrintSetupBtn = True
    'crReporte.WindowShowGroupTree = True
    crReporte.Connect = "DSN=SIES"
    crReporte.Action = 1
    crReporte.Reset
    
    Screen.MousePointer = 0
    Exit Sub
TrataError:
    MsgBox Err.Number + " " + Err.Description
    Screen.MousePointer = 0
End Sub

Private Sub cmdSalir_Click()
Unload Me
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
 '********************************************************************************
  Me.Top = 100
  Me.Left = (Screen.Width - Me.Width) / 2
End Sub

Sub salir_formulario()
 gformmdi.Toolbar1.Buttons(18).Caption = "Salir"
 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
