27,579
社区成员
发帖
与我相关
我的任务
分享
CREATE OR REPLACE FUNCTION SFCS.PARSING_TYPE(OLD_SN IN VARCHAR2,NEW_SN OUT VARCHAR2,PRINT_CODE_PATH OUT VARCHAR2)
RETURN VARCHAR2 IS S1 NUMBER;SN1 VARCHAR2(4);SN2 VARCHAR2(7);SN3 VARCHAR2(6);
BEGIN S1:=LENGTH(OLD_SN);
IF S1=29 THEN SN1:=SUBSTR(OLD_SN,13,4);
SN2:=SUBSTR(OLD_SN,17,7);
SN3:=SUBSTR(OLD_SN,25,5);
NEW_SN:=SN1||SN2||SN3;
ELSIF S1=30 THEN SN1:=SUBSTR(OLD_SN,13,4);
SN2:=SUBSTR(OLD_SN,17,7);
SN3:=SUBSTR(OLD_SN,25,5);
NEW_SN:=SN1||SN2||SN3;
else
NEW_SN:=old_sn;
end if;
PRINT_CODE_PATH:='C:\WINNT\MITAC_APP\BARCODE\DMD-3.TXT';
END;
create Proc SFCS.PARSING_TYPE
@OLD_SN VARCHAR(100),
@NEW_SN VARCHAR(100) output,
@PRINT_CODE_PATH VARCHAR(100) output
as
declare @S1 int
declare @SN1 VARCHAR(4)
declare @SN2 VARCHAR(7)
declare @SN3 VARCHAR(6)
set @S1:=LEN(@OLD_SN)
IF @S1 in (29,30)
begin
set @SN1=SUBSTRING(@OLD_SN,13,4)
set @SN2=SUBSTRING(@OLD_SN,17,7)
set @SN3=SUBSTRING(@OLD_SN,25,5)
set @NEW_SN=@SN1+@SN2+@SN3
end
else
set @NEW_SN=@old_sn
set @PRINT_CODE_PATH:='C:\WINNT\MITAC_APP\BARCODE\DMD-3.TXT'
create Proc SFCS.PARSING_TYPE
@OLD_SN VARCHAR(100),
@NEW_SN VARCHAR(100) output,
@PRINT_CODE_PATH VARCHAR(100) output
as
declare @S1 int
declare @SN1 VARCHAR(4)
declare @SN2 VARCHAR(7)
declare @SN3 VARCHAR(6)
set @S1:=LEN(@OLD_SN)
IF @S1=29
begin
set @SN1=SUBSTRING(@OLD_SN,13,4)
set @SN2=SUBSTRING(@OLD_SN,17,7)
set @SN3=SUBSTRING(@OLD_SN,25,5)
set @NEW_SN=@SN1+@SN2+@SN3
end
ELSE IF @S1=30
begin
set @SN1=SUBSTRING(@OLD_SN,13,4)
set @SN2=SUBSTRING(@OLD_SN,17,7)
set @SN3=SUBSTRING(@OLD_SN,25,5)
set @NEW_SN=@SN1+@SN2+@SN3
end
else
set @NEW_SN=@old_sn
set @PRINT_CODE_PATH:='C:\WINNT\MITAC_APP\BARCODE\DMD-3.TXT'