diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 246596a7e..52154c3cf 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -11558,6 +11558,7 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then ObjFactura.Alfa1 = TxtFechaOS.Text.Trim ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime + ObjFactura.FechaParaSurtir = TxtFechaOS.Text.Trim.ToDateTime Else ObjFactura.Alfa1 = TxtAlfa1.Text.Trim End If @@ -16299,7 +16300,6 @@ Partial Class Ventas End Function #End Region - #Region " BTN ELIMINAR " Protected Sub BtnEmitir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEmitir.Click @@ -16574,8 +16574,6 @@ Partial Class Ventas End Sub #End Region - - #Region " VISTA PREVIA " Protected Sub BtnVistaPrevia_Click(sender As Object, e As System.EventArgs) Handles BtnVistaPrevia.Click VistaPreviaNew() @@ -16584,195 +16582,6 @@ Partial Class Ventas #End Region #Region "I M A G E - B U T T O N S" - 'Protected Function CancelarFactura(ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjAC As ClsContPAQi, ByRef ObjBancos As ClsBancos) As Boolean - ' Dim IDPoliza As Integer = -1 - ' Dim CvePrePoliza As Integer - ' Dim CvePlantillaPoliza As Integer - - ' Dim ErrorCancelar As Boolean = False - ' Dim Mensaje As String = "" - - ' Try - ' ObjFacturaDevolucion.TipoDocto = ObjFactura.TipoDocto - - ' Dim TipoContable As Integer = -1 - ' If ObjFacturaDevolucion.TipoDocto.Contiene("Egs", "Dev") Then - ' CvePlantillaPoliza = 7 - ' ElseIf ObjFacturaDevolucion.TipoDocto.Contiene("Ing", "Rem", "Ant") Then - ' CvePlantillaPoliza = 4 - ' End If - - ' If UsuarioActual.Empresa.Funcionalidad(706) = "1" AndAlso Then - - ' End If - - - ' CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, TxtTotal.Text.ToDouble, TxtTotal.Text.Replace(",", "").ToDouble, DdlMoneda.SelectedValue.ToEntero(), NowADS(), NombreCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - ' ObjFacturaDevolucion.CveVenta = CveVenta - ' ObjFacturaDevolucion.CvePrePoliza = CvePrePoliza - - - ' If NuevaFactura = 1 AndAlso UsuarioActual.TienePermisoProceso(222) Then - ' If ObjVentas.GetVentaDetalle(ObjFacturaDevolucion.CveVenta) Then - ' TmpDT = ObjVentas.DtResultados - ' TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer)) - ' TmpDT.Columns.Add("TieneProntoPago", GetType(String)) - ' TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal)) - ' End If - ' ErrorCancelar = ProcesoPrepolizas(ObjConta, ObjFacturaDevolucion, -1, TmpDT, ObjAC, -1, ObjBancos, ObjVentas) - ' Else - ' ErrorCancelar = ProcesoPrepolizas(ObjConta, ObjFacturaDevolucion, -1, TmpDT, ObjAC, -1, ObjBancos, ObjVentas) - ' End If - - ' If Not ErrorCancelar Then - ' ErrorCancelar = GuardarVentaImpuestosLocales(ObjVentas, ObjConta, ObjFacturaDevolucion, -1) - ' End If - - ' If CveEstatus = 4 Then - - ' If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, "", NowADS(), CveVenta, IDPoliza) Then - ' Mensaje = "El nuevo estatus se guardó correctamente" - ' Else - ' ErrorCancelar = True - ' End If - - ' 'Si se está mandando a Cancelada SAT - ' ElseIf CveEstatus = 5 Then - - ' Dim DT As DataTable = Nothing - - ' If FolioFiscal = "" Then - ' Dim XmlDoc As New XmlDocument - ' XmlDoc.Load(Ruta & "XML\" & DdlTipoComprobante.SelectedValue & "\" & VentaFolio & ".xml") - ' ViewState("FolioFiscal") = XmlDoc.DocumentElement("cfdi:Complemento").FirstChild.Attributes("UUID").InnerText - ' End If - - ' Dim ObjCancelacion As New Timbrado - - ' Dim Total As Decimal = TxtTotal.Text.ToDecimal - ' Dim RFCReceptor As String = HdnRFCVenta.Value - - ' If Not ObjVentas.UpdateEstatusFactura(13, FolioFiscal, "", NowADS(), 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 - ' 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.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then - ' Dim IDMPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFacturaDevolucion, True) - ' IDPoliza = IDMPoliza.IdPoliza - ' If IDMPoliza.IdPoliza <= 0 Then - ' Mensaje = "No se pudo generar la poliza" - ' ErrorCancelar = True - ' End If - ' End If - - ' If Not ErrorCancelar Then - ' If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, ObjCancelacion.CancelacionAcuse, NowADS(), CveVenta, IDPoliza, CvePAC:=UsuarioActual.Empresa.CvePAC) Then - ' Mensaje = "El nuevo estatus se guardó correctamente" - ' Else - ' ErrorCancelar = True - ' End If - ' End If - ' Else - ' ErrorCancelar = True - ' End If - - ' ObjCancelacion = Nothing - - ' End If - ' Catch ex As Exception - ' GuardaLog("CancelF." & ex.ToString()) - ' ErrorCancelar = True - ' End Try - - ' Return Not ErrorCancelar - 'End Function - 'Protected Function CancelarFactura2(ObjVentas As ClsVentas, ObjConta As ClsContabilidad, ObjAC As ClsContPAQi, ObjBancos As ClsBancos) As Boolean - - ' Dim IDPoliza As Integer = -1 - ' Dim CvePrePoliza As Integer - ' Dim CvePlantillaPoliza As Integer - - ' Dim ErrorCancelar As Boolean = False - ' Dim Mensaje As String = "" - - ' CreaObjetosVenta() - - ' If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then - ' CvePlantillaPoliza = 7 - ' ElseIf ObjFactura.TipoDocto.Contiene("Ing", "Rem") Then - ' CvePlantillaPoliza = 4 - ' End If - - - ' CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, TxtTotal.Text.ToDouble, TxtTotal.Text.Replace(",", "").ToDouble, DdlMoneda.SelectedValue.ToEntero(), NowADS(), NombreCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - ' ObjFactura.CveVenta = CveVenta - ' ObjFactura.CvePrePoliza = CvePrePoliza - - ' If HplSaldoAuxiliar.Text.ToDecimal > 0 Then - ' ErrorCancelar = ProcesoPrepolizas(ObjConta, ObjFactura, -1, TmpDT, ObjAC, -1, ObjBancos, ObjVentas) - ' End If - - ' If Not ErrorCancelar Then - ' ErrorCancelar = GuardarVentaImpuestosLocales(ObjVentas, ObjConta, ObjFactura, -1) - ' End If - - ' If CveEstatus = 4 Then - - ' If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, "", NowADS(), CveVenta, IDPoliza) Then - ' Mensaje = "El nuevo estatus se guardó correctamente" - ' Else - ' ErrorCancelar = True - ' End If - - ' 'Si se está mandando a Cancelada SAT - ' ElseIf CveEstatus = 5 Then - - ' Dim DT As DataTable = Nothing - - ' If FolioFiscal = "" Then - ' Dim XmlDoc As New XmlDocument - ' XmlDoc.Load(Ruta & "XML\" & DdlTipoComprobante.SelectedValue & "\" & VentaFolio & ".xml") - ' ViewState("FolioFiscal") = XmlDoc.DocumentElement("cfdi:Complemento").FirstChild.Attributes("UUID").InnerText - ' End If - - ' 'Si es cancelar en el SAT: - ' Dim CFDi As New ClbNegBICFDv3_2.ClsNegEDI - ' Dim Respuesta As New ClbNegBICFDv3_2.ClsNegRespuesta - ' Respuesta = CFDi.CancelaCFdi(UsuarioActual.Empresa.BIUsuario, UsuarioActual.Empresa.BIContraseña, Ruta & "Certificados\" & UsuarioActual.Empresa.ArchivoPfx, UsuarioActual.Empresa.ContraseñaKey, UsuarioActual.Empresa.RFC, FolioFiscal, "http://208.43.160.178/srvCFDi/service1.asmx") - - ' If Respuesta Is Nothing Then - ' 'Alert("La factura no se pudo cancelar.
Posbiles causas:
  - Los servicios del SAT están ocupados.
  - El Folio Fiscal no ha quedado registrado.", TipoMensaje.MsgError) - ' Me.GuardaLog(CFDi.MsgError) - ' ErrorCancelar = True - ' Mensaje = "La factura no se pudo cancelar.
Posbiles causas:
  - Los servicios del SAT están ocupados.
  - El Folio Fiscal no ha quedado registrado." - ' ElseIf Respuesta.NoCertificadoSAT <> String.Empty Then - - ' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then - ' Dim IDMPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFacturaDevolucion, True) - ' IDPoliza = IDMPoliza.IdPoliza - ' If IDMPoliza.IdPoliza <= 0 Then - ' Mensaje = "No se pudo generar la poliza" - ' ErrorCancelar = True - ' End If - ' End If - - ' If Not ErrorCancelar Then - ' If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, Respuesta.NoCertificadoSAT, Respuesta.FechaTimbrado, CveVenta, IDPoliza) Then - ' Mensaje = "El nuevo estatus se guardó correctamente" - ' Else - ' ErrorCancelar = True - ' End If - ' End If - ' End If - - ' End If - - ' Return Not ErrorCancelar - 'End Function - Protected Sub ImgBtnAddC_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnAddC.Click Dim Row As DataRow = Nothing Row = DTmpC.NewRow