clasificacion en concepto 51

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1079,6 +1079,13 @@ Partial Class ContabilidadC_RegPrePolizaS
         Else
             DdlPersonalE.Visible = False
         End If
+
+        If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(51) Then
+            CargaClasificacionesE()
+            DdlClasificacionesE.Visible = True
+        Else
+            DdlClasificacionesE.Visible = False
+        End If
         If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39) Then
             CargaClientesE()
             DdlClientesE.Visible = True
@@ -1136,6 +1143,12 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlPersonalE.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
         DdlPersonalE.DataBind()
         DdlPersonalE.Items.Insert(0, New ListItem("  -  ", "-1"))
+    End Sub
+
+    Private Sub CargaClasificacionesE()
+        DdlClasificacionesE.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacionesE.DataBind()
+        DdlClasificacionesE.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
     Private Sub DdlProveedoresE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedoresE.SelectedIndexChanged
         CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero)