Revision a0f6a00c
Von Thomas Kasulke vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ct.pl | ||
|---|---|---|
| 1284 | 1284 |
$form->{script} = "ap.pl";
|
| 1285 | 1285 |
# saving the history |
| 1286 | 1286 |
if(!exists $form->{addition}) {
|
| 1287 |
$form->{snumber} = qq|invnumber_| . $form->{invnumber};
|
|
| 1287 | 1288 |
$form->{addition} = "SAVED";
|
| 1288 | 1289 |
$form->save_history($form->dbconnect(\%myconfig)); |
| 1289 | 1290 |
} |
| ... | ... | |
| 1298 | 1299 |
$form->{script} = "ar.pl";
|
| 1299 | 1300 |
# saving the history |
| 1300 | 1301 |
if(!exists $form->{addition}) {
|
| 1302 |
$form->{snumber} = qq|invnumber_| . $form->{invnumber};
|
|
| 1301 | 1303 |
$form->{addition} = "SAVED";
|
| 1302 | 1304 |
$form->save_history($form->dbconnect(\%myconfig)); |
| 1303 | 1305 |
} |
| ... | ... | |
| 1313 | 1315 |
$form->{type} = "invoice";
|
| 1314 | 1316 |
# saving the history |
| 1315 | 1317 |
if(!exists $form->{addition}) {
|
| 1318 |
$form->{snumber} = qq|invnumber_| . $form->{invnumber};
|
|
| 1316 | 1319 |
$form->{addition} = "SAVED";
|
| 1317 | 1320 |
$form->save_history($form->dbconnect(\%myconfig)); |
| 1318 | 1321 |
} |
| ... | ... | |
| 1328 | 1331 |
$form->{type} = "request_quotation";
|
| 1329 | 1332 |
# saving the history |
| 1330 | 1333 |
if(!exists $form->{addition}) {
|
| 1334 |
$form->{snumber} = qq|ordnumber_| . $form->{ordnumber};
|
|
| 1331 | 1335 |
$form->{addition} = "SAVED";
|
| 1332 | 1336 |
$form->save_history($form->dbconnect(\%myconfig)); |
| 1333 | 1337 |
} |
| ... | ... | |
| 1343 | 1347 |
$form->{type} = "sales_quotation";
|
| 1344 | 1348 |
# saving the history |
| 1345 | 1349 |
if(!exists $form->{addition}) {
|
| 1350 |
$form->{snumber} = qq|ordnumber_| . $form->{ordnumber};
|
|
| 1346 | 1351 |
$form->{addition} = "SAVED";
|
| 1347 | 1352 |
$form->save_history($form->dbconnect(\%myconfig)); |
| 1348 | 1353 |
} |
| ... | ... | |
| 1359 | 1364 |
($form->{db} eq 'customer') ? "sales_order" : "purchase_order";
|
| 1360 | 1365 |
# saving the history |
| 1361 | 1366 |
if(!exists $form->{addition}) {
|
| 1367 |
$form->{snumber} = qq|ordnumber_| . $form->{ordnumber};
|
|
| 1362 | 1368 |
$form->{addition} = "SAVED";
|
| 1363 | 1369 |
$form->save_history($form->dbconnect(\%myconfig)); |
| 1364 | 1370 |
} |
| ... | ... | |
| 1387 | 1393 |
} |
| 1388 | 1394 |
# saving the history |
| 1389 | 1395 |
if(!exists $form->{addition}) {
|
| 1390 |
$form->{addition} = "SAVED";
|
|
| 1396 |
$form->{snumber} = ($form->{"db"} eq "customer" ? qq|customernumber_| . $form->{customernumber} : qq|vendornumber_| . $form->{vendornumber});
|
|
| 1397 |
$form->{addition} = "SAVED";
|
|
| 1391 | 1398 |
$form->save_history($form->dbconnect(\%myconfig)); |
| 1392 | 1399 |
} |
| 1393 | 1400 |
# /saving the history |
| ... | ... | |
| 1423 | 1430 |
} |
| 1424 | 1431 |
# saving the history |
| 1425 | 1432 |
if(!exists $form->{addition}) {
|
| 1433 |
$form->{snumber} = ($form->{"db"} eq "customer" ? qq|customernumber_| . $form->{customernumber} : qq|vendornumber_| . $form->{vendornumber});
|
|
| 1426 | 1434 |
$form->{addition} = "SAVED";
|
| 1427 | 1435 |
$form->save_history($form->dbconnect(\%myconfig)); |
| 1428 | 1436 |
} |
| ... | ... | |
| 1446 | 1454 |
$msg .= " deleted!"; |
| 1447 | 1455 |
# saving the history |
| 1448 | 1456 |
if(!exists $form->{addition}) {
|
| 1457 |
$form->{snumber} = ($form->{"db"} eq "customer" ? qq|customernumber_| . $form->{customernumber} : qq|vendornumber_| . $form->{vendornumber});
|
|
| 1449 | 1458 |
$form->{addition} = "DELETED";
|
| 1450 | 1459 |
$form->save_history($form->dbconnect(\%myconfig)); |
| 1451 | 1460 |
} |
Auch abrufbar als: Unified diff
history_search auf Buchungsnummern etcpp angepasst, so dass man auch gelöschte Daten in der Historie suchen kann.
Anpassungen innerhalb der Variablenübergabe:
$form->{snumbers} muß beim speichern der history gesetzt werden (z.B. $form->{snumbers} = qq|invnumber_| . $form->{invnumber}; )