-- vetas relacionadas

This commit is contained in:
2022-08-01 21:26:25 -07:00
parent 986b21edc5
commit 5b6971ac90

View File

@@ -4426,7 +4426,7 @@ Partial Class Ventas
End If
If DbRowVenta IsNot Nothing Then
If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
If ObjVentas.GetVentasRelacionadas(CveVenta, 1, UsuarioActual.CveEmpresa) Then
DtAntRelacionados = ObjVentas.DtResultados.FiltraParametros("TipoDocto IN ('Ing','Ant','Egs','Dev')")
End If