SIG. Carga de precio lista al cargar el cliente en ventas.aspx

Ventas/Ventas.aspx.vb

@@ -1929,12 +1929,21 @@ Partial Class Ventas
 
     Private Property CvePrecioLista As Integer
         Get
-            Return ViewState("CvePrecioLista").ToString().ToEntero()
+            Return IfNull(ViewState("CvePrecioLista"), 0, ViewState("CvePrecioLista").ToString().ToEntero()).ToString().ToEntero()
         End Get
         Set(value As Integer)
             ViewState("CvePrecioLista") = value
         End Set
     End Property
+    Private Property CvePrecioListaCliente As Integer
+        Get
+            Return IfNull(ViewState("CvePrecioListaCliente"), 0, ViewState("CvePrecioListaCliente").ToString().ToEntero()).ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CvePrecioListaCliente") = value
+        End Set
+    End Property
+
     Private Property FacturarSucursal As Boolean
         Get
             Return CBool(IfNull(ViewState("FacturarSucursal"), "False", ViewState("FacturarSucursal")))
@@ -2114,6 +2123,7 @@ Partial Class Ventas
             ViewState("ClienteRetIVA") = 0
             ViewState("ClienteRetISR") = 0
             ViewState("CvePrecioLista") = 0
+            ViewState("CvePrecioListaCliente") = 0
             idCuentaContabilizacion = 1
             CveEmpresaCRM = 0
             CveAcercamientoCRM = 0
@@ -5749,6 +5759,7 @@ Partial Class Ventas
                 ViewState("CodCliente") = ObjCliente.Codigo
 
                 ViewState("CvePrecioLista") = ObjCliente.CvePrecioLista
+                ViewState("CvePrecioListaCliente") = ObjCliente.CvePrecioLista
 
                 ViewState("CliNoExt") = ObjCliente.NoExt
                 ViewState("CliNoInt") = ObjCliente.NoInt
@@ -16198,7 +16209,7 @@ Partial Class Ventas
 
                     If TipoPrecioLista = 10 Then
 
-                        CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
+                        CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                         If CvePrecioListaPS <= 0 Then
 
                             CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
@@ -16210,7 +16221,7 @@ Partial Class Ventas
                         CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                         If CvePrecioListaPS <= 0 Then
 
-                            CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
+                            CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
 
                         End If
 
@@ -21931,10 +21942,10 @@ Partial Class Ventas
 
 
         Dim DtDireccionEnvio As DataTable = Nothing
-        Dim ObjClientes As New ClsClientes
-        If ObjClientes.DireccionEnvioGet(DdlDireccionEnvio.SelectedValue.ToEntero(), CveCliente, CveClienteSucursal) Then
-            DtDireccionEnvio = ObjClientes.DtResultados
-        End If
+        Dim ObjClientes As New ClsClientes
+        If ObjClientes.DireccionEnvioGet(DdlDireccionEnvio.SelectedValue.ToEntero(), CveCliente, CveClienteSucursal) Then
+            DtDireccionEnvio = ObjClientes.DtResultados
+        End If
         ObjClientes.Dispose()
 
         If DtDireccionEnvio IsNot Nothing And DtDireccionEnvio.Rows.Count > 0 Then
@@ -21979,7 +21990,7 @@ Partial Class Ventas
         RegistraScript("$('#divAddDireccionEnvio').modal();")
     End Sub
 
-#Region "D I R E C C I O N   E N V I O - C O M B O S"
+#Region "D I R E C C I O N   E N V I O - C O M B O S"
     Protected Sub BtnDirClienteValidar_Click(sender As Object, e As EventArgs)
         DirClientevalidaCodigoPostal()
     End Sub
@@ -21993,27 +22004,27 @@ Partial Class Ventas
 
     Private Sub CargaDirClientePais()
 
-        DdlDirClientePais.DataSource = GlobalDTGralPaises()
-        DdlDirClientePais.DataBind()
-        DdlDirClientePais.SelectedValueExist("151")
-    End Sub
-
-    Private Sub CargaDirClienteEstado()
-        DdlDirClienteEstado.Items.Clear()
-        If DdlDirClientePais.SelectedValue.ToEntero > 0 Then
-            DdlDirClienteEstado.DataSource = GlobalDTGralEstados("-1", DdlDirClientePais.SelectedValue.ToEntero)
-        End If
-        DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlDirClienteEstado.DataBind()
+        DdlDirClientePais.DataSource = GlobalDTGralPaises()
+        DdlDirClientePais.DataBind()
+        DdlDirClientePais.SelectedValueExist("151")
     End Sub
 
-    Private Sub CargaDirClienteColonia()
-        DdlDirClienteColonia.Items.Clear()
+    Private Sub CargaDirClienteEstado()
+        DdlDirClienteEstado.Items.Clear()
+        If DdlDirClientePais.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteEstado.DataSource = GlobalDTGralEstados("-1", DdlDirClientePais.SelectedValue.ToEntero)
+        End If
+        DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlDirClienteEstado.DataBind()
+    End Sub
+
+    Private Sub CargaDirClienteColonia()
+        DdlDirClienteColonia.Items.Clear()
         If DdlDirClienteMunicipio.SelectedValue.ToEntero > 0 Then
             DdlDirClienteColonia.DataSource = GlobalDTGralColonias("-1", "-1", "-1", DdlDirClienteMunicipio.SelectedValue.ToEntero, CodigoPostal:=If(TxtEnvioCP.Text.Trim.Length > 0, TxtEnvioCP.Text.ToEntero, -1))
-        End If
-        DdlDirClienteColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlDirClienteColonia.DataBind()
+        End If
+        DdlDirClienteColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlDirClienteColonia.DataBind()
     End Sub
 
 
@@ -22030,24 +22041,24 @@ Partial Class Ventas
     End Sub
 
     Private Sub CargaDirClienteMunicipio()
-        DdlDirClienteMunicipio.Items.Clear()
-        If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then
-            DdlDirClienteMunicipio.DataSource = GlobalDTGralMunicipios("-1", DdlDirClienteEstado.SelectedValue.ToEntero)
-        End If
-        DdlDirClienteMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlDirClienteMunicipio.DataBind()
+        DdlDirClienteMunicipio.Items.Clear()
+        If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteMunicipio.DataSource = GlobalDTGralMunicipios("-1", DdlDirClienteEstado.SelectedValue.ToEntero)
+        End If
+        DdlDirClienteMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlDirClienteMunicipio.DataBind()
     End Sub
 
-    Protected Sub DdlDirClientePais_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CargaDirClienteEstado()
-        CargaDirClienteMunicipio()
-        CargaDirClienteColonia()
-        CargaDirClienteLocalidad()
-    End Sub
-    Protected Sub DdlDirClienteEstado_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CargaDirClienteMunicipio()
-        CargaDirClienteColonia()
-        CargaDirClienteLocalidad()
+    Protected Sub DdlDirClientePais_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaDirClienteEstado()
+        CargaDirClienteMunicipio()
+        CargaDirClienteColonia()
+        CargaDirClienteLocalidad()
+    End Sub
+    Protected Sub DdlDirClienteEstado_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaDirClienteMunicipio()
+        CargaDirClienteColonia()
+        CargaDirClienteLocalidad()
     End Sub
 
     Protected Sub DdlDirClienteMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)