- mejora

2022-02-14 08:35:13 -07:00
parent 78b36e410d
commit 6ef6a0cd01
1 changed files with 1 additions and 1 deletions
--- 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