40 lines
959 B
Plaintext
40 lines
959 B
Plaintext
|
function GetNoDateMaxNo(ADOQueryTmp:TADOQuery;
|
|||
|
|
var mMaxNo:string;
|
|||
|
|
mTable:string;
|
|||
|
|
mFlag:string;
|
|||
|
|
lsLen:integer=3):Boolean;
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
with ADOQueryTmp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear ;
|
|||
|
|
sql.Add('exec XC_TableNoDateDH');
|
|||
|
|
sql.Add(quotedStr(mTable));
|
|||
|
|
sql.Add(','+quotedStr(mFlag));
|
|||
|
|
sql.Add(','+intTostr(LsLen));
|
|||
|
|
Open;
|
|||
|
|
|
|||
|
|
if RecordCount>0 then
|
|||
|
|
begin
|
|||
|
|
mMaxNo:=trim(fieldByName('DepotShow').AsString) ;
|
|||
|
|
if mMaxNo<>'' then
|
|||
|
|
result:=true
|
|||
|
|
else
|
|||
|
|
Result:=false;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
result:=false;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
if not Result then
|
|||
|
|
application.MessageBox(Pchar('<27><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>('+mflag+')'),'<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONINFORMATION);
|
|||
|
|
|
|||
|
|
Except
|
|||
|
|
result:=false;
|
|||
|
|
application.MessageBox(Pchar('<27><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>('+mflag+')'),'<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONINFORMATION);
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|