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:
ListFiles (1998)
WebCatalog for Postcards ? (1997)
how do we turn off staticpages page creation? (2003)
refresh (2000)
Linux Beta4 problems with multirecord returns (2000)
search command (1999)
cybercash (2002)
Webdna sends your serial number on Internet (2003)
WebCat2: multiple currency support (1997)
Purchased cart being overwritten - still !?? (1997)
# fields limited? (1997)
[countWords]? (1997)
[WebDNA] HTML [sendmail] revisited (2009)
Banner DNA (1997)
Stumpted Again (1997)
WebCat Hosting (1998)
re: Default contains WEBDNA (1998)
Filemaker Pro & Webcatalog (1999)
SQL statements (2002)
2.1b3 --> way slow (1997)