codeunit 50100 "CustVendWebService"
{
[ServiceEnabled]
procedure saveCustVend(var _custVendDC: Text[100240]): Text
var
CustVendRecord: Record "Customer";
AccountNum: Text[20];
Name: Text[100];
begin
AccountNum := GetValueFromXML(_custVendDC, '<d4p1:AccountNum>', '</d4p1:AccountNum>');
Name := GetValueFromXML(_custVendDC, '<d4p1:Name>', '</d4p1:Name>');
CustVendRecord.Init();
CustVendRecord."No." := AccountNum;
CustVendRecord."Name" := Name;
CustVendRecord.Insert();
MESSAGE('Customer record inserted: %1', AccountNum);
end;
local procedure GetValueFromXML(XMLText: Text; StartTag: Text; EndTag: Text): Text
var
StartPos: Integer;
EndPos: Integer;
Value: Text;
FullStartTag: Text;
begin
FullStartTag := StartTag;
StartPos := StrPos(XMLText, FullStartTag);
EndPos := StrPos(XMLText, EndTag);
if (StartPos > 0) and (EndPos > StartPos) then
Value := CopyStr(XMLText, StartPos + StrLen(FullStartTag), EndPos - StartPos - StrLen(FullStartTag));
exit(Value);
end;
}
I ested this in the postman and got this response:
<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
<s:Body>
<s:Fault>
<faultcode xmlns:a="urn:microsoft-dynamics-schemas/error">a:Microsoft.Dynamics.Nav.Service.SOAP.ServiceBrokerException</faultcode>
<faultstring xml:lang="en-US">Parameter _custVendDC in method saveCustVend in service CustVendWebService is null! </faultstring>
<detail>
<string xmlns="http://schemas.microsoft.com/2003/10/Serialization/">Parameter _custVendDC in method saveCustVend in service CustVendWebService is null! </string>
</detail>
</s:Fault>
</s:Body>
</s:Envelope>
What am I doing wrong?