sexta-feira, 17 de julho de 2015

HReadSeekFirst Ler Registros

HReadSeekFirst Ler Registros

STC_NomeFornecedor="Nao Existe Fornecedor"
HReadSeekFirst(fornecedor,fornecedor.id_fornecedor,QRY_rel_pagar_vencer.id_fornecedor)
IF HFound(fornecedor) THEN
    HReadSeekFirst(cadastro_geral,cadastro_geral.id_cadastro_geral,fornecedor.id_cadastro_geral)
    IF HFound(cadastro_geral) THEN
        STC_NomeFornecedor=cadastro_geral.id_razao_social_nome
    END
END







Nenhum comentário:

Postar um comentário

Teste

Teste
teste