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 41 42 43 44 45
| ALTER PROCEDURE INSERT_ETAT_DEMANDE (NOM_USER VARCHAR(30),
COL_DOCU VARCHAR(250),
COL_NBPAGE INTEGER,
VAL_RANDO VARCHAR(15),
NUM_ETAT INTEGER,
VDELAIS_POURLE INTEGER,
VCONTACTTEL CHAR(30),
VAVERTIR_EMAIL CHAR(100),
NB_COPIE INTEGER,
IMPREL CHAR(1),
AGRAFE CHAR(1),
COMMENTAIRE VARCHAR(250),
COMMENTAIRE_ICONE CHAR(1),
COULEUR CHAR(1),
COMPTEIMPUT CHAR(10),
VMEDIA_DOC CHAR(30),
VCOUV_DEB CHAR(1),
VCOUV_FIN CHAR(1),
VMEDIA_COUV_DEB CHAR(30),
VMEDIA_COUV_FIN CHAR(30),
VINTERCAL CHAR(1),
VINTERCAL_COMMENT CHAR(100),
VMEDIA_INTERCAL CHAR(30),
VFINITION CHAR(30),
TARIF FLOAT,
STATUT CHAR(1))
RETURNS (ID_NEW_ETAT INTEGER)
AS
DECLARE VARIABLE VDATE_NOW DATE;
DECLARE VARIABLE VDATE_POURLE DATE;
BEGIN
VDATE_NOW = 'NOW';
VDATE_POURLE = VDATE_NOW + :VDELAIS_POURLE;
ID_NEW_ETAT = GEN_ID(GEN_ID_ETAT,0);
INSERT INTO ETATS(NOM_DOC,NB_PAGE)VALUES(:COL_DOCU,:COL_NBPAGE);
INSERT INTO ETAT_USER(ID_ETAT,ID_USER)VALUES(:ID_NEW_ETAT,(SELECT ID_USER FROM UTILISATEURS WHERE UPPER(LOGIN) = UPPER(:NOM_USER)));
INSERT INTO DEMANDES(ID_ETAT,ID_USER,CONTACTTEL,AVERTIR_EMAIL,DATE_POURLE,NB_COPIE,RECVER,AGRAPHAGE,COMMENT,COMMENT_ICO,COULEUR,COMPTEIMPUTATION,MEDIA_DOCUMENT,COUV_DEB,COUV_FIN,MEDIA_COUV_DEB,MEDIA_COUV_FIN,INTERCAL,INTERCAL_COMMENT,MEDIA_INTERCAL,FINITION,STATUT,TARIF)VALUES(:ID_NEW_ETAT,(SELECT ID_USER FROM UTILISATEURS WHERE UPPER(LOGIN) = UPPER(:NOM_USER)),:VCONTACTTEL,:VAVERTIR_EMAIL,:VDATE_POURLE,:NB_COPIE,:IMPREL,:AGRAFE,:COMMENTAIRE,:COMMENTAIRE_ICONE,:COULEUR,:COMPTEIMPUT,:VMEDIA_DOC,:VCOUV_DEB,:VCOUV_FIN,:VMEDIA_COUV_DEB,:VMEDIA_COUV_FIN,:VINTERCAL,:VINTERCAL_COMMENT,:VMEDIA_INTERCAL,:VFINITION,:STATUT,:TARIF);
END |
Partager