Hallo,
ich habe ein kleines Problem mit dem Textfeld im Artikelstamm (tiitm001).
Wir bekommen per ASCII-File einen Artikelstamm aus einem Sub-System und spielen die Daten via API in den Artikelstamm ein. Das funktioniert soweit auch ganz gut bis auf die Texte!

Hierfür gibt es in der API-dll keine Funktionaliät.

Kann mir jemand einen Weg nennen, wie ich die Texte automatisch anlegen kann!

MfG und Danke im Voraus!!!

Hallo,

das geht leider nur etwas komplizierter mit dem Umweg über eine Datei. Das Beispiel gewinnt zwar mit Sicherheit keinen Schönheitspreis aber es funktioniert beim Auftragseingang. Zur Zeit haben wir nur 2 Textzeilen die so in den Auftragskopf eingefügt werden müssen.

Gruß
csecgn

select tdsls040.*
from tdsls040 for update
where tdsls040._index1 = { :tdbow002.orno}
selectdo
| Texte übernehmen
if not isspace( tdbow002.txt1) then
n = creat.tmp.file$( bse.tmp.dir$())
f = seq.open( n, "w")
retfile = seq.puts( tdbow002.txt1, f)
retfile = seq.puts( tdbow002.txt2, f)
retfile = seq.close( f)
retfile = text.defaults("tdsls040.txta", tgroup, edit_opt)
retfile = text.write("tdsls040.txta", language$, "", "", "", "", tgroup, edit_opt, n)
endif
if not isspace( tdbow002.txt3) then
n = creat.tmp.file$( bse.tmp.dir$())
f = seq.open( n, "w")
retfile = seq.puts( tdbow002.txt3, f)
retfile = seq.close( f)
retfile = text.defaults("tdsls040.txtb", tgroup, edit_opt)
retfile = text.write("tdsls040.txtb", language$, "", "", "", "", tgroup, edit_opt, n)
endif
db.update( ttdsls040, db.retry)
endselect

Hallo zusammen,

csecgn, Du nimmst mir die Worte aus dem Mund! Texte einlesen am besten ueber text.write().

Eine Loesung via AFS ist aus meiner Sicht nicht moeglich. Waere aber auf jeden Fall eine interessante Alternative, wenn es funktioniert ...

Gruss, joedi01

Bitte

include <bic_text>

nicht vergessen, sonst gibt's Compile-Fehler!

Danke an euch beide! Das klappt hervorragend! Einfach aber dennoch sehr wirkungsvoll (oder gerade deswegen!!!).
Manchmal sieht man den Wald vor lauter Bäumen nicht und die einfachsten Lösungen sind weit weg!