eval { require "$form->{path}/$form->{login}_arap.pl"; };
}
-
1;
-# end of main
+# end of main
sub check_name {
$lxdebug->enter_sub();
my ($new_name, $new_id) = split /--/, $form->{$name};
my $i = 0;
-
# if we use a selection
if ($form->{"select$name"}) {
if ($form->{"old$name"} ne $form->{$name}) {
- # this is needed for is, ir and oe
+ # this is needed for is, ir and oe
+ $form->{update} = 0;
# for credit calculations
- $form->{oldinvtotal} = 0;
+ $form->{oldinvtotal} = 0;
$form->{oldtotalpaid} = 0;
- $form->{calctax} = 1;
-
+ $form->{calctax} = 1;
+
$form->{"${name}_id"} = $new_id;
IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer');
# check name, combine name and id
if ($form->{"old$name"} ne qq|$form->{$name}--$form->{"${name}_id"}|) {
+
# this is needed for is, ir and oe
-
+ $form->{update} = 0;
+
# for credit calculations
- $form->{oldinvtotal} = 0;
+ $form->{oldinvtotal} = 0;
$form->{oldtotalpaid} = 0;
- $form->{calctax} = 1;
+ $form->{calctax} = 1;
# return one name or a list of names in $form->{name_list}
if (($i = $form->get_name(\%myconfig, $name)) > 1) {
- &select_name($name);
- exit;
+ &select_name($name);
+ exit;
}
if ($i == 1) {
- # we got one name
- $form->{"${name}_id"} = $form->{name_list}[0]->{id};
- $form->{$name} = $form->{name_list}[0]->{name};
- $form->{"old$name"} = qq|$form->{$name}--$form->{"${name}_id"}|;
-
- IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer');
- IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor');
-
+
+ # we got one name
+ $form->{"${name}_id"} = $form->{name_list}[0]->{id};
+ $form->{$name} = $form->{name_list}[0]->{name};
+ $form->{"old$name"} = qq|$form->{$name}--$form->{"${name}_id"}|;
+
+ IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer');
+ IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor');
+
} else {
- # name is not on file
- $msg = ucfirst $name . " not on file or locked!";
- $form->error($locale->text($msg));
+
+ # name is not on file
+ $msg = ucfirst $name . " not on file or locked!";
+ $form->error($locale->text($msg));
}
}
}
+ $form->language_payment(\%myconfig);
$lxdebug->leave_sub();
# $locale->text('Customer not on file!')
# $locale->text('Vendor not on file!')
-
-
sub select_name {
$lxdebug->enter_sub();
my ($table) = @_;
-
+
@column_index = qw(ndx name address);
- $label = ucfirst $table;
- $column_data{ndx} = qq|<th> </th>|;
- $column_data{name} = qq|<th class=listheading>|.$locale->text($label).qq|</th>|;
- $column_data{address} = qq|<th class=listheading>|.$locale->text('Address').qq|</th>|;
-
+ $label = ucfirst $table;
+ $column_data{ndx} = qq|<th> </th>|;
+ $column_data{name} =
+ qq|<th class=listheading>| . $locale->text($label) . qq|</th>|;
+ $column_data{address} =
+ qq|<th class=listheading>| . $locale->text('Address') . qq|</th>|;
+
# list items with radio button on a form
$form->header;
<tr class=listheading>|;
map { print "\n$column_data{$_}" } @column_index;
-
+
print qq|
</tr>
|;
$checked = ($i++) ? "" : "checked";
$ref->{name} =~ s/\"/"/g;
-
- $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
- $column_data{name} = qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|;
- $column_data{address} = qq|<td>$ref->{address} </td>|;
-
- $j++; $j %= 2;
+
+ $column_data{ndx} =
+ qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
+ $column_data{name} =
+ qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|;
+ $column_data{address} = qq|<td>$ref->{address} </td>|;
+
+ $j++;
+ $j %= 2;
print qq|
<tr class=listrow$j>|;
|;
}
-
+
print qq|
</table>
</td>
# delete variables
map { delete $form->{$_} } qw(action name_list header);
-
+
# save all other form variables
foreach $key (keys %${form}) {
$form->{$key} =~ s/\"/"/g;
<input type=hidden name=vc value=$table>
<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
+<input class=submit type=submit name=action value="|
+ . $locale->text('Continue') . qq|">
</form>
</body>
$lxdebug->leave_sub();
}
-
-
sub name_selected {
$lxdebug->enter_sub();
-
# replace the variable with the one checked
# index for new item
$i = $form->{ndx};
-
- $form->{$form->{vc}} = $form->{"new_name_$i"};
+
+ $form->{ $form->{vc} } = $form->{"new_name_$i"};
$form->{"$form->{vc}_id"} = $form->{"new_id_$i"};
- $form->{"old$form->{vc}"} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
+ $form->{"old$form->{vc}"} =
+ qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
# delete all the new_ variables
for $i (1 .. $form->{lastndx}) {
- map { delete $form->{"new_${_}_$i"} } (id, name);
+ map { delete $form->{"new_${_}_$i"} } qw(id name);
}
-
+
map { delete $form->{$_} } qw(ndx lastndx nextsub);
IS->get_customer(\%myconfig, \%$form) if ($form->{vc} eq 'customer');
$lxdebug->leave_sub();
}
-
sub add_transaction {
$lxdebug->enter_sub();
delete $form->{script};
$form->{action} = "add";
- $form->{type} = "invoice" if $module =~ /(is|ir)/;
+ $form->{type} = "invoice" if $module =~ /(is|ir)/;
- $form->{callback} = $form->escape($form->{callback},1);
+ $form->{callback} = $form->escape($form->{callback}, 1);
map { $argv .= "$_=$form->{$_}&" } keys %$form;
$form->{callback} = "$module.pl?$argv";
$form->redirect;
-
+
$lxdebug->leave_sub();
}
-
-
sub check_project {
$lxdebug->enter_sub();
-
for $i (1 .. $form->{rowcount}) {
- $form->{"project_id_$i"} = "" unless $form->{"projectnumber_$i"};
- if ($form->{"projectnumber_$i"} ne $form->{"oldprojectnumber_$i"}) {
- if ($form->{"projectnumber_$i"}) {
- # get new project
- $form->{projectnumber} = $form->{"projectnumber_$i"};
- if (($rows = PE->projects(\%myconfig, $form)) > 1) {
- # check form->{project_list} how many there are
- $form->{rownumber} = $i;
- &select_project;
- exit;
- }
-
- if ($rows == 1) {
- $form->{"project_id_$i"} = $form->{project_list}->[0]->{id};
- $form->{"projectnumber_$i"} = $form->{project_list}->[0]->{projectnumber};
- $form->{"oldprojectnumber_$i"} = $form->{project_list}->[0]->{projectnumber};
- } else {
- # not on file
- $form->error($locale->text('Project not on file!'));
- }
+ my $suffix = $i ? "_$i" : "";
+ my $prefix = $i ? "" : "global";
+ $form->{"${prefix}project_id${suffix}"} = "" unless $form->{"${prefix}projectnumber$suffix"};
+ if ($form->{"${prefix}projectnumber${suffix}"} ne $form->{"old${prefix}projectnumber${suffix}"}) {
+ if ($form->{"${prefix}projectnumber${suffix}"}) {
+
+ # get new project
+ $form->{projectnumber} = $form->{"${prefix}projectnumber${suffix}"};
+ if (($rows = PE->projects(\%myconfig, $form)) > 1) {
+
+ # check form->{project_list} how many there are
+ $form->{rownumber} = $i;
+ &select_project($i ? undef : 1);
+ exit;
+ }
+
+ if ($rows == 1) {
+ $form->{"${prefix}project_id${suffix}"} =
+ $form->{project_list}->[0]->{id};
+ $form->{"${prefix}projectnumber${suffix}"} =
+ $form->{project_list}->[0]->{projectnumber};
+ $form->{"old${prefix}projectnumber${suffix}"} =
+ $form->{project_list}->[0]->{projectnumber};
+ } else {
+
+ # not on file
+ $form->error($locale->text('Project not on file!'));
+ }
} else {
- $form->{"oldprojectnumber_$i"} = "";
+ $form->{"old${prefix}projectnumber${suffix}"} = "";
}
}
}
$lxdebug->leave_sub();
}
-
sub select_project {
$lxdebug->enter_sub();
-
+ my ($is_global) = @_;
+
@column_index = qw(ndx projectnumber description);
- $column_data{ndx} = qq|<th> </th>|;
- $column_data{projectnumber} = qq|<th>|.$locale->text('Number').qq|</th>|;
- $column_data{description} = qq|<th>|.$locale->text('Description').qq|</th>|;
-
+ $column_data{ndx} = qq|<th> </th>|;
+ $column_data{projectnumber} = qq|<th>| . $locale->text('Number') . qq|</th>|;
+ $column_data{description} =
+ qq|<th>| . $locale->text('Description') . qq|</th>|;
+
# list items with radio button on a form
$form->header;
<tr class=listheading>|;
map { print "\n$column_data{$_}" } @column_index;
-
+
print qq|
</tr>
|;
$checked = ($i++) ? "" : "checked";
$ref->{name} =~ s/\"/"/g;
-
- $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
- $column_data{projectnumber} = qq|<td><input name="new_projectnumber_$i" type=hidden value="$ref->{projectnumber}">$ref->{projectnumber}</td>|;
- $column_data{description} = qq|<td>$ref->{description}</td>|;
-
- $j++; $j %= 2;
+
+ $column_data{ndx} =
+ qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
+ $column_data{projectnumber} =
+ qq|<td><input name="new_projectnumber_$i" type=hidden value="$ref->{projectnumber}">$ref->{projectnumber}</td>|;
+ $column_data{description} = qq|<td>$ref->{description}</td>|;
+
+ $j++;
+ $j %= 2;
print qq|
<tr class=listrow$j>|;
|;
}
-
+
print qq|
</table>
</td>
|;
# delete action variable
- map { delete $form->{$_} } qw(action project_list header);
-
+ map { delete $form->{$_} } qw(action project_list header update);
+
# save all other form variables
foreach $key (keys %${form}) {
$form->{$key} =~ s/\"/"/g;
}
print qq|
+<input type="hidden" name="is_global" value="$is_global">
<input type=hidden name=nextsub value=project_selected>
<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
+<input class=submit type=submit name=action value="|
+ . $locale->text('Continue') . qq|">
</form>
</body>
$lxdebug->leave_sub();
}
-
sub project_selected {
$lxdebug->enter_sub();
-
# replace the variable with the one checked
# index for new item
$i = $form->{ndx};
-
- $form->{"projectnumber_$form->{rownumber}"} = $form->{"new_projectnumber_$i"};
- $form->{"oldprojectnumber_$form->{rownumber}"} = $form->{"new_projectnumber_$i"};
- $form->{"project_id_$form->{rownumber}"} = $form->{"new_id_$i"};
+
+ my $prefix = $form->{"is_global"} ? "global" : "";
+ my $suffix = $form->{"is_global"} ? "" : "_$form->{rownumber}";
+
+ $form->{"${prefix}projectnumber${suffix}"} =
+ $form->{"new_projectnumber_$i"};
+ $form->{"old${prefix}projectnumber${suffix}"} =
+ $form->{"new_projectnumber_$i"};
+ $form->{"${prefix}project_id${suffix}"} = $form->{"new_id_$i"};
# delete all the new_ variables
for $i (1 .. $form->{lastndx}) {
map { delete $form->{"new_${_}_$i"} } qw(id projectnumber description);
}
-
- map { delete $form->{$_} } qw(ndx lastndx nextsub);
+
+ map { delete $form->{$_} } qw(ndx lastndx nextsub is_global);
if ($form->{update}) {
&{ $form->{update} };
$lxdebug->leave_sub();
}
-
-sub continue { &{ $form->{nextsub} } };
-sub gl_transaction { &add };
-sub ar_transaction { &add_transaction(ar) };
-sub ap_transaction { &add_transaction(ap) };
-sub sales_invoice { &add_transaction(is) };
-sub vendor_invoice { &add_transaction(ir) };
+sub continue { &{ $form->{nextsub} } }
+sub gl_transaction { &add }
+sub ar_transaction { &add_transaction('ar') }
+sub ap_transaction { &add_transaction('ap') }
+sub sales_invoice { &add_transaction('is') }
+sub vendor_invoice { &add_transaction('ir') }