From 66e525779f0311276eea4c4d30853a049081a8a3 Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Thu, 22 Jul 2021 23:04:36 -0700
Subject: [PATCH 1/2]

---
 App_Code/ClsContratos.vb   | 17 +++++++++++++++++
 App_Code/ClsInventarios.vb | 19 +++++++++++++++++++
 2 files changed, 36 insertions(+)

diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb
index 83a20daf6..c867464e4 100644
--- a/App_Code/ClsContratos.vb
+++ b/App_Code/ClsContratos.vb
@@ -1179,6 +1179,23 @@ Public Class ClsContratos
         Return Retorno
     End Function
 
+    Public Function ValidaPSContrato(DtPS As String) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Con_ValidarPSContrato")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@DtPS", SqlDbType.VarChar).Value = DtPS
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al cargar los Detalles del Contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
 #End Region
 
 #Region "Contratos detalles Avance"
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 286840260..4c7c1ea00 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -2833,7 +2833,26 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
+    Public Function GetInventarioFisicoUniversoProductos(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean
 
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_InventarioFisicoUniversoProductosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al obtener el universo de productos del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el universo de productos del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
 #End Region
 
 #Region "  INVENTARIOS - MAXIMO MINIMO"

From c5dfa66659c9f4fbe96e43852784bde22b8e739b Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Fri, 23 Jul 2021 10:17:55 -0700
Subject: [PATCH 2/2] dropdownlist por dropdownlost en proveedor

---
 Contratos/Contrato.aspx.vb     | 2 +-
 Contratos/ContratoObra.aspx    | 6 ++----
 Contratos/ContratoObra.aspx.vb | 6 ++++--
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index 62fc596a4..0158f31ad 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -1654,7 +1654,7 @@ Partial Class Contratos_Default
     End Sub
     Private Sub CargaContratoPadre()
         DdlContratoPadre.Items.Clear()
-        DdlContratoPadre.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ")
+        DdlContratoPadre.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ")
         DdlContratoPadre.DataBind()
         DdlContratoPadre.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx
index 62d582d06..ebb96cdf0 100644
--- a/Contratos/ContratoObra.aspx
+++ b/Contratos/ContratoObra.aspx
@@ -355,10 +355,8 @@
                                                 <label class="col-md-3 truncate ">
                                                     <asp:Label ID="LblProveedor" runat="server" Text="Proveedor:"></asp:Label></label>
                                                 <div class="col-md-9">
-                                                        <asp:DropDownList ID="DdlContratista" runat="server" CssClass="input-sm form-control select2me" AppendDataBoundItems="True" DataTextField="RazonSocial" DataValueField="CveProveedor" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 350px !important;" ValidationGroup="GrpGuardar">
-                                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                                        </asp:DropDownList>
-                                                    </div>
+                                                    <ADS:Dropdownlost ID="DdlContratista" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"  ></ADS:Dropdownlost>
+                                                  </div>
                                             </div>
 
  
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 811096536..8d67cbbde 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -744,6 +744,8 @@ Partial Class Contratos_ContratoObra
                     TrCliente.Visible = False
                     CargaContratista()
                     DdlContratista.SelectedValue = ObjContratos.CveProveedor.ToString
+                    DdlContratista.SelectedText = ObjContratos.RazonSocial.ToString
+
                 Else
                     cargaClientes()
                     DdlCliente.SelectedValue = ObjContratos.CveCliente.ToString
@@ -1205,8 +1207,8 @@ Partial Class Contratos_ContratoObra
     '    DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
     'End Sub
     Private Sub CargaContratista()
-        DdlContratista.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlContratista.DataBind()
+        DdlContratista.setEsWebService(True)
+        DdlContratista.Attributes.Add("data-metodo", "getproveedores")
     End Sub
 
     'Private Sub CargaVendedores()