8194226449

Committed 07 Mar 2024 08:13PM UTC coverage: 46.896% (+0.1%) from 46.76%

Build # 8194226449

Build Type

push

github

Committed by

web-flow

Commit Message

Merge pull request #8058 from ehuelsmann/fix/1.11/contact-pnl-hierarchy

Set 'earn_id' for ECA screen

Run Details

117 of 188 branches covered (62.23%)

1 of 1 new or added line in 1 file covered. (100.0%)

30 existing lines in 4 files now uncovered.

9473 of 20200 relevant lines covered (46.9%)

536.21 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

56.52

/lib/LedgerSMB/Scripts/inventory.pm


package LedgerSMB::Scripts::inventory;

=head1 NAME

LedgerSMB::Scripts::inventory - Web entry points for inventory adjustment

=head1 DESCRIPTION

This module implements inventory adjustment entry points.

=head1 METHODS

=cut

use strict;
use warnings;

use LedgerSMB::Inventory::Adjust;
use LedgerSMB::Inventory::Adjust_Line;
use LedgerSMB::Report::Inventory::Search_Adj;
use LedgerSMB::Scripts::reports;

=over

=item begin_adjust

This entry point specifies the screen for setting up an inventory adjustment.

=cut

sub begin_adjust {
    my ($request) = @_;
    my $template = $request->{_wire}->get('ui');
    return $template->render($request, 'inventory/adjustment_setup', $request);
}

=item enter_adjust

This entry point specifies the screen for entering an inventory adjustment.

=cut

sub enter_adjust {
    my ($request) = @_;
    my $template = $request->{_wire}->get('ui');
    return $template->render($request, 'inventory/adjustment_entry', $request);
}


=item adjustment_next

This function is triggered on the next button on the adjustment entry screen.
It retrieves inventory information, calculates adjustment values, and displays
the screen.

=cut

sub adjustment_next {
    my ($request) = @_;
    my $adjustment = LedgerSMB::Inventory::Adjust->new(%$request);
    for my $i (1 .. $request->{rowcount}){
        if ($request->{"id_$i"} eq 'new' or not $request->{"id_$i"}){
            my $item = $adjustment->get_part_at_date(
                $request->{transdate}, $request->{"partnumber_$i"});
            $request->{"id_$i"} = $item->{id};
            $request->{"description_$i"} = $item->{description};
            $request->{"onhand_$i"} = $item->{onhand};
        }
        $request->{"counted_$i"} ||= 0;
        $request->{"qty_$i"} =
            $request->{"onhand_$i"} - $request->{"counted_$i"};
    }
    ++$request->{rowcount};
    return enter_adjust($request);
}

=item adjustment_save

This function saves the inventory adjustment report and then creates the
required invoices.

=cut

sub _lines_from_form {
    # NOTE! A similar implementation is also in import_csv!
    my ($adjustment, $hashref) = @_;
    my @lines;
    for my $ln (1 .. $hashref->{rowcount}){
        next
          if $hashref->{"id_$ln"} eq 'new';
        my $line = LedgerSMB::Inventory::Adjust_Line->new(
          parts_id => $hashref->{"id_$ln"},
         partnumber => $hashref->{"partnumber_$ln"},
            counted => $hashref->{"counted_$ln"},
           expected => $hashref->{"onhand_$ln"},
           variance => $hashref->{"onhand_$ln"} - $hashref->{"counted_$ln"});
        push @lines, $line;
    }
    my $rows = $adjustment->rows;
    push @$rows, @lines;
    return $adjustment->rows($rows);
}


sub adjustment_save {
    my ($request) = @_;
    my $adjustment = LedgerSMB::Inventory::Adjust->new(%$request);
    _lines_from_form($adjustment, $request);
    $adjustment->save;
    return begin_adjust($request);
}

=item adjustment_list

=cut

sub adjustment_list {
    my ($request) = @_;

    return $request->render_report(
        LedgerSMB::Report::Inventory::Search_Adj->new(%$request)
        );
}

=item adjustment_approve

=cut

sub adjustment_approve {
    my ($request) = @_;
    my $adjust = LedgerSMB::Inventory::Adjust->new(%$request);
    $adjust->approve;
    $request->{report_name} = 'list_inventory_counts';
    return LedgerSMB::Scripts::reports::start_report($request);
}

=item adjustment_delete

=back

=cut

sub adjustment_delete {
    my ($request) = @_;
    my $adjust = LedgerSMB::Inventory::Adjust->new(%$request);
    $adjust->delete;
    $request->{report_name} = 'list_inventory_counts';
    return LedgerSMB::Scripts::reports::start_report($request);
}

=head1 LICENSE AND COPYRIGHT

Copyright (C) 2011-2018 The LedgerSMB Core Team

This file is licensed under the GNU General Public License version 2, or at your
option any later version.  A copy of the license should have been included with
your software.

=cut

1;

