From 0f6be73e99686f73ee14c1c7df72e34aebba1e1c Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Mon, 9 Mar 2020 19:31:38 -0700
Subject: [PATCH] -cambios

---
 Acumuladores/RepEntradasUsadosClientes.aspx   |  2 +-
 .../RepEntradasUsadosClientes.aspx.vb         |  3 +-
 App_Code/ClsAcumuladores.vb                   | 37 +++++++++++++++++--
 App_Code/ClsBancos.vb                         |  2 +-
 Bancos/IE.aspx.vb                             |  4 +-
 Compras/Compras.aspx.vb                       | 10 ++---
 Inventarios/RepOcInv.aspx                     |  2 +-
 Inventarios/RepOcInv.aspx.vb                  | 12 ++++--
 Ventas/Ventas.aspx.vb                         |  2 +-
 vwd.webinfo                                   |  2 +
 10 files changed, 56 insertions(+), 20 deletions(-)

diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx
index f1fe85c14..a2dd036e1 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx
@@ -78,7 +78,7 @@
     <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
         <ContentTemplate>
             <asp:GridView runat="server" ID="GvDatos" data-sort="true" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos con los filtros seleccionados"
-                ToolTip="Listado de Movimientos" DataKeyNames="Codigo,Codigo_Clientes,Total,CveCliente,NombreComercial" CssClass="Widthall table table-striped table-hover ScrollAD" GridLines="None">
+                ToolTip="Listado de Movimientos" DataKeyNames="EsDistribuidor,Codigo,Codigo_Clientes,Total,CveCliente,NombreComercial,CvePS" CssClass="Widthall table table-striped table-hover ScrollAD" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText="Tipo" DataField="Codigo" />
                     <asp:BoundField HeaderText="Clientes/Grupos" DataField="Codigo_Clientes" />
diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
index e23ddf41d..e83cfdea4 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
@@ -95,8 +95,9 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
 
         LbCliente.Text = renglon.DataKey("NombreComercial")
         LbTam.Text = renglon.DataKey("Codigo_Clientes")
+        Dim CveAlmacen As Integer = -1
         Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.GetUsadosClasificacionVentas(renglon.DataKey("CveCliente"), renglon.DataKey("Codigo_Clientes"), TxtFechaI.Text, TxtFechaF.Text) Then
