diff --git a/.gitignore b/.gitignore index 609c288bd..9f8cee2fb 100644 --- a/.gitignore +++ b/.gitignore @@ -274,3 +274,4 @@ __pycache__/ /App_WebReferences/WSRDLC /wwwSIGGIT.rar /Front +/Bin.rar diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 3e1fabf64..0ca3ae809 100644 --- 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 diff --git a/Inventarios/RepMaximoMinimo.aspx b/Inventarios/RepMaximoMinimo.aspx index 364c9d148..1f6a018b9 100644 --- a/Inventarios/RepMaximoMinimo.aspx +++ b/Inventarios/RepMaximoMinimo.aspx @@ -67,6 +67,9 @@
  • Genera PDF
    • +
  • + Cargar Excel +
  • Genera Excel
    • @@ -347,7 +350,74 @@ + + diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb index d113b1b1c..3d72f3b1c 100644 --- 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 diff --git a/Ventas/RepPS.aspx b/Ventas/RepPS.aspx index ccf584a7b..8cf13668e 100644 --- a/Ventas/RepPS.aspx +++ b/Ventas/RepPS.aspx @@ -134,6 +134,32 @@ + + @@ -142,11 +168,19 @@ - + + + + + + + + + diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb index fcef61fbb..00101529a 100644 --- 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 diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index 6f25b6b3a..961687d51 100644 --- 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 diff --git a/packages.config b/packages.config index e62d14c90..88f1d754c 100644 --- a/packages.config +++ b/packages.config @@ -26,7 +26,7 @@ - +