Début 20250425 05215097
PASSER PROLOGUE
20250425 05215097	Début gproc_NewConnecte
20250425 05215140	Fin gproc_NewConnecte
gproc_Chargement_ParametresGeneraux 20250425 05215140
20250425 05215140	Début gproc_NewConnecte
20250425 05215180	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
20250425 05215197

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