Em diversas funções documentadas pela Totvs há parâmetros opcionais. Gostaria de criar um parâmetro opcional em minha função, como fazer?
Estou querendo fazer com que a função updEnvio
receba um vetor (de recno
s) como parâmetro opcional.
User Function updEnvio(cTabela)
Local cSQL := ""
Local cCampo := IIF(SUBS(cTabela,1,1)=='S', SUBS(cTabela,2,2), cTabela)
Local nStatus := 0
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' "
nStatus := TcSqlExec(cSQL)
If (nStatus < 0)
conout("Oops, TCSQLError: " + TCSQLError())
Endif
Return
A grosso modo, queria transformá-la de modo que, se o vetor estivesse vazio, ela atualizasse toda a tabela; porém, se tivesse conteúdo, apenas os elementos cujos recno
s estejam descritos nesse vetor. Usando a lógica C++ de ser, eu escreveria o valor padrão do parâmetro em sua declaração. Então, meu pseudocódigo ADVPL fica assim:
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
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