2020-08-31 18:15:17 -07:00
parent 281eb3c58a
commit be52c00596
8 changed files with 178 additions and 11 deletions
--- a/.gitignore
+++ b/.gitignore
@@ -274,3 +274,4 @@ __pycache__/
 /App_WebReferences/WSRDLC
 /wwwSIGGIT.rar
 /Front
+/Bin.rar
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -1619,7 +1619,8 @@ Public Class ClsVentas
    End Function

    Public Function GetRepPSEcono(CveSubProyecto As Integer, CvePS As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1, Optional GPO As Integer = -1,
-                                  Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0) As Boolean
+                                  Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0,
+                                  Optional Clasificacion As String = "-1", Optional Linea As String = "-1", Optional Marca As String = "-1") As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_RepPSEconoGet")

@@ -1634,6 +1635,9 @@ Public Class ClsVentas
            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
            .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio
            .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico
+            .Add("@Clasificacion", SqlDbType.VarChar).Value = Clasificacion
+            .Add("@Linea", SqlDbType.VarChar).Value = Linea
+            .Add("@Marca", SqlDbType.VarChar).Value = Marca
        End With

        Try
--- a/Inventarios/RepMaximoMinimo.aspx
+++ b/Inventarios/RepMaximoMinimo.aspx
@@ -67,6 +67,9 @@
    <li>
        <asp:LinkButton ID="LnkPdf" runat="server"><i class="fa fa-ad-pdf"></i> Genera PDF</asp:LinkButton>
    </li>
+    <li>
+        <asp:LinkButton ID="LnkCargarMaximosMinimos" OnClick="LnkCargarMaximosMinimos_Click" runat="server"><i class="fa fa-ad-excel"></i> Cargar Excel</asp:LinkButton>
+    </li>
    <li>
        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Genera Excel</asp:LinkButton>
    </li>
@@ -347,7 +350,74 @@
        </ContentTemplate>
    </asp:UpdatePanel>

+    
+    <div id="DmodalCargarMaximosMinimos" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="Upcargamasiva" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title uppercase" runat="server" style="text-align: left">CARGA MáSIVA DE MAXIMOS Y MINIMOS</h4>
+                    </div>
+                    <div class="modal-body">

+                        <div class="portlet light smmallpadding bordered" id="DownFormato">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-download font-green"></i>
+                                    <span class="caption-subject bold uppercase">Paso 1: Formato</span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding">
+                                <div class="text-center">
+
+                                    <asp:LinkButton ID="LnkDescargarFormato" OnClick="LnkDescargarFormato_Click" CssClass="btn btn-primary" runat="server"> <i class="fa fa-download"></i> Descargar</asp:LinkButton>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="portlet light smmallpadding bordered" id="CargarArchivo">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-download font-green"></i>
+                                    <span class="caption-subject bold uppercase">Paso 2:Cargar Formato</span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="expand" data-original-title="" title=""></a>
+                                </div>
+                                <div class="actions">
+                                    <div class="btn-group">
+                                        
+                                    </div>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding " style="display: none;">
+                                 
+                                <asp:TextBox ID="TxtArchivoSua" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                            </div>
+                        </div>
+
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <asp:LinkButton ID="LnkUpFile" OnClick="LnkUpFile_Click" CssClass="btn btn-primary" runat="server"><i class="fa fa-upload"></i> Subir</asp:LinkButton>
+                                <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
+                </div>
+            </ContentTemplate>
+            <Triggers>
+                <asp:PostBackTrigger ControlID="LnkDescargarFormato" />
+            </Triggers>
+        </asp:UpdatePanel>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
    <script src="/Metronic/assets/global/scripts/datatable.js"></script>
--- a/Inventarios/RepMaximoMinimo.aspx.vb
+++ b/Inventarios/RepMaximoMinimo.aspx.vb
@@ -357,4 +357,15 @@ Partial Class Inventarios_RepMaximoMinimo
    End Sub
 #End Region

