Revision 595dc614
Von Moritz Bunkus vor mehr als 18 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
|
<input type=hidden name=selecttaxkey value="$form->{selecttaxkey}">
|
||
|
</tr>|;
|
||
|
|
||
|
#print(STDERR Dumper($form->{NEWACCOUNT}));
|
||
|
if (@{ $form->{NEWACCOUNT} }) {
|
||
|
if (!$form->{new_chart_valid}) {
|
||
|
$form->{selectnewaccount} = "<option value=></option>";
|
||
| ... | ... | |
|
<input type=hidden name=password value=$form->{password}>
|
||
|
|
||
|
<br>|;
|
||
|
#print(STDERR "$form->{type} TYPE $form->{new_chart_valid} CHART_VALID\n");
|
||
|
if ((!$form->{id}) || ($form->{id} && $form->{orphaned}) || (($form->{type} eq "account") && (!$form->{new_chart_valid}))) {
|
||
|
print qq|
|
||
|
<input type=submit class=submit name=action value="|
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
#print(STDERR Dumper($delete_units));
|
||
|
#print(STDERR Dumper($new_units));
|
||
|
|
||
|
AM->save_units(\%myconfig, $form, $form->{"unit_type"}, $new_units, \@delete_units);
|
||
|
|
||
|
$form->{"saved_message"} = $locale->text("The units have been saved.");
|
||
| bin/mozilla/common.pl | ||
|---|---|---|
|
sub calculate_alu {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
|
||
|
|
||
|
my ($length, $weight) = split /\r\n/,$form->{formel};
|
||
|
|
||
|
#print(STDERR "$form->{formel} Formel\n");
|
||
|
#print(STDERR "$form->{description} Description\n");
|
||
|
|
||
|
map({ $form->{$_} = "" } (qw(qty_alu price_alu total_alu qty_eloxal price_eloxal total_eloxal total)));
|
||
|
|
||
|
if ($form->{description} =~ /.*Alupreisberechnung.*/) {
|
||
| ... | ... | |
|
$form->{total} = $form->format_amount(\%myconfig, ($form->parse_amount(\%myconfig, $form->{total_alu}) + $form->parse_amount(\%myconfig, $form->{total_eloxal})));
|
||
|
}
|
||
|
($form->{description}, $null) = split /\nAlupreisberechnung/, $form->{description};
|
||
|
#map({ print(STDERR "$_ = $form->{$_}\n") } (qw(qty_alu price_alu total_alu qty_eloxal price_eloxal total_eloxal total)));
|
||
|
|
||
|
my $callback = "$form->{script}?action=vendor_selection&";
|
||
|
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
|
||
| bin/mozilla/ct.pl | ||
|---|---|---|
|
if ($vertreter && $form->{db} eq "customer") {
|
||
|
$form->isblank("salesman_id", $locale->text("Salesman missing!"));
|
||
|
}
|
||
|
print(STDERR "SHIPTO in sub save $form->{shipto_id}\n");
|
||
|
&{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
|
||
|
|
||
|
&edit;
|
||
| bin/mozilla/dn.pl | ||
|---|---|---|
|
for my $i (1 .. $form->{rowcount}) {
|
||
|
$form->{"active_$i"} *= 1;
|
||
|
$lastcustomer = $form->{"customer_id_$i"} unless ($lastcustomer);
|
||
|
#print(STDERR qq|LASTCUSTOMER $lastcustomer AKTUELL $form->{"customer_id_$i"} ACTIVE? $form->{"active_$i"} active $active\n Zeile $i|);
|
||
|
if ($form->{"active_$i"} && ($form->{"customer_id_$i"} == $lastcustomer)) {
|
||
|
if ($form->{inv_ids}) {
|
||
|
$form->{inv_ids} .= qq|,$form->{"inv_id_$i"}|;
|
||
| ... | ... | |
|
}
|
||
|
if ($form->{inv_ids} ne "") {
|
||
|
$form->{inv_ids} .= ")";
|
||
|
#print(STDERR "Rufe save_dunning_auf f?r Zeile $form->{inv_ids} von Kunde $lastcustomer\n");
|
||
|
DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath,$spool, $sendmail);
|
||
|
DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath,$spool, $sendmail);
|
||
|
}
|
||
|
}
|
||
|
} else {
|
||
| ... | ... | |
|
@rows = ();
|
||
|
$form->{inv_ids} = qq|($form->{"inv_id_$i"})|;
|
||
|
push(@rows, $i);
|
||
|
#print(STDERR "Rufe save_dunning_auf f?r Zeile $i\n");
|
||
|
DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath,$spool, $sendmail);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
#print(STDERR Dumper($form->{DUNNING_PDFS}));
|
||
|
if($form->{DUNNING_PDFS}) {
|
||
|
DN->melt_pdfs(\%myconfig, \%$form,$spool);
|
||
|
}
|
||
| bin/mozilla/io.pl | ||
|---|---|---|
|
$decimalplaces)
|
||
|
. qq|></td>|;
|
||
|
}
|
||
|
print(STDERR "Sellprice vor Ausgabe: ",$form->{"sellprice_$i"},"\n");
|
||
|
|
||
|
$column_data{sellprice} =
|
||
|
qq|<td><input name="sellprice_$i" size=10 value=|
|
||
Auch abrufbar als: Unified diff
Debugcode entfernt.