X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fap.pl;h=2cfff88d61574f6e8b013f7bf792a2a1990ec8c3;hb=3ac9bdcaf2633da20fc12464eddc946417689b48;hp=162afcc1790f675b36c266190dfe8219e22a9566;hpb=98764afac6fd1dc1b04d912079672aa90d0b21f8;p=kivitendo-erp.git diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl index 162afcc17..2cfff88d6 100644 --- a/bin/mozilla/ap.pl +++ b/bin/mozilla/ap.pl @@ -79,6 +79,7 @@ sub add { unless $form->{callback}; &create_links; + AP->get_transdate(\%myconfig, $form); &display_form; $lxdebug->leave_sub(); @@ -239,9 +240,9 @@ sub create_links { } $form->{"${key}_$k"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}"; + my $q_description = quotemeta($form->{acc_trans}{$key}->[$i-1]->{description}); $form->{"select${key}"} =~ - /{acc_trans}{$key}->[$i-1]->{accno}--[^\"]*)\">$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}<\/option>\n/; - $test = $1; + /{acc_trans}{$key}->[$i-1]->{accno}--[^\"]*)\">$form->{acc_trans}{$key}->[$i-1]->{accno}--${q_description}<\/option>\n/; $form->{"${key}_$k"} = $1; if ($akey eq 'amount') { $form->{"taxchart_$k"} = $form->{taxchart}; @@ -278,6 +279,8 @@ sub create_links { ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig)); + $form->{"APselected"} = $form->{"AP_1"}; + $lxdebug->leave_sub(); } @@ -320,6 +323,11 @@ sub form_header { } $readonly = ($form->{id}) ? "readonly" : ""; + my $APselected_quoted = quotemeta($form->{"APselected"}); + $form->{selectAP} = $form->{AP}; + $form->{selectAP} =~ + s/value=\"${APselected_quoted}\"/value=\"$form->{APselected}\" selected/; + $form->{radier} = ($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0; $readonly = ($form->{radier}) ? "" : $readonly; @@ -634,6 +642,7 @@ $jsscript "; + my @triggers = (); $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"}); for $i (1 .. $form->{paidaccounts}) { print " @@ -673,7 +682,8 @@ $jsscript qq|$form->{"selectAP_paid_$i"}|; $column_data{"exchangerate_$i"} = qq|$exchangerate|; $column_data{"datepaid_$i"} = - qq|{"datepaid_$i"}>|; + qq|{"datepaid_$i"}> + |; $column_data{"source_$i"} = qq||; $column_data{"memo_$i"} = @@ -684,9 +694,11 @@ $jsscript print " "; + push(@triggers, "datepaid_$i", "BL", "trigger_datepaid_$i"); } map { $form->{$_} =~ s/\"/"/g } qw(selectAP_paid); - print qq| + print $form->write_trigger(\%myconfig, scalar(@triggers) / 3, @triggers) . + qq| {paidaccounts}> @@ -736,7 +748,10 @@ sub form_footer { |; - + print qq| + +|; } else { if (($transdate > $closedto) && !$form->{id}) { print qq|{path}/menu.pl"; - &menubar; - } - print " @@ -776,10 +786,6 @@ sub update { # $form->{selectAP_amount} =~ # s/value=\"$form->{AP_amountselected}\"/value=\"$form->{AP_amountselected}\" selected/; - $form->{selectAP} = $form->{AP}; - $form->{selectAP} =~ - s/value=\"$form->{APselected}\"/value=\"$form->{APselected}\" selected/; - ($AP_amountaccno, $AP_amounttaxkey) = split(/--/, $form->{AP_amountselected}); $form->{selecttaxchart} = $form->{taxchart}; @@ -872,6 +878,38 @@ sub update { $lxdebug->leave_sub(); } + +sub post_payment { + $lxdebug->enter_sub(); + for $i (1 .. $form->{paidaccounts}) { + if ($form->{"paid_$i"}) { + $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig); + + $form->isblank("datepaid_$i", $locale->text('Payment date missing!')); + + $form->error($locale->text('Cannot post payment for a closed period!')) + if ($datepaid <= $closedto); + + if ($form->{currency} ne $form->{defaultcurrency}) { + $form->{"exchangerate_$i"} = $form->{exchangerate} + if ($invdate == $datepaid); + $form->isblank("exchangerate_$i", + $locale->text('Exchangerate for payment missing!')); + } + } + } + + ($form->{AP}) = split /--/, $form->{AP}; + ($form->{AP_paid}) = split /--/, $form->{AP_paid}; + $form->redirect($locale->text(' Payment posted!')) + if (AP->post_payment(\%myconfig, \%$form)); + $form->error($locale->text('Cannot post payment!')); + + + $lxdebug->leave_sub(); +} + + sub post { $lxdebug->enter_sub(); @@ -943,7 +981,7 @@ sub post_as_new { sub use_as_template { $lxdebug->enter_sub(); - map { delete $form->{$_} } qw(printed emailed queued invnumber invdate deliverydate id datepaid_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1); + map { delete $form->{$_} } qw(printed emailed queued invnumber invdate deliverydate id datepaid_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno); $form->{paidaccounts} = 1; $form->{rowcount}--; $form->{invdate} = $form->current_date(\%myconfig); @@ -1482,14 +1520,8 @@ sub ap_transactions { . $locale->text('AP Transaction') . qq|"> |; + . $locale->text('Vendor Invoice') . qq|"> - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - - print qq|