Inoffizielles deutsches Xbase-Forum

Hallo Leute,

::oCmbMwSt:XbpSle:setColorBG( GRA_CLR_YELLOW ) färbt den Hintergrund der Listbox und nicht des SLE. Weiß jemand, wie der Hntergrund des SLE gefärbt werden kann?

Servus Werner und Danke, ich arbeite mit der 12er Version. Interessant, dass der Fehler mit einer älteren Version nicht auftreten würde. Das bedeutet doch, dass bei einer neuen Datenbank-Version vor dem Einsatz mit XBase unbedingt geprüft werden sollte, ob alle Abfragen noch genauso funktionieren wi...

Moin, bei einem Einsatz von oStmt := DacSqlStatement( ::DacSession ):fromChar( "select * from artikel" ) cAlias := oStmt:Build():Query( USQL_RESULT_WORKAREA ) erwarte ich, das (cAlias)->(Len(dbStruct())) die gleiche Anzahl an Feldern zurückgibt, wie die Tabelle 'artikel' Spalten enthält; t...

Spannend, Marcus, und interessant: Mein Ansatz ist ganz auf SQL ausgerichtet ( :select, :delete, usw.) da ich volständig auf SQL umsteigen und nicht Funktionen aus XBase abilden möchte.

@Carlo & Marcus: Ich wäre in Regensburg bei einem Treffen dabei. Bis dahin könnten wir uns Gedanken darüber machen

• welche Funktionen benötigt werden?

• welche bereits realisiert wurden?

• wie wir unsere Teile zusammenfügen können?

Code-Reviewer ist ein Thema, dem ich mich gerne widmen würde.

Danke Werner, Dein Versuch bestätigt die Antwort vom Support, dass es bei Ihnen ebenfalls gelaufen ist. Wahrscheinlich wurde mit dem 1185er Release diese Baustelle geschlossen. Ich arbeite (noch) mit 1159.

Hallo Carlo, Danke für Deine schlüssige Antwort. Sie hinterlässt die Frage, ob es nicht sinnvoller ist an den Klassen von xBase vorbei stets direkt über die LIBPQ auf die Datenbank zuzugreifen. Diese Diskussion hast Du glaube ich bereits im Forum mit Werner u.a. geführt. Dessen ungeachtet werde ich ...

Moin, select table_name, table_type from information_schema.tables where table_type = 'BASE TABLE' AND table_schema = 'public' order by table_name gibt im pgAdmin wie erwartet drei Einträge mit Namen und Typ zurück. In der Anwendung jedoch eine Datei mit drei Datensätzen ohne Felder. Ist dies ein Fe...

Erkenntnis: Dadurch das es möglich ist die letzten Änderung eines Datensatz abfragen zu können, kann man sich ein entsprechendes TimeStamp-Feld in der Tabelle sparen.

Danke Hans-Peter.

Ja Werner, muss ich den über die Dienste starten, oder gibt es dafür eine Möglichkeit im PgAdmin? Anbei zwei Methoden um die letzte Änderung eines Datensatzes oder einer Tabelle abfragen zu können. METHOD SQL:LetzteAenderungSatz( cTabelle, cSatz ) LOCAL aLetzteAenderung := ::Select_Array( "SELE...

Danke Carlo, funktioniert nach einem Neustart des Rechners super! Den PgAdmin allein neu zu starten hat nicht ausgereicht.

Moin Leute,

kennt jemand eine Möglichkeit herauszufinden wann eine Tabelle in postGreSQL zuletzt geändert wurde?

Hallo David,

hast Du

_scatterObject()

versucht?

Hallo Carlo, Danke für Deine Antwort. Auf UTF-8 möchte ich nicht verzichten (Shopanbindung). Nach ein paar Experimenten bin ich auf die Ursache gestossen: DacSqlStatement() konvertiert anscheinend jeden Text auf Basis der Einstellungen in Set( _SET_CHARSET, CHARSET_ANSI ) selbstständig nach UTF-8. D...

Hallo Leute, beim Versuch Daten aus einer Dbf mit einem Zeichenfeld der Länge 4 In eine korrespondierendes Char(4) Feld einer SQL-Tabelle via INSERT zu übertragen, kommt es zu einem Fehler wenn im Feld der DBF ein Text mit Umlaut (zB. 'Tüte') steht. 'Tüte' sei zu lang für Char(4). Ich kann es mir so...

... originell.: Das nehme ich als Kompliment, Tom (sorry für den Schreibfehler in der letzten Antwort). Jugend forscht.

Jupp Ton, das macht den Code eleganter (und leichter zu lesen).

Hi Jimmy,

ElapTime ist nicht das, was ich brauche. Ich möchte einen String 'HHMM' in Minuten umrechnen. In der Compat87.prg findet sich keine derartige Funktion.

Danke Georg,

in der PPO sieht man es:

alt
nDauer := 1440 - ( Val( Left( '2359', 2 )) * 60 ) + Val( Right( '2359', 2 ))

Dein Vorschlag:
nDauer := 1440 - (( Val( Left( '2359', 2 )) * 60 ) + Val( Right( '2359', 2 )))

Wieder etwas gelernt!

Hallo Georg, Stunden2Minuten( <val> ) => ( Val( Left( <val>, 2 )) * 60 ) + Val( Right( <val>, 2 )) nimmt die Anzahl an Stunden (23) und multipliziert diese mit 60 = 1380 und addiert die Minuten (59) dazu > 1439 Minuten. Oder versteh ich Dich falsch? Ja, im Debugger ist alles identisch.

Hi Folks, kann sich jemand erklären warum in der letzten Zeile 119 rauskommt? #xtranslate Stunden2Minuten( <val> ) => ( Val( Left( <val>, 2 )) * 60 ) + Val( Right( <val>, 2 )) PROCEDURE Main LOCAL nDauer := 0 altd() nDauer := Stunden2Minuten( '2359' ) // >> 1439 ok nDauer := 1440 - nDauer // >> 1 ok...

Moin Carlo,

Danke, dass Du bestätigst, was ich bereits vermutet habe. Die Quellen sind leider unterschiedlich. Es bleibt nur die Funktion um alle eindeutig unterscheidbaren Zeichen zu erweitern, und somit eine Annäherung zu erreichen.

Moin Leute, gibt es eine Möglichkeit sicher festzustellen ob einen Zeichenkette ANSI oder OEM Zeichen enthält? Derzeit behelfe ich mir damit: LOCAL lAnsi := FALSE LOCAL nLaenge := 0 LOCAL nZeichen := 0 cText := AllTrim( cText ) nLaenge := Len( cText ) FOR nZeichen := 1 TO nLaenge DO CASE CASE Asc( c...

Danke, Jimmy!