diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index f3eade517..08063ee14 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -5489,10 +5489,14 @@ Partial Class Bancos_IE
 
             Dim DescripcionAus As String = TxtDescripcion.Text
 
-            If DdlTipoTransaccion.SelectedItem.Text <> "Seleccione Tipo Movimiento" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Movimiento:{DdlTipoTransaccion.SelectedItem.Text}")
+            If DdlTipoTransaccion.SelectedItem.Text <> "Seleccione Tipo Movimiento" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Movimiento: {DdlTipoTransaccion.SelectedItem.Text}")
+
+            DescripcionAus = $"{DescripcionAus},  Fecha Documento: {TxtFechaDocumento.Text} , Observaciones: {TxtObservaciones.Text} . "
+
             If DdlCuenta.SelectedItem.Text <> "Seleccione" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Cuenta:{DdlCuenta.SelectedItem.Text}")
             If TxtFolio.Text <> "" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Número:{TxtFolio.Text}")
             If TxtImporte.Text <> "" AndAlso TxtImporte.Text <> "0" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Importe:{TxtImporte.Text}")
+
             If DdlCliente.Visible Then
                 DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{DdlCliente.SelectedText}")
             ElseIf DdlProveedores.Visible Then
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 7046abfe8..b0404e0a8 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -2468,8 +2468,16 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 
 
+
+
                     End If
 
+                    If Row("Abono").ToString.ToDecimal > 0 And Row("Cargo").ToString.ToDecimal > 0 Then
+                        Alert($"Se detecto un error en el registro {ContadorRegistros}, se tiene un valor en cargo({Row("Cargo").ToString.ToDecimal.ToString("###,###,###.00")}) y abono({Row("Abono").ToString.ToDecimal.ToString("###,###,###.00")})", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+
+
 
                     If CveConceptoContable = 30 AndAlso Row("TipoTransferencia").ToString = "" Then
                         Alert($" El registro {ContadorRegistros}  es movimiento bancario y no se especifica el tipo de  transferencia , importe: {ImporteDocumento.ToString("###,###,###.00")}", TipoMensaje.MsgAdvertencia)
@@ -2539,6 +2547,8 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                 Next
 
+
+
                 TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
                 TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
 
diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt
index cad593981..5caea88e1 100644
Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ
diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt
index 5d6ac0536..5d1de1b2f 100644
Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt differ
diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt
index 33b2abbc9..1101f58c1 100644
Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt differ