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:
TCP Connect (2000)
all records returned. (1997)
Re:Problem (1997)
Mult-File Upload w/ Web Star (2000)
WCS Newbie question (1997)
HELP WITH DATES (1997)
Pithy questions on webcommerce & siteedit (1997)
More on the email templates (1997)
Banners (1997)
Re2: AAgghh!! Help, please. SSL strikes again. (1997)
Looking up two prices in Formulas.db (1997)
[WebDNA] WebDNA 7 (2011)
Storebuilder SOLVED!!!!!!! (2003)
[WebDNA] OT - Selling Domain Names? (2009)
PROBLEM (1997)
New Webcatalog for Mac (1997)
[OT] Mozilla | Was: R.I.P. Netscape (2003)
Help name our technology! I found it (1997)
Summing fields (1997)
WebCatalog Work (2001)