Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 4d20c181

Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt

  • ID 4d20c18172f57d1cb809334683f5b844ca02a5e6
  • Vorgänger 1c084510
  • Nachfolger 5fdc44cb

Bei Eingangs-, Ausgangs-, Kreditoren- und Debitorenrechnungen unterhalb der Zahlungsein- bzw. -ausgänge die bisher gebuchte Summe und den noch offenen Betrag anzeigen.

Unterschiede anzeigen:

bin/mozilla/ar.pl
685 685
    $project = "";
686 686
  }
687 687

  
688
  $form->{invtotal_unformatted} = $form->{invtotal};
688 689
  $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2);
689 690

  
690 691
  $ARselected =
......
756 757
        </tr>
757 758
";
758 759

  
759
  my @triggers = ();
760
  my @triggers  = ();
761
  my $totalpaid = 0;
762

  
760 763
  $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
761 764
  for $i (1 .. $form->{paidaccounts}) {
762 765
    print "
......
770 773
                           '-labels' => \%AR_paid_labels,
771 774
                           '-default' => $form->{"AR_paid_$i"}));
772 775

  
776
    $totalpaid += $form->{"paid_$i"};
777

  
773 778
    # format amounts
774 779
    if ($form->{"paid_$i"}) {
775 780
      $form->{"paid_$i"} =
......
822 827
    push(@triggers, "datepaid_$i", "BL", "trigger_datepaid_$i");
823 828
  }
824 829

  
825
  print $form->write_trigger(\%myconfig, scalar(@triggers) / 3, @triggers) .
830
  my $paid_missing = $form->{invtotal_unformatted} - $totalpaid;
831

  
832
  print qq|
833
        <tr>
834
          <td></td>
835
          <td></td>
836
          <td align="center">| . $locale->text('Total') . qq|</td>
837
          <td align="center">| . H($form->format_amount(\%myconfig, $totalpaid, 2)) . qq|</td>
838
        </tr>
839
        <tr>
840
          <td></td>
841
          <td></td>
842
          <td align="center">| . $locale->text('Missing amount') . qq|</td>
843
          <td align="center">| . H($form->format_amount(\%myconfig, $paid_missing, 2)) . qq|</td>
844
        </tr>
845
| . $form->write_trigger(\%myconfig, scalar(@triggers) / 3, @triggers) .
826 846
    qq|
827 847
<input type=hidden name=paidaccounts value=$form->{paidaccounts}>
828 848

  

Auch abrufbar als: Unified diff