Public Sub agregar_registro()
    'Call gagregar_registro(Me, TxtRuc)
    
    cmdNuevo_Click
    
    Me.pb_agregar = True
    Me.pb_editar = True
    'gHabilitarReg Me, Me.pb_editar
    Call gactualiza_barra(Me)
    
    
End Sub

Public Sub modificar_registro()
    'Call gmodificar_registro(Me, txtCodigo)
End Sub


Public Sub descartar_registro()
    'Revertir cambios
    'adodc1.Recordset.CancelUpdate
    
    LimpiaFormulario
    
    'Call gdescartar_registro(Me)
    
    Me.pb_agregar = False
    Me.pb_editar = False
    
    'Call gHabilitarReg(frm, frm.pb_editar)
    
    Call gactualiza_barra(Me)
    Call gactualizaopcion(Me.pbderecho_agregar, Me.pbderecho_editar, Me.pbderecho_borrar, Me.pbderecho_imprimir)
    MsgBox ("Cambios Descartados"), vbInformation + vbDefaultButton1, "Mensaje"
    'Call asigna_campos
End Sub

Sub obtener_datos()
End Sub

Sub asigna_campos() ' falta decidir si va ha ser public o private
End Sub

Public Sub actualizar_registro()
    'llamar al procedimiento de carga
    Call obtener_datos
    Call asigna_campos
    'MsgBox ("Registros Actualizados")
End Sub


Public Function valida_datos() As Boolean
   valida_datos = True
End Function

Public Sub grabar_registro()

    If valida_datos() = True Then
        ' llamada al proc de grabacion
        If pb_agregar Then
             If cmd_efectivo.Enabled = True Then
                 Screen.MousePointer = 11
                 cmd_efectivo_Click
                 Screen.MousePointer = 0
             Else
                 Screen.MousePointer = 0
                 Exit Sub
             End If
         Else
             Screen.MousePointer = 0
             Exit Sub
         End If
                           
        Me.pb_agregar = False
        Me.pb_editar = False
        Call gactualiza_barra(Me)
        'Call gHabilitarReg(frm, frm.pb_editar)
        Call gactualizaopcion(Me.pbderecho_agregar, Me.pbderecho_editar, Me.pbderecho_borrar, Me.pbderecho_imprimir)
        'LimpiaFormulario
        actualizar_registro
    End If
    
End Sub

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