ultima entrada + frequencia, sem tolerancia adicional. -- 4. Entrada valida: entre hoje - 4 meses e hoje (janela movel). -- 5. Sem entrada valida ou frequencia: fallback ORIGINAL, nao dias ate fim do mes. -- 6. Sugestao do periodo usa dias desde a entrada; e simulacao, nao soma a principal. -- 7. Agrupamento por empresa/fornecedor evita escolher IDs arbitrarios com MAX. -- 8. Pedido minimo e ponto de pedido usam MAX por grupo, nao soma de parametros. -- 9. ROUND preserva a politica antiga; nao implementa lote multiplo nem CEIL. WITH parametros AS ( SELECT COALESCE(CAST($P{P_EMP} AS varchar), '') AS p_emp, COALESCE(CAST($P{P_FORN} AS varchar), '') AS p_forn, COALESCE(CAST($P{P_DEPP} AS varchar), '') AS p_depp, COALESCE(CAST($P{P_SECP} AS varchar), '') AS p_secp, COALESCE(CAST($P{P_CAT} AS varchar), '') AS p_cat, COALESCE(CAST($P{P_SCAT} AS varchar), '') AS p_scat, COALESCE(CAST($P{P_MARCA} AS varchar), '') AS p_marca, COALESCE(CAST($P{P_FAM} AS varchar), '') AS p_fam, COALESCE(CAST($P{P_PRO} AS varchar), '') AS p_pro, COALESCE(CAST($P{P_APP} AS varchar), '') AS p_app, COALESCE(CAST($P{P_USU} AS varchar), '') AS p_usu, COALESCE(NULLIF(CAST($P{P_EMBALAGEM} AS varchar), '')::integer, 0) AS embalagem_opcao, COALESCE(NULLIF(CAST($P{P_CONDICAO} AS varchar), '')::integer, 0) AS condicao ), -- Compra recente e usada somente como fallback de exibicao/quantidade da entrada. ultimas_compras AS ( SELECT DISTINCT ON (com_emp_cod, com_forn_cod, com_pro_cod) com_emp_cod, com_forn_cod, com_pro_cod, com_nf_dtlan, com_qt FROM sd.vw_compra CROSS JOIN parametros p WHERE com_opnf_tipo = 'CO' AND com_nf_dtemi >= date_trunc('month', current_date) - interval '4 months' AND com_nf_dtemi < current_date + interval '1 day' AND (p.p_emp = '' OR CAST(com_emp_cod AS varchar) = p.p_emp) AND (p.p_forn = '' OR CAST(com_forn_cod AS varchar) = p.p_forn) AND (p.p_depp = '' OR CAST(com_depp_cod AS varchar) = p.p_depp) AND (p.p_secp = '' OR CAST(com_secp_cod AS varchar) = p.p_secp) AND (p.p_cat = '' OR CAST(com_cat_cod AS varchar) = p.p_cat) AND (p.p_scat = '' OR CAST(com_scat_cod AS varchar) = p.p_scat) AND (p.p_marca = '' OR CAST(com_marcas_cod AS varchar) = p.p_marca) AND (p.p_fam = '' OR CAST(com_fam_cod AS varchar) = p.p_fam) AND (p.p_pro = '' OR CAST(com_pro_cod AS varchar) = p.p_pro) AND (p.p_app = '' OR CAST(com_app_cod AS varchar) = p.p_app) ORDER BY com_emp_cod, com_forn_cod, com_pro_cod, com_nf_dtlan DESC NULLS LAST ), -- Historico nao calcula o giro: o giro continua vindo de sd.vw_est. ultven AS ( SELECT fat_emp_cod, fat_forn_cod, fat_pro_cod, SUM(CASE WHEN fat_nf_dtemi >= date_trunc('month', current_date) - interval '3 months' AND fat_nf_dtemi < date_trunc('month', current_date) - interval '2 months' THEN fat_qtmult ELSE 0 END) AS qtant3, SUM(CASE WHEN fat_nf_dtemi >= date_trunc('month', current_date) - interval '2 months' AND fat_nf_dtemi < date_trunc('month', current_date) - interval '1 month' THEN fat_qtmult ELSE 0 END) AS qtant2, SUM(CASE WHEN fat_nf_dtemi >= date_trunc('month', current_date) - interval '1 month' AND fat_nf_dtemi < date_trunc('month', current_date) THEN fat_qtmult ELSE 0 END) AS qtant1, SUM(CASE WHEN fat_nf_dtemi >= date_trunc('month', current_date) AND fat_nf_dtemi < current_date + interval '1 day' THEN fat_qtmult ELSE 0 END) AS qtatual FROM sd.vw_fat CROSS JOIN parametros p WHERE fat_nf_sta <> 'EX' AND fat_opnftipo_cod IN ('VE', 'VI', 'VV') AND fat_nf_dtemi >= date_trunc('month', current_date) - interval '4 months' AND fat_nf_dtemi < current_date + interval '1 day' AND (p.p_emp = '' OR CAST(fat_emp_cod AS varchar) = p.p_emp) AND (p.p_forn = '' OR CAST(fat_forn_cod AS varchar) = p.p_forn) AND (p.p_depp = '' OR CAST(fat_depp_cod AS varchar) = p.p_depp) AND (p.p_secp = '' OR CAST(fat_secp_cod AS varchar) = p.p_secp) AND (p.p_cat = '' OR CAST(fat_cat_cod AS varchar) = p.p_cat) AND (p.p_scat = '' OR CAST(fat_scat_cod AS varchar) = p.p_scat) AND (p.p_marca = '' OR CAST(fat_marcas_cod AS varchar) = p.p_marca) AND (p.p_fam = '' OR CAST(fat_fam_cod AS varchar) = p.p_fam) AND (p.p_pro = '' OR CAST(fat_pro_cod AS varchar) = p.p_pro) AND (p.p_app = '' OR CAST(fat_app_cod AS varchar) = p.p_app) GROUP BY fat_emp_cod, fat_forn_cod, fat_pro_cod ), estoque AS ( SELECT est_emp_cod, est_forn_cod, est_pro_cod, est_pro_des, est_uve_des, est_uve_un, est_pro_ref, MAX(est_dtultentr)::date AS dt_entrada, SUM(est_qtultentr)::numeric AS qt_entrada, SUM(est_custocompra)::numeric AS custo, COALESCE(SUM(est_qt), 0)::numeric AS saldo, COALESCE(SUM(est_qtdisp), 0)::numeric AS disponivel, COALESCE(SUM(est_qtcompra), 0)::numeric AS chegar, COALESCE(SUM(est_girodia), 0)::numeric AS giro, COALESCE(SUM(est_qtmin), 0)::numeric AS minimo_cadastrado, COALESCE(MAX(est_qtpontoped), 0)::numeric AS pp_cadastro, COALESCE(MAX(est_qtpedmin), 0)::numeric AS pedido_minimo, SUM(est_duracao) AS est_duracao, SUM(est_duracaodisp) AS est_duracaodisp FROM sd.vw_est CROSS JOIN parametros p WHERE est_foralinha = 'N' AND (p.p_emp = '' OR CAST(est_emp_cod AS varchar) = p.p_emp) AND (p.p_forn = '' OR CAST(est_forn_cod AS varchar) = p.p_forn) AND (p.p_depp = '' OR CAST(est_depp_cod AS varchar) = p.p_depp) AND (p.p_secp = '' OR CAST(est_secp_cod AS varchar) = p.p_secp) AND (p.p_cat = '' OR CAST(est_cat_cod AS varchar) = p.p_cat) AND (p.p_scat = '' OR CAST(est_scat_cod AS varchar) = p.p_scat) AND (p.p_marca = '' OR CAST(est_marcas_cod AS varchar) = p.p_marca) AND (p.p_fam = '' OR CAST(est_fam_cod AS varchar) = p.p_fam) AND (p.p_pro = '' OR CAST(est_pro_cod AS varchar) = p.p_pro) AND (p.p_app = '' OR CAST(est_app_cod AS varchar) = p.p_app) GROUP BY est_emp_cod, est_forn_cod, est_pro_cod, est_pro_des, est_uve_des, est_uve_un, est_pro_ref ), -- Mantem todos os registros fpe. Nao escolhe embalagem arbitraria com DISTINCT ON. base AS ( SELECT e.*, fpe.fpetipo, COALESCE(fpe.fpemult, 1)::numeric AS mult, fpe.fpeqtmaster AS est_qtmaster, GREATEST(COALESCE(f.for_freq_compra, 0), 0) AS freq, GREATEST(COALESCE(f.forpze, 0), 0)::numeric AS prazo, GREATEST(COALESCE(f.formargsegest, 0), 0)::numeric AS margem, c.com_nf_dtlan AS dt_compra, COALESCE(e.qt_entrada, c.com_qt)::numeric AS ultima_quantidade, COALESCE(v.qtant3, 0)::numeric AS venda3, COALESCE(v.qtant2, 0)::numeric AS venda2, COALESCE(v.qtant1, 0)::numeric AS venda1, COALESCE(v.qtatual, 0)::numeric AS venda_atual FROM estoque e LEFT JOIN fpe ON fpe.fpeempparcod = e.est_emp_cod AND fpe.fpeforparcod = e.est_forn_cod AND fpe.fpeprocod = e.est_pro_cod LEFT JOIN forn f ON f.forparcod = COALESCE(fpe.fpeforparcod, e.est_forn_cod) LEFT JOIN ultimas_compras c ON c.com_emp_cod = e.est_emp_cod AND c.com_forn_cod = e.est_forn_cod AND c.com_pro_cod = e.est_pro_cod LEFT JOIN ultven v ON v.fat_emp_cod = e.est_emp_cod AND v.fat_forn_cod = e.est_forn_cod AND v.fat_pro_cod = e.est_pro_cod ), referencias AS ( SELECT b.*, (freq > 0 AND dt_entrada BETWEEN (current_date - interval '4 months')::date AND current_date) AS ciclo_valido, CASE WHEN freq > 0 AND dt_entrada IS NOT NULL THEN dt_entrada + freq END AS proxima_referencia, CASE WHEN dt_entrada IS NOT NULL THEN current_date - dt_entrada END AS dias_decorridos, -- O minimo estimado legado fica separado do minimo usado no PP virtual. CASE WHEN minimo_cadastrado > 0 THEN minimo_cadastrado ELSE prazo * giro END AS minimo_legado, -- PP virtual usa minimo CADASTRADO para nao contar prazo duas vezes. CASE WHEN pp_cadastro > 0 THEN pp_cadastro * mult ELSE giro * (prazo + margem) + GREATEST(minimo_cadastrado, 0) END AS pp_interno, CASE WHEN pp_cadastro > 0 THEN 'CADASTRADO' ELSE 'VIRTUAL' END AS origem_pp, GREATEST(pedido_minimo, 0) * mult AS pedmin_interno FROM base b ), alvos AS ( SELECT r.*, CASE WHEN freq <= 0 THEN 'SEM FREQUENCIA' WHEN dt_entrada IS NULL THEN 'SEM DATA DE ENTRADA' WHEN dt_entrada > current_date THEN 'DATA FUTURA' WHEN NOT ciclo_valido THEN 'ENTRADA FORA DOS 4 MESES' WHEN current_date > proxima_referencia THEN 'ATRASADO' WHEN current_date = proxima_referencia THEN 'VENCE HOJE' ELSE 'EM DIA' END AS situacao_ciclo, CASE WHEN ciclo_valido THEN GREATEST(current_date - proxima_referencia, 0) END AS dias_atraso, -- Estoque ideal legado e preservado como coluna de conferencia. minimo_legado + margem * giro AS ideal_legado, CASE WHEN ciclo_valido THEN giro * freq + minimo_legado ELSE minimo_legado + margem * giro END AS alvo_ciclo, CASE WHEN ciclo_valido AND current_date > proxima_referencia THEN giro * dias_decorridos + minimo_legado END AS alvo_periodo FROM referencias r ), necessidades AS ( SELECT a.*, alvo_ciclo - disponivel - chegar AS necessidade_ciclo, alvo_periodo - disponivel - chegar AS necessidade_periodo, (disponivel + chegar <= pp_interno) AS compra_autorizada FROM alvos a ), sugestoes AS ( SELECT n.*, -- Minimo nao cria compra se necessidade for zero ou negativa. CASE WHEN NOT compra_autorizada OR necessidade_ciclo <= 0 THEN 0::numeric ELSE GREATEST(necessidade_ciclo, pedmin_interno) END AS sugestao_ciclo, CASE WHEN necessidade_periodo IS NULL THEN NULL::numeric WHEN NOT compra_autorizada OR necessidade_periodo <= 0 THEN 0::numeric ELSE GREATEST(necessidade_periodo, pedmin_interno) END AS sugestao_periodo, GREATEST(-necessidade_ciclo, 0) AS excesso_ciclo, CASE WHEN NOT compra_autorizada THEN 'ACIMA DO PONTO DE PEDIDO' WHEN necessidade_ciclo <= 0 THEN 'SEM NECESSIDADE LIQUIDA' WHEN pedmin_interno > necessidade_ciclo THEN 'PEDIDO MINIMO APLICADO' ELSE 'NECESSIDADE DO CICLO' END AS motivo_sugestao FROM necessidades n ), -- Conversao centralizada; preserva os sentidos de quantidade/custo da SQL original. exibicao AS ( SELECT s.*, p.embalagem_opcao, p.condicao, CASE WHEN p.embalagem_opcao = 1 THEN 1::numeric ELSE mult END AS divisor, ROUND(CASE WHEN p.embalagem_opcao = 1 THEN custo ELSE custo * mult END, 4) AS custo_exibido FROM sugestoes s CROSS JOIN parametros p ), cabecalho AS ( SELECT 'Sugestão de Compra'::text AS relatorio, to_char(now(), 'dd/mm/yyyy HH24:MI') || ' (' || COALESCE((SELECT usulogin FROM usu WHERE CAST(usufunparcod AS varchar) = p.p_usu), '...') || ')' AS dtimpr, 'th_sugestao_compra v26.10.26 - proposta para homologacao'::text AS versao, '[Empresa: ' || COALESCE((SELECT parfan FROM par WHERE CAST(parcod AS varchar) = p.p_emp), 'TODAS') || ']' || ', [Fornecedor: ' || COALESCE((SELECT parfan FROM par WHERE CAST(parcod AS varchar) = p.p_forn), 'TODOS') || ']' || CASE WHEN p.p_depp <> '' THEN ', [Departamento: ' || p.p_depp || ']' ELSE '' END || CASE WHEN p.p_secp <> '' THEN ', [Secao: ' || p.p_secp || ']' ELSE '' END || CASE WHEN p.p_cat <> '' THEN ', [Categoria: ' || p.p_cat || ']' ELSE '' END || CASE WHEN p.p_scat <> '' THEN ', [Subcategoria: ' || p.p_scat || ']' ELSE '' END || CASE WHEN p.p_marca <> '' THEN ', [Marca: ' || p.p_marca || ']' ELSE '' END || CASE WHEN p.p_fam <> '' THEN ', [Familia: ' || p.p_fam || ']' ELSE '' END || CASE WHEN p.p_pro <> '' THEN ', [Produto: ' || p.p_pro || ']' ELSE '' END || CASE WHEN p.p_app <> '' THEN ', [Aplicacao: ' || p.p_app || ']' ELSE '' END || CASE WHEN p.embalagem_opcao = 1 THEN ', [Embalagem Alternativa]' ELSE ', [Embalagem Principal]' END AS filtro FROM parametros p ) SELECT c.relatorio, c.dtimpr, c.versao, c.filtro, x.est_emp_cod, x.est_forn_cod, x.fpetipo, x.est_pro_cod, x.est_pro_des || ' (Cód: ' || x.est_pro_cod || ')' AS est_pro_des, ROUND(x.mult) || 'X' || x.est_uve_des AS embalagem, COALESCE(x.dt_entrada, x.dt_compra::date) AS est_dtultentr, x.dt_entrada AS dt_referencia_ciclo, ROUND(x.custo_exibido * ROUND(x.sugestao_ciclo / x.divisor), 3) AS total_est_custocompra, ROUND(x.ultima_quantidade / x.divisor) AS est_qtultentr, x.custo_exibido AS est_custocompra, to_char(date_trunc('month', current_date) - interval '3 months', 'TMMon') AS des_mes_ant3, ROUND(x.venda3 / x.divisor) AS qtant3, to_char(date_trunc('month', current_date) - interval '2 months', 'TMMon') AS des_mes_ant2, ROUND(x.venda2 / x.divisor) AS qtant2, to_char(date_trunc('month', current_date) - interval '1 month', 'TMMon') AS des_mes_ant1, ROUND(x.venda1 / x.divisor) AS qtant1, to_char(current_date, 'TMMon') AS des_mes_atual, ROUND(x.venda_atual / x.divisor) AS qtatual, ROUND(x.saldo / x.divisor) AS est_qt, ROUND(x.disponivel / x.divisor) AS est_qtdisp, ROUND(x.giro / x.divisor, 4) AS est_girodia, ROUND(x.giro * 30 / x.divisor, 4) AS est_giromes, x.est_duracao, x.est_duracaodisp, ROUND(x.minimo_legado / x.divisor) AS qtestmin, CASE WHEN x.minimo_cadastrado > 0 THEN 'CADASTRADO' ELSE 'ESTIMADO LEGADO' END AS origem_minimo, ROUND(x.ideal_legado / x.divisor) AS qtideal, ROUND(x.alvo_ciclo / x.divisor, 3) AS estoque_alvo_ciclo, x.freq AS freq_compra, CASE WHEN x.ciclo_valido THEN x.freq END AS dias_cobertura, x.dias_decorridos, x.proxima_referencia, x.dias_atraso, x.situacao_ciclo, CASE WHEN x.ciclo_valido THEN 'FREQUENCIA' ELSE 'FORMULA ORIGINAL' END AS regra_calculo, x.prazo AS prazo_entrega, x.margem AS margem_entrega, ROUND(x.pp_interno / x.divisor, 3) AS est_qtpontoped, x.origem_pp, ROUND(x.pedmin_interno / x.divisor, 3) AS est_qtpedmin, -- Necessidades exibidas na MESMA escala dos saldos e sugestoes. ROUND(x.necessidade_ciclo / x.divisor, 3) AS necessidade_bruta, ROUND(x.necessidade_periodo / x.divisor, 3) AS necessidade_periodo, ROUND(x.sugestao_ciclo / x.divisor) AS qtsug, ROUND(x.sugestao_periodo / x.divisor) AS qtsug_periodo, ROUND(x.excesso_ciclo / x.divisor) AS qtexesso, x.motivo_sugestao, ROUND(x.custo_exibido * ROUND(x.sugestao_periodo / x.divisor), 3) AS total_periodo, x.est_qtmaster, ROUND(x.chegar / x.divisor, 1) AS est_qtchegar, x.est_pro_ref FROM exibicao x CROSS JOIN cabecalho c WHERE x.condicao NOT IN (2, 3) OR (x.condicao = 2 AND (ROUND(x.sugestao_ciclo / x.divisor) > 0 OR ROUND(x.sugestao_periodo / x.divisor) > 0)) OR (x.condicao = 3 AND ROUND(x.excesso_ciclo / x.divisor) > 0) ORDER BY x.est_pro_des, x.est_emp_cod, x.est_forn_cod, x.fpetipo;]]>