diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index bd55a5b41..af366386b 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1010,6 +1010,14 @@ Partial Class ContabilidadC_RegPrePolizaS
                             If CveIE < 0 Then
                                 MsgError = "No se pudo registrar movimiento bancario"
                                 Exit For
+                            Else
+
+                                If tFolio > 0 Then
+                                    FolioIE = tFolio
+                                Else
+                                    FolioIE = ObjIE.Folio
+                                End If
+
                             End If
 
                         End If
@@ -2421,7 +2429,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                         End If
 
                         Folio = FolioExcel
-                        ImporteDocumento = IIf(Row("Abono").ToString.ToDecimal > 0, Row("Abono").ToString.ToDecimal, Row("Cargo").ToString.ToDecimal)
+                        ImporteDocumento = IIf(Row("Abono").ToString.ToDecimal <> 0, Row("Abono").ToString.ToDecimal, Row("Cargo").ToString.ToDecimal)
                         Observaciones = Row("Referencia").ToString
                         Beneficiario = Row("Concepto").ToString