calall.sql

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

declare
    v_num integer;
begin
    v_num:=2822;    --起始数字
    for rec in (
    Select
        rtrim(RYID) as "RYID_FF",
        '185' as DWID_FF,
        '1000000000' as "SSDWID",
        rtrim(XM) as "XM",
        B2 as "SFZH",
        ZS1 as "HDJE",
        3 as FFFS,
        '1000000007' as "FFJGID",
        3 as DJQK,
        c2 as DZ,
        C3 as YZBM,
        ZS1 as "FFJE",
        0 as "LJFFJE",
        1 as "FFZQ",
        1 as "RYZT"
        from kgyf

    )
    loop
        insert into tff_ryxx(
        RYID_FF,DWID_FF,SSDWID,XM,SFZH,HDJE,FFFS,FFJGID,DJQK,
        DZ,YZBM,FFJE,LJFFJE,FFZQ,RYZT
        )
        values(
        rec.RYID_FF,rec.DWID_FF,rec.SSDWID,rec.XM,rec.SFZH,rec.HDJE,rec.FFFS,
        rec.FFJGID,rec.DJQK,
        rec.DZ,rec.YZBM,rec.FFJE,rec.LJFFJE,rec.FFZQ,rec.RYZT
        );
    end loop;
end;