kpindiv

kpindiv - Button einbauen

Es kann vorkommen, dass man in einer Maske einen Button benötigt, der z.B. ein eigenes Fenster aufmacht.
Dazu kann man in der kpindiv beim Start des Fenster einen Button vor dem anzeigen einbauen.
Dieser Button ist dann immer nur für die aktuelle Sitzung integriert. Er wird somit jedesmal beim Start des Fensters für die aktuelle Instanz eingebaut und ist nicht in der Bibliothek gespeichert.
Dies kann man auch mit anderen Objekten machen. Editierfelder mit kEntry usw.

Dieses Beispiel fügt einen Button im Kostenstellenfenster oben rechts ein, welcher ein Fenster in der Indiv öffnet.

Und das ganze auch zum kopieren(zuerst die Variablen anlegen, danach mit STRG V einfügen)

Do $ctask.toKplus.$DeclareIndivMethod(sys(10),$cmethod,$cinst,'Firmendatenbutton einbauen') ;; Damit wird die Methode für die Übersicht in der Systeminfo deklariert

Do pref2Window.$objs.pbZusatzdaten Returns lref2DetailButton Returns pref2Window.$objs.pbZusatzdaten Returns lref2DetailButton ;; Referenz zum Button oben Links erzeugen
Do pref2Window.$objs.$add(kPushbutton,lref2DetailButton.$top,pref2Window.$width-103,lref2DetailButton.$height,100) Returns lref2Object ;; Neues objekt erzeugen

Do lref2Object.$text.$assign('Firmendaten') ;; Button beschriften
Do lref2Object.$fieldstyle.$assign('kplusPushButton') ;; Style übernehmen

Do lref2Object.$methods.$add('$event') Returns lre2Method ;; Neue Methode hinter dem Button erzeugen

Begin text block ;; Mehtodentext generieren
Text: On evClick (Carriage return,Linefeed)
Text: Open window instance kplus_indiv.FS_FDATEN/CEN (KS_CODE) (Carriage return,Linefeed)
End text block
Get text block lcText
Do lre2Method.$methodtext.$assign(lcText) ;; Methodentext zuordnen