Attribute VB_Name = "Variables"
'--Variables Públicas--

'Archivos
Public Const kARCHIVO_CFG = "MOY.cfg"

'DSN
Public psUserName As String
Public psPassWord As String
Public psDataBase As String
Public psDataServer As String
Public psArchivoCfg As String
Public psConnectString As String

'Clases
Public oDBAdmin As New clsDBAdmin
Public oListAdmin As New clsListAdmin

'BD
Public ADOCnn As ADODB.Connection 'Variable de Conexión
Public ADOCnnSQL As ADODB.Connection 'Variable de Conexión
Public ADOCnn2 As ADODB.Connection 'Variable de Conexión
Public ADOCnn3 As ADODB.Connection 'Variable de Conexión
Public psRutaMDB As String 'Almacena la ruta de la base de datos (mdb)

Public KRUTAMDB As String
Public sCajacodiNew As String
'Perfil
Public piPerfil_Codigo As String 'Código Perfil

'Usuario
Public psUsuario_Descripcion  As String 'Descripción (Nombre) de Usuario
Public psUsuario_Password As String 'Password de usuario

'Ordenar ListView
Public Type POINT
  x As Long
  Y As Long
End Type

Public Type LV_FINDINFO
  flags As Long
  psz As String
  lParam As Long
  pt As POINT
  vkDirection As Long
End Type

Public Type LV_ITEM
  mask As Long
  iItem As Long
  iSubItem As Long
  state As Long
  stateMask As Long
  pszText As String
  cchTextMax As Long
  iImage As Long
  lParam As Long
  iIndent As Long
End Type

Public objFind As LV_FINDINFO
Public objItem As LV_ITEM
Public gblnOrder As Boolean
Public glngSubItem As Long

'Form
Public psForm As String 'Form q realiza el llamado

'Lista
Public psLista As String 'Lista q realiza el llamado

'--Constantes Públicas--

'BD
Public Const kCONNECT_STRING = "driver={Microsoft Access Driver (*.mdb)};Password=moyosc;DBQ=" 'Cadena de Conexión
Public Const kCONNECT_STRING_SQL = "Provider=SQLOLEDB.1;User ID=$;Password=$;Initial Catalog=$;Data Source=$"
Public Const kCONNECT_STRING_CLIENTE = "driver={Microsoft Access Driver (*.mdb)};Password=;DBQ=" 'Cadena de Conexión
Public Const kARCHIVO_MDB = "OmniPos.mdb" 'Nombre de la base de datos (mdb)
Public Const kARCHIVO_MDBC = "OmniClient.mdb" 'Nombre de la base de datos (mdb)

'cmdEstandar
Public Const kCMD_ACEPTAR = 0 'Indice botón Aceptar
Public Const kCMD_CANCELAR = 1 'Indice botón Cancelar

'cmdEditar
Public Const kCMD_NUEVO = 0 'Indice botón Nuevo
Public Const kCMD_EDITAR = 1 'Indice botón Editar
Public Const kCMD_BORRAR = 2 'Indice botón Borrar
Public Const kCMD_VER = 3 'Indice botón Borrar

'Perfil
Public Const kPERFIL_SUPERVISOR = 1
Public Const kPERFIL_ADMINISTRADOR = 2
Public Const kPERFIL_CAJERO = 3

'Si/No/Todos
Public Const kNO = 0
Public Const kSI = 1
Public Const kTODOS = 2

'Indice de Opciones de Menu
Public Const kMNU_MANTENIMIENTO_PRODUCTO = 1
Public Const kMNU_MANTENIMIENTO_TIPO_CAMBIO = 2
Public Const kMNU_MANTENIMIENTO_CONFIGURACION_TECLADO = 4
Public Const kMNU_MANTENIMIENTO_CABECERA_IMPRESION = 5
Public Const kMNU_MANTENIMIENTO_CONFIGURA_IMPRESORA = 7
Public Const kMNU_MANTENIMIENTO_INICIAR_CAJA = 8
Public Const kMNU_MANTENIMIENTO_TIPO_TARJETA = 9

Public Const kMNU_OPERACIONES_CAMBIO_TURNO = 1
Public Const kMNU_OPERACIONES_CAJA_REGISTRADORA = 3
Public Const kMNU_OPERACIONES_CAJA_REGISTRADORA_FULL = 4

Public Const kMNU_REPORTE_X = 6
Public Const kMNU_REPORTE_X1 = 16
Public Const kMNU_CUADRE_CAJA = 7
Public Const kMNU_REPORTE_Z = 8
Public Const kMNU_REPORTE_OC = 10
Public Const kMNU_REPORTE_NC = 11
Public Const kMNU_REPORTE_PADE = 12
Public Const kMNU_REPORTE_PADV = 13
Public Const kMNU_REPORTE_LIQPAD = 14
Public Const kMNU_OPERACIONES_CONSULTAOP = 15

'Ordenar ListView
Public Const LVFI_PARAM = 1
Public Const LVIF_TEXT = &H1

