1,183
社区成员
发帖
与我相关
我的任务
分享
var
//请求
Req:request;
ReqA:MT_OTMS2DX_Record_Input;
//转换日期
DDate:TXSDate;
SDate: TDateTime;
WYear, WMonth, WDay: Word;
//请求
SoapA:MI_OTMS_REQUEST;
UsHTTPRIO:THTTPRIO;
//响应
res:row;
resA:MT_DX_OTMS_READ;
begin
SDate := Now;
DecodeDate(SDate, WYear, WMonth, WDay);
DDate := TXSDate.Create;
DDate.Day := 1;
ShowMessage(IntToStr(WDay));
Req := request.Create;
Req.DOC_DATE := DDate;
Req.YUNDANHAO := '';
setlength(Reqa,1);
Reqa[0] := Req;
//创建一个HTTPRIO 用于放账号和密码
UsHTTPRIO:=THTTPRIO.Create(nil);
UsHTTPRIO.HTTPWebNode.UserName:='USERNAME';
UsHTTPRIO.HTTPWebNode.Password:='PASSWORD';
SoapA:=GetMI_OTMS_REQUEST(True,StrUrl,HTTPRIO1);
//创建响应的
res:=row.Create;
SoapA.MI_OTMS_REQUEST(Reqa);