Mein Problem: wenn ich den Button VOR oder ZURÜCK wähle werden die GET Felder am Bildschirm nicht aktualsiert. Was mache ich hier falsch:
Code: Alles auswählen
#include "Appevent.ch"
#include "Common.ch"
#include "Gra.ch"
#include "Xbp.ch"
#INCLUDE "dcdialog.ch"
#include "express.ch"
#INCLUDE "appevent.ch"
#include "dchelp.ch"
#include "inkey.ch"
#pragma Library("dclipx.lib")
#pragma Library("dchelp.lib")
FUNCTION StammdatenKunden(oDlg)
LOCAL oRecord, GetOptions
LOCAL GetList, cLastName := Space(15), cFirstName := Space(15), ;
cCompany := Space(30), cStreet := Space(30), cCity := Space(25), ;
cState := Space(10), cCountry := Space(20), cPhone := Space(12)
// Datenbank öffnen
USE daten01\STAMMDAT INDEX daten01\STAMMDAT NEW
// Felder einlesen
STAMMDAT->(dbskip(1))
oRecord := STAMMDAT->(DC_DbRecord():new())
STAMMDAT->(DC_DbScatter(oRecord))
GUI ON // turn on GUI mode
GetList := {}
@ 5,10 SAY 'Kundennummer' GET oRecord:kdnr
@ 5,40 SAY 'Anrede ' GET oRecord:anrede
@ 7,10 SAY 'Name ' GET oRecord:name
@ 8,10 SAY ' ' GET oRecord:name2
@ 9,10 SAY 'Strasse ' GET oRecord:strasse
@ 10,10 SAY 'Land ' GET oRecord:land
@ 11,10 SAY 'Postleitzahl' GET oRecord:PLZ
@ 12,10 SAY 'Ort ' GET oRecord:Ort
@ 20, 1 DCPUSHBUTTON CAPTION "VOR" SIZE 15, 1 ACTION {||mydbSkip(1,oRecord,GetList)}
@ 20, 17 DCPUSHBUTTON CAPTION "Zurück" SIZE 15, 1 ACTION {||mydbSkip(-1,oRecord,GetList)}
// READ
DCGETOPTIONS ;
SAYRIGHTBOTTOM ;
SAYWIDTH 150
DCREAD GUI ;
FIT ;
OPTIONS GetOptions ;
TITLE "Stammdaten Kunden"
return nil
function mydbSkip(nSkip, oRecord, GetList)
STAMMDAT->(dbskip(nSkip))
oRecord := STAMMDAT->(DC_DbRecord():new())
STAMMDAT->(DC_DbScatter(oRecord))
DC_GetRefresh(GetList)
return nil
Gruß
Markus