Début 20250314 03562072
PASSER PROLOGUE
20250314 03562072	Début gproc_NewConnecte
20250314 03562114	Fin gproc_NewConnecte
gproc_Chargement_ParametresGeneraux 20250314 03562114
20250314 03562114	Début gproc_NewConnecte
20250314 03562154	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 03562171

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