Inoffizielles deutsches Xbase-Forum

Meinst Du wirklich einen 3-dimensionaler Array? So wie Du ihn beschrieben hast ist es ein 2-dimensionaler Array mit 3 Spalten und diesen kann man einfach in das Excel übergeben. Bei einem 3-dimensionaler Array muss man aus der 3. Dimension Arbeitsblätter bilden. Die kann man mit dem Befehl oBook:wor...

Hallo Manfred


Die Funktion FSeek( <nHandle>, <nOffset>, [<nOrigin>] ) und damit auch FRead etc.
kann nur bis zu einem nOffset von 2147483648 betrieben werden.

Eine grössere Datei kann daher nicht vernünftig verarbeitet werden.
Man müsste dazu auf ein 64Bit API gehen.

Gruss Paul

Super gute Idee

Die Antwort habe ich in der zwischenzeit selber gefunden.

Der Methodenaufruf

setProperty("Value"',"DOC_TYPE","TA")

macht das gewünschte.

Ich möchte mit ActiveX eine Schnittstelle erstellen. Dabei wird bei den VB Beispielen folgender Code verwendet: oHeader.Value("DOC_TYPE") = "TA" eine Umsetzung nach Xbase wäre oHeader:Value("DOC_TYPE") := "TA" doch leider kann man in xBase einem Methodenaufruf...

Verpack doch den Filterbegriff in eine Funktion, dann hast du im Index-Filter einen kurzen Begriff.

Hallo Manfred

Erhöhe den SIZE etwas

@ 15,50 DCCOMBOBOX cField;
LIST aArray;
OBJECT obox;
SIZE 150,120


dann kann die Auswwahl auch angezeigt werden.



Gruss Paul

Hallo Herbert,

Schicke mir per Mail den Code zu. Ich ¨berprüfe das gern.

Gruss Paul

Hallo Auge_Ohr

änder folgendes

IF nTime > 86400
AADD(aAppointment,aclone(cText))
...

ansonsten wird der geleiche Array mit der gleichen Refernz ein 2. mal angehängt

mfg

Paul

Hallo Herbert,

Ich kriege ein Resultat zurück.
Bitte beachte, dass das 1. Zeichen ein chr(0) ist und dies evt. bei der Ausgabe den String beendet.

Hallo Manfred

Versuche es einmal mit

array:=&stringvar

Gruss Paul

Versuch es mit dem Begriff PRESENTATION und den entsprechenden Werten im Array z.Bsp. apres:= ; { { XBP_PP_COL_HA_FGCLR, GRA_CLR_WHITE }, /* Header FG Color */ ; { XBP_PP_COL_HA_BGCLR, GRA_CLR_DARKGRAY }, /* Header BG Color */ ; { XBP_PP_COL_HA_ALIGNMENT, XBPALIGN_HCENTER }, /* Align Header */ ; { X...

Ebenso dürfte
"Description"

Probleme bereiten

Hallo Wolfgang

ich würde es etwa so lösen:

k_oP :=DC_PrinterObject()
if k_oP:className()='DC_Printer'
k_oPD:=k_oP:oDC
k_oPD:endDoc()
k_oPD:setpaperbin(_nS)
k_oPD:StartDoc()
endif

so wird keine Druckerjob begonnen.

Gruss Paul

schau mal nach unter DCGETOPTIONS -> EXITVALIDATE

Hallo Tom,

Ich habe das Problem ebenfalls sporadisch bei den Kunden und zwar vermutlich nach einem DBEVAL.
Im Moment versuche ich es mit SET OPTIMIZE OFF.

Leider oder zum Glück tritt der Fehler selten auf, so dass ich noch nichts über die Auswirkung sagen kann.

Gruss Paul

Hallo Thomas,

Dreh dpoch einfach den Code.

Geh die DO WHILE Schleife einmal durch und innerhalb der DO WHILE Schleife führe das FOR NEXT aus. Somit muss er nur einmal die Datenbank durchgehen.

Gruss Paul