clasificacion en concepto 51

Contabilidad/RegPrePoliza.aspx

@@ -194,6 +194,7 @@
                                                     <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
                                                     <br />
                                                     <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList><br />
+                                                    <asp:DropDownList ID="DdlClasificacionesE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="160px" Visible="false" ></asp:DropDownList>
                                                 </th>
                                                 <th>
                                                     <asp:DropDownList ID="DdlCtaContable" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="160px">

Contabilidad/RegPrePoliza.aspx.vb

@@ -566,6 +566,13 @@ Partial Class ContabilidadC_RegPrePoliza
             DdlVentas.Visible = False
         End If
 
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(51) Then
+            CargaClasificacionesE()
+            DdlClasificacionesE.Visible = True
+        Else
+            DdlClasificacionesE.Visible = False
+        End If
+
         If DdlConceptosContables.SelectedValue.ToEntero.Contiene(201, 202, 203, 204, 206, 207, 226, 227, 229, 233, 234, 235, 239, 242, 256, 266) Then
             TxtTC.Text = "2"
             TxtTC.Visible = True
@@ -578,8 +585,8 @@ Partial Class ContabilidadC_RegPrePoliza
             CargaClasificaciones()
             DdlClasificaciones.Visible = True
         Else
-        TxtTC.Text = ""
+            TxtTC.Text = ""
-        DdlClasificaciones.Visible = False
+            DdlClasificaciones.Visible = False
         End If
 
 
@@ -675,7 +682,11 @@ Partial Class ContabilidadC_RegPrePoliza
         DdlPersonal.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
     Protected Sub DdlPlantilla_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPlantilla.SelectedIndexChanged
 
         TxtTotalAbonos.Text = ""

Contabilidad/RegPrePolizaS.aspx

@@ -650,6 +650,7 @@
                                         <asp:DropDownList ID="DdlPersonalE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
                                         <ADS:Dropdownlost ID="DdlClientesE" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
                                         <asp:DropDownList ID="DdlVentasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList>
+                                        <asp:DropDownList ID="DdlClasificacionesE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="160px" Visible="false" ></asp:DropDownList>
                                     </div>
                                 </div>
 

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
@@ -1137,6 +1144,12 @@ Partial Class ContabilidadC_RegPrePolizaS
         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)
     End Sub