-cambios

2020-03-09 19:31:38 -07:00
parent ecd290189b
commit 0f6be73e99
10 changed files with 56 additions and 20 deletions
--- 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" />
--- 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()
--- 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
--- 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
--- 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()


--- 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
--- 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">
--- 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))
--- 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
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -23,6 +23,8 @@
  
    
  
+    
+  
    <Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
  </StartupServices>
 </VisualWebDeveloper>