[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Phpgroupware-cvs] property/export/Kemner_kvittering, 1.1.1.3
|
From: |
nomail |
|
Subject: |
[Phpgroupware-cvs] property/export/Kemner_kvittering, 1.1.1.3 |
|
Date: |
Fri, 21 May 2004 16:36:19 -0000 |
Update of /property/export
Modified Files:
Branch:
Kemner_kvittering
date: 2004/04/23 21:26:32; author: sigurdne; state: Exp; lines: +218 -218
Log Message:
no message
=====================================================================
Index: property/export/Kemner_kvittering
diff -u property/export/Kemner_kvittering:1.1.1.2
property/export/Kemner_kvittering:1.1.1.3
--- property/export/Kemner_kvittering:1.1.1.2 Fri Apr 23 20:27:19 2004
+++ property/export/Kemner_kvittering Fri Apr 23 21:26:32 2004
@@ -1,218 +1,218 @@
-<?php
-
- class export_conv
- {
- //var $fil_katalog='c:/temp'; //On windows use
"//computername/share/filename" or "\\\\computername\share\filename" to check
files on network shares.
- function export_conv()
- {
-
- $this->soXport = CreateObject('property.soXport');
- $this->$config =
CreateObject('phpgwapi.config','property');
- $this->$config->read_repository();
- $this->db = $GLOBALS['phpgw']->db;
- $this->socommon =
CreateObject($this->currentapp.'.socommon');
-
- $this->join = $this->socommon->join;
-
- }
-
- function overfor($download)
- {
- //Generer batch ID
- $batchid = $this->soXport->next_batchid();
-
- //Velg ut alle perioder som har bilag som skal overføres
-
- $periode =
$this->select_periods_with_invoice_to_transfer();
-
-
- for ($i=0;$i<count($periode);$i++)
- {
- $receipt['message'][]= array('msg' =>
$this->OverforPeriode($batchid,$periode[$i],$download));
- }
-
-
- return $receipt;
- }
-
- function select_periods_with_invoice_to_transfer()
- {
- $sql= "SELECT DISTINCT periode from fm_ecobilag where
budsjettsigndato is not null and (saksigndato is not null or oppsynsigndato is
not null) and utbetalingsigndato is not null ";
- $this->db->query($sql,__LINE__,__FILE__);
- while ($this->db->next_record())
- {
- $periode[] = $this->db->f('periode');
- }
- return $periode;
- }
-
- function errorhandler($error_desr)
- {
- $meld = $error_desr;
-
- //Vis feilmelding
- echo $meld;
-
- }
-
-
- function LagFilnavn ($batchid)
- {
- $fil_katalog =
$this->$config->config_data['export_path'];
- //Beregn løpenr
- $StartLopeNr = ($batchid % 30) + 70;
- $LopeNr = $StartLopeNr;
-
- do
- {
- //Konstruer filnavn
- $Filnavn = $fil_katalog . '/kemner_kvitt'.
sprintf("%2d",$LopeNr) . '10.TXT';
-
- //Sjekk om filen eksisterer
- If (!file_exists($Filnavn))
- {
- return $Filnavn;
- }
-
- //Genererer nytt løpenr
- $batchid = $batchid + 1;
- $LopeNr = ($batchid % 30) + 70;
- }
- while ($LopeNr != $StartLopeNr);
-
- //Ingen løpenr er ledige, gi feilmelding
- return False;
- }
-
- function OverforPeriode($batchid,$periode,$download)
- {
-// echo 'periode :' . $periode . '<BR>';
- $BilagId = 'NULL';
- $sum=0;
- //Bestem filnavn
-
- $Filnavn = $this->LagFilnavn($batchid);
- if (!$Filnavn)
- {
- $message='LagFilnavn'.lang('Alle løpenr for
filnavn er i bruk!');
- $this->errorhandler($message);
- return $message;
- }
-
- //Test om filen kan opprettes og skrives til
- if (@fopen($Filnavn, "wb"))
- {
- unlink($Filnavn);
- }
- else
- {
- $message='kan ikke lagre til fil: '. $Filnavn
.'<br>';
- return $message;
- }
-
- //Velg ut alle hoved bilag som skal overføres
-
- $oRsBilag=$this->soXport->hoved_bilag($periode);
-
- $buffer = 'kidnr'. ' ' .'belop'.' '.'dato'."\r\n";
-
- for ($k=0;$k<count($oRsBilag);$k++)
- {
-
-
- //Bestem belops felt
- if ($oRsBilag[$k]['splitt']==0)
- {
- //Bilaget er ikke splittet
- if ($oRsBilag[$k]['godkjentbelop'] <>
$oRsBilag[$k]['belop'])
- {
- $BelopFelt = 'godkjentbelop';
- //Logg til avviks tabell
- if ($download=='on')
- {
-//
$this->soXport->log_to_deviation_table($oRsBilag[$k]);
- }
- }
- else
- {
- $BelopFelt = 'belop';
- }
- }
-
- //Bilaget er splittet
- if ($oRsBilag[$k]['godkjentbelop'] ==
$oRsBilag[$k]['belop'])
- {
- $BelopFelt = 'godkjentbelop';
- }
- else
- {
- //Ikke lovlig
- $message = lang('Avvik mellom
fakturabeløp og godkjent beløp på splittet faktura!');
- $this->errorhandler($message);
- return $message;
- }
-
- //Formater beløp
- if ($oRsBilag[$k]['artid'] == 1)
- {
- $Belop = sprintf("%01.2f",
$oRsBilag[$k][$BelopFelt]);
- // echo 'Belop :' . $Belop . '<BR>';
- }
- else
- {
- $Belop = sprintf("%01.2f",
-$oRsBilag[$k][$BelopFelt]);
-
- }
-
- $Belop =$Belop *100;
- // $Belop = substr($Belop,0,strlen($Belop) - 3) +
substr($Belop, -2);
- //echo 'Belop :' . $Belop . '<BR>';
-
- //Skriv hovedbilag
-
- $f1per =
$periode;//date(ym,strtotime($oRsBilag[$k]['fakturadato']));
- $f1bilnr =
substr($oRsBilag[$k]['bilagsnr'],-6);
- $f1bildat =
date(ymd,strtotime($oRsBilag[$k]['fakturadato']));
- $f1bilart = $oRsBilag[$k]['artid'];
- $f1belop = $Belop;
- $f1fordat =
date(ymd,strtotime($oRsBilag[$k]['forfallsdato']));
- $f1tekst = '';
- $f1iper =
substr($periode,2,2);//date(m,strtotime($oRsBilag[$k]['fakturadato']));
- $f1dime = $oRsBilag[$k]['spvend_code'];
-
- $f3per =
$periode;//date(ym,strtotime($oRsBilag[$k]['fakturadato']));
- $f3bilnr =
substr($oRsBilag[$k]['bilagsnr'],-6);
- $f3rkonto = $oRsBilag[$k]['spvend_code'];
- $f3pnr =
substr($oRsBilag[$k]['bilagsnr'],-6);
- $f3klasse = $pmlabor_code;
- $f3bildat =
date(ymd,strtotime($oRsBilag[$k]['fakturadato']));
- $f3bilart = $oRsBilag[$k]['artid'];
- $f3belopr = $Belop;
- $f3fordat =
date(dmY,strtotime($oRsBilag[$k]['forfallsdato']));
- $f3sakb =
$oRsBilag[$k]['saksbehandler'];
- $f3idkode = $oRsBilag[$k]['kidnr'];
- $f3tekst = '';
-
- $buffer .=substr($f3idkode,-20). ' '
.sprintf("%010s",$f3belopr).'
'.substr($f3fordat,0,2).'.'.substr($f3fordat,2,2).'.'.substr($f3fordat,-4)."\r\n";
- $sum = $sum + $Belop;
-
- $antall = $antall + 1;
- }
-
- $buffer .= sprintf("%20s",'Sum:').'
'.sprintf("%010s",$sum);
-
- if ($download=='on')
- {
- $message = 'Periode: '.$periode.' antall
bilag/underbilag overført:'.$antall . ' , fil: ' . $Filnavn . '<br>';
- $fp = fopen($Filnavn, "wb");
- fwrite($fp,$buffer);
- fclose($fp);
- }
- else
- {
- $message = $buffer;
- }
- return $message;
- }
- }
-?>
+<?php
+
+ class export_conv
+ {
+ //var $fil_katalog='c:/temp'; //On windows use
"//computername/share/filename" or "\\\\computername\share\filename" to check
files on network shares.
+ function export_conv()
+ {
+
+ $this->soXport = CreateObject('property.soXport');
+ $this->$config =
CreateObject('phpgwapi.config','property');
+ $this->$config->read_repository();
+ $this->db = $GLOBALS['phpgw']->db;
+ $this->socommon =
CreateObject($this->currentapp.'.socommon');
+
+ $this->join = $this->socommon->join;
+
+ }
+
+ function overfor($download)
+ {
+ //Generer batch ID
+ $batchid = $this->soXport->next_batchid();
+
+ //Velg ut alle perioder som har bilag som skal overføres
+
+ $periode =
$this->select_periods_with_invoice_to_transfer();
+
+
+ for ($i=0;$i<count($periode);$i++)
+ {
+ $receipt['message'][]= array('msg' =>
$this->OverforPeriode($batchid,$periode[$i],$download));
+ }
+
+
+ return $receipt;
+ }
+
+ function select_periods_with_invoice_to_transfer()
+ {
+ $sql= "SELECT DISTINCT periode from fm_ecobilag where
budsjettsigndato is not null and (saksigndato is not null or oppsynsigndato is
not null) and utbetalingsigndato is not null ";
+ $this->db->query($sql,__LINE__,__FILE__);
+ while ($this->db->next_record())
+ {
+ $periode[] = $this->db->f('periode');
+ }
+ return $periode;
+ }
+
+ function errorhandler($error_desr)
+ {
+ $meld = $error_desr;
+
+ //Vis feilmelding
+ echo $meld;
+
+ }
+
+
+ function LagFilnavn ($batchid)
+ {
+ $fil_katalog =
$this->$config->config_data['export_path'];
+ //Beregn løpenr
+ $StartLopeNr = ($batchid % 30) + 70;
+ $LopeNr = $StartLopeNr;
+
+ do
+ {
+ //Konstruer filnavn
+ $Filnavn = $fil_katalog . '/kemner_kvitt'.
sprintf("%2d",$LopeNr) . '10.TXT';
+
+ //Sjekk om filen eksisterer
+ If (!file_exists($Filnavn))
+ {
+ return $Filnavn;
+ }
+
+ //Genererer nytt løpenr
+ $batchid = $batchid + 1;
+ $LopeNr = ($batchid % 30) + 70;
+ }
+ while ($LopeNr != $StartLopeNr);
+
+ //Ingen løpenr er ledige, gi feilmelding
+ return False;
+ }
+
+ function OverforPeriode($batchid,$periode,$download)
+ {
+// echo 'periode :' . $periode . '<BR>';
+ $BilagId = 'NULL';
+ $sum=0;
+ //Bestem filnavn
+
+ $Filnavn = $this->LagFilnavn($batchid);
+ if (!$Filnavn)
+ {
+ $message='LagFilnavn'.lang('Alle løpenr for
filnavn er i bruk!');
+ $this->errorhandler($message);
+ return $message;
+ }
+
+ //Test om filen kan opprettes og skrives til
+ if (@fopen($Filnavn, "wb"))
+ {
+ unlink($Filnavn);
+ }
+ else
+ {
+ $message='kan ikke lagre til fil: '. $Filnavn
.'<br>';
+ return $message;
+ }
+
+ //Velg ut alle hoved bilag som skal overføres
+
+ $oRsBilag=$this->soXport->hoved_bilag($periode);
+
+ $buffer = 'kidnr'. ' ' .'belop'.' '.'dato'."\r\n";
+
+ for ($k=0;$k<count($oRsBilag);$k++)
+ {
+
+
+ //Bestem belops felt
+ if ($oRsBilag[$k]['splitt']==0)
+ {
+ //Bilaget er ikke splittet
+ if ($oRsBilag[$k]['godkjentbelop'] <>
$oRsBilag[$k]['belop'])
+ {
+ $BelopFelt = 'godkjentbelop';
+ //Logg til avviks tabell
+ if ($download=='on')
+ {
+//
$this->soXport->log_to_deviation_table($oRsBilag[$k]);
+ }
+ }
+ else
+ {
+ $BelopFelt = 'belop';
+ }
+ }
+
+ //Bilaget er splittet
+ if ($oRsBilag[$k]['godkjentbelop'] ==
$oRsBilag[$k]['belop'])
+ {
+ $BelopFelt = 'godkjentbelop';
+ }
+ else
+ {
+ //Ikke lovlig
+ $message = lang('Avvik mellom
fakturabeløp og godkjent beløp på splittet faktura!');
+ $this->errorhandler($message);
+ return $message;
+ }
+
+ //Formater beløp
+ if ($oRsBilag[$k]['artid'] == 1)
+ {
+ $Belop = sprintf("%01.2f",
$oRsBilag[$k][$BelopFelt]);
+ // echo 'Belop :' . $Belop . '<BR>';
+ }
+ else
+ {
+ $Belop = sprintf("%01.2f",
-$oRsBilag[$k][$BelopFelt]);
+
+ }
+
+ $Belop =$Belop *100;
+ // $Belop = substr($Belop,0,strlen($Belop) - 3) +
substr($Belop, -2);
+ //echo 'Belop :' . $Belop . '<BR>';
+
+ //Skriv hovedbilag
+
+ $f1per =
$periode;//date(ym,strtotime($oRsBilag[$k]['fakturadato']));
+ $f1bilnr =
substr($oRsBilag[$k]['bilagsnr'],-6);
+ $f1bildat =
date(ymd,strtotime($oRsBilag[$k]['fakturadato']));
+ $f1bilart = $oRsBilag[$k]['artid'];
+ $f1belop = $Belop;
+ $f1fordat =
date(ymd,strtotime($oRsBilag[$k]['forfallsdato']));
+ $f1tekst = '';
+ $f1iper =
substr($periode,2,2);//date(m,strtotime($oRsBilag[$k]['fakturadato']));
+ $f1dime = $oRsBilag[$k]['spvend_code'];
+
+ $f3per =
$periode;//date(ym,strtotime($oRsBilag[$k]['fakturadato']));
+ $f3bilnr =
substr($oRsBilag[$k]['bilagsnr'],-6);
+ $f3rkonto = $oRsBilag[$k]['spvend_code'];
+ $f3pnr =
substr($oRsBilag[$k]['bilagsnr'],-6);
+ $f3klasse = $pmlabor_code;
+ $f3bildat =
date(ymd,strtotime($oRsBilag[$k]['fakturadato']));
+ $f3bilart = $oRsBilag[$k]['artid'];
+ $f3belopr = $Belop;
+ $f3fordat =
date(dmY,strtotime($oRsBilag[$k]['forfallsdato']));
+ $f3sakb =
$oRsBilag[$k]['saksbehandler'];
+ $f3idkode = $oRsBilag[$k]['kidnr'];
+ $f3tekst = '';
+
+ $buffer .=substr($f3idkode,-20). ' '
.sprintf("%010s",$f3belopr).'
'.substr($f3fordat,0,2).'.'.substr($f3fordat,2,2).'.'.substr($f3fordat,-4)."\r\n";
+ $sum = $sum + $Belop;
+
+ $antall = $antall + 1;
+ }
+
+ $buffer .= sprintf("%20s",'Sum:').'
'.sprintf("%010s",$sum);
+
+ if ($download=='on')
+ {
+ $message = 'Periode: '.$periode.' antall
bilag/underbilag overført:'.$antall . ' , fil: ' . $Filnavn . '<br>';
+ $fp = fopen($Filnavn, "wb");
+ fwrite($fp,$buffer);
+ fclose($fp);
+ }
+ else
+ {
+ $message = $buffer;
+ }
+ return $message;
+ }
+ }
+?>
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Phpgroupware-cvs] property/export/Kemner_kvittering, 1.1.1.3,
nomail <=