source: spip-zone/_plugins_/Association/Associaspip/exec/export_compteresultats_ctx.php @ 59760

Last change on this file since 59760 was 59760, checked in by gildas.cotomale@…, 9 years ago

revue de l'exportation des comptes de résultats (ensemble encore perfectible et modulable)

File size: 1.5 KB
Line 
1<?php
2
3/* * *************************************************************************\
4 *  Associaspip, extension de SPIP pour gestion d'associations             *
5 *                                                                         *
6 *  Copyright (c) 2007 Bernard Blazin & François de Montlivault (V1)       *
7 *  Copyright (c) 2010-2011 Emmanuel Saint-James & Jeannot Lapin (V2)      *
8 *  Ecrit par Marcel BOLLA en 01/2012                                      *
9 *                                                                         *
10 *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
11 *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
12  \************************************************************************** */
13
14if (!defined('_ECRIRE_INC_VERSION'))
15        return;
16
17include_spip('exec/compte_resultat'); // c'est pour la definition de classe ExportCompteResultats
18
19// Export du Compte de Resultat au format CTX
20// http://www.creativyst.com/Doc/Std/ctx/ctx.htm
21function exec_export_compteresultats_ctx() {
22        if (!autoriser('associer', 'export_compteresultats')) {
23                include_spip('inc/minipres');
24                echo minipres();
25        } else {
26                $ctx = new ExportCompteResultats(_request('var'));
27                $ctx->LignesSimplesEntete('|', "\n", array("\r"=>'\r', "\n"=>'\n', "\\"=>'\i', '|'=>'\p'), '', '');
28                foreach (array('charges', 'produits', 'contributions_volontaires') as $key) {
29                        $ctx->LignesSimplesCorps($key, '|', "\n", array("\r"=>'\r', "\n"=>'\n', "\\"=>'\i', '|'=>'\p'), '', '')
30                }
31                $ctx->leFichier('ctx');
32        }
33}
34
35?>
Note: See TracBrowser for help on using the repository browser.