-sub display_ship_receive {
- $lxdebug->enter_sub();
-
- $vclabel = ucfirst $form->{vc};
- $vclabel = $locale->text($vclabel);
-
- $form->{rowcount}++;
-
- if ($form->{vc} eq 'customer') {
- $form->{title} = $locale->text('Ship Merchandise');
- $shipped = $locale->text('Shipping Date');
- } else {
- $form->{title} = $locale->text('Receive Merchandise');
- $shipped = $locale->text('Date Received');
- }
-
- # set option selected
- foreach $item (warehouse, employee) {
- $form->{"select$item"} =~ s/ selected//;
- $form->{"select$item"} =~
- s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
- }
-
- $warehouse = qq|
- <tr>
- <th align=right>| . $locale->text('Warehouse') . qq|</th>
- <td><select name=warehouse>$form->{selectwarehouse}</select></td>
- <input type=hidden name=selectwarehouse value="$form->{selectwarehouse}">
- </tr>
-| if $form->{selectwarehouse};
-
- $employee = qq|
- <tr>
- <th align=right nowrap>| . $locale->text('Contact') . qq|</th>
- <td><select name=employee>$form->{selectemployee}</select></td>
- <input type=hidden name=selectemployee value="$form->{selectemployee}">
- </tr>
-|;
-
- $form->header;
-
- print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-
-<input type=hidden name=display_form value=display_ship_receive>
-
-<input type=hidden name=type value=$form->{type}>
-<input type=hidden name=media value=$form->{media}>
-<input type=hidden name=format value=$form->{format}>
-
-<input type=hidden name=queued value="$form->{queued}">
-<input type=hidden name=printed value="$form->{printed}">
-<input type=hidden name=emailed value="$form->{emailed}">
-
-<input type=hidden name=vc value=$form->{vc}>
-
-<table width=100%>
- <tr class=listtop>
- <th class=listtop>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
- <tr>
- <td>
- <table width="100%">
- <tr valign=top>
- <td>
- <table width=100%>
- <tr>
- <th align=right>$vclabel</th>
- <td colspan=3>$form->{$form->{vc}}</td>
- <input type=hidden name=$form->{vc} value="$form->{$form->{vc}}">
- <input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}>
- </tr>
- $department
- <tr>
- <th align=right>| . $locale->text('Shipping Point') . qq|</th>
- <td colspan=3>
- <input name=shippingpoint size=35 value="$form->{shippingpoint}">
- </tr>
- <tr>
- <th align=right>| . $locale->text('Ship via') . qq|</th>
- <td colspan=3>
- <input name=shipvia size=35 value="$form->{shipvia}">
- </tr>
- $warehouse
- </table>
- </td>
- <td align=right>
- <table>
- $employee
- <tr>
- <th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
- <td>$form->{ordnumber}</td>
- <input type=hidden name=ordnumber value="$form->{ordnumber}">
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Order Date') . qq|</th>
- <td>$form->{transdate}</td>
- <input type=hidden name=transdate value=$form->{transdate}>
- </tr>
- <tr>
- <th align=right nowrap>$shipped</th>
- <td><input name=shippingdate size=11 value=$form->{shippingdate}></td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
- </td>
- </tr>
-
-<!-- shipto are in hidden variables -->
-
-<input type=hidden name=shiptoname value="$form->{shiptoname}">
-<input type=hidden name=shiptostreet value="$form->{shiptostreet}">
-<input type=hidden name=shiptozipcode value="$form->{shiptozipcode}">
-<input type=hidden name=shiptocity value="$form->{shiptocity}">
-<input type=hidden name=shiptocountry value="$form->{shiptocountry}">
-<input type=hidden name=shiptocontact value="$form->{shiptocontact}">
-<input type=hidden name=shiptophone value="$form->{shiptophone}">
-<input type=hidden name=shiptofax value="$form->{shiptofax}">
-<input type=hidden name=shiptoemail value="$form->{shiptoemail}">
-
-<!-- email variables -->
-<input type=hidden name=message value="$form->{message}">
-<input type=hidden name=email value="$form->{email}">
-<input type=hidden name=subject value="$form->{subject}">
-<input type=hidden name=cc value="$form->{cc}">
-<input type=hidden name=bcc value="$form->{bcc}">
-
-|;
-
- @column_index =
- (partnumber, description, qty, ship, unit, bin, serialnumber);
-
- if ($form->{type} eq "ship_order") {
- $column_data{ship} =
- qq|<th class=listheading align=center width="auto">|
- . $locale->text('Ship')
- . qq|</th>|;
- }
- if ($form->{type} eq "receive_order") {
- $column_data{ship} =
- qq|<th class=listheading align=center width="auto">|
- . $locale->text('Recd')
- . qq|</th>|;
- }
-
- my $colspan = $#column_index + 1;
-
- $column_data{partnumber} =
- qq|<th class=listheading nowrap>| . $locale->text('Number') . qq|</th>|;
- $column_data{description} =
- qq|<th class=listheading nowrap>|
- . $locale->text('Description')
- . qq|</th>|;
- $column_data{qty} =
- qq|<th class=listheading nowrap>| . $locale->text('Qty') . qq|</th>|;
- $column_data{unit} =
- qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
- $column_data{bin} =
- qq|<th class=listheading nowrap>| . $locale->text('Bin') . qq|</th>|;
- $column_data{serialnumber} =
- qq|<th class=listheading nowrap>|
- . $locale->text('Serial No.')
- . qq|</th>|;
-
- print qq|
- <tr>
- <td>
- <table width=100%>
- <tr class=listheading>|;
-
- map { print "\n$column_data{$_}" } @column_index;
-
- print qq|
- </tr>
-|;
-
- for $i (1 .. $form->{rowcount} - 1) {
-
- # undo formatting
- $form->{"ship_$i"} = $form->parse_amount(\%myconfig, $form->{"ship_$i"});
-
- # convert " to "
- map { $form->{"${_}_$i"} =~ s/\"/"/g }
- qw(partnumber description unit bin serialnumber);
-
- $description = $form->{"description_$i"};
- $description =~ s/\n/<br>/g;
-
- $column_data{partnumber} =
- qq|<td>$form->{"partnumber_$i"}<input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}"></td>|;
- $column_data{description} =
- qq|<td>$description<input type=hidden name="description_$i" value="$form->{"description_$i"}"></td>|;
- $column_data{qty} =
- qq|<td align=right>|
- . $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty)
- . qq|<input type=hidden name="qty_$i" value="$form->{"qty_$i"}"></td>|;
- $column_data{ship} =
- qq|<td align=right><input name="ship_$i" size=5 value=|
- . $form->format_amount(\%myconfig, $form->{"ship_$i"})
- . qq|></td>|;
- $column_data{unit} =
- qq|<td>$form->{"unit_$i"}<input type=hidden name="unit_$i" value="$form->{"unit_$i"}"></td>|;
- $column_data{bin} =
- qq|<td>$form->{"bin_$i"}<input type=hidden name="bin_$i" value="$form->{"bin_$i"}"></td>|;
-
- $column_data{serialnumber} =
- qq|<td><input name="serialnumber_$i" size=15 value="$form->{"serialnumber_$i"}"></td>|;
-
- print qq|
- <tr valign=top>|;
-
- map { print "\n$column_data{$_}" } @column_index;
-
- print qq|
- </tr>
-
-<input type=hidden name="orderitems_id_$i" value=$form->{"orderitems_id_$i"}>
-<input type=hidden name="id_$i" value=$form->{"id_$i"}>
-<input type=hidden name="assembly_$i" value="$form->{"assembly_$i"}">
-<input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">
-
-|;
-
- }
-
- print qq|
- </table>
- </td>
- </tr>
- <tr>
- <td><hr size=3 noshade></td>
- </tr>
- <tr>
- <td>
-|;
-
- $form->{copies} = 1;
-
- &print_options;
-
- print qq|
- </td>
- </tr>
-</table>
-<br>
-<input class=submit type=submit name=action value="|
- . $locale->text('Update') . qq|">
-<input class=submit type=submit name=action value="|
- . $locale->text('Print') . qq|">
-|;
-
- if ($form->{type} eq 'ship_order') {
- print qq|
-<input class=submit type=submit name=action value="|
- . $locale->text('Ship to') . qq|">
-<input class=submit type=submit name=action value="|
- . $locale->text('E-mail') . qq|">
-|;
- }
-
- print qq|
-
-<input class=submit type=submit name=action value="|
- . $locale->text('Done') . qq|">
-|;
-
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
- print qq|
-
-<input type=hidden name=rowcount value=$form->{rowcount}>
-
-<input name=callback type=hidden value="$callback">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-</form>
-
-</body>
-</html>
-|;
-
- $lxdebug->leave_sub();
-}
-
-sub done {
- $lxdebug->enter_sub();
-
- if ($form->{type} eq 'ship_order') {
- $form->isblank("shippingdate", $locale->text('Shipping Date missing!'));
- } else {
- $form->isblank("shippingdate", $locale->text('Date received missing!'));
- }
-
- $total = 0;
- map {
- $total += $form->{"ship_$_"} =
- $form->parse_amount(\%myconfig, $form->{"ship_$_"})
- } (1 .. $form->{rowcount} - 1);
-
- $form->error($locale->text('Nothing entered!')) unless $total;
-
- $form->redirect($locale->text('Inventory saved!'))
- if OE->save_inventory(\%myconfig, \%$form);
- $form->error($locale->text('Could not save!'));
-
- $lxdebug->leave_sub();
-}
-
-sub search_transfer {
- $lxdebug->enter_sub();
-
- OE->get_warehouses(\%myconfig, \%$form);
-
- # warehouse
- if (@{ $form->{all_warehouses} }) {
- $form->{selectwarehouse} = "<option>\n";
- $form->{warehouse} = qq|$form->{warehouse}--$form->{warehouse_id}|;
-
- map { $form->{selectwarehouse} .= "<option>$_->{description}--$_->{id}\n" }
- (@{ $form->{all_warehouses} });
- } else {
- $form->error($locale->text('Nothing to transfer!'));
- }
-
- $form->{title} = $locale->text('Transfer Inventory');
-
- $form->header;
-
- print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
- <tr>
- <th class=listtop>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
- <tr>
- <td>
- <table>
- <tr>
- <th align=right nowrap>| . $locale->text('Transfer to') . qq|</th>
- <td><select name=warehouse>$form->{selectwarehouse}</select></td>
- </tr>
- <tr>
- <th align="right" nowrap="true">| . $locale->text('Part Number') . qq|</th>
- <td><input name=partnumber size=20></td>
- </tr>
- <tr>
- <th align="right" nowrap="true">| . $locale->text('Description') . qq|</th>
- <td><input name=description size=40></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Group') . qq|</th>
- <td><input name=partsgroup size=20></td>
- </tr>
- </table>
- </td>
- </tr>
- <tr>
- <td><hr size=3 noshade></td>
- </tr>
-</table>
-
-<br>
-<input type=hidden name=sort value=partnumber>
-<input type=hidden name=nextsub value=list_transfer>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<input class=submit type=submit name=action value="|
- . $locale->text('Continue') . qq|">
-</form>
-
-</body>
-</html>
-|;
-
- $lxdebug->leave_sub();
-}
-
-sub list_transfer {
- $lxdebug->enter_sub();
-
- OE->get_inventory(\%myconfig, \%$form);
-
- $partnumber = $form->escape($form->{partnumber});
- $warehouse = $form->escape($form->{warehouse});
- $description = $form->escape($form->{description});
- $partsgroup = $form->escape($form->{partsgroup});
-
- # construct href
- $href =
- "$form->{script}?path=$form->{path}&action=list_transfer&partnumber=$partnumber&warehouse=$warehouse&description=$description&partsgroup=$partsgroup&login=$form->{login}&password=$form->{password}";
-
- # construct callback
- $partnumber = $form->escape($form->{partnumber}, 1);
- $warehouse = $form->escape($form->{warehouse}, 1);
- $description = $form->escape($form->{description}, 1);
- $partsgroup = $form->escape($form->{partsgroup}, 1);
-
- $callback =
- "$form->{script}?path=$form->{path}&action=list_transfer&partnumber=$partnumber&warehouse=$warehouse&description=$description&partsgroup=$partsgroup&login=$form->{login}&password=$form->{password}";
-
- @column_index =
- $form->sort_columns(
- qw(partnumber description partsgroup make model warehouse qty transfer));
-
- $column_header{partnumber} =
- qq|<th><a class=listheading href=$href&sort=partnumber>|
- . $locale->text('Part Number')
- . qq|</a></th>|;
- $column_header{description} =
- qq|<th><a class=listheading href=$href&sort=description>|
- . $locale->text('Description')
- . qq|</a></th>|;
- $column_header{partsgroup} =
- qq|<th><a class=listheading href=$href&sort=partsgroup>|
- . $locale->text('Group')
- . qq|</a></th>|;
- $column_header{warehouse} =
- qq|<th><a class=listheading href=$href&sort=warehouse>|
- . $locale->text('From')
- . qq|</a></th>|;
- $column_header{qty} =
- qq|<th><a class=listheading>| . $locale->text('Qty') . qq|</a></th>|;
- $column_header{transfer} =
- qq|<th><a class=listheading>| . $locale->text('Transfer') . qq|</a></th>|;
-
- $option = $locale->text('Transfer to');
-
- ($warehouse, $warehouse_id) = split /--/, $form->{warehouse};
-
- if ($form->{warehouse}) {
- $option .= " : $warehouse";
- }
- if ($form->{partnumber}) {
- $option .= "\n<br>" if ($option);
- $option .= $locale->text('Part Number') . " : $form->{partnumber}";
- }
- if ($form->{description}) {
- $option .= "\n<br>" if ($option);
- $option .= $locale->text('Description') . " : $form->{description}";
- }
- if ($form->{partsgroup}) {
- $option .= "\n<br>" if ($option);
- $option .= $locale->text('Group') . " : $form->{partsgroup}";
- }
-
- $form->{title} = $locale->text('Transfer Inventory');
-
- $form->header;
-
- print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=warehouse_id value=$warehouse_id>
-
-<table width=100%>
- <tr>
- <th class=listtop>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
- <tr>
- <td>$option</td>
- </tr>
- <tr>
- <td>
- <table width=100%>
- <tr class=listheading>|;
-
- map { print "\n$column_header{$_}" } @column_index;
-
- print qq|
- </tr>
-|;
-
- if (@{ $form->{all_inventory} }) {
- $sameitem = $form->{all_inventory}->[0]->{ $form->{sort} };
- }
-
- $i = 0;
- foreach $ref (@{ $form->{all_inventory} }) {
-
- $i++;
-
- $column_data{partnumber} =
- qq|<td><input type=hidden name="id_$i" value=$ref->{id}>$ref->{partnumber}</td>|;
- $column_data{description} = "<td>$ref->{description} </td>";
- $column_data{partsgroup} = "<td>$ref->{partsgroup} </td>";
- $column_data{warehouse} =
- qq|<td><input type=hidden name="warehouse_id_$i" value=$ref->{warehouse_id}>$ref->{warehouse} </td>|;
- $column_data{qty} =
- qq|<td><input type=hidden name="qty_$i" value=$ref->{qty}>|
- . $form->format_amount(\%myconfig, $ref->{qty}, $dec_qty)
- . qq|</td>|;
- $column_data{transfer} = qq|<td><input name="transfer_$i" size=4></td>|;
-
- $j++;
- $j %= 2;
- print "
- <tr class=listrow$j>";
-
- map { print "\n$column_data{$_}" } @column_index;
-
- print qq|
- </tr>
-|;
-
- }
-
- print qq|
- </table>
- </td>
- </tr>
-
- <tr>
- <td><hr size=3 noshade></td>
- </tr>
-</table>
-
-<br>
-
-<input name=callback type=hidden value="$callback">
-
-<input type=hidden name=rowcount value=$i>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<input class=submit type=submit name=action value="|
- . $locale->text('Transfer') . qq|">|;
-
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
- print qq|
-</form>
-
-</body>
-</html>
-|;
-
- $lxdebug->leave_sub();
-}
-
-sub transfer {
- $lxdebug->enter_sub();
-
- $form->redirect($locale->text('Inventory transferred!'))
- if OE->transfer(\%myconfig, \%$form);
- $form->error($locale->text('Could not transfer Inventory!'));
-
- $lxdebug->leave_sub();
-}