diff --git a/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx
index c29f117a8..1cb80a307 100644
--- a/Contabilidad/RegPrePoliza.aspx
+++ b/Contabilidad/RegPrePoliza.aspx
@@ -303,7 +303,7 @@
             </table>
 
             <div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
-                <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,TC,CveOC,PorcentajeImpuesto" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
+                <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,TC,CveOC,PorcentajeImpuesto,CveCuenta" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
                     <Columns>
                         <asp:TemplateField>
                             <HeaderTemplate>Cuenta</HeaderTemplate>
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index c5b0c6618..6215cdbce 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -322,6 +322,7 @@ Partial Class ContabilidadC_RegPrePoliza
             .Add("ConceptoContable", Type.GetType("System.String"))
             .Add("TC", Type.GetType("System.Decimal"))
             .Add("PorcentajeImpuesto", Type.GetType("System.Decimal"))
+            .Add("CveCuenta", Type.GetType("System.Int32"))
         End With
     End Sub
 
@@ -715,15 +716,20 @@ Partial Class ContabilidadC_RegPrePoliza
                 If drr IsNot Nothing Then
                     IdCuenta = drt("IdCtaContable").ToString.ToEntero
                     CodigoCuenta = drr("CuentaFormato").ToString()
-                    NombreCuenta = drr("Nombre").ToString()
-                    'Cuenta = drr("Nombre").ToString()
+                    NombreCuenta = drr("Nombre").ToString()
+                    'Cuenta = drr("Nombre").ToString()
+                    NombreCuenta = CodigoCuenta & "<br>" & NombreCuenta
                 End If
                 EsComodin = 0
             End If
 
+            If drt("CveCuenta").ToString.ToEntero > 0 Then
+                NombreCuenta = String.Format("{0}<br>{1}", drt("Codigo"), drt("Nombre"))
+            End If
+
             Dim dr As DataRow = DtMovimientos.NewRow
             dr("IdCuenta") = IdCuenta
-            dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
+            dr("CodigoCuenta") = NombreCuenta
             dr("Cuenta") = Cuenta  'TxtCuentaContable.Text
             dr("Referencia") = If(drt("CveConcepto").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
             dr("Concepto") = TxtObservaciones.Text
@@ -737,7 +743,8 @@ Partial Class ContabilidadC_RegPrePoliza
             dr("CvePersonal") = drt("CvePersonal")
             dr("CveClasificacion") = -1
             dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
-            dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto")
+            dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto")
+            dr("CveCuenta") = drt("CveCuenta")
             DtMovimientos.Rows.Add(dr)
         Next
 
@@ -945,8 +952,8 @@ Partial Class ContabilidadC_RegPrePoliza
                                                            CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
                                                             ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero,
                                                             CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDecimal > 0, gvr.DataKey("TC").ToString.ToDecimal, 1),
-                                                           ImporteME:=If(gvr.DataKey("TC").ToString.ToDecimal > 0, (Importe / (gvr.DataKey("TC").ToString.ToDecimal - 1)).RoundSQL, 0),
-                                                            PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then
+                                                            ImporteME:=If(gvr.DataKey("TC").ToString.ToDecimal > 0, (Importe / (gvr.DataKey("TC").ToString.ToDecimal - 1)).RoundSQL, 0),
+                                                            PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then
                             Else
                                 MsgError = "No se pudo insertar el detalle de la póliza2"
                                 Exit For