ich habe das hier gebaut und möchte es mit dem Pushbutton Ende verlassen. Es kommt aber die Fehlermeldung Parameter hat falschen Typ DC-PUSHBUTTON:ACTION(555).
Wie komme ich wieder auf den rechten Pfad der Tugend zurück?
Code: Alles auswählen
METHOD ftasten:paketpreise() // F4 Taste
LOCAL getlist := {}
LOCAL GetOptions
LOCAL nPBAbstand := 10
LOCAL nPBBreite := 60
LOCAL nPBHoehe := 20
LOCAL nPbLinks := 10
LOCAL nPBUnten := 260
LOCAL oBrowse := NIL
LOCAL oDialog := NIL
MEMVAR oMessage
MEMVAR oZubehoer
MEMVAR oZubehoerVkPreise
IF ! oZubehoer:lGefunden
oMessage:anzeigen("Warenzugang hier nicht möglich")
RETURN(.F.)
ENDIF
(oZubehoerVkPreise:nArea)->(DbSetScope(SCOPE_BOTH,Str(oZubehoer:id,8,0)))
DCGETOPTIONS NOMINBUTTON;
NOMAXBUTTON;
AUTORESIZE
@ nPBUnten,nPBLInks DCPUSHBUTTON;
CAPTION "Neu";
SIZE nPBBreite,nPBHoehe;
PIXEL;
TOOLTIP "Neuen Preis erfassen"
nPBLinks += nPBBreite + nPBAbstand
@ nPBUnten,nPBLInks DCPUSHBUTTON;
CAPTION "Ändern";
SIZE nPBBreite,nPBHoehe;
PIXEL;
TOOLTIP "unterlegten Preis ändern"
nPBLinks += nPBBreite + nPBAbstand
@ nPBUnten,nPBlinks DCPUSHBUTTON;
CAPTION "Löschen";
SIZE nPBBreite,nPBHoehe;
PIXEL;
TOOLTIP "unterlegten Preis löschen"
nPBLinks += nPBBreite + nPBAbstand
@ nPBUnten,nPBlinks DCPUSHBUTTON;
CAPTION "Ende";
SIZE nPBBreite,nPBHoehe;
ACTION { || oDialog:destroy() };
PIXEL;
TOOLTIP "Menue beenden ohne Speichern"
@ 1,1 DCBROWSE oBrowse;
DATA oZubehoerVkPreise:cAlias;
SIZE (nPBLinks + nPBBreite + 10),240;
CURSORMODE XBPBRW_CURSOR_ROW;
PIXEL;
Parent oDialog;
HEADLINES 2
DCBROWSECOL FIELD (oZubehoerVkPreise:nArea)->preissoll;
WIDTH 5;
HEADER "Preis des;Pakets";
PARENT oBrowse;
TOOLTIP "Paketpreis"
DCBROWSECOL FIELD (oZubehoerVkPreise:nArea)->menge;
WIDTH 5;
HEADER "Menge für;den Preis";
PARENT oBrowse;
TOOLTIP "Paketmenge"
DCBROWSECOL FIELD (oZubehoerVkPreise:nArea)->datumvon;
WIDTH 5;
HEADER "gültig ab;leer=sofort";
PARENT oBrowse;
TOOLTIP "Gültigkeit ab dem Datum (leer sofort)"
DCBROWSECOL FIELD (oZubehoerVkPreise:nArea)->datumbis;
WIDTH 5;
HEADER "gültig bis;leer=immer";
PARENT oBrowse;
TOOLTIP "Gültigkeit bis zum Datum (leer immer)"
DCREAD GUI TITLE "Verkaufspreise Zubehör";
OWNER SetAppWindow();
FIT;
OPTIONS GetOptions
(oZubehoerVkPreise:nArea)->(DbClearScope())
RETURN self