/systemdata/exporter_debitor.php
PHP | 94 lines | 65 code | 12 blank | 17 comment | 10 complexity | 728a770f569a58aea981a193da4ac9d0 MD5 | raw file
Possible License(s): LGPL-2.1
- <?php
- // ------------/systemdata/exporter_debitor.php---lap 2.0.9----2009-08-12--
- // LICENS
- //
- // Dette program er fri software. Du kan gendistribuere det og / eller
- // modificere det under betingelserne i GNU General Public License (GPL)
- // som er udgivet af The Free Software Foundation; enten i version 2
- // af denne licens eller en senere version efter eget valg
- //
- // Dette program er udgivet med haab om at det vil vaere til gavn,
- // men UDEN NOGEN FORM FOR REKLAMATIONSRET ELLER GARANTI. Se
- // GNU General Public Licensen for flere detaljer.
- //
- // En dansk oversaettelse af licensen kan laeses her:
- // http://www.fundanemt.com/gpl_da.html
- //
- // Copyright (c) 2004-2009 DANOSOFT ApS
- // ----------------------------------------------------------------------
- @session_start();
- $s_id=session_id();
- $title="Eksporter debitorer";
- $css="../css/standard.css";
- include("../includes/connect.php");
- include("../includes/online.php");
- include("../includes/std_func.php");
- $returside="../diverse.php";
- $filnavn="../temp/".trim($db."_debitorer_".date("Y-m-d").".csv");
- $fp=fopen($filnavn,"w");
- if (fwrite($fp,"kontonr".chr(9)."firmanavn".chr(9)."addr1".chr(9)."addr2".chr(9)."postnr".chr(9)."bynavn".chr(9)."land".chr(9)."kontakt".chr(9)."tlf".chr(9)."fax".chr(9)."email".chr(9)."web".chr(9)."notes".chr(9)."kreditmax".chr(9)."betalingsbet".chr(9)."betalingsdage".chr(9)."cvrnr".chr(9)."ean".chr(9)."institution".chr(9)."gruppe".chr(9)."kontoansvarlig".chr(9)."oprettet".chr(9)."kontakt_navn".chr(9)."kontakt_addr1".chr(9)."kontakt_addr2".chr(9)."kontakt_postnr".chr(9)."kontakt_bynavn".chr(9)."kontakt_tlf".chr(9)."kontakt_fax".chr(9)."kontakt_email".chr(9)."kontakt_notes]\r\n")) {
- $q=db_select("select * from adresser where art='D' order by kontonr",__FILE__ . " linje " . __LINE__);
- while ($r=db_fetch_array($q)) {
- $ansatte=0;
- if ($r['kontoansvarlig']) {
- $r2=db_fetch_array(db_select("select initialer from ansatte where id='$r[kontoansvarlig]'",__FILE__ . " linje " . __LINE__));
- $kontoansvarlig=$r2['initialer'];
- } else $kontoansvarlig='';
- $kreditmax=dkdecimal($r['kreditmax']);
- $oprettet=dkdato($r['oprettet']);
-
- $tmp1=str_replace("\n","\\n",$r[kontonr].chr(9).chr(32).$r[firmanavn].chr(32).chr(9).chr(32).$r[addr1].chr(32).chr(9).chr(32).$r[addr2].chr(32).chr(9).chr(32).$r[postnr].chr(32).chr(9).chr(32).$r[bynavn].chr(32).chr(9).chr(32).$r[land].chr(32).chr(9).chr(32).$r[kontakt].chr(32).chr(9).chr(32).$r[tlf].chr(32).chr(9).chr(32).$r[fax].chr(32).chr(9).chr(32).$r[email].chr(32).chr(9).chr(32).$r[web].chr(32).chr(9).chr(32).$r[notes].chr(32).chr(9).$kreditmax.chr(9).chr(32).$r[betalingsbet].chr(32).chr(9).$r[betalingsdage].chr(9).chr(32).$r[cvrnr].chr(32).chr(9).chr(32).$r[ean].chr(32).chr(9).chr(32).$r[institution].chr(32).chr(9).$r[gruppe].chr(9).chr(32).$kontoansvarlig.chr(32).chr(9).chr(32).$oprettet);
- $tmp1=str_replace("\r","\\r",$tmp1);
- if ($charset=='UTF-8') $tmp1=utf8_decode($tmp1);
- $q2=db_select("select * from ansatte where konto_id='$r[id]' order by navn",__FILE__ . " linje " . __LINE__);
- while ($r2=db_fetch_array($q2)) {
- $ansatte++;
- $tmp2=str_replace("\n","\\n",$r2[navn].chr(32).chr(9).chr(32).$r2[addr1].chr(32).chr(9).chr(32).$r2[addr2].chr(32).chr(9).chr(32).$r2[postnr].chr(32).chr(9).chr(32).$r2[bynavn].chr(32).chr(9).chr(32).$r2[tlf].chr(32).chr(9).chr(32).$r2[fax].chr(32).chr(9).chr(32).$r2[email].chr(32).chr(9).chr(32).$r2[notes]);
- $tmp2=str_replace("\r","\\r",$tmp2);
- if ($charset=='UTF-8') $tmp2=utf8_decode($tmp2);
- $linje=$tmp1.chr(32).chr(9).chr(32).$tmp2;
- fwrite($fp, $linje."\r\n");
- }
- if (!$ansatte) {
- $linje=$tmp1.chr(32).chr(9).chr(32).chr(32).chr(9).chr(32).chr(32).chr(9).chr(32).chr(32).chr(9).chr(32).chr(32).chr(9).chr(32).chr(32).chr(9).chr(32).chr(32).chr(9).chr(32).chr(32).chr(9).chr(32).chr(32).chr(9).chr(32);
- fwrite($fp, $linje."\r\n");
- }
- }
- }
- fclose($fp);
- print "<table width=\"100%\" height=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody>";
- print "<tr><td align=\"center\" valign=\"top\">";
- print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"2\" cellpadding=\"0\"><tbody>";
- if ($popup) print "<td width=\"10%\" $top_bund><a href=../includes/luk.php accesskey=L>Luk</a></td>";
- else print "<td width=\"10%\" $top_bund><a href=diverse.php?sektion=div_io accesskey=L>Luk</a></td>";
- print "<td width=\"80%\" $top_bund>$title</td>";
- print "<td width=\"10%\" $top_bund><br></td>";
- print "</tbody></table>";
- print "</td></tr>";
- print "<td align=center valign=top>";
- print "<table cellpadding=\"1\" cellspacing=\"1\" border=\"0\"><tbody>";
- print "<tr><td align=center> Højreklik her: </td><td $top_bund><a href='$filnavn'>Adresser</a></td></tr>";
- print "<tr><td align=center colspan=2> Vælg \"gem destination som\"</td></tr>";
- print "</tbody></table>";
- ?>
- </tbody>
- </table>
- </td></tr>
- <tr><td align = "center" valign = "bottom">
- <table width="100%" align="center" border="1" cellspacing="0" cellpadding="0"><tbody>
- <td width="100%" bgcolor="<?php echo $bgcolor2 ?>"><font face="Helvetica, Arial, sans-serif" color="#000066"><br></td>
- </tbody></table>
- </td></tr>
- </tbody></table>
- </body></html>