AAA

create or replace function FBH_SK_GOI_TENl(b_ma varchar2) return nvarchar2
AS
    b_kq nvarchar2(500);
begin
-- viet anh
select min(ma||'|'||ten) into b_kq from bh_sk_goi where ma=b_ma;
return b_kq;
end;
/
create or replace function FBH_NGDL_GOI_TENl(b_ma varchar2) return nvarchar2
AS
    b_kq nvarchar2(500);
begin
-- viet anh
select min(ma||'|'||ten) into b_kq from bh_ngdl_goi where ma=b_ma;
return b_kq;
end;
/
create or replace function FBH_NGDL_SP_TENl(b_ma varchar2) return nvarchar2
AS
    b_kq nvarchar2(500);
begin
-- viet anh
select min(ma||'|'||ten) into b_kq from bh_ngdl_sp where ma=b_ma;
return b_kq;
end;
/
create or replace function FBH_NGTD_GOI_TENl(b_ma varchar2) return nvarchar2
AS
    b_kq nvarchar2(500);
begin
-- viet anh
select min(ma||'|'||ten) into b_kq from bh_ngtd_goi where ma=b_ma;
return b_kq;
end;
/
create or replace function FBH_NGTD_SP_TENl(b_ma varchar2) return nvarchar2
AS
    b_kq nvarchar2(500);
begin
-- viet anh
select min(ma||'|'||ten) into b_kq from bh_ngtd_sp where ma=b_ma;
return b_kq;
end;
/
create or replace procedure PBH_PKT_PQU_BG(
    b_ma_dviN varchar2,b_nsdN varchar2,b_ma_dvi varchar2,b_so_id number,b_loi out varchar2)
AS
    b_ma_sp varchar2(10); b_nt_tien varchar2(5); b_tien number;
    dk_ma pht_type.a_var; dk_ten pht_type.a_nvar; dk_tien pht_type.a_num; dk_ptG pht_type.a_num;
begin
-- dan - Kiem tra phan quyen
b_loi:='loi:Bao gia da xoa:loi';
select ma_sp,nt_tien,tien into b_ma_sp,b_nt_tien,b_tien from bh_pktB where ma_dvi=b_ma_dvi and so_id=b_so_id;
for r_lp in (select * from bh_pktB_dvi where ma_dvi=b_ma_dvi and so_id=b_so_id) loop
    select ma,ten,tien,ptG bulk collect into dk_ma,dk_ten,dk_tien,dk_ptG
        from bh_pktB_dk where ma_dvi=b_ma_dvi and so_id=b_so_id and so_id_dt=r_lp.so_id_dt;
        -- viet anh -- thieu truong b_tien
    FBH_PKT_PQU_HD(b_ma_dviN,b_nsdN,r_lp.ten,r_lp.rru,b_ma_sp,b_nt_tien,b_tien,' ',dk_ma,dk_ten,dk_tien,dk_ptG,b_loi);
    if b_loi is not null then return; end if;
end loop;
b_loi:='';
exception when others then if b_loi is null then raise PROGRAM_ERROR; else null; end if;
end;