summaryrefslogtreecommitdiff
path: root/locale/eg_utf/pos
blob: a667514471059e87ee6e873d943592a980ebd1dc (plain)
  1. $self{charset} = 'UTF-8';
  2. $self{texts} = {
  3. 'Accounting Menu' => 'قائمة الحسابات',
  4. 'Add POS Invoice' => 'اضافة فاتورة نقطة بيع',
  5. 'Amount' => 'الكمية',
  6. 'Cannot post transaction!' => 'لا يمكن تسجيل الحركة',
  7. 'Change' => 'تغيير',
  8. 'Continue' => 'تابع',
  9. 'Credit Limit' => 'حد الائتمان',
  10. 'Currency' => 'عملة',
  11. 'Current' => 'الحالي',
  12. 'Customer' => 'العميل',
  13. 'Customer missing!' => 'عميل غير موجود',
  14. 'Delete' => 'الغاء',
  15. 'Department' => 'قسم',
  16. 'Description' => 'وصف',
  17. 'Edit POS Invoice' => 'تعديل فاتورة أمر الشراء',
  18. 'Exchange Rate' => 'سعر الصرف',
  19. 'Exchange rate missing!' => 'سعر الصرف غير موجود',
  20. 'Extended' => 'اجمالى',
  21. 'From' => 'من',
  22. 'Language' => 'اللغة',
  23. 'Memo' => 'ملاحظات',
  24. 'Number' => 'الرقم',
  25. 'Open' => 'فتح',
  26. 'Post' => 'تسجيل',
  27. 'Posted!' => 'سجل',
  28. 'Price' => 'سعر',
  29. 'Print' => 'طباعة',
  30. 'Qty' => 'الكمية',
  31. 'Receipts' => 'الواردات',
  32. 'Record in' => 'في السجل',
  33. 'Remaining' => 'متبقى',
  34. 'Salesperson' => 'مندوب مبيعات',
  35. 'Screen' => 'الشاشة',
  36. 'Source' => 'مصدر',
  37. 'Subtotal' => 'اجمالى',
  38. 'Tax Included' => 'الضريبة المضافة',
  39. 'To' => 'إلى',
  40. 'Total' => 'مجموع',
  41. 'Unit' => 'وحدة',
  42. 'Update' => 'تعديل',
  43. };
  44. $self{subs} = {
  45. 'acc_menu' => 'acc_menu',
  46. 'add' => 'add',
  47. 'display' => 'display',
  48. 'display_row' => 'display_row',
  49. 'edit' => 'edit',
  50. 'form_footer' => 'form_footer',
  51. 'form_header' => 'form_header',
  52. 'js_menu' => 'js_menu',
  53. 'lookup_partsgroup' => 'lookup_partsgroup',
  54. 'menubar' => 'menubar',
  55. 'openinvoices' => 'openinvoices',
  56. 'post' => 'post',
  57. 'print' => 'print',
  58. 'print_and_post' => 'print_and_post',
  59. 'print_form' => 'print_form',
  60. 'print_options' => 'print_options',
  61. 'receipts' => 'receipts',
  62. 'section_menu' => 'section_menu',
  63. 'تابع' => 'continue',
  64. 'الغاء' => 'delete',
  65. 'تسجيل' => 'post',
  66. 'طباعة' => 'print',
  67. 'تعديل' => 'update',
  68. };
  69. 1;
