Forum: Sonstige Fragen zu Delphi
by Pfaffe,
18. Jun 2018
Hallo heavybyte,
Dein Quellcode funktioniert so weit, beachte aber das die Materialnummer vom Typ string und die Sprache vom Typ string[1| sein muss.
In Deinem ersten Post schreibts Du, dass RFC_READ_TABLE noch funktioniert, aber RFC_READ_TEXT nicht mehr.
Was genau funktioniert den nicht? in welcher Zeile hängt das Programm, welche Errormeldung erscheint?
Funktioniert bei Dir mein Quellcode...
Forum: Sonstige Fragen zu Delphi
by Pfaffe,
15. Jun 2018
Zeig doch nochmal Deinen Quellcode, ggf. auch den vom VBA. Oder sende in mir per PN.
Bitte aber Geduld mit mir, ich bin nicht permanent hier.
Forum: Sonstige Fragen zu Delphi
by Pfaffe,
13. Jun 2018
Habe in meinem Test ein TRichEdit eingebaut und die Ausgaben dort hineinlaufen lassen. Es funktioniert.
Habe aber auch IDEFixPack installiert.
Bei mir ist Windows 10 64 Bit 1703, Betriebssystembuild 15063.1088 installiert.
Forum: Sonstige Fragen zu Delphi
by Pfaffe,
13. Jun 2018
Sprachcodes lesen:
procedure TForm1.btn4Click(Sender: TObject);
var
Funct, Fields, Options, Table: OleVariant;
r: integer;
s, ss: string;
Splitted: TArray<String>;
begin
try
Forum: Sonstige Fragen zu Delphi
by Pfaffe,
13. Jun 2018
So kann ich die Texte holen:
procedure TForm1.btn_GrunddatentexteClick(Sender: TObject);
var
Funct, Fields, Options, Table, Textline, Itemsrow: OleVariant;
r: integer;
//
ArtNr: string;
Sprache: string;
Textart: string;
Forum: Sonstige Fragen zu Delphi
by Pfaffe,
12. Jun 2018
// Mit VBA kannst Du den Text lesen?
ItemsRow.Value:= 'MVKE'; // muss da nicht 'MATERIAL' stehen? MVKE ist die Tabelle für die Verkaufsorganisationen.
ItemsRow.Value:= '000000000100000205110000'; // Ist das die Materialnummer? Bei uns wäre die zu lang.
ItemsRow.Value:= '0001'; // 0001...Vertriebstext; GRUN...Grunddatentext; PRUE...Prüftext; LTXT...Materialnotiz; BEST...Einkaufsbestelltext...