Revision 15682dc4
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 81 | 81 |
$sth->finish; |
| 82 | 82 |
} |
| 83 | 83 |
|
| 84 |
($null, $form->{contact_id}) = split /--/, $form->{contact};
|
|
| 85 |
$form->{contact_id} *= 1;
|
|
| 86 |
|
|
| 87 | 84 |
map { $form->{$_} =~ s/\'/\'\'/g } qw(invnumber ordnumber quonumber);
|
| 88 | 85 |
|
| 89 | 86 |
my ($amount, $linetotal, $lastinventoryaccno, $lastexpenseaccno); |
| ... | ... | |
| 641 | 638 |
curr = '$form->{currency}',
|
| 642 | 639 |
department_id = $form->{department_id},
|
| 643 | 640 |
storno = '$form->{storno}',
|
| 644 |
cp_id = $form->{contact_id}
|
|
| 641 |
cp_id = | . conv_i($form->{cp_id}, 'NULL') . qq|
|
|
| 645 | 642 |
WHERE id = $form->{id}|;
|
| 646 | 643 |
$dbh->do($query) || $form->dberror($query); |
| 647 | 644 |
|
| ... | ... | |
| 1042 | 1039 |
} |
| 1043 | 1040 |
$sth->finish; |
| 1044 | 1041 |
|
| 1045 |
$form->get_contacts($dbh, $form->{vendor_id});
|
|
| 1046 |
|
|
| 1047 |
($null, $form->{cp_id}) = split /--/, $form->{contact};
|
|
| 1048 |
|
|
| 1049 |
# get contact if selected |
|
| 1050 |
if ($form->{contact} ne "--" && $form->{contact} ne "") {
|
|
| 1051 |
$form->get_contact($dbh, $form->{cp_id});
|
|
| 1052 |
} |
|
| 1053 |
|
|
| 1054 | 1042 |
# get shipto if we do not convert an order or invoice |
| 1055 | 1043 |
if (!$form->{shipto}) {
|
| 1056 | 1044 |
map { delete $form->{$_} }
|
Auch abrufbar als: Unified diff
Drop-Down-Auswahlboxen für Ansprechpartner und Lieferadresse bei jedem Maskenaufbau aus der Datenbank aufbauen. Für den HTML-Code wird jetzt das CGI-Modul verwendet.