diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index db965ef7c..91b4b928a 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -3343,7 +3343,7 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim PesoKg As Decimal = DrPS("PesoKg").ToString.ToDecimal
         Dim SATClaveUnidadMedida As String = DrPS("SATClaveUnidadMedida").ToString.Trim
 
-        If CveSATPS > 0 And PesoKg > 0 And SATClaveUnidadMedida.Length > 0 Then
+        If CveSATPS > 0 AndAlso PesoKg > 0 AndAlso SATClaveUnidadMedida.Length > 0 Then
             Respuesta = True
         Else
             Respuesta = False