VERSION 5.00
Begin VB.Form FObservacion 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Observaciones"
   ClientHeight    =   3285
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5370
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3285
   ScaleWidth      =   5370
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdSalir 
      Caption         =   "&Cancelar"
      Height          =   675
      Left            =   2730
      Picture         =   "FObservacion.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   2490
      Width           =   1365
   End
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000004&
      ForeColor       =   &H80000008&
      Height          =   2145
      Left            =   150
      TabIndex        =   3
      Top             =   210
      Width           =   5055
      Begin VB.TextBox txtObs 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1395
         Left            =   330
         MaxLength       =   300
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   0
         Top             =   510
         Width           =   4425
      End
      Begin VB.Label Label1 
         Caption         =   "(Un máximo de 254 caracteres)"
         Height          =   285
         Left            =   810
         TabIndex        =   4
         Top             =   210
         Width           =   2565
      End
      Begin VB.Image Image1 
         Height          =   480
         Left            =   150
         Picture         =   "FObservacion.frx":030A
         Top             =   0
         Width           =   480
      End
   End
   Begin VB.CommandButton cmdAceptar 
      Caption         =   "&Grabar"
      Height          =   675
      Left            =   1350
      Picture         =   "FObservacion.frx":074C
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   2490
      Width           =   1365
   End
End
Attribute VB_Name = "FObservacion"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public strObs As String
Public blnINOUT As Boolean

Private Sub cmdAceptar_Click()
If blnINOUT = True Then
    FIngresos.strObservacion1 = Mid(IIf(IsNull(Trim(txtObs.Text)), Empty, Trim(txtObs.Text)), 1, 100)
    FIngresos.strObservacion2 = Mid(IIf(IsNull(Trim(txtObs.Text)), Empty, Trim(txtObs.Text)), 101, 100)
    FIngresos.strObservacion3 = Mid(IIf(IsNull(Trim(txtObs.Text)), Empty, Trim(txtObs.Text)), 201, 100)
    Unload Me
Else
    FSalidas.strObservacion1 = Mid(IIf(IsNull(Trim(txtObs.Text)), Empty, Trim(txtObs.Text)), 1, 100)
    FSalidas.strObservacion2 = Mid(IIf(IsNull(Trim(txtObs.Text)), Empty, Trim(txtObs.Text)), 101, 100)
    FSalidas.strObservacion3 = Mid(IIf(IsNull(Trim(txtObs.Text)), Empty, Trim(txtObs.Text)), 201, 100)
    Unload Me
End If
End Sub

Private Sub cmdsalir_Click()
    Unload Me
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 27 Then
        Unload Me
    End If
End Sub

Private Sub Form_Load()
    KeyPreview = True
    txtObs.Text = IIf(IsNull(strObs), Empty, Trim(strObs))
End Sub
