SIG. Mejoras en proceso de cancelacion. Reforma fiscal 2022
This commit is contained in:
@@ -5496,9 +5496,14 @@ Partial Class Ventas
|
||||
End Sub
|
||||
|
||||
Private Sub CargaMotivosCancelacion()
|
||||
DdlMotivoCancelacion.DataSource = GlobalDTSATMotivosCancelacion()
|
||||
|
||||
DdlMotivoRefacturacion.DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveSATMotivoCancelacion:=1)
|
||||
DdlMotivoRefacturacion.DataBind()
|
||||
|
||||
DdlMotivoCancelacion.DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltraParametros("CveSATMotivoCancelacion IN (2,3)")
|
||||
DdlMotivoCancelacion.DataBind()
|
||||
|
||||
DdlMotivoRefacturacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlMotivoCancelacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
Private Sub CargaTiposRelacion()
|
||||
@@ -8736,7 +8741,7 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "Ant", "Dev") Then
|
||||
If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso UsuarioActual.Empresa.FacturaProduccion Then
|
||||
If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso (UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then
|
||||
|
||||
'FACTURA INGRESO/EGRESO
|
||||
Dim ObjTimbrado As New Timbrado
|
||||
@@ -8788,8 +8793,10 @@ Partial Class Ventas
|
||||
Alert(ObjTimbrado.MensajeErrorCFDI, TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
'CANCELAR FACTURA ANTERIOR
|
||||
If SeTimbro AndAlso (Me.CveDevolucion > 0 AndAlso Me.NuevaFactura = 1) Then
|
||||
If Me.ObjFacturaNC IsNot Nothing Then
|
||||
Me.ObjFacturaNC.CveEstatusRefacturacion = 2 'MARCAR COMO REFACTURADA
|
||||
Me.ObjFacturaNC.CancelarPorRefacturacion(Me.ObjFacturaNC.CveMotivoCancelacion, Me.ObjFacturaNC.MotivoCancelacion, ObjTimbrado.UUID)
|
||||
End If
|
||||
End If
|
||||
@@ -11734,13 +11741,13 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
'Actualiar el estatus de la venta refacturada
|
||||
If ObjVentas.CveVenta > 0 AndAlso NuevaFactura = 1 AndAlso CveDevolucion > 0 Then
|
||||
'If ObjVentas.CveVenta > 0 AndAlso NuevaFactura = 1 AndAlso CveDevolucion > 0 Then
|
||||
|
||||
'If CveEstatusRefacturacion = 1 Then CveEstatusRefacturacion = 2 'cuando viene del proceso de refacturación con aceptació
|
||||
If Not ObjVentas.UpdateEstatusRefacturacion(CveDevolucion, 2) Then ' se marca como refacturada
|
||||
ErrorList.Add("Ocurrió un error al actualizar el estatus de la refacturacion")
|
||||
End If
|
||||
End If
|
||||
' 'If CveEstatusRefacturacion = 1 Then CveEstatusRefacturacion = 2 'cuando viene del proceso de refacturación con aceptació
|
||||
' If Not ObjVentas.UpdateEstatusRefacturacion(CveDevolucion, 2) Then ' se marca como refacturada
|
||||
' ErrorList.Add("Ocurrió un error al actualizar el estatus de la refacturacion")
|
||||
' End If
|
||||
'End If
|
||||
|
||||
'Pedido2'
|
||||
If ObjVentas.CveVenta > 0 And CvePedido2 > 0 And DdlTipoComprobante.SelectedValue.Contiene("Rem", "PA") Then
|
||||
@@ -20321,28 +20328,32 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
If Vigencia.EsCancelable = "Cancelable sin aceptación" Then
|
||||
script = "BtnRefacturacionConfirmarAceptacion();"
|
||||
'script = "BtnRefacturacionConfirmarAceptacion();"
|
||||
sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
|
||||
sb.Append("Está seguro de realizar la refacturación?.")
|
||||
End If
|
||||
|
||||
If Vigencia.EsCancelable = "Cancelable con aceptación" OrElse String.IsNullOrEmpty(Vigencia.EsCancelable) Then
|
||||
script = "BtnRefacturacionConfirmar();"
|
||||
'script = "BtnRefacturacionConfirmar();"
|
||||
sb.AppendFormat("<b>{0}</b> <br/>", "Cancelable con aceptación")
|
||||
sb.Append("Está seguro de cancelar el documento para realizar la refacturación?.")
|
||||
End If
|
||||
Else
|
||||
If Not UsuarioActual.Empresa.FacturaProduccion Then
|
||||
script = "BtnRefacturacionConfirmar();"
|
||||
End If
|
||||
'If Not UsuarioActual.Empresa.FacturaProduccion Then
|
||||
' script = "BtnRefacturacionConfirmar();"
|
||||
'End If
|
||||
sb.Append("<b>No encontrado</b> <br/>")
|
||||
End If
|
||||
Else
|
||||
sb.Append("¿Desea realizar la refacturación?<br/>")
|
||||
'sb.Append("¿Desea realizar la refacturación?<br/>")
|
||||
script = "BtnRefacturacionConfirmarAceptacion();"
|
||||
End If
|
||||
|
||||
Alert(sb.ToString(), TipoMensaje.MsgConfirmacion, JSBtnAceptar:=script, TextoConfirmacion:=" Si ", TextoCancelacion:=" No ")
|
||||
LblEstatusRefacturacion.Text = sb.ToString()
|
||||
UpMotivoRefac.Update()
|
||||
|
||||
RegistraScript("$('#DivMotivoRefacturacion').modal({ backdrop: 'static', keyboard: false });", "R1")
|
||||
'Alert(sb.ToString(), TipoMensaje.MsgConfirmacion, JSBtnAceptar:=script, TextoConfirmacion:=" Si ", TextoCancelacion:=" No ")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -20351,18 +20362,18 @@ Partial Class Ventas
|
||||
End Sub
|
||||
'BtnRefacturacionConfirmar
|
||||
Private Sub BtnRefacturacionConfirmar_Click(sender As Object, e As System.EventArgs) Handles BtnRefacturacionConfirmar.Click
|
||||
DdlMotivoCancelacion.SelectedValueExist(1)
|
||||
DdlMotivoCancelacion.Enabled = False
|
||||
' DdlMotivoRefactura.SelectedValueExist(1)
|
||||
' DdlMotivoCancelacion.Enabled = False
|
||||
|
||||
UpRefac.Update()
|
||||
'UpRefac.Update()
|
||||
RegistraScript("$('#DivMotivoRefacturacion').modal({ backdrop: 'static', keyboard: false });", "R1")
|
||||
'CancelarDocumento(True)
|
||||
End Sub
|
||||
Private Sub BtnRefacturacionConfirmarAceptacion_Click(sender As Object, e As System.EventArgs) Handles BtnRefacturacionConfirmarAceptacion.Click
|
||||
DdlMotivoCancelacion.SelectedValueExist(1)
|
||||
DdlMotivoCancelacion.Enabled = False
|
||||
'DdlMotivoCancelacion.SelectedValueExist(1)
|
||||
'DdlMotivoCancelacion.Enabled = False
|
||||
|
||||
UpRefac.Update()
|
||||
'UpRefac.Update()
|
||||
RegistraScript("$('#DivMotivoRefacturacion').modal({ backdrop: 'static', keyboard: false });", "R1")
|
||||
'CancelarDocumento(True)
|
||||
End Sub
|
||||
@@ -21942,10 +21953,10 @@ Partial Class Ventas
|
||||
|
||||
|
||||
Dim DtDireccionEnvio As DataTable = Nothing
|
||||
Dim ObjClientes As New ClsClientes
|
||||
If ObjClientes.DireccionEnvioGet(DdlDireccionEnvio.SelectedValue.ToEntero(), CveCliente, CveClienteSucursal) Then
|
||||
DtDireccionEnvio = ObjClientes.DtResultados
|
||||
End If
|
||||
Dim ObjClientes As New ClsClientes
|
||||
If ObjClientes.DireccionEnvioGet(DdlDireccionEnvio.SelectedValue.ToEntero(), CveCliente, CveClienteSucursal) Then
|
||||
DtDireccionEnvio = ObjClientes.DtResultados
|
||||
End If
|
||||
ObjClientes.Dispose()
|
||||
|
||||
If DtDireccionEnvio IsNot Nothing And DtDireccionEnvio.Rows.Count > 0 Then
|
||||
@@ -21990,7 +22001,7 @@ Partial Class Ventas
|
||||
RegistraScript("$('#divAddDireccionEnvio').modal();")
|
||||
End Sub
|
||||
|
||||
#Region "D I R E C C I O N E N V I O - C O M B O S"
|
||||
#Region "D I R E C C I O N E N V I O - C O M B O S"
|
||||
Protected Sub BtnDirClienteValidar_Click(sender As Object, e As EventArgs)
|
||||
DirClientevalidaCodigoPostal()
|
||||
End Sub
|
||||
@@ -22004,27 +22015,27 @@ Partial Class Ventas
|
||||
|
||||
Private Sub CargaDirClientePais()
|
||||
|
||||
DdlDirClientePais.DataSource = GlobalDTGralPaises()
|
||||
DdlDirClientePais.DataBind()
|
||||
DdlDirClientePais.SelectedValueExist("151")
|
||||
End Sub
|
||||
|
||||
DdlDirClientePais.DataSource = GlobalDTGralPaises()
|
||||
DdlDirClientePais.DataBind()
|
||||
DdlDirClientePais.SelectedValueExist("151")
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDirClienteEstado()
|
||||
DdlDirClienteEstado.Items.Clear()
|
||||
If DdlDirClientePais.SelectedValue.ToEntero > 0 Then
|
||||
DdlDirClienteEstado.DataSource = GlobalDTGralEstados("-1", DdlDirClientePais.SelectedValue.ToEntero)
|
||||
End If
|
||||
DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlDirClienteEstado.DataBind()
|
||||
DdlDirClienteEstado.Items.Clear()
|
||||
If DdlDirClientePais.SelectedValue.ToEntero > 0 Then
|
||||
DdlDirClienteEstado.DataSource = GlobalDTGralEstados("-1", DdlDirClientePais.SelectedValue.ToEntero)
|
||||
End If
|
||||
DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlDirClienteEstado.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDirClienteColonia()
|
||||
DdlDirClienteColonia.Items.Clear()
|
||||
Private Sub CargaDirClienteColonia()
|
||||
DdlDirClienteColonia.Items.Clear()
|
||||
If DdlDirClienteMunicipio.SelectedValue.ToEntero > 0 Then
|
||||
DdlDirClienteColonia.DataSource = GlobalDTGralColonias("-1", "-1", "-1", DdlDirClienteMunicipio.SelectedValue.ToEntero, CodigoPostal:=If(TxtEnvioCP.Text.Trim.Length > 0, TxtEnvioCP.Text.ToEntero, -1))
|
||||
End If
|
||||
DdlDirClienteColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlDirClienteColonia.DataBind()
|
||||
End If
|
||||
DdlDirClienteColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlDirClienteColonia.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -22041,24 +22052,24 @@ Partial Class Ventas
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDirClienteMunicipio()
|
||||
DdlDirClienteMunicipio.Items.Clear()
|
||||
If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then
|
||||
DdlDirClienteMunicipio.DataSource = GlobalDTGralMunicipios("-1", DdlDirClienteEstado.SelectedValue.ToEntero)
|
||||
End If
|
||||
DdlDirClienteMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlDirClienteMunicipio.DataBind()
|
||||
DdlDirClienteMunicipio.Items.Clear()
|
||||
If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then
|
||||
DdlDirClienteMunicipio.DataSource = GlobalDTGralMunicipios("-1", DdlDirClienteEstado.SelectedValue.ToEntero)
|
||||
End If
|
||||
DdlDirClienteMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlDirClienteMunicipio.DataBind()
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlDirClientePais_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaDirClienteEstado()
|
||||
CargaDirClienteMunicipio()
|
||||
CargaDirClienteColonia()
|
||||
CargaDirClienteLocalidad()
|
||||
End Sub
|
||||
Protected Sub DdlDirClienteEstado_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaDirClienteMunicipio()
|
||||
CargaDirClienteColonia()
|
||||
CargaDirClienteLocalidad()
|
||||
Protected Sub DdlDirClientePais_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaDirClienteEstado()
|
||||
CargaDirClienteMunicipio()
|
||||
CargaDirClienteColonia()
|
||||
CargaDirClienteLocalidad()
|
||||
End Sub
|
||||
Protected Sub DdlDirClienteEstado_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaDirClienteMunicipio()
|
||||
CargaDirClienteColonia()
|
||||
CargaDirClienteLocalidad()
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlDirClienteMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
@@ -23050,7 +23061,7 @@ Partial Class Ventas
|
||||
'ObjE.AddEventoBitacora(msgBitacora, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta)
|
||||
'ObjE.Dispose()
|
||||
|
||||
resp = ObjFacturaCancelacion.CancelarPorRefacturacion(DdlMotivoCancelacion.SelectedValue.ToEntero(), TxtMotivoRefac.Text)
|
||||
resp = ObjFacturaCancelacion.CancelarPorRefacturacion(DdlMotivoRefacturacion.SelectedValue.ToEntero(), TxtMotivoRefac.Text.Trim())
|
||||
Else
|
||||
Dim ListaRemisionesCancelar As New List(Of Integer)
|
||||
If ChkCanRem.Checked Then
|
||||
@@ -23063,7 +23074,7 @@ Partial Class Ventas
|
||||
|
||||
ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion
|
||||
|
||||
resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar)
|
||||
resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim())
|
||||
End If
|
||||
|
||||
SWatch.Stop()
|
||||
|
||||
Reference in New Issue
Block a user