AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- quitar timbrado de NC si se hace desde el boton emitir al emitir un Ingreso

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-11-25 18:43:06 -07:00
parent 12a4383803
commit 65771e7fbb
1 changed files with 27 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
Ventas/Ventas.aspx.vb
View File

@@ -16323,32 +16323,33 @@ Partial Class Ventas
OnError("Ocurrió un error al enviar el PDF", ex)
End Try
If ObjFactura.TipoDocto = "Ing" AndAlso ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "07" Then
CreaObjetosVentaAmortizacion(Nothing, ObjTimbrado.UUID, ObjFactura.CveVentaRelacion, CveVenta)
For Each Gvr As GridViewRow In GvAntNC.Rows
If Gvr.DataKey("FolioFiscal").ToString() = "" AndAlso Gvr.DataKey("TipoDocto") = "Egs" Then
ObjFacturaDevolucion.CveVenta = Gvr.DataKey("CveVenta").ToEntero()
ObjFacturaDevolucion.Serie = Gvr.DataKey("Serie").ToString()
ObjFacturaDevolucion.Folio = Gvr.DataKey("Folio").ToEntero()
ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion)
End If
Exit For
Next
If ObjFacturaDevolucion.CveVenta.ToEntero() > 0 Then
Dim Obj2 As New List(Of Object)
Obj2.Add(ObjFacturaDevolucion)
If Not IsNothing(Obj2) AndAlso Obj2.Count > 0 Then
Dim ofa As Modelos.Factura = CType(Obj2(0), Modelos.Factura)
ofa.Timbre.CFDIRelacionados.UUID.Clear()
ofa.Timbre.CFDIRelacionados.UUID.Add(ObjTimbrado.UUID)
If ObjTimbrado.TimbrarFactura(UsuarioActual, ofa) Then
MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b> se timbro correctamente.<br/><br/>", ofa.TipoDocumento, ofa.SerieFolio))
Else
MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b> no se timbro correctamente.<br/><br/>", ofa.TipoDocumento, ofa.SerieFolio))
End If
End If
End If
End If
'SE COMENTA PORQUE SE GENERA LA NOTA DE CREDITO CON LOS IMPORTES DE LA VENTA
'If ObjFactura.TipoDocto = "Ing" AndAlso ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "07" Then
' CreaObjetosVentaAmortizacion(Nothing, ObjTimbrado.UUID, ObjFactura.CveVentaRelacion, CveVenta)
' For Each Gvr As GridViewRow In GvAntNC.Rows
' If Gvr.DataKey("FolioFiscal").ToString() = "" AndAlso Gvr.DataKey("TipoDocto") = "Egs" Then
' ObjFacturaDevolucion.CveVenta = Gvr.DataKey("CveVenta").ToEntero()
' ObjFacturaDevolucion.Serie = Gvr.DataKey("Serie").ToString()
' ObjFacturaDevolucion.Folio = Gvr.DataKey("Folio").ToEntero()
' ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion)
' End If
' Exit For
' Next
' If ObjFacturaDevolucion.CveVenta.ToEntero() > 0 Then
' Dim Obj2 As New List(Of Object)
' Obj2.Add(ObjFacturaDevolucion)
' If Not IsNothing(Obj2) AndAlso Obj2.Count > 0 Then
' Dim ofa As Modelos.Factura = CType(Obj2(0), Modelos.Factura)
' ofa.Timbre.CFDIRelacionados.UUID.Clear()
' ofa.Timbre.CFDIRelacionados.UUID.Add(ObjTimbrado.UUID)
' If ObjTimbrado.TimbrarFactura(UsuarioActual, ofa) Then
' MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b> se timbro correctamente.<br/><br/>", ofa.TipoDocumento, ofa.SerieFolio))
' Else
' MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b> no se timbro correctamente.<br/><br/>", ofa.TipoDocumento, ofa.SerieFolio))
' End If
' End If
' End If
'End If
'NOTIFICACION DE SMS