RELATORIO FILTERING FILTRO

RELATORIO FILTERING FILTRO

IF gnTem_escolha_fornecedores=0 THEN
ELSE   
    nLista = 0
    FOR x = 1 TO ArrayCount(garrLista_fornecedores)
        IF QRY_rel_pagar_vencer.id_fornecedor=garrLista_fornecedores[x] THEN
            nLista = 1
            BREAK
        END   
    END
    IF nLista=0 THEN
        RESULT False
    END
END