--- MEJORA

Inventarios/TraspasoAlmacen.aspx.vb

@@ -842,10 +842,13 @@ Partial Class Inventarios_TraspasoAlmacen
 
             ''validaciones de carta porte en productos
             If ChkEmitirTimbrado.Checked AndAlso ChkEmitirCartaPorte.Checked Then
-                ' Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
-                'If Not ValidaPSSAT(DrPS) Then
-                '    Exit Sub
-                'End If
+                For Each gvr As GridViewRow In GvDatos.Rows
+                    Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=gvr.DataKey("CvePS").ToEntero).FiltroPrimero("")
+                    If Not ValidaPSSAT(DrPS) Then
+                        Exit Sub
+                    End If
+                Next
+
             End If