// Création du document Excel
DocExcel est un xlsDocument// Ajout des feuilles (Déclaration de tous les tableaux que l’on souhaite)
xlsAjouteFeuille(DocExcel, »Chantiers en cours »,1)
xlsAjouteFeuille(DocExcel, »Devis sans AGS »,2)
xlsAjouteFeuille(DocExcel, »Commandes client »,3)
xlsAjouteFeuille(DocExcel, »Factures client »,4)
xlsAjouteFeuille(DocExcel, »Factures SAV »,5)
xlsAjouteFeuille(DocExcel, »Chantiers clos »,6)
xlsAjouteFeuille(DocExcel, »Devis AGS »,7)
xlsAjouteFeuille(DocExcel, »Factures AGS ENTRETIEN »,8)
xlsAjouteFeuille(DocExcel, »Factures AGS SAV »,9)
xlsAjouteFeuille(DocExcel, »Avoirs »,10)
xlsAjouteFeuille(DocExcel, »Interventions »,11)
xlsAjouteFeuille(DocExcel, »Prospects »,12)
xlsAjouteFeuille(DocExcel, »Factures avec échéance »,13)
xlsAjouteFeuille(DocExcel, »Factures avec échéance 30 jours »,14)
xlsAjouteFeuille(DocExcel, »Factures avec échéance 60 jours »,15)
xlsAjouteFeuille(DocExcel, »Acomptes »,16)
xlsAjouteFeuille(DocExcel, »Récap’ horaires »,17)
xlsAjouteFeuille(DocExcel, »Horaires Interventions »,18)
xlsAjouteFeuille(DocExcel, »Horaires Projet »,19)
xlsAjouteFeuille(DocExcel, »Horaires Factures »,20)
xlsAjouteFeuille(DocExcel, »Horaires CWC »,21)
xlsAjouteFeuille(DocExcel, »Valorisation du stock »,22)
xlsAjouteFeuille(DocExcel, »Maladie par salarié »,23)//############################## On se place sur la feuille 1 ##############################
DocExcel..Feuille = 1MaRequête est une Source de Données
MaRequête2 est une Source de Données
MaRequêtebis est une Source de Données
MaRequêtebis2 est une Source de Données
MaRequêtebis3 est une Source de Données
MaRequêtebis4 est une Source de Données
MaRequêtebis5 est une Source de DonnéesSI PAS HExécuteRequêteSQL(MaRequête, »SELECT COD_PROJET.NOM,COD_PROJET.REFERENCE,COD_PROJET.NOM_CHANTIER,CLIENT.ADRESSE1,CLIENT.COP,CLIENT.VILLE,COD_PROJET.DATE_DEBUT,COD_PROJET.DATE_FIN,COD_PROJET.DESCRIPTION,COD_PROJET.IDCOD_PROJET, COD_PROJET.INT_TERMINE, COD_PROJET.INT_AVANT_PROJET,SUM(COD_SYNTHESE_DOC.TOTAL_ACHAT) as Total_Achat_Engagé FROM COD_PROJET,CLIENT,COD_SYNTHESE_DOC WHERE (COD_PROJET.INT_AVANT_PROJET=1 OR (COD_PROJET.INT_TERMINE=0 AND COD_PROJET.INT_AVANT_PROJET=0)) AND COD_PROJET.CODE_TIERS=CLIENT.CODE(+) AND COD_PROJET.IDCOD_PROJET=COD_SYNTHESE_DOC.IDCOD_PROJET (+) group by COD_PROJET.NOM,COD_PROJET.REFERENCE,COD_PROJET.NOM_CHANTIER,CLIENT.ADRESSE1,CLIENT.COP,CLIENT.VILLE,COD_PROJET.DATE_DEBUT,COD_PROJET.DATE_FIN,COD_PROJET.DESCRIPTION,COD_PROJET.IDCOD_PROJET, COD_PROJET.INT_TERMINE, COD_PROJET.INT_AVANT_PROJET « ) ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête)
i est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Nom du dossier »
DocExcel..Ligne[1]..Cellule[2] = « Réf. Chantier »
DocExcel..Ligne[1]..Cellule[3] = « Nom »
DocExcel..Ligne[1]..Cellule[4] = « Adresse »
DocExcel..Ligne[1]..Cellule[5] = « Code postal »
DocExcel..Ligne[1]..Cellule[6] = « Ville »
DocExcel..Ligne[1]..Cellule[7] = « Date début »
DocExcel..Ligne[1]..Cellule[8] = « Date fin »
DocExcel..Ligne[1]..Cellule[9] = « Description »
DocExcel..Ligne[1]..Cellule[10] = « Avancement »
DocExcel..Ligne[1]..Cellule[11] = « Marché »
DocExcel..Ligne[1]..Cellule[12] = « Facturé »
DocExcel..Ligne[1]..Cellule[13] = « Reste à facturer »
DocExcel..Ligne[1]..Cellule[14] = « MO prévue »
DocExcel..Ligne[1]..Cellule[15] = « MO réalisée »
DocExcel..Ligne[1]..Cellule[16] = « Ecart MO »
DocExcel..Ligne[1]..Cellule[17] = « Engagé sur Cde Four. »
DocExcel..Ligne[1]..Cellule[18] = « Engagé sur B.L.F. »TANTQUE PAS HEnDehors(MaRequête)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[i]..Cellule[1] = MaRequête.NOM_CHANTIER
DocExcel..Ligne[i]..Cellule[2] = MaRequête.REFERENCE
DocExcel..Ligne[i]..Cellule[3] = MaRequête.NOM
DocExcel..Ligne[i]..Cellule[4] = MaRequête.ADRESSE1
DocExcel..Ligne[i]..Cellule[5] = MaRequête.COP
DocExcel..Ligne[i]..Cellule[6] = MaRequête.VILLE
DocExcel..Ligne[i]..Cellule[7] = DateVersChaîne(MaRequête.DATE_DEBUT, »JJ/MM/AAAA »)
DocExcel..Ligne[i]..Cellule[8] = DateVersChaîne(MaRequête.DATE_FIN, »JJ/MM/AAAA »)
DocExcel..Ligne[i]..Cellule[9] = MaRequête.DESCRIPTION
//DocExcel..Ligne[i]..Cellule[17] = MaRequête.Total_achat_engagéHExécuteRequêteSQL(MaRequête2, »SELECT SUM(TOTAL_HT) AS MM FROM COD_SYNTHESE_DOC WHERE COD_SYNTHESE_DOC.IDCOD_PROJET = « +MaRequête.IDCOD_PROJET+ » AND COD_SYNTHESE_DOC.TYPE_DOC = 7″ )
HLitPremier(MaRequête2)
DocExcel..Ligne[i]..Cellule[11] = MaRequête2.MMHExécuteRequêteSQL(MaRequêtebis, »SELECT SUM(MO_TOTAL_QTE) AS MO FROM COD_SYNTHESE_DOC WHERE COD_SYNTHESE_DOC.IDCOD_PROJET = « +MaRequête.IDCOD_PROJET+ » AND COD_SYNTHESE_DOC.TYPE_DOC = 7″ )
HLitPremier(MaRequêtebis)
DocExcel..Ligne[i]..Cellule[14] = MaRequêtebis.MOHExécuteRequêteSQL(MaRequêtebis2, »SELECT SUM(TOTAL_HT) AS FACT FROM COD_SYNTHESE_DOC WHERE COD_SYNTHESE_DOC.IDCOD_PROJET = « +MaRequête.IDCOD_PROJET+ » AND COD_SYNTHESE_DOC.TYPE_DOC = 4″ )
HLitPremier(MaRequêtebis2)
DocExcel..Ligne[i]..Cellule[12] = MaRequêtebis2.FACTHExécuteRequêteSQL(MaRequêtebis3, »SELECT SUM(NBRHEURE) AS MO1 FROM SUIVIOP WHERE SUIVIOP.NUMCOM = « +MaRequête.IDCOD_PROJET)
HLitPremier(MaRequêtebis3)
DocExcel..Ligne[i]..Cellule[15] = MaRequêtebis3.MO1HExécuteRequêteSQL(MaRequêtebis4, »SELECT SUM(TOTAL_ACHAT) AS TAE FROM COD_SYNTHESE_DOC WHERE COD_SYNTHESE_DOC.IDCOD_PROJET = « +MaRequête.IDCOD_PROJET+ » AND COD_SYNTHESE_DOC.TYPE_DOC = 1″)
HLitPremier(MaRequêtebis4)
DocExcel..Ligne[i]..Cellule[17] = MaRequêtebis4.TAEHExécuteRequêteSQL(MaRequêtebis5, »SELECT SUM(TOTAL_ACHAT) AS TAE2 FROM COD_SYNTHESE_DOC WHERE COD_SYNTHESE_DOC.IDCOD_PROJET = « +MaRequête.IDCOD_PROJET+ » AND COD_SYNTHESE_DOC.TYPE_DOC = 16″)
HLitPremier(MaRequêtebis5)
DocExcel..Ligne[i]..Cellule[18] = MaRequêtebis5.TAE2DocExcel..Ligne[i]..Cellule[16] = MaRequêtebis.MO-MaRequêtebis3.MO1
DocExcel..Ligne[i]..Cellule[13] = MaRequête2.MM-MaRequêtebis2.FACTSI MaRequête2.MM <> 0 ALORS
DocExcel..Ligne[i]..Cellule[10] = ((MaRequêtebis2.FACT*100)/MaRequête2.MM)+ » % »
FINi = i + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête)
FIN
//—————————— Fin de l’enregistrement de la feuille 1 ——————————//############################## On se place sur la feuille 2 ##############################
DocExcel..Feuille = 2MaRequête1 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête1, »SELECT DEVIS.DATE,DEVIS.NOM,DEVIS.NUMEROD,DEVIS.SUJET,DEVIS.ADRESSE1,DEVIS.VILLE,DEVIS.TOTAL,FA4_TIERS_CONTACT.NOM_CONTACT AS NOMCONTACT,DEVIS.ANCIEN_NUMERO,FA4_DOC_AFFECTATION.DESCRIPTION AS AFFECTATION,DEVIS.INDICE_VARIANTE,FA4_DOC_OPERATION.DESCRIPTION AS OPERATION,DEVIS.RAPCLIENT,COD_SYNTHESE_DOC.MO_TOTAL_QTE AS TOTALQTE FROM DEVIS,FA4_TIERS_CONTACT,FA4_DOC_AFFECTATION,FA4_DOC_OPERATION,COD_SYNTHESE_DOC WHERE DEVIS.INT_DEP_ENVOYE=0 AND DEVIS.ETAB=’01’ AND COD_SYNTHESE_DOC.IDCOD_PROJET=-1 AND DEVIS.ID_CONTACT=FA4_TIERS_CONTACT.ID_CONTACT(+) AND DEVIS.TOPERAT=FA4_DOC_AFFECTATION.TOPERAT(+) AND DEVIS.IDFA4_AFFECT_DOC=FA4_DOC_OPERATION.IDFA4_AFFECT_DOC(+) AND (DEVIS.D0CLEUNIK=COD_SYNTHESE_DOC.ID_DOC(+) AND COD_SYNTHESE_DOC.TYPE_DOC=6) AND DEVIS.INDICE_VARIANTE=0 AND OPERATION<>’VARIANTE' ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête1)
j est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Date »
DocExcel..Ligne[1]..Cellule[2] = « Nom »
DocExcel..Ligne[1]..Cellule[3] = « N° devis »
DocExcel..Ligne[1]..Cellule[4] = « Sujet »
DocExcel..Ligne[1]..Cellule[5] = « Adresse »
DocExcel..Ligne[1]..Cellule[6] = « Ville »
DocExcel..Ligne[1]..Cellule[7] = « Total HT »
DocExcel..Ligne[1]..Cellule[8] = « Nom du contact »
DocExcel..Ligne[1]..Cellule[9] = « Affectation »
DocExcel..Ligne[1]..Cellule[10] = « Indice variante »
DocExcel..Ligne[1]..Cellule[11] = « Opération »
DocExcel..Ligne[1]..Cellule[12] = « Relance client »
DocExcel..Ligne[1]..Cellule[13] = « Quantité MO prévue »TANTQUE PAS HEnDehors(MaRequête1)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[j]..Cellule[1] = DateVersChaîne(MaRequête1.DATE, »JJ/MM/AAAA »)
DocExcel..Ligne[j]..Cellule[2] = MaRequête1.NOM
DocExcel..Ligne[j]..Cellule[3] = MaRequête1.NUMEROD
DocExcel..Ligne[j]..Cellule[4] = MaRequête1.SUJET
DocExcel..Ligne[j]..Cellule[5] = MaRequête1.ADRESSE1
DocExcel..Ligne[j]..Cellule[6] = MaRequête1.VILLE
DocExcel..Ligne[j]..Cellule[7] = MaRequête1.TOTAL
DocExcel..Ligne[j]..Cellule[8] = MaRequête1.NOMCONTACT
DocExcel..Ligne[j]..Cellule[9] = MaRequête1.AFFECTATION
DocExcel..Ligne[j]..Cellule[10] = MaRequête1.INDICE_VARIANTE
DocExcel..Ligne[j]..Cellule[11] = MaRequête1.OPERATION
DocExcel..Ligne[j]..Cellule[12] = MaRequête1.RAPCLIENT
DocExcel..Ligne[j]..Cellule[13] = MaRequête1.TOTALQTEj = j + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête1)
FIN
//—————————— Fin de l’enregistrement de la feuille 2 ——————————//############################## On se place sur la feuille 3 ##############################
DocExcel..Feuille = 3MaRequête3 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête3, »SELECT COMMANDC.DATE,COMMANDC.NOM,COMMANDC.NUMEROC,COD_SYNTHESE_DOC.MO_TOTAL_QTE,COMMANDC.SUJET,COMMANDC.TOTAL,FA4_DOC_AFFECTATION.DESCRIPTION,COMMANDC.ADRESSE1,COMMANDC.COP,COMMANDC.VILLE,FA4_DOC_OPERATION.DESCRIPTION AS OPERATION FROM COMMANDC,COD_SYNTHESE_DOC,FA4_DOC_AFFECTATION,FA4_DOC_OPERATION WHERE COMMANDC.INT_TERMINE=0 AND COMMANDC.INTFAC=0 AND COMMANDC.INT_INTRACOM=0 AND COMMANDC.INT_DEP_ENVOYE=0 AND COMMANDC.ETAB=’01’ AND COD_SYNTHESE_DOC.IDCOD_PROJET=-1 AND (COMMANDC.C2CLEUNIK=COD_SYNTHESE_DOC.ID_DOC(+) AND COD_SYNTHESE_DOC.TYPE_DOC=7) AND COMMANDC.TOPERAT=FA4_DOC_AFFECTATION.TOPERAT(+) AND COMMANDC.IDFA4_AFFECT_DOC=FA4_DOC_OPERATION.IDFA4_AFFECT_DOC(+) ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête3)
k est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Date »
DocExcel..Ligne[1]..Cellule[2] = « Nom »
DocExcel..Ligne[1]..Cellule[3] = « N° Cde. »
DocExcel..Ligne[1]..Cellule[4] = « Qté MO prévue »
DocExcel..Ligne[1]..Cellule[5] = « Sujet »
DocExcel..Ligne[1]..Cellule[6] = « Total HT »
DocExcel..Ligne[1]..Cellule[7] = « Affectation »
DocExcel..Ligne[1]..Cellule[8] = « Adresse »
DocExcel..Ligne[1]..Cellule[9] = « Code postal »
DocExcel..Ligne[1]..Cellule[10] = « Ville »
DocExcel..Ligne[1]..Cellule[11] = « Opération »TANTQUE PAS HEnDehors(MaRequête3)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[k]..Cellule[1] = DateVersChaîne(MaRequête3.DATE, »JJ/MM/AAAA »)
DocExcel..Ligne[k]..Cellule[2] = MaRequête3.NOM
DocExcel..Ligne[k]..Cellule[3] = MaRequête3.NUMEROC
DocExcel..Ligne[k]..Cellule[4] = MaRequête3.MO_TOTAL_QTE
DocExcel..Ligne[k]..Cellule[5] = MaRequête3.SUJET
DocExcel..Ligne[k]..Cellule[6] = MaRequête3.TOTAL
DocExcel..Ligne[k]..Cellule[7] = MaRequête3.DESCRIPTION
DocExcel..Ligne[k]..Cellule[8] = MaRequête3.ADRESSE1
DocExcel..Ligne[k]..Cellule[9] = MaRequête3.COP
DocExcel..Ligne[k]..Cellule[10] = MaRequête3.VILLE
DocExcel..Ligne[k]..Cellule[11] = MaRequête3.OPERATIONk = k + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête3)
FIN
//—————————— Fin de l’enregistrement de la feuille 3 ——————————//############################## On se place sur la feuille 4 ##############################
DocExcel..Feuille = 4MaRequête4 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête4, »SELECT COD_SYNTHESE_DOC.MO_TOTAL_QTE,COD_SYNTHESE_DOC.MO_TOTAL_HT,SUIVIOP.NBRHEURE,FA4_DOC_AFFECTATION.DESCRIPTION,FACTURE.NUMERO,FACTURE.DATE,FACTURE.SUJET,FACTURE.NOM,FACTURE.ADRESSE1,CLIENT.COP,FACTURE.VILLE,COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC-COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC, SUIFAC.PAYE, COD_SYNTHESE_DOC.TOTAL_TTC-SUIFAC.PAYE FROM FACTURE,COD_SYNTHESE_DOC,SUIVIOP,FA4_DOC_AFFECTATION,CLIENT,SUIFAC WHERE FACTURE.ETAB=’01’ AND COD_SYNTHESE_DOC.IDCOD_PROJET=-1 AND (FACTURE.FACLEUNIK=COD_SYNTHESE_DOC.ID_DOC(+) AND COD_SYNTHESE_DOC.TYPE_DOC=4) AND FACTURE.NUMERO=SUIVIOP.NUMCOM(+) AND FACTURE.TOPERAT=FA4_DOC_AFFECTATION.TOPERAT(+) AND FACTURE.CODE=CLIENT.CODE(+) AND FACTURE.NUMERO=SUIFAC.NUMFAC(+) AND COD_SYNTHESE_DOC.TOTAL_HT >0″) ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête4)
l est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Qté MO prévue »
DocExcel..Ligne[1]..Cellule[2] = « MO total HT »
DocExcel..Ligne[1]..Cellule[3] = « Nb heures réalisées »
DocExcel..Ligne[1]..Cellule[4] = « Affectation »
DocExcel..Ligne[1]..Cellule[5] = « N° facture »
DocExcel..Ligne[1]..Cellule[6] = « Date »
DocExcel..Ligne[1]..Cellule[7] = « Sujet »
DocExcel..Ligne[1]..Cellule[8] = « Nom »
DocExcel..Ligne[1]..Cellule[9] = « Adresse »
DocExcel..Ligne[1]..Cellule[10] = « Code postal »
DocExcel..Ligne[1]..Cellule[11] = « Ville »
DocExcel..Ligne[1]..Cellule[12] = « Total HT »
DocExcel..Ligne[1]..Cellule[13] = « Total TVA »
DocExcel..Ligne[1]..Cellule[14] = « Total TTC »
DocExcel..Ligne[1]..Cellule[15] = « Déjà perçu »
DocExcel..Ligne[1]..Cellule[16] = « Reste à payer »TANTQUE PAS HEnDehors(MaRequête4)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[l]..Cellule[1] = MaRequête4.MO_TOTAL_QTE
DocExcel..Ligne[l]..Cellule[2] = MaRequête4.MO_TOTAL_HT
DocExcel..Ligne[l]..Cellule[3] = MaRequête4.NBRHEURE
DocExcel..Ligne[l]..Cellule[4] = MaRequête4.DESCRIPTION
DocExcel..Ligne[l]..Cellule[5] = MaRequête4.NUMERO
DocExcel..Ligne[l]..Cellule[6] = MaRequête4.DATE
DocExcel..Ligne[l]..Cellule[7] = MaRequête4.SUJET
DocExcel..Ligne[l]..Cellule[8] = MaRequête4.NOM
DocExcel..Ligne[l]..Cellule[9] = MaRequête4.ADRESSE1
DocExcel..Ligne[l]..Cellule[10] = MaRequête4.COP
DocExcel..Ligne[l]..Cellule[11] = MaRequête4.VILLE
DocExcel..Ligne[l]..Cellule[12] = MaRequête4.TOTAL_HT
DocExcel..Ligne[l]..Cellule[13] = MaRequête4.TOTAL_TTC-MaRequête4.TOTAL_HT
DocExcel..Ligne[l]..Cellule[14] = MaRequête4.TOTAL_TTC
DocExcel..Ligne[l]..Cellule[15] = MaRequête4.PAYE
DocExcel..Ligne[l]..Cellule[16] = MaRequête4.TOTAL_TTC-MaRequête4.PAYEl = l + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête4)
FIN
//—————————— Fin de l’enregistrement de la feuille 4 ——————————//############################## On se place sur la feuille 5 ##############################
DocExcel..Feuille = 5MaRequête5 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête5, »SELECT COD_SYNTHESE_DOC.MO_TOTAL_QTE,COD_SYNTHESE_DOC.MO_TOTAL_HT,SUIVIOP.NBRHEURE,FA4_DOC_AFFECTATION.DESCRIPTION,FACTURE.NUMERO,FACTURE.DATE,FACTURE.SUJET,FACTURE.NOM,FACTURE.ADRESSE1,CLIENT.COP,FACTURE.VILLE,COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC-COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC, SUIFAC.PAYE, COD_SYNTHESE_DOC.TOTAL_TTC-SUIFAC.PAYE FROM FACTURE,SUIFAC,COD_SYNTHESE_DOC,SUIVIOP,FA4_DOC_AFFECTATION,CLIENT WHERE FACTURE.ETAB=’01’ AND COD_SYNTHESE_DOC.IDCOD_PROJET=-1 AND (FACTURE.FACLEUNIK=COD_SYNTHESE_DOC.ID_DOC(+) AND COD_SYNTHESE_DOC.TYPE_DOC=4) AND FACTURE.NUMERO=SUIVIOP.NUMCOM(+) AND FACTURE.TOPERAT=FA4_DOC_AFFECTATION.TOPERAT(+) AND FACTURE.CODE=CLIENT.CODE(+) AND FACTURE.NUMERO=SUIFAC.NUMFAC(+) AND facture.toperat =’SAV' ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête5)
m est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Qté MO prévue »
DocExcel..Ligne[1]..Cellule[2] = « MO total HT »
DocExcel..Ligne[1]..Cellule[3] = « Nb heures réalisées »
DocExcel..Ligne[1]..Cellule[4] = « Affectation »
DocExcel..Ligne[1]..Cellule[5] = « N° facture »
DocExcel..Ligne[1]..Cellule[6] = « Date »
DocExcel..Ligne[1]..Cellule[7] = « Sujet »
DocExcel..Ligne[1]..Cellule[8] = « Nom »
DocExcel..Ligne[1]..Cellule[9] = « Adresse »
DocExcel..Ligne[1]..Cellule[10] = « Code postal »
DocExcel..Ligne[1]..Cellule[11] = « Ville »
DocExcel..Ligne[1]..Cellule[12] = « Total HT »
DocExcel..Ligne[1]..Cellule[13] = « Total TVA »
DocExcel..Ligne[1]..Cellule[14] = « Total TTC »
DocExcel..Ligne[1]..Cellule[15] = « Déjà perçu »
DocExcel..Ligne[1]..Cellule[16] = « Reste à payer »TANTQUE PAS HEnDehors(MaRequête5)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[m]..Cellule[1] = MaRequête5.MO_TOTAL_QTE
DocExcel..Ligne[m]..Cellule[2] = MaRequête5.MO_TOTAL_HT
DocExcel..Ligne[m]..Cellule[3] = MaRequête5.NBRHEURE
DocExcel..Ligne[m]..Cellule[4] = MaRequête5.DESCRIPTION
DocExcel..Ligne[m]..Cellule[5] = MaRequête5.NUMERO
DocExcel..Ligne[m]..Cellule[6] = DateVersChaîne(MaRequête5.DATE, »JJ/MM/AAAA »)
DocExcel..Ligne[m]..Cellule[7] = MaRequête5.SUJET
DocExcel..Ligne[m]..Cellule[8] = MaRequête5.NOM
DocExcel..Ligne[m]..Cellule[9] = MaRequête5.ADRESSE1
DocExcel..Ligne[m]..Cellule[10] = MaRequête5.COP
DocExcel..Ligne[m]..Cellule[11] = MaRequête5.VILLE
DocExcel..Ligne[m]..Cellule[12] = MaRequête5.TOTAL_HT
DocExcel..Ligne[m]..Cellule[13] = MaRequête5.TOTAL_TTC-MaRequête5.TOTAL_HT
DocExcel..Ligne[m]..Cellule[14] = MaRequête5.TOTAL_TTC
DocExcel..Ligne[m]..Cellule[15] = MaRequête5.PAYE
DocExcel..Ligne[m]..Cellule[16] = MaRequête5.TOTAL_TTC-MaRequête5.PAYEm = m + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête5)
FIN
//—————————— Fin de l’enregistrement de la feuille 5 ——————————//############################## On se place sur la feuille 6 ##############################
DocExcel..Feuille = 6MaRequêteCC est une Source de Données
MaRequête2CC est une Source de Données
MaRequêtebisCC est une Source de Données
MaRequêtebis2CC est une Source de Données
MaRequêtebis3CC est une Source de Données
MaRequêtebis3CC1 est une Source de Données
MaRequêtebis3CC2 est une Source de DonnéesSI PAS HExécuteRequêteSQL(MaRequêteCC, »SELECT COD_PROJET.NOM,COD_PROJET.REFERENCE,COD_PROJET.NOM_CHANTIER,CLIENT.NOM,CLIENT.ADRESSE1,CLIENT.COP,CLIENT.VILLE,COD_PROJET.DATE_DEBUT,COD_PROJET.DATE_FIN,COD_PROJET.DESCRIPTION,COD_PROJET.IDCOD_PROJET,COD_PROJET.INT_TERMINE, COD_PROJET.INT_AVANT_PROJET, SUM(COD_SYNTHESE_DOC.TOTAL_ACHAT) as Total_Achat_Engagé FROM COD_PROJET,CLIENT,COD_SYNTHESE_DOC WHERE (COD_PROJET.INT_TERMINE=1) AND COD_PROJET.CODE_TIERS=CLIENT.CODE(+) AND COD_PROJET.IDCOD_PROJET=COD_SYNTHESE_DOC.IDCOD_PROJET (+) GROUP BY COD_PROJET.NOM,COD_PROJET.REFERENCE,COD_PROJET.NOM_CHANTIER,CLIENT.ADRESSE1,CLIENT.COP,CLIENT.VILLE,COD_PROJET.DATE_DEBUT,COD_PROJET.DATE_FIN,COD_PROJET.DESCRIPTION,COD_PROJET.IDCOD_PROJET,COD_PROJET.INT_TERMINE, COD_PROJET.INT_AVANT_PROJET, CLIENT.NOM ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequêteCC)
n est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Nom du dossier »
DocExcel..Ligne[1]..Cellule[2] = « Réf. Chantier »
DocExcel..Ligne[1]..Cellule[3] = « Nom »
DocExcel..Ligne[1]..Cellule[4] = « Adresse »
DocExcel..Ligne[1]..Cellule[5] = « Code postal »
DocExcel..Ligne[1]..Cellule[6] = « Ville »
DocExcel..Ligne[1]..Cellule[7] = « Date début »
DocExcel..Ligne[1]..Cellule[8] = « Date fin »
DocExcel..Ligne[1]..Cellule[9] = « Description »
DocExcel..Ligne[1]..Cellule[10] = « Avancement »
DocExcel..Ligne[1]..Cellule[11] = « Marché »
DocExcel..Ligne[1]..Cellule[12] = « Facturé »
DocExcel..Ligne[1]..Cellule[13] = « Reste à facturer »
DocExcel..Ligne[1]..Cellule[14] = « MO prévue »
DocExcel..Ligne[1]..Cellule[15] = « MO réalisée »
DocExcel..Ligne[1]..Cellule[16] = « Ecart MO »
DocExcel..Ligne[1]..Cellule[17] = « Engagé sur Cde Four. »
DocExcel..Ligne[1]..Cellule[18] = « Engagé sur B.L.F. »TANTQUE PAS HEnDehors(MaRequêteCC)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[n]..Cellule[1] = MaRequêteCC.NOM_CHANTIER
DocExcel..Ligne[n]..Cellule[2] = MaRequêteCC.REFERENCE
DocExcel..Ligne[n]..Cellule[3] = MaRequêteCC.NOM
DocExcel..Ligne[n]..Cellule[4] = MaRequêteCC.ADRESSE1
DocExcel..Ligne[n]..Cellule[5] = MaRequêteCC.COP
DocExcel..Ligne[n]..Cellule[6] = MaRequêteCC.VILLE
DocExcel..Ligne[n]..Cellule[7] = DateVersChaîne(MaRequêteCC.DATE_DEBUT, »JJ/MM/AAAA »)
DocExcel..Ligne[n]..Cellule[8] = DateVersChaîne(MaRequêteCC.DATE_FIN, »JJ/MM/AAAA »)
DocExcel..Ligne[n]..Cellule[9] = MaRequêteCC.DESCRIPTIONHExécuteRequêteSQL(MaRequête2CC, »SELECT SUM(TOTAL_HT) AS MM FROM COD_SYNTHESE_DOC WHERE COD_SYNTHESE_DOC.IDCOD_PROJET = « +MaRequêteCC.IDCOD_PROJET+ » AND COD_SYNTHESE_DOC.TYPE_DOC = 7″ )
HLitPremier(MaRequête2CC)
DocExcel..Ligne[n]..Cellule[11] = MaRequête2CC.MMHExécuteRequêteSQL(MaRequêtebisCC, »SELECT SUM(MO_TOTAL_QTE) AS MO FROM COD_SYNTHESE_DOC WHERE COD_SYNTHESE_DOC.IDCOD_PROJET = « +MaRequêteCC.IDCOD_PROJET+ » AND COD_SYNTHESE_DOC.TYPE_DOC = 7″ )
HLitPremier(MaRequêtebisCC)
DocExcel..Ligne[n]..Cellule[14] = MaRequêtebisCC.MOHExécuteRequêteSQL(MaRequêtebis2CC, »SELECT SUM(TOTAL_HT) AS FACT FROM COD_SYNTHESE_DOC WHERE COD_SYNTHESE_DOC.IDCOD_PROJET = « +MaRequêteCC.IDCOD_PROJET+ » AND COD_SYNTHESE_DOC.TYPE_DOC = 4″ )
HLitPremier(MaRequêtebis2CC)
DocExcel..Ligne[n]..Cellule[12] = MaRequêtebis2CC.FACTHExécuteRequêteSQL(MaRequêtebis3CC, »SELECT SUM(NBRHEURE) AS MO1 FROM SUIVIOP WHERE SUIVIOP.NUMCOM = « +MaRequêteCC.IDCOD_PROJET)
HLitPremier(MaRequêtebis3CC)
DocExcel..Ligne[n]..Cellule[15] = MaRequêtebis3CC.MO1HExécuteRequêteSQL(MaRequêtebis3CC1, »SELECT SUM(TOTAL_ACHAT) AS TAE FROM COD_SYNTHESE_DOC WHERE COD_SYNTHESE_DOC.IDCOD_PROJET = « +MaRequêteCC.IDCOD_PROJET+ » AND COD_SYNTHESE_DOC.TYPE_DOC = 1″)
HLitPremier(MaRequêtebis3CC1)
DocExcel..Ligne[n]..Cellule[17] = MaRequêtebis3CC1.TAEHExécuteRequêteSQL(MaRequêtebis3CC2, »SELECT SUM(TOTAL_ACHAT) AS TAE2 FROM COD_SYNTHESE_DOC WHERE COD_SYNTHESE_DOC.IDCOD_PROJET = « +MaRequêteCC.IDCOD_PROJET+ » AND COD_SYNTHESE_DOC.TYPE_DOC = 16″)
HLitPremier(MaRequêtebis3CC2)
DocExcel..Ligne[n]..Cellule[18] = MaRequêtebis3CC2.TAE2DocExcel..Ligne[n]..Cellule[16] = MaRequêtebisCC.MO-MaRequêtebis3CC.MO1
DocExcel..Ligne[n]..Cellule[13] = MaRequête2CC.MM-MaRequêtebis2CC.FACTSI MaRequête2CC.MM <> 0 ALORS
DocExcel..Ligne[n]..Cellule[10] = ((MaRequêtebis2CC.FACT*100)/MaRequête2CC.MM)+ » % »
FINn = n + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequêteCC)
FIN
//—————————— Fin de l’enregistrement de la feuille 6 ——————————
//############################## On se place sur la feuille 7 ##############################
DocExcel..Feuille = 7MaRequête7 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête7, »SELECT DEVIS.ETATD,FA4_DOC_AFFECTATION.DESCRIPTION,DEVIS.INDICE_VARIANTE, DEVIS.NUMEROD,DEVIS.ANCIEN_NUMERO,DEVIS.DATE,DEVIS.SUJET,DEVIS.NOM,DEVIS.ADRESSE1,DEVIS.COP,DEVIS.VILLE,DEVIS.TOTAL,COD_SYNTHESE_DOC.TOTAL_TTC-COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC,DEVIS.NOMBL,DEVIS.ADRESSE1BL,DEVIS.COPBL,DEVIS.VILLEBL,FA4_TIERS_CONTACT.NOM_CONTACT FROM DEVIS,FA4_DOC_AFFECTATION,COD_SYNTHESE_DOC,FA4_TIERS_CONTACT WHERE DEVIS.ETAB=’01’ AND COD_SYNTHESE_DOC.IDCOD_PROJET=-1 AND DEVIS.TOPERAT=FA4_DOC_AFFECTATION.TOPERAT(+) AND (DEVIS.D0CLEUNIK=COD_SYNTHESE_DOC.ID_DOC(+) AND COD_SYNTHESE_DOC.TYPE_DOC=6) AND DEVIS.ID_CONTACT=FA4_TIERS_CONTACT.ID_CONTACT(+) AND DEVIS.NOM = ‘AGS FACILITIES’ AND DEVIS.INDICE_VARIANTE=0″) ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête7)
o est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Etat »
DocExcel..Ligne[1]..Cellule[2] = « Affectation »
DocExcel..Ligne[1]..Cellule[3] = « N° devis »
DocExcel..Ligne[1]..Cellule[4] = « N° BATIGEST »
DocExcel..Ligne[1]..Cellule[5] = « Date »
DocExcel..Ligne[1]..Cellule[6] = « Sujet »
DocExcel..Ligne[1]..Cellule[7] = « Nom »
DocExcel..Ligne[1]..Cellule[8] = « Adresse »
DocExcel..Ligne[1]..Cellule[9] = « Code postal »
DocExcel..Ligne[1]..Cellule[10] = « Ville »
DocExcel..Ligne[1]..Cellule[11] = « Total HT »
DocExcel..Ligne[1]..Cellule[12] = « TVA »
DocExcel..Ligne[1]..Cellule[13] = « Total TTC »
DocExcel..Ligne[1]..Cellule[14] = « Nom inter »
DocExcel..Ligne[1]..Cellule[15] = « Adresse inter »
DocExcel..Ligne[1]..Cellule[16] = « CP inter »
DocExcel..Ligne[1]..Cellule[17] = « Ville inter »
DocExcel..Ligne[1]..Cellule[18] = « Nom du contact »TANTQUE PAS HEnDehors(MaRequête7)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[o]..Cellule[1] = MaRequête7.ETATD
DocExcel..Ligne[o]..Cellule[2] = MaRequête7.DESCRIPTION
DocExcel..Ligne[o]..Cellule[3] = MaRequête7.NUMEROD
DocExcel..Ligne[o]..Cellule[4] = MaRequête7.ANCIEN_NUMERO
DocExcel..Ligne[o]..Cellule[5] = DateVersChaîne(MaRequête7.DATE, »JJ/MM/AAAA »)
DocExcel..Ligne[o]..Cellule[6] = MaRequête7.SUJET
DocExcel..Ligne[o]..Cellule[7] = MaRequête7.NOM
DocExcel..Ligne[o]..Cellule[8] = MaRequête7.ADRESSE1
DocExcel..Ligne[o]..Cellule[9] = MaRequête7.COP
DocExcel..Ligne[o]..Cellule[10] = MaRequête7.VILLE
DocExcel..Ligne[o]..Cellule[11] = MaRequête7.TOTAL
DocExcel..Ligne[o]..Cellule[12] = MaRequête7.TOTAL_TTC-MaRequête7.TOTAL
DocExcel..Ligne[o]..Cellule[13] = MaRequête7.TOTAL_TTC
DocExcel..Ligne[o]..Cellule[14] = MaRequête7.NOMBL
DocExcel..Ligne[o]..Cellule[15] = MaRequête7.ADRESSE1BL
DocExcel..Ligne[o]..Cellule[16] = MaRequête7.COPBL
DocExcel..Ligne[o]..Cellule[17] = MaRequête7.VILLEBL
DocExcel..Ligne[o]..Cellule[18] = MaRequête7.NOM_CONTACTo = o + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête7)
FIN
//—————————— Fin de l’enregistrement de la feuille 7 ——————————//############################## On se place sur la feuille 8 ##############################
DocExcel..Feuille = 8MaRequête8 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête8, »SELECT COD_SYNTHESE_DOC.MO_TOTAL_QTE,COD_SYNTHESE_DOC.MO_TOTAL_HT,SUIVIOP.NBRHEURE,FA4_DOC_AFFECTATION.DESCRIPTION,FACTURE.NUMERO,FACTURE.DATE,FACTURE.SUJET,FACTURE.NOM,FACTURE.ADRESSE1,CLIENT.COP,FACTURE.VILLE,COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC-COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC, SUIFAC.PAYE, COD_SYNTHESE_DOC.TOTAL_TTC-SUIFAC.PAYE FROM FACTURE,COD_SYNTHESE_DOC,SUIVIOP,FA4_DOC_AFFECTATION,CLIENT,SUIFAC WHERE FACTURE.ETAB=’01’ AND COD_SYNTHESE_DOC.IDCOD_PROJET=-1 AND (FACTURE.FACLEUNIK=COD_SYNTHESE_DOC.ID_DOC(+) AND COD_SYNTHESE_DOC.TYPE_DOC=4) AND FACTURE.NUMERO=SUIVIOP.NUMCOM(+) AND FACTURE.TOPERAT=FA4_DOC_AFFECTATION.TOPERAT(+) AND FACTURE.CODE=CLIENT.CODE(+) AND FACTURE.NUMERO=SUIFAC.NUMFAC(+) AND COD_SYNTHESE_DOC.TOTAL_HT >0 AND FA4_DOC_AFFECTATION.DESCRIPTION=’ENTRETIEN’ AND FACTURE.NOM=’AGS FACILITIES' ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête8)
p est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Qté MO prévue »
DocExcel..Ligne[1]..Cellule[2] = « MO total HT »
DocExcel..Ligne[1]..Cellule[3] = « Nb heures réalisées »
DocExcel..Ligne[1]..Cellule[4] = « Affectation »
DocExcel..Ligne[1]..Cellule[5] = « N° facture »
DocExcel..Ligne[1]..Cellule[6] = « Date »
DocExcel..Ligne[1]..Cellule[7] = « Sujet »
DocExcel..Ligne[1]..Cellule[8] = « Nom »
DocExcel..Ligne[1]..Cellule[9] = « Adresse »
DocExcel..Ligne[1]..Cellule[10] = « Code postal »
DocExcel..Ligne[1]..Cellule[11] = « Ville »
DocExcel..Ligne[1]..Cellule[12] = « Total HT »
DocExcel..Ligne[1]..Cellule[13] = « Total TVA »
DocExcel..Ligne[1]..Cellule[14] = « Total TTC »
DocExcel..Ligne[1]..Cellule[15] = « Déjà perçu »
DocExcel..Ligne[1]..Cellule[16] = « Reste à payer »TANTQUE PAS HEnDehors(MaRequête8)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[p]..Cellule[1] = MaRequête8.MO_TOTAL_QTE
DocExcel..Ligne[p]..Cellule[2] = MaRequête8.MO_TOTAL_HT
DocExcel..Ligne[p]..Cellule[3] = MaRequête8.NBRHEURE
DocExcel..Ligne[p]..Cellule[4] = MaRequête8.DESCRIPTION
DocExcel..Ligne[p]..Cellule[5] = MaRequête8.NUMERO
DocExcel..Ligne[p]..Cellule[6] = DateVersChaîne(MaRequête8.DATE, »JJ/MM/AAAA »)
DocExcel..Ligne[p]..Cellule[7] = MaRequête8.SUJET
DocExcel..Ligne[p]..Cellule[8] = MaRequête8.NOM
DocExcel..Ligne[p]..Cellule[9] = MaRequête8.ADRESSE1
DocExcel..Ligne[p]..Cellule[10] = MaRequête8.COP
DocExcel..Ligne[p]..Cellule[11] = MaRequête8.VILLE
DocExcel..Ligne[p]..Cellule[12] = MaRequête8.TOTAL_HT
DocExcel..Ligne[p]..Cellule[13] = MaRequête8.TOTAL_TTC-MaRequête8.TOTAL_HT
DocExcel..Ligne[p]..Cellule[14] = MaRequête8.TOTAL_TTC
DocExcel..Ligne[p]..Cellule[15] = MaRequête8.PAYE
DocExcel..Ligne[p]..Cellule[16] = MaRequête8.TOTAL_TTC-MaRequête8.PAYEp = p + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête8)
FIN
//—————————— Fin de l’enregistrement de la feuille 8 ——————————//############################## On se place sur la feuille 9 ##############################
DocExcel..Feuille = 9MaRequête9 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête9, »SELECT COD_SYNTHESE_DOC.MO_TOTAL_QTE,COD_SYNTHESE_DOC.MO_TOTAL_HT,SUIVIOP.NBRHEURE,FA4_DOC_AFFECTATION.DESCRIPTION,FACTURE.NUMERO,FACTURE.DATE,FACTURE.SUJET,FACTURE.NOM,FACTURE.ADRESSE1,CLIENT.COP,FACTURE.VILLE,COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC-COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC, SUIFAC.PAYE, COD_SYNTHESE_DOC.TOTAL_TTC-SUIFAC.PAYE FROM FACTURE,SUIFAC,COD_SYNTHESE_DOC,SUIVIOP,FA4_DOC_AFFECTATION,CLIENT WHERE FACTURE.ETAB=’01’ AND COD_SYNTHESE_DOC.IDCOD_PROJET=-1 AND (FACTURE.FACLEUNIK=COD_SYNTHESE_DOC.ID_DOC(+) AND COD_SYNTHESE_DOC.TYPE_DOC=4) AND FACTURE.NUMERO=SUIVIOP.NUMCOM(+) AND FACTURE.TOPERAT=FA4_DOC_AFFECTATION.TOPERAT(+) AND FACTURE.CODE=CLIENT.CODE(+) AND FACTURE.NUMERO=SUIFAC.NUMFAC(+) AND COD_SYNTHESE_DOC.TOTAL_HT >0 AND FA4_DOC_AFFECTATION.DESCRIPTION=’SAV’ AND FACTURE.NOM=’AGS FACILITIES' ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête9)
q est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Qté MO prévue »
DocExcel..Ligne[1]..Cellule[2] = « MO total HT »
DocExcel..Ligne[1]..Cellule[3] = « Nb heures réalisées »
DocExcel..Ligne[1]..Cellule[4] = « Affectation »
DocExcel..Ligne[1]..Cellule[5] = « N° facture »
DocExcel..Ligne[1]..Cellule[6] = « Date »
DocExcel..Ligne[1]..Cellule[7] = « Sujet »
DocExcel..Ligne[1]..Cellule[8] = « Nom »
DocExcel..Ligne[1]..Cellule[9] = « Adresse »
DocExcel..Ligne[1]..Cellule[10] = « Code postal »
DocExcel..Ligne[1]..Cellule[11] = « Ville »
DocExcel..Ligne[1]..Cellule[12] = « Total HT »
DocExcel..Ligne[1]..Cellule[13] = « Total TVA »
DocExcel..Ligne[1]..Cellule[14] = « Total TTC »
DocExcel..Ligne[1]..Cellule[15] = « Déjà perçu »
DocExcel..Ligne[1]..Cellule[16] = « Reste à payer »TANTQUE PAS HEnDehors(MaRequête9)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[q]..Cellule[1] = MaRequête9.MO_TOTAL_QTE
DocExcel..Ligne[q]..Cellule[2] = MaRequête9.MO_TOTAL_HT
DocExcel..Ligne[q]..Cellule[3] = MaRequête9.NBRHEURE
DocExcel..Ligne[q]..Cellule[4] = MaRequête9.DESCRIPTION
DocExcel..Ligne[q]..Cellule[5] = MaRequête9.NUMERO
DocExcel..Ligne[q]..Cellule[6] = DateVersChaîne(MaRequête9.DATE, »JJ/MM/AAAA »)
DocExcel..Ligne[q]..Cellule[7] = MaRequête9.SUJET
DocExcel..Ligne[q]..Cellule[8] = MaRequête9.NOM
DocExcel..Ligne[q]..Cellule[9] = MaRequête9.ADRESSE1
DocExcel..Ligne[q]..Cellule[10] = MaRequête9.COP
DocExcel..Ligne[q]..Cellule[11] = MaRequête9.VILLE
DocExcel..Ligne[q]..Cellule[12] = MaRequête9.TOTAL_HT
DocExcel..Ligne[q]..Cellule[13] = MaRequête9.TOTAL_TTC-MaRequête9.TOTAL_HT
DocExcel..Ligne[q]..Cellule[14] = MaRequête9.TOTAL_TTC
DocExcel..Ligne[q]..Cellule[15] = MaRequête9.PAYE
DocExcel..Ligne[q]..Cellule[16] = MaRequête9.TOTAL_TTC-MaRequête9.PAYEq = q + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête9)
FIN
//—————————— Fin de l’enregistrement de la feuille 9 ——————————//############################## On se place sur la feuille 10 ##############################
DocExcel..Feuille = 10MaRequête10 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête10, »SELECT COD_SYNTHESE_DOC.MO_TOTAL_QTE,COD_SYNTHESE_DOC.MO_TOTAL_HT,SUIVIOP.NBRHEURE,FA4_DOC_AFFECTATION.DESCRIPTION,FACTURE.NUMERO,FACTURE.DATE,FACTURE.SUJET,FACTURE.NOM,FACTURE.ADRESSE1,CLIENT.COP,FACTURE.VILLE,COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC-COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC FROM FACTURE,COD_SYNTHESE_DOC,SUIVIOP,FA4_DOC_AFFECTATION,CLIENT WHERE FACTURE.ETAB=’01’ AND COD_SYNTHESE_DOC.IDCOD_PROJET=-1 AND (FACTURE.FACLEUNIK=COD_SYNTHESE_DOC.ID_DOC(+) AND COD_SYNTHESE_DOC.TYPE_DOC=4) AND FACTURE.NUMERO=SUIVIOP.NUMCOM(+) AND FACTURE.TOPERAT=FA4_DOC_AFFECTATION.TOPERAT(+) AND FACTURE.CODE=CLIENT.CODE(+) AND COD_SYNTHESE_DOC.TOTAL_HT <0″) ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête10)
r est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Qté MO prévue »
DocExcel..Ligne[1]..Cellule[2] = « MO total HT »
DocExcel..Ligne[1]..Cellule[3] = « Nb heures réalisées »
DocExcel..Ligne[1]..Cellule[4] = « Affectation »
DocExcel..Ligne[1]..Cellule[5] = « N° facture »
DocExcel..Ligne[1]..Cellule[6] = « Date »
DocExcel..Ligne[1]..Cellule[7] = « Sujet »
DocExcel..Ligne[1]..Cellule[8] = « Nom »
DocExcel..Ligne[1]..Cellule[9] = « Adresse »
DocExcel..Ligne[1]..Cellule[10] = « Code postal »
DocExcel..Ligne[1]..Cellule[11] = « Ville »
DocExcel..Ligne[1]..Cellule[12] = « Total HT »
DocExcel..Ligne[1]..Cellule[13] = « Total TVA »
DocExcel..Ligne[1]..Cellule[14] = « Total TTC »TANTQUE PAS HEnDehors(MaRequête10)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[r]..Cellule[1] = MaRequête10.MO_TOTAL_QTE
DocExcel..Ligne[r]..Cellule[2] = MaRequête10.MO_TOTAL_HT
DocExcel..Ligne[r]..Cellule[3] = MaRequête10.NBRHEURE
DocExcel..Ligne[r]..Cellule[4] = MaRequête10.DESCRIPTION
DocExcel..Ligne[r]..Cellule[5] = MaRequête10.NUMERO
DocExcel..Ligne[r]..Cellule[6] = DateVersChaîne(MaRequête10.DATE, »JJ/MM/AAAA »)
DocExcel..Ligne[r]..Cellule[7] = MaRequête10.SUJET
DocExcel..Ligne[r]..Cellule[8] = MaRequête10.NOM
DocExcel..Ligne[r]..Cellule[9] = MaRequête10.ADRESSE1
DocExcel..Ligne[r]..Cellule[10] = MaRequête10.COP
DocExcel..Ligne[r]..Cellule[11] = MaRequête10.VILLE
DocExcel..Ligne[r]..Cellule[12] = MaRequête10.TOTAL_HT
DocExcel..Ligne[r]..Cellule[13] = MaRequête10.TOTAL_TTC-MaRequête10.TOTAL_HT
DocExcel..Ligne[r]..Cellule[14] = MaRequête10.TOTAL_TTCr = r + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête10)
FIN
//—————————— Fin de l’enregistrement de la feuille 10 ——————————//############################## On se place sur la feuille 11 ##############################
DocExcel..Feuille = 11MaRequête11 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête11, »SELECT reparat.toperat,REPARAT.NUMEROR,REPARAT.TECHNICIEN,REPARAT.DATE,REPARAT.NOM,REPARAT.ADRESSE1,REPARAT.COP,REPARAT.VILLE,REPARAT.TOTAL,REPARAT.GARANTIE,REPARAT.TERMINE,REPARAT.NUMFAC,REPARAT.INTFAC FROM REPARAT WHERE REPARAT.ETAB=’01′ ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête11)
s est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Numéro de B.I. »
DocExcel..Ligne[1]..Cellule[2] = « Technicien »
DocExcel..Ligne[1]..Cellule[3] = « Date »
DocExcel..Ligne[1]..Cellule[4] = « Nom »
DocExcel..Ligne[1]..Cellule[5] = « Adresse »
DocExcel..Ligne[1]..Cellule[6] = « Code postal »
DocExcel..Ligne[1]..Cellule[7] = « Ville »
DocExcel..Ligne[1]..Cellule[8] = « Total HT »
DocExcel..Ligne[1]..Cellule[9] = « Sous garantie ? »
DocExcel..Ligne[1]..Cellule[10] = « Terminé ? »
DocExcel..Ligne[1]..Cellule[11] = « N° Facture »
DocExcel..Ligne[1]..Cellule[12] = « Facturé ? »
DocExcel..Ligne[1]..Cellule[13] = « Affectation »TANTQUE PAS HEnDehors(MaRequête11)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[s]..Cellule[1] = MaRequête11.NUMEROR
DocExcel..Ligne[s]..Cellule[2] = MaRequête11.TECHNICIEN
DocExcel..Ligne[s]..Cellule[3] = DateVersChaîne(MaRequête11.DATE, »JJ/MM/AAAA »)
DocExcel..Ligne[s]..Cellule[4] = MaRequête11.NOM
DocExcel..Ligne[s]..Cellule[5] = MaRequête11.ADRESSE1
DocExcel..Ligne[s]..Cellule[6] = MaRequête11.COP
DocExcel..Ligne[s]..Cellule[7] = MaRequête11.VILLE
DocExcel..Ligne[s]..Cellule[8] = MaRequête11.TOTAL
DocExcel..Ligne[s]..Cellule[9] = MaRequête11.GARANTIE
DocExcel..Ligne[s]..Cellule[10] = MaRequête11.TERMINE
DocExcel..Ligne[s]..Cellule[11] = MaRequête11.NUMFAC
DocExcel..Ligne[s]..Cellule[12] = MaRequête11.INTFAC
DocExcel..Ligne[s]..Cellule[13] = MaRequête11.toperats = s + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête11)
FIN
//—————————— Fin de l’enregistrement de la feuille 11 ——————————//############################## On se place sur la feuille 12 ##############################
DocExcel..Feuille = 12MaRequête12 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête12, »SELECT FA4_PROSPECT.NOM,FA4_PROSPECT.ADRESSE1,FA4_PROSPECT.COP,FA4_PROSPECT.VILLE,FA4_PROSPECT.TEL,FA4_PROSPECT.EMAIL,FA4_PROSPECT.CONTACT,FA4_PROSPECT.TELV,FA4_PROSPECT.VISE,FA4_PROSPECT.CHAMPT1,FA4_PROSPECT.DATE_CREATION,FA4_PROSPECT.IDFA4_PROSPECT,FA4_PROSPECT.CATEG FROM FA4_PROSPECT WHERE FA4_PROSPECT.INTER1=0″) ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête12)
t est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Nom »
DocExcel..Ligne[1]..Cellule[2] = « Adresse »
DocExcel..Ligne[1]..Cellule[3] = « Code postal »
DocExcel..Ligne[1]..Cellule[4] = « Ville »
DocExcel..Ligne[1]..Cellule[5] = « Téléphone »
DocExcel..Ligne[1]..Cellule[6] = « Email »
DocExcel..Ligne[1]..Cellule[7] = « Contact »
DocExcel..Ligne[1]..Cellule[8] = « Téléphone contact »
DocExcel..Ligne[1]..Cellule[9] = « Date de création »TANTQUE PAS HEnDehors(MaRequête12)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[t]..Cellule[1] = MaRequête12.NOM
DocExcel..Ligne[t]..Cellule[2] = MaRequête12.ADRESSE1
DocExcel..Ligne[t]..Cellule[3] = MaRequête12.COP
DocExcel..Ligne[t]..Cellule[4] = MaRequête12.VILLE
DocExcel..Ligne[t]..Cellule[5] = MaRequête12.TEL
DocExcel..Ligne[t]..Cellule[6] = MaRequête12.EMAIL
DocExcel..Ligne[t]..Cellule[7] = MaRequête12.CONTACT
DocExcel..Ligne[t]..Cellule[8] = MaRequête12.TELV
DocExcel..Ligne[t]..Cellule[9] = DateVersChaîne(MaRequête12.DATE_CREATION, »JJ/MM/AAAA »)t = t + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête12)
FIN
//—————————— Fin de l’enregistrement de la feuille 12 ——————————//############################## On se place sur la feuille 13 ##############################
DocExcel..Feuille = 13MaRequête13 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête13, »SELECT FACTURE.DATE,FACTURE.NOM,FACTURE.SUJET,FA4_DOC_AFFECTATION.DESCRIPTION,FACTURE.NUMERO,FACTURE.ADRESSE1,CLIENT.COP,FACTURE.VILLE,COD_SYNTHESE_DOC.MO_TOTAL_REVIENT,COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC-COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC,SUIFAC.PAYE,COD_SYNTHESE_DOC.TOTAL_TTC-SUIFAC.PAYE,FACTURE.NUM_SITUATION,FACTURE.INTFACT,FACTURE.INT_ACOMPTE,FACTURE.TOPERAT,FACTURE.RGLMT,FACTURE.DATEECH FROM FACTURE,FA4_DOC_AFFECTATION,CLIENT,COD_SYNTHESE_DOC,SUIFAC WHERE FACTURE.ETAB=’01’ AND COD_SYNTHESE_DOC.IDCOD_PROJET=-1 AND FACTURE.TOPERAT=FA4_DOC_AFFECTATION.TOPERAT(+) AND FACTURE.CODE=CLIENT.CODE(+) AND (FACTURE.FACLEUNIK=COD_SYNTHESE_DOC.ID_DOC(+) AND COD_SYNTHESE_DOC.TYPE_DOC=4) AND FACTURE.NUMERO=SUIFAC.NUMFAC(+) ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête13)
u est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Affectation »
DocExcel..Ligne[1]..Cellule[2] = « N° facture »
DocExcel..Ligne[1]..Cellule[3] = « Date »
DocExcel..Ligne[1]..Cellule[4] = « Sujet »
DocExcel..Ligne[1]..Cellule[5] = « Nom »
DocExcel..Ligne[1]..Cellule[6] = « Adresse »
DocExcel..Ligne[1]..Cellule[7] = « Code postal »
DocExcel..Ligne[1]..Cellule[8] = « Ville »
DocExcel..Ligne[1]..Cellule[9] = « Total HT »
DocExcel..Ligne[1]..Cellule[10] = « Total TVA »
DocExcel..Ligne[1]..Cellule[11] = « Total TTC »
DocExcel..Ligne[1]..Cellule[12] = « Date d’échéance »
DocExcel..Ligne[1]..Cellule[13] = « Déjà perçu »
DocExcel..Ligne[1]..Cellule[14] = « Reste à payer »TANTQUE PAS HEnDehors(MaRequête13)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[u]..Cellule[1] = MaRequête13.DESCRIPTION
DocExcel..Ligne[u]..Cellule[2] = MaRequête13.NUMERO
DocExcel..Ligne[u]..Cellule[3] = DateVersChaîne(MaRequête13.DATE, »JJ/MM/AAAA »)
DocExcel..Ligne[u]..Cellule[4] = MaRequête13.SUJET
DocExcel..Ligne[u]..Cellule[5] = MaRequête13.NOM
DocExcel..Ligne[u]..Cellule[6] = MaRequête13.ADRESSE1
DocExcel..Ligne[u]..Cellule[7] = MaRequête13.COP
DocExcel..Ligne[u]..Cellule[8] = MaRequête13.VILLE
DocExcel..Ligne[u]..Cellule[9] = MaRequête13.TOTAL_HT
DocExcel..Ligne[u]..Cellule[10] = MaRequête13.TOTAL_TTC-MaRequête13.TOTAL_HT
DocExcel..Ligne[u]..Cellule[11] = MaRequête13.TOTAL_TTC
DocExcel..Ligne[u]..Cellule[12] = DateVersChaîne(MaRequête13.DATEECH, »JJ/MM/AAAA »)
DocExcel..Ligne[u]..Cellule[13] = MaRequête13.PAYE
DocExcel..Ligne[u]..Cellule[14] = MaRequête13.TOTAL_TTC-MaRequête13.PAYEu = u + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête13)
FIN
//—————————— Fin de l’enregistrement de la feuille 13 ——————————//############################## On se place sur la feuille 14 ##############################
DocExcel..Feuille = 14MaRequête14 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête14, »SELECT FACTURE.DATE,FACTURE.NOM,FACTURE.SUJET,FA4_DOC_AFFECTATION.DESCRIPTION,FACTURE.NUMERO,FACTURE.ADRESSE1,CLIENT.COP,FACTURE.VILLE,COD_SYNTHESE_DOC.MO_TOTAL_REVIENT,COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC-COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC,SUIFAC.PAYE,COD_SYNTHESE_DOC.TOTAL_TTC-SUIFAC.PAYE,FACTURE.NUM_SITUATION,FACTURE.INTFACT,FACTURE.INT_ACOMPTE,FACTURE.TOPERAT,FACTURE.RGLMT,FACTURE.DATEECH FROM FACTURE,FA4_DOC_AFFECTATION,CLIENT,COD_SYNTHESE_DOC,SUIFAC WHERE FACTURE.ETAB=’01’ AND COD_SYNTHESE_DOC.IDCOD_PROJET=-1 AND FACTURE.TOPERAT=FA4_DOC_AFFECTATION.TOPERAT(+) AND FACTURE.CODE=CLIENT.CODE(+) AND (FACTURE.FACLEUNIK=COD_SYNTHESE_DOC.ID_DOC(+) AND COD_SYNTHESE_DOC.TYPE_DOC=4) AND FACTURE.NUMERO=SUIFAC.NUMFAC(+) ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête14)
v est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Affectation »
DocExcel..Ligne[1]..Cellule[2] = « N° facture »
DocExcel..Ligne[1]..Cellule[3] = « Date »
DocExcel..Ligne[1]..Cellule[4] = « Sujet »
DocExcel..Ligne[1]..Cellule[5] = « Nom »
DocExcel..Ligne[1]..Cellule[6] = « Adresse »
DocExcel..Ligne[1]..Cellule[7] = « Code postal »
DocExcel..Ligne[1]..Cellule[8] = « Ville »
DocExcel..Ligne[1]..Cellule[9] = « Total HT »
DocExcel..Ligne[1]..Cellule[10] = « Total TVA »
DocExcel..Ligne[1]..Cellule[11] = « Total TTC »
DocExcel..Ligne[1]..Cellule[12] = « Date d’échéance »
DocExcel..Ligne[1]..Cellule[13] = « Déjà perçu »
DocExcel..Ligne[1]..Cellule[14] = « Reste à payer »TANTQUE PAS HEnDehors(MaRequête14)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[v]..Cellule[1] = MaRequête14.DESCRIPTION
DocExcel..Ligne[v]..Cellule[2] = MaRequête14.NUMERO
DocExcel..Ligne[v]..Cellule[3] = DateVersChaîne(MaRequête14.DATE, »JJ/MM/AAAA »)
DocExcel..Ligne[v]..Cellule[4] = MaRequête14.SUJET
DocExcel..Ligne[v]..Cellule[5] = MaRequête14.NOM
DocExcel..Ligne[v]..Cellule[6] = MaRequête14.ADRESSE1
DocExcel..Ligne[v]..Cellule[7] = MaRequête14.COP
DocExcel..Ligne[v]..Cellule[8] = MaRequête14.VILLE
DocExcel..Ligne[v]..Cellule[9] = MaRequête14.TOTAL_HT
DocExcel..Ligne[v]..Cellule[10] = MaRequête14.TOTAL_TTC-MaRequête14.TOTAL_HT
DocExcel..Ligne[v]..Cellule[11] = MaRequête14.TOTAL_TTC
DocExcel..Ligne[v]..Cellule[12] = DateVersChaîne(MaRequête14.DATEECH, »JJ/MM/AAAA »)
DocExcel..Ligne[v]..Cellule[13] = MaRequête14.PAYE
DocExcel..Ligne[v]..Cellule[14] = MaRequête14.TOTAL_TTC-MaRequête14.PAYEv = v + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête14)
FIN
//—————————— Fin de l’enregistrement de la feuille 14 ——————————//############################## On se place sur la feuille 15 ##############################
DocExcel..Feuille = 15MaRequête15 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête15, »SELECT FACTURE.DATE,FACTURE.NOM,FACTURE.SUJET,FA4_DOC_AFFECTATION.DESCRIPTION,FACTURE.NUMERO,FACTURE.ADRESSE1,CLIENT.COP,FACTURE.VILLE,COD_SYNTHESE_DOC.MO_TOTAL_REVIENT,COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC-COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC,SUIFAC.PAYE,COD_SYNTHESE_DOC.TOTAL_TTC-SUIFAC.PAYE,FACTURE.NUM_SITUATION,FACTURE.INTFACT,FACTURE.INT_ACOMPTE,FACTURE.TOPERAT,FACTURE.RGLMT,FACTURE.DATEECH FROM FACTURE,FA4_DOC_AFFECTATION,CLIENT,COD_SYNTHESE_DOC,SUIFAC WHERE FACTURE.ETAB=’01’ AND COD_SYNTHESE_DOC.IDCOD_PROJET=-1 AND FACTURE.TOPERAT=FA4_DOC_AFFECTATION.TOPERAT(+) AND FACTURE.CODE=CLIENT.CODE(+) AND (FACTURE.FACLEUNIK=COD_SYNTHESE_DOC.ID_DOC(+) AND COD_SYNTHESE_DOC.TYPE_DOC=4) AND FACTURE.NUMERO=SUIFAC.NUMFAC(+) ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête15)
w est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Affectation »
DocExcel..Ligne[1]..Cellule[2] = « N° facture »
DocExcel..Ligne[1]..Cellule[3] = « Date »
DocExcel..Ligne[1]..Cellule[4] = « Sujet »
DocExcel..Ligne[1]..Cellule[5] = « Nom »
DocExcel..Ligne[1]..Cellule[6] = « Adresse »
DocExcel..Ligne[1]..Cellule[7] = « Code postal »
DocExcel..Ligne[1]..Cellule[8] = « Ville »
DocExcel..Ligne[1]..Cellule[9] = « Total HT »
DocExcel..Ligne[1]..Cellule[10] = « Total TVA »
DocExcel..Ligne[1]..Cellule[11] = « Total TTC »
DocExcel..Ligne[1]..Cellule[12] = « Date d’échéance »
DocExcel..Ligne[1]..Cellule[13] = « Déjà perçu »
DocExcel..Ligne[1]..Cellule[14] = « Reste à payer »TANTQUE PAS HEnDehors(MaRequête15)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[w]..Cellule[1] = MaRequête15.DESCRIPTION
DocExcel..Ligne[w]..Cellule[2] = MaRequête15.NUMERO
DocExcel..Ligne[w]..Cellule[3] = DateVersChaîne(MaRequête15.DATE, »JJ/MM/AAAA »)
DocExcel..Ligne[w]..Cellule[4] = MaRequête15.SUJET
DocExcel..Ligne[w]..Cellule[5] = MaRequête15.NOM
DocExcel..Ligne[w]..Cellule[6] = MaRequête15.ADRESSE1
DocExcel..Ligne[w]..Cellule[7] = MaRequête15.COP
DocExcel..Ligne[w]..Cellule[8] = MaRequête15.VILLE
DocExcel..Ligne[w]..Cellule[9] = MaRequête15.TOTAL_HT
DocExcel..Ligne[w]..Cellule[10] = MaRequête15.TOTAL_TTC-MaRequête15.TOTAL_HT
DocExcel..Ligne[w]..Cellule[11] = MaRequête15.TOTAL_TTC
DocExcel..Ligne[w]..Cellule[12] = DateVersChaîne(MaRequête15.DATEECH, »JJ/MM/AAAA »)
DocExcel..Ligne[w]..Cellule[13] = MaRequête15.PAYE
DocExcel..Ligne[w]..Cellule[14] = MaRequête15.TOTAL_TTC-MaRequête15.PAYEw = w + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête15)
FIN
//—————————— Fin de l’enregistrement de la feuille 15 ——————————//############################## On se place sur la feuille 16 ##############################
DocExcel..Feuille = 16MaRequête16 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête16, »SELECT FACTURE.DATE,FACTURE.NOM,FACTURE.SUJET,FA4_DOC_AFFECTATION.DESCRIPTION,FACTURE.NUMERO,FACTURE.ADRESSE1,CLIENT.COP,FACTURE.VILLE,COD_SYNTHESE_DOC.MO_TOTAL_REVIENT,COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC-COD_SYNTHESE_DOC.TOTAL_HT,COD_SYNTHESE_DOC.TOTAL_TTC,SUIFAC.PAYE,COD_SYNTHESE_DOC.TOTAL_TTC-SUIFAC.PAYE,FACTURE.NUM_SITUATION,FACTURE.INTFACT,FACTURE.INT_ACOMPTE,FACTURE.TOPERAT,FACTURE.RGLMT,FACTURE.DATEECH FROM FACTURE,FA4_DOC_AFFECTATION,CLIENT,COD_SYNTHESE_DOC,SUIFAC WHERE FACTURE.INT_ACOMPTE=1 AND FACTURE.INT_SITUATION=0 AND INT_TICKET_CAISSE=0 AND FACTURE.ETAB=’01’ AND COD_SYNTHESE_DOC.IDCOD_PROJET=-1 AND FACTURE.TOPERAT=FA4_DOC_AFFECTATION.TOPERAT(+) AND FACTURE.CODE=CLIENT.CODE(+) AND (FACTURE.FACLEUNIK=COD_SYNTHESE_DOC.ID_DOC(+) AND COD_SYNTHESE_DOC.TYPE_DOC=4) AND FACTURE.NUMERO=SUIFAC.NUMFAC(+) ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête16)
x est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Date »
DocExcel..Ligne[1]..Cellule[2] = « Nom »
DocExcel..Ligne[1]..Cellule[3] = « Sujet »
DocExcel..Ligne[1]..Cellule[4] = « Affectation »
DocExcel..Ligne[1]..Cellule[5] = « N° facture »
DocExcel..Ligne[1]..Cellule[6] = « Adresse »
DocExcel..Ligne[1]..Cellule[7] = « Code postal »
DocExcel..Ligne[1]..Cellule[8] = « Ville »
DocExcel..Ligne[1]..Cellule[9] = « Total H.T. »
DocExcel..Ligne[1]..Cellule[10] = « Total TVA »
DocExcel..Ligne[1]..Cellule[11] = « Total TTC »
DocExcel..Ligne[1]..Cellule[12] = « Déjà perçu »
DocExcel..Ligne[1]..Cellule[13] = « Reste à payer »
DocExcel..Ligne[1]..Cellule[14] = « Date d’échéance »TANTQUE PAS HEnDehors(MaRequête16)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[x]..Cellule[1] = DateVersChaîne(MaRequête16.DATE, »JJ/MM/AAAA »)
DocExcel..Ligne[x]..Cellule[2] = MaRequête16.NOM
DocExcel..Ligne[x]..Cellule[3] = MaRequête16.SUJET
DocExcel..Ligne[x]..Cellule[4] = MaRequête16.DESCRIPTION
DocExcel..Ligne[x]..Cellule[5] = MaRequête16.NUMERO
DocExcel..Ligne[x]..Cellule[6] = MaRequête16.ADRESSE1
DocExcel..Ligne[x]..Cellule[7] = MaRequête16.COP
DocExcel..Ligne[x]..Cellule[8] = MaRequête16.VILLE
DocExcel..Ligne[x]..Cellule[9] = MaRequête16.TOTAL_HT
DocExcel..Ligne[x]..Cellule[10] = MaRequête16.TOTAL_TTC-MaRequête16.TOTAL_HT
DocExcel..Ligne[x]..Cellule[11] = MaRequête16.TOTAL_TTC
DocExcel..Ligne[x]..Cellule[12] = MaRequête16.PAYE
DocExcel..Ligne[x]..Cellule[13] = MaRequête16.TOTAL_TTC-MaRequête16.PAYE
DocExcel..Ligne[x]..Cellule[14] = DateVersChaîne(MaRequête16.DATEECH, »JJ/MM/AAAA »)x = x + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête16)
FIN
//—————————— Fin de l’enregistrement de la feuille 16 ——————————//############################## On se place sur la feuille 17 ##############################
DocExcel..Feuille = 17MaRequête17 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête17, »select nomop, sum(nbrheure) as nb_heures_totales from SUIVIOP group by nomop ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête17)
y est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « TECHNICIEN »
DocExcel..Ligne[1]..Cellule[2] = « Nb heures totales »TANTQUE PAS HEnDehors(MaRequête17)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[y]..Cellule[1] = MaRequête17.nomop
DocExcel..Ligne[y]..Cellule[2] = MaRequête17.nb_heures_totalesy = y + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête17)
FIN
//—————————— Fin de l’enregistrement de la feuille 17 ——————————//############################## On se place sur la feuille 18 ##############################
DocExcel..Feuille = 18MaRequête18 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête18, »select nomop, nbrheure, dateinter, type, commentaire, document, duree_deplac, duree_inter, heure_dep, heure_arrive, heure_fin, cout_horaire from suiviop where document = ‘REPARATION’ order by nomop ASC ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête18)
z est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « TECHNICIEN »
DocExcel..Ligne[1]..Cellule[2] = « Nb heures »
DocExcel..Ligne[1]..Cellule[3] = « Date inter »
DocExcel..Ligne[1]..Cellule[4] = « Type »
DocExcel..Ligne[1]..Cellule[5] = « Commentaire »
DocExcel..Ligne[1]..Cellule[6] = « Document »
DocExcel..Ligne[1]..Cellule[7] = « Durée déplacement »
DocExcel..Ligne[1]..Cellule[8] = « Durée inter »
DocExcel..Ligne[1]..Cellule[9] = « Heure départ »
DocExcel..Ligne[1]..Cellule[10] = « Heure arrivée »
DocExcel..Ligne[1]..Cellule[11] = « Heure fin »
DocExcel..Ligne[1]..Cellule[12] = « Coût horaire »TANTQUE PAS HEnDehors(MaRequête18)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[z]..Cellule[1] = MaRequête18.nomop
DocExcel..Ligne[z]..Cellule[2] = MaRequête18.nbrheure
DocExcel..Ligne[z]..Cellule[3] = DateVersChaîne(MaRequête18.DATEinter, »JJ/MM/AAAA »)
DocExcel..Ligne[z]..Cellule[4] = MaRequête18.type
DocExcel..Ligne[z]..Cellule[5] = MaRequête18.commentaire
DocExcel..Ligne[z]..Cellule[6] = MaRequête18.document
DocExcel..Ligne[z]..Cellule[7] = MaRequête18.duree_deplac
DocExcel..Ligne[z]..Cellule[8] = MaRequête18.duree_inter
DocExcel..Ligne[z]..Cellule[9] = MaRequête18.heure_dep
DocExcel..Ligne[z]..Cellule[10] = MaRequête18.heure_arrive
DocExcel..Ligne[z]..Cellule[11] = MaRequête18.heure_fin
DocExcel..Ligne[z]..Cellule[12] = MaRequête18.cout_horairez = z + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête18)
FIN
//—————————— Fin de l’enregistrement de la feuille 18 ——————————//############################## On se place sur la feuille 19 ##############################
DocExcel..Feuille = 19MaRequête19 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête19, »select nomop, nbrheure, dateinter, type, commentaire, document, duree_deplac, duree_inter, heure_dep, heure_arrive, heure_fin, cout_horaire from suiviop where document = ‘PROJET’ order by nomop ASC ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête19)
zz est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « TECHNICIEN »
DocExcel..Ligne[1]..Cellule[2] = « Nb heures »
DocExcel..Ligne[1]..Cellule[3] = « Date inter »
DocExcel..Ligne[1]..Cellule[4] = « Type »
DocExcel..Ligne[1]..Cellule[5] = « Commentaire »
DocExcel..Ligne[1]..Cellule[6] = « Document »
DocExcel..Ligne[1]..Cellule[7] = « Durée déplacement »
DocExcel..Ligne[1]..Cellule[8] = « Durée inter »
DocExcel..Ligne[1]..Cellule[9] = « Heure départ »
DocExcel..Ligne[1]..Cellule[10] = « Heure arrivée »
DocExcel..Ligne[1]..Cellule[11] = « Heure fin »
DocExcel..Ligne[1]..Cellule[12] = « Coût horaire »TANTQUE PAS HEnDehors(MaRequête19)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[zz]..Cellule[1] = MaRequête19.nomop
DocExcel..Ligne[zz]..Cellule[2] = MaRequête19.nbrheure
DocExcel..Ligne[zz]..Cellule[3] = DateVersChaîne(MaRequête19.DATEinter, »JJ/MM/AAAA »)
DocExcel..Ligne[zz]..Cellule[4] = MaRequête19.type
DocExcel..Ligne[zz]..Cellule[5] = MaRequête19.commentaire
DocExcel..Ligne[zz]..Cellule[6] = MaRequête19.document
DocExcel..Ligne[zz]..Cellule[7] = MaRequête19.duree_deplac
DocExcel..Ligne[zz]..Cellule[8] = MaRequête19.duree_inter
DocExcel..Ligne[zz]..Cellule[9] = MaRequête19.heure_dep
DocExcel..Ligne[zz]..Cellule[10] = MaRequête19.heure_arrive
DocExcel..Ligne[zz]..Cellule[11] = MaRequête19.heure_fin
DocExcel..Ligne[zz]..Cellule[12] = MaRequête19.cout_horairezz = zz + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête19)
FIN
//—————————— Fin de l’enregistrement de la feuille 19 ——————————//############################## On se place sur la feuille 20 ##############################
DocExcel..Feuille = 20MaRequête20 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête20, »select nomop, nbrheure, dateinter, type, commentaire, document, duree_deplac, duree_inter, heure_dep, heure_arrive, heure_fin, cout_horaire from suiviop where document = ‘FACTURE’ order by nomop ASC ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête20)
zzz est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « TECHNICIEN »
DocExcel..Ligne[1]..Cellule[2] = « Nb heures »
DocExcel..Ligne[1]..Cellule[3] = « Date inter »
DocExcel..Ligne[1]..Cellule[4] = « Type »
DocExcel..Ligne[1]..Cellule[5] = « Commentaire »
DocExcel..Ligne[1]..Cellule[6] = « Document »
DocExcel..Ligne[1]..Cellule[7] = « Durée déplacement »
DocExcel..Ligne[1]..Cellule[8] = « Durée inter »
DocExcel..Ligne[1]..Cellule[9] = « Heure départ »
DocExcel..Ligne[1]..Cellule[10] = « Heure arrivée »
DocExcel..Ligne[1]..Cellule[11] = « Heure fin »
DocExcel..Ligne[1]..Cellule[12] = « Coût horaire »TANTQUE PAS HEnDehors(MaRequête20)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[zzz]..Cellule[1] = MaRequête20.nomop
DocExcel..Ligne[zzz]..Cellule[2] = MaRequête20.nbrheure
DocExcel..Ligne[zzz]..Cellule[3] = DateVersChaîne(MaRequête20.DATEinter, »JJ/MM/AAAA »)
DocExcel..Ligne[zzz]..Cellule[4] = MaRequête20.type
DocExcel..Ligne[zzz]..Cellule[5] = MaRequête20.commentaire
DocExcel..Ligne[zzz]..Cellule[6] = MaRequête20.document
DocExcel..Ligne[zzz]..Cellule[7] = MaRequête20.duree_deplac
DocExcel..Ligne[zzz]..Cellule[8] = MaRequête20.duree_inter
DocExcel..Ligne[zzz]..Cellule[9] = MaRequête20.heure_dep
DocExcel..Ligne[zzz]..Cellule[10] = MaRequête20.heure_arrive
DocExcel..Ligne[zzz]..Cellule[11] = MaRequête20.heure_fin
DocExcel..Ligne[zzz]..Cellule[12] = MaRequête20.cout_horairezzz = zzz + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête20)
FIN
//—————————— Fin de l’enregistrement de la feuille 20 ——————————//############################## On se place sur la feuille 21 ##############################
DocExcel..Feuille = 21MaRequête21 est une Source de Données
SI PAS HExécuteRequêteSQL(MaRequête21, »select nomop, nbrheure, dateinter, type, commentaire, document, duree_deplac, duree_inter, heure_dep, heure_arrive, heure_fin, cout_horaire from suiviop where document = ‘TPSEFF’ order by nomop ASC ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête21)
zzzz est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « TECHNICIEN »
DocExcel..Ligne[1]..Cellule[2] = « Nb heures »
DocExcel..Ligne[1]..Cellule[3] = « Date inter »
DocExcel..Ligne[1]..Cellule[4] = « Type »
DocExcel..Ligne[1]..Cellule[5] = « Commentaire »
DocExcel..Ligne[1]..Cellule[6] = « Document »
DocExcel..Ligne[1]..Cellule[7] = « Durée déplacement »
DocExcel..Ligne[1]..Cellule[8] = « Durée inter »
DocExcel..Ligne[1]..Cellule[9] = « Heure départ »
DocExcel..Ligne[1]..Cellule[10] = « Heure arrivée »
DocExcel..Ligne[1]..Cellule[11] = « Heure fin »
DocExcel..Ligne[1]..Cellule[12] = « Coût horaire »TANTQUE PAS HEnDehors(MaRequête21)
// Traitement sur l’enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[zzzz]..Cellule[1] = MaRequête21.nomop
DocExcel..Ligne[zzzz]..Cellule[2] = MaRequête21.nbrheure
DocExcel..Ligne[zzzz]..Cellule[3] = DateVersChaîne(MaRequête21.DATEinter, »JJ/MM/AAAA »)
DocExcel..Ligne[zzzz]..Cellule[4] = MaRequête21.type
DocExcel..Ligne[zzzz]..Cellule[5] = MaRequête21.commentaire
DocExcel..Ligne[zzzz]..Cellule[6] = MaRequête21.document
DocExcel..Ligne[zzzz]..Cellule[7] = MaRequête21.duree_deplac
DocExcel..Ligne[zzzz]..Cellule[8] = MaRequête21.duree_inter
DocExcel..Ligne[zzzz]..Cellule[9] = MaRequête21.heure_dep
DocExcel..Ligne[zzzz]..Cellule[10] = MaRequête21.heure_arrive
DocExcel..Ligne[zzzz]..Cellule[11] = MaRequête21.heure_fin
DocExcel..Ligne[zzzz]..Cellule[12] = MaRequête21.cout_horairezzzz = zzzz + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête21)
FIN
//—————————— Fin de l’enregistrement de la feuille 21 ——————————//############################## On se place sur la feuille 22 ##############################
DocExcel..Feuille = 22MaRequête22 est une Source de Données
MaRequête22b est une Source de DonnéesSI PAS HExécuteRequêteSQL(MaRequête22, »SELECT reference, date, fourn, codetva, design, prixv, prixa, prixp, reffourn, qte, artsup, int_sans_mvt_stock, fiche_supprime, idcod_rubrique FROM ARTICLE where qte > 0 and artsup <> 1 and int_sans_mvt_stock <> 1 and fiche_supprime <> 1 and idcod_rubrique = 4″) ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête22)
ab est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Référence »
DocExcel..Ligne[1]..Cellule[2] = « Date »
DocExcel..Ligne[1]..Cellule[3] = « Fournisseur »
DocExcel..Ligne[1]..Cellule[4] = « TVA »
DocExcel..Ligne[1]..Cellule[5] = « Désignation »
DocExcel..Ligne[1]..Cellule[6] = « Prix d’achat »
DocExcel..Ligne[1]..Cellule[7] = « Prix de revient »
DocExcel..Ligne[1]..Cellule[8] = « Prix de vente »
DocExcel..Ligne[1]..Cellule[9] = « Réf fourn. »
DocExcel..Ligne[1]..Cellule[10] = « Qté en stock »TANTQUE PAS HEnDehors(MaRequête22)
// Traitement sur l’enregistrement de la requête.
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[ab]..Cellule[1] = MaRequête22.reference
DocExcel..Ligne[ab]..Cellule[2] = DateVersChaîne(MaRequête22.date, »JJ/MM/AAAA »)
DocExcel..Ligne[ab]..Cellule[3] = MaRequête22.fourn
DocExcel..Ligne[ab]..Cellule[4] = MaRequête22.codetva
DocExcel..Ligne[ab]..Cellule[5] = MaRequête22.design
DocExcel..Ligne[ab]..Cellule[6] = MaRequête22.prixp
DocExcel..Ligne[ab]..Cellule[7] = MaRequête22.prixa
DocExcel..Ligne[ab]..Cellule[8] = MaRequête22.prixv
DocExcel..Ligne[ab]..Cellule[9] = MaRequête22.reffourn
DocExcel..Ligne[ab]..Cellule[10] = MaRequête22.qteab = ab + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête22)
FIN
//—————————— Fin de l’enregistrement de la feuille 22 ——————————//############################## On se place sur la feuille 23 ##############################
DocExcel..Feuille = 23MaRequête23 est une Source de Données
MaRequête23b est une Source de DonnéesSI PAS HExécuteRequêteSQL(MaRequête23, »select nomop, commentaire, sum(nbrheure) as nb_heures_totales from suiviop where commentaire = ‘MALADIE’ group by nomop, commentaire, nbrheure ») ALORS
Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())
RETOUR
FIN// Lecture du premier enregistrement de la requête
HLitPremier(MaRequête23)
ac est un entier = 2DocExcel..Ligne[1]..Cellule[1] = « Nom du salarié »
DocExcel..Ligne[1]..Cellule[2] = « Commentaire »
DocExcel..Ligne[1]..Cellule[3] = « Nb heures totales »TANTQUE PAS HEnDehors(MaRequête23)
// Traitement sur l’enregistrement de la requête.
// Accès aux rubriques par MaRequête.<Nom rubrique>DocExcel..Ligne[ac]..Cellule[1] = MaRequête23.nomop
DocExcel..Ligne[ac]..Cellule[2] = MaRequête23.commentaire
DocExcel..Ligne[ac]..Cellule[3] = MaRequête23.nb_heures_totalesac = ac + 1
…
// Lecture de l’enregistrement suivant
HLitSuivant(MaRequête23)
FIN
//—————————— Fin de l’enregistrement de la feuille 23 ——————————// Sauvegarde du document
xlsSauve(DocExcel, »C:\CODIAL-PGI\CODIAL-STATS\Analyses.xls »)// Fermeture du document
xlsFerme(DocExcel)