diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx b/Contabilidad/PlantillasPolizasDetalle.aspx
index 34fb74f4f..294b70ce4 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx
@@ -251,8 +251,6 @@
-
-
diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
index 8b5143a0e..d97ccd009 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
@@ -351,6 +351,29 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
End Sub
Private Sub DdlConcepto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConcepto.SelectedIndexChanged
+
+ 'cargar la cuenta
+
+ If UsuarioActual.Empresa.TipoContabilizacion = 0 Then
+ 'busco en la cuenta contable, lo que tenga asignado
+ Dim Con As New ClsContabilidad
+ Dim dtt As DataTable
+ If Con.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+ dtt = Con.DtResultados
+ End If
+ DdlCtaContable.Visible = False
+ Dim drr As DataRow = dtt.FiltroPrimero(String.Format("CveConceptoAdmin={0}", DdlConcepto.SelectedValue))
+
+ If drr IsNot Nothing Then
+ LblCuenta.Text = drr("CtaCodigo").ToString
+ Else
+ LblCuenta.Text = ""
+ End If
+
+ dtt.Dispose()
+ Con.Dispose()
+ End If
+
If DdlConcepto.SelectedValue.Contiene("130", "29") Then
DdlPersonal.Visible = True
LblPersonal.Visible = True