Revision a05eead3
Von Sven Schöling vor etwa 17 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 943 | 943 |
|
| 944 | 944 |
# save AR record |
| 945 | 945 |
$query = qq|UPDATE ar set |
| 946 |
invnumber = ?, |
|
| 947 |
ordnumber = ?, |
|
| 948 |
quonumber = ?, |
|
| 949 |
cusordnumber = ?, |
|
| 950 |
transdate = ?, |
|
| 951 |
orddate = ?, |
|
| 952 |
quodate = ?, |
|
| 953 |
customer_id = ?, |
|
| 954 |
amount = ?, |
|
| 955 |
netamount = ?, |
|
| 956 |
paid = ?, |
|
| 957 |
datepaid = ?, |
|
| 958 |
duedate = ?, |
|
| 959 |
deliverydate = ?, |
|
| 960 |
invoice = '1', |
|
| 961 |
shippingpoint = ?, |
|
| 962 |
shipvia = ?, |
|
| 963 |
terms = ?, |
|
| 964 |
notes = ?, |
|
| 965 |
intnotes = ?, |
|
| 966 |
taxincluded = ?, |
|
| 967 |
curr = ?, |
|
| 968 |
department_id = ?, |
|
| 969 |
payment_id = ?, |
|
| 970 |
type = ?, |
|
| 971 |
language_id = ?, |
|
| 972 |
taxzone_id = ?, |
|
| 973 |
shipto_id = ?, |
|
| 974 |
delivery_customer_id = ?, |
|
| 975 |
delivery_vendor_id = ?, |
|
| 976 |
employee_id = ?, |
|
| 977 |
salesman_id = ?, |
|
| 978 |
storno = ?, |
|
| 979 |
storno_id = ?, |
|
| 980 |
globalproject_id = ?, |
|
| 981 |
cp_id = ?, |
|
| 982 |
transaction_description = ?, |
|
| 983 |
marge_total = ?, |
|
| 984 |
marge_percent = ? |
|
| 946 |
invnumber = ?, ordnumber = ?, quonumber = ?, cusordnumber = ?, |
|
| 947 |
transdate = ?, orddate = ?, quodate = ?, customer_id = ?, |
|
| 948 |
amount = ?, netamount = ?, paid = ?, datepaid = ?, |
|
| 949 |
duedate = ?, deliverydate = ?, invoice = ?, shippingpoint = ?, |
|
| 950 |
shipvia = ?, terms = ?, notes = ?, intnotes = ?, |
|
| 951 |
curr = ?, department_id = ?, payment_id = ?, taxincluded = ?, |
|
| 952 |
type = ?, language_id = ?, taxzone_id = ?, shipto_id = ?, |
|
| 953 |
employee_id = ?, salesman_id = ?, storno_id = ?, storno = ?, |
|
| 954 |
cp_id = ?, marge_total = ?, marge_percent = ?, |
|
| 955 |
globalproject_id = ?, delivery_customer_id = ?, |
|
| 956 |
transaction_description = ?, delivery_vendor_id = ? |
|
| 985 | 957 |
WHERE id = ?|; |
| 986 |
@values = ($form->{"invnumber"}, $form->{"ordnumber"}, $form->{"quonumber"}, $form->{"cusordnumber"},
|
|
| 987 |
conv_date($form->{"invdate"}), conv_date($form->{"orddate"}), conv_date($form->{"quodate"}),
|
|
| 988 |
conv_i($form->{"customer_id"}), $amount, $netamount, $form->{"paid"},
|
|
| 989 |
conv_date($form->{"datepaid"}), conv_date($form->{"duedate"}), conv_date($form->{"deliverydate"}),
|
|
| 990 |
$form->{"shippingpoint"}, $form->{"shipvia"}, conv_i($form->{"terms"}),
|
|
| 991 |
$form->{"notes"}, $form->{"intnotes"}, $form->{"taxincluded"} ? 't' : 'f',
|
|
| 992 |
$form->{"currency"}, conv_i($form->{"department_id"}), conv_i($form->{"payment_id"}),
|
|
| 993 |
$form->{"type"}, conv_i($form->{"language_id"}), conv_i($form->{"taxzone_id"}),
|
|
| 994 |
conv_i($form->{"shipto_id"}),
|
|
| 995 |
conv_i($form->{"delivery_customer_id"}), conv_i($form->{"delivery_vendor_id"}),
|
|
| 996 |
conv_i($form->{"employee_id"}), conv_i($form->{"salesman_id"}),
|
|
| 997 |
$form->{"storno"} ? 't' : 'f', conv_i($form->{storno_id}), conv_i($form->{"globalproject_id"}),
|
|
| 998 |
conv_i($form->{"cp_id"}), $form->{transaction_description},
|
|
| 999 |
$form->{marge_total} * 1, $form->{marge_percent} * 1,
|
|
| 1000 |
conv_i($form->{"id"}));
|
|
| 958 |
@values = ( $form->{"invnumber"}, $form->{"ordnumber"}, $form->{"quonumber"}, $form->{"cusordnumber"},
|
|
| 959 |
conv_date($form->{"invdate"}), conv_date($form->{"orddate"}), conv_date($form->{"quodate"}), conv_i($form->{"customer_id"}),
|
|
| 960 |
$amount, $netamount, $form->{"paid"}, conv_date($form->{"datepaid"}),
|
|
| 961 |
conv_date($form->{"duedate"}), conv_date($form->{"deliverydate"}), '1', $form->{"shippingpoint"},
|
|
| 962 |
$form->{"shipvia"}, conv_i($form->{"terms"}), $form->{"notes"}, $form->{"intnotes"},
|
|
| 963 |
$form->{"currency"}, conv_i($form->{"department_id"}), conv_i($form->{"payment_id"}), $form->{"taxincluded"} ? 't' : 'f',
|
|
| 964 |
$form->{"type"}, conv_i($form->{"language_id"}), conv_i($form->{"taxzone_id"}), conv_i($form->{"shipto_id"}),
|
|
| 965 |
conv_i($form->{"employee_id"}), conv_i($form->{"salesman_id"}), conv_i($form->{storno_id}), $form->{"storno"} ? 't' : 'f',
|
|
| 966 |
conv_i($form->{"cp_id"}), 1 * $form->{marge_total} , 1 * $form->{marge_percent},
|
|
| 967 |
conv_i($form->{"globalproject_id"}), conv_i($form->{"delivery_customer_id"}),
|
|
| 968 |
$form->{transaction_description}, conv_i($form->{"delivery_vendor_id"}),
|
|
| 969 |
conv_i($form->{"id"}));
|
|
| 1001 | 970 |
do_query($form, $dbh, $query, @values); |
| 1002 | 971 |
|
| 1003 | 972 |
if($form->{"formname"} eq "credit_note") {
|
Auch abrufbar als: Unified diff
Kosmetik, merge aus -r5105,5106,5118,5120,5124