diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index b1054773a..2db31e03e 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1536,7 +1536,8 @@ Partial Class Inventarios_EntradasSalidas
 
         Dim Valido As Boolean = True
 
-        Dim RowPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).Rows(0)
+        Dim RowPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("")
+        If RowPS Is Nothing Then Exit Sub
 
         Dim CveMetodoInventario As Integer = RowPS("Inv_CveMetodoInventario").ToString().ToEntero()
 
@@ -3948,7 +3949,7 @@ Partial Class Inventarios_EntradasSalidas
                                 ErrorMovInv = True
                             End If
                         Else
-                            If ObjInventario.Modulo.Contiene("TA/G1", "Recons") Then
+                            If ObjInventario.Modulo.Contiene("TA/G1", "Recons", "API-PT/C1") Then
                                 Contabilizable = False
                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
                                     ErrorMovInv = True
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index f03c95e9e..e63644c9a 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/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