{"id":8313,"date":"2019-08-04T18:24:02","date_gmt":"2019-08-04T16:24:02","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=8313"},"modified":"2021-03-28T10:51:18","modified_gmt":"2021-03-28T08:51:18","slug":"prevention","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=8313","title":{"rendered":"SQL : d\u00e9tecter les achats comptabilis\u00e9s en double"},"content":{"rendered":"

La supervision des comptabilit\u00e9s d’un groupe vise \u00e0 r\u00e9pondre \u00e0 plusieurs objectifs dont la pr\u00e9vention des risques d’erreurs et de fraudes.<\/p>\n

Une des erreurs les plus communes en comptabilit\u00e9 est la double comptabilisation de factures fournisseurs… avec le risque de double paiement qui s’ensuit. Si les proc\u00e9dures sont charg\u00e9es de limiter ce risque de double comptabilisation, la syst\u00e9misation du contr\u00f4le compl\u00e8te plus efficacement le dispositif de pr\u00e9vention.<\/p>\n

SELECT Requ\u00eate1.CompteDeCodeEntit\u00e9 AS NbOccurrences, ECRITURES.CodeEntit\u00e9, ECRITURES.JournalCode, ECRITURES.JournalLib, ECRITURES.EcritureNum, ECRITURES.EcritureDate, ECRITURES.CompteNum, ECRITURES.CompteLib, ECRITURES.CompteAuxNum, ECRITURES.CompteAuxLib, ECRITURES.Pi\u00e8ceR\u00e9f, ECRITURES.Pi\u00e8ceDate, ECRITURES.EcritureLib, ECRITURES.D\u00e9bit, ECRITURES.Cr\u00e9dit, ECRITURES.ValidDate, ECRITURES.Solde, ECRITURES.AAAAMM\r\nINTO ACHATS_DOUBLONS IN 'C:\\ANA-FEC.accdb'\r\nFROM (SELECT ECRITURES.CodeEntit\u00e9, ECRITURES.CompteAuxNum, ECRITURES.Pi\u00e8ceR\u00e9f, ECRITURES.Solde, ECRITURES.TypeJournal, Count(ECRITURES.CodeEntit\u00e9) AS CompteDeCodeEntit\u00e9 FROM ECRITURES\r\nWHERE ((Not (ECRITURES.CompteAuxNum) Is Null) AND ((ECRITURES.TypeJournal)=\"ACHATS\"))\r\nGROUP BY ECRITURES.CodeEntit\u00e9, ECRITURES.CompteAuxNum, ECRITURES.Pi\u00e8ceR\u00e9f, ECRITURES.Solde, ECRITURES.TypeJournal\r\nHAVING ((Count(ECRITURES.CodeEntit\u00e9))<>1)) AS Requ\u00eate1 INNER JOIN ECRITURES ON (Requ\u00eate1.TypeJournal = ECRITURES.TypeJournal) AND (Requ\u00eate1.Solde = ECRITURES.Solde) AND (Requ\u00eate1.Pi\u00e8ceR\u00e9f = ECRITURES.Pi\u00e8ceR\u00e9f) AND (Requ\u00eate1.CompteAuxNum = ECRITURES.CompteAuxNum) AND (Requ\u00eate1.CodeEntit\u00e9 = ECRITURES.CodeEntit\u00e9)\r\nORDER BY Requ\u00eate1.CodeEntit\u00e9, Requ\u00eate1.CompteAuxNum, Requ\u00eate1.Pi\u00e8ceR\u00e9f, Requ\u00eate1.Solde;<\/pre>\n
L’automatisation de la d\u00e9tection des doublons peut efficacement \u00eatre mise en \u0153uvre \u00e0 l’aide d’une requ\u00eate SQL.<\/p>\n
La requ\u00eate se d\u00e9compose ainsi :<\/p>\n
Une sous-requ\u00eate (Requ\u00eate1<\/em>) recherche les lignes d’\u00e9criture d’achats ((ECRITURES.TypeJournal)=”ACHATS”)<\/em> contenant un code tiers (Not (ECRITURES.CompteAuxNum) Is Null)<\/em> et compte (Count<\/em>) le nombre de lignes regroupant (GROUP BY<\/em><\/a>) chaque champ Code entit\u00e9 \/ Code tiers \/ R\u00e9f\u00e9rence pi\u00e8ce \/ Solde (ce contr\u00f4le \u00e9tant op\u00e9r\u00e9 simultan\u00e9ment pour l’ensemble des entit\u00e9s du groupe) (est donc identifi\u00e9 comme doublon un achat op\u00e9r\u00e9 sur un m\u00eame fournisseur, justifi\u00e9 par un document comptable portant la m\u00eame r\u00e9f\u00e9rence et le m\u00eame montant<\/strong>) : GROUP BY ECRITURES.CodeEntit\u00e9, ECRITURES.CompteAuxNum, ECRITURES.Pi\u00e8ceR\u00e9f, ECRITURES.Solde, ECRITURES.TypeJournal<\/em>. Seuls les r\u00e9sultats en doublon (ou plus) sont repris par la requ\u00eate (HAVING ((Count(ECRITURES.CodeEntit\u00e9))<>1)<\/em>).<\/p>\n
SELECT ECRITURES.CodeEntit\u00e9, ECRITURES.CompteAuxNum, ECRITURES.Pi\u00e8ceR\u00e9f, ECRITURES.Solde, ECRITURES.TypeJournal, Count(ECRITURES.CodeEntit\u00e9) AS CompteDeCodeEntit\u00e9 FROM ECRITURES WHERE ((Not (ECRITURES.CompteAuxNum) Is Null) AND ((ECRITURES.TypeJournal)=\"ACHATS\"))\r\nGROUP BY ECRITURES.CodeEntit\u00e9, ECRITURES.CompteAuxNum, ECRITURES.Pi\u00e8ceR\u00e9f, ECRITURES.Solde, ECRITURES.TypeJournal\r\nHAVING ((Count(ECRITURES.CodeEntit\u00e9))<>1)) AS Requ\u00eate1<\/pre>\n
Puis, \u00e0 partir de cette sous-requ\u00eate, sont extraites l’ensemble des lignes d’\u00e9critures qui apparaissent en doublon (INNER JOIN ECRITURES ON (Requ\u00eate1.TypeJournal = ECRITURES.TypeJournal) AND (Requ\u00eate1.Solde = ECRITURES.Solde) AND (Requ\u00eate1.Pi\u00e8ceR\u00e9f = ECRITURES.Pi\u00e8ceR\u00e9f) AND (Requ\u00eate1.CompteAuxNum = ECRITURES.CompteAuxNum) AND (Requ\u00eate1.CodeEntit\u00e9 = ECRITURES.CodeEntit\u00e9)<\/em>) ; ce r\u00e9sultat \u00e9tant tri\u00e9 dans l’ordre des entit\u00e9s, des comptes auxiliaires… (ORDER BY Requ\u00eate1.CodeEntit\u00e9, Requ\u00eate1.CompteAuxNum, Requ\u00eate1.Pi\u00e8ceR\u00e9f, Requ\u00eate1.Solde<\/em>).<\/p>\n
La clause INTO ACHATS_DOUBLONS IN ‘C:\\ANA-FEC.accdb’<\/em><\/a> va stocker le r\u00e9sultat de cette requ\u00eate dans la table nomm\u00e9e ACHATS_DOUBLONS<\/em> de la base de donn\u00e9es ACCESS ANA-FEC<\/em> situ\u00e9 dans la racine du disque dur (C:\\)<\/em>. Ne reste plus qu’\u00e0 exploiter le contenu de cette table.<\/p>\n
Appliqu\u00e9e \u00e0 plusieurs millions de lignes d’\u00e9critures, cette requ\u00eate ne met que quelques instants \u00e0 s’ex\u00e9cuter.<\/p>\n
Approfondir le sujet : Ma\u00eetriser ACCESS<\/a> \/ Ma\u00eetriser le langage de requ\u00eate SQL<\/a> \/ Analyse de donn\u00e9es<\/a><\/p>\n
\"Share<\/a>