Hallo zusammen,
ich habe folgenden Code und bin gerade dabei diesen in eine exe datei umwandeln zu wollen, nur klappt dies nicht sowie ich es mir vorgestellt habe..
ich bekomme zwar mit einem Tool namens "Harbour" eine .obj oder eine .c hin aber dann weiter mit dem Borland Compiler keine exe Datei... kann mir da evtl jemand weiterhelfen?
Vielen Dank schonmal im Vorraus
Clear Screen
Set Date german
Set Epoch to 1970
Set Printer To ("Thema.xml")
Set Device To Printer
Set Printer On
Set Console Off
Use input New
Go Top
// Kopfsatz schreiben
?? '<enfinity xmlns:xsi="http://www.eineSeite.org/Pfad"' + chr(10)
?? 'xsi:noNamespaceSchemaLocation="http://www.andereSeite.com/Pfad"' + chr(10)
?? 'xmlns:xml="http://www.andereSeite.com/Pfad"' + chr(10)
?? 'xmlns:dt="http://www.andereSeite.com/Pfad"' + chr(10)
?? 'major="2"' + chr(10)
?? 'minor="2"' + chr(10)
?? 'family="enfinity"' + chr(10)
?? 'branch="enterprise"' + chr(10)
?? 'build="2.2.1.1">' + chr(10)
// Datensätze schreiben
Do While .not. eof()
?? chr(09) + '<buyer buyer-no = "'+ alltrim(input->konto) + '">' + chr(10) + chr(09) + chr(09)
?? '<buyer-no>' + alltrim(input->konto) + '</buyer-no>' + chr(10) + chr(09) + chr(09)
?? '<enabled>0</enabled>' + chr(10) + chr(09) + chr(09)
?? '</buyer>'+ chr(10)
Skip 1
Enddo
// Fußsatz schreiben
?? '</enfinity>'+ chr(10)
Set Console On
Set Device To Screen
Set Printer Off
Set Printer To
Close Data
Return
ich habe folgenden Code und bin gerade dabei diesen in eine exe datei umwandeln zu wollen, nur klappt dies nicht sowie ich es mir vorgestellt habe..
ich bekomme zwar mit einem Tool namens "Harbour" eine .obj oder eine .c hin aber dann weiter mit dem Borland Compiler keine exe Datei... kann mir da evtl jemand weiterhelfen?
Vielen Dank schonmal im Vorraus
Clear Screen
Set Date german
Set Epoch to 1970
Set Printer To ("Thema.xml")
Set Device To Printer
Set Printer On
Set Console Off
Use input New
Go Top
// Kopfsatz schreiben
?? '<enfinity xmlns:xsi="http://www.eineSeite.org/Pfad"' + chr(10)
?? 'xsi:noNamespaceSchemaLocation="http://www.andereSeite.com/Pfad"' + chr(10)
?? 'xmlns:xml="http://www.andereSeite.com/Pfad"' + chr(10)
?? 'xmlns:dt="http://www.andereSeite.com/Pfad"' + chr(10)
?? 'major="2"' + chr(10)
?? 'minor="2"' + chr(10)
?? 'family="enfinity"' + chr(10)
?? 'branch="enterprise"' + chr(10)
?? 'build="2.2.1.1">' + chr(10)
// Datensätze schreiben
Do While .not. eof()
?? chr(09) + '<buyer buyer-no = "'+ alltrim(input->konto) + '">' + chr(10) + chr(09) + chr(09)
?? '<buyer-no>' + alltrim(input->konto) + '</buyer-no>' + chr(10) + chr(09) + chr(09)
?? '<enabled>0</enabled>' + chr(10) + chr(09) + chr(09)
?? '</buyer>'+ chr(10)
Skip 1
Enddo
// Fußsatz schreiben
?? '</enfinity>'+ chr(10)
Set Console On
Set Device To Screen
Set Printer Off
Set Printer To
Close Data
Return