From 52c989d25fe7668d407f66402cff2805d6647bb3 Mon Sep 17 00:00:00 2001 From: JPerez Date: Thu, 26 Jun 2025 17:55:28 -0700 Subject: [PATCH] --Cancelacion de NC, desde factura de ingreso --- General/RepIndicadorResumen.aspx | 2 +- Ventas/Ventas.aspx | 19 +++--- Ventas/Ventas.aspx.vb | 102 ++++++++++++++++++++++++++++++- 3 files changed, 112 insertions(+), 11 deletions(-) diff --git a/General/RepIndicadorResumen.aspx b/General/RepIndicadorResumen.aspx index 8efad22ff..c723f30c6 100644 --- a/General/RepIndicadorResumen.aspx +++ b/General/RepIndicadorResumen.aspx @@ -135,7 +135,7 @@ <%--TODO: Esto puede tronar si el valor es DBNull --%> - <%# If(Convert.ToDecimal(Eval("Cantidad")) = 0, 0.ToString("C"), (Convert.ToDecimal(Eval("SubTotal")) / Convert.ToInt32(Eval("Cantidad"))).ToString("C")) %> + <%# If(Convert.ToDecimal(Eval("Cantidad")) = 0, 0.ToString("C"), (Convert.ToDecimal(Eval("SubTotal")) / Convert.ToDecimal(Eval("Cantidad"))).ToString("C")) %> diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 390e804f4..234f39919 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4330,20 +4330,20 @@
- Kilometraje  + Kilometraje  - - <%----%> + + <%----%>
Próxima Rotación y Balanceo:
- +
Próxima Alineación:
- +
-
+ @@ -8226,7 +8226,7 @@
- +
@@ -8254,6 +8254,11 @@ +
+
+ +
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ec543c8de..2652f973a 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -17812,7 +17812,7 @@ Partial Class Ventas ObjNC.PreparaTimbre() AjustarTimbreNC(ObjNC) - Retorno = ObjNC.EmitirFactura(False, Transac:=ObjVentas.IniciaTransacSQL(), Modulo:="Cobranza/GuardarVenta", MostrarURL:=True) + Retorno = ObjNC.EmitirFactura(False, Transac:=ObjVentas.IniciaTransacSQL(), Modulo:="Vta/NC/GuardarVenta", MostrarURL:=True) Retorno.Factura = ObjNC If Retorno IsNot Nothing AndAlso Retorno.CveVenta > 0 Then @@ -27412,7 +27412,7 @@ Partial Class Ventas End If If Extra.Trim().Length > 0 Then - SbCondiciones.AppendFormat("
*{0}", Extra) + SbCondiciones.AppendFormat("{0}", Extra) End If If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then @@ -27439,6 +27439,29 @@ Partial Class Ventas Private Sub LbCancelarDocumento_Click(sender As Object, e As EventArgs) Handles LbCancelarDocumento.Click Dim SaldoAlmacen As Decimal = 0 + If DdlTipoComprobante.SelectedValue = "Ing" Then + Dim DtNCCancelar As DataTable = Nothing + Dim ObjVta As New ClsVentas + If ObjVta.GetVentasAntNC(CveVenta, -1) Then + DtNCCancelar = ( + From row In ObjVta.DtResultados.AsEnumerable() + Where row("TipoDocto").ToString() = "Egs" AndAlso row("CveTipoRelacion").ToString() = "7" + Group row By categoria = row.Field(Of Integer)("CveVenta") Into grupo = Group + Select New With { + .CveVenta = categoria, + .Total = grupo.Sum(Function(r) r.Field(Of Decimal)("Importe")) + } + ).QueryToDataTable(True) + + End If + ObjVta.Dispose() + + If DtNCCancelar IsNot Nothing AndAlso DtNCCancelar.FiltraParametros("Total > 0").Rows.Count > 0 Then + DivCancelarEgs.Visible = True + ChkCancelarNC.Checked = True + End If + End If + If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Dev", "Ped") Then Dim PermiteCancelar As Boolean = True @@ -27947,8 +27970,81 @@ Partial Class Ventas CveEstatusFacturaAsignado = 4 End If - resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, ForzarDevolucion:=GenerarDevolucionAnticipada, CancelacionPagos:=CancelacionPagos, ValidarSAT:=ValidarSAT, CveEstatusFacturaAsignado:=CveEstatusFacturaAsignado) + + Dim SbNC As New StringBuilder + Dim ErrorCancelacionNC As Boolean = False + Dim SbNCError As New StringBuilder + + If ObjFacturaCancelacion.TipoDocto = "Ing" AndAlso ChkCancelarNC.Checked Then + + 'NO CANCELAR EL PAGO EN LA CANCELACION DE LA FACTURA, SI NO DESDE LA CANCELACION DESDE LA NC + CancelacionPagos = OpcionesCancelacionPagos.SinPagos + + Dim DtNCCancelar As DataTable = Nothing + Dim ObjVta As New ClsVentas + If ObjVta.GetVentasAntNC(CveVenta, -1) Then + DtNCCancelar = ( + From row In ObjVta.DtResultados.AsEnumerable() + Where row("TipoDocto").ToString() = "Egs" AndAlso row("CveTipoRelacion").ToString() = "7" + Group row By categoria = row.Field(Of Integer)("CveVenta") Into grupo = Group + Select New With { + .CveVenta = categoria, + .Total = grupo.Sum(Function(r) r.Field(Of Decimal)("Importe")) + } + ).QueryToDataTable(True) + + End If + ObjVta.Dispose() + + If DtNCCancelar IsNot Nothing Then + + For Each RowVta As DataRow In DtNCCancelar.FiltraParametros("Total > 0").Rows + Dim ObjNCCancelacion As New Modelos.Factura(UsuarioActual, RowVta("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa, EsCancelacion:=True, VerificaAlmacen:=False) + ObjNCCancelacion.CveDevolucion = ObjFacturaCancelacion.CveVenta + + If ObjNCCancelacion IsNot Nothing Then + Dim respNC = ObjNCCancelacion.CancelarFactura(RealizarDevolucionAlmacen:=0, ValidarSAT:=ValidarSAT) + If respNC IsNot Nothing Then + If respNC.HuboError Then + SbNCError.Append(respNC.Mensaje) + ErrorCancelacionNC = True + Exit For + Else + SbNC.AppendFormat(" - {0}", ObjNCCancelacion.SerieFolio) + End If + End If + End If + Next + + If Not ErrorCancelacionNC Then + Using ObjV As New ClsVentas + If ObjV.GetVenta(ObjFacturaCancelacion.CveVenta, UsuarioActual.CveEmpresa) Then + Dim DbRowVenta As DataRow = ObjV.DtResultados.FiltroPrimero("") + If DbRowVenta IsNot Nothing Then + ObjFacturaCancelacion.Pagado = DbRowVenta("Pagado").ToString().ToDecimal() + ObjFacturaCancelacion.Saldo = DbRowVenta("Saldo").ToString().ToDecimal() + End If + End If + End Using + End If + End If + + End If + + If Not ErrorCancelacionNC Then + resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, ForzarDevolucion:=GenerarDevolucionAnticipada, CancelacionPagos:=CancelacionPagos, ValidarSAT:=ValidarSAT, CveEstatusFacturaAsignado:=CveEstatusFacturaAsignado) + Else + resp = New Modelos.Factura.MCancelacionVentaMensaje() + resp.HuboError = True + resp.Mensaje = "No se pudo cancelar la factura" + End If + strMensaje.Append(resp.Mensaje) + + If ChkCancelarNC.Checked Then + strMensaje.AppendFormat("
{0}", If(ErrorCancelacionNC, $"Ocurrió un error al cancelar las NC relacionadas.
{SbNCError.ToString()}", $"Se cancelaron las siguientes notas de crédito.
{SbNC.ToString()}")) + End If + Dim DtBonificaciones As DataTable = Nothing 'SI ES RNC DE CARGO DEBE CANCELAR LAS BON