#sql#conhecimento
.
SELECT * FROM P118.INFORMATION_SCHEMA.COLUMNS
WHERE UPPER(TABLE_NAME) = UPPER('SL1010')
AND UPPER(COLUMN_NAME) = UPPER('L1_MENNOTA')
StrZero( < nValor >, < nTamanho >, [ nDecimal ] ) |
Nome
|
Tipo
|
Descrição
|
Obrigatório
|
Referência
|
---|---|---|---|---|
nValor
|
numérico
|
Indica o valor numérico que será convertido para string.
|
X
| |
nTamanho
|
numérico
|
Indica o tamanho da string será gerada.
|
X
| |
nDecimal
|
numérico
|
Indica o número de casas após o símbolo decimal.
|
Nome
|
Tipo
|
Descrição
|
---|---|---|
cRet
|
caractere
|
Retorna uma string a partir do valor numérico e do tamanho informado no parâmetro.
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| #DEFINE CRLF Chr(13)+Chr(10) User Function Exemplo() Local cMensagem := "" //+----------------------------------------------------------------------------+ //|Exemplifica o uso da função StrZero | //+----------------------------------------------------------------------------+ cMensagem += "StrZero(98765432.1, 1, 8) = " + StrZero(98765432.1, 1, 8) + CRLF cMensagem += "StrZero(9876543.21) = " + StrZero(9876543.21) + CRLF cMensagem += "StrZero(987654.321, 3, 6) = " + StrZero(987654.321, 3, 6) + CRLF cMensagem += "StrZero(98765.4321) = " + StrZero(98765.4321) + CRLF cMensagem += "StrZero(9876.54321, 5, 4) = " + StrZero(9876.54321, 5, 4) + CRLF cMensagem += "StrZero(987.654321, 6 ,3) = " + StrZero(987.654321, 6, 3) + CRLF cMensagem += "StrZero(98.7654321, 7, 2) = " + StrZero(98.7654321, 7, 2) + CRLF cMensagem += "StrZero(9.87654321, 8, 1) = " + StrZero(9.87654321, 8, 1) + CRLF cMensagem += "StrZero(0) = " + StrZero(0) + CRLF cMensagem += "StrZero(-9.87654321, 5, 2) = " + StrZero(-9.87654321, 5, 2) + CRLF cMensagem += "StrZero(-98.7654321, 4, 1) = " + StrZero(-98.7654321, 4, 1) + CRLF cMensagem += "StrZero(-987.654321) = " + StrZero(-987.654321) + CRLF cMensagem += "StrZero(-9876.54321, 2, 6) = " + StrZero(-9876.54321, 2, 6) + CRLF cMensagem += "StrZero(-98765.4321, 1, 5) = " + StrZero(-98765.4321, 1, 5) + CRLF cMensagem += "StrZero(-987654.321, 0, 0) = " + StrZero(-987654.321, 0, 0) + CRLF cMensagem += "StrZero(-9876543.21, 5, 1) = " + StrZero(-9876543.21, 5, 1) + CRLF cMensagem += "StrZero(-98765432.1, 4, 2) = " + StrZero(-98765432.1, 4, 2) + CRLF //+----------------------------------------------------------------------------+ //|Apresenta uma mensagem com os resultados obtidos | //+----------------------------------------------------------------------------+ Return MsgInfo(cMensagem, "Exemplo do StrZero" ) |