Wie aktualisere ich dei GET Felder am Bildschirm?

Moderator: Moderatoren

Antworten
Benutzeravatar
satmax
1000 working lines a day
1000 working lines a day
Beiträge: 831
Registriert: Do, 02. Dez 2010 19:34
Wohnort: Biberbach in Österreich
Hat sich bedankt: 1 Mal
Danksagung erhalten: 1 Mal
Kontaktdaten:

Wie aktualisere ich dei GET Felder am Bildschirm?

Beitrag von satmax »

Ich bekomms nicht auf die Reihe...

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
Gruß
Markus
Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2932
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Hat sich bedankt: 13 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Re: Wie aktualisere ich dei GET Felder am Bildschirm?

Beitrag von Wolfgang Ciriack »

Auf die schnelle: lass mal das DC_DbRecord:new in mydbskip weg, du brauchst eigentlich nur neu einlesen.
Viele Grüße
Wolfgang
Benutzeravatar
satmax
1000 working lines a day
1000 working lines a day
Beiträge: 831
Registriert: Do, 02. Dez 2010 19:34
Wohnort: Biberbach in Österreich
Hat sich bedankt: 1 Mal
Danksagung erhalten: 1 Mal
Kontaktdaten:

Re: Wie aktualisere ich dei GET Felder am Bildschirm?

Beitrag von satmax »

Wolfgang Ciriack hat geschrieben:Auf die schnelle: lass mal das DC_DbRecord:new in mydbskip weg, du brauchst eigentlich nur neu einlesen.
Das war es leider nicht.
Gruß
Markus
Benutzeravatar
satmax
1000 working lines a day
1000 working lines a day
Beiträge: 831
Registriert: Do, 02. Dez 2010 19:34
Wohnort: Biberbach in Österreich
Hat sich bedankt: 1 Mal
Danksagung erhalten: 1 Mal
Kontaktdaten:

Re: Wie aktualisere ich dei GET Felder am Bildschirm?

Beitrag von satmax »

Wolfgang Ciriack hat geschrieben:Auf die schnelle: lass mal das DC_DbRecord:new in mydbskip weg, du brauchst eigentlich nur neu einlesen.
DOCH, das war es, DANKE! Offensichtlich habe ich mir damit das Objekt überschrieben.
Gruß
Markus
Antworten