create or replace function get_zq(vcorderno_t in varchar2 ,flag_str in varchar2) return integer is

FunctionResult integer;

resInt integer;

sqlstr varchar2(2000);

sqlstr_yk varchar2(2000); --移库天数

sqlstr_sz varchar2(2000); --设置天数

sqlstr_pb varchar2(2000); --配板周期

sqlstr_zt varchar2(2000); --在途天数

sqlstr_zt1 varchar2(2000); --在途天数

sqlstr_ps varchar2(2000); --配送天数

sqlstr_pre varchar2(2000); --预计发运周期=移库天数+设置天数+在途天数+配送天数

sqlstr_tb varchar2(2000);

begin

FunctionResult:=0;

sqlstr_tb:=' FROM rgorder a,'||

' rgorderdetail b,'||

' bistyle c,'||

' bifirststyle e,'||

' bidest f, '||

' bitranscity g'||

' where rownum=1 and a.vcorderkind IN (''正常'', ''中转库'') '||

' and a.vcorderno = b.vcorderno(+) '||

' and a.vcstyleno = c.vcstyleno'||

' and c.vcfstyleno = e.vcfstyleno '||

' and a.cdestno = f.cdestno'||

' and f.ctcityno = g.ctcityno '||

' and a.ctransno <> ''003'' '||

' and a.vcorderno=:1';

--移库天数

sqlstr_yk:='(case when get_isbf(a.vctcitynameb)=1 then 0'||

' when bdirect>=1 then 1'||

' else 0'||

' end)';

--设置天数

sqlstr_sz:='(CASE'||

' when get_isbf(a.vctcitynameb)=1 then 2 '||

' when b.cfleetno=''Z061'' then 2 '||

' WHEN a.ctransno = ''001'' THEN 1'||

' WHEN e.vcfacname=''股份'' then 2'||

' when e.vcfacname=''大乘'' then 1'||

' else dccyc-1'||

' END)';

--配板周期=移库天数+设置天数

sqlstr_pb:= sqlstr_yk ||'+'||sqlstr_sz;

--在途 天数

sqlstr_zt:=' (CASE '||

--后段全部3天在途

' when get_isbf(a.vctcitynameb)=1 then 1'||

' when b.cfleetno=''Z061'' then g.dcrailcyc'||

' WHEN bbtrans=1 THEN CEIL(get_dckim(a.vcorderno)/ 550)'||

' else CEIL(get_dckim(a.vcorderno)/ 550)+2'||

' END)' ;

--配送

sqlstr_ps:='(case when b.cfleetno=''Z061'' and bbtrans=1 then 2+3'||

' WHEN bbtrans=1 then 2'||

' else 0 '||

' end)';

--预计发运=移库天数+配板天数+在途天数+配送天数

sqlstr_pre:=sqlstr_yk||'+'||sqlstr_sz||'+'||sqlstr_zt||'+'||sqlstr_ps;

if flag_str='pbzq' then

begin

sqlstr:=' select '||sqlstr_pb||sqlstr_tb;

execute immediate sqlstr into resInt using vcorderno_t;

end;

elsif flag_str='yk_zq' then

begin

sqlstr:=' select '||sqlstr_yk||sqlstr_tb;

execute immediate sqlstr into resInt using vcorderno_t;

end;

elsif flag_str='zt_fyzq' then

begin

sqlstr:=' select '||sqlstr_zt||sqlstr_tb;

execute immediate sqlstr into resInt using vcorderno_t;

end;

elsif flag_str='ps_zq' then

begin

sqlstr:=' select '||sqlstr_ps||sqlstr_tb;

execute immediate sqlstr into resInt using vcorderno_t;

end;

elsif flag_str='pre_fy' then

begin

sqlstr:=' select '||sqlstr_pre||sqlstr_tb;

execute immediate sqlstr into resInt using vcorderno_t;

end;

else

resInt:=0;

end if;

FunctionResult:=resInt;

return(FunctionResult);

end get_zq;