Code: Alles auswählen
method Kassa:ProduktSuche(cEAN)
//Produkt suchen und Array aKassa füllen
FIELD PRODUCT, PRICE, VAT, EAN
USE PRODUKTE NEW EXCLUSIVE
INDEX ON EAN to iEAN
SET INDEX TO iEAN
dc_msgbox(,,"EAN:" + EAN + ", RecNo:" + RecNo()) //debug
DbSeek (cEAN)
if ! found()
dc_msgbox(,,"EAN nicht gefunden")
else
dc_msgbox(,,"RecNo:" + RecNo()) //debug
::cText := PRODUKTE->PRODUCT
::nPreis := PRODUKTE->PRICE
::nMWSt := PRODUKTE->VAT
::oArtikelname:SetCaption(::cText)
::aKassa:= {::cEAN, ::cText, ::nPreis, ::nMWSt }
DC_MSGBOX(,,::cText) //debug
endif
return
Fehler BASE/8021
Beschreibung: Datenbank-Alias existiert nicht / ist ungültig
Operation: DbCreateIndex
Bitte wo liegt der Fehler?
Vielen Dank im voraus!
Martin