CLIENTE LER

CLIENTE LER

//ler cliente
HReadSeekFirst(cliente,cliente.id_cliente,TABLE_cliente.COL_Id_cliente)
IF HFound(cliente) THEN
    Open(WIN_Form_cliente)
END

CADASTRO_GERAL LER

CADASTRO_GERAL LER

        HReadSeekFirst(cadastro_geral,cadastro_geral.id_cadastro_geral,gdsQry.cli_id_cadastro_geral)
        IF HFound(cadastro_geral) THEN
            sNome_empresa=cadastro_geral.id_razao_social_nome
        ELSE
            sNome_empresa=gdsQry.cli_fantasia // Nao existe no cadastro geral
        END