<% FUNCTION fixcrlf ( theString) fixcrlf = REPLACE( theString, Chr(13), "
" ) & "
" END FUNCTION dim activefixture(3) dim activetype (3) dim activepart (3) dim typenum (3) dim optiontypename (100) dim partnum (3) dim optionpartname(500) dim tooltable(50) dim total(3) dim fixturewarning(3) dim tooltableID(3,25) dim partID (3) dim partname (3) dim parttype (3) dim partdescription (3) dim partblank (3) dim partsetup (3) dim partfixture (3) dim partfixturenum (3) dim partZA (3) dim partZB (3) dim partZsafe (3) dim partXoffsetA (3) dim partYoffsetA (3) dim partZoffsetA (3) dim partXoffsetB (3) dim partYoffsetB (3) dim partZoffsetB (3) dim partvar14 (3) dim partvar14description (3) dim partvar15 (3) dim partvar15description (3) dim partvar16 (3) dim partvar16description (3) dim partvar17 (3) dim partvar17description (3) dim partvar18 (3) dim partvar18description (3) dim partvar19 (3) dim partvar19description (3) dim toolID (3,25) dim toolpartID (3,25) dim toolsequence (3,25) dim toolnumber (3,25) dim tooldescription (3,25) dim toolend (3,25) dim stepID (3,25) dim steptoolID (3,25) dim stepoperationID (3,25) dim stepsequence (3,25) dim operationID (3,25) dim operationname (3,25) dim operationdescription (3,25) dim operationtoolnumber (3,25) dim operationcode (3,25) ' Open Database Connection Server.MapPath(".") dbPath = "E:/hshome/webcaddy/database/PartMaker.mdb" Set Con = Server.CreateObject("ADODB.Connection") Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath activefixture(1) = TRIM( Request( "fixture" ) ) if activefixture(1) = "" then activefixture(1)= -1 activefixture(2)= 2 activefixture(3)= 3 else activefixture(2)= activefixture(1) + 1 activefixture(3)= activefixture(1) + 2 end if activetype(1) = TRIM( Request( "type" ) ) if activetype(1) = "" then activetype(1)= "%" activetype(2)= "%" activetype(3)= "%" else activetype(2)= activetype(1) activetype(3)= activetype(1) end if activepart(1) = TRIM( Request( "part" ) ) activetype(2)= activetype(1) activetype(3)= activetype(1) selectpart = TRIM( Request( "selectpart" ) ) if selectpart = "" then selectpart="TRUE" end if %> <% IF session( "iDebugLevel" ) > 1 THEN %> Session Debug Level Set to:<%=session( "iDebugLevel" )%>
<%for i=1 to Request.Form.Count%> Form Key #<%=i%> = <%=Request.Form.Key(i)%> => <%=Request(Request.Form.Key(i))%>
<%next%> <%END IF%> <% 'Commands are sent from the form in the last key '90 = Update all fields in all tables for this part sqlstring="Nothing" FormCount = Request.Form.Count IF FormCount > 0 THEN FormCommand = Request.Form.Key(FormCount) SELECT CASE FormCommand CASE 90 'Update all selections %>Updated selections
<% selectpart = "TRUE" if request("manual") = "ON" then activefixture(1)= Request("SelFixture1") activefixture(2)= Request("SelFixture2") activefixture(3)= Request("SelFixture3") else activefixture(1)= Request("SelFixture1") + 0 activefixture(2)= Request("SelFixture1") + 1 activefixture(3)= Request("SelFixture1") + 2 end if if request("manual") = "ON" then activetype(1)= Request("Seltype1") activetype(2)= Request("Seltype2") activetype(3)= Request("Seltype3") else activetype(1)= Request("Seltype1") activetype(2)= Request("Seltype1") activetype(3)= Request("Seltype1") end if if request("partmanual") = "ON" then activepart(1)= Request("Selpart1") activepart(2)= Request("Selpart2") activepart(3)= Request("Selpart3") else activepart(1)= Request("Selpart1") activepart(2)= Request("Selpart1") activepart(3)= Request("Selpart1") end if CASE 91 'Post Code to file selectpart = "FALSE" activefixture(1)= Request("SelFixture1") activefixture(2)= Request("SelFixture2") activefixture(3)= Request("SelFixture3") activetype(1)= Request("Seltype1") activetype(2)= Request("Seltype2") activetype(3)= Request("Seltype3") activepart(1)= Request("selpart1") activepart(2)= Request("selpart2") activepart(3)= Request("selpart3") manual = Request("manual") partmanual = Request("partmanual") CASE ELSE %>None Implemented Command Selected
<% END SELECT END IF%> <% 'Collect the available Type and Part Names For i= 1 to 3 if activefixture(1)=-1 then sqlString1 = "SELECT DISTINCT part_type FROM part " &_ " ORDER BY part_type " sqlString2 = "SELECT DISTINCT part_name FROM part " &_ " ORDER BY part_name " else sqlString1 = "SELECT DISTINCT part_type FROM part " &_ "WHERE part_fixturenum = " & activefixture(i) + 1 - i &_ " ORDER BY part_type " sqlString2 = "SELECT DISTINCT part_name FROM part " &_ "WHERE part_fixturenum = " & activefixture(i) + 1 - i &_ " AND part_type LIKE '" & activetype(i) & "' " &_ " ORDER BY part_name " end if IF session( "iDebugLevel" ) > 0 THEN %> Session Debug Level Set to:<%=session( "iDebugLevel" )%>
sqlString1: <%=sqlstring1%>
sqlString2: <%=sqlstring2%>
<%END IF SET RS = Con.Execute( sqlString1 ) typenum(i) = 0 WHILE NOT RS.EOF typenum(i) = typenum(i) + 1 optiontypename (typenum(i)) = RS( "part_type") RS.MoveNext IF session( "iDebugLevel" ) > 0 THEN %> TypeNum: <%=typenum(i)%> PartType:<%=parttype(typenum(i))%>
<%END IF WEND SET RS = Con.Execute( sqlString2 ) partnum(i) = 0 WHILE NOT RS.EOF partnum(i)= partnum(i)+ 1 optionpartname(partnum(i)) = RS( "part_name") RS.MoveNext IF session( "iDebugLevel" ) > 0 THEN %> TypeNum: <%=partnum(i)%> PartType:<%=optionpartname(partnum(i))%>
<%END IF WEND Next if activefixture(1)=-1 then activefixture(1)=1 end if %> <% 'Build Gcode numofparts=0 for i = 1 to 3 if NOT(activepart(i)="") then numofparts=i end if total(i)=0 Next for i = 1 to numofparts sqlstring = "Select part_ID, part_name, part_type, part_description, part_blank, part_setup, " &_ "part_fixture, part_fixturenum, part_ZA, part_ZB, part_Zsafe, part_XoffsetA, " &_ "part_YoffsetA, part_ZoffsetA, part_XoffsetB, part_YoffsetB, part_ZoffsetB, " &_ "part_var14, part_var14description, part_var15, part_var15description, " &_ "part_var16, part_var16description, part_var17, part_var17description, " &_ "part_var18, part_var18description, part_var19, part_var19description, " &_ "tool_ID, tool_partID, tool_sequence, tool_number, tool_description, tool_end " &_ "FROM part INNER JOIN tool ON part.part_ID = tool.tool_partID " &_ "WHERE part_name = '" & activePart(i) & "' AND " &_ "tool_number < 99 " &_ "ORDER BY tool_end, tool_sequence" IF session( "iDebugLevel" ) > 1 THEN %> sqlString: <%=sqlstring%>
<%END IF SET RS = Con.Execute (sqlstring) j=0 WHILE NOT RS.EOF j=j+1 partID(i) = RS("part_ID") partname(i) = RS("part_name") parttype(i) = RS("part_type") partdescription(i) = RS("part_description") partblank(i) = RS("part_blank") partsetup(i) = RS("part_setup") partfixture(i) = RS("part_fixture") fixturetest=RS("part_fixturenum")+i-1 if activefixture(i) = fixturetest then partfixturenum(i) = RS("part_fixturenum")+i-1 fixturewarning(i) = "FALSE" else partfixturenum(i) = RS("part_fixturenum")+i-1 fixturewarning(i) = "TRUE" end if partZA(i) = RS("part_ZA") partZB(i) = RS("part_ZB") partZsafe(i) = RS("part_Zsafe") partXoffsetA(i) = RS("part_XoffsetA") partYoffsetA(i) = RS("part_YoffsetA") partZoffsetA(i) = RS("part_ZoffsetA") partXoffsetB(i) = RS("part_XoffsetB") partYoffsetB(i) = RS("part_YoffsetB") partZoffsetB(i) = RS("part_ZoffsetB") partvar14(i) = RS("part_var14") partvar14description(i) = RS("part_var14description") partvar15(i) = RS("part_var15") partvar15description(i) = RS("part_var15description") partvar16(i) = RS("part_var16") partvar16description(i) = RS("part_var16description") partvar17(i) = RS("part_var17") partvar17description(i) = RS("part_var17description") partvar18(i) = RS("part_var18") partvar18description(i) = RS("part_var18description") partvar19(i) = RS("part_var19") partvar19description(i) = RS("part_var19description") toolID(i,j) = RS("tool_ID") toolpartID(i,j) = RS("tool_partID") toolsequence(i,j) = RS("tool_sequence") toolnumber(i,j) = RS("tool_number") tooldescription(i,j) = RS("tool_description") toolend(i,j) = RS("tool_end") total(i)=j RS.MoveNext WEND Next If total(1)>=total(2) then If total(1) >= total(3) then maxtools=total(1) else maxtools=total(3) end if else If total(2) >= total(3) then maxtools=total(2) else maxtools=total(3) end if end if toolchange=0 currenttool=-1 for j=1 to maxtools for i = 1 to 3 if NOT (toolnumber(i,j)="") then if NOT (currenttool=toolnumber(i,j)) then currenttool=toolnumber(i,j) toolchange=toolchange+1 tooltable(toolchange)=currenttool end if tooltableID(i,toolchange)=toolID(i,j) end if Next Next totaltoolchanges=toolchange %>

<%if selectpart = "TRUE" then %>

Bridge Port Mill Code Maker

<%else%> <%end if%> <%currentend="A"%> <%if selectpart = "TRUE" then %> <%For j = 1 to totaltoolchanges%> <%For ii=-3 to -1%> <%i=abs(ii)%> <%Next%> <%Next%>

Manual Update: checked <%end if%> >	Position 3	Position 2	Position 1
Fixture	bgcolor="#FF0000" <%end if%> >	bgcolor="#FF0000" <%end if%> >	bgcolor="#FF0000" <%end if%> >
Type
Part checked <%end if%> >
Tool Change: <%=j%> checked <%end if%> >	<%if NOT(tooltableID(i,j)="") then%> <%sqlstring = "SELECT operation_name, operation_description, operation_code, step_sequence " &_ "FROM operation INNER JOIN step ON operation.operation_ID = step.step_operationID " &_ "WHERE step_toolID = " & tooltableID(i,j) & " " &_ "ORDER BY step_sequence" IF session( "iDebugLevel" ) > 1 THEN %> sqlString: <%=sqlstring%> <%END IF%> <%SET RS = Con.Execute (sqlstring)%> <%if NOT (currentend=toolend(i,j))then%> TURN PARTS OVER <%currentend = toolend(i,j)%> <%end if%> <%OpNum=0%> <%While NOT RS.EOF%> <%OpNum=OpNum+1%> Op: <%=j%><%=i%><%=OpNum%> DeAct checked <%end if%> > <%RS.MoveNext%> <%WEND%> <%else%> No Operation <%end if%>

<%else%> <%For j = 1 to totaltoolchanges%> <%For ii=-3 to -1%> <%i=abs(ii)%> <%if NOT(tooltableID(i,j)="") then%> <%sqlstring = "SELECT operation_name, operation_description, operation_code " &_ "FROM operation INNER JOIN step ON operation.operation_ID = step.step_operationID " &_ "WHERE step_toolID = " & tooltableID(i,j) & " " &_ "ORDER BY step_sequence" IF session( "iDebugLevel" ) > 1 THEN %> sqlString: <%=sqlstring%>
<%END IF%> <%SET RS = Con.Execute (sqlstring)%> <%OpNum=0%> <%While NOT RS.EOF%> <%OpNum=OpNum+1%> "> <%RS.MoveNext%> <%WEND%> <%end if%> <%Next%> <%Next%> <%end if%>

% Code Maker - <%=numofparts%> part Program <%=now()%>
% Part Names 1:<%=partname(1)%> 2:<%=partname(2)%> 3:<%=partname(3)%>
% Fixtures 1:<%=partfixturenum(1)%> 2:<%=partfixturenum(2)%> 3:<%=partfixturenum(3)%>
% Total Number of Tool changes required: <%=totaltoolchanges%>
% Total Tool Interactions: <%=total(1)+total(2)+total(3)%>
<%for i = 1 to totaltoolchanges%> % Tool change: <%=i%> using tool #: <%=tooltable(i)%>
<%Next%> <%For i = 1 to numofparts %> % N<%=i%>:<%=partname(i)%>
% D<%=i%>:<%=fixcrlf (partdescription(i))%> % B<%=i%>:<%=fixcrlf (partblank(i))%> % S<%=i%>:<%=fixcrlf (partsetup(i))%> % F<%=i%>:<%=fixcrlf (partfixture(i))%> %
<%Next%> %Initialisation Codes
G21 % mm coordinate System
G17 % X-Y plane selected
G50 % Turn any scaling off
G92.1 % turn off any previous offsets
G64 % Set Constant Velocity Mode
G90 % Absolute Co-ordinate Mode
#4060=1 %Initialise Tool Radius
% *** START Making Parts ***
<%currentend="A"%> <%For j = 1 to totaltoolchanges%> <%if request("ToolDact" & j) = "DEACT" then%> % Tool change <%=j%> de-activiated
<%else%> %**************************
M06 T <%=tooltable(j)%>
%**************************
<%For i = 1 to numofparts %> <%if NOT(tooltableID(i,j)="") then%> <%sqlstring = "SELECT operation_name, operation_description, operation_code " &_ "FROM operation INNER JOIN step ON operation.operation_ID = step.step_operationID " &_ "WHERE step_toolID = " & tooltableID(i,j) & " " &_ "ORDER BY step_sequence" IF session( "iDebugLevel" ) > 1 THEN %> sqlString: <%=sqlstring%>
<%END IF%> <%SET RS = Con.Execute (sqlstring)%> <%if NOT (currentend=toolend(i,j))then%> % *** TURN PARTS OVER ***
% *************************
<%currentend = toolend(i,j)%> <%end if%> %Part:<%=partname(i)%>(<%=toolend(i,j)%>) Tool Change:<%=j%> Tool #: <%=tooltable(j)%>
#10 = <%=(partZA(i))%> % ZA:
#11 = <%=(partZB(i))%> % ZB:
#12 = <%=(partZsafe(i))%> % ZSafe:
#14 = <%=(partvar14(i))%> % Var14: <%=partvar14description(i)%>
#15 = <%=(partvar15(i))%> % Var15: <%=partvar15description(i)%>
#16 = <%=(partvar16(i))%> % Var16: <%=partvar16description(i)%>
#17 = <%=(partvar17(i))%> % Var17: <%=partvar17description(i)%>
#18 = <%=(partvar18(i))%> % Var18: <%=partvar18description(i)%>
#19 = <%=(partvar19(i))%> % Var19: <%=partvar19description(i)%>
G59 P<%=partfixturenum(i)%>
% Set job reference point
<%if toolend(i,j) = "A" then%> G92.1
G00 X<%=partXoffsetA(i)%> Y<%=partYoffsetA(i)%> Z<%=partZsafe(i)+partZoffsetA(i)%>
G92 X0 Y0 Z<%=partZsafe(i)-partZA(i)%>
<%else%> G92.1
G00 X<%=partXoffsetB(i)%> Y<%=partYoffsetB(i)%> Z<%=partZsafe(i)+partZoffsetB(i)%>
G92 X0 Y0 Z<%=partZsafe(i)-partZB(i)%>
<%end if%> <%OpNum=0%> <%While NOT RS.EOF%> <%OpNum=OpNum+1%> <%if request("OpDact" & j & i & OpNum) = "DEACT" then%> % *** Operation Code <%=RS("Operation_Name")%> DE-ACTIVATED ***
<%else%> % *** Execute Operation Code <%=RS("Operation_Name")%> here: ***
% <%=fixcrlf ( RS("Operation_description"))%> <%=fixcrlf ( RS("operation_code"))%> <%end if%> <%RS.MoveNext%> <%WEND%> <%else%> % *** No Operation Code for Part:<%=partname(i)%>(<%=toolend(i,j)%>) Tool Change:<%=j%> Tool #: <%=tooltable(j)%>
<%end if%> G00 G53 Z0
<%Next%> <%end if%> <%Next%> M5 %Turn Spindle Off
G50
G92.1
G00 G53 X0 Y0 Z0
% *** Program END ****
M30