Descrição
(SX6) GETMV [AS] - Retorna o conteúdo do parâmetro especificado no Arquivo SX6 .
|
Sintaxe
| GetMV( <cValor>, <lConsulta>, <xDefault> ) |
Parâmetros
| Par |
Nome |
Tipo |
Descrição |
Default |
Obg |
Ref |
01
|
cValor |
Caracter |
Parâmetro do SX6 |
|
X |
|
| 02 |
lConsulta |
Boolean |
Se for .T.: se o valor xDefault não for informado, retorna se o parâmetro existe(.T.) ou não(.F.). Se xDefault for informado, retorna seu conteudo caso não exista o parâmetro. Não gera log ou mensagem de help. Se for .F.: retorna .F. e gera log (batch) na pasta do sistema ou help(remote), caso o parâmetro não existir e não for informado o valor xDefault. Se for informado o valor xDefault, retorna o seu conteudo e não gera log ou help.Valor padrão é falso. |
.F. |
|
|
| 03 |
xDefault |
Indefinido |
Valor padrão que deve ser retornado quando o parâmetro não existir. O valor desse parâmetro pode ser Caracter, Numérico, Lógico ou Data. |
|
|
|
Retorno
| Retorno |
Tipo |
Descrição |
| xRet |
Indefinido
|
Conteúdo do SX6
|
Exemplo
#INCLUDE "TOTVS.CH"
User Function GetMV()
Local cBusca := 'MV_1DUP'
MsgInfo( 'Valor: ' + cBusca + CRLF + 'Retorno: ' + GetMV(cBusca), 'UniversoADVPL' )
cBusca := 'MV_XXX'
MsgInfo( 'Valor: ' + cBusca + CRLF + 'Retorno: ' + cValtoChar( GetMV(cBusca) ), 'UniversoADVPL' )
MsgInfo( 'Valor: ' + cBusca + CRLF + 'Retorno: ' + cValtoChar( GetMV(cBusca,.F.,'ValorPadrão') ), 'UniversoADVPL' )
MsgInfo( 'Valor: ' + cBusca + CRLF + 'Retorno: ' + cValtoChar( GetMV(cBusca,.T.) ), 'UniversoADVPL' )
Return( Nil )
Resultado
Informações adicionais
|
xValor
O retorno depende do tipo do parâmetro cadastrado no SX6 e de como os parâmetros lConsulta e xDefault foram informados:- se lConsulta for informado como verdadeiro o retorno será um valor lógico indicando se o parâmetro existe;- se xDefault for informado e o parâmetro nao existe, o retorno será o valor informado em xDefault;- caso contrário retorna o conteúdo do parâmetro
|
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