From cac60140e01292e9f17969bae8322096e1112825 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 2 Apr 2024 18:57:23 -0700
Subject: [PATCH] Corrcciones AF, Compras CodigoPS en GV

---
 AF/CatAF.aspx           |  5 +++--
 AF/CatAF.aspx.vb        | 20 ++++++++++++++++----
 Compras/Compras.aspx    |  2 +-
 Compras/Compras.aspx.vb | 21 ++++++++++++++++++---
 4 files changed, 38 insertions(+), 10 deletions(-)

diff --git a/AF/CatAF.aspx b/AF/CatAF.aspx
index 393b4fbb2..b32f78b85 100644
--- a/AF/CatAF.aspx
+++ b/AF/CatAF.aspx
@@ -72,7 +72,7 @@
 
     <asp:UpdatePanel ID="UpFiltro" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="portlet solid grey-cascade portlet-filter" style="">
+            <div class="portlet solid grey-cascade portlet-filter" style="" id="DvFiltros">
                 <div class="portlet-title portlet-filterT portletfiltrostitlee">
                     <div class="tools">
                         <asp:UpdatePanel runat="server" style="display: inline-block;">
@@ -131,7 +131,8 @@
                     <div class="row">
                         <div class="col-md-1">Cliente:</div>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlCliente" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="Nombre" DataValueField="CveCliente"></asp:DropDownList>
+                            <%--<asp:DropDownList ID="DdlCliente" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="Nombre" DataValueField="CveCliente"></asp:DropDownList>--%>
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
                         </div>
 
                         <div class="col-md-1">Grupo:</div>
diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb
index a9dac3d27..239c3235c 100644
--- a/AF/CatAF.aspx.vb
+++ b/AF/CatAF.aspx.vb
@@ -95,9 +95,20 @@ Partial Class AF_CatAF
         'DdlProyecto.DataBind()
         'DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlCliente.DataBind()
-        DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        'DdlCliente.DataBind()
+        'DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        'CargaClientes
+        Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+        If EsWS Then
+            DdlClientes.setEsWebService(True)
+        Else
+            DdlClientes.setEsWebService(False)
+            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+            DdlClientes.DataBind()
+            DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
 
         CargarTipoActivoFijo()
         CargaGrupos()
@@ -234,7 +245,8 @@ Partial Class AF_CatAF
 
         If intContador > 0 Then strSQL1.AppendFormat(" group by CveActivoFijo having count(*)={0}", intContador)
 
-        If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, Codigo, Descripcion, DdlTipoActivo.SelectedValue.ToEntero, DdlSubTipoActivo.SelectedValue.ToEntero, NoSerie, Año, CvePersonaResponsable, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, strSQL1.ToString, -1, CveGrupo:=DdlGrupo.SelectedValue.ToEntero) Then
+        Dim Cvecliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
+        If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, Codigo, Descripcion, DdlTipoActivo.SelectedValue.ToEntero, DdlSubTipoActivo.SelectedValue.ToEntero, NoSerie, Año, CvePersonaResponsable, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, strSQL1.ToString, CveCliente:=CveCliente, CveGrupo:=DdlGrupo.SelectedValue.ToEntero) Then
             If ObjAF.DtResultados.Rows.Count > 0 Then
                 DtActivosFijos = ObjAF.DtResultados
                 'GvDatos.DataSource = ObjAF.DtResultados
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 45aff2651..5b9c971a6 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -775,7 +775,7 @@
                                                             <asp:Label ID="LblClasificacion" runat="server" Text='<%# Eval("Clasificacion") %>'></asp:Label>
                                                         </span>
                                                         <br />
