[3615 MyLife] SGBD : Maman j'ai peur !

Recherche :

Mot : Pseudo : Filtrer
Page : 1 2 Page Suivante Page Précédente Bas de page
Auteur	Sujet : [3615 MyLife] SGBD : Maman j'ai peur !

Arjuna

Aircraft Ident.: F-MBSD

T'ain, je suis en train de bosser sur une application mono-client, qui doit passer multi-client.

Donc la moitiée des tables est impactée, et forcément, les PS qui vont avec le sont aussi.
Jusque là, rien de bien dramatique, peanuts, finger in the noise, no problemo.

Ensuite, je commence à me pencher sur l'analyse du truc (évidement, c'était un ERP dont la société à coulé sans laisser de doc, donc on n'a rien du tout, faut tout comprendre à partir des sources des PS...)

Et là, je tombe sur LE truc, je savais même pas que c'était possible d'écrire un truc pareil :lol: :sweat:

Je laisse tel quel, avec l'indentation et tout...

Code :

CREATE PROCEDURE icz_PVreception_GroupDetail
(
@userId int,
@OrgId int,
@leaseScheduleId int,
@vendeurId int,
@numPeriodePV int,
@param1 int=0,
@param2 int=0,
@param3 int=0,
@param4 int=0,
@param5 int=0,
@param6 int=0,
@param7 int=0,
@param8 int=0,
@param9 int=0,
@param10 int=0,
@param11 int=0,
@param12 int=0,
@param13 int=0,
@param14 int=0,
@param15 int=0,
@param16 int=0
)
AS
-- SCR 22/7/04 recuperation custref1 et 2 et ref1 dans asset au lieu de MO
declare @cmd2 varchar(3000)
select @cmd2 = 'select zfa.factureId, a.assetId, a.BaseUnitAssetId, '
if @param1 = 1 select @cmd2 = @cmd2 + ' a.OrderNumber, ' else select @cmd2 = @cmd2 + ' 0 as OrderNumber, '
if @param2 = 1 select @cmd2 = @cmd2 + ' a.Description, ' else select @cmd2 = @cmd2 + ' null as Description, '
if @param3 = 1 select @cmd2 = @cmd2 + ' a.CustomerRef, ' else select @cmd2 = @cmd2 + ' null as CustomerRef, '
if @param4 = 1 select @cmd2 = @cmd2 + ' a.CustomerRef2, ' else select @cmd2 = @cmd2 + ' null as CustomerRef2, '
if @param5 = 1 select @cmd2 = @cmd2 + ' a.Reference1, ' else select @cmd2 = @cmd2 + ' null as Reference1, '
if @param6 = 1 select @cmd2 = @cmd2 + ' a.Serialnumber, ' else select @cmd2 = @cmd2 + ' null as Serialnumber, '
if @param7 = 1 select @cmd2 = @cmd2 + ' zf.numero as NumeroFact, ' else select @cmd2 = @cmd2 + ' null as NumeroFact, '
if @param8 = 1 select @cmd2 = @cmd2 + ' a.cost as AssetCost, ' else select @cmd2 = @cmd2 + ' 0 as AssetCost, '
if @param9 = 1
begin
select @cmd2 = @cmd2 + ' prixFacture = case
when zfa.prixFinance is null then zfa.prixFacture
when zfa.prixFinance = 0 then zfa.prixFacture
else zfa.PrixFinance
end, '
end
else
begin
select @cmd2 = @cmd2 + ' 0 as prixFacture, '
end
if @param10 = 1
begin
select @cmd2 = @cmd2 + ' zf.type as typeFact, '
end
else
begin
select @cmd2 = @cmd2 + ' 0 as typeFact, '
end
if @param11 = 1
begin
select @cmd2 = @cmd2 + ' numeroBL = ( select zbl.numeroBL
from zBonLivraison zbl, zAssetBonLivraison zabl
where a.assetid = zabl.assetId
and zabl.BlId = zbl.BlId ), '
end
else
begin
select @cmd2 = @cmd2 + ' null as numeroBL, '
end
if @param12 = 1
begin
select @cmd2 = @cmd2 + ' receivedById = ( select zbl.createdByUserId
from zBonLivraison zbl, zAssetBonLivraison zabl
where a.assetid = zabl.assetId
and zabl.BlId = zbl.BlId ), '
end
else
begin
select @cmd2 = @cmd2 + ' 0 as receivedById, '
end
if @param13 = 1 select @cmd2 = @cmd2 + ' a.locationId as AssetLocId, ' else select @cmd2 = @cmd2 + ' 0 as AssetLocId, '
if @param14 = 1 select @cmd2 = @cmd2 + ' zbrmo.CreatedByID as ReqCreatedById, ' else select @cmd2 = @cmd2 + ' 0 as ReqCreatedById, '
if @param15 = 1 select @cmd2 = @cmd2 + ' ac.AccountId, ' else select @cmd2 = @cmd2 + ' 0 as AccountId, '
if @param16 = 1 select @cmd2 = @cmd2 + ' a.ProductCode, ' else select @cmd2 = @cmd2 + ' null as ProductCode, '
select @cmd2 = @cmd2 + ' a.lineType from Asset a, zFactureAsset zfa, zFactures zf '
-- attention a la virgule c'est different des autres pv.
if @param14 = 1 select @cmd2 = @cmd2 + ' , ZBdReqMasterOrder zbrmo, MasterOrder mo '
if @param15 = 1 select @cmd2 = @cmd2 + ' , assetAccountCharge ac '
select @cmd2 = @cmd2 + ' where a.BaseUnitAssetId = zfa.buAssetId
and a.assetId = zfa.assetId
and zfa.factureId = zf.factureId '
if @param14 = 1
begin
select @cmd2 = @cmd2 + ' and a.OrderNumber *= zbrmo.RequisitionNumber
and a.OrderNumber *= mo.OrderNumber '
end
if @param15 = 1 select @cmd2 = @cmd2 + ' and a.AssetId *= ac.AssetId '
select @cmd2 = @cmd2 + ' and ( a.cost != 0 or a.linetype in (''B'', ''S'') )
and a.orgId = '+ cast(@orgId as varchar(1000)) + '
and zf.leaseScheduleId = '+ cast(@leaseScheduleId as varchar(1000)) +'
and zf.vendeurId = '+ cast(@vendeurId as varchar(1000)) +'
and zf.numPeriodePV = '+ cast(@numPeriodePV as varchar(1000)) +'
and zf.etat = ''PVEMIS''
order by a.BaseUnitAssetId, a.lineType '
exec (@cmd2)
GO