class="hl opt">|
  • SELECT (SELECT value FROM defaults
  • WHERE setting_key = 'inventory_accno_id')
  • AS inventory_accno_id,
  • (SELECT value FROM defaults
  • WHERE setting_key = 'income_accno_id')
  • AS income_accno_id,
  • (SELECT value FROM defaults
  • WHERE setting_key = 'expense_accno_id')
  • AS expense_accno_id,
  • (SELECT value FROM defaults
  • WHERE setting_key = 'fxgain_accno_id')
  • AS fxgain_accno_id,
  • (SELECT value FROM defaults
  • WHERE setting_key = 'fxloss_accno_id')
  • AS fxloss_accno_id|;
  • $sth = $dbh->prepare($query);
  • $sth->execute || $form->dberror($query);
  • $ref = $sth->fetchrow_hashref(NAME_lc);
  • for (keys %$ref) { $form->{$_} = $ref->{$_} }
  • $sth->finish;
  • # check if we have any transactions
  • $query = qq|
  • SELECT trans_id
  • FROM acc_trans
  • WHERE chart_id = ?
  • LIMIT 1|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id});
  • ($form->{orphaned}) = $sth->fetchrow_array();
  • $form->{orphaned} = !$form->{orphaned};
  • $dbh->commit;
  • }
  • sub save_account {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database, turn off AutoCommit
  • my $dbh = $form->{dbh};
  • $form->{link} = "";
  • foreach my $item ($form->{AR},
  • $form->{AR_amount},
  • $form->{AR_tax},
  • $form->{AR_paid},
  • $form->{AP},
  • $form->{AP_amount},
  • $form->{AP_tax},
  • $form->{AP_paid},
  • $form->{IC},
  • $form->{IC_income},
  • $form->{IC_sale},
  • $form->{IC_expense},
  • $form->{IC_cogs},
  • $form->{IC_taxpart},
  • $form->{IC_taxservice}) {
  • $form->{link} .= "${item}:" if ($item);
  • }
  • chop $form->{link};
  • # strip blanks from accno
  • for (qw(accno gifi_accno)) { $form->{$_} =~ s/( |')//g }
  • foreach my $item (qw(accno gifi_accno description)) {
  • $form->{$item} =~ s/-(-+)/-/g;
  • $form->{$item} =~ s/ ( )+/ /g;
  • }
  • my $query;
  • my $sth;
  • $form->{contra} *= 1;
  • my @queryargs;
  • @queryargs = ($form->{accno}, $form->{description},
  • $form->{charttype}, $form->{gifi_accno},
  • $form->{category}, $form->{"link"},
  • $form->{contra});
  • # if we have an id then replace the old record
  • if ($form->{id}) {
  • $query = qq|
  • UPDATE chart SET accno = ?,
  • description = ?,
  • charttype = ?,
  • gifi_accno = ?,
  • category = ?,
  • link = ?,
  • contra = ?
  • WHERE id = ?|;
  • push @queryargs, $form->{id};
  • } else {
  • $query = qq|
  • INSERT INTO chart
  • (accno, description, charttype,
  • gifi_accno, category, link, contra)
  • VALUES (?, ?, ?, ?, ?, ?, ?)|;
  • }
  • $sth = $dbh->prepare($query);
  • $sth->execute(@queryargs) || $form->dberror($query);
  • $sth->finish;
  • $chart_id = $dbh->quote($form->{id});
  • if (! $form->{id}) {
  • # get id from chart
  • $query = qq|
  • SELECT id
  • FROM chart
  • WHERE accno = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{accno});
  • ($chart_id) = $sth->fetchrow_array();
  • $sth->finish;
  • }
  • if ($form->{IC_taxpart} || $form->{IC_taxservice} || $form->{AR_tax} || $form->{AP_tax}) {
  • # add account if it doesn't exist in tax
  • $query = qq|SELECT chart_id
  • FROM tax
  • WHERE chart_id = $chart_id|;
  • my ($tax_id) = $dbh->selectrow_array($query);
  • # add tax if it doesn't exist
  • unless ($tax_id) {
  • $query = qq|INSERT INTO tax (chart_id, rate)
  • VALUES ($chart_id, 0)|;
  • $dbh->do($query) || $form->dberror($query);
  • }
  • } else {
  • # remove tax
  • if ($form->{id}) {
  • $query = qq|DELETE FROM tax
  • WHERE chart_id = $form->{id}|;
  • $dbh->do($query) || $form->dberror($query);
  • }
  • }
  • # commit
  • my $rc = $dbh->commit;
  • $rc;
  • }
  • sub delete_account {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database, turn off AutoCommit
  • my $dbh = $form->{dbh};
  • my $sth;
  • my $query = qq|
  • SELECT count(*)
  • FROM acc_trans
  • WHERE chart_id = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id});
  • my ($rowcount) = $sth->fetchrow_array();
  • if ($dbh->selectrow_array($query)) {
  • $form->error(
  • "Cannot delete accounts with associated transactions!"
  • );
  • }
  • # delete chart of account record
  • $query = qq|
  • DELETE FROM chart
  • WHERE id = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id}) || $form->dberror($query);
  • # set inventory_accno_id, income_accno_id, expense_accno_id to defaults
  • $query = qq|
  • UPDATE parts
  • SET inventory_accno_id = (SELECT inventory_accno_id
  • FROM defaults)
  • WHERE inventory_accno_id = ?|;
  • $sth = $dbh->prepare($query);
  • $dbh->execute($form->{id}) || $form->dberror($query);
  • for (qw(income_accno_id expense_accno_id)){
  • $query = qq|
  • UPDATE parts
  • SET $_ = (SELECT value
  • FROM defaults
  • WHERE setting_key = '$_')
  • WHERE $_ = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id}) || $form->dberror($query);
  • $sth->finish;
  • }
  • foreach my $table (qw(partstax customertax vendortax tax)) {
  • $query = qq|
  • DELETE FROM $table
  • WHERE chart_id = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id}) || $form->dberror($query);
  • $sth->finish;
  • }
  • # commit and redirect
  • my $rc = $dbh->commit;
  • $rc;
  • }
  • sub gifi_accounts {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • my $query = qq|
  • SELECT accno, description
  • FROM gifi
  • ORDER BY accno|;
  • $sth = $dbh->prepare($query);
  • $sth->execute || $form->dberror($query);
  • while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
  • push @{ $form->{ALL} }, $ref;
  • }
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub get_gifi {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • my $sth;
  • my $query = qq|
  • SELECT accno, description
  • FROM gifi
  • WHERE accno = '$form->{accno}'|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{accno}) || $form->dberror($query);
  • ($form->{accno}, $form->{description}) = $sth->fetchrow_array();
  • $sth->finish;
  • # check for transactions
  • $query = qq|
  • SELECT count(*)
  • FROM acc_trans a
  • JOIN chart c ON (a.chart_id = c.id)
  • JOIN gifi g ON (c.gifi_accno = g.accno)
  • WHERE g.accno = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{accno}) || $form->dberror($query);
  • ($numrows) = $dbh->selectrow_array($query);
  • if (($numrows * 1) == 0){
  • $form->{orphaned} = 1;
  • } else {
  • $form->{orphaned} = 0;
  • }
  • $dbh->commit;
  • }
  • sub save_gifi {
  • my ($self, $myconfig, $form) = @_;
  • my $dbh = $form->{dbh};
  • $form->{accno} =~ s/( |')//g;
  • foreach my $item (qw(accno description)) {
  • $form->{$item} =~ s/-(-+)/-/g;
  • $form->{$item} =~ s/ ( )+/ /g;
  • }
  • my @queryargs = ($form->{accno}, $form->{description});
  • # id is the old account number!
  • if ($form->{id}) {
  • $query = qq|
  • UPDATE gifi
  • SET accno = ?,
  • description = ?
  • WHERE accno = ?|;
  • push @queryargs, $form->{id};
  • } else {
  • $query = qq|
  • INSERT INTO gifi (accno, description)
  • VALUES (?, ?)|;
  • }
  • $sth = $dbh->prepare($query);
  • $sth->execute(@queryargs) || $form->dberror;
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub delete_gifi {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • # id is the old account number!
  • $query = qq|
  • DELETE FROM gifi
  • WHERE accno = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id}) || $form->dberror($query);
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub warehouses {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $form->sort_order();
  • my $query = qq|
  • SELECT id, description
  • FROM warehouse
  • ORDER BY description $form->{direction}|;
  • $sth = $dbh->prepare($query);
  • $sth->execute || $form->dberror($query);
  • while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
  • push @{ $form->{ALL} }, $ref;
  • }
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub get_warehouse {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • my $sth;
  • my $query = qq|
  • SELECT description
  • FROM warehouse
  • WHERE id = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id}) || $form->dberror($query);
  • ($form->{description}) = $sth->fetchrow_array($query);
  • $sth->finish;
  • # see if it is in use
  • $query = qq|
  • SELECT count(*)
  • FROM inventory
  • WHERE warehouse_id = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id});
  • ($form->{orphaned}) = $sth->fetchrow_array($query);
  • if (($form->{orphaned} * 1) == 0){
  • $form->{orphaned} = 1;
  • } else {
  • $form->{orphaned} = 0;
  • }
  • $dbh->commit;
  • }
  • sub save_warehouse {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • my $sth;
  • my @queryargs = ($form->{description});
  • $form->{description} =~ s/-(-)+/-/g;
  • $form->{description} =~ s/ ( )+/ /g;
  • if ($form->{id}) {
  • $query = qq|
  • UPDATE warehouse
  • SET description = ?
  • WHERE id = ?|;
  • push @queryargs, $form->{id};
  • } else {
  • $query = qq|
  • INSERT INTO warehouse (description)
  • VALUES (?)|;
  • }
  • $sth = $dbh->prepare($query);
  • $sth->execute(@queryargs) || $form->dberror($query);
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub delete_warehouse {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $query = qq|
  • DELETE FROM warehouse
  • WHERE id = ?|;
  • $dbh->prepare($query)->execute($form->{id}) || $form->dberror($query);
  • $dbh->commit;
  • }
  • sub departments {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $form->sort_order();
  • my $query = qq|SELECT id, description, role
  • FROM department
  • ORDER BY description $form->{direction}|;
  • $sth = $dbh->prepare($query);
  • $sth->execute || $form->dberror($query);
  • while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
  • push @{ $form->{ALL} }, $ref;
  • }
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub get_department {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • my $sth;
  • my $query = qq|
  • SELECT description, role
  • FROM department
  • WHERE id = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id});
  • ($form->{description}, $form->{role}) = $sth->fetchrow_array($query);
  • $sth->finish;
  • for (keys %$ref) { $form->{$_} = $ref->{$_} }
  • # see if it is in use
  • $query = qq|
  • SELECT count(*)
  • FROM dpt_trans
  • WHERE department_id = ? |;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id});
  • ($form->{orphaned}) = $sth->fetchrow_array($query);
  • if (($form->{orphaned} * 1) == 0){
  • $form->{orphaned} = 1;
  • } else {
  • $form->{orphaned} = 0;
  • }
  • $dbh->commit;
  • }
  • sub save_department {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $form->{description} =~ s/-(-)+/-/g;
  • $form->{description} =~ s/ ( )+/ /g;
  • my $sth;
  • my @queryargs = ($form->{description}, $form->{role});
  • if ($form->{id}) {
  • $query = qq|
  • UPDATE department
  • SET description = ?,
  • role = ?
  • WHERE id = ?|;
  • push @queryargs, $form->{id};
  • } else {
  • $query = qq|
  • INSERT INTO department (description, role)
  • VALUES (?, ?)|;
  • }
  • $sth = $dbh->prepare($query);
  • $sth->execute(@queryargs) || $form->dberror($query);
  • $dbh->commit;
  • }
  • sub delete_department {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $query = qq|
  • DELETE FROM department
  • WHERE id = ?|;
  • $dbh->prepare($query)->execute($form->{id});
  • $dbh->commit;
  • }
  • sub business {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $form->sort_order();
  • my $query = qq|
  • SELECT id, description, discount
  • FROM business
  • ORDER BY description $form->{direction}|;
  • $sth = $dbh->prepare($query);
  • $sth->execute || $form->dberror($query);
  • while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
  • push @{ $form->{ALL} }, $ref;
  • }
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub get_business {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->dbconnect($myconfig);
  • my $query = qq|
  • SELECT description, discount
  • FROM business
  • WHERE id = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id});
  • ($form->{description}, $form->{discount}) = $sth->fetchrow_array();
  • $dbh->commit;
  • }
  • sub save_business {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->dbconnect($myconfig);
  • $form->{description} =~ s/-(-)+/-/g;
  • $form->{description} =~ s/ ( )+/ /g;
  • $form->{discount} /= 100;
  • my $sth;
  • my @queryargs = ($form->{description}, $form->{discount});
  • if ($form->{id}) {
  • $query = qq|
  • UPDATE business
  • SET description = ?,
  • discount = ?
  • WHERE id = ?|;
  • push @queryargs, $form->{id};
  • } else {
  • $query = qq|INSERT INTO business (description, discount)
  • VALUES (?, ?)|;
  • }
  • $dbh->prepare($query)->execute(@queryargs) || $form->dberror($query);
  • $dbh->commit;
  • }
  • sub delete_business {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $query = qq|
  • DELETE FROM business
  • WHERE id = ?|;
  • $dbh->prepare($query)->execute($form->{id}) || $form->dberror($query);
  • $dbh->commit;
  • }
  • sub sic {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $form->{sort} = "code" unless $form->{sort};
  • my @a = qw(code description);
  • my %ordinal = ( code => 1,
  • description => 3 );
  • my $sortorder = $form->sort_order(\@a, \%ordinal);
  • my $query = qq|SELECT code, sictype, description
  • FROM sic
  • ORDER BY $sortorder|;
  • $sth = $dbh->prepare($query);
  • $sth->execute || $form->dberror($query);
  • while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
  • push @{ $form->{ALL} }, $ref;
  • }
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub get_sic {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • my $query = qq|
  • SELECT code, sictype, description
  • FROM sic
  • WHERE code = |.$dbh->quote($form->{code});
  • my $sth = $dbh->prepare($query);
  • $sth->execute || $form->dberror($query);
  • my $ref = $sth->fetchrow_hashref(NAME_lc);
  • for (keys %$ref) { $form->{$_} = $ref->{$_} }
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub save_sic {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • foreach my $item (qw(code description)) {
  • $form->{$item} =~ s/-(-)+/-/g;
  • }
  • my $sth;
  • @queryargs = ($form->{code}, $form->{sictype}, $form->{description});
  • # if there is an id
  • if ($form->{id}) {
  • $query = qq|
  • UPDATE sic
  • SET code = ?,
  • sictype = ?,
  • description = ?
  • WHERE code = ?)|;
  • push @queryargs, $form->{id};
  • } else {
  • $query = qq|
  • INSERT INTO sic (code, sictype, description)
  • VALUES (?, ?, ?)|;
  • }
  • $dbh->prepare($query)->execute(@queryargs) || $form->dberror($query);
  • $dbh->commit;
  • }
  • sub delete_sic {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $query = qq|
  • DELETE FROM sic
  • WHERE code = ?|;
  • $dbh->prepare($query)->execute($form->{code});
  • $dbh->commit;
  • }
  • sub language {