Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 5be29159

Von Sven Schöling vor mehr als 15 Jahren hinzugefügt

  • ID 5be291594a4ead20f6900b249357deb262137cac
  • Vorgänger dc6e7f0d
  • Nachfolger bd6a8782

Bilanz Fix - erste Version.

Unterschiede anzeigen:

bin/mozilla/rp.pl
41 41 
use SL::RP;
42 42 
use SL::Iconv;
43 43 
use SL::ReportGenerator;
44 
use Data::Dumper;
44 45 

  		




  45
  46
  
    
require "bin/mozilla/arap.pl";


  		




  46
  47
  
    
require "bin/mozilla/common.pl";


  		




  ......




  1095
  1096
  
    
  $form->{endbold} = "</b>";


  		




  1096
  1097
  
    
  $form->{br}      = "<br>";


  		




  1097
  1098
  
    

  		




  1098
  
  
    
  RP->balance_sheet(\%myconfig, \%$form);


  		




  
  1099
  
    
  my $data = RP->balance_sheet(\%myconfig, \%$form);


  		




  1099
  1100
  
    

  		




  1100
  1101
  
    
  $form->{asofdate} = $form->current_date(\%myconfig) unless $form->{asofdate};


  		




  1101
  
  
    
  $form->{period} =


  		




  1102
  
  
    
    $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);


  		




  
  1102
  
    
  $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);


  		




  1103
  1103
  
    

  		




  1104
  1104
  
    
  ($form->{department}) = split /--/, $form->{department};


  		




  1105
  1105
  
    

  		




  1106
  1106
  
    
  # define Current Earnings account


  		




  1107
  1107
  
    
  $padding = ($form->{l_heading}) ? $form->{padding} : "";


  		




  1108
  
  
    
  push(@{ $form->{equity_account} },


  		




  1109
  
  
    
       $padding . $locale->text('Current Earnings'));


  		




  
  1108
  
    
  push(@{ $form->{equity_account} }, $padding . $locale->text('Current Earnings'));


  		




  1110
  1109
  
    

  		




  1111
  1110
  
    
  $form->{this_period} = $locale->date(\%myconfig, $form->{asofdate}, 0);


  		




  1112
  
  
    
  $form->{last_period} =


  		




  1113
  
  
    
    $locale->date(\%myconfig, $form->{compareasofdate}, 0);


  		




  
  1111
  
    
  $form->{last_period} = $locale->date(\%myconfig, $form->{compareasofdate}, 0);


  		




  1114
  1112
  
    

  		




  1115
  1113
  
    
  $form->{IN} = "balance_sheet.html";


  		




  1116
  1114
  
    

  		




  ......




  1119
  1117
  
    

  		




  1120
  1118
  
    
  $form->{templates} = $myconfig{templates};


  		




  1121
  1119
  
    

  		




  1122
  
  
    
  $form->parse_template;


  		




  
  1120
  
    
  $form->header();


  		




  
  1121
  
    
  print $form->parse_html_template('rp/balance_sheet', $data);


  		




  
  1122
  
    
#  $form->parse_template();


  		




  1123
  1123
  
    

  		




  1124
  1124
  
    
  $lxdebug->leave_sub();


  		




  1125
  1125
  
    
}


  		












Auch abrufbar als:  Unified diff