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

--FIX TipoRelacion

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-10-02 16:56:52 -07:00
parent c97cc2c8cc
commit d9e6ee56c7
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/Ventas.aspx.vb
View File

@@ -13425,6 +13425,14 @@ Partial Class Ventas
End If End If
Obj.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero() Obj.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero()
If HdnFolioFiscalNC.Value <> "0" And HdnFolioFiscalNC.Value <> "" Then Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value) If HdnFolioFiscalNC.Value <> "0" And HdnFolioFiscalNC.Value <> "" Then Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
'SI LA NOTA DE CREDITO ES POR AMORTIZACION DE ANTICIPO , TAMBIEN DEBE TENER EL TIPO RELACION 07
If DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() = 2 AndAlso DdlTipoRelacionAnticipo.SelectedValue.ToEntero() = 7 Then
Obj.CveTipoRelacion = 7
Timbre.CFDIRelacionados.TipoRelacion = "07"
Timbre.CFDIRelacionados.TipoRelacionTexto = "CFDI por aplicación de anticipo"
End If
End If End If
' cuando es refacturacoin es cfdirelacionado, con relacion 04 ' cuando es refacturacoin es cfdirelacionado, con relacion 04
If Timbre.Comprobante.TipoComprobante = "I" AndAlso NuevaFactura = 1 Then If Timbre.Comprobante.TipoComprobante = "I" AndAlso NuevaFactura = 1 Then