Fórum Problema com GDS32.DLL #372504

CREATE PROCEDURE DADOS_PROD 
returns (
    cod char(6),
    descri varchar(40),
    unid varchar(3),
    forn char(3),
    quant_estoque integer,
    codsub char(6),
    similar char(6),
    indic char(5),
    clasfiscal varchar(13),
    palm varchar(200),
    codbar char(13),
    codfor varchar(10),
    categ char(1),
    psico char(1),
    linha char(1),
    liber char(1),
    preco1 numeric(10,2),
    preco2 numeric(10,2),
    pmc numeric(10,2),
    prminimo numeric(10,2),
    pr_venda numeric(10,4),
    ultpco date,
    marlu numeric(10,2),
    cst char(3),
    extra numeric(5,2),
    bonif numeric(5,2),
    comvend numeric(5,2),
    ipi numeric(5,2),
    limminvenda integer,
    limmaxvenda integer,
    embfor char(3),
    prom char(1),
    subst char(1),
    lista char(13),
    secao varchar(6),
    prazo integer,
    comer char(1),
    classe varchar(18),
    flagpreco char(1),
    sal varchar(25),
    peso numeric(10,4),
    nomefor varchar(40))
as
begin
    /* Percorrer produtos */
    for select
        p.procod, p.profor, p.procodsub, p.prosimilar, p.proind, p.proclasfisc,
        p.prodescri, p.propalm, p.prounid, p.procodbarra, p.procodfor, p.procateg,
        p.propsico, p.prolinha, p.proliber, p.propreco1, p.propreco2,
        p.propmc, p.proprminimo, p.proultpco, p.promarlu, p.procst, p.proextra,
        p.prodesboni, p.procomvend, p.proindipi, p.prolimminvenda, p.prolimaxvend,
        p.proembfor, p.proprom, p.prosubst, p.prolista, p.prosecao, p.proprazo,
        p.procomer, p.proflagpreco, p.prosal, p.propeso, c.nomeclasse, f.fornome
    from
        produtos p
    left Join Classe c on c.codclasse = p.prolinha
    join fornecedores f on f.forcod = p.profor
    order by p.prodescri
    into
        :cod, :forn, :codsub, :similar, :indic, :clasfiscal,
        :descri, :palm, :unid, :codbar, :codfor, :categ,
        :psico, :linha, :liber, :preco1, :preco2,
        :pmc, :prminimo, :ultpco, :marlu, :cst, :extra,
        :bonif, :comvend, :ipi, :limminvenda, :limmaxvenda,
        :embfor, :prom, :subst, :lista, :secao, :prazo,
        :comer, :flagpreco, :sal, :peso, :classe, :nomefor
    do begin

        /* Calucar preço de venda */
        if (not bonif is null) then
            pr_venda = preco1 - (preco1 * bonif/100);
        if (not extra is null) then
            pr_venda = pr_venda - (pr_venda * extra/100);

        /* Estoque */
        select SUM(e.proestoque)
        from estoque e
        where e.procod = :cod
        into :quant_estoque;
        if (quant_estoque is null) then
            quant_estoque = 0;

        suspend;
    end /* percorrer produtos */
end