1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
SET TERM !;
EXECUTE BLOCK as
declare CAS Integer;
declare DAT Date;
declare FAC Varchar(30);
declare ORD Integer;
declare ANA Varchar(20);
declare MAT Varchar(20);
declare PRO Varchar(20);
declare DES Varchar(255);
declare QTE Numeric(14,5);
declare MHT Numeric(14,2);
declare COI Integer;
declare PER Integer;
declare DAP Date;
declare CHA Varchar(255);
declare IMA Varchar(35);
declare MON Numeric(14,2);
declare OBS Varchar(255);
declare PUA Numeric(14,5);
declare COIR Integer;
declare DESF Varchar(200);
declare mTB Numeric(14,5);
declare TAU Numeric(14,2);
declare TVA Numeric(14,5);
declare TRE Numeric(14,2);
declare REM Numeric(14,5);
declare UTI Varchar(50);
declare COID Integer;
declare COIF Integer;
begin
for execute statement 'select CAS,DAT,FAC,ORD,ANA,MAT,PRO,DES,QTE,MHT,COI,PER,DAP,CHA,IMA,MON,OBs,PUA,COIR,DESF,mTB,TAU,TVA,TRE,REM,UTI from ach '
on external DATa source 'D:\bd\achat.FDB' as USER 'SYSDBA' password 'masterkey'
into :CAS,:DAT,:FAC,:ORD,:ANA,:MAT,:PRO,:DES,:QTE,:MHT,:COI,:PER,:DAP,:CHA,:IMA,:MON,:OBs,:PUA,:COIR,:DESF,:mTB,:TAU,:TVA,:TRe,:REM,:UtI
do
insert into ACH(CAS,DAT,FAC,ORD,ANA,MAT,PRO,DES,QTE,MHT,COI,PER,DAP,CHA,IMA,MON,OBs,PUA,COIR,DESF,mTB,TAU,TVA,TRE,REM,UTI)
values(:CAS,:DAT,:FAC,:ORD,:ANA,:MAT,:PRO,:DES,:QTE,:MHT,:COI,:PER,:DAP,:CHA,:IMA,:MON,:OBs,:PUA,:COIR,:DESF,:mTB,:TAU,:TVA,:TRe,:REM,:UtI);
end!
SET TERM ; ! |
Partager