Thema: Delphi Frage zu SAP-iDoc

Einzelnen Beitrag anzeigen

SarDGer

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

AW: Frage zu SAP-iDoc

  Alt 12. Jun 2011, 11:43
So hab jetzt einiges zusammen gebastelt.

Leider bin ich für SAP anwendungen offenbar zu dämlich...

Ich ein "iDoc Simulat" im xml format zusammen getippselt.

Code:
<ZCONFPROD01>
  <IDOC>
    <EDI_DC40>
      <TABNAM>"EDI_DC40"</TABNAM>
      <MANDT>"500"</MANDT>
      <DOCNUM>"0000000005632233"</DOCNUM>
      <DOCREL>"700"</DOCREL>
      <STATUS>"53"</STATUS>
      <DIRECT>"2"</DIRECT>
      <OUTMOD>"</OUTMOD>
      <IDOCTYP>"ZCONFPROD01"</IDOCTYP>
      <MESTYP>"ZCONFPROD"</MESTYP>
      <SNDPOR>"SAPWMP"</SNDPOR>
      <SNDPRT>"LS"</SNDPRT>
      <SNDPRN>"WMSWMP"</SNDPRN>
      <RCVPOR>"SAPR3P"</RCVPOR>
      <RCVPRT>"LS"</RCVPRT>
      <RCVPRN>"QASCLNT210"</RCVPRN>
      <CREDAT>"20100101"</CREDAT>
      <CRETIM>"033604"</CRETIM>
      <SERIAL>"20100101033325"</SERIAL>
    </EDI_DC40>
  <Z1ZCONFPROD>
    <POST_WRONG_ENTRIES>"2"</POST_WRONG_ENTRIES>
    <Z1BP_PP_HDRLEVEL>
      <ORDERID>"000001109701"</ORDERID>
      <POSTG_DATE>"20100101"</POSTG_DATE>
      <EX_CREATED_DATE>"00000000"</EX_CREATED_DATE>
      <EX_CREATED_TIME>"000000"</EX_CREATED_TIME>
      <CONF_QUAN_UNIT>"CS"</CONF_QUAN_UNIT>
      <YIELD>"144.000"</YIELD>
      <SCRAP>"0.000"</SCRAP>
      <REWORK>"0.000"</REWORK>
      <EXEC_START_DATE>"00000000"</EXEC_START_DATE>
      <EXEC_START_TIME>"000000"</EXEC_START_TIME>
      <EXEC_FIN_DATE>"00000000"</EXEC_FIN_DATE>
      <EXEC_FIN_TIME>"000000"</EXEC_FIN_TIME>
      <PERS_NO>"00000000"</PERS_NO>
    </Z1BP_PP_HDRLEVEL>
  </Z1ZCONFPROD>
  <EDI_DS40>
    <MANDT>"500"</MANDT>
.
.
.
Sind ja soweit alle verbindungsinformationen, so wie ich
das so verstanden hab, vorhanden.

Ich hab in meinem test projekt die units:
SAPLogonCtrl_TLB, SAPFunctionsOCX_TLB, SAPBAPIControlLib_TLB

eingebunden und kann hiermit eine verbindung zu SAP aufbauen:

Delphi-Quellcode:
  Connection := SAPLogoncontrol.NewConnection;
  Connection.System := edt_System.Text;
  Connection.Client := edt_Client.Text;
  Connection.ApplicationServer := edt_AppServer.Text;
  Connection.SystemNumber := edt_SystemNumber.Text;
  Connection.User := edt_Username.text;
  Connection.Password := edt_Password.Text;
  Connection.Language := edt_Language.Text;

  if Connection.LogOn(0,chk_1.Checked) = true then (* Parameter "true" : SilentLogOn *)
    ShowMessage('Logon successfull.');
  else
    ShowMessage('Logon did not work :-(((');
* Danke an dieser Stelle Joachim Lentz Quelle

Soweit so gut, jetzt hab ich zig Seiten durchforstet und kenne die offiziellen
SAP-pdfs fast auswendig (kleiner Scherz - wacka wacka). Aber an dieser Stelle
hege ich den Verdacht das ich schlichweg zu doof bin.
Ich finde einfach keine Möglichkeit an SAP was zu senden.
Sondern nur die BAPIs aufzurufen.

Hier die Frage:
Wie bekomme ich meine Infos rüber?

Danke schonmal,
Sar D'Ger
  Mit Zitat antworten Zitat