Opportunity ID in Belege

Mario Höfer

Hallo,

gerade hat sich folgendes Problem ergeben:
Ich habe folgenden Code für die Abfragen der Opportunity ID in Belegen verwendet

If (GetData("LD.Par.FormType") = "149") Then 
  textBox222.Value = LD.QueryData("SELECT OpprId FROM OPR1 T0 WHERE T0.DocId =" + (LD.QueryData("SELECT DocEntry FROM OQUT T1 WHERE T1.DocNum =" + LD.FStr(Document("DocNum"),"0"))))
Elseif (GetData("LD.Par.FormType") = "140") Then 
  textBox222.Value = LD.QueryData("SELECT OpprId FROM OPR1 T0 WHERE T0.DocId =" + (LD.QueryData("SELECT DocEntry FROM ODLN T1 WHERE T1.DocNum =" + LD.FStr(Document("DocNum"),"0"))))
Elseif (GetData("LD.Par.FormType") = "139") Then 
  textBox222.Value = LD.QueryData("SELECT OpprId FROM OPR1 T0 WHERE T0.DocId =" + (LD.QueryData("SELECT DocEntry FROM ORDR T1 WHERE T1.DocNum =" + LD.FStr(Document("DocNum"),"0"))))
Elseif (GetData("LD.Par.FormType") = "133") Then 
  textBox222.Value = LD.QueryData("SELECT OpprId FROM OPR1 T0 WHERE T0.DocId =" + (LD.QueryData("SELECT DocEntry FROM OINV T1 WHERE T1.DocNum =" + LD.FStr(Document("DocNum"),"0"))))
Elseif (GetData("LD.Par.FormType") = "149") Then 
  textBox222.Value = LD.QueryData("SELECT OpprId FROM OPR1 T0 WHERE T0.DocId =" + (LD.QueryData("SELECT DocEntry FROM OPOR T1 WHERE T1.DocNum =" + LD.FStr(Document("DocNum"),"0"))))
Elseif (GetData("LD.Par.FormType") = "180") Then 
  textBox222.Value = LD.QueryData("SELECT OpprId FROM OPR1 T0 WHERE T0.DocId =" + (LD.QueryData("SELECT DocEntry FROM ORDN T1 WHERE T1.DocNum =" + LD.FStr(Document("DocNum"),"0"))))
End if

Bei Angeboten hat das bei den bisherigen Tests funktioniert.
Bei Auftragsbestätigungen war leider das Ergebnis falsch, die anderen konnte ich noch nicht testen.
Welchen Denkfehler habe ich hier ?
Danke im Vorraus.

Gruß,

Mario Höfer

Philipp Knecht

Hi Mario

Du musst zusätzlich auch noch nach ObjType eingrenzen.

hth

Mario Höfer

Hallo Philipp,

ja das hat mir weitergeholfen.
Vielen Dank