-- solo aplica al emitir carta porte, la validacion de los ps

Inventarios/TraspasoAlmacen.aspx.vb

@@ -3309,8 +3309,6 @@ Partial Class Inventarios_TraspasoAlmacen
 
     End Function
 
-
-
     Function ValidaPSSAT(DrPS As DataRow) As Boolean
         Dim Respuesta As Boolean = False
 
@@ -3326,29 +3324,18 @@ Partial Class Inventarios_TraspasoAlmacen
 
             SBMensaje.AppendLine("El producto seleccionado presenta la siguiente situación: <br>")
 
-            If CveSATPS <= 0 Then
+            If CveSATPS <= 0 Then SBMensaje.AppendLine("-Producto SAT no asignado.  <br>")
-                SBMensaje.AppendLine("-Producto SAT no asignado.  <br>")
-            End If
 
+            If PesoKg = 0 Then SBMensaje.AppendLine("-Producto sin peso definido.  <br>")
 
-            If PesoKg = 0 Then
+            If SATClaveUnidadMedida.Length = 0 Then SBMensaje.AppendLine("-Producto sin unidad de medida SAT asignada. ")
-                SBMensaje.AppendLine("-Producto sin peso definido.  <br>")
-            End If
-
-
-            If SATClaveUnidadMedida.Length = 0 Then
-                SBMensaje.AppendLine("-Producto sin unidad de medida SAT asignada. ")
-            End If
-
 
             SBMensaje.AppendLine($"<br><br>  <strong><a class='texto' target='_blank' href='../Ventas/ProductosServicios.aspx?CvePS={DrPS("CvePS").ToString}' > Corregir Producto </a></strong>")
 
-
             Alert(SBMensaje.ToString, TipoMensaje.MsgAdvertencia)
 
         End If
 
-
         Return Respuesta
     End Function