dbedit auf column nr 3 setzen (ERLEDIGT)

[denjo303]

hallo mir immer viel helfende community...

ich habe ein sehr kleines dbedit feld. nun ist aber die reihe mit dem namen nicht die erste reihe und ich will dem kunden gleich beim öffnen ein wenig im dbedit nach rechts scrollen auf die dritte reihe damit er den namen hat. gibts da ne möglichkeit? wenn ihr versteht was ich meine hihi...

[AUGE_OHR]

ich habe ein sehr kleines dbedit feld. nun ist aber die reihe mit dem namen nicht die erste reihe und ich will dem kunden gleich beim öffnen ein wenig im dbedit nach rechts scrollen auf die dritte reihe damit er den namen hat. gibts da ne möglichkeit? wenn ihr versteht was ich meine hihi...

was machst du denn jetzt "manuell" ? sicherlich tippst du die "->" Taste ...

wenn du nun "das" mit KEYBOARD verwendest ...

Code: Alles auswählen

#include "inkey.ch" 

KEYBOARD Chr(K_RIGHT) + Chr(K_RIGHT) + Chr(K_RIGHT)
DbEdit( 2, 2, 22, 77,"DBUSERFUNC", , aHeading )

"müsste" er 3x den Cursor nach rechts verschieben.

[denjo303]

ok, danke , so dachte ich mir das auch schon, ich wusste nur nicht wie ich das umsetzen sollte.

wie immer gute hilfe hier!!!! =D> =D> =D>

[BJelinek]

Hallo zusammen,
wenn ich das mit Keyboard anweisung mache spring dbedit immer
in letzte Zeile.
Ich verwende die dbedit.prg aus den sys sources.
Ohne keyboard chr(K_RIGHT) springt er richtig in die 1 Zeile.
Wo liegt da der Fehler ?

[Werner_Bayern]

Servus Bernd,

das chr() vergessen? Eine UDF, die was nicht findet bei Taste rechts? Passt es, wenn Du das Beispiel von Jimmy raus lässt und manuell -> drückst?

[BJelinek]

Hallo Werner,

das chr() vergessen? Eine UDF, die was nicht findet bei Taste rechts? Passt es, wenn Du das Beispiel von Jimmy raus lässt und manuell -> drückst?

Manuell ohne chr() geht's.
In Clipper hab ich dbedit mit Tbrowes nachgebaut um farbige Felder zu realisieren, das funktioniert auch.
Aber ich dachte, dass dbedit in xBase ja auch funktionieren sollte.
Ha jetzt auch mal mit Quote gearbeitet. Bin halt noch kein Forumdbedienprofi.
Schönen Sonntag

[Werner_Bayern]

Dann wäre etwas Code hilfreich.

[BJelinek]

Hallo Werner

welchen Code meinst du ?

Den dbedit.prg von alaska oder meine tbedit.prg

[Werner_Bayern]

Selbstverständlich Deinen Code, wo Du das wie eingebaut hast und auch die udf Deines Tbrowses / dbedit.

[BJelinek]

Hallo Werner

den Code hab ich für Clipper geschrieben/zusammengetragen
wenig kommentiert.

TBEDIT.PRG

DBEDIT Nachbau TBEDIT

(10.92 KiB) 220-mal heruntergeladen

[Werner_Bayern]

Servus Bernd,

Dein Beispiel betrifft Tbrowse und nicht dbedit!
Ausserdem kann ich es nicht testen, da zuviele Funktionen gerufen werden, die nicht enthalten sind, obwohl ich schon einige ersetzt hatte:

[Error] : ALK2102: unresolved external symbol BFBALTSELE
[Error] : ALK2102: unresolved external symbol BFB_TASTE
[Error] : ALK2102: unresolved external symbol D2
[Error] : ALK2102: unresolved external symbol BFB_DWAHLV
[Error] : ALK2102: unresolved external symbol BFB_DWAHL
[Error] : ALK2102: unresolved external symbol DR_INIT
[Error] : ALK2102: unresolved external symbol BFB_DWAHLS


Vermutlich betrifft Dein Problem die Funktion TBEDITANW? Auch verwendest Du eine eigene inkey-Funktion, was passiert da? Warum machst Du nicht ein einfaches

Code: Alles auswählen

oTB:right()

[AUGE_OHR]

Manuell ohne chr() geht's.
In Clipper hab ich dbedit mit Tbrowes nachgebaut um farbige Felder zu realisieren, das funktioniert auch.
Aber ich dachte, dass dbedit in xBase ja auch funktionieren sollte.

wie Werner schon sagte ist dein Beispiel mit TBrowse und nicht Dbedit.

allerdings "mischt" du deine (ehemalige ) UDF und Tbrowse "sehr komisch"

Code: Alles auswählen

bUdf       := IF(lUdf, &("{|nMode, nElement| "+cUdf+"(nMode, nElement)}"), {|| .T.} )

die Frage ist "warum" ? damit machst du es dir zusätzlich schwer weil er "2 Dinge tun" soll ...

du hast doch

Code: Alles auswählen

 IF     nKey == 

