delphi webapi方式同步数据到最新金蝶云教程（4）

今天我们来讲讲金蝶云数据得提交，

上一篇，我们判断客户数据未同步金蝶云得情况下，可以直接

保存，写入操作，保存成功后，必须要提交，才能进行审核。

//客户提交：参数，组织id，客户编码，返回信息
function TK3.SubmitCust(vorid,vcustid: string; var vmsg: string): Boolean;
var
  lstr: string;
begin
  Result := False;
   if K3Login then
  begin
    lstr := gHttpPost(GetActionUrl('Submit'),GetActionJson('BD_Customer',vorid,vcustid,''));
    if Pos('"IsSuccess":true',lstr) > 0 then Result := True;
    vmsg := lstr;
  end;

end;

这里有个获取提交得json格式方法：

function TAidigK3.GetActionJson(vformid,vorid,vnum,vactionid: string): string;
var
  lstr: string;
  lj: TJSONObject;
begin
  Result := '';

  lstr := '{"parameters":["%s","{\"CreateOrgId\":\"\",\"Numbers\":[\"\"],\"Ids\":\"%s\"}"]}';
  lstr :&