function update($type, $id, $reference)
{
update_reference($type, $id, $reference);
+ if ($reference != 'auto')
+ $this->save_last($reference, $type);
}
-
+ // check if reference is used for any non voided transaction (used for ST_JOURNALENTRY type)
function exists($type, $reference)
{
return (find_reference($type, $reference) != null);
{
return get_next_reference($type);
}
+ //
+ // Restore previous reference if voided trans ref was the last one.
+ //
+ function restore_last($type, $id)
+ {
+ $reference = $this->get($type, $id);
+ $last = $this->increment($this->get_next($type), true); //decrement
+ if ($reference==$last) {
+ save_next_reference($type, $last);
+ }
+ }
//------------------------------------
{
return strlen(trim($reference)) > 0;
}
-
- function increment($reference)
+ //
+ // Increments (or decrements if $back==true) reference template
+ //
+ function increment($reference, $back=false)
{
// New method done by Pete. So f.i. WA036 will increment to WA037 and so on.
- // If $reference is trailed by digits, and digits only,
- // extract them and add 1, then put the alpha prefix back on
+ // If $reference contains at least one group of digits,
+ // extract first didgits group and add 1, then put all together.
// NB. preg_match returns 1 if the regex matches completely
// also $result[0] holds entire string, 1 the first captured, 2 the 2nd etc.
- if (preg_match('/^(.*?)(\d+)$/', $reference, $result) == 1)
+ //
+ if (preg_match('/^(\D*?)(\d+)(.*)/', $reference, $result) == 1)
{
- $dig_count = strlen($result[2]); // How many digits? eg. 0003 = 4
- $fmt = '%0' . $dig_count . 'd'; // Make a format string - leading zeroes
- $nextval = $result[1] . sprintf($fmt, intval($result[2] + 1)); // Add one on, and put prefix back on
- return $nextval;
+ list($all, $prefix, $number, $postfix) = $result;
+ $dig_count = strlen($number); // How many digits? eg. 0003 = 4
+ $fmt = '%0' . $dig_count . 'd'; // Make a format string - leading zeroes
+ $val = intval($number + ($back ? ($number<1 ? 0 : -1) : 1));
+ $nextval = sprintf($fmt, $val); // Add one on, and put prefix back on
+
+ return $prefix.$nextval.$postfix;
}
else
return $reference;
}
-
//------------------------------------
}