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 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117
| SET TERM ^ ;
CREATE OR ALTER PROCEDURE PST_RAPPORT_BL
returns (
adrliv1 varchar(50),
adrliv2 varchar(50),
adrliv3 varchar(50),
villeliv varchar(40),
cpliv varchar(12),
paysliv varchar(40),
nomclient varchar(50),
datebl date,
preparatrice bigint,
valideuse bigint,
pdstotal decimal(10,2),
nbpieces integer,
mtht decimal(10,2),
mttva decimal(10,2),
mtttc decimal(10,2),
numclifour bigint,
refarticle varchar(15),
contremarque varchar(20),
taille varchar(5),
designation varchar(50),
txremise integer,
mtremise decimal(8,2),
qte smallint,
puht decimal(5,2),
prixtotlig decimal(8,2),
pdsmetal decimal(5,2),
refartclient varchar(20),
numerobl bigint,
numcde bigint,
datecreation date,
tphbjo decimal(8,2))
as
begin
/* Procedure Text */
FOR
SELECT ENTBL.ADRLIV1,
ENTBL.ADRLIV2,
ENTBL.ADRLIV3,
ENTBL.VILLELIV,
ENTBL.CPLIV,
ENTBL.PAYSLIV,
ENTBL.NOMCLIENT,
ENTBL.DATEBL,
ENTBL.PREPARATRICE,
ENTBL.VALIDEUSE,
ENTBL.PDSTOTAL,
ENTBL.NBPIECES,
ENTBL.MTHT,
ENTBL.MTTVA,
ENTBL.MTTTC,
ENTBL.NUMCLIFOUR,
LIBL.REFARTICLE,
LIBL.CONTREMARQUE,
LIBL.TAILLE,
LIBL.DESIGNATION,
LIBL.TXREMISE,
LIBL.MTREMISE,
LIBL.QTE,
LIBL.PUHT,
LIBL.PRIXTOTLIG,
LIBL.PDSMETAL,
LIBL.REFARTCLIENT,
LIBL.NUMEROBL,
LIBL.NUMCDE,
LIBL.DATECREATION,
LIBL.TPHBJO
FROM T_LIGNESBL as LIBL
left join T_ENTETEBL as ENTBL on ( LIBL.NUMEROBL = ENTBL.NUMBL)
WHERE LIBL.NUMCDE = 358712
INTO
: ADRLIV1,
: ADRLIV2,
: ADRLIV3,
: VILLELIV,
: CPLIV,
: PAYSLIV,
: NOMCLIENT,
: DATEBL,
: PREPARATRICE,
: VALIDEUSE,
: PDSTOTAL,
: NBPIECES,
: MTHT,
: MTTVA,
: MTTTC,
: NUMCLIFOUR,
: REFARTICLE,
: CONTREMARQUE,
: TAILLE,
: DESIGNATION,
: TXREMISE,
: MTREMISE,
: QTE,
: PUHT,
: PRIXTOTLIG,
: PDSMETAL,
: REFARTCLIENT,
: NUMEROBL,
: NUMCDE,
: DATECREATION,
: TPHBJO
do
suspend;
end
SET TERM ;
GRANT SELECT ON T_LIGNESBL TO PROCEDURE PST_RAPPORT_BL;
GRANT SELECT ON T_ENTETEBL TO PROCEDURE PST_RAPPORT_BL;
GRANT EXECUTE ON PROCEDURE PST_RAPPORT_BL TO SYSDBA; |
Partager