diff --git a/MLD/MLD_PAC.SRC b/MLD/MLD_PAC.SRC index 5f696c66..2b61091e 100644 --- a/MLD/MLD_PAC.SRC +++ b/MLD/MLD_PAC.SRC @@ -1511,6 +1511,11 @@ CREATE OR REPLACE PACKAGE BODY mld AS RETURN; END; + IF l_mld_typeopdr_fvs IS NULL + THEN + l_mld_typeopdr_fvs := 0; + END IF; + -- Moet er gefiatteerd worden? IF l_mld_stdmelding_autoorderamnt < l_mld_typeopdr_fvs THEN @@ -1862,11 +1867,11 @@ CREATE OR REPLACE PACKAGE BODY mld AS IF l_mld_stdmelding_autoorderamnt > l_mld_disc_params_bestellimiet OR l_mld_stdmelding_autoorderamnt > l_mld_typeopdr_gvs THEN mld.setopdrachtstatus(l_new_opdr_key, 10, NULL); -- Ter goedkeuring. - ELSIF l_for_approval AND l_prs_kostenplaats_fiat = 1 AND l_mld_stdmelding_autoorderamnt >= l_mld_typeopdr_fvs + ELSIF l_for_approval AND l_prs_kostenplaats_fiat = 1 AND l_mld_stdmelding_autoorderamnt > l_mld_typeopdr_fvs -- We moeten fiatteren en er is geen (of een te lage) fiatteringsvrijstelling THEN mld.setopdrachtstatus(l_new_opdr_key, 3, NULL); -- Ter fiattering. ELSE - -- Hoge fiat vrijstelling, fiattering toch niet nodig. + -- Fiatteren niet nodig. mld.setopdrachtstatus(l_new_opdr_key, 5, NULL); -- Uitgegeven. -- mld.trackuitvoerende(opdr_key, uitvoerende, opdr_status_key); SELECT CASE