Début 20250314 03555753
PASSER PROLOGUE
20250314 03555769	Début gproc_NewConnecte
20250314 03555809	Fin gproc_NewConnecte
gproc_Chargement_ParametresGeneraux 20250314 03555809
20250314 03555809	Début gproc_NewConnecte
20250314 03555851	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
20250314 03555876

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