“I recently started on a new contract,” Vedran R writes, “and the experience has been rather… interesting. The project I’ve been assigned to is a VB .NET 1.1 web application, and the code is rather… bad. Now, I know that developers make all kinds of compromises because of lack of time or experience but this is just… well, here’s some of the code.”
“Why fix the problem where it originates, it’s much simpler to handle it this way!”
sSql = GetSql(sTypeCurrency, sWHERE, sOrder) If bGroup = True Then sSql = Replace(sSql, "WHERE and", " WHERE ") sSql = Replace(sSql, "WHERE and", " WHERE ") sSql = Replace(sSql, "WHERE AND", " WHERE ") sSql = Replace(sSql, "WHERE AND", " WHERE ") ...snip... End If
"So how do you to determine if an object is null in JavaScript? Simple...
if (top.arrLisAdjCodEmp[f] != 0 && top.arrLisAdjCodEmp[f] + "" != "undefined")
... first we check if the object equals 0 and then we check if it not null by casting it to a string and comparing it to 'undefined'. Nice one!"
"Classes? We don't need no stinking classes!"
Private Function fWhere(ByVal bGroup As Boolean, ByVal lCodCompany As Integer, ByVal sCodAutonomy As String, ByVal sCodProvince As String, ByVal sCodArea As String, ByVal sCodDelegation As String, ByVal sDateFrom As String, ByVal sDateTo As String, ByVal iDate As Integer, ByVal sCodClients As String, ByVal sCodClientFrom As String, ByVal sCodClientTo As String, ByVal sDesClientFrom As String, ByVal sDesClientTo As String, ByVal sCodclientRange As String, ByVal iUte As Integer, ByVal iOrderEst As Integer, ByVal dOffer1 As Double, ByVal dOffer2 As Double, ByVal sCodGroup As String, ByVal sCodSubGroup As String, ByVal aDivision As Array, ByVal aCodTypoLicita As Array, ByVal aCodGroups As Array, ByVal aCodCompanies As Array) As String
"How to execute a „complicated“ SQL in a stored procedure? Piece of cake!"
DECLARE @QUERY AS VARCHAR(1000) SET @QUERY = 'SELECT NUMTASK, YEARTASK, DATEOPEN ' SET @QUERY = @QUERY + 'from TaskStudio ' SET @QUERY = @QUERY + 'WHERE ( ' SET @QUERY = @QUERY + 'CODCOMPANY = ' + CONVERT(VARCHAR,@CODCOMPANY) + ' AND ' SET @QUERY = @QUERY + 'DATEOPENINGS = ''' + CONVERT(VARCHAR,(CONVERT(DATETIME,@ DATEOPENINGS,103))) + ''' AND ' SET @QUERY = @QUERY + 'CODCLIENT = ' + CONVERT(VARCHAR,@CODCLIENT) + ' AND ' SET @QUERY = @QUERY + 'OFFEREURO = ' + CONVERT(VARCHAR,@OFFEREUROVAR) SET @QUERY = @QUERY + ' ) ' PRINT (@QUERY) EXEC (@QUERY)
"If the variable contains an empty string, then assign an empty string to the field; else assign the value of the variable to the field."
If sCompanyGroup = "" Then Field46 = "" Else Field46 = sCompanyGroup End If
"If the variable contains an empty string, don’t do anything; else don’t do anything."
If bResult = "" Then Else End If
"Here's a first class if."
If bGroup1 = 0 Then bGroup = False ElseIf bGroup1 = 1 Then bGroup = True ElseIf bGroup1 = 2 Then bGroup = True EndIf
"More JavaScript. Is it a string or an integer?"
if (obj.value>="9000" && obj.value<=9999)
"Ugh, I love my job."