[Phpgroupware-cvs] property/inc/export/Agresso, 1.11

[nomail]

Update of /property/inc/export
Modified Files:
        Branch: 
          Agresso

date: 2004/10/07 13:03:31;  author: sigurdne;  state: Exp;  lines: +14 -7

Log Message:
no message
=====================================================================
Index: property/inc/export/Agresso
diff -u property/inc/export/Agresso:1.10 property/inc/export/Agresso:1.11
--- property/inc/export/Agresso:1.10    Fri Oct  1 11:51:05 2004
+++ property/inc/export/Agresso Thu Oct  7 13:03:31 2004
@@ -5,6 +5,7 @@
                //var $fil_katalog='c:/temp'; //On windows use 
"//computername/share/filename" or "\\\\computername\share\filename" to check 
files on network shares.
                
                var $old_files_deleted;
+               var $debug;
                
                function export_conv()
                {
@@ -227,6 +228,7 @@
 //                     $download = 'on';
 //                     $download = False;
                        $pre_transfer=True;
+                       $this->debug=True;
 
                        //Generer batch ID
                        $batchid = $this->soXport->next_batchid();
@@ -504,10 +506,9 @@
 
                                $Buntnr         = 
sprintf("%-12s",date("md",time()) . 'F' . 
substr($oRsBilag[$k]['bilagsnr'],-6));// verdi: MMDDFL, type: c12, plass: 1 - 12
                                $Forsystem      = 'BI';// verdi: BI, type: c2, 
plass: 13 - 14
-                               $Bilagsart      = sprintf("%2s",'');// verdi: , 
type: c2, plass: 15 - 16
                                
                                $Transtype      = 'GL';// verdi: GL, type: c2, 
plass: 17 - 18
-                               $Firmakode      = sprintf("%-2s",'');// verdi: 
Firmakode, type: c2, plass: 19 - 20
+                               $Firmakode      = sprintf("%-2s",'BB');// 
verdi: Firmakode, type: c2, plass: 19 - 20
 
                                $Valuteringsdato= 
date(Ymd,strtotime($oRsBilag[$k]['fakturadato']));// verdi: Dato, type: date, 
plass: 251 - 258
                                $Bilagsdato     = 
date(Ymd,strtotime($oRsBilag[$k]['fakturadato'])) ;// verdi: Dato, type: date, 
plass: 259 - 266
@@ -517,10 +518,12 @@
 
                                if($pre_transfer)
                                {
+                                       $Bilagsart      = sprintf("%2s",'');// 
verdi: , type: c2, plass: 15 - 16
                                        $Forfall        = '20991231';// verdi: 
Forfallsdato , type: date, plass: 298 - 305                              
                                }
                                else
                                {
+                                       $Bilagsart      = 
sprintf("%2s",'FD');// verdi: , type: c2, plass: 15 - 16
                                        $Forfall        = 
date(Ymd,strtotime($oRsBilag[$k]['forfallsdato']));// verdi: Forfallsdato , 
type: date, plass: 298 - 305                              
                                }
                                
@@ -616,7 +619,11 @@
                                                                
$actual_cost_field='act_vendor_cost';
                                                        }
                                                        $operator='+';
-                                                       
$this->correct_actual_cost($oRsUnderbilag[$i]['pmwrkord_code'],$Belop,$actual_cost_field,$operator);
+                                                       
+                                                       if(!$this->debug)
+                                                       {
+                                                               
$this->correct_actual_cost($oRsUnderbilag[$i]['pmwrkord_code'],$Belop,$actual_cost_field,$operator);
+                                                       }
                                                }
                                        }
                                        else
@@ -632,7 +639,7 @@
 
 
                                        $Konto          = 
sprintf("%-8s",$oRsOverfBilag['fakturanr']);// verdi: Art, type: c8, plass: 21 
- 28
-                                       $Dim_1          = 
sprintf("%-8s",$Att_ansvarlig);// verdi: Ansvarssted, type: c8, plass: 29 - 36
+                                       $Dim_1          = sprintf("%-8s",'');// 
verdi: Ansvarssted, type: c8, plass: 29 - 36
                                        $Dim_2          = 
sprintf("%-8s",$oRsOverfBilag['kostra_id']);// verdi: Tjeneste, type: c8, 
plass: 37 - 44
                                        $Dim_3          = 
sprintf("%-8s",substr($oRsOverfBilag['dima'],0,6));// verdi: Objekt, type: c8, 
plass: 45 - 52
                                        $Dim_4          = sprintf("%-8s",'');// 
verdi: Ressurs, type: c8, plass: 53 - 60
@@ -656,7 +663,7 @@
                                        $Ordrenummer    = 
sprintf("%09s",$oRsOverfBilag['pmwrkord_code']);// verdi: Infodoc ordrenr, 
type: i4, plass: 342 - 350
        
                                        //Kopier verdier
-                                       if ($download=='on' && !$pre_transfer)
+                                       if ($download=='on' && !$pre_transfer 
&& !$this->debug)
                                        {
                                                
$this->soXport->add_OverfBilag($oRsOverfBilag);
                                        }
@@ -718,7 +725,7 @@
                                        }
                                
                                        //Slett post i fm_ecobilag
-                                       if ($download=='on' && !$pre_transfer)
+                                       if ($download=='on' && !$pre_transfer 
&& !$this->debug)
                                        {
                                                
$this->soXport->delete_from_fm_ecobilag($oRsUnderbilag[$i]['id']);              
                                                //Logg transaksjon              
@@ -845,4 +852,4 @@
                        }
                }
        }
-?>
\ No newline at end of file
+?>