216 lines
7.8 KiB
VB.net
216 lines
7.8 KiB
VB.net
Public Class clsVaribles
|
|
'Clase que contiene variables publicas q son utilizadas en diferentes forms
|
|
Public Shared ReportadoPor As String
|
|
Public Shared Nombre As String
|
|
Public Shared No_Referencia As String
|
|
Public Shared idtransaccion As String
|
|
Public Shared idproducto As String
|
|
Public Shared Id_SubProducto As String
|
|
Public Shared Id_Patron As String
|
|
Public Shared Id_EstatusTransaccion As String
|
|
Public Shared IDCliente As Long
|
|
Public Shared TipoPersona As Integer
|
|
Public Shared lnidTranPreo As Long
|
|
Public Shared lnidFunPreo As Long
|
|
Public Shared gblIdFuncionario As String
|
|
Public Shared lscaptionForm = ""
|
|
Public Shared lbDemo As Boolean = False
|
|
Public Shared lnInusual As Integer = 0
|
|
Public Shared lsValAnt As String = ""
|
|
Public Shared lsClienteNombre As String = ""
|
|
Public Shared lsClienteNombreT As String = ""
|
|
|
|
Public Shared Id_Transaccion As String
|
|
Public Shared Id_Producto As String
|
|
|
|
'Public Shared FldRng1 As Word.Range
|
|
'Public Shared FldRng2 As Word.Range
|
|
'Public Shared FldRng3 As Word.Range
|
|
'Public Shared FldRng4 As Word.Range
|
|
'Public Shared FldRng5 As Word.Range
|
|
'Public Shared FldRng6 As Word.Range
|
|
'Public Shared FldRng7 As Word.Range
|
|
'Public Shared FldRng8 As Word.Range
|
|
'Public Shared FldRng9 As Word.Range
|
|
'Public Shared FldRng10 As Word.Range
|
|
'Public Shared FldRng11 As Word.Range
|
|
|
|
'Public Shared FldRngGen1 As Word.Range
|
|
'Public Shared FldRngGen2 As Word.Range
|
|
'Public Shared FldRngGen3 As Word.Range
|
|
'Public Shared FldRngGen4 As Word.Range
|
|
'Public Shared FldRngGen5 As Word.Range
|
|
'Public Shared FldRngGen6 As Word.Range
|
|
'Public Shared FldRngGen7 As Word.Range
|
|
'Public Shared FldRngGen8 As Word.Range
|
|
'Public Shared FldRngGen9 As Word.Range
|
|
'Public Shared FldRngGen10 As Word.Range
|
|
'Public Shared FldRngGen11 As Word.Range
|
|
|
|
'Public Shared FldRngAct1 As Word.Range
|
|
'Public Shared FldRngAct2 As Word.Range
|
|
'Public Shared FldRngAct3 As Word.Range
|
|
'Public Shared FldRngAct4 As Word.Range
|
|
'Public Shared FldRngAct5 As Word.Range
|
|
'Public Shared FldRngAct6 As Word.Range
|
|
'Public Shared FldRngAct7 As Word.Range
|
|
'Public Shared FldRngAct8 As Word.Range
|
|
|
|
'Public Shared FldRngApo11 As Word.Range
|
|
'Public Shared FldRngApo12 As Word.Range
|
|
'Public Shared FldRngApo13 As Word.Range
|
|
'Public Shared FldRngApo14 As Word.Range
|
|
'Public Shared FldRngApo15 As Word.Range
|
|
'Public Shared FldRngApo16 As Word.Range
|
|
'Public Shared FldRngApo17 As Word.Range
|
|
'Public Shared FldRngApo18 As Word.Range
|
|
'Public Shared FldRngApo19 As Word.Range
|
|
'Public Shared FldRngApo110 As Word.Range
|
|
'Public Shared FldRngApo111 As Word.Range
|
|
'Public Shared FldRngApo112 As Word.Range
|
|
|
|
'Public Shared FldRngApo21 As Word.Range
|
|
'Public Shared FldRngApo22 As Word.Range
|
|
'Public Shared FldRngApo23 As Word.Range
|
|
'Public Shared FldRngApo24 As Word.Range
|
|
'Public Shared FldRngApo25 As Word.Range
|
|
'Public Shared FldRngApo26 As Word.Range
|
|
'Public Shared FldRngApo27 As Word.Range
|
|
'Public Shared FldRngApo28 As Word.Range
|
|
'Public Shared FldRngApo29 As Word.Range
|
|
'Public Shared FldRngApo210 As Word.Range
|
|
'Public Shared FldRngApo211 As Word.Range
|
|
'Public Shared FldRngApo212 As Word.Range
|
|
|
|
'Public Shared FldRngApo31 As Word.Range
|
|
'Public Shared FldRngApo32 As Word.Range
|
|
'Public Shared FldRngApo33 As Word.Range
|
|
'Public Shared FldRngApo34 As Word.Range
|
|
'Public Shared FldRngApo35 As Word.Range
|
|
'Public Shared FldRngApo36 As Word.Range
|
|
'Public Shared FldRngApo37 As Word.Range
|
|
'Public Shared FldRngApo38 As Word.Range
|
|
'Public Shared FldRngApo39 As Word.Range
|
|
'Public Shared FldRngApo310 As Word.Range
|
|
'Public Shared FldRngApo311 As Word.Range
|
|
'Public Shared FldRngApo312 As Word.Range
|
|
|
|
'Public Shared FldRngApo41 As Word.Range
|
|
'Public Shared FldRngApo42 As Word.Range
|
|
'Public Shared FldRngApo43 As Word.Range
|
|
'Public Shared FldRngApo44 As Word.Range
|
|
'Public Shared FldRngApo45 As Word.Range
|
|
'Public Shared FldRngApo46 As Word.Range
|
|
'Public Shared FldRngApo47 As Word.Range
|
|
'Public Shared FldRngApo48 As Word.Range
|
|
'Public Shared FldRngApo49 As Word.Range
|
|
'Public Shared FldRngApo410 As Word.Range
|
|
'Public Shared FldRngApo411 As Word.Range
|
|
'Public Shared FldRngApo412 As Word.Range
|
|
|
|
Public Shared Finicio As Date
|
|
Public Shared Ffin As Date
|
|
Public Shared varTransaccion As Long
|
|
Public Shared varFecha As String
|
|
Public Shared varUsuario As Long
|
|
Public Shared varProceso As String
|
|
Public Shared varCatalogo As String
|
|
|
|
Public Shared VarInicio As Integer
|
|
Public Shared VarPermiso As String
|
|
Public Shared VarProcesoOK As Boolean
|
|
Public Shared VarPerfil As Integer
|
|
|
|
Public Shared VarSQL As String
|
|
Public Shared VarActualiza As Boolean
|
|
Public Shared FechaComodin As Date
|
|
Public Shared blnActualizaFecha As Boolean
|
|
|
|
Public Shared lngFiltroIDCliente As Long = 0
|
|
Public Shared strSQL As String
|
|
Public Shared lngIDFraccionada As Long
|
|
Public Shared strProdFraccionada As String
|
|
Public Shared lngProdFraccionada As Long
|
|
|
|
Public Shared CampoID As String
|
|
Public Shared Tabla As String
|
|
Public Shared strCon As String
|
|
|
|
Public Shared EsActualizacion As Boolean
|
|
|
|
Public Shared Cnbv_NumeroOficio As String
|
|
Public Shared Cnbv_NumeroExpediente As String
|
|
Public Shared Cnbv_SolicitudSiara As String
|
|
Public Shared Cnbv_Folio As Integer
|
|
Public Shared Cnbv_OficioYear As Integer
|
|
|
|
Public Shared blnBuscaOficion As Boolean
|
|
Public Shared strSTOficio As String = ""
|
|
Public Shared blnActualizaExpediente As Boolean
|
|
Public Shared strRutaOficios As String
|
|
Public Shared strTipoArchivo As String
|
|
'-------------------------------------------
|
|
Public Shared VarIdCliente As Long
|
|
Public Shared VarTpPersona As Integer
|
|
Public Shared VarNivel As Integer
|
|
|
|
Public Shared Tablas As String
|
|
|
|
Public Shared Nacionalidad As String
|
|
|
|
|
|
Public Shared ARR1 As System.Array
|
|
Public Shared ARR2 As System.Array
|
|
Public Shared ARR3 As System.Array
|
|
Public Shared ARR4 As System.Array
|
|
Public Shared ARR5 As System.Array
|
|
|
|
Public Shared strCuenta As String
|
|
Public Shared varPorcent As Double
|
|
Public Shared IntEstatusActual As String
|
|
Public Shared IntEstatusAnterior As String
|
|
Public Shared SoloLectura As Boolean
|
|
Public Shared swMetodoRiesgo As Boolean
|
|
|
|
Public Shared CampoID1 As String
|
|
Public Shared CampoID2 As String
|
|
Public Shared CampoID3 As String
|
|
Public Shared CampoID4 As String
|
|
Public Shared CampoID5 As String
|
|
Public Shared intNegocio As Integer = 2
|
|
'AJB 20Nov2009
|
|
'Se cambio el tipo de dato a double para que acepte los decimales.
|
|
'Public Shared varPorcent As Integer
|
|
Public Shared strSQLGlobal As String
|
|
Public Shared blnEsNuevo As Boolean
|
|
Public Shared strCTRLCuenta As String
|
|
Public Shared blnDesdePrincipal As Boolean = False
|
|
Public Shared blnNoNuevo As Boolean
|
|
Public Shared strNombreCliente As String
|
|
Public Shared blnEsdeBanco As Boolean
|
|
|
|
Public Shared blnEsActualizacion As Boolean = False
|
|
|
|
'Public Shared intNegocio As Integer
|
|
|
|
Public Shared lbPEP As Boolean
|
|
Public Shared liPerfilB As Integer = 0
|
|
|
|
Public Shared IdPerfil As String = String.Empty
|
|
Public Shared NombreUsuario As String = String.Empty
|
|
Public Shared NombreCompleto As String = String.Empty
|
|
Public Shared NombrePerfil As String = String.Empty
|
|
|
|
Public Shared LsTituloExcel As String = ""
|
|
|
|
'-------------
|
|
Public Shared SQL As String
|
|
Public Shared strOPCION As Boolean = False
|
|
Public Shared gsUsuario As String
|
|
Friend Shared idCuenta As Integer
|
|
Friend Shared numCuenta As String
|
|
'------
|
|
|
|
Public Shared Conexion As SqlClient.SqlConnection
|
|
End Class
|