You probably just need to match up the objects. For example, use
oRequest.FORM('series') in AVFP instead of fox.getformvar('series') in AFP.
Advantages: Free, should be easier development/deployment,shares common technology with .VFP. web services,
possibly easier to market because of closer integration with MS strategy(ASP/ASP.NET),
simple way to create ASP.NET web apps with .VFP., many others...
>I have several pages that I have written in AFP, from 3 years ago. How much of my code is transportable to activeVFP, or would I have to do a complete re-write? Would there be any advantages? Here is a sample page in AFP:
>
>
><html>
>
><head>
> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
> <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
> <meta name="ProgId" content="FrontPage.Editor.Document">
> <title>Edit Stored Data</title>
> <meta http-equiv="Page-Enter" content="revealTrans(Duration=1.0,Transition=23)">
> <meta http-equiv="Page-Exit" content="revealTrans(Duration=1.0,Transition=23)">
> <meta http-equiv="Site-Enter" content="revealTrans(Duration=1.0,Transition=23)">
> <meta http-equiv="Site-Exit" content="revealTrans(Duration=1.0,Transition=23)">
></head>
>
><body background="back.gif">
>
><%
>set deleted on
>lcError='Internal Error'
>lcPartNo=''
>lcName=''
>lcPartName=''
>lcSubName=''
>lcAction=upper(alltrim(fox.getformvar('BB')))
>if lcAction='SAVE'
> SET DELETED ON
> lcAmp=alltrim(fox.getformvar('amp'))
> lcPart=alltrim(fox.getformvar('part'))
> lcSeries=alltrim(fox.getformvar('series'))
> if len(lcAmp)>0 and len(lcPart)>0 and len(lcSeries)>0
> lcPartNo=lcAmp+'-'+lcSeries+'-'+lcPart
> endif
> if not used("osf")
> use data\osf in 0
> endif
> if not used("pricebrackets")
> use data\pricebrackets in 0
> endif
>
> select osf
> locate for alltrim(osf.seriesno)==(lcSeries) and osf.ampno==val(lcAmp) and ;
> osf.partno==val(lcpart)
> if found()=.f.
> delete for (osf.ampno)<=0
> append blank
> endif
> lcPartName=upper(alltrim(fox.getformvar('partname')))
> nAT=at('-',lcPartName,1)
> if nAT>1
> lcSubName=substr(lcPartName,nAT+1)
> lcPartName=substr(lcPartName,1,nAT-1)
> endif
> replace osf.ampno with val(fox.getformvar('amp'))
> replace osf.majod with val(fox.getformvar('majod'))
> replace osf.seriesno with alltrim(fox.getformvar('series'))
> replace osf.partno with val(fox.getformvar('part'))
> replace osf.oal with val(fox.getformvar('oal'))
> replace osf.revisionno with val(fox.getformvar('revision'))
> replace osf.partname with (lcPartName)
> replace osf.subname with (lcSubName)
> replace osf.ventholdia with val(fox.getformvar('ventholdia'))
> replace osf.ventholno with val(fox.getformvar('ventholno'))
> replace osf.ventflatno with val(fox.getformvar('ventflatno'))
> replace osf.ventgrvno with val(fox.getformvar('ventgrvno'))
> replace osf.stepno with val(fox.getformvar('stepno'))
> lcVentHead=fox.getformvar('venthead')
> lcVentFace=fox.getformvar('ventface')
> lcVentFacex=fox.getformvar('ventfacex')
> lcChoke=fox.getformvar('choke')
> if lcVentHead='ON'
> replace osf.venthead with .t.
> else
> replace osf.venthead with .f.
> endif
> if lcVentFace='ON'
> replace osf.ventface with .t.
> else
> replace osf.ventface with .f.
> endif
> if lcVentFacex='ON'
> replace osf.ventfacex with .t.
> else
> replace osf.ventfacex with .f.
> endif
> if lcChoke='ON'
> replace osf.choke with .t.
> else
> replace osf.choke with .f.
> endif
>
> select pricebrackets
> do case
> case alltrim(osf.partname)='RING DIE' or alltrim(osf.partname)='DIE' or alltrim(osf.partname)='PIERCING DIE'
> locate for pricebrackets.ampno==(osf.ampno) and alltrim(pricebrackets.partname)==alltrim(osf.partname) and ;
> alltrim(pricebrackets.subname)==alltrim(osf.subname) and pricebrackets.min<=(osf.oal) and ;
> pricebrackets.max>=(osf.oal)
> if found()
> replace osf.bracket with pricebrackets.bracket
> else
> ? 'Price Bracket Was NOT found For this part!!'
> endif
> case alltrim(osf.partname)='PUNCH CASE' or alltrim(osf.partname)='PUNCH' or alltrim(osf.partname)='EJECTOR' or ;
> alltrim(osf.partname)='FIRST PUNCH'
> locate for pricebrackets.ampno=(osf.ampno) and alltrim(pricebrackets.partname)=alltrim(osf.partname) and ;
> alltrim(pricebrackets.subname)=alltrim(osf.subname) and pricebrackets.min<=(osf.majod) and ;
> pricebrackets.max>=(osf.majod)
> if found()
> replace osf.bracket with pricebrackets.bracket
> else
> ? 'Price Bracket Was NOT found For this part!!'
> endif
> endcase
> set safety off
> if not used("osf")
> use data\osf in 0
> endif
> select osf
> copy to data\osf type xls
>endif
>if lcAction='ORDER THIS ITEM'
> lnProdMinV=0
> lnSetupMinV=0
> lcAmp=alltrim(fox.getformvar('amp'))
> lcPart=alltrim(fox.getformvar('part'))
> lcSeries=alltrim(fox.getformvar('series'))
> if len(lcAmp)>0 and len(lcPart)>0 and len(lcSeries)>0
> lcPartNo=lcAmp+'-'+lcSeries+'-'+lcPart
> endif
> lcDelivery=alltrim(fox.getformvar('delivery'))
> lcDelivery1=alltrim(fox.getformvar('delivery1'))
> lcDelivery2=alltrim(fox.getformvar('delivery2'))
> lcDelivery3=alltrim(fox.getformvar('delivery3'))
> lcQty=alltrim(fox.getformvar('qty'))
> lcQty1=alltrim(fox.getformvar('qty1'))
> lcQty2=alltrim(fox.getformvar('qty2'))
> lcQty3=alltrim(fox.getformvar('qty3'))
> lcBracket=alltrim(fox.getformvar('bracket'))
> lcPartName=alltrim(fox.getformvar('partname'))
> nAT=at('-',lcPartName,1)
> if nAT>1
> lcSubName=substr(lcPartName,nAT+1)
> lcPartName=substr(lcPartName,1,nAT-1)
> endif
> lcVentHolNo=alltrim(fox.getformvar('ventholno'))
> lcVentHolDia=alltrim(fox.getformvar('ventholdia'))
> lcRevision=alltrim(fox.getformvar('revision'))
> lcVentFlatNo=alltrim(fox.getformvar('ventflatno'))
> lcVentFace=upper(alltrim(fox.getformvar('ventface')))
> lcVentFacex=upper(alltrim(fox.getformvar('ventfacex')))
> lcChoke=upper(alltrim(fox.getformvar('choke')))
> lcVentHead=upper(alltrim(fox.getformvar('venthead')))
> lcStepNo=alltrim(fox.getformvar('stepno'))
> lcVentGrvNo=alltrim(fox.getformvar('ventgrvno'))
> lcOrderDate=alltrim(fox.getformvar('orderdate'))
>
> if val(lcVentHolNo)>0
> if not used("vents")
> use data\vents in 0
> endif
> select vents
> locate for upper(alltrim(vents.partname))=(lcPartName) and vents.ventdia=val(lcVentHolDia) and ;
> upper(alltrim(vents.type))='HOLE'
> if found()
> lnProdMinV=vents.prodmin*val(lcVentHolNo)
> lnSetupMinV=vents.setupmin
> else
> lcError='Vent holes are not setup in data'
> ? lcError
> endif
> else
> *no vents
> endif
> if val(lcVentFlatNo)>0
> if not used("vents")
> use data\vents in 0
> endif
> select vents
> locate for upper(alltrim(vents.partname))=(lcPartName) and upper(alltrim(vents.type))='FLAT'
> if found()
> lnProdMinV=lnProdMinV+vents.prodmin*val(lcVentFlatNo)
> lnSetupMinV=lnSetupMinV+vents.setupmin
> else
> ? 'Vent Flats Are Not Setup In Data'
> endif
> endif
>
> if val(lcStepNo)>0
> if not used("vents")
> use data\vents in 0
> endif
> select vents
> locate for upper(alltrim(vents.partname))=(lcPartName) and upper(alltrim(vents.type))='STEP'
> if found()
> lnProdMinV=lnProdMinV+vents.prodmin*val(lcStepNo)
> lnSetupMinV=lnSetupMinV+vents.setupmin
> else
> ? 'Steps Are Not Setup In Data'
> endif
> endif
>
> if val(lcVentGrvNo)>0
> if not used("vents")
> use data\vents in 0
> endif
> select vents
> locate for upper(alltrim(vents.partname))=(lcPartName) and upper(alltrim(vents.type))='GROOVE'
> if found()
> lnProdMinV=lnProdMinV+vents.prodmin*val(lcVentGrvNo)
> lnSetupMinV=lnSetupMinV+vents.setupmin
> else
> ? 'Vent Grooves Are Not Setup In Data'
> endif
> endif
>
> if lcVentFace="ON"
> if not used("vents")
> use data\vents in 0
> endif
> select vents
> locate for upper(alltrim(vents.partname))=(lcPartName) and upper(alltrim(vents.type))='RING'
> if found()
> lnProdMinV=lnProdminV+vents.prodmin
> lnSetupMinV=lnSetupMinV+vents.setupmin
> else
> ? 'Vent Rings Are Not Setup In Data'
> endif
> endif
>
> if lcVentFacex="ON"
> if not used("vents")
> use data\vents in 0
> endif
> select vents
> locate for upper(alltrim(vents.partname))=(lcPartName) and upper(alltrim(vents.type))='GROOVE'
> if found()
> lnProdMinV=lnProdminV+vents.prodmin
> lnSetupMinV=lnSetupMinV+vents.setupmin
> else
> ? 'Vent Rings Are Not Setup In Data'
> endif
> endif
>
>
> if lcChoke="ON"
> if not used("vents")
> use data\vents in 0
> endif
> select vents
> locate for upper(alltrim(vents.partname))=(lcPartName) and upper(alltrim(vents.type))='CHOKE'
> if found()
> lnProdMinV=lnProdMinV+vents.prodmin
> lnSetupMinV=lnSetupMinV+vents.setupmin
> else
> ? 'ID Choke & vent hole not Setup In Data'
> endif
> endif
>
> if lcVentHead="ON"
> if not used("vents")
> use data\vents in 0
> endif
> select vents
> locate for upper(alltrim(vents.partname))=(lcPartName) and upper(alltrim(vents.type))='GROOVE'
> if found()
> lnProdMinV=lnProdMinV+vents.prodmin
> lnSetupMinV=lnSetupMinV+vents.setupmin
> else
> ? 'Vent GROOVES Are Not Setup In Data For '+alltrim(lcPartName)
> endif
> endif
>
> if len(alltrim(lcSubName))>0
> lcPartName=alltrim(lcPartName+'-'+lcSubName)
> endif
> if len(lcDelivery)>0 and val(lcQty)>=1
> insert into data\orders.dbf (ampno, seriesno, partno, del_date, qty, ord_date, ;
> bracket, prodminv, setupminv, revisionno, desc) values ;
> (val(lcAmp), lcSeries, val(lcPart), ctod(lcDelivery), val(lcQty), ctod(lcOrderDate), val(lcBracket), ;
> lnProdminV, lnSetupMinV, val(lcRevision), lcPartName)
> else
> ? 'Problem with delivery or order quantity'
> endif
> if len(lcDelivery1)>0 and val(lcQty1)>=1
> insert into data\orders.dbf (ampno, seriesno, partno, del_date, qty, ord_date, ;
> bracket, prodminv, setupminv, revisionno, desc) values ;
> (val(lcAmp), lcSeries, val(lcPart), ctod(lcDelivery1), val(lcQty1), ctod(lcOrderDate), val(lcBracket), ;
> lnProdminV, lnSetupMinV, val(lcRevision), lcPartName)
> endif
> if len(lcDelivery2)>0 and val(lcQty2)>=1
> insert into data\orders.dbf (ampno, seriesno, partno, del_date, qty, ord_date, ;
> bracket, prodminv, setupminv, revisionno, desc) values ;
> (val(lcAmp), lcSeries, val(lcPart), ctod(lcDelivery2), val(lcQty2), ctod(lcOrderDate), val(lcBracket), ;
> lnProdminV, lnSetupMinV, val(lcRevision), lcPartName)
> endif
> if len(lcDelivery3)>0 and val(lcQty3)>=1
> insert into data\orders.dbf (ampno, seriesno, partno, del_date, qty, ord_date, ;
> bracket, prodminv, setupminv, revisionno, desc) values ;
> (val(lcAmp), lcSeries, val(lcPart), ctod(lcDelivery3), val(lcQty3), ctod(lcOrderDate), val(lcBracket), ;
> lnProdminV, lnSetupMinV, val(lcRevision), lcPartName)
> endif
>endif
>if lcAction='INITIALIZE DATA'
>( set safety off
> import from data\osf.xls' type xls
> (=8989
>endif
>
>set date to American
>set century on
>set mark to "/"
>lcDate = Fox.GetFormVar('Cal1')
>ldDate = iif(empty(lcDate),date(),ctod(lcDate))
>lcDate = dtoc(ldDate)
>lcMon = alltrim(str(month(ldDate)))
>lcDay = alltrim(str(day(ldDate)))
>lcYear = alltrim(str(year(ldDate)))
>
>lcPartNo=upper(alltrim(fox.getformvar('partno')))
>lcDelivery=upper(alltrim(fox.getformvar('delivery')))
>lcDelivery1=upper(alltrim(fox.getformvar('delivery1')))
>lcDelivery2=upper(alltrim(fox.getformvar('delivery2')))
>lcDelivery3=upper(alltrim(fox.getformvar('delivery3')))
>
>lcQty=upper(alltrim(fox.getformvar('qty')))
>lcQty1=upper(alltrim(fox.getformvar('qty1')))
>lcQty2=upper(alltrim(fox.getformvar('qty2')))
>lcQty3=upper(alltrim(fox.getformvar('qty3')))
>
>do case
> case lcAction='GET DATE 1'
> lcDelivery=(lcDate)
> case lcAction='GET DATE 2'
> lcDelivery1=(lcDate)
> case lcAction='GET DATE 3'
> lcDelivery2=(lcDate)
> case lcAction='GET DATE 4'
> lcDelivery3=(lcDate)
>endcase
>
>
>
><p align="center"><b><font color="#CC9900" size="5" face="Verdana">Item Data</font></b></p>
>
><hr>
>
><form method="POST" action="<%? fox.cform1 ">
>
><blockquote>
><p> <font face="Verdana" size="1"> Part No:
></font><!--webbot bot="Validation" S-Data-Type="String" B-Allow-Letters="TRUE"
>B-Allow-Digits="TRUE" S-Allow-Other-Chars="-" -->
> <input type="text" name="partno" length="10" size="20" tabindex="1" value="<%? lcPartNo ">
> <input type="submit" value="Find" name="BB">
> <input type="submit" value="Add" name="BB"> <b><font face="Verdana" size="1">Format: "40-107-203"
>"40-61000A-1" no
> revisions </font></b>
></p>
></blockquote>
><%
>lcPartNo=Upper(alltrim(fox.getformvar('partno')))
>if lcAction='ADD'
> lcPartNo='NEW'
>endif
>if empty(lcPartNo)=.f.
> nFirst=at('-',lcPartNo,1)
> nSecond=at('-',lcPartNo,2)
> lcAmp=substr(lcPartNo,1,nFirst-1)
> lcSeries=substr(lcPartNo,nFirst+1,nSecond-nfirst-1)
> lcPart=substr(lcPartNo,nSecond+1)
> if val(lcpart)<=0 or empty(lcPart)=.t.
> lcPart='0'
> endif
> if not used("osf")
> use data\osf in 0
> endif
> select osf
> locate for alltrim(osf.seriesno)=(lcSeries) and osf.ampno=val(lcAmp) and ;
> osf.partno=val(lcpart)
> if found() OR lcPartNo='NEW'
> if lcPartNo='NEW'
> append blank
> lcAmp=''
> lcSeries=''
> lcPart=''
> endif
>
>
> <p> <font face="Verdana" size="1">
> Amp: </font><!--webbot bot="Validation" S-Display-Name="Amp"
> S-Data-Type="Integer" S-Number-Separators="x" B-Value-Required="TRUE"
> I-Minimum-Length="2" I-Maximum-Length="3" -->
> <input type="text" name="amp" length="10" size="3" maxlength="3" value=<%? lcAmp >
> <font face="Verdana" size="1">Series:</font>
> <!--webbot bot="Validation" S-Display-Name="Amp" S-Data-Type="String"
> B-Allow-Digits="TRUE" B-Value-Required="TRUE" I-Minimum-Length="3"
> I-Maximum-Length="10" -->
> <input type="text" name="series" length="10" size="11" maxlength="10" value='<%? lcSeries '> <font face="v" size="1">
> Part/Pos:</font> <!--webbot
> bot="Validation" S-Display-Name="Amp" S-Data-Type="Integer"
> S-Number-Separators="x" B-Value-Required="TRUE" I-Minimum-Length="2"
> I-Maximum-Length="4" -->
> <input type="text" name="part" length="10" size="4" maxlength="4" value=<%? lcPart > <font face="Verdana" size="1">
> Revision: </font><!--webbot bot="Validation" S-Display-Name="Amp"
> S-Data-Type="Integer" S-Number-Separators="x" B-Value-Required="TRUE"
> I-Minimum-Length="1" I-Maximum-Length="4" -->
> <input type="text" name="revision" length="10" size="4" maxlength="4" value='<%? osf.revisionno '>
> <%IF len(ALLTRIM(osf.subname))>0
> lcName=alltrim(osf.partname)+'-'+alltrim(osf.subname)
> else
> lcname=alltrim(osf.partname)
> endif
>
></p>
>
> <p>
> <font face="Verdana" size="1">Part Name: </font> <select size="1" name="partname">
> <option <%? IIF(lcName=='PUNCH CASE-FLAT FACE','selected','') >
> PUNCH CASE-FLAT FACE</option>
> <option <%? IIF(lcName=='PUNCH CASE-FORM FACE','selected','') >
> PUNCH CASE-FORM FACE</option>
> <option <%? IIF(lcName=='PUNCH CASE-BALL','selected','') >
> PUNCH CASE-BALL</option>
> <option <%? IIF(lcName=='PUNCH CASE-HEX FLAT FACE','selected','') >
> PUNCH CASE-HEX FLAT FACE</option>
> <option <%? IIF(lcName=='PUNCH-STANDARD','selected','') >
> PUNCH-STANDARD</option>
> <option <%? IIF(lcName=='PUNCH-HOLDING PIN','selected','') >
> PUNCH-HOLDING PIN</option>
> <option <%? IIF(lcName=='PUNCH-BALL','selected','') >
> PUNCH-BALL</option>
> <option <%? IIF(lcName=='RING DIE','selected','') >
> RING DIE</option>
> <option <%? IIF(lcName=='RING DIE-HEX','selected','') >
> RING DIE-HEX</option>
> <option <%? IIF(lcName=='DIE-STANDARD','selected','') >
> DIE-STANDARD</option>
> <option <%? IIF(lcName=='DIE-COMMON','selected','') >
> DIE-COMMON</option>
> <option <%? IIF(lcName=='DIE-ID FORM','selected','') >
> DIE-ID FORM</option>
> <option <%? IIF(lcName=='DIE-BALL','selected','') >
> DIE-BALL</option>
> <option <%? IIF(lcName=='DIE-HEX SPLIT','selected','') >
> DIE-HEX SPLIT</option>
> <option <%? IIF(lcName=='DIE-FOR HEX RING','selected','') >
> DIE-FOR HEX RING</option>
> <option <%? IIF(lcName=='EJECTOR-18 HOLES','selected','') >
> EJECTOR-18 HOLES</option>
> <option <%? IIF(lcName=='EJECTOR-24 HOLES','selected','') >
> EJECTOR-24 HOLES</option>
> <option <%? IIF(lcName=='EJECTOR-30 HOLES','selected','') >
> EJECTOR-30 HOLES</option>
> <option <%? IIF(lcName=='EJECTOR-36 HOLES','selected','') >
> EJECTOR-36 HOLES</option>
> <option <%? IIF(lcName=='EJECTOR-BALL','selected','') >
> EJECTOR-BALL</option>
> <option <%? IIF(lcName=='EJECTOR SLEEVE-30 HOLES','selected','') >
> EJECTOR SLEEVE-30 HOLES</option>
> <option <%? IIF(lcName=='EJECTOR INTERNAL-30 HOLES','selected','') >
> EJECTOR INTERNAL-30 HOLES</option>
> <option <%? IIF(lcName=='PIERCING DIE','selected','') >
> PIERCING DIE</option>
> <option <%? IIF(lcName=='FIRST PUNCH-FLAT','selected','') >
> FIRST PUNCH-FLAT</option>
> <option <%? IIF(lcName=='FIRST PUNCH-CONCAVE','selected','') >
> FIRST PUNCH-CONCAVE</option>
> <option <%? IIF(lcName=='FIRST PUNCH-CONVEX','selected','') >
> FIRST PUNCH-CONVEX</option>
> </select> <font face="Verdana" size="1">
> Price Bracket: </font><!--webbot bot="Validation" S-Display-Name="bracket"
> S-Data-Type="Integer" S-Number-Separators="x" B-Value-Required="TRUE"
> I-Minimum-Length="1" I-Maximum-Length="4" -->
> <input name="bracket" length="10" size="4" maxlength="4" value='<%? alltrim(str(osf.bracket,4,0)) ' style="color: #808080; border-style: solid" tabindex="0">
></p>
>
><p>
><font face="Verdana" size="1">
> Major OD mm: </font><!--webbot bot="Validation" S-Display-Name="Amp"
>S-Data-Type="Number" S-Number-Separators="x." B-Value-Required="TRUE"
>I-Minimum-Length="2" I-Maximum-Length="9" -->
> <input type="text" name="majod" length="10" size="9" maxlength="9" value='<%? osf.majod '>
><font face="Verdana" size="1">OAL mm: </font><!--webbot bot="Validation"
>S-Display-Name="Amp" S-Data-Type="Number" S-Number-Separators="x."
>B-Value-Required="TRUE" I-Minimum-Length="2" I-Maximum-Length="9" -->
> <input type="text" name="oal" length="10" size="9" maxlength="9" value='<%? osf.oal '>
> + <font face="Verdana" size="1">Vent
>Groove In
>Face</font>: <input type="checkbox" name="ventfacex" value="ON" <%? iif(OSF.VENTfacex=.T.,'checked','') >
> <font face="Verdana" size="1">
>(punch only) </font>
></p>
>
> <font face="Verdana" size="1">
>Vent Hole Dia:</font> <select size="1" name="ventholdia">
> <option value="0.00" <%? IIF(osf.ventholdia=0.00,'selected','') >No Vent holes</option>
> <option value="0.5" <%? IIF(osf.ventholdia=0.50,'selected','') >0.5 mm</option>
> <option value="1.0" <%? IIF(osf.ventholdia=1.00,'selected','') >1.0 mm</option>
></select> <font face="Verdana" size="1"> No Of Vent Holes: </font><!--webbot
>bot="Validation" S-Display-Name="Amp" S-Data-Type="Integer"
>S-Number-Separators="x" B-Value-Required="TRUE" I-Minimum-Length="1"
>I-Maximum-Length="4" -->
> <input type="text" name="ventholno" length="10" size="4" maxlength="4" value='<%? osf.ventholno '>
> <font face="Verdana" size="1">(die/ring die/punch case only)</font>
>
><p><font face="Verdana" size="1">
>Vent Groove In Head: </font><input type="checkbox" name="venthead" value="ON" <%? iif(OSF.VENTHEAD=.T.,'checked','') > <font face="Verdana" size="1"> (punch
>case only)</font> <font face="Verdana" size="1">Vent Ring In
>Face</font>: <input type="checkbox" name="ventface" value="ON" <%? iif(OSF.VENTface=.T.,'checked','') >
> <font face="Verdana" size="1">
>(punch/punch case only) </font></p>
>
><p><font face="Verdana" size="1">
> ID Choke & Vent Hole: </font><input type="checkbox" name="choke" value="ON" <%? iif(OSF.choke=.T.,'checked','') > <font face="Verdana" size="1"> (punch
>case only) No Of Vent Flats On OD/Tip: </font> <!--webbot
>bot="Validation" S-Display-Name="Amp" S-Data-Type="Integer"
>S-Number-Separators="x" B-Value-Required="TRUE" I-Minimum-Length="1"
>I-Maximum-Length="4" --><input type="text" name="ventflatno" length="10" size="4" maxlength="4" value='<%? osf.ventflatno '> <font face="Verdana" size="1">(punch
>case/ejector only) </font> <p> <font face="Verdana" size="1">
>No Of Vent Grooves In Face:</font> <!--webbot
>bot="Validation" S-Display-Name="Amp" S-Data-Type="Integer"
>S-Number-Separators="x" B-Value-Required="TRUE" I-Minimum-Length="1"
>I-Maximum-Length="4" -->
> <input type="text" name="ventgrvno" length="10" size="4" maxlength="4" value='<%? osf.ventgrvno '>
> <font face="Verdana" size="1">(common die only) </font> <font face="Verdana" size="1">No Of Steps On Face:
></font><!--webbot bot="Validation" S-Display-Name="Amp" S-Data-Type="Integer"
>S-Number-Separators="x" B-Value-Required="TRUE" I-Minimum-Length="1"
>I-Maximum-Length="4" -->
> <input type="text" name="stepno" length="10" size="4" maxlength="4" value='<%? osf.stepno '>
> <font face="Verdana" size="1">(common die only, Max 2)</font>
><p>
><input type="submit" value="Save" name="BB"> <font face="Verdana" size="2"> changes
><b> MUST</b> be saved before
>exiting</font></p>
><hr>
><font face="Verdana" size="1"><p>
> Select Order Date <select size="1" name="orderdate">
>
><%
>*
>* ADD DROP DOWN DATE LIST SHOWING LAST DATE AS DEFAULT PLUS ALL EXISTING DATES
>*
>create cursor datelist (ord_date d(8))
>if not used("orders")
> use data\orders in 0
>endif
>select orders
>go top
>scan
> if orders.submitted<>.t.
> select datelist
> locate for ord_date=orders.ord_date
> if found()=.f.
> insert into datelist (ord_date) values (orders.ord_date)
> endif
> endif
>endscan
>
>
> <%
> dDate=ctod(alltrim(fox.getformvar('orderdate')))
> select datelist
> locate for ord_date=date()
> if found()=.f.
> insert into datelist (ord_date) values (date())
> endif
> index on ord_date to orddate
> set order to orddate descending
> scan
> <option<%
> if datelist.ord_date=ddate
> ? ' SELECTED'
> endif
> ><%? dtoc(ord_date) </option>
> <%endscan
> </select> (Determines which order you will
>be appending items to.)
>
></p>
>
>
>
>Quantity </font><!--webbot bot="Validation" S-Display-Name="Amp"
>S-Data-Type="Integer" S-Number-Separators="x" B-Value-Required="TRUE"
>I-Minimum-Length="1" I-Maximum-Length="4" --><input type="text" name="qty" length="10" size="4" maxlength="4" value='<%? lcQty '> <font face="Verdana" size="1">
>Delivery </font><!--webbot bot="Validation" S-Display-Name="delivery"
>S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-Digits="TRUE"
>B-Value-Required="TRUE" I-Minimum-Length="8" I-Maximum-Length="10" --><input type="text" name="delivery" length="10" size="10" maxlength="10" value='<%? lcDelivery '>
><input type="submit" value="Get Date 1" name="BB"> <input type="submit" value="Order this item" name="BB">
> <b><font size="2"> </font><font size="1"> <font face="Verdana">Format: 02/01/2001</font> </font></b>
><font face="Verdana" size="1"> </font>
> <p>
>
> <!--webbot bot="Validation" S-Display-Name="Amp" S-Data-Type="Integer"
> S-Number-Separators="x" B-Value-Required="TRUE" I-Minimum-Length="1"
> I-Maximum-Length="4" -->
> <input type="text" name="qty1" length="10" size="4" maxlength="4" value='<%? lcQty1 '>
> <!--webbot bot="Validation" S-Display-Name="delivery" S-Data-Type="String"
> B-Allow-Letters="TRUE" B-Allow-Digits="TRUE" B-Value-Required="TRUE"
> I-Minimum-Length="8" I-Maximum-Length="10" --><input type="text" name="delivery1" length="10" size="10" maxlength="10" value='<%? lcDelivery1 '>
> <input type="submit" value="Get Date 2" name="BB"></p>
> <p>
> <!--webbot bot="Validation" S-Display-Name="Amp" S-Data-Type="Integer"
> S-Number-Separators="x" B-Value-Required="TRUE" I-Minimum-Length="1"
> I-Maximum-Length="4" -->
> <input type="text" name="qty2" length="10" size="4" maxlength="4" value='<%? lcQty2 '>
>
> <!--webbot bot="Validation" S-Display-Name="delivery" S-Data-Type="String"
> B-Allow-Letters="TRUE" B-Allow-Digits="TRUE" B-Value-Required="TRUE"
> I-Minimum-Length="8" I-Maximum-Length="10" --><input type="text" name="delivery2" length="10" size="10" maxlength="10" value='<%? lcDelivery2 '>
> <input type="submit" value="Get Date 3" name="BB"></p>
> <p>
> <!--webbot bot="Validation" S-Display-Name="Amp" S-Data-Type="Integer"
> S-Number-Separators="x" B-Value-Required="TRUE" I-Minimum-Length="1"
> I-Maximum-Length="4" -->
> <input type="text" name="qty3" length="10" size="4" maxlength="4" value='<%? lcQty3 '> <!--webbot
> bot="Validation" S-Display-Name="delivery" S-Data-Type="String"
> B-Allow-Letters="TRUE" B-Allow-Digits="TRUE" B-Value-Required="TRUE"
> I-Minimum-Length="8" I-Maximum-Length="10" --><input type="text" name="delivery3" length="10" size="10" maxlength="10" value='<%? lcDelivery3 '>
> <input type="submit" value="Get Date 4" name="BB"></p>
>
><font face="Verdana" size="2"> <object classid="clsid:8E27C92B-1264-101C-8A2F-040224009C02" id="Calendar1" width="300" height="200" name="Cal1" border="3">
><param name="_Version" value="524288">
><param name="_ExtentX" value="7938">
><param name="_ExtentY" value="5292">
><param name="_StockProps" value="1">
><param name="BackColor" value="-2147483633">
><param name="Year" value="2001">
><param name="Month" value="3">
><param name="Day" value="13">
><param name="DayLength" value="1">
><param name="MonthLength" value="2">
><param name="DayFontColor" value="0">
><param name="FirstDay" value="1">
><param name="GridCellEffect" value="1">
><param name="GridFontColor" value="10485760">
><param name="GridLinesColor" value="-2147483632">
><param name="ShowDateSelectors" value="-1">
><param name="ShowDays" value="-1">
><param name="ShowHorizontalGrid" value="-1">
><param name="ShowTitle" value="-1">
><param name="ShowVerticalGrid" value="-1">
><param name="TitleFontColor" value="0">
><param name="ValueIsNull" value="0"><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
></object><br>
>
>
></form>
><hr>
><blockquote>
> <p>
> <%else
><b><font color="#FF0000"> <font face="Verdana"> </font> </font></b>Part was NOT found </font>
>
>
></p>
>
>
></blockquote>
>
>
> <font face="Courier New" size="2">
>
>
> <%endif
>else
><%endif
>close tables all
>
> </font>
>
><p><font face="Verdana" size="2">
>
> Click to modify or submit your <a href="orders.afp">Order
>Data</a>.</font>
>
>
></p>
>
>
><p><font face="Verdana" size="2">
>Click to view <a href="pos.afp">Order History</a> or
>view <a href="stocklist.afp">Inventory</a>.</font>
>
>
></p>
>
>
><p><font face="Verdana" size="2">
><a href="data\osf.xls">Download
>The Data File</a> for your own use in excel.</font></p>
><p> <font face="Verdana" size="2"> </font>
></p>
>
></body>
>
