VERSION 5.00
Object = "{90F3D7B3-92E7-44BA-B444-6A8E2A3BC375}#1.0#0"; "actskin4.ocx"
Begin VB.Form FrmPlaca 
   Caption         =   "Placa"
   ClientHeight    =   1620
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   6915
   LinkTopic       =   "Form1"
   ScaleHeight     =   1620
   ScaleWidth      =   6915
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdaceptar 
      Caption         =   "ACEPTAR"
      Height          =   1095
      Left            =   3480
      MaskColor       =   &H00FFC0C0&
      TabIndex        =   2
      Top             =   240
      Width           =   2535
   End
   Begin VB.TextBox txtplacabol 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   360
      MaxLength       =   25
      TabIndex        =   0
      Top             =   840
      Width           =   3015
   End
   Begin ACTIVESKINLibCtl.SkinLabel SkinLabel6 
      Height          =   375
      Left            =   720
      OleObjectBlob   =   "FrmPlaca.frx":0000
      TabIndex        =   1
      Top             =   240
      Width           =   2175
   End
End
Attribute VB_Name = "FrmPlaca"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAceptar_Click()
If (txtplacabol.Text = "") Then
MsgBox "Ingrese NroPlaca!", vbDefaultButton1 + vbExclamation, "Advertencia"
txtplacabol.SetFocus
 txtplacabol.BackColor = vbCyan
 Exit Sub
Else
FVentaCombustible.NroPlacaBol = txtplacabol.Text
Unload Me

  
  
End If

End Sub




Private Sub cmdaceptar_KeyPress(KeyAscii As Integer)
'If (KeyAscii >= 65) And (KeyAscii <= 90) Or (KeyAscii >= 97) And (KeyAscii <= 122) Or (KeyAscii >= 48) And (KeyAscii <= 57) Or (KeyAscii = 8) Then


'Else

  ' MsgBox "Nada de simbolos"
  ' KeyAscii = 8

    
'End If
End Sub

Private Sub txtplacabol_GotFocus()
  txtplacabol.BackColor = vbCyan
End Sub

