The poor misguided person who wrote this was my company's IT Manager. They wanted a custom application so he decided to write it in secret and as usual when someone gets in over their head, they move along and leave a mess for the next person who comes along. Man, I love this job.
zturnbow
@zturnbow
Best posts made by zturnbow
Latest posts made by zturnbow
-
RE: Another VB WTF
-
Another VB WTF<FONT color=#0000ff size=2>posted in Side Bar WTF
I was recently hired to finish up a VB application that 2 other "developers" had started. I was asked how long it would take to comeplete so I looked at the code and told them it would take longer than I first expected. I hope you all enjoy this little gem.
Dim</FONT><FONT size=2> c </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> Int16 = 1
</FONT><FONT color=#0000ff size=2>Dim</FONT><FONT size=2> intAliasIDType </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Integer
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2>Dim</FONT><FONT size=2> stAliasIDNumber </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>String</FONT><FONT size=2> = </FONT><FONT color=#a31515 size=2>""
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2>For</FONT><FONT size=2> c = 1 </FONT><FONT color=#0000ff size=2>To</FONT><FONT size=2> 4
</FONT><FONT color=#0000ff size=2> Select</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Case</FONT><FONT size=2> c
</FONT><FONT color=#0000ff size=2> Case</FONT><FONT size=2> 1 </FONT><FONT color=#008000 size=2>' 51 - SSN
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2> If</FONT><FONT size=2> stSSN = </FONT><FONT color=#a31515 size=2>""</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Or</FONT><FONT size=2> (bNameMatched = </FONT><FONT color=#0000ff size=2>True</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>And</FONT><FONT size=2> stSSN = </FONT><FONT color=#0000ff size=2>Me</FONT><FONT size=2>.tbSSN.Text) </FONT><FONT color=#0000ff size=2>Then
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2> Exit</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Select
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2> End</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>If
</FONT><FONT size=2>intAliasIDType = 51
stAliasIDNumber = stSSN
InsertAliasRecord(intDocnum, stAliasIDNumber, intAliasNameType, intAliasIDType)
</FONT><FONT color=#0000ff size=2> Case</FONT><FONT size=2> 2 </FONT><FONT color=#008000 size=2>' 38 - DL
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2> If</FONT><FONT size=2> stDL = </FONT><FONT color=#a31515 size=2>""</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Or</FONT><FONT size=2> (bNameMatched = </FONT><FONT color=#0000ff size=2>True</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>And</FONT><FONT size=2> stDL = </FONT><FONT color=#0000ff size=2>Me</FONT><FONT size=2>.tbDLNum.Text) </FONT><FONT color=#0000ff size=2>Then
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2> Exit</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Select
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2> End</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>If
</FONT><FONT size=2>intAliasIDType = 38
stAliasIDNumber = stDL
InsertAliasRecord(intDocnum, stAliasIDNumber, intAliasNameType, intAliasIDType)
</FONT><FONT color=#0000ff size=2>Case</FONT><FONT size=2> 3 </FONT><FONT color=#008000 size=2>' 46 - UniqueID1</FONT>
<FONT size=2></FONT><FONT color=#0000ff size=2> If</FONT><FONT size=2> stUniqueID1 = </FONT><FONT color=#a31515 size=2>""</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Or</FONT><FONT size=2> (bNameMatched = </FONT><FONT color=#0000ff size=2>True</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>And</FONT><FONT size=2> stUniqueID1 = </FONT><FONT color=#0000ff size=2>Me</FONT><FONT size=2>.tbID1Text) </FONT><FONT color=#0000ff size=2>Then
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2> Exit</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Select
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2> End</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>If
</FONT><FONT size=2>intAliasIDType = 46
stAliasIDNumber = stUniqueID1
InsertAliasRecord(intDocnum, stAliasIDNumber, intAliasNameType, intAliasIDType)
</FONT><FONT color=#0000ff size=2> Case</FONT><FONT size=2> 4 </FONT><FONT color=#008000 size=2>' 40 - UniqueID2
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2> If</FONT><FONT size=2> stUniqueID2 = </FONT><FONT color=#a31515 size=2>""</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Or</FONT><FONT size=2> (bNameMatched = </FONT><FONT color=#0000ff size=2>True</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>And</FONT><FONT size=2> stUniqueID2 = </FONT><FONT color=#0000ff size=2>Me</FONT><FONT size=2>.tbID2.Text) </FONT><FONT color=#0000ff size=2>Then
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2> Exit</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Select
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2> End</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>If
</FONT><FONT size=2>intAliasIDType = 40
stAliasIDNumber = stUniqueID2
InsertAliasRecord(intDocnum, stAliasIDNumber, intAliasNameType, intAliasIDType)
</FONT><FONT color=#0000ff size=2> End</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Select
</FONT><FONT size=2></FONT><FONT color=#0000ff size=2>Next</FONT><FONT size=2> c
</FONT>