-cambios

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" />

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()

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

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

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()
 
 

Compras/Compras.aspx.vb

@@ -2758,11 +2758,11 @@ Partial Class Compras_Compras
                 'ImgAmort.Attributes.Clear()
                 LbAgregar.Enabled = False
                 TxtSerie.Enabled = False
-                TxtFolio.Enabled = False
+                TxtFolio.Enabled = False
-
+
-                TxtFecha.Enabled = False
+                TxtFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
-                ImgFecha.Enabled = False
+                ImgFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
-                CEFecha.Enabled = False
+                CEFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
 
                 DdlProveedor.Enabled = False
                 DdlProveedorSucursal.Enabled = False

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">

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.setEsWebService(True)
-        DdlProveedor.DataBind()
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        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))

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

vwd.webinfo

@@ -23,6 +23,8 @@
   
     
   
+    
+  
     <Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
   </StartupServices>
 </VisualWebDeveloper>