a:25:{i:0;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:0:"";s:4:"tipo";s:0:"";s:5:"parms";s:0:"";s:6:"codigo";s:127:"sc_lookup(dataset1, "SELECT old_po,new_style FROM greigepo WHERE p_o_number = '{gsselect}'");
{greige_wi} ={dataset1[0][0]};
";}i:1;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:13:"DYER_onChange";s:4:"tipo";s:1:"A";s:5:"parms";s:0:"";s:6:"codigo";s:13:"dyerupdate();";}i:2;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:21:"FinishSelect_onChange";s:4:"tipo";s:1:"A";s:5:"parms";s:0:"";s:6:"codigo";s:15:"finishchange();";}i:3;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:17:"GSSelect_onChange";s:4:"tipo";s:1:"A";s:5:"parms";s:0:"";s:6:"codigo";s:23:"[var_gpo]={gsselect};
";}i:4;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:18:"HE1_SCODE_onChange";s:4:"tipo";s:1:"A";s:5:"parms";s:0:"";s:6:"codigo";s:16:"hescodeupdate();";}i:5;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:18:"HE2_SCODE_onChange";s:4:"tipo";s:1:"A";s:5:"parms";s:0:"";s:6:"codigo";s:17:"he2scodeupdate();";}i:6;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:18:"LD1_SCODE_onChange";s:4:"tipo";s:1:"A";s:5:"parms";s:0:"";s:6:"codigo";s:16:"ldscodeupdate();";}i:7;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:18:"LD2_SCODE_onChange";s:4:"tipo";s:1:"A";s:5:"parms";s:0:"";s:6:"codigo";s:17:"ld2scodeupdate();";}i:8;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:20:"SelectPrice_onChange";s:4:"tipo";s:1:"A";s:5:"parms";s:0:"";s:6:"codigo";s:27:"{price_lb_d}={selectprice};";}i:9;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:14:"StdDF_onChange";s:4:"tipo";s:1:"A";s:5:"parms";s:0:"";s:6:"codigo";s:14:"stddfchange();";}i:10;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:10:"dyerupdate";s:4:"tipo";s:1:"M";s:5:"parms";s:0:"";s:6:"codigo";s:796:"$getadd="select prefix,name,address1,address2,city,state,zip_code from veratex2.supref
where code='{dyer}'";
sc_lookup(rs,$getadd);	
if (isset({rs[0][0]}))
	{
	$prefix={rs[0][0]};	
		}
else
	{
     $prefix='';
		}
if (isset({rs[0][1]}))
	{
	$name={rs[0][1]};	
		}
else
	{
     $name='';
		}
{Dname}=$prefix.' '.$name;
	
if (isset({rs[0][2]}))
	{
	{Dadd1}={rs[0][2]};	
		}
else
	{
     {Dadd1}='';
		}
if (isset({rs[0][3]}))
	{
	{Dadd2}={rs[0][3]};	
		}
else
	{
     {Dadd2}='';
		}
if (isset({rs[0][4]}))
{
$city={rs[0][4]};
}
else
	{
		$city='';
	}
if (isset({rs[0][5]}))
{
	$state={rs[0][5]};
}
else
	{
		$state='';
		}
if (isset({rs[0][6]}))
	{
		$zip={rs[0][6]};
}
else
	{
		$zip='';
			}
	{Dadd3}=$city." ".$state."  ".$zip;


";}i:11;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:12:"finishchange";s:4:"tipo";s:1:"M";s:5:"parms";s:0:"";s:6:"codigo";s:300:"$check_sql = "SELECT our_fin_no,vendor_fin_no,fin_short_name,fin_long_name 
FROM veratex2.finish WHERE veratex2.finish.our_fin_no = {FinishSelect}";
sc_lookup(rs,$check_sql);
{our_fin_no}={rs[0][0]};
{vendor_fin_no}={rs[0][1]};
{finish_short_name}={rs[0][2]};
{finish_long_name}={rs[0][3]};
		";}i:12;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:14:"he2scodeupdate";s:4:"tipo";s:1:"M";s:5:"parms";s:0:"";s:6:"codigo";s:810:"$getadd="select prefix,name,address1,address2,city,state,zip_code from veratex2.custship
where scode='{he2_scode}'";
sc_lookup(rs,$getadd);	
if (isset({rs[0][0]}))
	{
	$prefix={rs[0][0]};	
		}
else
	{
     $prefix='';
		}
if (isset({rs[0][1]}))
	{
	$name={rs[0][1]};	
		}
else
	{
     $name='';
		}
{H2name}=$prefix.' '.$name;
	
if (isset({rs[0][2]}))
	{
	{H2add1}={rs[0][2]};	
		}
else
	{
     {H2add1}='';
		}
if (isset({rs[0][3]}))
	{
	{H2add2}={rs[0][3]};	
		}
else
	{
     {H2add2}='';
		}
if (isset({rs[0][4]}))
{
$city={rs[0][4]};
}
else
	{
		$city='';
	}
if (isset({rs[0][5]}))
{
	$state={rs[0][5]};
}
else
	{
		$state='';
		}
if (isset({rs[0][6]}))
	{
		$zip={rs[0][6]};
}
else
	{
		$zip='';
			}
	{H2add3}=$city." ".$state."  ".$zip;


";}i:13;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:13:"hescodeupdate";s:4:"tipo";s:1:"M";s:5:"parms";s:0:"";s:6:"codigo";s:804:"$getadd="select prefix,name,address1,address2,city,state,zip_code from veratex2.custship
where scode='{he1_scode}'";
sc_lookup(rs,$getadd);	
if (isset({rs[0][0]}))
	{
	$prefix={rs[0][0]};	
		}
else
	{
     $prefix='';
		}
if (isset({rs[0][1]}))
	{
	$name={rs[0][1]};	
		}
else
	{
     $name='';
		}
{Hname}=$prefix.' '.$name;
	
if (isset({rs[0][2]}))
	{
	{Hadd1}={rs[0][2]};	
		}
else
	{
     {Hadd1}='';
		}
if (isset({rs[0][3]}))
	{
	{Hadd2}={rs[0][3]};	
		}
else
	{
     {Hadd2}='';
		}
if (isset({rs[0][4]}))
{
$city={rs[0][4]};
}
else
	{
		$city='';
	}
if (isset({rs[0][5]}))
{
	$state={rs[0][5]};
}
else
	{
		$state='';
		}
if (isset({rs[0][6]}))
	{
		$zip={rs[0][6]};
}
else
	{
		$zip='';
			}
	{Hadd3}=$city." ".$state."  ".$zip;


";}i:14;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:14:"ld2scodeupdate";s:4:"tipo";s:1:"M";s:5:"parms";s:0:"";s:6:"codigo";s:810:"$getadd="select prefix,name,address1,address2,city,state,zip_code from veratex2.custship
where scode='{ld2_scode}'";
sc_lookup(rs,$getadd);	
if (isset({rs[0][0]}))
	{
	$prefix={rs[0][0]};	
		}
else
	{
     $prefix='';
		}
if (isset({rs[0][1]}))
	{
	$name={rs[0][1]};	
		}
else
	{
     $name='';
		}
{L2name}=$prefix.' '.$name;
	
if (isset({rs[0][2]}))
	{
	{L2add1}={rs[0][2]};	
		}
else
	{
     {L2add1}='';
		}
if (isset({rs[0][3]}))
	{
	{L2add2}={rs[0][3]};	
		}
else
	{
     {L2add2}='';
		}
if (isset({rs[0][4]}))
{
$city={rs[0][4]};
}
else
	{
		$city='';
	}
if (isset({rs[0][5]}))
{
	$state={rs[0][5]};
}
else
	{
		$state='';
		}
if (isset({rs[0][6]}))
	{
		$zip={rs[0][6]};
}
else
	{
		$zip='';
			}
	{L2add3}=$city." ".$state."  ".$zip;


";}i:15;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:13:"ldscodeupdate";s:4:"tipo";s:1:"M";s:5:"parms";s:0:"";s:6:"codigo";s:804:"$getadd="select prefix,name,address1,address2,city,state,zip_code from veratex2.custship
where scode='{ld1_scode}'";
sc_lookup(rs,$getadd);	
if (isset({rs[0][0]}))
	{
	$prefix={rs[0][0]};	
		}
else
	{
     $prefix='';
		}
if (isset({rs[0][1]}))
	{
	$name={rs[0][1]};	
		}
else
	{
     $name='';
		}
{Lname}=$prefix.' '.$name;
	
if (isset({rs[0][2]}))
	{
	{Ladd1}={rs[0][2]};	
		}
else
	{
     {Ladd1}='';
		}
if (isset({rs[0][3]}))
	{
	{Ladd2}={rs[0][3]};	
		}
else
	{
     {Ladd2}='';
		}
if (isset({rs[0][4]}))
{
$city={rs[0][4]};
}
else
	{
		$city='';
	}
if (isset({rs[0][5]}))
{
	$state={rs[0][5]};
}
else
	{
		$state='';
		}
if (isset({rs[0][6]}))
	{
		$zip={rs[0][6]};
}
else
	{
		$zip='';
			}
	{Ladd3}=$city." ".$state."  ".$zip;


";}i:16;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:13:"onAfterInsert";s:4:"tipo";s:1:"E";s:5:"parms";s:0:"";s:6:"codigo";s:0:"";}i:17;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:17:"onApplicationInit";s:4:"tipo";s:1:"E";s:5:"parms";s:0:"";s:6:"codigo";s:0:"";}i:18;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:14:"onBeforeInsert";s:4:"tipo";s:1:"E";s:5:"parms";s:0:"";s:6:"codigo";s:0:"";}i:19;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:6:"onInit";s:4:"tipo";s:1:"E";s:5:"parms";s:0:"";s:6:"codigo";s:0:"";}i:20;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:9:"onLoadAll";s:4:"tipo";s:1:"E";s:5:"parms";s:0:"";s:6:"codigo";s:456:"[var_status]={status};
[var_do]={p_o_number};
[var_style]={fs};	
[var_color]= {color};	
[var_colorno]={color_numb};
[var_width]={fwidth};
[var_loc]={dyer};
[var_putup]={put_up};
[var_cpi]={cpi};
[var_wpi]={wpi};
[var_finishshortname]={finish_short_name};
[var_ourfinno]={our_fin_no};
[var_costlbg]={cost_lb_g};
[var_dyer]={dyer};
[var_estyds]={est_yards};
[var_yld]={req_gr_yld};
[var_startcode]=6;
[var_endcode]=7;
dyerupdate();
 
	 
";}i:21;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:10:"onNavigate";s:4:"tipo";s:1:"E";s:5:"parms";s:0:"";s:6:"codigo";s:0:"";}i:22;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:9:"onRefresh";s:4:"tipo";s:1:"E";s:5:"parms";s:0:"";s:6:"codigo";s:0:"";}i:23;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:11:"refreshform";s:4:"tipo";s:1:"M";s:5:"parms";s:0:"";s:6:"codigo";s:43:"sc_redir(fv2_dye_dyeorder_form,"","_self");";}i:24;a:7:{s:7:"cod_prj";s:7:"Veratex";s:6:"versao";s:1:"1";s:7:"cod_apl";s:21:"fv2_dye_dyeorder_form";s:4:"nome";s:11:"stddfchange";s:4:"tipo";s:1:"M";s:5:"parms";s:0:"";s:6:"codigo";s:761:"/**
 * Selecting a field from another table
 */

// Check for record
$check_sql = "SELECT frame,fwidth,panels,cpi,wpi,gryield,fyield,finish,fin_no,put_up,spec1,spec2,spec3"
   . " FROM veratex2.standdf"
   . " WHERE number = '" . {stddf} . "'";
sc_lookup(rs, $check_sql);

if (isset({rs[0][0]}))     // Row found
{
    {frame} = {rs[0][0]};
    {fwidth} = {rs[0][1]};
	{panels} = {rs[0][2]};
    {cpi} = {rs[0][3]};	
	{wpi} = {rs[0][4]};
    {req_gr_yld} = {rs[0][5]};
	{req_fin_wt} = {rs[0][6]};
//    {finish} = {rs[0][7]};
//	{finish_no} = {rs[0][8]};
    {put_up} = {rs[0][9]};
//	{spec1} = {rs[0][10]};
//    {spec2} = {rs[0][11]};	
//	{spec3} = {rs[0][12]};
}
		else     // No row found
{
		    {frame} = 'STD DF NOT FOUND';
}";}}