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