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

BVB1#79885 Automatisch nummeren van objecten inclusief scheidingsteken

Browse Source 
svn path=/Website/trunk/; revision=61719
This commit is contained in:
Peter Feij
2023-09-05 15:12:52 +00:00
parent b65389b372
commit 4289f52b84
5 changed files with 18 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
APPL/CAD/ins_create.asp
View File

@@ -173,38 +173,39 @@ var locKey = getQParamInt("loc_key");
if (scenario_key == 0)
{
sql = "SELECT ins.get_description('LPN_INS_DEEL', "+locKey+", ins_srtdeel_code_upper)"
+ " FROM ins_srtdeel WHERE ins_srtdeel_key="+srtdeel_key;
sql = "SELECT ins.nextdescription(ins_srtdeel_code, NULL)"
+ " FROM ins_srtdeel "
+ " WHERE ins_srtdeel_key = " + srtdeel_key;
}
else
{
sql = "SELECT max(ins_srtdeel_code_upper)||NVL "
sql = "SELECT max(ins_srtdeel_code)||NVL "
+ " (LPAD "
+ " (TO_CHAR "
+ " ( MAX "
+ " (TO_NUMBER (SUBSTR (prj_deel_omschrijving, "
+ " LENGTH (ins_srtdeel_code_upper) "
+ " LENGTH (ins_srtdeel_code) "
+ " + 1, "
+ " LENGTH (prj_deel_omschrijving) "
+ " - LENGTH (ins_srtdeel_code_upper) "
+ " - LENGTH (ins_srtdeel_code) "
+ " ) "
+ " ) "
+ " ) "
+ " + 1 "
+ " ), "
+ " MAX ( LENGTH (prj_deel_omschrijving) "
+ " - LENGTH (ins_srtdeel_code_upper) "
+ " - LENGTH (ins_srtdeel_code) "
+ " ), "
+ " '0' "
+ " ), "
+ " '001' "
+ " ) "
+ " FROM prj_deel, prj_ruimte, ins_srtdeel "
+ " WHERE prj_deel_omschrijving LIKE ins_srtdeel_code_upper || '%' "
+ " WHERE UPPER(prj_deel_omschrijving) LIKE ins_srtdeel_code_upper || '%' " // caseinsensitive
+ " AND fac.safe_to_number (SUBSTR (prj_deel_omschrijving, "
+ " LENGTH (ins_srtdeel_code_upper) + 1, "
+ " LENGTH (ins_srtdeel_code) + 1, "
+ " LENGTH (prj_deel_omschrijving) "
+ " - LENGTH (ins_srtdeel_code_upper) "
+ " - LENGTH (ins_srtdeel_code) "
+ " ) "
+ " ) IS NOT NULL "
+ " AND prj_deel_verwijder IS NULL "

4
APPL/INS/ins_edit_deel_save.asp
View File

@@ -258,9 +258,7 @@ else
}
else
{
sql = "SELECT ins.get_description(" + safe.quoted_sql(parent_key < 0 ? "LPN_INS_DEEL" : "LPN_INS_ONDERDEEL")
+ " ," + (parent_key < 0 ? loc : parent_key) // scope for uniqueness could be location (unused) or parent
+ " , ins_srtdeel_code_upper)"
sql = "SELECT ins.nextdescription(ins_srtdeel_code, " + (parent_key < 0 ? "NULL" : parent_key) + ")"
+ " FROM ins_srtdeel"
+ " WHERE ins_srtdeel_key = " + srtdeel_key;
oRs = Oracle.Execute(sql);

9
APPL/INS/ins_srtdeel_volg.asp
View File

@@ -17,15 +17,12 @@
var srt_deel_key = getQParamInt("srtdeel_key");
var parent_key = getQParamInt("parent_key", -1);
var sql = "SELECT "
+ "ins.get_description('"+(parent_key<0?"LPN_INS_DEEL":"LPN_INS_ONDERDEEL")+"',"
+ (parent_key<0?"NULL":parent_key) // scope for uniqueness could be location (unused) or parent
+ ", ins_srtdeel_code_upper)"
+ " FROM ins_srtdeel WHERE ins_srtdeel_key="+srt_deel_key;
var sql = "SELECT ins.nextdescription(ins_srtdeel_code, " + (parent_key < 0 ? "NULL" : parent_key) + ")"
+ " FROM ins_srtdeel "
+ "WHERE ins_srtdeel_key = " + srt_deel_key;
var oRs = Oracle.Execute(sql);
var result = { success: true, volgnr: oRs(0).Value };
Response.Write(JSON.stringify(result));
%>
<% ASPPAGE_END(); %>

4
APPL/PDA/ins_deel.asp
View File

@@ -211,9 +211,7 @@ if (ins_key == -1)
isNew = true;
var this_ins = { canChangeAlg: true };
var sql = "SELECT ins.get_description('" + (parent_key<0 ? "LPN_INS_DEEL" : "LPN_INS_ONDERDEEL") + "',"
+ (parent_key<0 ? "NULL" : parent_key) // scope for uniqueness could be location (unused) or parent
+ " , ins_srtdeel_code_upper)"
var sql = "SELECT ins.nextdescription(ins_srtdeel_code, " + (parent_key < 0 ? "NULL" : parent_key) + ")"
+ " FROM ins_srtdeel"
+ " WHERE ins_srtdeel_key = " + srtobj_key;
var oRs = Oracle.Execute( sql );

8
APPL/SLE/sle_edit_srtdeel_save.asp
View File

@@ -255,9 +255,7 @@ else
// Als voor de discipline is aangegeven dat niet automatische genummerd dient te worden zal dat voor multi objecten toch altijd moeten blijven.
// Omschrijving met uniek volgnummer erin bepalen.
sql = "SELECT ins.get_description('LPN_INS_DEEL'"
+ " , 1" // (unused for ins_deel)
+ " , ins_srtdeel_code_upper) description" // Set code als prefix
sql = "SELECT ins.nextdescription(ins_srtdeel_code, NULL) description"
+ " FROM ins_srtdeel"
+ " WHERE ins_srtdeel_key = " + sle_srtdeel_key;
oRs = Oracle.Execute(sql);
@@ -293,9 +291,7 @@ else
{ dbs: "ins_alg_ruimte_type_org", typ: "varchar", val: "R" }];
// Omschrijving met uniek volgnummer erin bepalen.
sql = "SELECT ins.get_description('LPN_INS_DEEL'"
+ " , 1" // (unused for ins_deel)
+ " , ins_srtdeel_code_upper) description"
sql = "SELECT ins.nextdescription(ins_srtdeel_code, NULL) description"
+ " FROM ins_srtdeel"
+ " WHERE ins_srtdeel_key = " + cil_srtdeel_key;
oRs1 = Oracle.Execute(sql);