option explicit on

Ventas/Clientes.aspx.vb

@@ -1448,10 +1448,10 @@ Partial Class Clientes
                 LblUsuarioCapturo.Text = ObjClientes.Usuario
                 TxtNombreCorto.Text = ObjClientes.NombreCorto
 
-                Dim CveVendedor = ObjClientes.Vendedor.ToEntero()
+                Dim CveVendedor As Integer = ObjClientes.Vendedor.ToEntero()
                 'SI YA TIENE UN VALOR ASIGNADO SELECCIONA EL GUARDADO
                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                    Dim Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=1).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", CveVendedor))
+                    Dim Vendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=1).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", CveVendedor))
                     'SI NO ENCUENTRA BUSCA EN LOS VENDEDORES DEL PV
                     If String.IsNullOrEmpty(Vendedor) Then
                         Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", CveVendedor))
@@ -2501,12 +2501,8 @@ Partial Class Clientes
         Dim LG As String = If(HDLG.Value.ToDouble <> 0, HDLG.Value, "0")
 
         Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
-
-
         Dim FechaLimiteCredito As Date = If(TxtFechaLimiteCredito.Text.Trim.Length > 0, TxtFechaLimiteCredito.Text.ToDate, New Date(1900, 1, 1))
-
-
-        Dim GeneroCliente = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False)
+        Dim GeneroCliente As Boolean = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False)
 
         If CveCliente = -1 Then
             Dim ErrorAC As Boolean = False
@@ -3548,7 +3544,7 @@ Partial Class Clientes
         Dim ObjUsuario As New ClsSisUsuarios
 
         Dim Liga As String = ObjParametro.Cadena1 & "Login.aspx"
-        Dim CveUsuario = -1
+        Dim CveUsuario As Integer = -1
         Dim CvePlataforma As Integer = 6
         Dim ErrorUsuario As Boolean = False
 
@@ -10118,7 +10114,6 @@ Partial Class Clientes
                 DdlRegimenFiscal.SelectedValue = Nothing
             End If
         End If
-
         MuestraOcultaGenero()
 
         DdlRegimenFiscal.DataSource = dt