wobei nKey = lastkey() entspricht also warum nicht "da" abfragen ?

Anmerkung : ich wurde es so wie im c:\ALASKA\XPPW32\Source\SYS\BrowSys.prg aufbauen

die "RETURN nRet" haben bei DBEDIT eine andere Bedeutung und sind für TBrowse nicht nötig da es die o:refreshCurrent() / o:refreshAll() Methoden dafür gibt.

bei einem TBrowse kann man mit

Code: Alles auswählen

TBrowse:colPos

die Position abfragen und setzten ! gefolgt mit einem

Code: Alles auswählen

o:refreshCurrent()

müsst du es dann auch "sehen"

[BJelinek]

Danke für Eure Anregungen,
die werden ich mir zu Gemüte führen.

Aber TBEDIT tut ja was es soll in xbase.

Mein Problem ist ja nicht tbedit sondern
dbedit in xBase.

Ich hab mal ein kleines Beispiel.

Code: Alles auswählen

#include "inkey.ch"

PROCEDURE Main
cls
? "DBEDIT Test mit keyboard CHR(K_RIGHT)"
wait ""
if file("DBETEST.DBF")
 erase ("DBETEST.DBF")
endif
adbf := {}
AADD(aDbf, { "UMS_KEY"      , "C",  22,  0 } )
AADD(aDbf, { "FA_UMS_01"    , "N",  16,  3 } )
AADD(aDbf, { "FA_UMS_02"    , "N",  16,  3 } )
AADD(aDbf, { "FA_UMS_03"    , "N",  16,  3 } )
AADD(aDbf, { "FA_UMS_04"    , "N",  16,  3 } )
AADD(aDbf, { "FA_UMS_05"    , "N",  16,  3 } )
AADD(aDbf, { "FA_UMS_06"    , "N",  16,  3 } )
AADD(aDbf, { "FA_UMS_07"    , "N",  16,  3 } )
AADD(aDbf, { "FA_UMS_08"    , "N",  16,  3 } )
AADD(aDbf, { "FA_UMS_09"    , "N",  16,  3 } )
AADD(aDbf, { "FA_UMS_10"    , "N",  16,  3 } )
AADD(aDbf, { "FA_UMS_11"    , "N",  16,  3 } )
AADD(aDbf, { "FA_UMS_12"    , "N",  16,  3 } )
AADD(aDbf, { "FA_UMS_KJ"    , "N",  19,  3 } )
AADD(aDbf, { "EURO"         , "C",   2,  0 } )
dbcreate("DBETEST",aDBF)
sele 111
use dbetest
for ii := 1 to 20
 append blank
 repl ums_key   with str(ii,10,2)
 repl FA_UMS_01 with ii
next
dbgotop()
keyboard CHR(K_RIGHT)
dbedit()
cls
? "DBEDIT Test ohne keyboard CHR(K_RIGHT)"
wait""
dbgotop()
dbedit()
close data
return

Mit Pfeil rechts springt es falsch ans Ende und dann richtig nach rechts.

[AUGE_OHR]

Mein Problem ist ja nicht tbedit sondern
dbedit in xBase.
...
Mit Pfeil rechts springt es falsch ans Ende und dann richtig nach rechts.

von "nach unten" hast du nicht gesagt

im Grunde kannst du alle "normalen" Keyboard Code in ein KEYBOARD schieben.
Crtl-PgDn bringt mich in einem Browse auf die letzte Zeile. versuch mal ob das auch mit DBedit funktioniert

[Werner_Bayern]

Servus Bernd,

habs getestet, und folgendes entdeckt: Mach mal mehr Sätze, dann wirst Du sehen, dass das keyboard chr(4) 2 Dinge macht
1. korrekt eine Spalte nach rechts
2. ans Bildschirmende springen

Also er geht nicht auf den letzten Datensatz, sondern lediglich ans Ende des sichtbaren Fensters.

Wenn Du also ein

Code: Alles auswählen

keyb(chr(K_RIGHT)+chr(K_PGUP))

reinsetzt, passiert das, was Du möchtest. Warum er da nach unten geht, kann ich nicht sagen.
Also, nur ein Workaround.

[BJelinek]

Hallo Werner
ist richtig. Springt ans Ende vom Bildschirm.
Hab auch mal in der DBEDIT.PRG geschaut und den Debugger
laufen lassen. Bin aber nicht weiter gekommen.
Habe Demo auch an Alaska geschickt.
Hab dort angerufen, ob die Mail angekommen ist.
Er hat den Eingang bestätigt und sich mal angeschaut.
3 Tage später kamen dann 2 Mails, dass Sie die Suportanfragen erhalten
hätten und nach Eingangsreihenfolge abgearbeitet würden.
Bin mal auf die Antwort gespannt.Werde dann berichten.

[Werner_Bayern]

Servus Bernd,
ok. Bis dahin kannst Du ja die von mir gezeigte Lösung verwenden, habs auch mit Index-Dateien getestet. Alternativ und bei Bedarf kannst Du ja anstatt dem PgUp auch ein dbgoto oder dbgotop vor dem dbedit einfügen.

