1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| ProcStock='SET TERM ^ ; '#13#10+
'CREATE PROCEDURE ADD_PERSONNE '#13#10+
' (ID integer, NOM VARCHAR(30), PRE VARCHAR(100), DATN date,SEX char) '#13#10+
'RETURNS '+
' ( ID_PERS integer) '#13#10+
'AS '#13#10+
'BEGIN '#13#10+
' select ID_PERSONNE from PERSONNE where PER_NOM starting with :NOM and '#13#10+
' PER_PRENOM starting with :PRE and PER_DATNAISS=:DATN into :ID_PERS; '#13#10+
' if (ID_PERS is null) then '#13#10+
' begin '#13#10+
' ID_PERS= GEN_ID(JGEN,1); '#13#10+
' INSERT INTO PERSONNE (ID_PERSONNE, PER_NOM, PER_PRENOM,PER_GENRE, PER_TYPE, PER_DATNAISS, ID_ORTHALIS) '+
' values (:ID_PERS, :NOM, :PRE, :SEX, 1, :DATN,:ID); '#13#10+
' end '#13#10+
' INSERT INTO LNK_PERSONNE_TIERCEPARTIE (ID_PERSONNE, TIERCE_PARTIE,REF_PARTIE) '+
' VALUES (:ID_PERS, ''PLANMECA'', :ID); '#13#10+
' SUSPEND; '#13#10+
'END ^'#13#10+
'SET TERM ; ^ '; |
Partager