VERSION 5.00
Begin VB.Form Fgrupos 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Maestro Grupos (96.080.00)"
   ClientHeight    =   2595
   ClientLeft      =   555
   ClientTop       =   495
   ClientWidth     =   4545
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   2595
   ScaleWidth      =   4545
   Begin VB.CommandButton CMD_DERECHOS 
      Caption         =   "Derechos"
      Enabled         =   0   'False
      Height          =   735
      Left            =   2520
      Picture         =   "CF9608000.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   6
      ToolTipText     =   "Derechos"
      Top             =   1680
      Width           =   1575
   End
   Begin VB.CommandButton cmd_usuarios 
      Caption         =   "Usuarios"
      Enabled         =   0   'False
      Height          =   735
      Left            =   480
      Picture         =   "CF9608000.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   5
      ToolTipText     =   "Usuarios"
      Top             =   1680
      Width           =   1575
   End
   Begin VB.TextBox txt_groupname 
      Height          =   285
      Left            =   1440
      TabIndex        =   2
      Top             =   960
      Width           =   2175
   End
   Begin VB.TextBox txt_groupid 
      Height          =   285
      Left            =   1440
      TabIndex        =   1
      Top             =   480
      Width           =   2175
   End
   Begin VB.CommandButton f1 
      Enabled         =   0   'False
      Height          =   375
      Left            =   3720
      Picture         =   "CF9608000.frx":074C
      Style           =   1  'Graphical
      TabIndex        =   0
      ToolTipText     =   "Buscar"
      Top             =   480
      Width           =   495
   End
   Begin VB.Label Label2 
      Caption         =   "Descripcion:"
      Height          =   255
      Left            =   360
      TabIndex        =   4
      Top             =   960
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "Id Grupo:"
      Height          =   255
      Left            =   360
      TabIndex        =   3
      Top             =   480
      Width           =   975
   End
End
Attribute VB_Name = "Fgrupos"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'plantilla para formularios maestro de inventario
' fecha ultima modificacion 6/9/2000 9:7 am
' modificaciones
' agregar pbderechhos
' eliminar recordset prderechos
' mover llamada de seguridad al inicio del evento load
'cambios en el evento load
'cambios en el evento activate
'cambios en el evento queryunload

Option Explicit
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

Public rs_grupos As ADODB.Recordset
Public MOBJ_CGRUPO As DB_SE_MANTENIMIENTOS.C_GRUPO

Public GrecibeUbicacion As BookmarkEnum
Public GrecibeColumnaID As String

Private Sub CMD_DERECHOS_Click()
fderechosusuariosgrupos.txt_type.Text = "Grupo"
fderechosusuariosgrupos.TXT_ID = txt_groupid.Text
fderechosusuariosgrupos.TXT_NOMBRE = txt_groupname.Text
fderechosusuariosgrupos.Show vbModal
End Sub

Private Sub cmd_usuarios_Click()
fgrupos_usuarios.TXT_ID.Text = txt_groupid.Text
fgrupos_usuarios.TXT_NOMBRE.Text = txt_groupname.Text
fgrupos_usuarios.Top = Me.Top + 2000
fgrupos_usuarios.Left = Me.Left + 2000
fgrupos_usuarios.Show (vbModal)
End Sub

Private Sub f1_Click()
'Lineas que llaman al Formulario de Búsqueda
  
  Dim ArrayBusqueda(1 To 2, 1 To 3) As Variant
  ArrayBusqueda(1, 1) = "groupid"
  ArrayBusqueda(1, 2) = "ID Grupo"
  ArrayBusqueda(1, 3) = 1000
  
  ArrayBusqueda(2, 1) = "groupname"
  ArrayBusqueda(2, 2) = "Nombre Grupo"
  ArrayBusqueda(2, 3) = 4000
    
        
  FBusquedasInv.GObtenerRegistros rs_grupos, ArrayBusqueda, 2, 2
  FBusquedasInv.Show vbModal
  If GrecibeUbicacion <> 0 Then
   rs_grupos.AbsolutePosition = GrecibeUbicacion
    Call asigna_campos
    Call gestadoactualrs(Me, rs_grupos)
    Call gactualiza_barra(Me) 'pb_editar, pb_primerregistro, pb_ultimoregistro)
  End If

End Sub
Private Sub Form_Activate()
Call gactualizaopcion(pbderecho_agregar, pbderecho_editar, pbderecho_borrar, pbderecho_imprimir)
Call gactualiza_barra(Me) ' pb_editar, pb_primerregistro, pb_ultimoregistro)
'lineas nuevas
If pbderecho_consultar = False Then
    Unload Me
End If
End Sub

Public Sub primer_registro()
Call Gprimer_registro(Me, rs_grupos)
Call asigna_campos
End Sub

Public Sub ultimo_registro()
Call Gultimo_registro(Me, rs_grupos)
Call asigna_campos
End Sub

