diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 4042bfc7b..cd2a48d00 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -625,9 +625,12 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim ObjConta As New ClsContabilidad
         If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
             DdlCuentaContableE.DataSource = ObjConta.DtResultados
+            DdlCuentaContable.DataSource = ObjConta.DtResultados
             DtCuentasContables = ObjConta.DtResultados
         End If
-        ObjConta.Dispose()
+        ObjConta.Dispose()
+        DdlCuentaContable.DataBind()
+        DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0"))
         DdlCuentaContableE.DataBind()
         DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
     End Sub
@@ -2225,7 +2228,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 
         'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
-        If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+        If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
             Dim dtVC As DataTable
             Dim dr As DataRow
             dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")