Witam,
Ja do tego spłodziłem sobie trigger + procedurę w MySQL. Działa tak, że jeżeli jest insert na tabeli z wartością powyżej 0, to odpala się procedura która sprawdza czy saldo umożliwia odznaczenie faktur jako rozliczonych, jeżeli tak to odznacza bez do wysokości środków które klient wpłacił. Rozwiązanie o tyle lepsze, że działa bez crona i zmian kodu w lmsie, czyli automagicznie i transparętnie.
W dniu 12 września 2011 16:28 użytkownik Łukasz Bujek booyas@gmail.com napisał:
W dniu 12 września 2011 15:44 użytkownik Robert cyberm@sarocom.net napisał:
Skrypt ma kilka wad:
- pętla while ($customer_balance < 0) nie zatrzyma się jeśli saldo
klienta jest mniejsze od sumy wartości wszystkich wystawionych faktur i korekt - u mnie się to nie zdarzyło,
w sumie to skrypt jest calkim ok po za tym powyzej. u najstarszych klientow zdarza sie ze faktury wystawiane byly poza lmsem i dzieje sie tak jak napisalem wyzej (znam kilka takich osob, w tym ja). wydaje mi sie ze wystarczylo by wyrzucic na ekran informacje ze dla tego klienta wszystkie faktury pozostana nierozliczone i takie wlasnie je zostawic.
No to ciach. Już się nie zapętla. Wyrzuca informację o wszystkich fakturach nierozliczonych (choć w rzeczywistości ujemne i zerowe rozliczy, ale to szczegół). Jeśli saldo jest mniejsze niż wynikałoby to z wystawionych faktur - informuje o tym. Proszę o dalsze testy/uwagi.
Pozdrawiam.
Łukasz Bujek
---------- start ---------- #!/usr/bin/perl use DBI; $dsn = 'DBI:mysql:lms:localhost'; $db_user_name = 'lms'; $db_password = '123dupa12333'; $dbh = DBI->connect($dsn, $db_user_name, $db_password);
#rozliczanie wszystkich faktur i korekt $close_invoices = $dbh->prepare(qq{ update documents set closed = 1 where type = 1 or type = 3;} ); $close_invoices->execute();
#wybieranie klientów z ujemnym saldem $select_customerid = $dbh->prepare(qq{ select customerid from cash where customerid >0 group by customerid having sum(value) < 0;} ); $select_customerid->execute(); $count = $select_customerid->rows();
#przegladanie faktur klientów z ujemnym saldem for ($i = 1; $i <= $count; $i ++) {
#obliczanie salda klienta $customer_id = $select_customerid->fetchrow_array(); $get_customer_balance = $dbh->prepare(qq{ select sum(value) from cash where customerid = $customer_id;} ); $get_customer_balance->execute(); $customer_balance = $get_customer_balance->fetchrow_array();
print "id: $customer_id, balance: $customer_balance, ";
#wybranie wszystkich faktur danego klienta w kolejnosci od najmlodszej $get_invoices = $dbh->prepare(qq{ select id,type from documents where (type=3 or type=1) and customerid = $customer_id order by cdate desc;} ); $get_invoices->execute(); $invoice_count = $get_invoices->rows();
#przegladamy faktury, zaznaczajac jako nierozliczone te z wartoscia dodatnia, zaznaczamy tyle faktur az ich laczna wartosc pokryje ujemne saldo klienta while ($customer_balance < 0 && $invoice_count > 0) { @invoice_data = $get_invoices->fetchrow_array(); $invoice_id = $invoice_data[0]; $invoice_type = $invoice_data[1];
# jeśli faktura, wartosc liczymy jako suma (wartosc towaru * ilosc) if ($invoice_type == 1) { $get_invoice_value = $dbh->prepare(qq{ select sum(value*count) from invoicecontents where docid = $invoice_id;} ); $get_invoice_value->execute(); $invoice_value = $get_invoice_value->fetchrow_array(); } else # jesli korekta, wartosc liczymy jako suma wartosci towaru (w moich korektach czesto w polu count bylo 0) { $get_invoice_value = $dbh->prepare(qq{ select sum(value) from invoicecontents where docid = $invoice_id;} ); $get_invoice_value->execute(); $invoice_value = $get_invoice_value->fetchrow_array(); } print "value: $invoice_value, ";
if ($invoice_value > 0) { $customer_balance += $invoice_value; $open_invoice = $dbh->prepare(qq{ update documents set closed = 0 where id = $invoice_id;} ); $open_invoice->execute(); }
print "balance after: $customer_balance \n";
$invoice_count--;
if ($invoice_count == 0) { print "Wszystkie faktury klienta $customer_id pozostaja nierozliczone.\n"; if ($customer_balance < 0) { print "UWAGA! Saldo klienta $customer_id jest nizsze niz wynika to z wystawionych faktur. Petla przerwana.\n"; } } } } ---------- koniec ---------- _______________________________________________ lms mailing list lms@lists.lms.org.pl http://lists.lms.org.pl/mailman/listinfo/lms