+    Protected Sub LnkUpFile_Click(sender As Object, e As EventArgs)
+        RegistraScript("$('#DmodalCargarMaximosMinimos').modal('hide');")
+    End Sub
+    Protected Sub LnkCargarMaximosMinimos_Click(sender As Object, e As EventArgs)
+
+        RegistraScript("$('#DmodalCargarMaximosMinimos').modal();")
+        Upcargamasiva.Update()
+    End Sub
+    Protected Sub LnkDescargarFormato_Click(sender As Object, e As EventArgs)
+
+    End Sub
 End Class
--- a/Ventas/RepPS.aspx
+++ b/Ventas/RepPS.aspx
@@ -134,6 +134,32 @@
                        </div>
                    </div>
                </div>
+                
+                <div class="portlet-body" style="display: none">
+                    <div class="row">
+                        <label class="col-md-1 truncate">Productos Servicios:</label>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:55%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
+                        </div>
+                        
+                        <label class="col-md-1 truncate">Clasificación:</label>
+                        <div class="col-md-2">
+                            <asp:ListBox ID="DdlClasificacion" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Style="width: 100%" data-text="Todos" SelectionMode="Multiple">
+                            </asp:ListBox>
+                        </div>
+                        <label runat="server" id="LblLinea" data-placement="top" class="col-md-1" visible="false">Linea:</label>
+                        <div runat="server" id="DivLinea" class="col-md-2" visible="false">
+                            <asp:ListBox ID="DdlLinea" CssClass="select2me" runat="server" DataTextField="ClasificacionDetalle" DataValueField="CveClasificacionDetalle" Style="width: 100%"  data-text="Todos" SelectionMode="Multiple"></asp:ListBox>
+                        </div>
+                        
+                        <label runat="server" id="LblMarca" title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1" visible="false">Marca:</label>
+                        <div runat="server" id="DivMarca" class="col-md-2" visible="false">
+                            <asp:ListBox ID="DdlMarcaPSDes" CssClass="select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" Style="width: 100%"  data-text="Todos" SelectionMode="Multiple"></asp:ListBox>
+                        </div>
+
+                        
+                    </div>
+                </div>
            </div>
        </ContentTemplate>
    </asp:UpdatePanel>
@@ -142,11 +168,19 @@
            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron productos con los filtros especificados" ToolTip="Listado de Ventas"
                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None" Width="99%">
                <Columns>
-                    <asp:TemplateField HeaderText="Grupo" ItemStyle-Width="30%" ItemStyle-HorizontalAlign="Left">
+                    <asp:TemplateField HeaderText="Grupo"  ItemStyle-HorizontalAlign="Left">
                        <ItemTemplate>
                            <asp:Literal ID="LtlGrupo" runat="server" Text='<%# Eval("GPO") %>'></asp:Literal>
                        </ItemTemplate>
                    </asp:TemplateField>
+                    <asp:TemplateField   ItemStyle-HorizontalAlign="Left">
+                        <HeaderTemplate >
+
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlGrupoPS" runat="server" Text='<%# Eval("PS") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                    <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="10%">
                        <ItemTemplate>
                            <asp:Literal ID="LtlCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:N0}") %>'></asp:Literal>
--- a/Ventas/RepPS.aspx.vb
+++ b/Ventas/RepPS.aspx.vb
@@ -33,6 +33,39 @@ Partial Class Ventas_RepPS

    Private Sub CargaCombos()
        CargaTipoCentroCosto()
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataBind()
+
+        DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+            DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+            DdlPS.SelectedText = ""
+            DdlPS.SelectedValue = "-1"
+        Else
+            DdlPS.ddl.Items.Clear()
+            DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
+            DdlPS.ddl.DataBind()
+            DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        End If
+
+
+        If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then
+            DivMarca.Visible = True
+            LblMarca.Visible = True
+            LblLinea.Visible = True
+            DivLinea.Visible = True
+
+            Using ObjMarcas As New ClsProductosServicios
+                If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
+                    DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
+                    DdlMarcaPSDes.DataBind()
+                End If
+            End Using
+        End If
+
+        DdlLinea.DataSource = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa)
+        DdlLinea.DataBind()
+        'DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1"))
    End Sub

    Private Sub CargaTipoCentroCosto()
