Option Explicit
'BOTON DE COMANDO CANCELAR
Private Sub CMDCANCELAR_Click()
'UNLOAD=CERRAR VENTANA
Unload FRMENTRADA
End Sub
'BOTON DE COMANDO GUARDAR CAMPING SELECCIONADO
Private Sub CMDGUARDAR_Click()
'PARA VERIFICAR EL INGRESO DEL DOCUMENTO DE IDENTIAD
If [Link] = "" Then
MsgBox "INGRESE EL Nro. DEL DOCUMENTO DE IDENTIDAD DEL CLIENTE"
End If
'PARA VERIFICAR SI SE HA INGRESADO LOS APELLIDOS-NOMBRES DEL CLIENTE
If [Link] = "" Then
MsgBox "INGRESE LOS APELLIDOS Y NOMBRES DEL CLIENTE"
End If
'ingresar el estado ocupado en la tabla TCONTROL SEGUN EL CAMPING SELECCIONADO Y LA
NUMERACION DE LA FACTURA
[Link](0, 1).Value = "OCUPADO"
[Link](0, 2).Value = [Link]("K2").Value
'DECLARAR VARIABLES PARA PODER ALMACENAR EN LA MEMORIA Y LUEGO GRABARLO EN
LA TREGISTRO
Dim TICKET As String
Dim IDENTIDAD As String
Dim CLIENTE As String
Dim LUGAR As String
Dim LUGARCORTO As String
Dim HORAENTRADA As Date
Dim CAJERO As String
Dim VALORSEMANA As Double
Dim VALORDIA As Double
'ALMACENAR EN LA MEMORIA
TICKET = [Link]("K2").Value
IDENTIDAD = [Link]
CLIENTE = [Link]
LUGAR = [Link]
LUGARCORTO = Replace(LUGAR, "Lugar", "") 'ejem.: LugarC4 REEMPLAZAR POR Lugar el
ESPACIO EN BLANCO resultado = C4
HORAENTRADA = [Link]("P2").Value
CAJERO = [Link]("U12").Value
'CAPTURAR EL PRECIO DEL CAMPING SEGUN SI ES "C" O "M"
If Left(LUGARCORTO, 1) = "C" Then 'RECUPERAR EL PRIMER CARACTER DE LA IZQUIERDA
VALORSEMANA = [Link]("AC2").Value
VALORDIA = [Link]("AC3").Value
Else
If Left(LUGARCORTO, 1) = "M" Then
VALORSEMANA = [Link]("AC6").Value
VALORDIA = [Link]("AC7").Value
End If
End If
'COPIAR LOS DATOS EN LA TREGISTRO
Dim NUEVACELDATICKETTR As Range
Set NUEVACELDATICKETTR = [Link]("TREGISTRO").[Link](1)
With NUEVACELDATICKETTR
.Value = TICKET
.Offset(0, 1).Value = CLIENTE
.Offset(0, 2).Value = IDENTIDAD
.Offset(0, 3).Value = LUGARCORTO
.Offset(0, 4).Value = HORAENTRADA
.Offset(0, 7).Value = CAJERO
.Offset(0, 8).Value = VALORSEMANA
.Offset(0, 9).Value = VALORDIA
End With
'CAM,BIAR EL COLOR DEL CAMPING CUANDO ES SELECCIONADO Y GUARDADO
[Link](LUGAR).[Link] = RGB(255, 0, 0)
'IMPRIMIR EL TICKET DE ENTRADA SEGUN SELECCION HOJA1 DESDE U1:Y13
With Hoja1
.Range("U6").Value = IDENTIDAD
.Range("W6").Value = HORAENTRADA
.Range("W7").Value = "Nro. Factura : " & TICKET
.Range("U12").Value = CLIENTE
.Range("U10").Value = LUGARCORTO
.Range("V10").Value = VALORSEMANA
.Range("X10").Value = VALORDIA
.Range("W11").Value = CAJERO
End With
'UTILIZANDO UNA IMPRESORA TERMICA DE 8 CM DE ANCHO
With Hoja1
'SELECIONAR RANGO DE IMPRESION
.[Link] = .Range("U1:Y13").Address
'REALIZAR LA CONFIGURACION DE LOS MARGENES
With .PageSetup
.LeftMargin = [Link](0.25) 'IZQUIERDA
.RightMargin = [Link](0.25) 'DERECHA
.TopMargin = [Link](0.45) 'SUPERIOR
.BottomMargin = [Link](0.45) 'INFERIOR
.HeaderMargin = [Link](0.25) 'ENCABEZADO
.FooterMargin = [Link](0.25) 'PIE DE PAGINA
End With
.PrintOut ActivePrinter:=True, IgnorePrintAreas:=False
End With
Unload FRMENTRADA
End Sub