From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 4 Feb 2019 13:09:03 +0100 Subject: Initial import --- app/schulis/2.2.1/src/0.erf.faecher | 38 +++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 app/schulis/2.2.1/src/0.erf.faecher (limited to 'app/schulis/2.2.1/src/0.erf.faecher') diff --git a/app/schulis/2.2.1/src/0.erf.faecher b/app/schulis/2.2.1/src/0.erf.faecher new file mode 100644 index 0000000..b3cc71b --- /dev/null +++ b/app/schulis/2.2.1/src/0.erf.faecher @@ -0,0 +1,38 @@ +PACKET erffaecherDEFINES erfassungfaecher:LET maskenname="ms erf faecher", +fnrletztesfeld=5,fnrkennung=2,fnrlangtext=3,fnrgruppe=4,fnrbereich=5,trenner= +" = ";LET maxlaengefach=2;LET meldnrfachzulang=60;PROC erfassungfaecher(INT +CONST proznr):systemdboff;reinitparsing;SELECT proznrOF CASE 1: +setzeerfassungsparameterCASE 2:zeigefachzurbearbeitungCASE 3: +pruefeplausibilitaetCASE 4:setzewertefuerdbspeicherungCASE 5: +setzeidentiobjektfuerobjektlisteCASE 6:faecherlesenCASE 7:faecheraendernCASE +8:faechereinfuegenCASE 9:faecherloeschenEND SELECT END PROC erfassungfaecher; +PROC setzeerfassungsparameter:setzeerfassungsparameter(dnrfaecher,maskenname, +fnrletztesfeld)END PROC setzeerfassungsparameter;PROC zeigefachzurbearbeitung +:setzeerfassungsfeld(wert(fnrffach),fnrkennung);setzeerfassungsfeld(wert( +fnrffachbez),fnrlangtext);setzeerfassungsfeld(textnichtnull(wert(fnrffachgrp) +),fnrgruppe);setzeerfassungsfeld(wert(fnrffachbereich),fnrbereich);END PROC +zeigefachzurbearbeitung;PROC pruefeplausibilitaet:LET leer="",null=0;INT VAR +fehlerstatus;pruefe(1,erfassungsmaske,PROC erfassungswert,fnrkennung,null, +null,leer,fehlerstatus);IF fehlerstatus<>0THEN setzefehlerstatus(fehlerstatus +);LEAVE pruefeplausibilitaetELIF length(erfassungswert(fnrkennung))> +maxlaengefachTHEN meldeauffaellig(erfassungsmaske,meldnrfachzulang); +setzefehlerstatus(fnrkennung);LEAVE pruefeplausibilitaetFI ;pruefe(1, +erfassungsmaske,PROC erfassungswert,fnrlangtext,null,null,leer,fehlerstatus); +IF fehlerstatus<>0THEN setzefehlerstatus(fehlerstatus);FI ;END PROC +pruefeplausibilitaet;PROC setzewertefuerdbspeicherung:putwert(fnrffach, +compress(erfassungswert(fnrkennung)));putwert(fnrffachbez,erfassungswert( +fnrlangtext));putwert(fnrffachgrp,erfassungswert(fnrgruppe));putwert( +fnrffachbereich,erfassungswert(fnrbereich));END PROC +setzewertefuerdbspeicherung;PROC setzeidentiobjektfuerobjektliste:LET +trennsymbolfuerobli="$";TEXT VAR identizeile;identizeile:=wert(fnrffach)+ +trenner+wert(fnrffachbez);setzeidentiwert(identizeilemitschluesselanhang). +identizeilemitschluesselanhang:identizeile+trennsymbolfuerobli+wert(fnrffach) +.END PROC setzeidentiobjektfuerobjektliste;PROC faecherlesen:putwert(fnrffach +,compress(schluessel));search(dnrfaecher,TRUE );IF dbstatus=okTHEN +saveupdateposition(dnrfaecher)FI END PROC faecherlesen;PROC faecheraendern: +restoreupdateposition(dnrfaecher);update(dnrfaecher)END PROC faecheraendern; +PROC faechereinfuegen:insert(dnrfaecher)END PROC faechereinfuegen;PROC +faecherloeschen:delete(dnrfaecher)END PROC faecherloeschen;TEXT PROC +schluessel:erfassungswert(fnrkennung)END PROC schluessel;END PACKET +erffaecher + -- cgit v1.2.3