Début 20250113 15235338
PASSER PROLOGUE
20250113 15235353	Début gproc_NewConnecte
20250113 15235430	Fin gproc_NewConnecte
gproc_Chargement_ParametresGeneraux 20250113 15235430
20250113 15235430	Début gproc_NewConnecte
20250113 15235467	Fin gproc_NewConnecte
SELECT   a.hacaid AS nidCarArt,
hacali AS sCatLib,
hacaor AS nCatOrd,
hacaim AS sCatPho,
a.DCrt AS nDatecrea,
a.Hcrt AS nHeureCrea,
a.Pcrt AS sUtilCrea,
a.PgCrt AS sProgCrea,
a.DMaj AS nDateMaj,
a.HMAJ AS nHeureMaj,
a.PMAj AS sUtilMaj,
a.PgMAj AS sProgMaj

FROM chdev.harcat a

WHERE 1=1 
ORDER BY hacali
20250113 15235494

gproc_GET_LST_Fournisseurs
SELECT DISTINCT
T.TGID AS sCodeFourni, 
Ent.ENRSOC AS sNomFourni,
VALUE(LO.enlogo,'') AS sLogoFourn,
Etb.ETSIRN AS sCodeSiren, 
T.TGTYPT,
T.ETID, 
Etb.TYETID, 
TE.TYETLB, 
Etb.ETSIRT, 
Etb.ETDCOM, 
Etb.AdId, 
A.ADLIG1, 
A.ADCPST, 
A.ADVILL
FROM chdev.titier t
LEFT JOIN chdev.tietb Etb on Etb.etid = T.etid 
LEFT JOIN chdev.tiadr A on A.adid = Etb.adid
LEFT JOIN chdev.tientr Ent on Ent.EnId = Etb.EnId
LEFT JOIN chdev.tityet TE on TE.tyetid = Etb.Tyetid 
 INNER JOIN  chdev.tienlo LO on lo.enid = etb.EnId 
 INNER JOIN  chdev.hartfo artfou ON artfou.tgid=t.tgid
 
WHERE Etb.TYETID=1 ORDER BY Ent.ENRSOC