diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index abb33f395..4ca46507c 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -618,29 +618,7 @@ Public Class ClsCompras Return Retorno End Function - Public Function GetRepPromociones(CveProveedor As Integer, CveTipoGasto As Integer, FechaI As Date, FechaF As Date, Tipo As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_PromocionesRepGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@Tipo", SqlDbType.Int).Value = Tipo - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Promociones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function 'Reporte de Compras @@ -2130,29 +2108,6 @@ Public Class ClsCompras #End Region -#Region " REPORTE FACTURAS PENDIENTES POR AUTORIZAR " - - Public Function GetFacturasPendientesDeAutorizar(CveEmpresa As Integer, FechaInc As Date, FechaFin As Date) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_FacturasPendientesAu") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al consultar las facturas pendientes de autorizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - -#End Region #Region "Reporte Evaluación proveedores " @@ -2444,31 +2399,6 @@ Public Class ClsCompras End Function - Public Function GetComplementoTrasladoRep(CveEmpresa As Integer, CveProveedor As Integer, CveTipoProveedor As Integer, FechaI As Date, FechaF As Date, CveUsuario As Integer, CveUsuarioRegistro As Integer, CveSubProyecto As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComplementoTrasladoRepGet") - With SqlAdapter.SelectCommand.Parameters - - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveUsuarioRegistro", SqlDbType.Int).Value = CveUsuarioRegistro - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - - - - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error obtener las vinculaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function Public Function AddVincularPago(CveFactura As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 65ef143b6..4267aa129 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4730,7 +4730,6 @@ Public Class ClsPaginas PaginaDict.Add("/Compras/ReembolsosComprobaciones.aspx".ToUpper(), 350) PaginaDict.Add("/Compras/RepProductosServicios.aspx".ToUpper(), 97) - PaginaDict.Add("/Compras/PopUpFacturasPendientesAutorizar.aspx".ToUpper(), 559) PaginaDict.Add("/Compras/RepEvaluacionProveedor.aspx".ToUpper(), 564) PaginaDict.Add("/Compras/RepRembolsoComprobaciones.aspx".ToUpper(), 591) PaginaDict.Add("/Compras/ComprasO.aspx".ToUpper(), -1) @@ -4743,7 +4742,7 @@ Public Class ClsPaginas PaginaDict.Add("/Compras/RepComprasPersonal.aspx".ToUpper(), 637) PaginaDict.Add("/Compras/RepComprasPersonalDetalle.aspx".ToUpper(), 637) PaginaDict.Add("/Compras/RepComplementoPago.aspx".ToUpper(), 657) - PaginaDict.Add("/Compras/RepPromociones.aspx".ToUpper(), 638) + PaginaDict.Add("/Compras/RepProductosServiciosPeriodo.aspx".ToUpper(), 866) PaginaDict.Add("/Compras/RepGastosFijos.aspx".ToUpper(), 661) PaginaDict.Add("/Compras/RepPagado.aspx".ToUpper(), 872) @@ -4768,7 +4767,6 @@ Public Class ClsPaginas PaginaDict.Add("/OI/CircularDetalleB.aspx".ToUpper(), 757) PaginaDict.Add("/Compras/CatTipoGasto.aspx".ToUpper(), 759) - PaginaDict.Add("/Compras/RepCartaPorteTraslados.aspx".ToUpper(), 1323) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index f590ed159..b92d90ec3 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5602,6 +5602,36 @@ Public Class ClsVentas Return Retorno + End Function + + + Public Function RepLineasAdicionales(Agrupador As Integer, CveLineaAdicional As Integer, CveCliente As Integer, CveProveedor As Integer, TipoLinea As Integer, CveMoneda As Integer, + FechaI As Date, FechaF As Date, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_LineasAdicionalesRep") + With SqlAdapter.SelectCommand.Parameters + + .Add("@Agrupador", SqlDbType.Int).Value = Agrupador + .Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@TipoLinea", SqlDbType.Int).Value = TipoLinea + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error obtener el reporte de lineas adicionales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function Public Function GetLineasAdicionalesSaldo(CveLineaAdicional As Integer, CveCliente As Integer, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Optional ConSaldo As Integer = -1, Optional FechaVencimientoConsulta As DateTime = MaxFecha) As Boolean diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 7e7cf01a4..c6825298b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -744,6 +744,10 @@ Partial Class Compras_Compras End Property Private Property CveCompraRefacturacion As Integer Get + If ViewState("CveCompraRefacturacion") Is Nothing Then + ViewState("CveCompraRefacturacion") = -1 + End If + Return ViewState("CveCompraRefacturacion").ToString.ToEntero End Get Set(value As Integer) @@ -4305,10 +4309,18 @@ Partial Class Compras_Compras x = x + 1 End If Next - If x = 0 AndAlso GvInv.Rows.Count > 0 Then - Alert("Favor de seleccionar un producto en la pestaña de almacen", TipoMensaje.MsgAdvertencia) - Exit Sub + + If Not (CveCompraRefacturacion > 0 AndAlso ChkRefacturacionConAlmacen.Checked) Then + + If x = 0 AndAlso GvInv.Rows.Count > 0 Then + Alert("Favor de seleccionar un producto en la pestaña de almacen", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + + + End If End If diff --git a/Compras/PopUpFacturasPendientesAutorizar.aspx b/Compras/PopUpFacturasPendientesAutorizar.aspx deleted file mode 100644 index 7f7beadc9..000000000 --- a/Compras/PopUpFacturasPendientesAutorizar.aspx +++ /dev/null @@ -1,145 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PopUpFacturasPendientesAutorizar.aspx.vb" Inherits="Compras_PopUpFacturasPendientesAutorizar" %> - - - - - - - - - Facturas Pendientes de Autorizar - - - - - - - - - <%--border="1" rules="all" style="border-collapse: collapse;"--%> - - <%-- - - --%> - - <%-- - - - --%> - <%-- --%> - -
Filtros para búsqueda
Fecha Inicial: -
- - - - -
- - - - - - - 		Fecha Final: -
- - - - -
- - - - - - -
- - - - - -
- - - - - - - -
-
-
Número de registros encontrados:
-
- - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
-
-
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - diff --git a/Compras/PopUpFacturasPendientesAutorizar.aspx.vb b/Compras/PopUpFacturasPendientesAutorizar.aspx.vb deleted file mode 100644 index 8b9005029..000000000 --- a/Compras/PopUpFacturasPendientesAutorizar.aspx.vb +++ /dev/null @@ -1,85 +0,0 @@ -Imports Extensiones -Imports System.Data - -Partial Class Compras_PopUpFacturasPendientesAutorizar - Inherits ClsPaginas - - Private Sub Compras_PopUpFacturasPendientesAutorizar_Load(sender As Object, e As EventArgs) Handles Me.Load - - CType(Me.Master, BaseMasterPage).EsPopup = True - CType(Me.Master, BaseMasterPage).PopupWidth = 750 - - - If Not IsPostBack Then - Dim dTime As Date = Now - ' txtFechaF.Text = dTime.ToString("dd/MM/yyyy") - dTime = dTime.AddDays(-30) - ' txtFechaI.Text = dTime.ToString("dd/MM/yyyy") - cargadatos() - End If - - End Sub - - Private Sub cargadatos() - Dim objCompras As New ClsCompras - - Dim dTime As Date = Now - - Dim FechaInc As Date = dTime - dTime = dTime.AddDays(-30) - Dim FechaFin As Date = dTime - objCompras.GetFacturasPendientesDeAutorizar(UsuarioActual.Empresa.CveEmpresa, FechaInc, FechaFin) - - If objCompras.DtResultados.Rows.Count > 0 Then - TblBusqueda.Visible = True - Else - TblBusqueda.Visible = True - End If - - - LtlTotalRegistros.Text = objCompras.DtResultados.Rows.Count.ToString - - GV.DataSource = objCompras.DtResultados - GV.DataBind() - UPDatos.Update() - - End Sub - - 'Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs) Handles BtnBuscar.Click - ' cargadatos() - 'End Sub - - Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound - - - If e.Row.RowType = DataControlRowType.DataRow Then - If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then - - Dim saldo As Double = e.Row.DBCampo("Saldo").Trim.ToDecimal - - 'ostBackUrl ="" - ' e.Row.FCLinkButton("lnkSerieFolio").PostBackUrl = "" & e.Row.DBCampo("CveCompra") - ' e.Row.FCLinkButton("lnkSerieFolio").Text = e.Row.DBCampo("SerieFolio") - - Dim Liga As String = String.Empty - - Liga = String.Format("", e.Row.DBCampo("CveCompra")) - - e.Row.FCLabel("lblSerieFolio").Text = String.Format("
{0}{1}
", Liga, e.Row.DBCampo("SerieFolio")) - - - e.Row.FCLabel("LblSaldo").Font.Bold = True - e.Row.FCLabel("LblSaldo").Text = "$" & saldo.ToString("###,###,###.00") & " " & e.Row.DBCampo("Abreviatura").ToString & " " - - e.Row.FCLabel("lblFecha").Text = Date.Parse(e.Row.DBCampo("Fecha").ToString).ToString("dd/MM/yyyy") - e.Row.FCLabel("lblFechav").Text = Date.Parse(e.Row.DBCampo("Fechav").ToString).ToString("dd/MM/yyyy") - - - - - End If - End If - - - End Sub -End Class diff --git a/Compras/RepCartaPorteTraslados.aspx b/Compras/RepCartaPorteTraslados.aspx deleted file mode 100644 index ee9712803..000000000 --- a/Compras/RepCartaPorteTraslados.aspx +++ /dev/null @@ -1,142 +0,0 @@ -<%@ Page Title="Rep. Carta Porte Traslados" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepCartaPorteTraslados.aspx.vb" Inherits="Compras_RepCartaPorteTraslados" %> - - - - - - - - Rep. Carta Porte Traslados - - - - - - - - - - - -
  • - Excel -
    • -     - - - -     -     -     -     - - - - - - - -
    -
    -
    - - "> - -
    -
    -
    -
    Proveedor:
    -
    - -
    -
    Fecha Inicio:
    -
    -
    - - - - - - - - -
    -
    -
    Fecha Fin:
    -
    -
    - - - - - - - - -
    -
    - - SubProyecto: -
    - - -
    - -
    -
    -
    -
    > -
    - -
    - - - - - -
    - - -
    - - -
    -
    -
    -
    -     -     - - - - - - - - -
    CompraTraslado
    - - - - - - - - - - -     -     - - -     - - - diff --git a/Compras/RepCartaPorteTraslados.aspx.vb b/Compras/RepCartaPorteTraslados.aspx.vb deleted file mode 100644 index 6c883a8eb..000000000 --- a/Compras/RepCartaPorteTraslados.aspx.vb +++ /dev/null @@ -1,117 +0,0 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports Extensiones -Imports Microsoft.Reporting.WebForms - -Partial Class Compras_RepCartaPorteTraslados - Inherits ClsPaginas - - 'Private Property DTComplemntos As DataTable - ' Get - ' If ViewState("DTComplemntos") Is Nothing Then - ' Return New DataTable - ' Else - ' Return DirectCast(ViewState("DTComplemntos"), DataTable) - ' End If - ' End Get - ' Set(value As DataTable) - ' ViewState("DTComplemntos") = value - ' End Set - 'End Property - - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not IsPostBack Then - - InicializaValores() - - End If - End Sub - -#Region " INICIALIZA VALORES " - Private Sub InicializaValores() - - TxtFiltrosFechaInicio.Text = Now.FirstDayOfMonth.ToShortDateString - TxtFiltrosFechaFin.Text = Now.ToShortDateString - - DdlProveedores.setEsWebService(True) - DdlProveedores.Attributes.Add("data-metodo", "getproveedores") - - 'DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - 'DdlProveedores.DataBind() - 'DdlProveedores.Items.Insert(0, New ListItem("Todos", "-1")) - - 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) - 'DdlSubProyecto.DataBind() - 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - - CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto) - - DdlUsuarioRegistra.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) - DdlUsuarioRegistra.DataBind() - DdlUsuarioRegistra.Items.Insert(0, New ListItem("Todos", "-1")) - - UpFiltros.Update() - End Sub -#End Region - - -#Region " CARGA DATOS " - Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs) - CargaDatos() - End Sub - Private Sub CargaDatos() - - LnkExcel.Visible = False - - Dim CveProveedor As Integer = If(DdlProveedores.SelectedValue.ToEntero = 0, -1, DdlProveedores.SelectedValue.ToEntero) - Dim CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero - Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha) - Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha) - Dim Count As Integer = 0 - - Dim ObjCompras As New ClsCompras - If ObjCompras.GetComplementoTrasladoRep(UsuarioActual.CveEmpresa, CveProveedor, CveTipoProveedor, FechaInicio, FechaFin, UsuarioActual.CveUsuario, DdlUsuarioRegistra.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero) Then - GvDatos.DataSource = ObjCompras.DtResultados - - If ObjCompras.DtResultados.Rows.Count > 0 Then - LnkExcel.Visible = True - End If - Else - GvDatos.DataSource = Nothing - End If - - ObjCompras.Dispose() - - GvDatos.DataBind() - - UpAcciones.Update() - UpDatos.Update() - - - End Sub - Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - - End If - End Sub -#End Region - - - - -#Region "IMPRESION" - - Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) - GeneraImpresion("Excel") - End Sub - - Private Sub GeneraImpresion(Optional Formato As String = "PDF") - - GvDatos.ExportToExcel2("RepCartaPorteTraslados.xlsx") - - End Sub -#End Region -End Class diff --git a/Compras/RepPromociones.aspx b/Compras/RepPromociones.aspx deleted file mode 100644 index 4485f0c48..000000000 --- a/Compras/RepPromociones.aspx +++ /dev/null @@ -1,115 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepPromociones.aspx.vb" Inherits="Compras_RepPromociones" %> - - - - - - - - Reporte de Promociones - - - - - - - - - - -
    -
    -
    - -
    -
    -
    -
    Proveedor:
    -
    - - - -
    -
    Tipo:
    -
    - - - - - -
    - <%--
    Tipo Gasto:
    -
    - - - -
    --%> -
    Fecha Inicio:
    -
    -
    - - - - - - - - -
    -
    -
    Fecha Fin:
    -
    -
    - - - - - - - - -
    -
    -
    -
    -
    -
    -     -     - - - -
    -
    - - - - - -
    FacturaOC
    - - - - - - - - - - - -
    -
    -     -     - - -     - - - diff --git a/Compras/RepPromociones.aspx.vb b/Compras/RepPromociones.aspx.vb deleted file mode 100644 index 6de223eaf..000000000 --- a/Compras/RepPromociones.aspx.vb +++ /dev/null @@ -1,51 +0,0 @@ -Option Explicit On -Option Strict On - -Imports Extensiones -Partial Class Compras_RepPromociones - Inherits ClsPaginas - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not IsPostBack Then - - InicializaValores() - - End If - End Sub - - Private Sub InicializaValores() - - TxtFiltrosFechaInicio.Text = $"01/01/{Now.Year}" - TxtFiltrosFechaFin.Text = $"{Now.Day}/{Now.Month}/{Now.Year}" - - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedor.DataBind() - - 'DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) - 'DdlTipoGasto.DataBind() - - UpFiltros.Update() - End Sub - - - - Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs) Handles BtnConsultarFiltros.Click - CargaDatos() - End Sub - Private Sub CargaDatos() - Dim CveProveedor = DdlProveedor.SelectedValue.ToEntero - Dim CveTipoGasto = -1 'DdlTipoGasto.SelectedValue.ToEntero - Dim Tipo = DdlTipo.SelectedValue.ToEntero - Dim FechaI = TxtFiltrosFechaInicio.Text.ToDate - Dim FechaF = TxtFiltrosFechaFin.Text.ToDate - - Dim ObjCompras As New ClsCompras - If ObjCompras.GetRepPromociones(CveProveedor, CveTipoGasto, FechaI, FechaF, Tipo, UsuarioActual.CveEmpresa) Then - GvDatos.DataSource = ObjCompras.DtResultados - End If - ObjCompras.Dispose() - GvDatos.DataBind() - UpDatos.Update() - - End Sub -End Class diff --git a/Sistemas/CatEmpresas.aspx.vb b/Sistemas/CatEmpresas.aspx.vb index bc0e48e9e..f06c696d9 100644 --- a/Sistemas/CatEmpresas.aspx.vb +++ b/Sistemas/CatEmpresas.aspx.vb @@ -119,9 +119,13 @@ Partial Class Sistemas_CatEmpresas Private Sub CargaGrid(Orden As String) + + + Dim CveUsaurioConsulta As Integer = If(UsuarioActual.CveRol = 1, -1, UsuarioActual.CveUsuario) + Using ObjEmpresas As New ClsSisEmpresas() - If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1", UsuarioActual.CveUsuario) Then + If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1", CveUsaurioConsulta) Then GvDatos.DataSource = ObjEmpresas.DtResultados Else GvDatos.DataSource = Nothing diff --git a/Ventas/CatClientes.aspx b/Ventas/CatClientes.aspx index bd1869aa2..fb29a26ab 100644 --- a/Ventas/CatClientes.aspx +++ b/Ventas/CatClientes.aspx @@ -178,7 +178,9 @@
    - + @@ -348,6 +350,14 @@ + + F Limite Crédito + + + + + + @@ -374,8 +384,6 @@ - - @@ -386,8 +394,6 @@ - - @@ -398,8 +404,7 @@ - - + @@ -410,8 +415,7 @@ - - + @@ -422,8 +426,7 @@ - - + @@ -434,33 +437,33 @@ - - + - - <%----%> - - + + - - + + + + + + + - -
    diff --git a/Ventas/CatClientes.aspx.vb b/Ventas/CatClientes.aspx.vb index 51f83bd8f..4dfd6a1d8 100644 --- a/Ventas/CatClientes.aspx.vb +++ b/Ventas/CatClientes.aspx.vb @@ -44,32 +44,37 @@ Partial Class CatClientes End If End Sub - Public Sub CargaDatos(Optional Nombre As String = "-1", Optional RFC As String = "-1") + Public Sub CargaDatos() Dim ObjClientes As New ClsClientes + Dim Nombre, RFC As String + Nombre = "-1" + RFC = "-1" - If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PermiteCreditoFiltro:=If(ChkPermiteCredito.Checked, 1, -1)) Then + If TxtNombre.Text.Trim <> String.Empty Then Nombre = TxtNombre.Text.Trim - DTDatos = ObjClientes.DtResultados - ObjClientes.Dispose() + If TxtRFC.Text.Trim <> String.Empty Then RFC = TxtRFC.Text.Trim - 'ViewState("DTCliente") = DTDatos - If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 Then - DTDatos = DTDatos.FiltraParametros("CveCliente IN (10450, 10460, 10458)") - ElseIf UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 21 Then - DTDatos = DTDatos.FiltraParametros("CveCliente IN (27448)") + If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PermiteCreditoFiltro:=If(ChkPermiteCredito.Checked, 1, -1)) Then + If ObjClientes.DtResultados.Rows.Count > 0 Then + DTDatos = ObjClientes.DtResultados + Else + DTDatos = Nothing + Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia) End If - Else - Me.GvDatos.DataSource = Nothing End If + ObjClientes.Dispose() + If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) Else CargaGrid("") End If + UPDatos.Update() + End Sub @@ -113,34 +118,7 @@ Partial Class CatClientes Protected Sub LbFiltrar_Click(sender As Object, e As EventArgs) Handles LbFiltrar.Click - Dim ObjClientes As New ClsClientes - Dim Nombre, RFC As String - Nombre = "-1" - RFC = "-1" - - If TxtNombre.Text.Trim <> String.Empty Then Nombre = TxtNombre.Text.Trim - - If TxtRFC.Text.Trim <> String.Empty Then RFC = TxtRFC.Text.Trim - - If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PermiteCreditoFiltro:=If(ChkPermiteCredito.Checked, 1, -1)) Then - If ObjClientes.DtResultados.Rows.Count > 0 Then - DTDatos = ObjClientes.DtResultados - Else - DTDatos = Nothing - Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia) - End If - End If - - - ObjClientes.Dispose() - - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString()) - Else - CargaGrid("") - End If - - UPDatos.Update() + CargaDatos() End Sub @@ -179,6 +157,10 @@ Partial Class CatClientes GvDatos.Columns(25).Visible = ChkCelular.Checked GvDatos.Columns(26).Visible = ChkCorreoCotizacion.Checked GvDatos.Columns(27).Visible = ChkOtroTelefono.Checked + GvDatos.Columns(28).Visible = chkFechaLimiteCredito.Checked + + + CargaDatos() @@ -256,6 +238,13 @@ Partial Class CatClientes e.Row.FCLiteral("LtlSucursal").Text = "" & e.Row.FCLiteral("LtlSucursal").Text & "" e.Row.FCLiteral("LtlTelefono").Text = "" & e.Row.FCLiteral("LtlTelefono").Text & "" + If e.Row.DataKey("FechaLimiteCredito").ToString.ToDate = MinFecha Then + e.Row.FCLiteral("LtlFechaLimiteCredito").Text = "" + Else + e.Row.FCLiteral("LtlFechaLimiteCredito").Text = e.Row.DataKey("FechaLimiteCredito").ToString.ToDate.ToString("dd/MM/yyyy") + End If + + End If End Sub #End Region @@ -317,39 +306,6 @@ Partial Class CatClientes - 'Protected Sub BtnCorporativo_Click(sender As Object, e As EventArgs) - - ' Dim ObjClientes As New ClsClientes - - ' If ObjClientes.AddCorporativo(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero) Then - ' If ObjClientes.DtResultados.Rows.Count > 0 Then - ' DTDatos = ObjClientes.DtResultados - ' Else - ' DTDatos = Nothing - ' Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia) - ' End If - ' End If - - - ' ObjClientes.Dispose() - - ' If ViewState("Orden").ToString() <> String.Empty Then - ' CargaGrid(ViewState("Orden").ToString()) - ' Else - ' CargaGrid("") - ' End If - - ' UPDatos.Update() - - 'End Sub - - 'Private Sub CargaCorporativo() - - ' DdlCorporativo.DataSource = GlobalDTCorporativo(UsuarioActual.CveEmpresa) - ' DdlCorporativo.DataBind() - ' DdlCorporativo.Items.Insert(0, New ListItem("Selecione", "-1")) - - 'End Sub diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 1726f0ca5..3f02fa021 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -2032,11 +2032,10 @@ - + -   - +   @@ -4502,7 +4501,7 @@ @@ -4513,7 +4512,7 @@ - + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index f2ffa6650..1b8edf730 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1960,6 +1960,10 @@ Partial Class Clientes DtCxCActivas = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento, FechaVencimiento") GvCxC.DataSource = DtCxCActivas 'solo tomo los 10 ultimos mas el totalizador general + + + GvCxC.Columns(6).Visible = If(DtCxCActivas.FiltroPrimeroValor("LineaAdicional", "LEN(TRIM(LineaAdicional)) > 0", "LineaAdicional DESC").Trim.Length > 0, True, False) + Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'") DtHistorialCxC = dt If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then @@ -2988,8 +2992,8 @@ Partial Class Clientes End If e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right + e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(6).ForeColor = Drawing.Color.Red If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxC" Then e.Row.Cells(4).ForeColor = Drawing.Color.Red diff --git a/Ventas/RepLineasAdicionales.aspx b/Ventas/RepLineasAdicionales.aspx index bfe5ef7aa..3b0946c5a 100644 --- a/Ventas/RepLineasAdicionales.aspx +++ b/Ventas/RepLineasAdicionales.aspx @@ -50,13 +50,21 @@
    Estatus:
    -
    +
    - + <%-- --%> +
    +
    Agrupador:
    +
    + + + + +
    @@ -72,63 +80,102 @@ -
    +
    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    + + -
    -
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    - - +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    - +
    + + + AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - - - + + + + + + + + + + + + + + + + + - <%----%> - + + - - - + + + - + -
    - - - - - - -
    -     - +
    +
    + +
    +
    + +
    +
    + +
    +
    +     - - -
    -
    + +
    +
    + + + + + +
    diff --git a/Ventas/RepLineasAdicionales.aspx.cs b/Ventas/RepLineasAdicionales.aspx.cs index 7340a5449..f7ebb7858 100644 --- a/Ventas/RepLineasAdicionales.aspx.cs +++ b/Ventas/RepLineasAdicionales.aspx.cs @@ -70,10 +70,19 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas if (Request["OP"] != null && Request["OP"].ToString() == "PO") { DVProveedor1.Visible = true; - DVProveedor2.Visible = true; - GvLineasAdicionales.Columns[10].Visible = true; + DVProveedor2.Visible = true; TipoLinea = 2; LtlEncabezado.Text = "Reporte PO"; + GvLineasAdicionalesPO.Visible = true; + DvLineaPO.Visible = true; + DVAgrupador1.Visible = true; + DVAgrupador2.Visible = true; + + } + else + { + DvLinea.Visible = true; + GvLineasAdicionales.Visible = true; } //Carga Clientes @@ -97,8 +106,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas DdlClientes.SelectedText = "Todos"; DdlClientes.SelectedValue = "-1"; - //txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString(); - //txtFechaF.Text = DateTime.Now.AddMonths(3).ToString("dd/MM/yyyy"); + } @@ -117,24 +125,61 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas int CveProveedor = DdlProveedor.SelectedValue.ToEntero() > 0 ? DdlProveedor.SelectedValue.ToEntero() : -1; - if(objVentas.GetLineasAdicionales(-1,DdlClientes.SelectedValue.ToEntero(),CveProveedor, TipoLinea, -1, MinFecha, MaxFecha, DdlEstatus.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa)){ - GvLineasAdicionales.DataSource = objVentas.DtResultados; - - if( objVentas.DtResultados.Rows.Count > 0) + if(TipoLinea == 1) + { + if (objVentas.RepLineasAdicionales(-1,-1, DdlClientes.SelectedValue.ToEntero(), CveProveedor, 1, -1, MinFecha, MaxFecha, DdlEstatus.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa)) { - DTDatosGvLineasAdicionales = objVentas.DtResultados; - LnkDescargaExcel.Visible = true; - UpAcciones.Update(); + GvLineasAdicionales.DataSource = objVentas.DtResultados; + + if (objVentas.DtResultados.Rows.Count > 0) + { + DTDatosGvLineasAdicionales = objVentas.DtResultados; + LnkDescargaExcel.Visible = true; + UpAcciones.Update(); + } + } + else + { + GvLineasAdicionales.DataSource = null; } } else { - GvLineasAdicionales.DataSource = null; + + if (DdlAgrupador.SelectedValue.ToEntero()== 1){ + GvLineasAdicionalesPO.Columns[0].HeaderText = "Comercializador"; + } + else + { + GvLineasAdicionalesPO.Columns[0].HeaderText = "Cliente"; + } + + if (objVentas.RepLineasAdicionales(DdlAgrupador.SelectedValue.ToEntero(), -1, DdlClientes.SelectedValue.ToEntero(), CveProveedor, 2, -1, MinFecha, MaxFecha, DdlEstatus.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa)) + { + GvLineasAdicionalesPO.DataSource = objVentas.DtResultados; + + if (objVentas.DtResultados.Rows.Count > 0) + { + DTDatosGvLineasAdicionales = objVentas.DtResultados; + LnkDescargaExcel.Visible = true; + UpAcciones.Update(); + } + } + else + { + GvLineasAdicionalesPO.DataSource = null; + } + } + + + objVentas.Dispose(); GvLineasAdicionales.DataBind(); + GvLineasAdicionalesPO.DataBind(); + UpLineasAdicionales.Update(); } @@ -276,36 +321,60 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas protected void LnkDescargaExcel_Click(object sender, EventArgs e) { - GridView gvTemp = GvLineasAdicionales; - gvTemp.Columns[8].Visible = false; - gvTemp.ExportToExcelx( TipoLinea == 1 ? "RepLienasAdicionales":"RepPO"); + + if(TipoLinea == 1) + { + GridView gvTemp = GvLineasAdicionales; + gvTemp.ExportToExcelx("RepLienasAdicionales"); + } + else if(TipoLinea == 2) + { + GridView gvTemp = GvLineasAdicionalesPO; + gvTemp.Columns[9].Visible = false; + gvTemp.ExportToExcelx( "RepPO"); + } + + } - protected void GvLineasAdicionales_RowDataBound(object sender, GridViewRowEventArgs e) + + + protected void GvLineasAdicionalesPO_RowDataBound(object sender, GridViewRowEventArgs e) { - if(e.Row.RowType == DataControlRowType.DataRow) + if (e.Row.RowType == DataControlRowType.DataRow) { - if(e.Row.DataKey("CveVenta").ToEntero() > 0) + + LinkButton LnkCambiarEstatus = e.Row.FCLinkButton("LnkCambiarEstatus"); + LinkButton LnkCargarComprobante = e.Row.FCLinkButton("LnkCargarComprobante"); + LinkButton LnkDescargaComprobante = e.Row.FCLinkButton("LnkDescargaComprobante"); + + + if (e.Row.DataKey("CveLineaAdicional").ToEntero() == 0) { - e.Row.FCLinkButton("LnkCambiarEstatus").Visible = true; + e.Row.CssClass = "SubTotales"; + LnkCambiarEstatus.Visible = false; + LnkCargarComprobante.Visible = false; + LnkDescargaComprobante.Visible = false; } - - if (e.Row.DataKey("CveLineaAdicionalEstatus").ToEntero() == 2) + else { - e.Row.FCLinkButton("LnkCargarComprobante").Visible = false; - } - - if (e.Row.DataKey("LineaAdicionalComprobante").Length > 0 && e.Row.DataKey("CveVenta").ToEntero() > 0 ) - { - FileInfo fi = new FileInfo($@"{UsuarioActual.Empresa.Ruta}\LineasAdicionales\{e.Row.DataKey("LineaAdicionalComprobante")}"); - LinkButton LnkDescargaComprobante = e.Row.FCLinkButton("LnkDescargaComprobante"); - - if (fi.Exists) + if (e.Row.DataKey("CveVenta").ToEntero() > 0 && e.Row.DataKey("CveLineaAdicionalEstatus").ToEntero() == 1) { - LnkDescargaComprobante.Visible = true; - ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkDescargaComprobante); - } - } + LnkCambiarEstatus.Visible = true; + LnkCargarComprobante.Visible = true; + } + + if (e.Row.DataKey("LineaAdicionalComprobante").Length > 0 && e.Row.DataKey("CveVenta").ToEntero() > 0) + { + FileInfo fi = new FileInfo($@"{UsuarioActual.Empresa.Ruta}\LineasAdicionales\{e.Row.DataKey("LineaAdicionalComprobante")}"); + + if (fi.Exists) + { + LnkDescargaComprobante.Visible = true; + ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkDescargaComprobante); + } + } + } } } @@ -327,30 +396,28 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas } } - protected void GvLineasAdicionales_RowCommand(object sender, GridViewCommandEventArgs e) + protected void GvLineasAdicionalesPO_RowCommand(object sender, GridViewCommandEventArgs e) { - - GridViewRow GvRow = (GridViewRow)((LinkButton)e.CommandSource).NamingContainer; - int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToString().ToEntero(); - int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero(); - - bool errorCambioEstatus = false; - int cveestatus = e.CommandArgument.ToEntero() + 2; //pasar al siguiente estatus - - ClsVentas objVentas = new ClsVentas(); - - if (!objVentas.UpdateLineasAdicionales(CveLineaAdicionalActualzarEstatus, "-1", -1, -1, -1, -1, -1, MinFecha, 100, -1, UsuarioActual.CveEmpresa, CveVenta: CveVenta, CveLineaAdicionalEstatus: cveestatus)) + if (e.CommandName == "Estatus") { - errorCambioEstatus = true; + GridViewRow GvRow = (GridViewRow)((LinkButton)e.CommandSource).NamingContainer; + int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToString().ToEntero(); + int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero(); + + bool errorCambioEstatus = false; + //int cveestatus = e.CommandArgument.ToEntero() + 2; //pasar al siguiente estatus + + ClsVentas objVentas = new ClsVentas(); + + if (!objVentas.UpdateLineasAdicionales(CveLineaAdicionalActualzarEstatus, "-1", -1, -1, -1, -1, -1, MinFecha, 100, -1, UsuarioActual.CveEmpresa, CveVenta: CveVenta, CveLineaAdicionalEstatus: 2)) + { + errorCambioEstatus = true; + } + objVentas.Dispose(); + if (!errorCambioEstatus) + { + CargaDatos(); + } } - - - objVentas.Dispose(); - if (!errorCambioEstatus) - { - CargaDatos(); - } - - } } \ No newline at end of file