Skip to main content
1 de 5
Maniero
  • 484,4mil
  • 94
  • 1,3mil
  • 2,2mil

Não é possível assim, a linguagem não dá suporte a isto. Ela tem um truque para facilitar o que deseja (por sinal foi eu que criei isso nela em 1994, embora a forma atual seja ligeiramente diferente do que eu criei porque na época não tinha suporte como sintaxe da linguagem).

User Function updEnvio(cTabela, aRecnos)
    Local cSQL := ""
    Local cCampo := IIF(SUBS(cTabela,1,1)=='S', SUBS(cTabela,2,2), cTabela)
    Local nStatus := 0
    Local i
    Default aRecnos := {}

    cSQL := ""
    cSQL += " UPDATE " + RetSqlName(cTabela)
    cSQL += " SET " + cCampo + "_YGSENV = 'S' "
    cSQL += " WHERE 1=1 "
    cSQL += " AND " + cCampo + "_FILIAL = '" + xFilial(cTabela) + "' "
    cSQL += " AND " + cCampo + "_YGSENV <> 'S' "

    If LEN(aRecnos) > 0
      cSql += " AND R_E_C_N_O_ IN ("
      cSql += STR(aRecnos[1])
      For i := 2 to len(aRecnos)
        cSql += "," + STR(aRecnos[i])
      Next i
      cSql += ")"
    Endif

    nStatus := TcSqlExec(cSQL)

    If (nStatus < 0)
        conout("Oops, TCSQLError: " + TCSQLError())
    Endif
Return

Com o default o valor só será atribuído se não vier nada como parâmetro.

Maniero
  • 484,4mil
  • 94
  • 1,3mil
  • 2,2mil