From c70dd071821cd9342e004ff7ebf603c6e338553a Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Mon, 28 Sep 2020 08:27:56 -0700
Subject: [PATCH] -- cuando es costo, que muestre clasificaciones

---
 Contabilidad/RegPrePoliza.aspx    |  1 +
 Contabilidad/RegPrePoliza.aspx.vb | 25 +++++++++++++++++++++----
 2 files changed, 22 insertions(+), 4 deletions(-)

diff --git a/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx
index 734a5ec1a..c29f117a8 100644
--- a/Contabilidad/RegPrePoliza.aspx
+++ b/Contabilidad/RegPrePoliza.aspx
@@ -190,6 +190,7 @@
                                                     <asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList><br />
                                                     <asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
                                                     <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
+                                                    <asp:DropDownList ID="DdlClasificaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="160px" Visible="false"></asp:DropDownList>
                                                     <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 />
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index 914c95ef6..cd307959c 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -568,8 +568,18 @@ Partial Class ContabilidadC_RegPrePoliza
         Else
             TxtTC.Text = ""
             TxtTC.Visible = False
-        End If
-
+        End If
+
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(69) Then
+            CargaClasificaciones()
+            DdlClasificaciones.Visible = True
+        Else
+        TxtTC.Text = ""
+        DdlClasificaciones.Visible = False
+        End If
+
+
+
     End Sub
 
     Private Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged
@@ -631,6 +641,12 @@ Partial Class ContabilidadC_RegPrePoliza
         DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
         DdlClientes.DataBind()
         '  DdlClientes.Items.Insert(0, New ListItem("  -  ", "-1"))
+    End Sub
+
+    Private Sub CargaClasificaciones()
+        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificaciones.DataBind()
+        '  DdlClientes.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
 
     Private Sub CargaVentas(CveCliente As Integer)
@@ -942,6 +958,7 @@ Partial Class ContabilidadC_RegPrePoliza
 
                                 'MENSAJE PRINCIPAL
                                 MensajeAlert.AppendFormat("<br/><br/>Folio de Salida: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
+                                MensajeAlert.AppendFormat("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjMov.ContaFolio)
                                 'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
                             Else
                                 Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
@@ -1209,7 +1226,7 @@ Partial Class ContabilidadC_RegPrePoliza
                 dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
                 dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
                 dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
-                dr("CveClasificacion") = -1
+                dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero
                 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
             End If
@@ -1278,7 +1295,7 @@ Partial Class ContabilidadC_RegPrePoliza
                 dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
                 dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
                 dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
-                dr("CveClasificacion") = -1
+                dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero
                 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
                 dr("TC") = TxtTC.Text.ToDouble