Revision 875873f1
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 555 | 555 |
#write Trigger |
| 556 | 556 |
$jsscript = |
| 557 | 557 |
Form->write_trigger(\%myconfig, "3", |
| 558 |
"invdate", "BL", "trigger1",
|
|
| 558 |
"invdate", "BL", "trigger1", |
|
| 559 | 559 |
"duedate", "BL", "trigger2", |
| 560 | 560 |
"deliverydate", "BL", "trigger3"); |
| 561 | 561 |
} |
| ... | ... | |
| 599 | 599 |
$form->hide_form(qw(id action type media format queued printed emailed title vc discount |
| 600 | 600 |
creditlimit creditremaining tradediscount business closedto locked shipped storno storno_id |
| 601 | 601 |
max_dunning_level dunning_amount |
| 602 |
shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact shiptophone shiptofax
|
|
| 602 |
shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact shiptophone shiptofax |
|
| 603 | 603 |
shiptoemail shiptodepartment_1 shiptodepartment_2 message email subject cc bcc taxaccounts cursor_fokus |
| 604 | 604 |
convert_from_do_ids convert_from_oe_ids), |
| 605 | 605 |
map { $_.'_rate', $_.'_description', $_.'_taxnumber' } split / /, $form->{taxaccounts} );
|
| 606 |
|
|
| 606 |
|
|
| 607 | 607 |
print qq|<p>$form->{saved_message}</p>| if $form->{saved_message};
|
| 608 | 608 |
|
| 609 | 609 |
print qq| |
| ... | ... | |
| 698 | 698 |
print qq| <tr> |
| 699 | 699 |
<th align="right" nowrap>| . $locale->text('Credit Note Number') . qq|</th>
|
| 700 | 700 |
<td> |. |
| 701 |
$cgi->textfield("-name" => "invnumber", "-size" => 11, "-value" => $form->{invnumber}) .
|
|
| 701 |
$cgi->textfield("-name" => "invnumber", "-size" => 11, "-value" => $form->{invnumber}) .
|
|
| 702 | 702 |
qq| </td> |
| 703 | 703 |
</tr> |
| 704 | 704 |
<tr> |
| ... | ... | |
| 709 | 709 |
print qq| <tr> |
| 710 | 710 |
<th align="right" nowrap>| . $locale->text('Invoice Number') . qq|</th>
|
| 711 | 711 |
<td> |. |
| 712 |
$cgi->textfield("-name" => "invnumber", "-size" => 11, "-value" => $form->{invnumber}) .
|
|
| 712 |
$cgi->textfield("-name" => "invnumber", "-size" => 11, "-value" => $form->{invnumber}) .
|
|
| 713 | 713 |
qq| </td> |
| 714 | 714 |
</tr> |
| 715 | 715 |
<tr> |
| ... | ... | |
| 723 | 723 |
<tr> |
| 724 | 724 |
<th align="right" nowrap>| . $locale->text('Delivery Order Number') . qq|</th>
|
| 725 | 725 |
<td> |. |
| 726 |
$cgi->textfield("-name" => "donumber", "-size" => 11, "-value" => $form->{donumber}) .
|
|
| 726 |
$cgi->textfield("-name" => "donumber", "-size" => 11, "-value" => $form->{donumber}) .
|
|
| 727 | 727 |
qq| </td> |
| 728 | 728 |
</tr> |
| 729 | 729 |
<tr> |
| ... | ... | |
| 734 | 734 |
print qq| <tr> |
| 735 | 735 |
<th align="right" nowrap>| . $locale->text('Order Number') . qq|</th>
|
| 736 | 736 |
<td> |. |
| 737 |
$cgi->textfield("-name" => "ordnumber", "-size" => 11, "-value" => $form->{ordnumber}) .
|
|
| 737 |
$cgi->textfield("-name" => "ordnumber", "-size" => 11, "-value" => $form->{ordnumber}) .
|
|
| 738 | 738 |
qq| </td> |
| 739 | 739 |
</tr> |
| 740 | 740 |
<tr> |
| ... | ... | |
| 745 | 745 |
<tr> |
| 746 | 746 |
<th align="right" nowrap>| . $locale->text('Quotation Number') . qq|</th>
|
| 747 | 747 |
<td> |. |
| 748 |
$cgi->textfield("-name" => "quonumber", "-size" => 11, "-value" => $form->{quonumber}) .
|
|
| 748 |
$cgi->textfield("-name" => "quonumber", "-size" => 11, "-value" => $form->{quonumber}) .
|
|
| 749 | 749 |
qq| </td> |
| 750 | 750 |
</tr> |
| 751 | 751 |
<tr> |
| ... | ... | |
| 756 | 756 |
<tr> |
| 757 | 757 |
<th align="right" nowrap>| . $locale->text('Customer Order Number') . qq|</th>
|
| 758 | 758 |
<td> |. |
| 759 |
$cgi->textfield("-name" => "cusordnumber", "-size" => 11, "-value" => $form->{cusordnumber}) .
|
|
| 759 |
$cgi->textfield("-name" => "cusordnumber", "-size" => 11, "-value" => $form->{cusordnumber}) .
|
|
| 760 | 760 |
qq| </td> |
| 761 | 761 |
</tr> |
| 762 | 762 |
<tr> |
| ... | ... | |
| 772 | 772 |
<tr> |
| 773 | 773 |
<td> |
| 774 | 774 |
</td> |
| 775 |
</tr>
|
|
| 775 |
</tr> |
|
| 776 | 776 |
$jsscript |
| 777 | 777 |
|; |
| 778 | 778 |
print qq|<input type="hidden" name="webdav" value="$webdav">|; |
| ... | ... | |
| 1185 | 1185 |
. qq|"> |; |
| 1186 | 1186 |
} |
| 1187 | 1187 |
# /button for saving history |
| 1188 |
|
|
| 1189 |
# mark_as_paid button
|
|
| 1190 |
if($form->{id} ne "") {
|
|
| 1191 |
print qq|<input type="submit" class="submit" name="action" value="|
|
|
| 1188 |
|
|
| 1189 |
# mark_as_paid button |
|
| 1190 |
if($form->{id} ne "") {
|
|
| 1191 |
print qq|<input type="submit" class="submit" name="action" value="| |
|
| 1192 | 1192 |
. $locale->text('mark as paid') . qq|">|;
|
| 1193 | 1193 |
} |
| 1194 | 1194 |
# /mark_as_paid button |
| ... | ... | |
| 1217 | 1217 |
|
| 1218 | 1218 |
$auth->assert('invoice_edit');
|
| 1219 | 1219 |
|
| 1220 |
&mark_as_paid_common(\%myconfig,"ar");
|
|
| 1220 |
&mark_as_paid_common(\%myconfig,"ar"); |
|
| 1221 | 1221 |
|
| 1222 | 1222 |
$lxdebug->leave_sub(); |
| 1223 | 1223 |
} |
| ... | ... | |
| 1282 | 1282 |
|
| 1283 | 1283 |
map { $form->{item_list}[$i]{$_} =~ s/\"/"/g } qw(partnumber description unit);
|
| 1284 | 1284 |
map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
|
| 1285 |
|
|
| 1285 |
|
|
| 1286 | 1286 |
$form->{payment_id} = $form->{"part_payment_id_$i"} if $form->{"part_payment_id_$i"} ne "";
|
| 1287 | 1287 |
$form->{"discount_$i"} = 0 if $form->{"not_discountable_$i"};
|
| 1288 | 1288 |
|
Auch abrufbar als: Unified diff
Whitespace Purge