1
2	package LedgerSMB::Scripts::inventory;
3
4	=head1 NAME
5
6	LedgerSMB::Scripts::inventory - Web entry points for inventory adjustment
7
8	=head1 DESCRIPTION
9
10	This module implements inventory adjustment entry points.
11
12	=head1 METHODS
13
14	=cut
15
16	use strict;	47✔
17	use warnings;	47✔
18
19	use LedgerSMB::Inventory::Adjust;	47✔
20	use LedgerSMB::Inventory::Adjust_Line;	47✔
21	use LedgerSMB::Report::Inventory::Search_Adj;	47✔
22	use LedgerSMB::Scripts::reports;	47✔
23
24	=over
25
26	=item begin_adjust
27
28	This entry point specifies the screen for setting up an inventory adjustment.
29
30	=cut
31
32	sub begin_adjust {
33	my ($request) = @_;	6✔
34	my $template = $request->{_wire}->get('ui');	6✔
35	return $template->render($request, 'inventory/adjustment_setup', $request);	6✔
36	}
37
38	=item enter_adjust
39
40	This entry point specifies the screen for entering an inventory adjustment.
41
42	=cut
43
44	sub enter_adjust {
45	my ($request) = @_;	1✔
46	my $template = $request->{_wire}->get('ui');	1✔
47	return $template->render($request, 'inventory/adjustment_entry', $request);	1✔
48	}
49
50
51	=item adjustment_next
52
53	This function is triggered on the next button on the adjustment entry screen.
54	It retrieves inventory information, calculates adjustment values, and displays
55	the screen.
56
57	=cut
58
59	sub adjustment_next {
UNCOV 60	my ($request) = @_;	×
UNCOV 61	my $adjustment = LedgerSMB::Inventory::Adjust->new(%$request);	×
UNCOV 62	for my $i (1 .. $request->{rowcount}){	×
UNCOV 63	if ($request->{"id_$i"} eq 'new' or not $request->{"id_$i"}){	×
64	my $item = $adjustment->get_part_at_date(
65	$request->{transdate}, $request->{"partnumber_$i"});
66	$request->{"id_$i"} = $item->{id};
67	$request->{"description_$i"} = $item->{description};
68	$request->{"onhand_$i"} = $item->{onhand};
69	}
UNCOV 70	$request->{"counted_$i"} \|\|= 0;	×
71	$request->{"qty_$i"} =
UNCOV 72	$request->{"onhand_$i"} - $request->{"counted_$i"};	×
73	}
UNCOV 74	++$request->{rowcount};	×
UNCOV 75	return enter_adjust($request);	×
76	}
77
78	=item adjustment_save
79
80	This function saves the inventory adjustment report and then creates the
81	required invoices.
82
83	=cut
84
85	sub _lines_from_form {
86	# NOTE! A similar implementation is also in import_csv!
87	my ($adjustment, $hashref) = @_;	3✔
88	my @lines;	3✔
89	for my $ln (1 .. $hashref->{rowcount}){	3✔
90	next
91	if $hashref->{"id_$ln"} eq 'new';	6✔
92	my $line = LedgerSMB::Inventory::Adjust_Line->new(
93	parts_id => $hashref->{"id_$ln"},
94	partnumber => $hashref->{"partnumber_$ln"},
95	counted => $hashref->{"counted_$ln"},
96	expected => $hashref->{"onhand_$ln"},
97	variance => $hashref->{"onhand_$ln"} - $hashref->{"counted_$ln"});	3✔
98	push @lines, $line;	3✔
99	}
100	my $rows = $adjustment->rows;	3✔
101	push @$rows, @lines;	3✔
102	return $adjustment->rows($rows);	3✔
103	}
104
105
106	sub adjustment_save {
107	my ($request) = @_;	3✔
108	my $adjustment = LedgerSMB::Inventory::Adjust->new(%$request);	3✔
109	_lines_from_form($adjustment, $request);	3✔
110	$adjustment->save;	3✔
111	return begin_adjust($request);	3✔
112	}
113
114	=item adjustment_list
115
116	=cut
117
118	sub adjustment_list {
119	my ($request) = @_;	×
120
121	return $request->render_report(	×
122	LedgerSMB::Report::Inventory::Search_Adj->new(%$request)
123	);
124	}
125
126	=item adjustment_approve
127
128	=cut
129
130	sub adjustment_approve {
131	my ($request) = @_;	×
132	my $adjust = LedgerSMB::Inventory::Adjust->new(%$request);	×
133	$adjust->approve;	×
134	$request->{report_name} = 'list_inventory_counts';	×
135	return LedgerSMB::Scripts::reports::start_report($request);	×
136	}
137
138	=item adjustment_delete
139
140	=back
141
142	=cut
143
144	sub adjustment_delete {
145	my ($request) = @_;	×
146	my $adjust = LedgerSMB::Inventory::Adjust->new(%$request);	×
147	$adjust->delete;	×
148	$request->{report_name} = 'list_inventory_counts';	×
149	return LedgerSMB::Scripts::reports::start_report($request);	×
150	}
151
152	=head1 LICENSE AND COPYRIGHT
153
154	Copyright (C) 2011-2018 The LedgerSMB Core Team
155
156	This file is licensed under the GNU General Public License version 2, or at your
157	option any later version. A copy of the license should have been included with
158	your software.
159
160	=cut
161
162	1;

ledgersmb / LedgerSMB / 8194226449

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous