Inoffizielles deutsches Xbase-Forum

es geht nur um Textdruck. Ich möchte jetzt möglichst wenig Änderungen vornehmen, da das Programm teilweise schon seeeehr alt ist. Mit NET USE LPT1 \\PRINTSERVER\DRUCKERNAME aus einem Commandfenster sollte der Druck auf LPT1 keinen Fehler bringen, auch unter W10 nicht. Da muss auch nichts im Program...

Ansonsten auch MemoWrit(), die Low-Level-Funktionen (FCreate u.ä.) sowie StrFile() aus den Tools. Alle wären auch dazu in der Lage, Binärdaten zu schreiben. Bei StrFile() aus den Tools scheint es einen Bug zu geben. Unter Windows 8.1 und Windows 10 wird zwar eine Datei erstellt, allerdings mit der ...

Aber wenn Du nach mutex suchst, soltlst Du alles finden können. Mutex bringt doch nur etwas um festzustellen, ob auf einem PC das Programm bereits läuft. Im Netzwerk ist das IMHO nicht verwendbar. Lösungsansatz: Beim Start die Existenz einer Log-Datei abfragen und dann, wenn nicht vorhanden diese L...

Ich habe Kontakt zu Alaska aufgenommen, der Fehler liegt nicht an Xbase++, sondern an den Rechnern. Ich habe auf Anraten von Alaska Systemtools z.B. Notepad.exe auf den besagten Rechnern laufen lassen, die zeigen genau den selben Menüfehler. So wie es aussieht, gibt es keine rasche Lösung, ich werde...

Danke der Deine Mühe Jimmy, das Problem liegt anscheinend bei Lenovo und der Art. wie der Monitor angesteuert wird. Standard ist bei den AIO Rechnern von Lenovo, dass am Bildschirm ein kleiner Rand vorhanden ist, der schwarz bleibt. Nun kann man im Rechner einstellen, dass die Anzeige auf Vollbild &...

Frage : ist es nur beim 1st Menü nach links verschoben oder auch die restlichen (vertikalen) Menüs beim aufklappen ? wenn all (vertikalen) Menüs um den gleichen Betrag nach links verschoben sind "könnte" man einen Korrektur Faktor beim Ownerdraw verwenden. Kunden PC : was für ein Gerät un...

Ich habe das Bespielt OWNERDRAW heute beim Kunden getestet und davor kontrolliert, ob die Einstellungen für den Bildschirm auf 100% stehen, sind sie. Und OWNERDRAW bringt den gleichen Anzeigenfehler.

Wie kommt so etwas zu Stande? Am Kundenrechner läuft ein Windows 8.1 Prof. mit einer Auflösung von 1920x1080 ... und bei welcher DPI Auflösung (das ist doch nicht 100% ) ? das ganze ist ja ein Ownerdraw Menu ( XbpImageMenu() ) ? welche Hotfixe sind installiert ? als Gegenprobe würde ich das origina...

Wie kommt so etwas zu Stande? Am Kundenrechner läuft ein Windows 8.1 Prof. mit einer Auflösung von 1920x1080, exakt so wie in meiner Entwicklungsumgebung. Auf meinem PC sieht das ganz normal aus, am Kunden-PC sieht das Menü aber so aus: http://ppo2.at/images/menu.jpg Kann mir bitte jemand erklären, ...

Aber wenn Alaska nicht will, dann können wir uns auf den Kopf stellen, da kommen wir nicht gegen an. Wenn Alaska derart unflexibel und eigensinnig ist, dürfen sie sich nicht wundern, wenn die potentiellen Kunden auf die neue Version verzichten. Ich lass mir doch nicht vorschreiben, wo ich meine Ent...

Jan hat geschrieben:Halt irgendwer von Euch schon Erfahrungen gemacht mit ISO 9000? Positive, negative? Anfragen von Kunden? Gründe dafür, dagegen?

Meinst Du ISO 9000 des Kunden oder ISO 9001 für die eigene Software?

Sorry für die Umstände, der Fehler war die geänderte Syntax von ALERT() in Alaska:

Alaska: Alert("Fehler", {"Korrektur"}, "W/B, R/W")

Clipper: Alert("Fehler", {"Korrektur"}, , "W/B, R/W")

LG aus Wien
Leon

Hallo Leon, wo genau sind denn die Zeilen 434 und 470? Das würde es einfacher machen worauf genau geschaut werden muß. Ich habe die Zeilennummern rot eingefärbt. bErrorHandler:={|objError|RechenError(objError)} // ZEILE 434 bLastHandler:=errorblock(bErrorHandler) begin sequence falsch=&erg reco...

Hallo aus Wien, ich habe ein Problem bei der Umstellung eines Clipper Programmes. In diesem Programm gibt es ein längeres Textfeld, in das Berechnungsformeln geschrieben werden und ein Errorhandler hat unter Clipper einen Fehler abgefangen und den Benutzer darauf hingewiesen, dass ein logischer Fehl...

irgendwie konnte man es mit der "Position" des Druckkopf feststellen ... wenn der neue Werte < alter Wert dann war ein EJECT notwendig ... wie ging das noch ? nMaxRow := 66 // bei A4 zwischen 60 und 72, je nach Einstellung es Druckrandes Druckbefehle... IF prow() > nMaxRow EJECT ENDIF

Liegt das Programm auf Deinem PC oder auf einem Server?

Rudolf hat geschrieben:gibt es ein Portal an das man Testrechnungen zum Prüfen schicken kann ?
Würde es u.U. auch in mein ERP System einbauen.

Ja, das gibt es:

https://test.erechnung.gv.at/erb/?p=invoice_upload

Rudolf hat geschrieben:Hallo Hans,
gibs einen Link mit Docu wie die XML aufgebaut sein muss ?

Es gibt eine PDF-Datei mit der Beschreibung im Anhang:

Gruß aus Wien
Leon

Vielleicht hilft Dir das Beispiel von Roger Donna aus XDEMO weiter: /* LISTBOX This example shows how to implement 'Mark All' and ' Clear All' buttons in a DCLISTBOX command. */ LOCAL GetList := {}, aFields:={}, cField:={} LOCAL oListBox AADD(aFields, 'Alice') AADD(aFields, 'Bob') AADD(aFields, 'Car...

Schon einmal DCREAD GUI SAVE versucht?

Um nochmals auf das eigentliche Problem zurück zu kommen: Man könnte auch auf eigene Art runden (als Idee): IF val-INT(nval) < -0.04 nval := INT(nval)+1 ELSE nval:=INT(nval) END Ich löse das mit einer eigenen Funktion: FUNCTION INTEGER(nZahl) RETURN VAL(LEFT(STR(nZahl, 21, 10), 10)) round(71.1,2)*1...

Einige Wochen kosten zumindest bei mir auch einige tausend, da verkraftet der Kunde auch den Fix für nen tausender. Vlt. hat es sich mit der neuen Software dann auch erledigt. Na ja, man kann generell begrenze Ressourcen immer sinnvoll oder sinnlos investieren. 1000 € können nur einmal ausgegeben w...

Ist auch mit Win8/32bit kein Problem, die Programme sind so wie unter 7/32 lauffähig.

Wird ein Replace nicht mit ":=" vorgenommen?

Also statt:

AUFAKT->AUNR = AUFTRAG->AUNR

AUFAKT->AUNR := AUFTRAG->AUNR

Welche Icons verwendet Notepad? Das sieht bei XP und Windows 8 gleich aus und da gibt es nur Menüs ohne Icons.
Meinst Du so etwas?: http://www.unawave.de/windows-7/win7-icons.html