[UliTs]

Ich habe die DBEdit von Alaska etwas modifiziert und mit weiteren Parametern versehen:

Code: Alles auswählen

       PROCEDURE DbEdit( nTop      , ;        // Zeile oben
                         nLeft     , ;        // Spalte links
                         nBottom   , ;        // Zeile unten
                         nRight    , ;        // Spalte rechts
                         aColumns  , ;        // Tabellenspalten
                         bcUserFunc, ;        // User-Funktion
                         acPicture , ;        // PICTURE Formate
                         acHeading , ;        // Kopfzeilen
                         acHeadSep , ;        // Trennzeichen Kopfzeilen
                         acColSep  , ;        // Trennzeichen Spalten
                         acFootSep , ;        // Trennzeichen Fußzeilen
                         acFooting , ;        // Fußzeilen
                         abColorBlock,;       // SpaltenFarbCodeblöcke           // unterschiedliche Farben in Zellen ermöglichen
                         oTbl      , ;        // optional oTbl:AceTable, um von Alias-Bereichen unabhängig zu werden
                         nRowPos     ;        // optional relative Zeilenposition zu Beginn (auch Rückgabeparameter)
                       )

Neu ist:

• - aColumns kann auch als Array von Codeblöcken angegeben werden
  - abColorBlock: unterschiedliche Farben in Zellen
  - oTbl: Statt dBEdit über den aktuellen Alias-Bereich kann auch eine Tabelle vom Typ AceTable (von Friedhelm Goeder) angegeben werden
  - nRowPos: Gibt die relative Zeilenposition zu Beginn an (die absolute wird ja durch den aktuellen Datensatz der Tabelle vorgegeben.

Ich könnte die Prozedur auch noch um eine relative und absolute Spaltenposition zu Beginn erweitern.

Uli

P.S. Ich habe die Prozedur auch für den Hybrid-Modus angepaßt

[BJelinek]

Hallo

habe Antwort von Support wegen dbedit.

Er vermutet, das die stabilisierungsphase nicht abgeschlossen ist.

Habe jetzt 2 Zeilen eingefügt.

Code: Alles auswählen

...
Do While ! oTBrowse:stabilize()
enddo

Do While nExit <> DE_ABORT
 ...

und siehe da es geht wie es soll.

[UliTs]

habe Antwort von Support wegen dbedit.
...
und siehe da es geht wie es soll.

Das ist ja schön .
Hast Du mit Alaska eine Subskription inklusive Support abgeschlossen?

Uli

[Werner_Bayern]

Wir sprechen (und auch die Überschrift) von dbedit, und da gibt es kein stabilize!
Ich weiß, dass es im Alaska-Programmordner sys ein dbedit gibt und das so auch vermutlich im Xbase++ eingebaut ist, also intern ein Tbrowse. Aber, über die function dbedit aus dem Programm kommt man da so ohne weiteres nicht ran.

[UliTs]

Wenn von DbEdit die UserFunction aufgerufen wird, ist der von DbEdit verwendete TBrowse stabil.
Man könnte also bei DbEdit den KeyBoard-Aufruf innerhalb der UserFunction einmal zu Beginn durchführen.

Uli

[BJelinek]

Hallo

Hast Du mit Alaska eine Subskription inklusive Support abgeschlossen?

Ja, ist zwar teuer aber Ich muss meine ganze Warenwirtschaft umstellen
und da brauche ich Hilfe/Support.

Wir sprechen (und auch die Überschrift) von dbedit, und da gibt es kein stabilize!
Ich weiß, dass es im Alaska-Programmordner sys ein dbedit gibt und das so auch vermutlich im Xbase++ eingaut ist, also intern ein Tbrowse. Aber, über die function dbedit aus dem Programm kommt man da so ohne weiteres nicht ran.

Wenn dbedit.prg dabei ist, dann ändere die doch ab. Diese hat die gleichen
anomalien wie die in xBase, da muss ich doch nicht drum rum programmieren
und die anomalien darin abhandeln. (.z.B. Leeres Feld array erzeugt Fehler, in
Clipper nicht). Ist das so Falsch ?

[AUGE_OHR]

Wir sprechen (und auch die Überschrift) von dbedit, und da gibt es kein stabilize!
Ich weiß, dass es im Alaska-Programmordner sys ein dbedit gibt und das so auch vermutlich im Xbase++ eingaut ist, also intern ein Tbrowse. Aber, über die function dbedit aus dem Programm kommt man da so ohne weiteres nicht ran.

die im Ordner c:\ALASKA\XPPW32\Source\SYS\ enthaltenen *.PRG sind "alle" in der XPPSYS.DLL eingebunden.

Das ist ja der Grund warum ich sagte das bei BJelinek alles "doppelt" sei. Ein DBEDIT "ist" ein Tbrowse in Xbase++
da aber die "UDF" als Codeblock übergeben wird könnte man damit auch das TBrowse Object bekommen.

[UliTs]

Jimmy, nein, das geht nicht ohne Änderung des Quellcode zu DbEdit!

Uli