#!/usr/bin/perl -w
use CGI qw(:all); 
($disk, $_, $program)=$ENV{'SCRIPT_FILENAME'}=~/^(.{26})(.*\/)(.*)$/;
$input	= $disk.$_.'INPUT.txt';
$output = $disk.'INPUT.txt'; 
$separator="\t";
$FORMBG="#999999";
$FORMFG="#FFFFFF";
$FORM=qq~  style="background-color:$FORMBG;color:$FORMFG;border:2px solid #FFFFFF" onFocus="blur()"~;


open(F, $input); 
@file=<F>; 
close(F); 
if ($file[0]=~/^\w{3}\s/){@line=@file;chomp @line;}
####start CSV Build####  
else{  
 @line=grep(/^\w{3}\s/, @file);
 @line=grep(!/^MFG/, @line);  
 if ($line[0]=~/^\w{3}\s/){
  foreach $text (@line){
  @prod=split(//,$text);    
  $text="";
  $text.=join("", @prod[0..2]);		$text.="$separator";
  $text.=join("", @prod[4..10]);	$text.="$separator";
  $text.=join("", @prod[16..40]);	$text.="$separator";
  $text.=join("", @prod[41..43]);	$text.="$separator";
  $text.=join("", @prod[58..62]);	$text.="$separator";
  $text.=join("", @prod[49..53]);	$text.="$separator";
  $text.=join("", @prod[67..71]);	$text.="$separator";
  $text.=join("", @prod[85..89]);	$text.="$separator";
  $text.=join("", @prod[103..107]);	$text.="$separator";
  $text.=join("", @prod[121..125]);	$text.="$separator";
  }
 }
}
####End CSV Build####
####Start Search#####  


if (defined param('search')) {&search(param('PartNumber'))}

sub search {
#print "Content-type: text/html\n\n";
($searchInput)=@_;
@searchPart=split(",", $searchInput);
@results=();
foreach $search (@searchPart) {
  for ($i=0;$i<@line;$i++) {
   if ($line[$i]=~m:$search:i) {$results[@results]=$i}
  }
}
$r=join(",",@results);
   print "Content-type: text/html\n\n 
   <form name='found'>
   <input type='hidden' name='record' value='$r'>
   </form>
   <script>document.found.submit()</script>";

#print "<table border=1><tr><td>";
#foreach (@results) {
# $line[$_]=~s:\t:</td><td>:g;
# print "$line[$_]</td></tr><tr><td>";
#}
#print "</td></tr></table>"; 
#exit;
}


####End Search####  
if (defined param('record')) {$r=param('record');} else {$r=0;}
if ($r>=@line) {$r=0;}
if (defined param('new')) {$r=@line;}
$p=$r-1; 
$n=$r+1;
if ($r=~/,/) {
@p=split(",", $r);
$p=pop(@p);
unshift(@p, $p);
$p=join(",", @p);

@n=split(",", $r);
$n=shift(@n);
push(@n, $n);
$n=join(",", @n);

($rr)=split(",", $r);
}

if ($r<0) {$r=@line+$r;} 
 

####Format: MFG,SKU,DES,UMC,LUC,RTL,NET,PR1,PR2,PR3#### 
if (!defined param('new')) {
 @item=split(/$separator/, "$line[$r]"); 
 $mfg  =$item[0]; 
 $sku  =$item[1];  
 $description=$item[2];  
 $umc  =$item[3];  
 $cost =$item[4]; #cost-LUC
 $sel  =$item[5]; #RTL  
 $sel2 =$item[6]; #NET 
 $sel3 =$item[7]; #SP3-PR1  
 $sel4 =$item[8]; #SP4-PR2  
 $sel5 =$item[9]; #SP5-PR3


 @item=split(/$separator/, "$line[$p]"); 
 $Pmfg  =$item[0]; 
 $Psku  =$item[1];  
 $Pdescription=$item[2];  
 $Pumc  =$item[3];  
 $Pcost =$item[4]; #cost-LUC
 $Psel  =$item[5]; #RTL  
 $Psel2 =$item[6]; #NET 
 $Psel3 =$item[7]; #SP3-PR1  
 $Psel4 =$item[8]; #SP4-PR2  
 $Psel5 =$item[9]; #SP5-PR3

 @item=split(/$separator/, "$line[$n]"); 
 $Nmfg  =$item[0]; 
 $Nsku  =$item[1];  
 $Ndescription=$item[2];  
 $Numc  =$item[3];  
 $Ncost =$item[4]; #cost-LUC
 $Nsel  =$item[5]; #RTL  
 $Nsel2 =$item[6]; #NET 
 $Nsel3 =$item[7]; #SP3-PR1  
 $Nsel4 =$item[8]; #SP4-PR2  
 $Nsel5 =$item[9]; #SP5-PR3

  
} 
###Checkboxes### 
$gp2cal=""; 
$end9=""; 
################
 if (defined param('MFG'))  {$mfg=param('MFG');}
 if (defined param('PartNumber'))  {$sku=param('PartNumber');}
 if (defined param('Description'))  {$description=param('Description');}
 if (defined param('UMC'))  {$umc=param('UMC');}

 if (defined param('SP1'))  {$sel=eval(param('SP1'));
#if ($sel=~/\./) {} else {$sel=$sel/100;}
} 
if (defined param('SP2'))  {$sel2=eval(param('SP2'));
#if ($sel2=~/\./) {} else {$sel2=$sel2/100;}
} 
if (defined param('SP3'))  {$sel3=eval(param('SP3'));
#if ($sel3=~/\./) {} else {$sel3=$sel3/100;}
}
if (defined param('SP4'))  {$sel4=eval(param('SP4'));
#if ($sel4=~/\./) {} else {$sel4=$sel4/100;}
}  
if (defined param('SP5'))  {$sel5=eval(param('SP5'));
#if ($sel5=~/\./) {} else {$sel5=$sel5/100;}
} 
if (defined param('cost')) {$cost=eval(param('cost'));
#if ($cost=~/\./) {} else {$cost=$cost/100;}
}
if (($cost%1==0 || $cost==1) && ($cost>1 || $cost==1) && $cost!~/\./) {$cost.=".00"}
if (($sel%1 ==0 || $sel ==1) && ($sel >1 || $sel ==1) && $sel !~/\./) {$sel .=".00"}
if (($sel2%1==0 || $sel2==1) && ($sel2>1 || $sel2==1) && $sel2!~/\./) {$sel2.=".00"}
if (($sel3%1==0 || $sel3==1) && ($sel3>1 || $sel3==1) && $sel3!~/\./) {$sel3.=".00"}
if (($sel4%1==0 || $sel4==1) && ($sel4>1 || $sel4==1) && $sel4!~/\./) {$sel4.=".00"}
if (($sel5%1==0 || $sel5==1) && ($sel5>1 || $sel5==1) && $sel5!~/\./) {$sel5.=".00"}

###Start GP Calculation#### 
if ($Psel  != 0){$Pgp1 =int(($Psel-$Pcost)/$Psel*100);} 
if ($Psel2 != 0){$Pgp2 =int(($Psel2-$Pcost)/$Psel2*100);} 
if ($Psel3 != 0){$Pgp3 =int(($Psel3-$Pcost)/$Psel3*100);} 
if ($Psel4 != 0){$Pgp4 =int(($Psel4-$Pcost)/$Psel4*100);} 
if ($Psel5 != 0){$Pgp5 =int(($Psel5-$Pcost)/$Psel5*100);}  

if ($sel  != 0){$gp1 =int(($sel-$cost)/$sel*100);} 
if ($sel2 != 0){$gp2 =int(($sel2-$cost)/$sel2*100);} 
if ($sel3 != 0){$gp3 =int(($sel3-$cost)/$sel3*100);} 
if ($sel4 != 0){$gp4 =int(($sel4-$cost)/$sel4*100);} 
if ($sel5 != 0){$gp5 =int(($sel5-$cost)/$sel5*100);}  

if ($Nsel  != 0){$Ngp1 =int(($Nsel-$Ncost)/$Nsel*100);} 
if ($Nsel2 != 0){$Ngp2 =int(($Nsel2-$Ncost)/$Nsel2*100);} 
if ($Nsel3 != 0){$Ngp3 =int(($Nsel3-$Ncost)/$Nsel3*100);} 
if ($Nsel4 != 0){$Ngp4 =int(($Nsel4-$Ncost)/$Nsel4*100);} 
if ($Nsel5 != 0){$Ngp5 =int(($Nsel5-$Ncost)/$Nsel5*100);}  

####End GP Calculation###### 
if (defined param('gp2cal')) { 	
 $gp2cal="CHECKED"; 	
 $sel=int(($cost/(1-(eval(param('GPSP1'))/100)))*100)/100; 	
 $sel2=int(($cost/(1-(eval(param('GPSP2'))/100)))*100)/100; 	
 $sel3=int(($cost/(1-(eval(param('GPSP3'))/100)))*100)/100; 	
 $sel4=int(($cost/(1-(eval(param('GPSP4'))/100)))*100)/100; 	
 $sel5=int(($cost/(1-(eval(param('GPSP5'))/100)))*100)/100;  	 	
 $gp1=eval(param('GPSP1'));  	
 $gp2=eval(param('GPSP2'));  	
 $gp3=eval(param('GPSP3'));  	
 $gp4=eval(param('GPSP4'));  	
 $gp5=eval(param('GPSP5'));  
} 
if (defined param('end9')) {
 $end9="CHECKED";
 $sel=(int($sel*10)+.9)/10;
 $sel2=(int($sel2*10)+.9)/10;
 $sel3=(int($sel3*10)+.9)/10;
 $sel4=(int($sel4*10)+.9)/10;
 $sel5=(int($sel5*10)+.9)/10;
} 
###START KEYBOARD SHORTCUT LAYOUT### 
sub keyb() {
 if (!defined param('search')) {
  if (!defined param('record') || param('record')==0) {
 	$sku  ="Z";
 	$sel  ="Q";
 	$cost ="X";
 	$sel2 ="W";
 	$sel3 ="E";
 	$sel4 ="R";
 	$sel5 ="T";
 	$gp1  ="A";
 	$gp2  ="S";
 	$gp3  ="D";
 	$gp4  ="F";
 	$gp5  ="G";
 	$mfg  =""; 
	$description="";
 	$umc  ="";   
  }
 }
}
#&keyb(); 
###END KEYBOARD SHORTCUT LAYOUT###

###NEW PART ENTRY###
if (defined param('new')) {
$line[@line]="$mfg\t$sku\t$description\t$umc\t$cost\t$sel\t$sel2\t$sel3\t$sel4\t$sel5";
}
####################

###File Writing format: MFG,SKU,DESCRIPTION,UMC,LUC,RTL,NET,PR1,PR2,PR3####  
if (defined param('save') || defined param('new')) {
 	$line[$r]="$mfg\t$sku\t$description\t$umc\t$cost\t$sel\t$sel2\t$sel3\t$sel4\t$sel5";
 	foreach (@line) {$_.="\n";}
	chomp $line[$#line];
 	open(WRITE , ">$output");
 	print WRITE @line;
 	close(WRITE);
} 
###NEW PART RESUBMIT FOR PROPER RECORD NUMBER###
if (defined param('new')) {
 print "Content-type: text/html\n\n 
 <form name='newrecord'>
 <input type='hidden' name='record' value='$#line'>
 </form>
 New Record # $#line
 <script>document.newrecord.submit()</script>";
} 
################################################ 


print "Content-type: text/html\n\n";
print qq~
<html>
<head>
<title>GizmoMike.com</title>
</head>
<body bgcolor="#13161B">
<center>
<table>
 <tr>
  <td>
   <img src="/pics/gm.jpg" height="150">
  </td>
  <td valign="center">
   <h1><font color="#B0C0D7">GizmoMike.com</font></h1>
  </td>
  <td align="top">
   <img src="/pics/311614.jpg" height="150">
 </td>
 </tr>
</table>
</head>
<body style="color:#B0C0D7;">
<table border="1">
<tr><td style="text-align:center;">Previous Record</td><td style="text-align:center;">Current Record</td><td style="text-align:center;">Next Record</td></tr>
<tr>
<td valign="top">
<form name="f2">
<table border="0">
<tr><td>MFG:</td><td><input type="text" name="MFG" value="$Pmfg"$FORM></td></tr>
<tr><td width="100">Part Number:</td><td><input type="text" name="SKU" value="$Psku"$FORM></td></tr>
<tr><td>Description:</td><td><input type="text" name="Description" value="$Pdescription"$FORM></td></tr>
<tr><td>U/M:</td><td><input type="text" name="UMC" value="$Pumc"$FORM></td></tr>
</table>
<table border="0"> <tr>  <td></td>  <td>Pricing:</td>  <td>GP %</td> </tr> <br> <tr>  <td>Retail:</td>
 <td><input type="text" name="SP1" value="$Psel" size="5"$FORM></td>
 <td><input type="text" name="GPSP1" value="$Pgp1" size="5"$FORM></td>
</tr>
<tr>
 <td>Net:</td>
 <td><input type="text" name="SP2" value="$Psel2" size="5"$FORM></td>
 <td><input type="text" name="GPSP2" value="$Pgp2" size="5"$FORM></td>
</tr> 
<tr>
 <td>SP1:</td>
 <td><input type="text" name="SP3" value="$Psel3" size="5"$FORM></td>
 <td><input type="text" name="GPSP3" value="$Pgp3" size="5"$FORM></td>
</tr> 
<tr>
 <td>SP2:</td>
 <td><input type="text" name="SP4" value="$Psel4" size="5"$FORM></td>
 <td><input type="text" name="GPSP4" value="$Pgp4" size="5"$FORM"></td>
</tr>
<tr>
 <td>SP3:</td>
 <td><input type="text" name="SP5" value="$Psel5" size="5"$FORM></td>
 <td><input type="text" name="GPSP5" value="$Pgp5" size="5"$FORM></td>
</tr>
<tr><td>&nbsp;</td></tr>
<tr><td>LUC:</td><td><input type="text" name="LUC" value="$Pcost" size="5"$FORM></td></tr>
</table>
</form>
</td>
<td>
<CENTER> <table border="0"> <FORM name="f3" method="get" action="$program">
<input type=hidden name="record" value="$r"> <tr>  <td>MFG:</td>  <td><input type="text" name="MFG" value="$mfg" size="30" maxlength="3" onFocus="NextTab='2';PrevTab='14';"></td>
 <td rowspan="4" name="shortcuts">
</td> </tr> 
<tr>  <td>Part Number:</td>  <td><input type="text" name="PartNumber" value="$sku" size="30" maxlength="11" onFocus="NextTab='3';PrevTab='1';"></td> </tr> 
<tr>  <td>Description:</td>  <td><input type="text" name="Description" value='$description' size="30" maxlength="25" onFocus="NextTab='4';PrevTab='2';"></td> </tr> 
<tr>  <td>U/M:</td>  <td><input type="text" name="UMC" value="$umc" size="30" maxlength="3" onFocus="NextTab='5';PrevTab='3';"></td>
</tr> </table>
</CENTER> 
<table border="0">
 <tr>
  <td></td>
  <td>Pricing:</td>
  <td>Gross Profit %</td>
 </tr>
 <br>
 <tr>
  <td>Retail:</td>
  <td><input type="text" name="SP1" value="$sel" onFocus="NextTab='7';PrevTab='14';"></td>
  <td><input type="text" name="GPSP1" value="$gp1" onFocus="NextTab='8';PrevTab='13';"></td>
 </tr>
 <tr>  <td>Net:</td>  <td><input type="text" name="SP2" value="$sel2" onFocus="NextTab='9';PrevTab='5';"></td>
  <td><input type="text" name="GPSP2" value="$gp2" onFocus="NextTab='10';PrevTab='6';"></td>
 </tr>
 <tr>
  <td>PR1:</td>
  <td><input type="text" name="SP3" value="$sel3" onFocus="NextTab='11';PrevTab='7';"></td>
  <td><input type="text" name="GPSP3" value="$gp3" onFocus="NextTab='12';PrevTab='8';"></td>
 </tr>
 <tr>
  <td>PR2:</td>
  <td><input type="text" name="SP4" value="$sel4" onFocus="NextTab='13';PrevTab='9';"></td>
  <td><input type="text" name="GPSP4" value="$gp4" onFocus="NextTab='14';PrevTab='10';"></td>
 </tr>
 <tr>
  <td>PR3:</td>
  <td><input type="text" name="SP5" value="$sel5" onFocus="NextTab='6';PrevTab='11';"></td>
  <td><input type="text" name="GPSP5" value="$gp5" onFocus="NextTab='5';PrevTab='12';"></td>
 </tr>
 <tr><td>&nbsp;</td></tr>
 <tr>
  <td>LUC:</td>
  <td><input type="text" name="cost" value="$cost" onFocus="NextTab='6';PrevTab='13';"></td>
 </tr>
  </table>
A<input type="checkbox" name="gp2cal" value="1" $gp2cal>Use GP% to calculate Price.<br> 
S<input type="checkbox" name="end9" value="1" $end9>End Pricing in 9
 </p> 
<table border="0">
 <tr>
 <td><input type="hidden" name="recal" value="Recalculate" default></td>
</form>

<FORM name="formsave" method="get" action="$program">
<td><input type="button" name="save" value="SAVE to file (W)" onClick="SaveValues()"></td>
<input type="hidden" name="record" value="$r">
<input type="hidden" name="MFG">
<input type="hidden" name="PartNumber">
<input type="hidden" name="Description">
<input type="hidden" name="UMC">
<input type="hidden" name="SP1">
<input type="hidden" name="SP2"">
<input type="hidden" name="SP3">
<input type="hidden" name="SP4">
<input type="hidden" name="SP5">
<input type="hidden" name="cost">
<input type="hidden" name="save" value="save">

</form>

<FORM name="formnew" method="get" action="$program">
<td><input type="button" name="new" value="New Part (Q)" onClick="NewValues()"></td>
<input type="hidden" name="MFG">
<input type="hidden" name="PartNumber">
<input type="hidden" name="Description">
<input type="hidden" name="UMC">
<input type="hidden" name="SP1">
<input type="hidden" name="SP2"">
<input type="hidden" name="SP3">
<input type="hidden" name="SP4">
<input type="hidden" name="SP5"">
<input type="hidden" name="cost">
<input type="hidden" name="new" value="new">

</form>

<FORM name="formsearch" method="get" action="$program">
<input type="hidden" name="PartNumber">
<input type="hidden" name="search" value="search">

<td><input type="button" name="search" value="Search (E)" onClick="SearchValues()"></td>
</form>

<FORM name="reset" method="get" action="$program">
 <td>
 <input type="hidden" name="reset" value="RESET">
 <input type="hidden" name="record" value="$r">
 <br>
 </td>
 </form>
 </tr>
 </table> 
<script type="text/javascript">
function SaveValues() {
 document.formsave.MFG.value=document.forms[1].elements[1].value;
 document.formsave.PartNumber.value=document.forms[1].elements[2].value;
 document.formsave.Description.value=document.forms[1].elements[3].value;
 document.formsave.UMC.value=document.forms[1].elements[4].value;
 document.formsave.SP1.value=document.forms[1].elements[5].value;
 document.formsave.SP2.value=document.forms[1].elements[7].value;
 document.formsave.SP3.value=document.forms[1].elements[9].value;
 document.formsave.SP4.value=document.forms[1].elements[11].value;
 document.formsave.SP5.value=document.forms[1].elements[13].value;
 document.formsave.cost.value=document.forms[1].elements[15].value;
 document.formsave.submit();
}
function NewValues() {
 document.formnew.MFG.value=document.forms[1].elements[1].value;
 document.formnew.PartNumber.value=document.forms[1].elements[2].value;
 document.formnew.Description.value=document.forms[1].elements[3].value;
 document.formnew.UMC.value=document.forms[1].elements[4].value;
 document.formnew.SP1.value=document.forms[1].elements[5].value;
 document.formnew.SP2.value=document.forms[1].elements[7].value;
 document.formnew.SP3.value=document.forms[1].elements[9].value;
 document.formnew.SP4.value=document.forms[1].elements[11].value;
 document.formnew.SP5.value=document.forms[1].elements[13].value;
 document.formnew.cost.value=document.forms[1].elements[15].value;
 document.formnew.submit();
}
function SearchValues() {
 document.formsearch.PartNumber.value=document.forms[1].elements[2].value;
 document.formsearch.submit();
}
function recalculate() {
 jsel1=document.forms[1].elements[5];
 jsel2=document.forms[1].elements[7];
 jsel3=document.forms[1].elements[9];
 jsel4=document.forms[1].elements[11];
 jsel5=document.forms[1].elements[13];
 jgp1=document.forms[1].elements[6];
 jgp2=document.forms[1].elements[8];
 jgp3=document.forms[1].elements[10];
 jgp4=document.forms[1].elements[12];
 jgp5=document.forms[1].elements[14];
 jcost=document.forms[1].elements[15];


 if (document.f3.gp2cal.checked==true) {
  jsel1.value=parseInt(jcost.value/(1-(jgp1.value/100))*100)/100;
  jsel2.value=parseInt(jcost.value/(1-(jgp2.value/100))*100)/100;
  jsel3.value=parseInt(jcost.value/(1-(jgp3.value/100))*100)/100;
  jsel4.value=parseInt(jcost.value/(1-(jgp4.value/100))*100)/100;
  jsel5.value=parseInt(jcost.value/(1-(jgp5.value/100))*100)/100;
  if (jsel1.value%1==0) {jsel1.value+=".00"}
  if (jsel2.value%1==0) {jsel2.value+=".00"}
  if (jsel3.value%1==0) {jsel3.value+=".00"}
  if (jsel4.value%1==0) {jsel4.value+=".00"}
  if (jsel5.value%1==0) {jsel5.value+=".00"}

 }
 else {
  if (jsel1.value.indexOf(".")==-1) {jsel1.value=parseFloat(jsel1.value)/100;
   if ((jsel1.value%1==0 || jsel1.value==1) && jsel1.value>=1) {jsel1.value+=".00"}}
  if (jsel2.value.indexOf(".")==-1) {jsel2.value/=100;
   if ((jsel2.value%1==0 || jsel2.value==1) && jsel2.value>=1) {jsel2.value+=".00"}}
  if (jsel3.value.indexOf(".")==-1) {jsel3.value/=100;
   if ((jsel3.value%1==0 || jsel3.value==1) && jsel3.value>=1) {jsel3.value+=".00"}}
  if (jsel4.value.indexOf(".")==-1) {jsel4.value/=100;
   if ((jsel4.value%1==0 || jsel4.value==1) && jsel4.value>=1) {jsel4.value+=".00"}}
  if (jsel5.value.indexOf(".")==-1) {jsel5.value/=100;
   if ((jsel5.value%1==0 || jsel5.value==1) && jsel5.value>=1) {jsel5.value+=".00"}}
  if (jcost.value.indexOf(".")==-1) {jcost.value/=100;
   if ((jcost.value%1==0 || jcost.value==1) && jcost.value>=1) {jcost.value+=".00"}}
  jgp1.value=parseInt(((jsel1.value-jcost.value)/jsel1.value)*100);
  jgp2.value=parseInt(((jsel2.value-jcost.value)/jsel2.value)*100);
  jgp3.value=parseInt(((jsel3.value-jcost.value)/jsel3.value)*100);
  jgp4.value=parseInt(((jsel4.value-jcost.value)/jsel4.value)*100);
  jgp5.value=parseInt(((jsel5.value-jcost.value)/jsel5.value)*100);
 }
 
 if (document.f3.end9.checked) {
  jsel1.value=(parseInt(jsel1.value*10)+.9)/10;
  jsel2.value=(parseInt(jsel2.value*10)+.9)/10;
  jsel3.value=(parseInt(jsel3.value*10)+.9)/10;
  jsel4.value=(parseInt(jsel4.value*10)+.9)/10;
  jsel5.value=(parseInt(jsel5.value*10)+.9)/10;
 }
}
var NextTab = 1;
var PrevTab = 1;
function keyboard(e){ 
var evtobj=window.event? event : e //distinguish between IE's explicit event object (window.event) and Firefox's implicit. 
var unicode=evtobj.charCode? evtobj.charCode : evtobj.keyCode 
var actualkey=String.fromCharCode(unicode) 

 if (actualkey=="d") {document.prev.submit();		return false;}
 if (actualkey=="f") {document.next.submit();		return false;}
 if (actualkey=="w") {SaveValues();			return false;}
 if (actualkey=="q") {NewValues();			return false;}
 if (actualkey=="e") {SearchValues();			return false;}
 if (actualkey=="z") {document.f3.MFG.select();		return false;}
 if (actualkey=="") {document.f3.SP1.select();		return false;}
 if (actualkey=="") {document.f3.GPSP1.select();	return false;}
 if (actualkey=="") {document.f3.SP2.select();		return false;}
 if (actualkey=="") {document.f3.GPSP2.select();	return false;}
 if (actualkey=="") {document.f3.SP3.select();		return false;}
 if (actualkey=="") {document.f3.GPSP3.select();	return false;}
 if (actualkey=="") {document.f3.SP4.select();		return false;}
 if (actualkey=="") {document.f3.GPSP4.select();	return false;}
 if (actualkey=="") {document.f3.SP5.select();		return false;}
 if (actualkey=="") {document.f3.GPSP5.select();	return false;}
 if (actualkey=="x") {document.f3.cost.select();	return false;}
 if (actualkey=="") {document.f3.PartNumber.select();	return false;}
 if (actualkey=="r") {window.location="http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}?record=$rr";	return false;}
 if (actualkey=="a") {   
  if (document.f3.gp2cal.checked==true){document.f3.gp2cal.checked=false; return false;}   
   else{document.f3.gp2cal.checked=true; return false;}  
 }
 if (actualkey=="s") {
   if (document.f3.end9.checked==true){document.f3.end9.checked=false; return false;}   
    else{document.f3.end9.checked=true; return false;}
 }  
 if (unicode=="13" && evtobj.shiftKey) {
  recalculate();
  document.forms[1].elements[PrevTab].select();
  return false;
 }
 if (unicode=="13") {
  recalculate();
  document.forms[1].elements[NextTab].select();
  return false;
 }
 if (actualkey=="c") {
  var Init="true";
  var list="";
  while(Init!=""){
   if(Init!=""&&Init!="true") {list+=",";}
   Init=prompt("Enter Part Number to compare (or partial value to search) To exit, enter nothing and press return","");
   list+=Init;
  }
  window.location="http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}?search=search&PartNumber="+list;
  return false;
 }
} 

document.onkeypress=keyboard; 
document.onLoad=document.forms[1].elements[5].select();
 </script>  
<input type="text" size="60" style="border:#000000;" value="Record# $r"><br>
</td>
<td valign="top">
<form name="f2">
<table border="0">
<tr><td>MFG:</td><td><input type="text" name="MFG" value="$Nmfg"$FORM></td></tr>
<tr><td width="100">Part Number:</td><td><input type="text" name="SKU" value="$Nsku"$FORM></td></tr>
<tr><td>Description:</td><td><input type="text" name="Description" value="$Ndescription"$FORM></td></tr>
<tr><td>U/M:</td><td><input type="text" name="UMC" value="$Numc"$FORM></td></tr>
</table>

<table border="0"> <tr>  <td></td>  <td>Pricing:</td>  <td>GP %</td> </tr> <br> <tr>  <td>Retail:</td>
 <td><input type="text" name="SP1" value="$Nsel" size="5"$FORM></td>
 <td><input type="text" name="GPSP1" value="$Ngp1" size="5"$FORM></td>
</tr>
<tr>
 <td>Net:</td>
 <td><input type="text" name="SP2" value="$Nsel2" size="5"$FORM></td>
 <td><input type="text" name="GPSP2" value="$Ngp2" size="5"$FORM></td>
</tr> 
<tr>
 <td>SP1:</td>
 <td><input type="text" name="SP3" value="$Nsel3" size="5"$FORM></td>
 <td><input type="text" name="GPSP3" value="$Ngp3" size="5"$FORM></td>
</tr> 
<tr>
 <td>SP2:</td>
 <td><input type="text" name="SP4" value="$Nsel4" size="5"$FORM></td>
 <td><input type="text" name="GPSP4" value="$Ngp4" size="5"$FORM"></td>
</tr>
<tr>
 <td>SP3:</td>
 <td><input type="text" name="SP5" value="$Nsel5" size="5"$FORM></td>
 <td><input type="text" name="GPSP5" value="$Ngp5" size="5"$FORM></td>
</tr>
<tr><td>&nbsp;</td></tr>
<tr><td>LUC:</td><td><input type="text" name="LUC" value="$Ncost" size="5"$FORM></td></tr>
</table>
</form>
</td>

<form name="prev" method="get" action="$program"> 
<!input type="hidden" name="gp2cal" value="$gp2cal">
<!input type="hidden" name="end9" value="$end9">
<input type="hidden" name="record" value="$p">
</form>  
<form name="next" method="get" action="$program"> 
<!input type="hidden" name="gp2cal" value="$gp2cal">
<!input type="hidden" name="end9" value="$end9">
<input type="hidden" name="record" value="$n"> </form>
</table>

<table border="0">
<tr><td width="300">
A------------Use GP% to calculate Price.<BR>
S------------End Pricing in 9<BR>
D------------Previous record<BR>
F------------Next Record<br>
Enter--------Next field/recalculate
</td><td width="340">
Shift+Enter--Previous field/recalculate<br>
Q------------New Part<BR>
W-----------SAVE<BR>
E------------Search for part number<br>
R------------Reset Search Values
</td><td>
Z------------Select MFG field<br>
X------------Select COST field<br>
C------------Compare Part Numbers
</td></tr>
</table>
</body>
~;  
#SPRINTF!!!!!!!!!!!!!!!
#Unmark record from search
#EVALUATE FORMS #AUTOSAVE OPTION #new part 
#find next match $program?found=1,2,3 
#search only part number
#caps lock check
#$program?MFG= desktop shortcuts 
# <td>Cost:</td> 
# <td><input type="text" name="cost" value="$cost"></td> 
#</tr> 
#print sidebar - for ($a=0; $a<0; $a++){@prod=split(/,/, "$file[$a]");print "<a href=$program?record=$a>$prod[1]</a>";}
#DEFAULT INPUT
#GP% recal auto submit
#BN SAVE CHANGE RECORD
#AUTO SELECT RETAIL (LOOP NEXT 10)
#  tabcounter++;
#  if (tabcounter==16) {tabcounter=1}
#  if (tabcounter==1) {document.forms[1].elements[1].select()}
#  if (tabcounter==2) {document.forms[1].elements[2].select()}
#  if (tabcounter==3) {document.forms[1].elements[3].select()}
#  if (tabcounter==4) {document.forms[1].elements[4].select()}
#  if (tabcounter==5) {document.forms[1].elements[5].select()}
#  if (tabcounter==6) {document.forms[1].elements[7].select()}
#  if (tabcounter==7) {document.forms[1].elements[9].select()}
#  if (tabcounter==8) {document.forms[1].elements[11].select()}
#  if (tabcounter==9) {document.forms[1].elements[13].select()}
#  if (tabcounter==10) {document.forms[1].elements[15].select()}
#  if (tabcounter==11) {document.forms[1].elements[6].select()}
#  if (tabcounter==12) {document.forms[1].elements[8].select()}
#  if (tabcounter==13) {document.forms[1].elements[10].select()}
#  if (tabcounter==14) {document.forms[1].elements[12].select()}
#  if (tabcounter==15) {document.forms[1].elements[14].select()}

sub oldcsv {
#MFG
for ($i=0; $i<=2; $i++){$text  .="$prod[$i]";} $text .="\t"; 
#SKU 
for ($i=4; $i<=10; $i++){$text .="$prod[$i]";} $text .="\t"; 
#DES 
for ($i=16; $i<=40; $i++){$text .="$prod[$i]";} $text .="\t"; 
#UMC 
for ($i=41; $i<=43; $i++){$text .="$prod[$i]";} $text .="\t"; 
#LUC 
for ($i=58; $i<=62; $i++){$text .="$prod[$i]";} $text .="\t";
#RTL 
for ($i=49; $i<=53; $i++){$text .="$prod[$i]";} $text .="\t"; 
#NET 
for ($i=67; $i<=71; $i++){$text .="$prod[$i]";} $text .="\t"; 
#PR1 
for ($i=85; $i<=89; $i++){$text .="$prod[$i]";} $text .="\t"; 
#PR2 
for ($i=103; $i<=107; $i++){$text .="$prod[$i]";} $text .="\t"; 
#PR3 
for ($i=121; $i<=125; $i++){$text .="$prod[$i]";} 
}
sub OLDsearch {
 for ($i=0;$i<$#line;$i++) {
  if ($line[$i]=~m:(.*)$search(.*):i){
   print "Content-type: text/html\n\n 
   <form name='found'>
   <input type='hidden' name='record' value='$i'>
   </form>
   <script>document.found.submit()</script>";
  } 
 } 
}