X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/82c41aacb54996848276f5cb00c6587bf20f03a7..a05eead353b55ba228a5eec40f90c0f2c330092a:/SL/IS.pm diff --git a/SL/IS.pm b/SL/IS.pm index ec744df2e..2632a727d 100644 --- a/SL/IS.pm +++ b/SL/IS.pm @@ -943,61 +943,30 @@ sub post_invoice { # save AR record $query = qq|UPDATE ar set - invnumber = ?, - ordnumber = ?, - quonumber = ?, - cusordnumber = ?, - transdate = ?, - orddate = ?, - quodate = ?, - customer_id = ?, - amount = ?, - netamount = ?, - paid = ?, - datepaid = ?, - duedate = ?, - deliverydate = ?, - invoice = '1', - shippingpoint = ?, - shipvia = ?, - terms = ?, - notes = ?, - intnotes = ?, - taxincluded = ?, - curr = ?, - department_id = ?, - payment_id = ?, - type = ?, - language_id = ?, - taxzone_id = ?, - shipto_id = ?, - delivery_customer_id = ?, - delivery_vendor_id = ?, - employee_id = ?, - salesman_id = ?, - storno = ?, - storno_id = ?, - globalproject_id = ?, - cp_id = ?, - transaction_description = ?, - marge_total = ?, - marge_percent = ? + invnumber = ?, ordnumber = ?, quonumber = ?, cusordnumber = ?, + transdate = ?, orddate = ?, quodate = ?, customer_id = ?, + amount = ?, netamount = ?, paid = ?, datepaid = ?, + duedate = ?, deliverydate = ?, invoice = ?, shippingpoint = ?, + shipvia = ?, terms = ?, notes = ?, intnotes = ?, + curr = ?, department_id = ?, payment_id = ?, taxincluded = ?, + type = ?, language_id = ?, taxzone_id = ?, shipto_id = ?, + employee_id = ?, salesman_id = ?, storno_id = ?, storno = ?, + cp_id = ?, marge_total = ?, marge_percent = ?, + globalproject_id = ?, delivery_customer_id = ?, + transaction_description = ?, delivery_vendor_id = ? WHERE id = ?|; - @values = ($form->{"invnumber"}, $form->{"ordnumber"}, $form->{"quonumber"}, $form->{"cusordnumber"}, - conv_date($form->{"invdate"}), conv_date($form->{"orddate"}), conv_date($form->{"quodate"}), - conv_i($form->{"customer_id"}), $amount, $netamount, $form->{"paid"}, - conv_date($form->{"datepaid"}), conv_date($form->{"duedate"}), conv_date($form->{"deliverydate"}), - $form->{"shippingpoint"}, $form->{"shipvia"}, conv_i($form->{"terms"}), - $form->{"notes"}, $form->{"intnotes"}, $form->{"taxincluded"} ? 't' : 'f', - $form->{"currency"}, conv_i($form->{"department_id"}), conv_i($form->{"payment_id"}), - $form->{"type"}, conv_i($form->{"language_id"}), conv_i($form->{"taxzone_id"}), - conv_i($form->{"shipto_id"}), - conv_i($form->{"delivery_customer_id"}), conv_i($form->{"delivery_vendor_id"}), - conv_i($form->{"employee_id"}), conv_i($form->{"salesman_id"}), - $form->{"storno"} ? 't' : 'f', conv_i($form->{storno_id}), conv_i($form->{"globalproject_id"}), - conv_i($form->{"cp_id"}), $form->{transaction_description}, - $form->{marge_total} * 1, $form->{marge_percent} * 1, - conv_i($form->{"id"})); + @values = ( $form->{"invnumber"}, $form->{"ordnumber"}, $form->{"quonumber"}, $form->{"cusordnumber"}, + conv_date($form->{"invdate"}), conv_date($form->{"orddate"}), conv_date($form->{"quodate"}), conv_i($form->{"customer_id"}), + $amount, $netamount, $form->{"paid"}, conv_date($form->{"datepaid"}), + conv_date($form->{"duedate"}), conv_date($form->{"deliverydate"}), '1', $form->{"shippingpoint"}, + $form->{"shipvia"}, conv_i($form->{"terms"}), $form->{"notes"}, $form->{"intnotes"}, + $form->{"currency"}, conv_i($form->{"department_id"}), conv_i($form->{"payment_id"}), $form->{"taxincluded"} ? 't' : 'f', + $form->{"type"}, conv_i($form->{"language_id"}), conv_i($form->{"taxzone_id"}), conv_i($form->{"shipto_id"}), + conv_i($form->{"employee_id"}), conv_i($form->{"salesman_id"}), conv_i($form->{storno_id}), $form->{"storno"} ? 't' : 'f', + conv_i($form->{"cp_id"}), 1 * $form->{marge_total} , 1 * $form->{marge_percent}, + conv_i($form->{"globalproject_id"}), conv_i($form->{"delivery_customer_id"}), + $form->{transaction_description}, conv_i($form->{"delivery_vendor_id"}), + conv_i($form->{"id"})); do_query($form, $dbh, $query, @values); if($form->{"formname"} eq "credit_note") {