Public Sub registro_anterior()
Call Gregistro_anterior(Me, rs_grupos)
Call asigna_campos
End Sub
Public Sub registro_siguiente()
Call Gregistro_siguiente(Me, rs_grupos)
Call asigna_campos
End Sub
Private Sub Form_Initialize()
Call gHabilitarReg(Me, False)
End Sub

Private Sub Form_Load()
'seguridad
Call gseguridad(Me)
Set rs_grupos = New ADODB.Recordset
rs_grupos.CursorLocation = adUseClient

If pbderecho_consultar Then
    Set MOBJ_CGRUPO = New DB_SE_MANTENIMIENTOS.C_GRUPO
    Dim numreg As Long
    Call obtener_datos
'lineas nuevas
Else
    'Unload Me
    MsgBox ("No tiene Derechos de Consultar en este formulario")
End If

Me.Top = 1000
Me.Left = (Screen.Width - Me.Width) / 2
End Sub
Public Sub borrar_registro()
Dim ls_groupid As String
On Error GoTo errhandler
  ls_groupid = txt_groupid.Text
  MOBJ_CGRUPO.EliminarGrupo ls_groupid

  'rs_grupos.Requery
  Call obtener_datos
  Call gborrar_Registro(Me, rs_grupos, txt_groupid)
Exit Sub
errhandler:
    MsgBox MensajedeError(Err.Number, Err.Description), vbDefaultButton1 + vbCritical, "Advertencia"

End Sub
Function valida_datos()
txt_groupid.Text = GVDATO(txt_groupid.Text)
txt_groupname.Text = GVDATO(txt_groupname.Text)
If Len(txt_groupid) = 0 Then
    valida_datos = False
    MsgBox "Debe Ingresar ID Grupos ", vbInformation, "Error"
    txt_groupid.SetFocus
    Exit Function
End If
If Len(txt_groupname) = 0 Then
    valida_datos = False
    MsgBox "Debe Ingresar Nombre Grupo ", vbInformation, "Error"
    txt_groupname.SetFocus
    Exit Function
End If
valida_datos = True
End Function
Public Sub grabar_registro()
Dim ls_groupid As String
Dim ls_groupname As String

On Error GoTo errhandler

If valida_datos() = True Then
    ls_groupid = txt_groupid.Text
    ls_groupname = txt_groupname.Text
    Set MOBJ_CGRUPO = New DB_SE_MANTENIMIENTOS.C_GRUPO
    If pb_agregar Then
        If MOBJ_CGRUPO.existeGRUPO(ls_groupid) Then
            MsgBox "Grupo ya existe", vbExclamation, "Error"
            Exit Sub
        Else
            MOBJ_CGRUPO.AgregarGrupo ls_groupid, ls_groupname
        End If
    Else
        MOBJ_CGRUPO.ActualizarGrupo ls_groupid, ls_groupname
    End If
    'rs_grupos.Requery
    Call obtener_datos
    ' llamada al proc de grabacion
    Call ggrabar_registro(Me)
    Call actualizar_registro
End If

Exit Sub
errhandler:
    MsgBox MensajedeError(Err.Number, Err.Description), vbDefaultButton1 + vbCritical, "Advertencia"

End Sub
Public Sub actualizar_registro()
'llamar al procedimiento de carga
Call obtener_datos
'MsgBox ("Registros Actualizados")
End Sub
Public Sub agregar_registro()
Call gagregar_registro(Me, txt_groupid)
End Sub
Public Sub modificar_registro()
Call gmodificar_registro(Me, txt_groupid)
End Sub
Public Sub descartar_registro()
    ' Revertir cambios
    'adodc1.Recordset.CancelUpdate
    Call gdescartar_registro(Me)
    Call asigna_campos
End Sub
Sub obtener_datos()
Set rs_grupos = MOBJ_CGRUPO.ListarGrupos
rs_grupos.MoveFirst
Call asigna_campos
pb_primerregistro = True
pb_ultimoregistro = False
End Sub

Sub salir_formulario()
' validar que no haya procesos pendientes
' si no hay problemas
MDIFconfiguracion.Toolbar1.Buttons(18).Caption = "Salir"    ' boton salir
Unload Me
End Sub

Sub asigna_campos() ' falta decidir si va ha ser public o private
    txt_groupid.Text = rs_grupos!groupid
    txt_groupname.Text = rs_grupos!groupname
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If pb_editar Then
    If MsgBox("Desea Cancelar los Cambios", vbYesNo, "Esta Modificando un registro") = vbNo Then
        Cancel = True
    Else
        Call gdesactiva_barra
    End If
Else
    Call gdesactiva_barra
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set rs_grupos = Nothing
Set MOBJ_CGRUPO = Nothing
End Sub

Private Sub txt_groupid_KeyPress(KeyAscii As Integer)
    KeyAscii = GBloqueaCaracter(KeyAscii)
    If KeyAscii = 13 Then
        txt_groupname.SetFocus
    End If
End Sub

Private Sub txt_groupname_KeyPress(KeyAscii As Integer)
   KeyAscii = GBloqueaCaracter(KeyAscii)
End Sub

Public Sub imprimir()

End Sub
