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

This commit is contained in:
2022-01-19 11:16:40 -07:00
parent 42f5e996ce
commit ef131eb096

View File

@@ -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
SBMensaje.AppendLine("-Producto SAT no asignado. <br>")
End If
If CveSATPS <= 0 Then SBMensaje.AppendLine("-Producto SAT no asignado. <br>")
If PesoKg = 0 Then SBMensaje.AppendLine("-Producto sin peso definido. <br>")
If PesoKg = 0 Then
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
If SATClaveUnidadMedida.Length = 0 Then SBMensaje.AppendLine("-Producto sin unidad de medida SAT asignada. ")
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