Même pas mal

Publicité

FlorentG

Unité de Masse

Ouch :cry:

Arjuna

Aircraft Ident.: F-MBSD

T'ain pis juste après, y'a la même en pire :ouch:

Heureusement, je passe entre les gouttes, ça se base sur des ID qui ne sont pas impactés par la mise à jour ouuuufff

Code :

CREATE PROCEDURE icz_PVreception_GroupGroup
(
@userId int,
@OrgId int,
@leaseScheduleId int,
@vendeurId int,
@numPeriodePV int,
@param1 int=0,
@param2 int=0,
@param3 int=0,
@param4 int=0,
@param5 int=0,
@param6 int=0,
@param7 int=0,
@param8 int=0,
@param9 int=0,
@param10 int=0,
@param11 int=0,
@param12 int=0,
@param13 int=0,
@param14 int=0,
@param15 int=0,
@param16 int=0
)
AS
-- SCR 22/7/04 recuperation custref1 et 2 et ref1 dans asset au lieu de MO
create table #tmp3
(
factureId int null,
BaseUnitAssetId int null
)
/*
create index temp3FactId on #tmp3(factureId)
create index temp3BUAssetId on #tmp3(BaseUnitAssetId)
*/
insert into #tmp3
select distinct
zfa.factureId,
case a.linetype
when 'B' then a.BaseUnitAssetId
when 'S' then a.BaseUnitAssetId
when 'C' then case a.discoverylink
when 'ADD-NEW' then a.AssetId
else a.BaseUnitAssetId
end
end
from Asset a, zFactureAsset zfa, zFactures zf
where
a.assetId = zfa.assetId
and zfa.factureId = zf.factureId
and a.orgId = @orgId
and zf.leaseScheduleId = @leaseScheduleId
and zf.vendeurId = @vendeurId
and zf.numPeriodePV = @numPeriodePV
and zf.etat = 'PVEMIS'
group by
zfa.factureId,
a.BaseUnitAssetId,
a.lineType,
a.discoverylink,
a.assetId
create table #tmp2
(
factureId int null,
assetId int null,
BaseUnitAssetId int null,
OrderNumber int null,
Description varchar(60) null,
CustomerRef varchar(30) null,
CustomerRef2 varchar(30) null,
Reference1 varchar(30) null,
NumeroFact varchar(50) null,
AssetCostSomme float null,
PrixFactureSomme float null,
typeFact char(1) null,
numeroBL varchar(30) null,
receivedById int null,
AssetLocId int null,
ReqCreatedById int null,
AccountId int null,
SerialNumber varchar(30) null,
ProductCode varchar(25) null
)
/*
create index temp2AssetId on #tmp2(AssetId)
create index temp2BUAssetId on #tmp2(BaseUnitAssetId)
*/
declare @cmd2 varchar(2000)
select @cmd2 = '
insert into #tmp2
select distinct
#tmp3.factureId,
a.assetId,
a.BaseUnitAssetId, '
if @param1 = 1 select @cmd2 = @cmd2 + ' a.OrderNumber, ' else select @cmd2 = @cmd2 + ' 0, '
if @param2 = 1 select @cmd2 = @cmd2 + ' a.Description, ' else select @cmd2 = @cmd2 + ' null, '
if @param3 = 1 select @cmd2 = @cmd2 + ' a.CustomerRef, ' else select @cmd2 = @cmd2 + ' null, '
if @param4 = 1 select @cmd2 = @cmd2 + ' a.CustomerRef2, ' else select @cmd2 = @cmd2 + ' null, '
if @param5 = 1 select @cmd2 = @cmd2 + ' a.Reference1, ' else select @cmd2 = @cmd2 + ' null, '
if @param6 = 1 select @cmd2 = @cmd2 + ' zf.numero as NumeroFact, ' else select @cmd2 = @cmd2 + ' null, '
if @param7 = 1
begin
select @cmd2 = @cmd2 + ' AssetCostSomme = ( select sum(A1.cost)
from asset A1, zFactureAsset zf1
where (A1.BaseUnitAssetId = #tmp3.BaseUnitAssetId or A1.assetId = #tmp3.BaseUnitAssetId)
and zf1.factureId = #tmp3.factureId
and A1.assetId = zf1.assetId ), '
end
else
begin
select @cmd2 = @cmd2 + ' 0, '
end
if @param8 = 1
begin
select @cmd2 = @cmd2 + ' PrixFactureSomme = ( select sum(case
when zfa.prixFinance is null then zfa.prixFacture
when zfa.prixFinance = 0 then zfa.prixFacture
else zfa.PrixFinance
end)
from asset A1, zFactureAsset zfa
where (A1.BaseUnitAssetId = #tmp3.BaseUnitAssetId or A1.assetId = #tmp3.BaseUnitAssetId)
and zfa.factureId = #tmp3.factureId
and A1.assetId = zfa.assetId ), '
end
else
begin
select @cmd2 = @cmd2 + ' 0, '
end
if @param9 = 1 select @cmd2 = @cmd2 + ' zf.type as typeFact, ' else select @cmd2 = @cmd2 + ' null, '
if @param10 = 1
begin
select @cmd2 = @cmd2 + ' numeroBL = ( select zbl.numeroBL
from zBonLivraison zbl, zAssetBonLivraison zabl
where a.assetid = zabl.assetId
and zabl.BlId = zbl.BlId ), '
end
else
begin
select @cmd2 = @cmd2 + ' null, '
end
if @param11 = 1
begin
select @cmd2 = @cmd2 + ' receivedById = (select zbl.createdByUserId
from zBonLivraison zbl, zAssetBonLivraison zabl
where a.assetid = zabl.assetId
and zabl.BlId = zbl.BlId ), '
end
else
begin
select @cmd2 = @cmd2 + ' 0, '
end
if @param12 = 1 select @cmd2 = @cmd2 + ' a.locationId as AssetLocId, ' else select @cmd2 = @cmd2 + ' 0, '
if @param13 = 1
begin
select @cmd2 = @cmd2 + ' ReqCreatedById = ( select zbrmo.CreatedById
from ZBdReqMasterOrder zbrmo
where a.OrderNumber = zbrmo.RequisitionNumber
and mo.OrderNumber = zbrmo.RequisitionNumber ), '
end
else
begin
select @cmd2 = @cmd2 + ' 0, '
end
if @param14 = 1 select @cmd2 = @cmd2 + ' ac.AccountId, ' else select @cmd2 = @cmd2 + ' 0, '
if @param15 = 1 select @cmd2 = @cmd2 + ' a.SerialNumber, ' else select @cmd2 = @cmd2 + ' null, '
if @param16 = 1 select @cmd2 = @cmd2 + ' a.ProductCode ' else select @cmd2 = @cmd2 + ' null, '
select @cmd2 = @cmd2 + ' from Asset a, zFactures zf, '
if @param14 = 1 select @cmd2 = @cmd2 + ' assetAccountCharge ac, '
if @param13 = 1 select @cmd2 = @cmd2 + ' MasterOrder mo, '
select @cmd2 = @cmd2 + ' #tmp3
where zf.factureId = #tmp3.factureId
and a.AssetId = #tmp3.baseUnitassetId '
if @param14 = 1 select @cmd2 = @cmd2 + ' and a.AssetId *= ac.AssetId '
if @param13 = 1 select @cmd2 = @cmd2 + ' and a.OrderNumber *= mo.OrderNumber '
select @cmd2 = @cmd2 + ' order by a.BaseUnitAssetId '
exec (@cmd2)
/*qte = ( select count(*) from #tmp2 ta
where ta.Description = #tmp2.Description
and ta.OrderNumber = #tmp2.OrderNumber ),*/
declare @cmd3 varchar(1000)
select @cmd3 = '
select distinct OrderNumber, Description,
factureId,
count(*) as qte,
AssetCostSomme as AssetPrixUnit,
sum(AssetCostSomme) as AssetSommeTotal,
sum(PrixFactureSomme) as PrixFactureTotal,
CustomerRef,
CustomerRef2,
Reference1,
NumeroFact,
typeFact,
numeroBL,
receivedById,
AssetLocId,
ReqCreatedById,
AccountId,
SerialNumber,
ProductCode
from #tmp2
group by OrderNUmber, Description, factureId, CustomerRef, CustomerRef2, Reference1,
NumeroFact, typeFact, numeroBL, receivedById, AssetLocId, ReqCreatedById,
AccountId, AssetCostSomme, SerialNumber, ProductCode
order by #tmp2.Description '
exec (@cmd3)
GO

