diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index c48d73aee..68de58744 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -521,6 +521,27 @@ Public Class ClsMovimientos OnError("Ocurrió un error al consultar los Anticipos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + Return Retorno + End Function + + Public Function GetAnticiposNCIxCAutorizaciones(CveCliente As Integer, CveEmpresa As Integer, FechaI As DateTime, FechaF As DateTime) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClienteAnticiposNCIxCAutorizaciones") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.DateTime).Value = FechaI + .Add("@FechaF", SqlDbType.DateTime).Value = FechaF + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al consultar los autorizaciones de anticipos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function Public Function GetRemisionesNCCliente(CveCliente As Integer, MostarDetalle As Boolean, Optional CveMoneda As Integer = -1, Optional CveClienteSucursal As Integer = -1) As Boolean diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 19a737a7f..622e12946 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -2241,7 +2241,7 @@ Public Class ClsOC #End Region #Region " OC X VINCULAR COMPRA " - Public Function GetPendietePorSurtirOC(FechaI As String, FechaF As String, CveProveedor As Integer, Folio As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveEmpresa As Integer, Optional CveOC As Integer = -1) As Boolean + Public Function GetPendietePorSurtirOC(FechaI As String, FechaF As String, CveProveedor As Integer, Folio As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveEmpresa As Integer, Optional CveOC As Integer = -1, Optional Gpo As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_ComprasPendientesPorSurtirGet") @@ -2255,6 +2255,7 @@ Public Class ClsOC .Add("@FechaF", SqlDbType.VarChar).Value = FechaF .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveOC", SqlDbType.Int).Value = CveOC + .Add("@Gpo", SqlDbType.Int).Value = Gpo End With Try diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 18be4490a..837f097a5 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -602,7 +602,7 @@ Public Class ClsVentas Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Decimal = -1, Optional RetISR As Decimal = -1, Optional Kilometraje As Decimal = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1, Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional FechaParaSurtir As DateTime = MinFecha, - Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveCondicionEntrega As Integer = -1, Optional FolioRemision As String = "-1") As Boolean + Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveCondicionEntrega As Integer = -1, Optional FolioRemision As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -643,6 +643,7 @@ Public Class ClsVentas .Add("@Episodio", SqlDbType.VarChar).Value = Episodio .Add("@CveCondicionEntrega", SqlDbType.Int).Value = CveCondicionEntrega .Add("@FolioRemision", SqlDbType.VarChar).Value = FolioRemision + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico End With Try @@ -657,7 +658,7 @@ Public Class ClsVentas Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String, Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, - Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean + Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasObservacionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -678,6 +679,8 @@ Public Class ClsVentas .Add("@FechaParaSurtir", SqlDbType.DateTime).Value = FechaParaSurtir .Add("@Paciente", SqlDbType.VarChar).Value = Paciente .Add("@Episodio", SqlDbType.VarChar).Value = Episodio + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + End With Try @@ -835,12 +838,13 @@ Public Class ClsVentas Return Retorno End Function - Public Function UpdateFechaVencimientoVenta(CveVenta As Integer, FechaVencimiento As Date) As Boolean + Public Function UpdateFechaVencimientoVenta(CveVenta As Integer, FechaVencimiento As Date, CveUsuarioModifico As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasFechaVencimientoUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 70b3e713d..633720008 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3069,7 +3069,7 @@ Namespace Modelos Try Dim AplicaCancelacionConPagos As Boolean = (CancelacionPagos = OpcionesCancelacionPagos.ConPagos_CancelarIE OrElse CancelacionPagos = OpcionesCancelacionPagos.ConPagos_GenerarIxC) - If ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso AplicaCancelacionConPagos AndAlso ValorMultiplicador = -1 Then + If ObjFactura.TipoDocto.Contiene("Ing", "Rem", "Ant") AndAlso AplicaCancelacionConPagos AndAlso ValorMultiplicador = -1 Then Dim DtPagosVenta As DataTable = Nothing If ObjClientes IsNot Nothing Then diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index e060b3de8..ac7b0420a 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -512,40 +512,46 @@ Partial Class Bancos_DepositosCaja If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then - Dim ObjMovtos As New ClsMovimientos() - Dim FechaI, FechaF As Date - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha).AddDays(1) + If DdlTipoDeposito.SelectedValue <> "8" Then + Dim ObjMovtos As New ClsMovimientos() + Dim FechaI, FechaF As Date + FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) + FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha).AddDays(1) - Dim CveSubProyecto As Integer = -1 + Dim CveSubProyecto As Integer = -1 - If DdlSubProyectos.SelectedValue.ToEntero > 0 Then - CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero - End If - - Dim CveSubProyectoCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero() - - If CveSubProyectoCuenta > 0 Then - CveSubProyecto = CveSubProyectoCuenta - End If - - If ObjMovtos.GetRemisionesCobranza(UsuarioActual.CveEmpresa, CveSubProyecto, FechaI, FechaF, UsuarioActual.CveUsuario) Then - Dim dtt As DataTable = ObjMovtos.DtResultados.FiltraParametros($"CveVenta > 0 AND (CveUsuarioCobranza IS NULL OR CveUsuarioCobranza = {UsuarioActual.CveUsuario}) AND TipoDocto IN ('Ing','Rem') AND RemisionEspecial = 0") - 'Dim Dtta As DataTable = dtt.FiltraParametros($"CveUsuarioCobranza = {UsuarioActual.CveUsuario} ") - 'If Dtta IsNot Nothing AndAlso Dtta.Rows.Count > 0 Then dtt = Dtta - - If dtt.Rows.Count = 0 Then - Respuesta = True - Else - Respuesta = False - Alert("No se puede realizar el depósito, ya que hay cobros pendientes por aplicar.", TipoMensaje.MsgAdvertencia) + If DdlSubProyectos.SelectedValue.ToEntero > 0 Then + CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero End If + Dim CveSubProyectoCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero() + + If CveSubProyectoCuenta > 0 Then + CveSubProyecto = CveSubProyectoCuenta + End If + + If ObjMovtos.GetRemisionesCobranza(UsuarioActual.CveEmpresa, CveSubProyecto, FechaI, FechaF, UsuarioActual.CveUsuario) Then + Dim dtt As DataTable = ObjMovtos.DtResultados.FiltraParametros($"CveVenta > 0 AND (CveUsuarioCobranza IS NULL OR CveUsuarioCobranza = {UsuarioActual.CveUsuario}) AND TipoDocto IN ('Ing','Rem') AND RemisionEspecial = 0") + 'Dim Dtta As DataTable = dtt.FiltraParametros($"CveUsuarioCobranza = {UsuarioActual.CveUsuario} ") + 'If Dtta IsNot Nothing AndAlso Dtta.Rows.Count > 0 Then dtt = Dtta + + If dtt.Rows.Count = 0 Then + Respuesta = True + Else + Respuesta = False + Alert("No se puede realizar el depósito, ya que hay cobros pendientes por aplicar.", TipoMensaje.MsgAdvertencia) + End If + + Else + Alert("Error al consultarcobros pendientes.", TipoMensaje.MsgAdvertencia) + Respuesta = False + End If + ObjMovtos.Dispose() Else - Alert("Error al consultarcobros pendientes.", TipoMensaje.MsgAdvertencia) - Respuesta = False + 'SI ES TRANSFERENCIA PERMITIR CERRAR + Respuesta = True End If - ObjMovtos.Dispose() + Else Respuesta = True End If diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index ebd03c200..5f2389ec7 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -342,7 +342,9 @@ - + + + @@ -453,7 +455,7 @@ % Desc. - + @@ -789,6 +791,10 @@ } + function DescuenoMasivo(txt) { + $(".selDescuento").val(txt.value); + $(".selDescuento").trigger("keyup"); + } diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index d27e7066e..411c95aaa 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -324,6 +324,7 @@ Partial Class Bancos_ProveedoresAbonar If UsuarioActual.TienePermisoProceso(361) Then 'GvCxP.Columns(11).Visible = True chkaplicaDescuento.Visible = True + chkaplicaDescuentoMasivo.Visible = True End If @@ -1673,10 +1674,15 @@ Partial Class Bancos_ProveedoresAbonar GvCxP.Columns(11).Visible = chkaplicaDescuento.Checked UPCompras.Update() - End Sub + Protected Sub chkaplicaDescuentoMasivo_CheckedChanged(sender As Object, e As EventArgs) + + GvCxP.Columns(11).Visible = chkaplicaDescuentoMasivo.Checked + TxtDescuenoMasivo.Visible = chkaplicaDescuentoMasivo.Checked + UPCompras.Update() + End Sub Private Sub tmpValida() diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index ba1ff75c1..2605aa006 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -315,7 +315,7 @@ Partial Class Inventarios_Kardex End If Dim ObjOC As New ClsOC If ObjOC.PendientesCompra(ddlProducto2.SelectedValue.ToEntero, tCveSubProyectos, UsuarioActual.CveEmpresa) Then - GvOC.DataSource = ObjOC.DtResultados.Copy + GvOC.DataSource = ObjOC.DtResultados.Copy.FiltraParametros("", "Fecha Desc") LnkIndicador_OC.Text = ObjOC.DtResultados.Copy.SUM("CantidadPendienteVincular").ToString() End If ObjOC.Dispose() diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 90f797949..9800d6589 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -9,9 +9,23 @@ Imports Telerik.Web.UI Partial Class Inventarios_KardexAlmacenHorizontal Inherits ClsPaginas + Private Property TienePermisoKardex As Boolean + Get + If ViewState("TienePermisoKardex") Is Nothing Then + ViewState("TienePermisoKardex") = False + End If + + Return Boolean.Parse(ViewState("TienePermisoKardex").ToString) + End Get + Set(value As Boolean) + ViewState("TienePermisoKardex") = value + End Set + End Property + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then 'TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString + TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False) TxtFechaF.Text = NowADS().ToShortDateString CargaCombos() ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) @@ -241,7 +255,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal Dim Celda As String = Cells.Text If IsNumeric(Celda) Then Dim CveAlmacen2 As Integer = -1 - If Index >= 5 Then + If Index >= 4 Then Dim Array As String() = GvDatos.HeaderRow.Cells(Index).Text.Split("|"c) If Array.Length > 1 Then CveAlmacen2 = Array(1).ToEntero @@ -270,7 +284,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal) Else Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal) - If Not e.Row.RowIndex = 0 And Ddlgrupo.SelectedValue.ToEntero = 1 Then + If Not e.Row.RowIndex = 0 And Ddlgrupo.SelectedValue.ToEntero = 1 AndAlso TienePermisoKardex Then Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={txtFechaI.Text}&FechaF={TxtFechaF.Text}") Cells.Text = String.Format("{0}", Celda.FormatoNumero(), Liga2) End If diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 4b1cda15a..58d7d5db7 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -734,6 +734,7 @@ Partial Class OC_OC DdlSubProyectoGral.DataBind() DdlSubProyectoGral.Items.Insert(0, New ListItem("-", "-1")) DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto) + DdlSubProyectoEntrega.SelectedValueExist(UsuarioActual.CveSubProyecto) ModalidadSubProyectoGeneral = True TdProyectoSubPrpyectoDdl.Visible = False TdProyectoSubPrpyecto.Visible = False @@ -4117,7 +4118,8 @@ Partial Class OC_OC If e.Row.RowType = DataControlRowType.DataRow Then - If TienePermisoKardex AndAlso e.Row.RowState = DataControlRowState.Normal Then + 'If TienePermisoKardex AndAlso e.Row.RowState = DataControlRowState.Normal Then + If TienePermisoKardex AndAlso (e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate) Then e.Row.FCLabel("LblPS").Visible = False e.Row.FCHyperLink("HlPS").Visible = True e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DBCampo("CvePS").ToString}" diff --git a/OC/RepOCxSurtir.aspx b/OC/RepOCxSurtir.aspx index 148aeb4e3..447d01ca5 100644 --- a/OC/RepOCxSurtir.aspx +++ b/OC/RepOCxSurtir.aspx @@ -10,6 +10,22 @@ + + + +
  • + Generar PDF +
    • +
  • + Exportar Excel +
    • + +     + + + + +     @@ -57,6 +73,13 @@
    +
    Grupo:
    +
    + + Detallado + Por Orden de Compra + +
    @@ -84,6 +107,7 @@
    + @@ -95,6 +119,18 @@ + + + + + + + + + + + +
    diff --git a/OC/RepOCxSurtir.aspx.vb b/OC/RepOCxSurtir.aspx.vb index 5e0c376cc..1b4eafdc7 100644 --- a/OC/RepOCxSurtir.aspx.vb +++ b/OC/RepOCxSurtir.aspx.vb @@ -1,10 +1,41 @@ Option Explicit On Option Strict On +Imports System.Activities.Expressions +Imports System.Data Imports Extensiones +Imports Microsoft.Reporting.WebForms + + Partial Class OC_RepOCxSurtir Inherits ClsPaginas + + Property DtDatos As DataTable + Get + If ViewState("DtDatos") Is Nothing Then + ViewState("DtDatos") = New DataTable + End If + Return DirectCast(ViewState("DtDatos"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtDatos") = value + End Set + End Property + + Property DtDatosPorOC As DataTable + Get + If ViewState("DtDatosPorOC") Is Nothing Then + ViewState("DtDatosPorOC") = New DataTable + End If + Return DirectCast(ViewState("DtDatosPorOC"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtDatosPorOC") = value + End Set + End Property + + Protected Sub OC_RepOCxSurtir_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then InicializaValores() @@ -71,20 +102,44 @@ Partial Class OC_RepOCxSurtir End Sub Private Sub CargaDatos() Dim ObjOC As New ClsOC + GvDatos.DataSource = Nothing + GvDatosPorOC.DataSource = Nothing + GvDatos.Visible = False + GvDatosPorOC.Visible = False + DtDatos = New DataTable + DtDatosPorOC = New DataTable Dim FechaI, FechaF As String FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1") FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1") - If ObjOC.GetPendietePorSurtirOC(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, If(TxtFolio.Text = "", -1, TxtFolio.Text.ToEntero), DdlSubProyecto.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - GvDatos.DataSource = ObjOC.DtResultados - Else - GvDatos.DataSource = Nothing + If ObjOC.GetPendietePorSurtirOC(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, If(TxtFolio.Text = "", -1, TxtFolio.Text.ToEntero), DdlSubProyecto.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, + Gpo:=DdlGrupo.SelectedValue.ToEntero) Then + + If DdlGrupo.SelectedValue.ToEntero = 1 Then + GvDatos.DataSource = ObjOC.DtResultados + DtDatos = ObjOC.DtResultados + GvDatos.Visible = True + Else + GvDatosPorOC.DataSource = ObjOC.DtResultados + DtDatosPorOC = ObjOC.DtResultados + GvDatosPorOC.Visible = True + End If + + End If - GvDatos.DataBind() ObjOC.Dispose() + If DdlGrupo.SelectedValue.ToEntero = 1 Then + GvDatos.DataBind() + Else + GvDatosPorOC.DataBind() + End If + + + UpDatos.Update() + End Sub Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound @@ -103,7 +158,105 @@ Partial Class OC_RepOCxSurtir End If End Sub + Private Sub GvDatosPorOC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosPorOC.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CveOrdenCompra") = "" Then + e.Row.CssClass = "Totales" + 'e.Row.Cells(3).Visible = False + 'e.Row.Cells(2).ColumnSpan = 2 + 'ElseIf e.Row.DBCampo("CodigoPS") = "" Then + ' e.Row.CssClass = "SubTotales2" + Else + 'e.Row.Cells(0).Text = "" + 'e.Row.Cells(1).Text = "" + 'e.Row.Cells(2).Text = "" + End If + End If + End Sub + #End Region + +#Region " IMPRIMIR " + + Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click + 'GvDatos.ExportToExcel("ReporteComprasDetalles" & NowADS().ToShortDateString) + GenerarPDF("EXCEL") + End Sub + + Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) + GenerarPDF("PDF") + End Sub + Private Sub GenerarPDF(Opcion As String) + Dim FechaI = If(TxtFechaI.Text = "" Or TxtFechaI.Text = "__/__/____", "-1", TxtFechaI.Text) + Dim FechaF = If(TxtFechaF.Text = "" Or TxtFechaF.Text = "__/__/____", "-1", TxtFechaF.Text) + 'Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $" Proveedor: {DdlProveedores.SelectedText}") + 'Dim Capturo = If(DDlUsuarioCaptura.SelectedValue = "-1", "", $" Capturó: {DDlUsuarioCaptura.SelectedItem.Text}") + Dim Grupo = DdlGrupo.SelectedItem.Text + Dim FechaIn As String = $" Fecha Inicio: {TxtFechaI.Text}" + Dim FechaFn As String = $" Fecha Fin: {TxtFechaF.Text}" + If TxtFechaI.Text = "" Then FechaIn = "" + If TxtFechaF.Text = "" Then FechaFn = "" + + 'Dim Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $" Proyecto: {DdlProyecto.SelectedItem.Text}") + 'Dim SubProyecto = If(DdlSubProyecto.GetSelectedText = "", "", $" SubProyecto: {DdlSubProyecto.GetSelectedText}") + 'Dim TipoGasto = If(DdlTipoGasto.GetSelectedText = "", "", $" Tipo Gasto: {DdlTipoGasto.GetSelectedText}") + 'Dim TipoProveedor = If(DdlTipoProveedor.SelectedValue = "-1", "", $" Tipo de Proveedor: {DdlTipoProveedor.SelectedItem.Text}") + 'Dim TipoDocto = If(DdlTipoDocto.SelectedValue = "-1", "", $" Tipo de Documento: {DdlTipoDocto.SelectedItem.Text}") + + Dim FechaIF, FechaFF As String + FechaIF = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1") + FechaFF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1") + Dim FechaICapturaF, FechaFCapturaF As String + 'FechaICapturaF = If(IsDate(TxtFechaICaptura.Text.Trim()), TxtFechaICaptura.Text.Trim(), "-1") + 'FechaFCapturaF = If(IsDate(TxtFechaFCaptura.Text.Trim()), TxtFechaFCaptura.Text.Trim(), "-1") + + 'Dim FechaCIn As String = $" Fecha Inicio Captura: {TxtFechaICaptura.Text.Trim()}" + 'Dim FechaCFn As String = $" Fecha Fin Captura: {TxtFechaFCaptura.Text.Trim()}" + + 'If Not IsDate(TxtFechaICaptura.Text.Trim()) Then FechaCIn = "" + 'If Not IsDate(TxtFechaFCaptura.Text.Trim()) Then FechaCFn = "" + + If DdlGrupo.SelectedValue.ToEntero = 1 Then + + Else + + End If + + If (DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 AndAlso DdlGrupo.SelectedValue.ToEntero = 1) Or (DtDatosPorOC IsNot Nothing AndAlso DtDatosPorOC.Rows.Count > 0 AndAlso DdlGrupo.SelectedValue.ToEntero = 2) Then + + 'For Each Dr As DataRow In DtDatos.Rows + ' Dr("Fecha") = Dr("Fecha").ToString.ToDate.ToShortDateString + 'Next + + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("FechaInicio", FechaI)) + params.Add(New ReportParameter("FechaFin", FechaF)) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", NowADS().ToString)) + params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo}{FechaIn}{FechaFn}")) + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + + Dim NombreArchivo As String = If(DdlGrupo.SelectedValue.ToEntero = 1, "RepOCxSurtir.rdlc", "RepOCxSurtirPorOC.rdlc") + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo)) + If Archivo.Exists Then + ImprimirPDF(Archivo.FullName, If(DdlGrupo.SelectedValue.ToEntero = 1, DtDatos, DtDatosPorOC), params, "OrdenesdeCompraporvincular ", Opcion) + Else + ImprimirPDF($"Empresas/Grales/Formatos/{NombreArchivo}", If(DdlGrupo.SelectedValue.ToEntero = 1, DtDatos, DtDatosPorOC), params, "OrdenesdeCompraporvincular", Opcion) + End If + + Else + Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) + End If + + End Sub +#End Region + + End Class diff --git a/Ventas/CatAutorizacionLimites.aspx b/Ventas/CatAutorizacionLimites.aspx index f935dd655..43d8496b1 100644 --- a/Ventas/CatAutorizacionLimites.aspx +++ b/Ventas/CatAutorizacionLimites.aspx @@ -104,48 +104,119 @@ - - - - - - - - - - - - - - - <%-- 30--%> - - - - - - - - <%-- 45--%> - - - - - - - - - - - - - - - - - +
    +
    +
    + Solicitudes de autorizaciones +
    +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    +
    +
    +
    +
    +
    +
    + + + + + + + + + + + + + + + <%-- 30--%> + + + + + + + + <%-- 45--%> + + + + + + + + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    +
    + Anticipos, notas de crédito e ingresos por comprobar +
    +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    +
    +
    +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    +