Revision 8c89bb02
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 112 | 112 |
$form->{"inventory_accno_$i"} = $form->{"expense_accno_$i"};
|
| 113 | 113 |
} |
| 114 | 114 |
|
| 115 |
if ($form->{"qty_$i"} != 0) {
|
|
| 115 |
if ($form->{"id_$i"}) {
|
|
| 116 | 116 |
|
| 117 | 117 |
# get item baseunit |
| 118 | 118 |
$query = qq|SELECT p.unit |
| SL/IS.pm | ||
|---|---|---|
| 103 | 103 |
|
| 104 | 104 |
$form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
|
| 105 | 105 |
|
| 106 |
if ($form->{"qty_$i"} != 0) {
|
|
| 106 |
if ($form->{"id_$i"} != 0) {
|
|
| 107 | 107 |
|
| 108 | 108 |
# add number, description and qty to $form->{number},
|
| 109 | 109 |
if ($form->{"subtotal_$i"} && !$subtotal_header) {
|
| ... | ... | |
| 551 | 551 |
$form->{"qty_$i"} *= -1;
|
| 552 | 552 |
} |
| 553 | 553 |
|
| 554 |
if ($form->{"qty_$i"} != 0) {
|
|
| 554 |
if ($form->{"id_$i"}) {
|
|
| 555 | 555 |
|
| 556 | 556 |
# get item baseunit |
| 557 | 557 |
$query = qq|SELECT p.unit |
| SL/OE.pm | ||
|---|---|---|
| 240 | 240 |
$form->parse_amount($myconfig, $form->{"${_}_$i"})
|
| 241 | 241 |
} qw(qty ship); |
| 242 | 242 |
|
| 243 |
if ($form->{"qty_$i"}) {
|
|
| 243 |
if ($form->{"id_$i"}) {
|
|
| 244 | 244 |
|
| 245 | 245 |
# get item baseunit |
| 246 | 246 |
$query = qq|SELECT p.unit |
| ... | ... | |
| 1028 | 1028 |
|
| 1029 | 1029 |
$form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
|
| 1030 | 1030 |
|
| 1031 |
if ($form->{"qty_$i"} != 0) {
|
|
| 1031 |
if ($form->{"id_$i"} != 0) {
|
|
| 1032 | 1032 |
|
| 1033 | 1033 |
# add number, description and qty to $form->{number}, ....
|
| 1034 | 1034 |
|
Auch abrufbar als: Unified diff
Bei Vorgängen auch Positionen speichern und ausdrucken, deren Anzahl = 0 ist (z.B. für Alternativpositionen, die die Gesamtsumme nicht beeinflussen sollen).