--FIX. error de factura global al refacturar
This commit is contained in:
@@ -12925,16 +12925,18 @@ Partial Class Ventas
|
|||||||
Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = False
|
Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If ObjFactura.CveVenta > 0 AndAlso ObjFactura.EsFacturaGlobal Then
|
If ObjFactura IsNot Nothing Then
|
||||||
Dim SATMes As String = ClsPaginas.GlobalDTGralSATMeses().FiltroPrimeroValor("Mes", $"CveSATMes = {ObjFactura.CveSATMes}")
|
If ObjFactura.CveVenta > 0 AndAlso ObjFactura.EsFacturaGlobal Then
|
||||||
Dim SATPerioricidad = ClsPaginas.GlobalDTGralSATPeriodicidad().FiltroPrimeroValor("Periodicidad", $"CveSATPeriodicidad = {ObjFactura.CveSATPeriodicidad}")
|
Dim SATMes As String = ClsPaginas.GlobalDTGralSATMeses().FiltroPrimeroValor("Mes", $"CveSATMes = {ObjFactura.CveSATMes}")
|
||||||
|
Dim SATPerioricidad = ClsPaginas.GlobalDTGralSATPeriodicidad().FiltroPrimeroValor("Periodicidad", $"CveSATPeriodicidad = {ObjFactura.CveSATPeriodicidad}")
|
||||||
|
|
||||||
Timbre.InformacionGlobal = New CFDIInformacionGlobal() With {
|
Timbre.InformacionGlobal = New CFDIInformacionGlobal() With {
|
||||||
.Año = ObjFactura.SATAnio.ToString(),
|
.Año = ObjFactura.SATAnio.ToString(),
|
||||||
.Meses = SATMes,
|
.Meses = SATMes,
|
||||||
.Perioricidad = SATPerioricidad
|
.Perioricidad = SATPerioricidad
|
||||||
}
|
}
|
||||||
|
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Return Timbre
|
Return Timbre
|
||||||
|
|||||||
Reference in New Issue
Block a user