VERSION 5.00
Begin VB.Form FModificarTabla 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Modificar Registro"
   ClientHeight    =   3705
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7110
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3705
   ScaleWidth      =   7110
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdCancelar 
      Caption         =   "&Cancelar"
      Height          =   735
      Left            =   5880
      Picture         =   "FModificarTabla.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   2760
      Width           =   975
   End
   Begin VB.CommandButton cmdAceptar 
      Caption         =   "&Aceptar"
      Height          =   735
      Left            =   4920
      Picture         =   "FModificarTabla.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   2760
      Width           =   975
   End
   Begin VB.CheckBox chkEmision 
      Caption         =   "Emisión"
      Height          =   255
      Left            =   5040
      TabIndex        =   5
      Top             =   2280
      Width           =   1575
   End
   Begin VB.CheckBox chkSite 
      Caption         =   "Por Site"
      Height          =   255
      Left            =   5040
      TabIndex        =   4
      Top             =   2040
      Width           =   1575
   End
   Begin VB.CheckBox chkACentral 
      Caption         =   "De Estación a Central"
      Height          =   255
      Left            =   5040
      TabIndex        =   3
      Top             =   1800
      Width           =   1935
   End
   Begin VB.CheckBox chkAEstacion 
      Caption         =   "De Central a Estación"
      Height          =   255
      Left            =   5040
      TabIndex        =   2
      Top             =   1560
      Width           =   1935
   End
   Begin VB.TextBox txtComentario 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   240
      MaxLength       =   40
      MultiLine       =   -1  'True
      TabIndex        =   6
      Top             =   2760
      Width           =   4455
   End
   Begin VB.TextBox txtCampo 
      Height          =   285
      Left            =   1560
      TabIndex        =   1
      Top             =   2040
      Width           =   2055
   End
   Begin VB.TextBox txtSecuencia 
      Height          =   285
      Left            =   1560
      TabIndex        =   0
      Top             =   1680
      Width           =   1575
   End
   Begin VB.Frame Frame1 
      Caption         =   "Datos generales de Tabla"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1335
      Left            =   120
      TabIndex        =   9
      Top             =   120
      Width           =   6855
      Begin VB.Label lblDescripcion 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BorderStyle     =   1  'Fixed Single
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   4560
         TabIndex        =   17
         Top             =   840
         Width           =   2055
      End
      Begin VB.Label lblCodigo 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BorderStyle     =   1  'Fixed Single
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   960
         TabIndex        =   16
         Top             =   840
         Width           =   1455
      End
      Begin VB.Label Label4 
         Caption         =   "Descripción"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3360
         TabIndex        =   15
         Top             =   840
         Width           =   1095
      End
      Begin VB.Label Label3 
         Caption         =   "Código"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   840
         Width           =   615
      End
      Begin VB.Label lblModulo 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BorderStyle     =   1  'Fixed Single
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   4560
         TabIndex        =   13
         Top             =   360
         Width           =   615
      End
      Begin VB.Label lblPantalla 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BorderStyle     =   1  'Fixed Single
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   960
         TabIndex        =   12
         Top             =   360
         Width           =   2055
      End
      Begin VB.Label Label2 
         Caption         =   "Modulo"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3360
         TabIndex        =   11
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label1 
         Caption         =   "Pantalla"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   360
         Width           =   735
      End
   End
   Begin VB.Label Label6 
      Caption         =   "Comentario"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   20
      Top             =   2520
      Width           =   1095
   End
   Begin VB.Label Label5 
      Caption         =   "Campo"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   480
      TabIndex        =   19
      Top             =   2040
      Width           =   855
   End
   Begin VB.Label lblSecuencia 
      Caption         =   "Secuencia"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   480
      TabIndex        =   18
      Top             =   1680
      Width           =   975
   End
End
Attribute VB_Name = "FModificarTabla"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public MstrPantalla As String
Public MstrModulo As String
Public MstrCodigo As String
Public MstrDes As String
Public MstrSecuencia As String
Public MstrCampo As String
Public MblnAEstacion As Boolean
Public MblnACentral As Boolean
Public MblnSite As Boolean
Public MblnEmision As Boolean
Public MstrComent As String

Private MobjConfigtable As DB_UT_MANTENIMIENTOS.C_PROCESOS

Private Sub cmdAceptar_Click()

On Error GoTo TrataError

    MobjConfigtable.ActualizarTablaTranferencia lblCodigo.Caption, CLng(txtSecuencia.Text), txtCampo.Text, _
                                                chkAEstacion.Value, chkACentral.Value, chkSite.Value, chkEmision.Value, _
                                                GVDATO(txtComentario.Text)

    Me.Hide
    MsgBox "Registro Actualizado", vbInformation, "Mensaje"
    Unload Me
    FConfigurarTablas.Form_Load
Exit Sub

TrataError:
        MsgBox "Error Actualizando"

End Sub

Private Sub cmdCancelar_Click()
Unload Me
End Sub

Private Sub Form_Load()

Set MobjConfigtable = New DB_UT_MANTENIMIENTOS.C_PROCESOS

lblPantalla.Caption = MstrPantalla
lblModulo.Caption = MstrModulo
lblCodigo.Caption = MstrCodigo
lblDescripcion.Caption = MstrDes
txtSecuencia.Text = MstrSecuencia
txtCampo.Text = MstrCampo
chkAEstacion.Value = IIf(MblnAEstacion, 1, 0)
chkACentral.Value = IIf(MblnACentral, 1, 0)
chkSite.Value = IIf(MblnSite, 1, 0)
chkEmision.Value = IIf(MblnEmision, 1, 0)
txtComentario.Text = MstrComent

End Sub

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

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

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

Private Function ValidaNumeros(KeyAscii As Integer) As Integer
    If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 13 Or KeyAscii = 8 Then
        ValidaNumeros = KeyAscii
    Else
        ValidaNumeros = 0
    End If
End Function

Private Sub txtSecuencia_KeyPress(KeyAscii As Integer)
KeyAscii = ValidaNumeros(KeyAscii)
End Sub
