From 6ef6a0cd01d4582863b7127dc1e197416ab617b2 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 14 Feb 2022 08:35:13 -0700
Subject: [PATCH] - mejora

---
 Inventarios/TraspasoAlmacen.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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