diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index 3e84bfa9f..1868ddeed 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -765,7 +765,7 @@
                                         SubProyecto:
                                     </div>
                                     <div class="col-xs-3">
-                                        <asp:DropDownList ID="DdlSubProyectoE" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />
+                                        <asp:DropDownList ID="DdlSubProyectoE" runat="server" Width="220px" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />
                                     </div>
                                 </div>
                                 <br />
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index c34e1d140..d5978097f 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -330,9 +330,11 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("ContadoTipoTransaccion", Type.GetType("System.Int32"))
             .Add("ContadoCuenta", Type.GetType("System.Int32"))
             .Add("ContadoNumeroFolio", Type.GetType("System.String"))
-            .Add("ContadoImporte", Type.GetType("System.Dou"))
+            .Add("ContadoImporte", Type.GetType("System.Double"))
             .Add("ContadoBeneficiario", Type.GetType("System.String"))
             .Add("ContadoObservaciones", Type.GetType("System.String"))
+            .Add("Modificado", Type.GetType("System.Boolean"))
+
 
         End With
     End Sub
@@ -438,7 +440,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 End If
 
                 ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
-
                 DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
                 GvPrePoliza.DataSource = DtMovimientos
                 GvPrePoliza.DataBind()
@@ -537,7 +538,9 @@ Partial Class ContabilidadC_RegPrePolizaS
             If CveConceptoContable.Contiene(30, 204) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
             'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable
-
+            If e.Row.DBCampo("Modificado") Then
+                e.Row.FCCheckBox("chkModificado").Checked = True
+            End If
         End If
 
         If e.Row.RowType = DataControlRowType.Header Then
@@ -1156,7 +1159,7 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Sub
     Private Sub CargaCtaContableE()
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
             DdlCtaContableE.DataSource = ObjConta.DtResultados
         End If
         ObjConta.Dispose()
@@ -1364,6 +1367,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
                 dr("CveCuenta") = DdlCtaContableE.SelectedValue.ToEntero
                 dr("CodigoNombreCuenta") = DdlCtaContableE.SelectedItem.Text
+                dr("Modificado") = True
+
 
                 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
                 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero