si el cvecliente=-1, en carga cleinte, que no corra la consulta

Ventas/Ventas.aspx.vb

@@ -4809,7 +4809,7 @@ Partial Class Ventas
     End Sub
     Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = -1)
 
-
+        If CveCliente <= 0 Then Exit Sub
 
         RBLPago.Items(0).Enabled = True
 
@@ -9010,7 +9010,7 @@ Partial Class Ventas
             i += 1
         Next
 
-        Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto)(0)("AplicaComercioExterior").ToString() = "True", True, False)
+        Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa)(0)("AplicaComercioExterior").ToString() = "True", True, False)
         Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
         If Obj.Cliente.AplicaComercioExterior And AplicaComercioExteriorSubProyecto Then
             'DATOS GENERALES
@@ -9026,8 +9026,8 @@ Partial Class Ventas
             'EMISOR
             Dim Dr As DataRow
             Dr = Nothing
-            If GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero()).Rows.Count > 0 Then
-                Dr = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero())(0)
+            If GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count > 0 Then
+                Dr = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)(0)
             End If
             Timbre.Complementos.ComercioExterior11.Emisor.CURP = UsuarioActual.Empresa.CURP
             Timbre.Complementos.ComercioExterior11.Emisor.Calle = Dr("Calle").ToString()
@@ -13803,7 +13803,6 @@ Partial Class Ventas
                         ObjPS.Dispose()
                     End If
 
-
                     If PrecioSugerido = 0 Then
                         Dim ObjInventarios As New ClsInventarios
                         Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1)
@@ -13814,7 +13813,7 @@ Partial Class Ventas
                             PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS
                         End If
                     End If
-
+                    CvePrecioLista = CvePrecioListaPS
                 End If