Public Const LVM_FIRST = &H1000
Public Const LVM_FINDITEM = LVM_FIRST + 13
Public Const LVM_GETITEMTEXT = LVM_FIRST + 45
Public Const LVM_SORTITEMS = LVM_FIRST + 48
     
Public Const gbytLVW_SORT_DEFAULT As Byte = 0
Public Const gbytLVW_SORT_DATE As Byte = 1
Public Const gbytLVW_SORT_VALUE As Byte = 2

'Constantes de apoyo para la rutina ValidKeyPress
Public Const kVKP_ALPHA_ONLY = 0
Public Const kVKP_NUMERIC_ONLY = 1
Public Const kVKP_UPPER_CASE = 2
Public Const kVKP_LOWER_CASE = 3
Public Const kVKP_NUMERIC_INTEGER_ONLY = 4

'Directorios
Public Const kDIR_FOTOS = "Fotos\"
Public Const kDIR_FOTOS_NUEVAS = "Fotos Nuevas\"

'Otros
Public Const kPUNTO = 0
Public Const kTICKET = 1
Public pAction As String
Public SWP As Boolean
Public sFlag As Boolean
Public xTabla As Integer
Public rsTar As Recordset
Public rsPagTar As Recordset
'--
Public esp_b As Integer

'Datos de cada linea de venta
Type tProducto
  Almacen As String
  Codigo As Long
  nombre As String
  PUnit As Double
  Cant As Long
  Dscto As Double
  Canje As String
  Ptos As Long
  Serv As String
End Type
Public nTipoCambio As Double

'vARIABLES PUBLICAS
Public kPAR_IMPRESORA_ALTERNA As String
Public kPAR_IMPRESORA As String
Public kPAR_IMPRESORA_C1 As String
Public kPAR_IMPRESORA_C2 As String

Public kPAR_CAJA As String
Public kPAR_TURNO As String
Public kPAR_ALMACEN As String
Public kPAR_PORCSERV As String
Public KImpresora As Integer
Public KImpresoraALT As Integer
Public KImpresora_C1 As Integer
Public KImpresora_C2 As Integer

'Transaccion
Public Const kTRAN_AFILIACION = 1
Public Const kTRAN_ACUMULA_PUNTOS = 2
Public Const kTRAN_ACUMULA_TICKETS = 3
Public Const kTRAN_CANJEA_PUNTOS = 4
Public Const kTRAN_CANJEA_TICKETS = 5

Public K_CambioTurno As Integer
Public K_Ambiente As Integer

'Formularios
Public Const kFORM_USUARIO_LISTA = "frmUsuarioLista"

'FLAGS
Public bolExisteConexionBDCliente As Boolean
Public bolExistenProblemasConexionBDCliente As Boolean
Public boolSincronizarTodo As Boolean 'Indica si al momento de sicronizar se debe sincronizar todo
Public boolSincronizarCierre As Boolean 'Indica si la sincronizacion se ejecuta en el cierre
Public dtFechaUltimaVerificacionConexionBDCliente As Date

Public idZ1 As String

'Constantes para Tickets
Public kSERIE As String
Public kSERIE_FACTURA As String
Public kSERIE_DISCO_DURO As String
Public kSERIE_DISCO_DURO1 As String
Public kOPERACION As String
Public kOPERACIONF As String
Public NC As String
Public OC As String
Public PADE As String
Public PADV As String
Public LIQ As String

Public kDSCTOFLAG As String

'= "FFFG034342"

'Public Const kPIE_TICKET = _
           "No se realizan devoluciones del pago de " & _
  vbCrLf & "ingreso una vez que haya ingresado al " & _
  vbCrLf & "parque." & _
  vbCrLf & "El pago de ingreso al parque, le da " & _
  vbCrLf & "acceso al ingreso en una ocasion, si " & _
  vbCrLf & "se retira del parque, asi sea el mismo " & _
  vbCrLf & "dia, no podra volver a ingresar." & _
  vbCrLf & "El pago del ingreso al parque, incluye " & _
  vbCrLf & "el cumplimiento de las normativas del " & _
  vbCrLf & "parque, por lo que no estar de acuerdo " & _
  vbCrLf & "con ellas no es motivo para pedir la " & _
  vbCrLf & "devolucion del pago realizado."



Public Const kPIE_TICKET = "...LA GRANJA VILLA ES EL LUGAR!!!"


'Public Const kIGV = 0.19
Public kIGV As Double 'jpcb 220211

'validar el usuario cuando se quiere hacer cambio de codigo de caja
Public valid As Integer

'sw To SQL Server
Public psServidorSQL As String
Public psUserSQL As String
Public psPwdUserSQL As String
Public psBaseDatosSQL As String
Public psCadenaConexionSQLServer As String
Public psIdiomaSQLServer As String
Public psFORMATO_FECHA_SQL_SERVER_INS As String

'sw Modificado para GV NORTE - 06/02/2010
Public psPuertoPrint As String

'Parametros de la detraccion
Public kPORCDETRACC As Double
Public kMONTODETRACC As Double
Public kNROCTABN As String

