Revision 28b3276c
Von Moritz Bunkus vor fast 12 Jahren hinzugefügt
SL/AP.pm | ||
---|---|---|
58 | 58 |
delete $form->{currency} unless $form->{defaultcurrency}; |
59 | 59 |
|
60 | 60 |
($null, $form->{department_id}) = split(/--/, $form->{department}); |
61 |
$form->{department_id} *= 1; |
|
62 | 61 |
|
63 | 62 |
if ($form->{currency} eq $form->{defaultcurrency}) { |
64 | 63 |
$form->{exchangerate} = 1; |
SL/AR.pm | ||
---|---|---|
143 | 143 |
|
144 | 144 |
# update department |
145 | 145 |
($null, $form->{department_id}) = split(/--/, $form->{department}); |
146 |
$form->{department_id} *= 1; |
|
147 | 146 |
|
148 | 147 |
# amount for AR account |
149 | 148 |
$form->{receivables} = $form->round_amount($form->{amount}, 2) * -1; |
SL/GL.pm | ||
---|---|---|
109 | 109 |
} |
110 | 110 |
|
111 | 111 |
my ($null, $department_id) = split(/--/, $form->{department}); |
112 |
$department_id *= 1; |
|
113 | 112 |
|
114 | 113 |
$form->{ob_transaction} *= 1; |
115 | 114 |
$form->{cb_transaction} *= 1; |
... | ... | |
122 | 121 |
WHERE id = ?|; |
123 | 122 |
|
124 | 123 |
@values = ($form->{reference}, $form->{description}, $form->{notes}, |
125 |
conv_date($form->{transdate}), $department_id, $form->{taxincluded} ? 't' : 'f',
|
|
124 |
conv_date($form->{transdate}), conv_i($department_id), $form->{taxincluded} ? 't' : 'f',
|
|
126 | 125 |
$form->{storno} ? 't' : 'f', conv_i($form->{storno_id}), $form->{ob_transaction} ? 't' : 'f', $form->{cb_transaction} ? 't' : 'f', |
127 | 126 |
conv_i($form->{id})); |
128 | 127 |
do_query($form, $dbh, $query, @values); |
Auch abrufbar als: Unified diff
Debitoren-/Kreditoren-/Dialogbuchungen: Fremdschlüsselspalte "department_id" nicht mit "0" schreiben
Conflicts:
SL/AP.pm