span class="kw2"> BEGIN
 FOR SELECT COALESCE(gra.exclusivo_site,'N') AS Exclusivo_site,
        COALESCE(gra.multiplo,'N') AS Multiplo,
        COALESCE(gra.multiplo_valor,0) AS Multiplo_valor,
        mrc.descricao AS Marca ,pro1.codigo, pro1.cod_grade AS Cod_Ref, pro1.descricao AS tamanho,
        sbp.descricao AS SubClasse, fxe.descricao AS faixa, Grn.descricao AS Genero,
        pro1.estoque AS QTD_KL, pro2.estoque AS Estoque_Loja,prov.vendas_dia AS Vendas_dia,
        (iif (pro2.estoque < 0, 0, pro2.estoque) / prov.vendas_dia) AS Dias_Loja,
        (CAST(:pDiasAbastecer AS INTEGER) - (iif (pro2.estoque<0, 0,pro2.estoque) / prov.vendas_dia))* prov.vendas_dia AS Qtd_Sugerida,
        0 bipSaida, 0 bipEntrada, gra.cod_local_estoque,
        ( SELECT descricao FROM local_estoque WHERE codigo = gra.cod_local_estoque ) LOCAL
        FROM
        produto pro1
        INNER JOIN produto pro2 ON pro1.codigo = pro2.codigo
        INNER JOIN Grade gra ON gra.cod_empresa = pro1.cod_empresa AND gra.codigo = pro1.cod_grade
        INNER JOIN produto_vendas prov ON prov.cod_empresa = pro2.cod_empresa AND prov.codigo = pro2.codigo
        LEFT JOIN Marca mrc ON mrc.codigo = gra.cod_marca
        LEFT JOIN genero Grn ON Grn.codigo = gra.cod_genero
        LEFT JOIN faixa_etaria Fxe ON fxe.codigo = gra.cod_faixa_etaria
        LEFT JOIN sub_classe_prod sbp ON sbp.codigo = gra.cod_sub_classe_prod
        WHERE pro1.cod_empresa = :pCodEmpOrigem
        AND pro2.cod_empresa = :pCodEmpDestino
        AND prov.vendas_dia > 0
        AND gra.exclusivo_site IS NULL
        ORDER BY  gra.cod_local_estoque, gra.cod_empresa, gra.codigo
      INTO :EXCLUSIVO_SITE, :multiplo, :multiplo_valor, :MARCA, :CODIGO, :COD_REF, :TAMANHO, :SUBCLASSE, :FAIXA, :GENERO, :QTD_KL,
           :ESTOQUE_LOJA, :VENDAS_DIA, :DIAS_LOJA, :QTD_SUGERIDA,
           :BIPSAIDA, :BIPENTRADA, :COD_LOCAL_ESTOQUE, :LOCAL
  do
    BEGIN
      IF (QTD_KL = 0) THEN

        BEGIN
          QTD_ABASTECER = 0;
        END
      ELSE
        BEGIN
            IF (MULTIPLO = 'N') THEN
                IF (QTD_SUGERIDA <= 0) THEN
                    QTD_ABASTECER = 0;
                ELSE
                BEGIN
                    IF ((QTD_SUGERIDA > 0) AND (QTD_SUGERIDA <= 0.5)) THEN
                        QTD_ABASTECER = 1;
                    ELSE
                        QTD_ABASTECER = CAST(QTD_SUGERIDA AS INTEGER);
                 END
            ELSE
                BEGIN
                    IF (QTD_ABASTECER < MULTIPLO_VALOR) THEN
                        QTD_ABASTECER = 1;
                    ELSE
                    BEGIN
                        QTD_ABASTECER = TRUNC(QTD_SUGERIDA/MULTIPLO_VALOR);
                        IF (MOD(QTD_SUGERIDA/MULTIPLO_VALOR) <> 0) THEN
                            QTD_ABASTECER = QTD_ABASTECER + 1;
                    END
                END
        END
      suspend;

    END
END
RAW Paste Data
begin
 for select coalesce(gra.exclusivo_site,'N') AS Exclusivo_site,
        coalesce(gra.multiplo,'N') as Multiplo,
        coalesce(gra.multiplo_valor,0) as Multiplo_valor,
        mrc.descricao as Marca ,pro1.codigo, pro1.cod_grade as Cod_Ref, pro1.descricao as tamanho,
        sbp.descricao as SubClasse, fxe.descricao as faixa, Grn.descricao as Genero,
        pro1.estoque as QTD_KL, pro2.estoque as Estoque_Loja,prov.vendas_dia as Vendas_dia,
        (iif (pro2.estoque < 0, 0, pro2.estoque) / prov.vendas_dia) as Dias_Loja,
        (cast(:pDiasAbastecer as integer) - (iif (pro2.estoque<0, 0,pro2.estoque) / prov.vendas_dia))* prov.vendas_dia as Qtd_Sugerida,
        0 bipSaida, 0 bipEntrada, gra.cod_local_estoque,
        ( select descricao from local_estoque where codigo = gra.cod_local_estoque ) local
        from
        produto pro1
        inner join produto pro2 on pro1.codigo = pro2.codigo
        inner Join Grade gra on gra.cod_empresa = pro1.cod_empresa and gra.codigo = pro1.cod_grade
        inner join produto_vendas prov on prov.cod_empresa = pro2.cod_empresa and prov.codigo = pro2.codigo
        Left Join Marca mrc on mrc.codigo = gra.cod_marca
        left Join genero Grn on Grn.codigo = gra.cod_genero
        Left Join faixa_etaria Fxe on fxe.codigo = gra.cod_faixa_etaria
        Left Join sub_classe_prod sbp on sbp.codigo = gra.cod_sub_classe_prod
        Where pro1.cod_empresa = :pCodEmpOrigem
        and pro2.cod_empresa = :pCodEmpDestino
        and prov.vendas_dia > 0
        and gra.exclusivo_site is null
        order by  gra.cod_local_estoque, gra.cod_empresa, gra.codigo
      into :EXCLUSIVO_SITE, :multiplo, :multiplo_valor, :MARCA, :CODIGO, :COD_REF, :TAMANHO, :SUBCLASSE, :FAIXA, :GENERO, :QTD_KL,
           :ESTOQUE_LOJA, :VENDAS_DIA, :DIAS_LOJA, :QTD_SUGERIDA,
           :BIPSAIDA, :BIPENTRADA, :COD_LOCAL_ESTOQUE, :LOCAL
  do
    begin
      if (QTD_KL = 0) then

        begin
          QTD_ABASTECER = 0;
        end
      else
        begin
            if (MULTIPLO = 'N') then
                if (QTD_SUGERIDA <= 0) then
                    QTD_ABASTECER = 0;
                else
                begin
                    if ((QTD_SUGERIDA > 0) and (QTD_SUGERIDA <= 0.5)) then
                        QTD_ABASTECER = 1;
                    else
                        QTD_ABASTECER = cast(QTD_SUGERIDA as integer);
                 end
            else
                begin
                    if (QTD_ABASTECER < MULTIPLO_VALOR) then
                        QTD_ABASTECER = 1;
                    else
                    BEGIN
                        QTD_ABASTECER = TRUNC(QTD_SUGERIDA/MULTIPLO_VALOR);
                        IF (MOD(QTD_SUGERIDA/MULTIPLO_VALOR) <> 0) THEN
                            QTD_ABASTECER = QTD_ABASTECER + 1;
                    END
                end
        end
      suspend;

    end
end