:MP_ChkReg -------------------------------------------------------------------------- IN: iv enthält Wert in der Form wert@register@truncate wert ist der zu suchende Begriff register ist |3 o-ä. oder der symb. Registername truncate wenn =1, dann darf der Registerwert länger sein OUT: iv = "", wenn Wert nicht gefunden, sonst Registerwert Fkt: prft das Vorkommen eines Wertes im Register Var: #uRw - wert #uRn - Register #uRf - Truncate-Flag #uRx/#uRX - temp. $fSYM - wenn belegt, zeigt symbolisches Register auf Reg.-Abschnitt DATE: 2015-03-08 :MP_RegisterCount -------------------------------------------------------------------------- IN: iv enthält Wert in der Form wert@register@truncate wert ist der zu suchende Begriff register ist |3 o.ä. oder der symb. Registername truncate wenn =1, dann darf der Registerwert länger sein OUT: iv = Anzahl der zutreffenden Eintreage Fkt: zählt das Vorkommen eines Wertes im Register (A99-Version) DESC: wenn Return-Variable $mpRC_Return belegt ist, enth„lt diese eine Rcksprungmarke! (Funktion wurde dann mit jump angesprungen, Rckgabewert steht dann in $iv) Var: $vMP_RC_wert - wert $vMP_RC_register - Register $fMP_RC_Truncate - Truncate-Flag $vMP_RC_temp/$vMP_RC_tempWertEx - temporär DATE: 2016-10-26 :MP_RegSectCount -------------------------------------------------------------------------- IN: iv enthält Wert in der Form section@register section ist der zu untersuchende Bereich in der Form start@end register ist |3 o.ä. oder der symb. Registername OUT: iv = Anzahl der zutreffenden Eintreage Fkt: zählt das Vorkommen eines Wertes im Register (A99-Version) DESC: max. 32000 Registerzeilen auswertbar, bei größerer Treffermenge ist das Verhalten unbestimmt Var: $section - Bereich $register - Register $temp, $t - temporär $res - temp Ergebnis $summe - Ergebnis (Anzahl der Einträge) DATE: 2012-12-19 :MP_FndRecLock ---------------------------------------------------------------------------- IN: iv - Satznummer #u’Y$y - wenn l:0, dann kein Lock OUT: Datensatz geladen und verrriegelt iv = "", wenn o.k., sonst Fehlermeldung: load, lock, new, del, diff, inkonsistente Daten Fkt: lädt und verriegelt Satz Date: 2015-03-14 :MP_Lock ---------------------------------------------------------------------------- Fkt: verriegelt Satz und lädt ihn neu IN: beliebiger Datensatz geladen OUT: Datensatz verrriegelt iv = "", wenn o.k., sonst Fehlermeldung: lock, new, del, diff, inkonsistente Daten DATE: 2015-03-14 :MP_PutUnlock ---------------------------------------------------------------------------- Fkt: speichert und entriegelt aktuellen Satz IN: beliebiger Datensatz geladen, der Neu, bearbeitet und oder verriegelt sein kann #uOp OUT: Datensatz gespeichert und entriegelt iv = "", wenn o.k. iv mit Meldung, wenn Fehler aufgetreten im #0sf wird Modulinformation und Prozess-ID abgelegt. DESC: WORKAROUND put: mit set Err def. Flag-Zustand setzen WORKAROUND set obj/offline-Datei wird immer gelöscht i stimmt nach erase offline nicht immer !! ab a99-Version 32 wird Operator-Krzel in Feld #0sf erg„nzt, da Allegro die Operator-Kennung nicht mehr in die 99x-Felder schreibt VAR: $saveunlocktmp REQ: MP_MISC.FLB Date: 2018-01-31 :MP_FormLoad -------------------------------------------------------------------------- IN: iv = {Satzart-Kennungen};[{Hilfekategorien}] OUT: iv = "", wenn o.k, sonst !{Fehlermeldung} Fkt: Lädt Satzartspezifisches Formular DESC: löst Prompt-Vorgaben für Teilfelder auf Datensatz-Lock muss vorher erfolgen, weil sonst durch den Eintrag der Vorgabe der diff-Zustand ausgelöst wird! lädt satzartspezifische Hilfedateien mehrere Kennungen oder Hilfekategorien werden durch Komma getrennt angegeben Beispiel: var "TIT;2,4,6" lädt TIT.FRM und H2, H4 und H6 nachladen weiterer Formulare, wenn @@FOLLoW {name} [{katliste}] Zeilen im ersten Formular angegeben sind das zuletzt angegebene Formular wird zuerst nachgeladen, erst darauf folgen die per Parameter übergebeben Formulare (keine Rekursion möglich!) Var: $vMP_FormLoad, $MP_FormLoad_Kat, $MP_FormLoad_Typ $t, $p, $s, $vMP_FLT DATE: 2012-07-19 :MP_FormRelease -------------------------------------------------------------------------- IN: - OUT: iv = "", wenn o.k, sonst !{Fehlermeldung} Fkt: Lädt datenbankspezifisches Formular und löscht temp. Hilfedateien he_ad und H{Hilfekategorie} Desc: löscht he_ad und in FormLoad übergebene spezifische Kategorie-Hilfetexte Var: $MP_FormLoad_Kat, $t, $MP_FormLoad_Typ DATE: 2016-08-02 :MP_FormProc -------------------------------------------------------------------------- IN: - OUT: iv = "", wenn o.k, sonst !{Fehlermeldung} Flags wie nach Befehl form (can) Fkt: ruft alle Formulare der aktuell geladenen Formulardatei auf DESC: benutzt open - evtl. vorher offene Input-Datei schließen! Var. $vMP_FormProc, $t, $t1, $vMP_FLT $vMPFPE_SingleForm DATE: 2014-07-30 :MP_FormProcEx -------------------------------------------------------------------------- IN: "" oder Bezeichnung eines Einzel-Formulars OUT: iv = "", wenn o.k, sonst !{Fehlermeldung} Flags wie nach Befehl form (can) Fkt: ruft alle Formulare der aktuell geladenen Formulardatei auf DESC: benutzt open - evtl. vorher offene Input-Datei schließen! Var. $vMP_FormProc, $t, $t1, $vMP_FLT $vMPFPE_SingleForm RINC: MP_STACK.FLB, MP_Misc.FLB DATE: 2014-06-16 :MP_QTExpand() ---------------------------------------------------------------------------- FKT: Erweiterung eines Suchbegriff-Terms über Verweise IN: iv - Suchausdruck in der Form REG SRCH REG - symbolischer Registername oder Direktangabe SRCH - Suchausdruck OUT: iv - umgewandelter Suchausdruck beginnt mit '!', wenn Fehler und enthält dann Fehlertext DESC: wandelt REG SRCH in ( REG SRCH [OR REG RSRCH1 [OR REG RSRCH2 [OR REG RSRCHn ]]]) um Dazu werden Stammsatzverweisungen im gleichen Register genutzt als Verweiszeichen wird " -> " genutzt Ein Suchbegriff muss mindestens 2 Zeichen lang sein (ohne '?') Aufruf über MP_Call-Mechanismus! RINC: MP_Misc.flb DATE: 2010-12-23 VAR: :MP_ResultSort -------------------------------------------------------------------------- IN: bestehende Ergebnismenge iV = Kategorienummer und Sortierrichtung in der Form #nnn|s{trenn} s = Sortierrichtung: a - aufsteigend, d = absteigend {trenn} - Zeichen, bis zu der die zu sortierende Kat. ver- arbeitet wird OUT: iV = "", wenn o.k, sonst !{Fehlermeldung} neue aktuelle Ergebnismenge Fkt: sortiert Ergebnismenge nach dem Inhalt einer Kateorie. Desc: Nichtsortierworte werden entfernt, Indes-Sortieraufbereitung wird verwendet (p-Tabelle) VAR: $fMPRS_Des - besetzt, wenn absteigend Date: 2014-09-01 :MP_FindFirst ---------------------------------------------------------------------------- Fkt: lädt ersten Satz in Registerreihenfolge IN: registerbegriff OUT: iv = "", wenn nichts gefunden sonst #{recordnummer} und Flags wie nach find # Desc: Im Register wird nach dem befriff gesucht. Wird ein Eintrag mit übereinstimmendem Anfang gefunden, wird der erste Satz mit find # geladen Date: 2012-09-17 :MP_Choose() ---------------------------------------------------------------------------- Fkt: wie choose, aber mit sofortiger Satzanzeige IN: Suchbegriff oder '*' (wie choose) OUT: wie choose; wenn iv leer, steht evtl. in #u’E eine Fehlermeldung Satz ist jedoch im Gegensatz zu choose geladen Desc: Bei Abbruch wird der vorher geladene Satz wiederhergestellt Aufruf ber Stack-Mechanismus (var 'rueckkehr'\perf PushAdr\...\jump MP_Choose()\:rueckkehr RINC: MP_Misc.flb, MP_Stack.flb Date: 2015-07-17 :MP_Rec2EM ---------------------------------------------------------------------------- Fkt: fgt aktuellen Record einer benannten Ergebnismenge hinzu IN: {Name} OUT: iv = "", wenn kein Fehler sonst mit !Fehlermeldung Desc: Fgt den akt. Record einer Ergebnismenge mit dem Namen {Name} hinzu Date: 2016-02-08 :MP_CloseActRes ---------------------------------------------------------------------------- Fkt: l”scht die letzte EM und aktiviert vorige IN: - OUT: Name der akt. Ergebnismenge, wie im EM-Fenster angezeigt Desc: war die aktuelle EM nicht die letzte bleibt sie aktiv EM mit Nummern <3 werden nicht aktiviert Date: 2014-07-31 :MP_CfgGetValue ---------------------------------------------------------------------------- Fkt: Liefert Wert einer cfg-Zeile IN: iV = cfg-Kennung OUT: Wert/Inhalt des adressierten Wertes oder "" wenn mit ! beginnt, Fehlermelung Desc: liest Zeile, die mit Inhalt der iV beginnt Date: 2014-10-29 RINC: MP_Misc.FLB ====================================================================== :MP_EXS_LOAD() ====================================================================== Fkt: Exemplarsatz nach ID laden IN: iV - Exemplar-ID OUT: $iv = "", wenn kein Exemplar gefunden DESC: Es wird ber das in #u’Y$E voreingestellte Register ein Exemplarsatz gesucht; Ist kein Register voreingestellt, wird gesucht in |:E, |8, |9Z bei Mehrfach-Treffern wird eine Auswahl angeboten RINC: MP_Stack.flb DATE: 2015-11-11 +----------------------------------------------------------------------- ? | Register-Vorgabe gesetzt? ---+------------------------------------------------------------------- j | ber Vorgabe-Register suchen ---+------------------------------------------------------------------- n | ? | als Signatur vorhanden |---+--------------------------------------------------------------- | n | ? | als Zugangsnummer vorhanden ---------------------------------------------------------------------- ? | mehrere Treffer ---+------------------------------------------------------------------ j | ? | Exemplar aus Auswahl bernommen :MP_RecClear ---------------------------------------------------------------------------- Fkt: l”scht den aktuellen Record-Speicher IN: iV - Komma-getrennte Liste von Kat-Nummern (z.B. #99e,#99n), die nicht gel”scht werden sollen OUT: iv = "", wenn kein Fehler sonst mit !Fehlermeldung Desc: geladener oder leerer Record wird kategorieweise gel”scht systembedingt bleibt nur eine leere #00 zurck, falls diese im Ausgangssatz vorhanden war Date: 2018-01-22