Arjuna

Aircraft Ident.: F-MBSD

(vous noterez le jonglage dans des tables temporaires à depuis une requête écrite dynamiquement, rien de tel pour se réveiller le matin... j'ai pris un café y'a 10 minutes, je crois que je vais retourner en prendre un seau )

sircam

I Like Trains

Merde, j'ai perdu le fil de @cmd2 en cours de route, du côté de @param14.

[:alph-one]

Grandiose. Tout simplement grandiose.

---------------
Now Playing: {SYNTAX ERROR AT LINE 1210}

Arjuna

Aircraft Ident.: F-MBSD

Mouarf, j'arrête de recopier le code, plus ça avance et plus c'est pire :sweat:

(juste pour info, j'en suis à la #TMP16, avec un grand test sur les params pour retraîter tout le bordel du haut selon les valeurs des autres #TMPxx :pt1cable: )

Message édité par Arjuna le 09-02-2005 à 12:03:37

nraynaud

lol

et puis les tables temporaires, c'est pas des tables de tapettes.

nraynaud

lol

Arjuna a écrit :

Mouarf, j'arrête de recopier le code, plus ça avance et plus c'est pire :sweat:

va directement à la fin qu'on rigole.

Arjuna

Aircraft Ident.: F-MBSD

Tiens, pis y'en a une qui s'appelle #tmpN, vous allez voir que je vais bientôt avoir un 'create table #tmp' + x + ' (...)'

Beegee

terrible :lol:

Publicité

sircam

I Like Trains

Et ta mission est de rendre ce "code" encore plus obscur ? Parce que ça va pas être facile.

---------------
Now Playing: {SYNTAX ERROR AT LINE 1210}

Profil supprimé

sircam a écrit :

Et ta mission est de rendre ce "code" encore plus obscur ? Parce que ça va pas être facile.

que la force soit avec toi

HelloWorld

Salut tout le monde!

Code :

-- SCR 22/7/04 recuperation custref1 et 2 et ref1 dans asset au lieu de MO

ça pourrait être pire, il pourrait ne pas y avoir de commentaires

---------------
FAQ fclc++ - FAQ C++ - C++ FAQ Lite

sircam

I Like Trains

Je l'avais pas vu. Tout devient tout de suite plus clair

---------------
Now Playing: {SYNTAX ERROR AT LINE 1210}

zeal21

Qu'une chose...............
bonne chance....
tout le forum, tout les programmeurs sont avec toi lol

Arjuna

Aircraft Ident.: F-MBSD

Tiens, c'est joli ça, je scrollais rapidement dans le script, et j'ai cru que mon écran était en train de partir sur le côté (j'ai pu les yeux en face des trous, faut dire que le script fait dans les 100 000 lignes, et j'en suis à la 65 781

Code :

IF (@Line1 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line1)
SELECT @MaxLine = @MaxLine + 1
IF (@Line2 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line2)
SELECT @MaxLine = @MaxLine + 1
IF (@Line3 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line3)
SELECT @MaxLine = @MaxLine + 1
IF (@Line4 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line4)
SELECT @MaxLine = @MaxLine + 1
IF (@Line5 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line5)
SELECT @MaxLine = @MaxLine + 1
IF (@Line6 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line6)
SELECT @MaxLine = @MaxLine + 1
IF (@Line7 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line7)
SELECT @MaxLine = @MaxLine + 1
IF (@Line8 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line8)
SELECT @MaxLine = @MaxLine + 1
IF (@Line9 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line9)
SELECT @MaxLine = @MaxLine + 1
IF (@Line10 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line10)
SELECT @MaxLine = @MaxLine + 1
IF (@Line11 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line11)
SELECT @MaxLine = @MaxLine + 1
IF (@Line12 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line12)
SELECT @MaxLine = @MaxLine + 1
IF (@Line13 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line13)
SELECT @MaxLine = @MaxLine + 1
IF (@Line14 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line14)
SELECT @MaxLine = @MaxLine + 1
IF (@Line15 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line15)
SELECT @MaxLine = @MaxLine + 1
IF (@Line16 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line16)
SELECT @MaxLine = @MaxLine + 1
IF (@Line17 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line17)
SELECT @MaxLine = @MaxLine + 1
IF (@Line18 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line18)
SELECT @MaxLine = @MaxLine + 1
IF (@Line19 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line19)
SELECT @MaxLine = @MaxLine + 1
IF (@Line20 <> NULL)
BEGIN
INSERT INTO CommentLines(SiteID,OwnerID,Type,LineNumber,Text) VALUES(1,@AssetID,'A',@MaxLine,@Line20)
SELECT @MaxLine = @MaxLine + 1
END
END
END
END
END
END
END
END
END
END
END
END
END
END
END
END
END
END
END
END

Arjuna

Aircraft Ident.: F-MBSD

C'est domage, je forum fait retourner à la ligne, mais dans mon éditeur de texte, les imbrications font tellement loin à droite qu'à un moment y'a plus rien si je scrolle pas

sircam

I Like Trains

C'est ce qu'on appelle de la programmation hyper-structurée.

Admirez la série de END en diagonale, de toute beauté :love:

Message édité par sircam le 09-02-2005 à 15:54:14

---------------
Now Playing: {SYNTAX ERROR AT LINE 1210}

FlorentG

Unité de Masse

sircam a écrit :

C'est ce qu'on appelle de la programmation hyper-structurée.

Admirez la série de END en diagonale, de toute beauté :love:

Ouaiiiiis :love: Ca fait un tout zoli escalier !!!!!111oneeleven

sircam

I Like Trains

Si tu scrolles les END de haut en bas, ça donne un effet hypnotique.

---------------
Now Playing: {SYNTAX ERROR AT LINE 1210}

FlorentG

Unité de Masse

C'est de la prog "artistique"

SomeBugsInMe

life suxx

Faudrait rajouter une section "ASCII art" à ce forum pour les posts comme ça :pt1cable:

Message édité par SomeBugsInMe le 09-02-2005 à 16:11:37

sircam

I Like Trains

Bon, ça me démange, je le risque : "quelqu'un veut une crêpe" ?

---------------
Now Playing: {SYNTAX ERROR AT LINE 1210}

FlorentG

Unité de Masse

han

Yonel

Monde de merde !

Le coup des tables temporaires c'est le symptôme classique du mec qui connait pas l'opérateur "UNION" je trouve ça insupportable.

Fred999

Rabat-joie

Superbe

On en a aussi pas mal, avec même des noms de champs banalisés :sweat:

Arjuna

Aircraft Ident.: F-MBSD

Bon, j'y remet ma petite couche

AVANT :

Code :

CREATE PROCEDURE ics_usersListForPerimDroit
@orgId int,
@accId int,
@depId int,
@locId int,
@droitId int,
@tous int=1,
@lResult int output
AS
-- SCR V7.1
/*SCR V7.0.1
userId : id de l'utilisateur pour lequel on doit verifier les contraintes
depid, locid, accid :
id pour lequel on doit verifier la retriction, si null, pas de test
combinaison : (0,1,2,3,4,5,6) 0:cs+ac+dep 1:cs 2:ac 3:dep 4:cs+ac 5:cs+dep 6:ac+dep
on utilise les contrainte sur ca.
isOk : 1 l'utilisateur a verifier toutes les contraintes,
0 une contrainte n'est pas satisfaite
*/
DECLARE @combinaison int
DECLARE @tstAcc smallint
DECLARE @tstDep smallint
DECLARE @tstLoc smallint
select @combinaison=perimetreCombinaison
from zperimetreCombinaison
where orgId=@orgId
if @combinaison=7 select @tstAcc=0, @tstDep=0, @tstLoc=0
if @combinaison=0 select @tstAcc=1, @tstDep=1, @tstLoc=1
if @combinaison=1 select @tstAcc=0, @tstDep=0, @tstLoc=1
if @combinaison=2 select @tstAcc=0, @tstDep=1, @tstLoc=0
if @combinaison=3 select @tstAcc=1, @tstDep=0, @tstLoc=0
if @combinaison=4 select @tstAcc=1, @tstDep=0, @tstLoc=1
if @combinaison=5 select @tstAcc=0, @tstDep=1, @tstLoc=1
if @combinaison=6 select @tstAcc=1, @tstDep=1, @tstLoc=0
/** permet de ne pas tester dans le select le (@tstLoc=0) OR (@locId=0) mais juste le 1er**/
if (@locId is null) or (@locId=0) select @locId=0, @tstLoc=0
if (@depId is null) or (@depId=0) select @depId=0, @tstDep=0
if (@accId is null) or (@accId=0) select @accId=0, @tstAcc=0
if @combinaison = 7 and @droitid<>0
begin
/***************** pas de perimetre *********/
select distinct u.userId, emp.employeeid, emp.lastname, emp.firstname, u.login as LoginName,
emp.emailaddress
from users u, employee emp, zUserProfilePerimetre zupp, zprofileGroupeDroit zpgd, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and zupp.userId = u.userId
and zupp.profileId = zpgd.profileId
and zpgd.groupeDroitId = @droitId
and u.employeeid *= emp.employeeid
and u.active = 'A'
-- and emp.orgid = @orgid
order by emp.lastname
end
else
begin
if @droitid=0
begin
if @tous = 1
begin
-- Liste de tous les utilisateurs
select distinct u.userId, emp.employeeid, emp.lastname, emp.firstname, u.login as LoginName,
emp.emailaddress
from users u, ZVue_UserProfilePerimRegion zupp, employee emp, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and u.userId = zupp.userId
and ( (locId=@locId) or (@tstLoc=0) or (locId=0) )
and ( (accId=@accId) or (@tstAcc=0) or (accId=0) )
and ( (depId=@depId) or (@tstDep=0) or (depid=0) )
and u.employeeid *= emp.employeeid
and u.active = 'A'
-- and emp.orgid = @orgid
order by emp.lastname
end
else
begin
-- Liste des utilisateurs qu'en fonction du COUPLE
select distinct u.userId, emp.employeeid, emp.lastname, emp.firstname, u.login as LoginName,
emp.emailaddress
from users u, ZVue_UserProfilePerimRegion zupp, employee emp, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and u.userId=zupp.userId
and ( (locId=@locId) or (@tstLoc=0) )
and ( (accId=@accId) or (@tstAcc=0) )
and ( (depId=@depId) or (@tstDep=0) )
and u.employeeid *= emp.employeeid
and u.active = 'A'
-- and emp.orgid = @orgid
order by emp.lastname
end
end
else
begin
if @tous = 1
begin
-- Liste de tous les utilisateurs
select distinct u.userId, emp.employeeid, emp.lastname, emp.firstname, u.login as LoginName,
emp.emailaddress
from users u, ZVue_UserProfilePerimRegion zupp, zprofileGroupeDroit zpgd, employee emp, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and u.userId = zupp.userId
and zupp.profileId = zpgd.profileId
and zpgd.GroupedroitId = @droitId
and ( (locId=@locId) or (@tstLoc=0) or (locId=0) )
and ( (accId=@accId) or (@tstAcc=0) or (accId=0) )
and ( (depId=@depId) or (@tstDep=0) or (depid=0) )
and u.employeeid *= emp.employeeid
and u.active = 'A'
-- and emp.orgid = @orgid
order by emp.lastname
end
else
begin
-- Liste des utilisateurs qu'en fonction du COUPLE et du DROIT
select distinct u.userId, emp.employeeid, emp.lastname, emp.firstname, u.login as LoginName,
emp.emailaddress
from users u, ZVue_UserProfilePerimRegion zupp, zprofileGroupeDroit zpgd, employee emp, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and u.userId = zupp.userId
and zupp.profileId=zpgd.profileId
and zpgd.GroupedroitId = @droitId
and ( (locId=@locId) or (@tstLoc=0) )
and ( (accId=@accId) or (@tstAcc=0) )
and ( (depId=@depId) or (@tstDep=0) )
and u.employeeid *= emp.employeeid
and u.active = 'A'
-- and emp.orgid = @orgid
order by emp.lastname
end
end
end
select @lResult = @@rowcount
GO

APRES :

Code :

CREATE PROCEDURE ics_usersListForPerimDroit
@orgId int,
@accId int,
@depId int,
@locId int,
@droitId int,
@tous int=1,
@lResult int output
AS
-- SCR V7.1
/*SCR V7.0.1
userId : id de l'utilisateur pour lequel on doit verifier les contraintes
depid, locid, accid :
id pour lequel on doit verifier la retriction, si null, pas de test
combinaison : (0,1,2,3,4,5,6) 0:cs+ac+dep 1:cs 2:ac 3:dep 4:cs+ac 5:cs+dep 6:ac+dep
on utilise les contrainte sur ca.
isOk : 1 l'utilisateur a verifier toutes les contraintes,
0 une contrainte n'est pas satisfaite
*/
-- SD : 22/02/2005
-- Maintenant, si cette procédure reçoit @orgid = -1 alors on doit récupérer les comptes dans toutes les organizations
-- SD : 22/02/2005
-- Crétation d'une table temporaire qui va recevoir tous les userid correspondants aux critères pour chaque organization
create table #tmpU
(
userid int
)
DECLARE cur_org CURSOR FOR
select orgid
from organization
where (orgid = @orgid or @orgid = -1)
and active = 'A'
and type = 'C'
OPEN cur_org
FETCH NEXT FROM cur_org
INTO @orgid
WHILE @@FETCH_STATUS = 0
BEGIN
DECLARE @combinaison int
DECLARE @tstAcc smallint
DECLARE @tstDep smallint
DECLARE @tstLoc smallint
select @combinaison=perimetreCombinaison
from zperimetreCombinaison
where orgId=@orgId
if @combinaison=7 select @tstAcc=0, @tstDep=0, @tstLoc=0
if @combinaison=0 select @tstAcc=1, @tstDep=1, @tstLoc=1
if @combinaison=1 select @tstAcc=0, @tstDep=0, @tstLoc=1
if @combinaison=2 select @tstAcc=0, @tstDep=1, @tstLoc=0
if @combinaison=3 select @tstAcc=1, @tstDep=0, @tstLoc=0
if @combinaison=4 select @tstAcc=1, @tstDep=0, @tstLoc=1
if @combinaison=5 select @tstAcc=0, @tstDep=1, @tstLoc=1
if @combinaison=6 select @tstAcc=1, @tstDep=1, @tstLoc=0
/** permet de ne pas tester dans le select le (@tstLoc=0) OR (@locId=0) mais juste le 1er**/
if (@locId is null) or (@locId=0) select @locId=0, @tstLoc=0
if (@depId is null) or (@depId=0) select @depId=0, @tstDep=0
if (@accId is null) or (@accId=0) select @accId=0, @tstAcc=0
if @combinaison = 7 and @droitid<>0
begin
/***************** pas de perimetre *********/
insert into #tmpU
select u.userid
from zprofileGroupeDroit zpgd, zUserProfilePerimetre zupp, users u, userorg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and u.active = 'A'
and zupp.userid = u.userid
and zupp.userId = u.userId
and zpgd.profileId = zupp.profileId
and zpgd.groupeDroitId = @droitId
/* select distinct u.userId, emp.employeeid, emp.lastname, emp.firstname, u.login as LoginName, emp.emailaddress
from users u, employee emp, zUserProfilePerimetre zupp, zprofileGroupeDroit zpgd, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and zupp.userId = u.userId
and zupp.profileId = zpgd.profileId
and zpgd.groupeDroitId = @droitId
and u.employeeid *= emp.employeeid
and u.active = 'A'
order by emp.lastname */
end
else
begin
if @droitid=0
begin
if @tous = 1
begin
-- Liste de tous les utilisateurs
insert into #tmpU
select u.userid
from ZVue_UserProfilePerimRegion zupp, users u, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and u.active = 'A'
and zupp.userid = u.userid
and ((zupp.locId = @locId) or (@tstLoc = 0) or (zupp.locId=0))
and ((zupp.accId = @accId) or (@tstAcc = 0) or (zupp.accId=0))
and ((zupp.depId = @depId) or (@tstDep = 0) or (zupp.depid=0))
/* select distinct u.userId, emp.employeeid, emp.lastname, emp.firstname, u.login as LoginName, emp.emailaddress
from users u, ZVue_UserProfilePerimRegion zupp, employee emp, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and u.userId = zupp.userId
and ( (locId=@locId) or (@tstLoc=0) or (locId=0) )
and ( (accId=@accId) or (@tstAcc=0) or (accId=0) )
and ( (depId=@depId) or (@tstDep=0) or (depid=0) )
and u.employeeid *= emp.employeeid
and u.active = 'A'
order by emp.lastname */
end
else
begin
-- Liste des utilisateurs qu'en fonction du COUPLE
insert into #tmpU
select u.userid
from ZVue_UserProfilePerimRegion zupp, users u, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and u.active = 'A'
and zupp.userId = u.userId
and ((zupp.locId = @locId) or (@tstLoc = 0))
and ((zupp.accId = @accId) or (@tstAcc = 0))
and ((zupp.depId = @depId) or (@tstDep = 0))
/* select distinct u.userId, emp.employeeid, emp.lastname, emp.firstname, u.login as LoginName, emp.emailaddress
from users u, ZVue_UserProfilePerimRegion zupp, employee emp, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and u.userId=zupp.userId
and ( (locId=@locId) or (@tstLoc=0) )
and ( (accId=@accId) or (@tstAcc=0) )
and ( (depId=@depId) or (@tstDep=0) )
and u.employeeid *= emp.employeeid
and u.active = 'A'
order by emp.lastname */
end
end
else
begin
if @tous = 1
begin
-- Liste de tous les utilisateurs
insert into #tmpU
select u.userid
from zprofileGroupeDroit zpgd, ZVue_UserProfilePerimRegion zupp, users u, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and u.active = 'A'
and zupp.userId = u.userId
and ((zupp.locId = @locId) or (@tstLoc = 0) or (zupp.locId = 0))
and ((zupp.accId = @accId) or (@tstAcc = 0) or (zupp.accId = 0))
and ((zupp.depId = @depId) or (@tstDep = 0) or (zupp.depid = 0))
and zpgd.profileId = zupp.profileId
and zpgd.GroupedroitId = @droitId
/* select distinct u.userId, emp.employeeid, emp.lastname, emp.firstname, u.login as LoginName, emp.emailaddress
from users u, ZVue_UserProfilePerimRegion zupp, zprofileGroupeDroit zpgd, employee emp, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and u.userId = zupp.userId
and zupp.profileId = zpgd.profileId
and zpgd.GroupedroitId = @droitId
and ( (locId=@locId) or (@tstLoc=0) or (locId=0) )
and ( (accId=@accId) or (@tstAcc=0) or (accId=0) )
and ( (depId=@depId) or (@tstDep=0) or (depid=0) )
and u.employeeid *= emp.employeeid
and u.active = 'A'
order by emp.lastname */
end
else
begin
-- Liste des utilisateurs qu'en fonction du COUPLE et du DROIT
insert into #tmpU
select u.userid
from zprofileGroupeDroit zpgd, ZVue_UserProfilePerimRegion zupp, users u, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and u.active = 'A'
and zupp.userId = u.userId
and ((zupp.locId = @locId) or (@tstLoc = 0))
and ((zupp.accId = @accId) or (@tstAcc = 0))
and ((zupp.depId = @depId) or (@tstDep = 0))
and zpgd.profileId = zupp.profileId
and zpgd.GroupedroitId = @droitId
/* select distinct u.userId, emp.employeeid, emp.lastname, emp.firstname, u.login as LoginName, emp.emailaddress
from users u, ZVue_UserProfilePerimRegion zupp, zprofileGroupeDroit zpgd, employee emp, UserOrg uo
where uo.orgid = @orgid
and u.userid = uo.userid
and u.userId = zupp.userId
and zupp.profileId=zpgd.profileId
and zpgd.GroupedroitId = @droitId
and ( (locId=@locId) or (@tstLoc=0) )
and ( (accId=@accId) or (@tstAcc=0) )
and ( (depId=@depId) or (@tstDep=0) )
and u.employeeid *= emp.employeeid
and u.active = 'A'
order by emp.lastname */
end
end
end
FETCH NEXT FROM cur_org
INTO @orgid
END
CLOSE authors_cursor
DEALLOCATE authors_cursor
select distinct u.userId, emp.employeeid, emp.lastname, emp.firstname, u.login as LoginName, emp.emailaddress
from employee emp, users, #tmpU
where users.userid = u.userid
and emp.employeeid =* u.empployeeid
select @lResult = @@rowcount
GO

Si avec ça ça marche encore, bah je peux aller me faire moine

Message édité par Arjuna le 22-02-2005 à 16:29:23

kalex

[:mlc]
Et ça tournait (tourne ?) sur quoi et comment ce turc ? Le reste de l'appli est comment ?

Si t'en as encore, n'hésite pas, y a une forme de génie là dedans !

Bon courage.

Arjuna

Aircraft Ident.: F-MBSD

Bah... La procédure marchait plus (quelques bugs à la con, dont un très très con : cette PS est appelée par une autre, qui utilise déjà une table temporaire du même nom et avec une structure différente )

Maintenant c'est tout réparré, et ça marche

Alors, les détails techniques :
- OS : Windows NT 4.0 Server
- SGBD : SQL Server 2000
- Server d'appli : IIS 4.0

Il s'agit d'une appli dont la structure est heureusement plutôt bonne (pas ce qu'il y a de mieu niveau performances, mais pour la maintenance, y'a pas photo).

Les PS de la SGBD regroupent toutes les requêtes dans la base (du coup y'en a plus de 200 )
Des DLL écrites en VB6 contiennent toute "l'intelligence" de l'application. Ce sont uniquement elles qui sont authorisées à se connecter à la base de données.
Des pages ASP ne font qu'appel aux objets VB6 afin de récupérer les information et les mettre en forme.

Heureusement qu'il y a cette architecture, parceque sinon, c'est clair que ça ferait mal

Moktar1er

No one replies...

tu bosses en entreprise?
tu balances des sources comme ça?

nraynaud

lol

IIS ça fait serveur d'appli aussi ????

---------------
trainoo.com, c'est fini

Arjuna

Aircraft Ident.: F-MBSD

moktar1er >
1/ bah oui [:spamafote]
2/ bah oui

Y'a rien de secret défense là-dedans...

nraynaud > bah oui
Tout comme Apache, un serveur d'appli, c'est ni plus ni moins qu'un environnement applicatif capable d'héberger des applications. C'est les publicités made in Sun et Microsoft qui déforment le sens de tous les mots. Site Server et Commerce Server, présentés comme des serveurs d'application ne sont ni plus ni moins que des add-on de IIS et autre modules de Windows par exemple, mais il n'y a aucune modification particulière à l'environnement (mise à part quelques objets métiers pré-installés en plus)

Message édité par Arjuna le 23-02-2005 à 10:17:54

nraynaud

lol

ah ? ok.

pour moi un serveur d'appli ça gère les objets métiers et ça leur apporte des services : transactions, persistance, indépendance par rapport au matériel (pour la migration dans lae systèmes distribués par ex.) et ça offre un point d'accès unique à ce tiers pour la gestion.

---------------
trainoo.com, c'est fini

Moktar1er

No one replies...

Arjuna a écrit :

moktar1er >
1/ bah oui [:spamafote]
2/ bah oui

Ce n'est pas une histoire de "secret défense"... Je me demande juste si ça ne peut pas être un motif de licenciement que de dévoiler publiquement des choses "internes" à l'entreprise c'est tout [:spamafote]

Arjuna

Aircraft Ident.: F-MBSD

nraynaud a écrit :

Bah c'est le cas d'un serveur Web :
-> Un site Web, grâve à IIS ou Apache, je peux le changer de serveur sans problème (bon, avec IIS on est cantoné aux OS Microsoft, mais bon, ça tourne aussi bien sur un NT4 qu'un 2K ou 2K3 voir même un XP).
-> L'environnement de script propose des objets plus ou moins métier, je veux dire dédiés à ce type d'application : sessions, cookies, etc.
-> Les environnements de script PHP ou ASP sont parfaitement capable de gérer les exceptions sans "planter", et donc gérer ses propres transactions, ainsi qu'utiliser des objets utilisant des transactions eux-même (SGBD, etc.)

Bref, c'est des serveurs d'application "light" si tu veux, mais ça reste des serveurs d'application

Arjuna

Aircraft Ident.: F-MBSD

Moktar1er a écrit :

Ca peut en être une, mais uniquement dans le cas où :
1/ déjà, faudrait que vous sâchiez chez qui je suis, je suis plus chez GE
2/ ensuite, il faut que le code rendu public contienne des informations sensibles (mots de passe, données internes, algorythme vraiment complexe, etc.)

Donc dans mon cas, c'est comme si je poste sur un forum une main d'une personne que j'ai pris en photo en disant que la personne était vraiment très conne et tout ce qu'on veut.
Si la main n'est pas spécialement reconnaissable, alors même si la personne se reconnaît, elle ne pourra jamais rien dire devant un tribunal, car il n'y a pas de substance à pladoyé.
Par contre, évidement, si je poste l'intégralité du code ici, ou le contenu de tables qui contiennent des informations sensibles (contrats, etc.) c'est même pas un licenciement que je risque, mais carrément de très gros ennuis juridiques passibles de prision. [:spamafote]

Bref, la lois est bien faite, tant qu'on reste dans le domaine de "l'échantillon", qui ne peut en aucun cas être source de préjudice, on ne peut pas poursuivre une personne. Après, ça c'est le droit français, je sais pas ce que ça donne à l'étranger.
Sinon, en plus, les extraits de code que j'ai posté, c'est pas seulement pour râler, c'est aussi pour montrer à ceux qui se lance dans le PL/SQL / T-SQL ce qu'il ne faut surtout pas faire. C'est donc à but pédagogique (avec des lois assouplies dans ce cas)

Message édité par Arjuna le 23-02-2005 à 10:52:28

Arjuna

Aircraft Ident.: F-MBSD

Que c'est beau :love:

On en mangerait !

Code :

dim void
call obContrat.getPVEnteteDetail(i, void, void, void, void, void, void, void, void, void, void, void, void, void, void, void, void, void, minRights)

Tout ça pour récupérer 1 paramètre :bounce:

ToxicAvenger

j'aime le "dim void"

Arjuna

Aircraft Ident.: F-MBSD

bah oui, void n'existe pas en VB

HelloWorld

Salut tout le monde!

Et ne rien mettre ça marche pas ?

Code :

call obContrat.getPVEnteteDetail(i,,,,,,,,,,,,,,,,,, minRights)

---------------
FAQ fclc++ - FAQ C++ - C++ FAQ Lite

Publicité

Page : 1 2

Page Suivante

Page Précédente

Haut de page

FORUM HardWare.fr

Programmation

SQL/NoSQL

[3615 MyLife] SGBD : Maman j'ai peur !

Sujets relatifs
[Java][JDBC]Quelle SGBD/R open source utiliser ?	Mec buté et modélisation SGBD
Creation d'une API sgbd demande conseil.SQL Server	Creation d'une API sgbd demande conseil.
[PHP 5] Nouveau Projet - Quel SGBD utiliser ?	[SGBD] Tous sur MDAC (ODBC et OLE DB)
Conseil pour une SGBD	[Tous SGBD] Souci sur MPD (football et femmes nues inside :love:)
[SGBD] Stats Oracle : Comment ça marche ? Que faire ?	Cherche Bon site qui explique SGBD/SQL ainsi que les requetes
Plus de sujets relatifs à : [3615 MyLife] SGBD : Maman j'ai peur !

Page générée en 0.281 secondes