Re: Sequential Code Logic
This WebDNA talk-list message is from 2003
It keeps the original formatting.
numero = 53991
interpreted = N
texte = It always amazes me how difficult it is to code some logic that the humanmind has no trouble with. Anyway, I figured out a solution, so I thought Ipost it for the archives.[!]----- Calculate the last deed number -----[/!][search db=admin/deed_number.db&neIDdatarq=find_all&deIDsort=1&max=1] [founditems] [text]theTract=[TRACT][/text] [text]theSub=[SUB][/text] [text]theSquare=[SQUARE][/text] [text]theBlock=[BLOCK][/text] [text]theLot=[LOT][/text] [/founditems][/search][!]----- Roll sections over if they've reached their max -----[/!][if "[theLot]"="999"] [then] [text]newLot=1[/text] [/then] [else] [text]newLot=[math][theLot]+1[/math][/text] [text]newBlock=[theBlock][/text] [/else][/if][if ("[theLot]"="999") & ("[theBlock]"="99")] [then] [text]newBlock=1[/text] [/then] [else] [text]newSquare=[theSquare][/text] [/else][/if][if ("[theLot]"="999") & ("[theBlock]"="99") & ("[theSquare]"="D")] [then] [text]newSquare=A[/text] [/then] [else] [text]newSub=[theSub][/text] [/else][/if][if ("[theLot]"="999") & ("[theBlock]"="99") & ("[theSquare]"="D") &("[theSub]"="99")] [then] [text]newSub=1[/text] [text]newTract=[math][theTract]+1[/math][/text] [/then] [else] [text]newTract=[theTract][/text] [/else][/if][!]----- Increase sections by one where needed -----[/!][if ("[theLot]"="999") & ("[theBlock]"!"99")] [then] [text]newBlock=[math][theBlock]+1[/math][/text] [/then][/if][if ("[theLot]"="999") & ("[theBlock]"="99") & ("[theSquare]"!"D")] [then] [switch value=[theSquare]] [case value=A] [text]newSquare=B[/text] [/case] [case value=B] [text]newSquare=C[/text] [/case] [case value=C] [text]newSquare=D[/text] [/case] [case value=D] [text]newSquare=A[/text] [/case] [/switch] [/then][/if][if ("[theLot]"="999") & ("[theBlock]"="99") & ("[theSquare]"="D") &("[theSub]"!"99")] [then] [text]newSub=[math][theSub]+1[/math][/text] [/then][/if]On 11/12/03 8:58 AM, "Clint Davis"
wrote:> A store I'm building will be selling an item that is serialized with a> sequential code like this:> > 1 1 A 1 1> 1 1 A 1 2> ...> 1 1 A 1 99> 1 1 A 2 1> ...> 1 1 A 99 99> 1 1 B 1 1> ...> 1 1 D 99 99> 1 2 A 1 1> ...> 1 99 D 99 99> 2 1 A 1 1> > > Field 1 = 1-99> Field 2 = 1-99> Field 3 = A-D> Field 4 = 1-99> Field 5 = 1-99---------------------------------------------------------------------Clint DavisWebmaster / Interactive Media SpecialistGray Loon Marketing Group, Inc. http://www.grayloon.com204 Main Street | Evansville, IN 47708 | Phone:812-422-9999----------------------------------------------------------------------------------------------------------------------------------This message is sent to you because you are subscribed to the mailing list .To unsubscribe, E-mail to: To switch to the DIGEST mode, E-mail to Web Archive of this list is at: http://webdna.smithmicro.com/
Associated Messages, from the most recent to the oldest:
It always amazes me how difficult it is to code some logic that the humanmind has no trouble with. Anyway, I figured out a solution, so I thought Ipost it for the archives.[!]----- Calculate the last deed number -----[/!][search db=admin/deed_number.db&neIDdatarq=find_all&deIDsort=1&max=1] [founditems] [text]theTract=[TRACT][/text] [text]theSub=[SUB][/text] [text]theSquare=[SQUARE][/text] [text]theBlock=[BLOCK][/text] [text]theLot=[LOT][/text] [/founditems][/search][!]----- Roll sections over if they've reached their max -----[/!][if "[theLot]"="999"] [then] [text]newLot=1[/text] [/then] [else] [text]newLot=[math][theLot]+1[/math][/text] [text]newBlock=[theBlock][/text] [/else][/if][if ("[theLot]"="999") & ("[theBlock]"="99")] [then] [text]newBlock=1[/text] [/then] [else] [text]newSquare=[theSquare][/text] [/else][/if][if ("[theLot]"="999") & ("[theBlock]"="99") & ("[theSquare]"="D")] [then] [text]newSquare=A[/text] [/then] [else] [text]newSub=[theSub][/text] [/else][/if][if ("[theLot]"="999") & ("[theBlock]"="99") & ("[theSquare]"="D") &("[theSub]"="99")] [then] [text]newSub=1[/text] [text]newTract=[math][theTract]+1[/math][/text] [/then] [else] [text]newTract=[theTract][/text] [/else][/if][!]----- Increase sections by one where needed -----[/!][if ("[theLot]"="999") & ("[theBlock]"!"99")] [then] [text]newBlock=[math][theBlock]+1[/math][/text] [/then][/if][if ("[theLot]"="999") & ("[theBlock]"="99") & ("[theSquare]"!"D")] [then] [switch value=[theSquare]] [case value=A] [text]newSquare=B[/text] [/case] [case value=B] [text]newSquare=C[/text] [/case] [case value=C] [text]newSquare=D[/text] [/case] [case value=D] [text]newSquare=A[/text] [/case] [/switch] [/then][/if][if ("[theLot]"="999") & ("[theBlock]"="99") & ("[theSquare]"="D") &("[theSub]"!"99")] [then] [text]newSub=[math][theSub]+1[/math][/text] [/then][/if]On 11/12/03 8:58 AM, "Clint Davis" wrote:> A store I'm building will be selling an item that is serialized with a> sequential code like this:> > 1 1 A 1 1> 1 1 A 1 2> ...> 1 1 A 1 99> 1 1 A 2 1> ...> 1 1 A 99 99> 1 1 B 1 1> ...> 1 1 D 99 99> 1 2 A 1 1> ...> 1 99 D 99 99> 2 1 A 1 1> > > Field 1 = 1-99> Field 2 = 1-99> Field 3 = A-D> Field 4 = 1-99> Field 5 = 1-99---------------------------------------------------------------------Clint DavisWebmaster / Interactive Media SpecialistGray Loon Marketing Group, Inc. http://www.grayloon.com204 Main Street | Evansville, IN 47708 | Phone:812-422-9999----------------------------------------------------------------------------------------------------------------------------------This message is sent to you because you are subscribed to the mailing list .To unsubscribe, E-mail to: To switch to the DIGEST mode, E-mail to Web Archive of this list is at: http://webdna.smithmicro.com/
Clint Davis
DOWNLOAD WEBDNA NOW!
Top Articles:
Talk List
The WebDNA community talk-list is the best place to get some help: several hundred extremely proficient programmers with an excellent knowledge of WebDNA and an excellent spirit will deliver all the tips and tricks you can imagine...
Related Readings:
[OT] ssh user@domain.com (2004)
WebCat2: Items xx to xx shown, etc. (1997)
Resume Catalog ? (1997)
[Shownext] (1997)
2.1.5: Too Many Nested [xxx] (1998)
international time (1997)
RE: Template Not Found (1998)
Mult-File Upload w/ Web Star (2000)
WebCat2b13MacPlugin - [math][date][/math] problem (1997)
service stop and restart (1997)
Problems reading files created by WC (1997)
WebCatalog 3.0 (Mac) For Sale (2000)
sendmail and accented characters (1998)
webcatalog [date] bug...not (1999)
[WebDNA] Still having problems (2008)
unable to launch acgi in WebCat (1997)
Template Encryption (1998)
Listfiles (1998)
[OT] Democratic Code (2002)
Further tests with the infamous shipCost (1997)