Thema: Delphi Frage zu SAP-iDoc

Einzelnen Beitrag anzeigen

SarDGer

Registriert seit: 19. Mai 2005
55 Beiträge
 
Delphi 7 Professional
 
#6

AW: Frage zu SAP-iDoc

  Alt 10. Mai 2011, 11:36
Danke für die schnelle Reaktion.

Es geht um Einbuchungen die in unserem Programm getätigt werden,
aufgrund von Bestellungen.

Beispiel
10000 Bestellt,
100 angekommen - Buchung 1 (Barcode = 4711)
300 angekommen - Buchung 2 (Barcode = 4712)
100 angekommen - Buchung 3 (Barcode = 4713)
usw.

Bei jeder buchung hängen wir einen schwung Infos mit an die ich
jetzt an das SAP System zurück geben soll, damit die in dem System
"OnTime" sehen können was schon verbucht wurde, wohin, wieviel usw.

Leider sind die Jungs ein wenig Triefnasig, ich hab jetzt erstmal
erfragt in welche Tabelle-(Struktur) die welche Felder gefüllt haben
wollen. Schätze So muss ich mich voran humpeln...

Ich forsche gerade in Richtung: Connection.CreateEmptyIdoc('ORDERS01','');
Da ich von der Function aber Variant zurückbekomme ist die Analyse nicht
gerade leichter geworden...
Ich versuche noch weiter Details rauszufingen.

Update:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  iDoc : Variant;
  IDocHeaderSegment : Variant;
  IDocItemSegment : Variant;
  IDocIdentSegmnet : Variant;
begin
  iDoc := Connection.CreateEmptyIdoc('ORDERS01','');
  idoc.MESTYP := 'ORDERS';

  // iDoc Sender infos
  idoc.SNDPRN := '1172'; // Partner number
  idoc.SNDPRT := 'KU'; // Partner type

 // Create document header segment
 IdocHeaderSegment := idoc.CreateSegment('E1EDK01');
 idoc.Segments.Add(IdocHeaderSegment);

 // Create item segment
 IdocItemSegment := idoc.CreateSegment('E1EDP01');
 IdocItemSegment.Fields['MENGE'].FieldValue := '7';
 idoc.Segments.Add(IdocItemSegment);

 // Create Object identification (material number in this case)
 IDocIdentSegmnet := idoc.CreateSegment('E1EDP19');
 IDocIdentSegmnet.Fields['QUALF'].FieldValue := '002'; // 002 for material number
 IDocIdentSegmnet.Fields['IDTNR'].FieldValue := 'Artikel 001'; // material number
 IDocIdentSegmnet.ChildSegments.Add(IDocIdentSegmnet);

 idoc.Send();
end;
Hab da was als C# Source gefunden (Quelle: Hier)
Hab's in Delphi-source umgebastelt und natürtlich keine Ahnung was wohl passiert
wenn ich wirklich mit dem System verbunden bin und auf den Knopp drücke.
Aber es lässt sich kompilieren...

Kann der Segmentname (idoc.CreateSegment('E1EDP01')) hier 'E1EDP01' beliebig sein Sprich ist
das eine Variable die ich vergebe oder wie finde ich raus was da einzutragen ist?

Noch wichtiger:
iDoc : Variant; ist natürlich nicht richtig.
Sollte wohl iDoc : iDoc; sein. Aberwelche Unit muss ich einbinden um den Typ iDoc zu kennen?

Also weiter forschen...

Gruß,
Sar D'Ger

Geändert von SarDGer (10. Mai 2011 um 12:29 Uhr)
  Mit Zitat antworten Zitat