Début 20241217 09260609
PASSER PROLOGUE
20241217 09260626	Début gproc_NewConnecte
20241217 09260665	Fin gproc_NewConnecte
gproc_Chargement_ParametresGeneraux 20241217 09260665
20241217 09260665	Début gproc_NewConnecte
20241217 09260703	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
20241217 09260725

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.ENRSOCgproc_GET_Calendrier
SELECT cbaa,cbmm,cbdatn FROM chdev.calblo
WHERE cbtype = 'REC' 
AND cbdatn >= 20241101 order BY CBAA, CBMM