diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx b/Contabilidad/PlantillasPolizasDetalle.aspx
index 294b70ce4..3db8c7b0a 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx
@@ -176,7 +176,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField  ItemStyle-HorizontalAlign="Left" HeaderText="Cuenta Contable">
                         <ItemTemplate>
-                            &nbsp;<asp:Literal ID="LtlCtaContable" runat="server" Text='<%# Eval("IdCtaContable", "{0}") %>'>></asp:Literal>
+                            &nbsp;<asp:Literal ID="LtlCtaContable" runat="server" Text='<%# Eval("NombreCuenta", "{0}") %>'>></asp:Literal>
                         </ItemTemplate>
                       
                     </asp:TemplateField>
@@ -269,6 +269,8 @@
                                     <asp:Label ID="LblCuenta" runat="server" Text=""></asp:Label>
                                     <asp:DropDownList ID="DdlCtaContable" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="240px" ValidationGroup="GrpAgregar"></asp:DropDownList>
                                      <label for="<%= DdlCtaContable.ClientID.ToString()%>">Cuenta Contable:</label>
+                                     <asp:DropDownList ID="DdlCuentas" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Visible="false" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpAgregar"></asp:DropDownList>
+                                     <label for="<%= DdlCtaContable.ClientID.ToString()%>">Cuenta Contable:</label>
                                 </div>
                            
                                         <div class="form-group form-md-line-input input-iconright">
diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
index d97ccd009..7449e664d 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
@@ -138,9 +138,32 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
 
     Private Sub CargaCuenta()
         DdlCtaContable.Items.Clear()
-        DdlCtaContable.DataSource = DTCuentasContables
-        DdlCtaContable.DataBind()
+
         DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        If UsuarioActual.Empresa.TipoContabilizacion = 2 Then
+            Dim Conta As New ClsContabilidad
+            Dim dtt As New DataTable
+
+            If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+                dtt = Conta.DtResultados
+            End If
+
+            Conta.Dispose()
+
+            DdlCuentas.Items.Clear()
+            DdlCuentas.DataSource = dtt
+            DdlCuentas.DataBind()
+            DdlCuentas.Visible = True
+            DdlCtaContable.Visible = False
+        Else
+
+            DdlCtaContable.DataSource = DTCuentasContables
+            DdlCtaContable.DataBind()
+        End If
+
+
+        DdlCuentas.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
     Private Sub CargarConcepto()
@@ -229,7 +252,8 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
 
         If HdnModalidad.Value = "I" Then
             If CvePlantillaPoliza > 0 Then
-                If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then
+                If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal,
+CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
                     TxtOrden.Text = ""
                     If Not ChkSeguirAgregando.Checked Then
                         updatatos()