Das Programm beginnt mit
Code: Alles auswählen
...
USE PRODUKTE alias sProducts new
INDEX ON EAN TO iEAN
...
Code: Alles auswählen
...
FIELD EAN, PRODUCT, PRICE, VAT, ACTIVE
@ 3,1 dcbrowse oBrowse SIZE 80,25 NOHSCROLL ;
EDIT xbeBRW_ItemSelected ;
MODE DCGUI_BROWSE_EDITACROSSDOWN ;
DELETE xbeK_DEL INSERT xbeK_INS
dcbrowsecol FIELD sProducts->EAN ;
Code: Alles auswählen
...
FIELD EAN, PRODUCT, PRICE, VAT, ACTIVE
USE PRODUKTE new shared
@ 3,1 dcbrowse oBrowse SIZE 80,25 NOHSCROLL ;
EDIT xbeBRW_ItemSelected ;
MODE DCGUI_BROWSE_EDITACROSSDOWN ;
DELETE xbeK_DEL INSERT xbeK_INS
dcbrowsecol FIELD PRODUKTE->EAN ;
Danke
Martin