From 8319178cbd9a7071a43139916b17a7a7ae187196 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 26 Feb 2022 11:23:40 -0700 Subject: [PATCH] RegPolziasVirtuales, IE, Bloquear borrado de Ie con cancelacino del siguiente mes --- Acumuladores/RepPolizasVirtuales.aspx | 157 +++++++++++++++++++++++ Acumuladores/RepPolizasVirtuales.aspx.vb | 58 +++++++++ App_Code/ClsAcumuladores.vb | 24 ++++ App_Code/ClsPaginas.vb | 1 + Bancos/IE.aspx.vb | 34 ++--- Contabilidad/RegPoliza.aspx.vb | 2 +- General/FolioFechaCancelacion.aspx | 63 +++++---- 7 files changed, 288 insertions(+), 51 deletions(-) create mode 100644 Acumuladores/RepPolizasVirtuales.aspx create mode 100644 Acumuladores/RepPolizasVirtuales.aspx.vb diff --git a/Acumuladores/RepPolizasVirtuales.aspx b/Acumuladores/RepPolizasVirtuales.aspx new file mode 100644 index 000000000..46bf8d1d2 --- /dev/null +++ b/Acumuladores/RepPolizasVirtuales.aspx @@ -0,0 +1,157 @@ +<%@ Page Title="Rep. Pólizas Virtuales" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepPolizasVirtuales.aspx.vb" Inherits="Acumuladores_RepPolizasVirtuales" EnableEventValidation="false" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + + Rep. Pólizas Virtuales + + + + + + +
  • + +
    • +     + + + +     +     + + + + + + +
    +
    +
    + + +
    +
    +
    + + +
    + Fecha Inicio: + +
    +
    +
    + + + + +
    + + + + + + +
    +
    + Fecha Fin: + +
    +
    +
    + + + + +
    + + + + + + +
    + + +
    + + Enviadas + No Enviadas + +
    + + +
    +
    + +
    +
    +     +     + + + + + +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    + + +     +     + + +     + + + diff --git a/Acumuladores/RepPolizasVirtuales.aspx.vb b/Acumuladores/RepPolizasVirtuales.aspx.vb new file mode 100644 index 000000000..000901090 --- /dev/null +++ b/Acumuladores/RepPolizasVirtuales.aspx.vb @@ -0,0 +1,58 @@ +Imports System.Data +Imports Extensiones +Partial Class Acumuladores_RepPolizasVirtuales + Inherits ClsPaginas + + + + Private Sub Acumuladores_RepPolizasVirtuales_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + + End If + End Sub + + + + + + + Public Sub CargaDatos() + + LnkExportarExcel.Visible = False + + Dim ObjAcum As New ClsAcumuladores + + Dim FI As Date = If(txtFechaI.Text.Length > 0, txtFechaI.Text.ToDate, MinFecha) + Dim FF As Date = If(txtFechaF.Text.Length > 0, txtFechaF.Text.ToDate, MaxFecha) + + If ObjAcum.GetPolizaVirtualRep(FI, FF, DdlOpcion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjAcum.DtResultados + + If ObjAcum.DtResultados.Rows.Count > 0 Then + LnkExportarExcel.Visible = True + End If + + Else + GvDatos.DataSource = Nothing + End If + ObjAcum.Dispose() + + GvDatos.DataBind() + UpDatos.Update() + UpAcciones.Update() + + End Sub + + + + + + Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs) + CargaDatos() + End Sub + + + Protected Sub LnkExportarExcel_Click(sender As Object, e As EventArgs) + GvDatos.ExportToExcel2($"RepPolizasVirtuales.xlsx") + End Sub +End Class diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 158fb0c0a..c6fbde67a 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -1280,6 +1280,30 @@ Public Class ClsAcumuladores End Function + Public Function GetPolizaVirtualRep(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + SqlDataAdapter("PA_Vta_PolizaVirtualRepGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@Opcion", SqlDbType.Int).Value = Opcion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al las polizas virtuales. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + #Region " IDisposable Support " ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 85509a859..e9be16c6c 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5650,6 +5650,7 @@ Public Class ClsPaginas PaginaDict.Add("/Acumuladores/RepIndicadorDiarioDetalle.aspx".ToUpper(), 730) PaginaDict.Add("/Acumuladores/RepEntradasUsadosClientes.aspx".ToUpper(), 543) PaginaDict.Add("/Acumuladores/EntradasUsadosResumenRep.aspx".ToUpper(), 1032) + PaginaDict.Add("/Acumuladores/RepPolizasVirtuales.aspx".ToUpper(), 1322) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 946dc9f69..afd3989c3 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -4624,18 +4624,18 @@ Partial Class Bancos_IE End If Else - 'If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then + If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then - ' If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then - ' CargaComplementosPago() - ' RegistraScript("$('#ModalCancelarComplemetno').modal('hide');") - ' ErrorCancelarComplemento = False - ' Alert("El complemento se cancelo correctamente.") - ' End If + If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then + CargaComplementosPago() + RegistraScript("$('#ModalCancelarComplemetno').modal('hide');") + ErrorCancelarComplemento = False + Alert("El complemento se cancelo correctamente.") + End If - 'Else - ' Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia) - 'End If + Else + Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia) + End If End If End If @@ -6696,15 +6696,15 @@ Partial Class Bancos_IE Else - 'If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then + If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then - ' If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then + If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then - ' Alert("El complemento se cancelo correctamente.") - ' End If - 'Else - ' Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError) - 'End If + Alert("El complemento se cancelo correctamente.") + End If + Else + Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError) + End If End If diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb index 9750b1cd3..9b89d7ad8 100644 --- a/Contabilidad/RegPoliza.aspx.vb +++ b/Contabilidad/RegPoliza.aspx.vb @@ -937,7 +937,7 @@ Partial Class RegPoliza Dim dr As DataRow = DT.Rows(0) - HLImprimir.PostBackUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta($"OP=POL&CvePoliza={dr("IdPoliza").ToString.ToEntero}")) + HLImprimir.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta($"OP=POL&CvePoliza={dr("IdPoliza").ToString.ToEntero}")) HLImprimir.Visible = True TxtFechaPoliza.Text = dr("FechaPol").ToString.ToDate.ToShortDateString diff --git a/General/FolioFechaCancelacion.aspx b/General/FolioFechaCancelacion.aspx index 042b403cd..09346bfc9 100644 --- a/General/FolioFechaCancelacion.aspx +++ b/General/FolioFechaCancelacion.aspx @@ -71,45 +71,42 @@ - - - - - - - - - - - - - - - - - - - - - +
    +
    + + + + - + + + + + + + + + + + + + + + + + + + +
    +
    + - - -     -     - - - - - - +