-                                                        <asp:HyperLink Style="display: initial;" ID="HplPS" Width="200px" NavigateUrl='<%# If(CInt(Eval("CvePS").ToString) > 0, String.Format("/Ventas/ProductosServicios.aspx?CvePS={0}&Ret=Comp&Popup=1&TB_iframe=true&height=500&width=950&Ret=Comp", Eval("CvePS")), "")%>' CssClass='<%# If(CInt(Eval("CvePS").ToString) > 0, "Texto thickbox", "") %>' runat="server" Text='<%# Eval("PS") %>'></asp:HyperLink>
+                                                        <asp:HyperLink Style="display: initial;" ID="HplPS" Width="200px" NavigateUrl='<%# If(CInt(Eval("CvePS").ToString) > 0, String.Format("/Ventas/ProductosServicios.aspx?CvePS={0}&Ret=Comp&Popup=1&TB_iframe=true&height=500&width=950&Ret=Comp", Eval("CvePS")), "")%>' CssClass='<%# If(CInt(Eval("CvePS").ToString) > 0, "Texto thickbox", "") %>' runat="server" Text='<%# Eval("CodigoPS") %>'></asp:HyperLink>
                                                     </div>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index cecb271b0..7342b296b 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -17044,6 +17044,8 @@ Partial Class Compras_Compras
         '    End If
         'End If
 
+
+
         Select Case Modalidad
             Case "A" 'ADD
 
@@ -17058,11 +17060,13 @@ Partial Class Compras_Compras
                 Else
                     IVA = Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2)
                 End If
+
+
                 AddPS(TxtCantidad.Text.Trim.ToDecimal, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
                                   DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDecimal, Total, IVA,
                                   TxtRetIVAModal.Text.ToDecimal / 100, TxtRetISRModal.Text.ToDecimal / 100, TxtIEPSModal.Text.ToDecimal / 100, 0, TxtDescuentoModal.Text.ToDecimal, OtrosGastos:=0, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
                                   NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS, CveContratoDetalle:=CveContratoDetalle,
-                                  CveCultivoCuadroDetalle:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedValue.ToEntero, -1), TemporadaCuadro:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedItem.Text, ""))
+                                  CveCultivoCuadroDetalle:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedValue.ToEntero, -1), TemporadaCuadro:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedItem.Text, ""), CodigoPS:=CodigoPS)
 
                 AddPS2()
                 LimpiaAgregar()
@@ -17135,11 +17139,13 @@ Partial Class Compras_Compras
                       Optional PSCodigo As String = "-", Optional PSDescripcion As String = "-", Optional CantidadF As Double = -1, Optional EntregaDirecta As Integer = -1, Optional OtrosGastos As Decimal = 0,
                       Optional CveSATPS As Integer = -1, Optional CargaXml As Boolean = False, Optional CveTipoGasto As Integer = -1, Optional TipoGasto As String = "", Optional PorcentajeIVA As Decimal = 0,
                       Optional PorcentajeIEPS As Decimal = 0, Optional PorcentajeRetIVA As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1,
-                      Optional CveSATPSActualizado As Boolean = False, Optional TemporadaCuadro As String = "") As Integer
+                      Optional CveSATPSActualizado As Boolean = False, Optional TemporadaCuadro As String = "", Optional CodigoPS As String = "") As Integer
 
         Dim Row As DataRow = Nothing
 
-
+        If Not TmpDT.Columns.Contains("CodigoPS") Then
+            TmpDT.Columns.Add("CodigoPS")
+        End If
 
         Row = TmpDT.NewRow()
         Dim Retorno As Integer = 0
@@ -17224,6 +17230,12 @@ Partial Class Compras_Compras
         Row("Clasificacion") = Clasificacion
         Row("CvePS") = CvePS
         Row("PS") = PS
+
+        If CodigoPS.Trim = "" Then
+            CodigoPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("CodigoPS")
+        End If
+        Row("CodigoPS") = CodigoPS
+
         Row("CveTipoPS") = CveTipoPS
 
         Row("PSDescripcion") = PSDescripcion
@@ -17407,6 +17419,9 @@ Partial Class Compras_Compras
                 DrPS("Clasificacion") = PSRow("Clasificacion").ToString
                 DrPS("CvePS") = DdlPS.SelectedValue
                 DrPS("PS") = PSRow("PS").ToString
+
+                DrPS("CodigoPS") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("CodigoPS")
+
                 DrPS("CveTipoPS") = CveTipoPS
                 DrPS("CveSATPS") = PSRow("CveSATPS").ToString.ToEntero
                 DrPS("SATClaveProductoServicio") = PSRow("SATClaveProductoServicio").ToString