admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

UWVA#23924: ABO: Mogelijkheid tot expliciet niet-verlengen.

Browse Source 
svn path=/Database/trunk/; revision=12187
This commit is contained in:
Maykel Geerdink
2012-08-21 14:59:51 +00:00
parent f7782be6e2
commit 65d95c7d89
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
BES/BES_PAC.SRC
View File

@@ -1016,8 +1016,8 @@ AS
THEN
BEGIN
-- Voor het aan te maken contract de gegevens van het eerste artikel pakken.
lbeschrijving := lcl.L ('lcl_bes_srtdeel_nr') || ': ' || artikel_rec.bes_srtdeel_nr;
lomschrijving := artikel_rec.bes_srtdeel_omschrijving;
lbeschrijving := substr(artikel_rec.bes_srtdeel_omschrijving, 1, 50);
lomschrijving := lcl.L('lcl_bes_srtdeel_nr') || ': ' || artikel_rec.bes_srtdeel_nr;
lopmerking := artikel_rec.bes_srtdeel_opmerking;
lcnt_nummer := bes_bestelling_prefix || TO_CHAR(artikel_rec.bes_bestelling_key);
lcnt_disckey := artikel_rec.bes_disc_params_cnt_disckey;
@@ -1038,12 +1038,12 @@ AS
ELSE
IF llast = 0
THEN
IF ((LENGTH (lbeschrijving) + LENGTH (artikel_rec.bes_srtdeel_nr) < (50 - 5)) AND
(LENGTH (lomschrijving) + LENGTH (artikel_rec.bes_srtdeel_omschrijving) < (2048 - 5)) AND
IF ((LENGTH (lbeschrijving) + LENGTH (artikel_rec.bes_srtdeel_omschrijving) < (50 - 5)) AND
(LENGTH (lomschrijving) + LENGTH (artikel_rec.bes_srtdeel_nr) < (2048 - 5)) AND
(LENGTH (lopmerking) + LENGTH (artikel_rec.bes_srtdeel_opmerking) < (2048 - 5)))
THEN
lbeschrijving := lbeschrijving || ', ' || artikel_rec.bes_srtdeel_nr;
lomschrijving := lomschrijving || CHR (10) || artikel_rec.bes_srtdeel_omschrijving;
lbeschrijving := lbeschrijving || ', ' || artikel_rec.bes_srtdeel_omschrijving;
lomschrijving := lomschrijving || CHR (10) || artikel_rec.bes_srtdeel_nr;
lopmerking := lopmerking || CHR (10) || artikel_rec.bes_srtdeel_opmerking;
ELSE
lbeschrijving := lbeschrijving || ', ' || '...';
@@ -1086,7 +1086,7 @@ AS
prs_contactpersoon_key = lprs_contactpersoon_key,
cnt_contract_kosten = ltotaal,
prs_kostenplaats_key = lprs_kostenplaats_key,
cnt_contract_verlenging = 0,
cnt_contract_verlenging = NULL,
bes_bestelopdr_key = bestelopdr_key
WHERE cnt_contract_key = lcnt_key;
fac.trackaction ('CNTUPD', lcnt_key, NULL, NULL, NULL);
@@ -1130,7 +1130,7 @@ AS
lprs_contactpersoon_key,
ltotaal,
lprs_kostenplaats_key,
0,
NULL,
bestelopdr_key);
fac.trackaction ('CNTNEW', lcnt_key, NULL, NULL, lcl.L ('lcl_bes_cnt_insert') || lcnt_nummer);
END IF;