validaciones en ventas

Ventas/Ventas.aspx.vb

@@ -2447,7 +2447,7 @@ Partial Class Ventas
             End If
 
             'MOSTRAR LA OPCION DE AGREGAR PS EN BDH
-            If UsuarioActual.CveEmpresa = 140 Then
+            If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then
                 ImgOtrosConceptos.Visible = False
                 TrFormaEntrega.Visible = False
                 TabDetalleVentas.Visible = False
@@ -14037,7 +14037,7 @@ Partial Class Ventas
         Dim PromocionPorcentaje As Decimal = 0
         Dim CantMinima As Integer = 0
 
-        If DtPromociones.Rows.Count > 0 And DtPromociones IsNot Nothing Then
+        If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
             Dim dr As DataRow = DtPromociones.FiltroPrimero($"CvePS = {CvePS}")
             If dr IsNot Nothing Then
                 TipoPromo = dr("TipoPromocion").ToString.ToEntero