<% use Mojo::JSON qw/decode_json encode_json/; my $purchases = &subs::db_query('select * from appointments where type=? and app = ? order by timestamp', 'purchase', $a)->hashes; @{$purchases} = grep { $_->{'status'} eq 'delivered' } @{$purchases}; my $informations = $purchases; %> {$a}->{'setting'}->{'record_vendor'} eq 'on') { %>checked<% } %>>
None <% foreach my $i ( @{$informations} ) { %> <%= $i->{'data'}->{'id'} %> - <%= &subs::price_formatter($i->{'data'}->{'numbers'}->{'total'}) %> <% } %> {$a}->{'setting'}->{'record_manufacturer'} eq 'on') { %>checked<% } %>> <% if (scalar @{$appts->{$a}->{'model'}} == 0) { %> <% if ($appts->{$a}->{'models'} != undef) { %> <% foreach my $mod ( @{$appts->{$a}->{'models'}}) { %> {'model'} eq $mod->{'uuid'}) { %>selected<% } %>><%= &subs::format_name($mod->{'name'}) %> <% } %> <% } %> {'unit'} || $appts->{$a}->{'setting'}->{'unit'}) || $a eq ($app->{'unit'} || $appts->{$a}->{'setting'}->{'unit'})) { %>selected<% } %>><%= &subs::format_name($a) %> <% foreach my $u ( sort keys %{$gb::measures} ) { %> {'unit'} || $appts->{$a}->{'setting'}->{'unit'})) { %>selected<% } %>><%= &subs::format_name($gb::measures->{$u}->{'name'}) %> <% } %> <% } else { %> <% } %> {$a}->{'setting'}->{'record_input'} eq 'on') { %>checked<% } %>>
<% if (scalar @{$appts->{$a}->{'model'}} == 0) { %> <% if ($appts->{$a}->{'models'} != undef) { %> <% foreach my $mod ( @{$appts->{$a}->{'models'}}) { %> {'model'} eq $mod->{'uuid'}) { %>selected<% } %>><%= &subs::format_name($mod->{'name'}) %> <% } %> <% } %> {'unit'} || $appts->{$a}->{'setting'}->{'unit'}) || $a eq ($app->{'unit'} || $appts->{$a}->{'setting'}->{'unit'})) { %>selected<% } %>><%= &subs::format_name($a) %> <% foreach my $u ( sort keys %{$gb::measures} ) { %> {'unit'} || $appts->{$a}->{'setting'}->{'unit'})) { %>selected<% } %>><%= &subs::format_name($gb::measures->{$u}->{'name'}) %> <% } %> <% } else { %> <%= include 'apps/transaction/models', settings => &subs::settings_grabber({ app => $a }), models => &subs::db_select('model', undef, { app => $a})->hashes, l => $appts->{$a}->{'list'}->[0], source => 'transaction' %>
<% } %> <% foreach my $state ( @{$gb::inventory_states} ) { %> {'state'} || $appts->{$a}->{'setting'}->{'state'}) eq $state) { %>selected<% } %>><%= &subs::format_name($state) %> <% } %>



{'has_totes'} || $appts->{$a}->{'setting'}->{'has_totes'}) ne 'off') { %>enabled="on" style="background-color:lightgreen;"<% } %>>Totes {'has_tax'} || $appts->{$a}->{'setting'}->{'has_tax'}) ne 'off') { %>enabled="on" style="background-color:lightgreen;"<% } %>>Tax +/-