Hello Wadi,
Saturday, December 12, 2009, 8:12:31 AM, you wrote:
Pak minta bantuan nya lagi, salah di mana ya script ini
saya udah coba 2 cara hasilnya tetap masih salah
vdblink_dari varchar2(30);
vdblink_ke varchar2(30);
vsql varchar2(3000);
vsql1 varchar2(3000);
select
count(*)
into
vcount
from kantor a
where
trim(a.cd_comp) = trim(:new.cd_comp) ;
if vcount > 0
then
select
trim(a.office_dlink)
into
vdblink_dari
from kantor a
where
trim(a.cd_comp) = trim(:new.cd_comp) ;
Saya coba cara ini juga error
vsql := 'insert_stock_keluar@:1
(
vcd_comp => trim(:new.cd_comp),
vnomor => trim(:new.nomor),
vcd_barang => trim(:new.cd_barang),
vqty => nvl(:new.qty,0)
)';
execute immediate vsql using vdblink_dari;
yang ini juga error
EXECUTE IMMEDIATE 'CALL insert_stock_keluar@'||vdblink_dari||'
(
vcd_comp => trim(:new.cd_comp),
vnomor => trim(:new.nomor),
vcd_barang => trim(:new.cd_barang),
vqty => nvl(:new.qty,0)
)' ;
>>> cd_cabang nm_cabang nm_dblink
>>> --------- --------- ----------
>>> BJM Bjmasin CONNBJM
>>> SBY Surabaya CONNSBY
>>
>>> proc insert_mutasi
>>> (
>>> vkantor_new data.kantor_new%type,
>>> ) as
>>> vcount smallint;
>>> vsql varchar2(3000);
>>> vdblink tb_cabang.nm_dblink%type;
>>> begin
>>> select nm_dblink
>>> into vdblink
>>> from tb_cabang
>>> where cd_cabang = vkantor_new;
>>
>>> vsql := 'insert into data@:1' a ... ';
>>> ...
>>> execute immediate vsql using vdblink;
--
Best regards,
fansul
mailto:[email protected]
__________________________________________________
Apakah Anda Yahoo!?
Lelah menerima spam? Surat Yahoo! memiliki perlindungan terbaik terhadap spam
http://id.mail.yahoo.com