@@ -70,9 +103,12 @@ Partial Class Ventas_RepPS

    Private Sub CargaDatos()

+        Dim Clasificacion As String = If(DdlClasificacion.GetSelectedValuesM = "", "-1", DdlClasificacion.GetSelectedValuesM)
+        Dim Linea As String = If(DdlLinea.GetSelectedValuesM = "", "-1", DdlLinea.GetSelectedValuesM)
+        Dim Marca As String = If(DdlMarcaPSDes.GetSelectedValuesM = "", "-1", DdlMarcaPSDes.GetSelectedValuesM)
        Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero()
        Dim Grupo As Integer = DdlGrupo.SelectedValue.ToEntero()
-        Dim CvePS As Integer = -1
+        Dim CvePS As Integer = DdlPS.SelectedValue.ToEntero()
        Dim CveMoneda As Integer = -1
        Dim TC As Integer = 1
        Dim TCEspecifico As Decimal = -1
@@ -81,7 +117,7 @@ Partial Class Ventas_RepPS
        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)

        Dim ObjVentas As New ClsVentas()
-        If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico) Then
+        If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico, Clasificacion:=Clasificacion, Linea:=Linea, Marca:=Marca) Then
            DtReporte = ObjVentas.DtResultados.Copy()
            GvDatos.DataSource = DtReporte
        Else
@@ -97,14 +133,25 @@ Partial Class Ventas_RepPS
        If e.Row.RowType = DataControlRowType.DataRow Then
            Select Case e.Row.DBCampo("Orden").ToString.ToEntero()
                Case 4
+
+                    e.Row.Cells(0).ColumnSpan = 2
+                    e.Row.Cells(1).Visible = False
                    e.Row.CssClass = "Totales"
                Case 3
+                    e.Row.Cells(0).ColumnSpan = 2
+                    e.Row.Cells(1).Visible = False
                    e.Row.CssClass = "SubTotales2"
                Case 2
+                    e.Row.Cells(0).ColumnSpan = 2
+                    e.Row.Cells(1).Visible = False
                    e.Row.CssClass = "SubTotales"
                Case 1
+                    e.Row.Cells(0).ColumnSpan = 2
+                    e.Row.Cells(1).Visible = False
                    e.Row.CssClass = "SubTotalesB"
                Case 0
+                    e.Row.Cells(0).ColumnSpan = 1
+                    e.Row.Cells(1).Visible = True
                    e.Row.CssClass = "Texto"
            End Select
        End If
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -295,12 +295,12 @@ Partial Class Ventas_RepProductosServicios
            DivMarca.Visible = True
            LblMarca.Visible = True

-            Dim ObjMarcas As New ClsProductosServicios
-            If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
-                DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
-                ObjMarcas.Dispose()
-                DdlMarcaPSDes.DataBind()
-            End If
+            Using ObjMarcas As New ClsProductosServicios
+                If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
+                    DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
+                    DdlMarcaPSDes.DataBind()
+                End If
+            End Using
        End If
        DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1"))
    End Sub
--- a/packages.config
+++ b/packages.config
@@ -26,7 +26,7 @@
  <package id="Microsoft.Owin.Security.Jwt" version="4.1.0" targetFramework="net45" />
  <package id="Microsoft.Owin.Security.OAuth" version="4.1.0" targetFramework="net45" />
  <package id="Microsoft.ReportingServices.ReportViewerControl.WebForms" version="150.1358.0" targetFramework="net45" />
-  <package id="Microsoft.ReportViewer.2015.Runtime" version="12.0.2.2402" targetFramework="net4" />
+  <package id="Microsoft.ReportViewer.2015.Runtime" version="12.0.2.2402" targetFramework="net45" />
  <package id="Microsoft.ReportViewer.Common.v12" version="12.0.0.1" targetFramework="net45" />
  <package id="Microsoft.ReportViewer.WebForms.v12" version="12.0.0.0" targetFramework="net45" />
  <package id="Microsoft.SqlServer.Types" version="14.0.1016.290" targetFramework="net45" />