Valor 2 para funcionalidad 702, CveVentaAnticipoPadre relacionada en factura

Compras/PopUpVerFactura.aspx.vb

@@ -1810,6 +1810,18 @@ Partial Class PopUpVerFactura
                 End If
             End If
 
+            'SI ES TIPO RELACION 07- APLICACION DE ANTICIPOS
+            If dtVentas(0)("CveTipoRelacion").ToString.ToEntero = 7 Then
+                Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}")
+
+                Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString()
+                Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString()
+
+                If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
+                    Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
+                End If
+            End If
+
             'End If
 
             'If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then