From 0b0b745d9ed77d625def786c5edd9de4c652466a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 5 Mar 2022 14:02:09 -0700 Subject: [PATCH] Correciones en ventas.aspx --- Ventas/Ventas.aspx | 4 +- Ventas/Ventas.aspx.vb | 107 +++++++++++++++++++++++------------------- 2 files changed, 61 insertions(+), 50 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 3db0a9422..cdad8f00a 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1080,7 +1080,7 @@ - + @@ -1186,7 +1186,7 @@ - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 909f471b5..beeb7be43 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2576,6 +2576,9 @@ Partial Class Ventas DdlSubProyectoDatos.Enabled = False BtnEmitirImprimir.Visible = False BtnCrearApartirDe.Visible = True + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + BtnCrearApartirDe.Visible = False + End If If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then BtnEditar.Visible = True 'DdlEstatus.Enabled = True @@ -2863,6 +2866,9 @@ Partial Class Ventas 'DdlSucursal.Enabled = False BtnCrearApartirDe.Visible = True + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + BtnCrearApartirDe.Visible = False + End If 'DdlEstatus.Enabled = True ImgAddObs.Visible = True @@ -15973,6 +15979,7 @@ Partial Class Ventas If UsuarioActual.Empresa.EstatusFacturacion Then CreaObjetosVenta() + 'PARA CUANDO YA ESTA GUARDADA LA VENTA ObjFactura.CveVenta = CveVenta ObjFactura.Serie = Serie @@ -16177,11 +16184,14 @@ Partial Class Ventas Dim RFCReceptor As String = GvRow.DataKey("RFCReceptor") Dim CvePACCancelacion As Integer = GvRow.DataKey("CvePAC").ToEntero() - If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, 0, RFCReceptor, RFCEmisor, CvePACCancelacion) Then + + Dim RespCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, 0, RFCReceptor, RFCEmisor, CvePACCancelacion) + + If RespCancelacion.Verificado Then If ObjBanco.UpdateComplementoPago(CveComplementoPago, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then CargaComplementosPago() - Alert("El complemento se cancelo correctamente.") + Alert("El complemento se canceló correctamente.") End If Else @@ -16413,8 +16423,8 @@ Partial Class Ventas If Not ObjVentas.UpdateEstatusFactura(13, FolioFiscal, "", Now, CveVenta, IDPoliza) Then 'Marcamos la factura como refacturada, si no se cancelo en el SAT el estatus nos dejara cancelarla despues ErrorCancelar = True End If - - If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then + Dim RespCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) + If RespCancelacion.Verificado Then 'falta verificar traer el acuse y reenviarlo If UsuarioActual.Empresa.UsaAC Then @@ -17199,8 +17209,8 @@ Partial Class Ventas DdlIVA.SelectedValue = "1" PorcentajeIVA = ViewState("IVA").ToString().ToDecimal Case 0.08 - DdlIVA.SelectedValue = If(EsCreaApartirDe, $"{(TmpDT.MAX("PorcentajeIVA").ToDecimal + 1).ToString()}", "1.08") - PorcentajeIVA = If(EsCreaApartirDe, TmpDT.MAX("PorcentajeIVA").ToDecimal, ViewState("IVA").ToString().ToDecimal) + DdlIVA.SelectedValue = If(EsCreaApartirDe, $"{(TmpDT.MAX("PorcentajeIVA").ToDecimal() + 1).RoundSQL(2).ToString()}", "1.08") + PorcentajeIVA = If(EsCreaApartirDe, TmpDT.MAX("PorcentajeIVA").ToDecimal, ViewState("IVA").ToString().ToDecimal).RoundSQL(2) DdlIVA.Visible = If(Not CveVenta > 0 Or EsCreaApartirDe Or CveDevolucion > 0, True, False) Case 0.16 DdlIVA.SelectedValue = "1.16" @@ -23638,49 +23648,50 @@ Partial Class Ventas RegistraScript("$('#ModalCancelarDocumento').modal('hide');") End Sub - Private Sub CancelarRefacturada() - Dim CancelacionFecha As Date - Dim ObjVentas As New ClsVentas() : ObjVentas.IniciaTransacSQL() - Dim CancelacionAcuse As String = "" - Dim Mensaje As String = "" - Dim ObjCancelacion As New Timbrado - Dim TotalT As Decimal = TxtTotal.Text.ToDecimal - Dim RFCReceptor As String = LblRFC.Text.Trim - Dim CvePACCancelacion As Integer = CvePAC - Dim CveEstatus As Integer = 4 + 'Private Sub CancelarRefacturada() + ' Dim CancelacionFecha As Date + ' Dim ObjVentas As New ClsVentas() : ObjVentas.IniciaTransacSQL() + ' Dim CancelacionAcuse As String = "" + ' Dim Mensaje As String = "" + ' Dim ObjCancelacion As New Timbrado + ' Dim TotalT As Decimal = TxtTotal.Text.ToDecimal + ' Dim RFCReceptor As String = LblRFC.Text.Trim + ' Dim CvePACCancelacion As Integer = CvePAC + ' Dim CveEstatus As Integer = 4 - Try - If FolioFiscal <> "" Then - If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TotalT, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then - 'Generamos el acuse y mandamos mail de con el acuse de cancelación - DF 13/01/2017 - CancelacionFecha = ObjCancelacion.CancelacionFecha - CancelacionAcuse = ObjCancelacion.CancelacionAcuse - CveEstatus = 5 - Else - Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.
Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError) - Exit Sub - End If - Else - CancelacionFecha = Now.Date - CancelacionAcuse = "" - End If + ' Try + ' If FolioFiscal <> "" Then + ' Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TotalT, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion) + ' If resp.Verificado Then + ' 'Generamos el acuse y mandamos mail de con el acuse de cancelación - DF 13/01/2017 + ' CancelacionFecha = ObjCancelacion.CancelacionFecha + ' CancelacionAcuse = ObjCancelacion.CancelacionAcuse + ' CveEstatus = 5 + ' Else + ' Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.
Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError) + ' Exit Sub + ' End If + ' Else + ' CancelacionFecha = Now.Date + ' CancelacionAcuse = "" + ' End If - If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, CancelacionAcuse, CancelacionFecha, CveVenta, IdPoliza, CvePAC:=CvePACCancelacion) Then - ObjVentas.Commit() - Alert("El nuevo estatus se guardó correctamente") - Else - ObjVentas.RollBack() - Alert("Ocurrió un error al intentar cancelar la factura") - End If + ' If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, CancelacionAcuse, CancelacionFecha, CveVenta, IdPoliza, CvePAC:=CvePACCancelacion) Then + ' ObjVentas.Commit() + ' Alert("El nuevo estatus se guardó correctamente") + ' Else + ' ObjVentas.RollBack() + ' Alert("Ocurrió un error al intentar cancelar la factura") + ' End If - Catch ex As Exception - ObjVentas.RollBack() - Mensaje = "Ocurrio un error al Cancelar la factura" - GuardaLog($"{ex.Message}") - End Try + ' Catch ex As Exception + ' ObjVentas.RollBack() + ' Mensaje = "Ocurrio un error al Cancelar la factura" + ' GuardaLog($"{ex.Message}") + ' End Try - ObjVentas.Dispose() - End Sub + ' ObjVentas.Dispose() + 'End Sub Private Function DecodeBase64(ByVal strXMLCodificado As String) As String Try Dim decbuff As Byte() = Convert.FromBase64String(strXMLCodificado) @@ -23769,9 +23780,9 @@ Partial Class Ventas Dim LigaRedirigir As String = "" 'Si es cancelacion de una refactura ignoramos las condiciones - If Me.CveEstatus = 13 Then - CancelarRefacturada() - End If + 'If Me.CveEstatus = 13 Then + ' CancelarRefacturada() + 'End If Dim ObjFacturaCancelacion As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=True) Try