+        If ObjAcum.EntradasUsadosClientesDetalleRep(renglon.DataKey("EsDistribuidor"), renglon.DataKey("CveCliente"), renglon.DataKey("CvePS"), TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, CveAlmacen, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             GvVentas.DataSource = ObjAcum.DtResultados
         End If
         ObjAcum.Dispose()
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index 3720d4918..75fc8ce98 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -1011,6 +1011,35 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
+    Public Function EntradasUsadosClientesDetalleRep(EsDistribuidor As Boolean, CveCliente As Integer, CvePS As Integer, FechaInicio As Date, FechaFin As Date, CveAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        'Data = New DataTable
+
+        SqlDataAdapter("PA_Acum_EntradasUsadosClientesDetalleGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@EsDistribuidor", SqlDbType.Bit).Value = If(EsDistribuidor, 1, 0)
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+
+            OnError("Ocurrió un error al consultar los movimientos. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+        End Try
+
+        Return Retorno
+    End Function
+
 
     Public Function GetRepIndicadorDiario(FechaInicio As Date, FechaFin As Date, CveSubProeycto As Integer, CveEmpresa As Integer) As Boolean
 
@@ -1039,15 +1068,15 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
-    Public Function GetUsadosClasificacionVentas(CveCliente As Integer, Codigo As String, FechaInicio As String, FechaFin As String) As Boolean
+    Public Function GetUsadosClasificacionVentas(CveCliente As Integer, CvePS As Integer, FechaInicio As String, FechaFin As String) As Boolean
 
         Dim Retorno As Boolean = False
 
-        SqlDataAdapter("PA_Acum_UsadosClasificacionVentas")
-
+        SqlDataAdapter("PA_Acum_UsadosClasificacionVentas")
+
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
         End With
diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 4dbde281c..d125b8e70 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -245,7 +245,7 @@ Public Class ClsBancos
 
 
 
-    Public Function ExisteConeccion() As Boolean
+    Public Function ExisteConexion() As Boolean
 
         If SqlTransacc.Connection Is Nothing Then
             Return False
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index e56e4f732..6699f469a 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -4808,7 +4808,7 @@ Partial Class Bancos_IE
 
                     If ObjAC IsNot Nothing Then ObjAC.Commit()
 
-                    If Banc.ExisteConeccion Then
+                    If Banc.ExisteConexion Then
                         Banc.Commit()
                         Alert("El documento bancario quedó eliminado.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
                     End If
@@ -4819,7 +4819,7 @@ Partial Class Bancos_IE
 
                     If ObjAC IsNot Nothing Then ObjAC.RollBack()
 
-                    If Banc.ExisteConeccion Then
+                    If Banc.ExisteConexion Then
                         Banc.RollBack()
 
 
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 5558e5e69..c8104569b 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2758,11 +2758,11 @@ Partial Class Compras_Compras
                 'ImgAmort.Attributes.Clear()
                 LbAgregar.Enabled = False
                 TxtSerie.Enabled = False
-                TxtFolio.Enabled = False
-
-                TxtFecha.Enabled = False
-                ImgFecha.Enabled = False
-                CEFecha.Enabled = False
+                TxtFolio.Enabled = False
+
+                TxtFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
+                ImgFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
+                CEFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
 
                 DdlProveedor.Enabled = False
                 DdlProveedorSucursal.Enabled = False
diff --git a/Inventarios/RepOcInv.aspx b/Inventarios/RepOcInv.aspx
index 7a164ccae..b3e143a13 100644
--- a/Inventarios/RepOcInv.aspx
+++ b/Inventarios/RepOcInv.aspx
@@ -40,7 +40,7 @@
                         <div class="row">
                             <div class="col-md-1" style="max-width: 80px">Proveedor</div>
                             <div class="col-md-2">
-                                <asp:DropDownList ID="DdlProveedor" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataValueField="CveProveedor" DataTextField="RazonSocial"></asp:DropDownList>
+                                <ADS:Dropdownlost ID="DdlProveedor" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"  ></ADS:Dropdownlost>
                             </div>
                             <%-- <div class="col-md-1 truncate" style="max-width: 80px">Folio</div>
                     <div class="col-md-1">
diff --git a/Inventarios/RepOcInv.aspx.vb b/Inventarios/RepOcInv.aspx.vb
index d128a943f..8dabef84e 100644
--- a/Inventarios/RepOcInv.aspx.vb
+++ b/Inventarios/RepOcInv.aspx.vb
@@ -39,9 +39,13 @@ Partial Class Inventarios_RepOcInv
         TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
 
         'Llenar dropdownlist de proveedores
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlProveedor.setEsWebService(True)
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedor.SelectedText = "Todos"
+        DdlProveedor.SelectedValue = "-1"
+        'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        'DdlProveedor.DataBind()
+        'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
         DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
@@ -100,7 +104,7 @@ Partial Class Inventarios_RepOcInv
     Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
         If DtOCXSurtir IsNot Nothing Then
             Dim StrFiltro As New StringBuilder
-            If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("<b>Proveedor</b>: {0}", DdlProveedor.SelectedItem.Text)
+            If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("<b>Proveedor</b>: {0}", DdlProveedor.SelectedText)
 
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 130b13970..1c4d38348 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4201,7 +4201,7 @@ Partial Class Ventas
                 DdlUsoCFDI.Enabled = False
                 DdlMetodoPago33.Enabled = False
                 'TxtNumCtaPago.Enabled = False
-                If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Then
+                If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot") Then
                     TxtFechaPago.ReadOnly = Not UsuarioActual.TienePermisoProceso(260)
                     LnkUpdateFechaVencimiento.Visible = UsuarioActual.TienePermisoProceso(260)
                 Else
diff --git a/vwd.webinfo b/vwd.webinfo
index bfda47f43..a280964b8 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -23,6 +23,8 @@
   
     
   
+    
+  
     <Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
   </StartupServices>
 </VisualWebDeveloper>
\ No newline at end of file