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