Martin's colleague created a unique way of getting around using that endlessly confusing equals ("=") operator. This is monumentally easier to read and understand ...

[code language="vb"]  
'Detect le langage des Labels
   sSQL = "SELECT LANGID FROM JFA50000 WHERE Bill_Groupe <= '" _
      & RTrim(gsBillGroup) & "' AND Bill_Groupe >= '" & RTrim(gsBillGroup) & "' " _
      & "AND FORMATID <= '" & RTrim(gsFormatID) & "' " _
      & "AND FORMATID >= '" & RTrim(gsFormatID) & "'"
   If GetSingleValueLong(gobjCon, sSQL, False, LANGUAGE_ID_FRENCH, glLangID) Then
     Select Case glLangID
       Case LANGUAGE_ID_FRENCH, LANGUAGE_ID_ENGLISH
      
       Case Else
         glLangID = LANGUAGE_ID_FRENCH
     End Select
   Else
    glLangID = LANGUAGE_ID_FRENCH
   End If

  
bOnlyOneCopy = Trim$(asParams(PARAM_VIEWTYPE))
  
   If bOnlyOneCopy Then
     sSQL = "SELECT distinct Bill_Groupe, FORMATID, COPYCODE FROM JFA50100 " _
          & "WHERE FORMATID <= '" & RTrim(gsFormatID) & "' " _
          & "AND FORMATID >= '" & RTrim(gsFormatID) & "' " _
          & "AND Bill_Groupe <= '" & RTrim(gsBillGroup) & "' " _
          & "AND Bill_Groupe >= '" & RTrim(gsBillGroup) & "' "
    
     lNbrRecord = GetRecordCount(gobjCon, sSQL)
   Else
     lNbrRecord = 1
   End If
[/code]
[Advertisement] BuildMaster allows you to create a self-service release management platform that allows different teams to manage their applications. Explore how!