Classe: MsWorkTime
Cria um objeto do tipo barra de período.
TSrvObject -> TControl -> MsWorkTime
New
Método construtor da classe.
MsWorkTime(): New ( [ oWnd], [ nRow], [ nCol], [ nHeight], [ nWidth], [ nResolution], [ cValue], [ bWhen], [ bChange] ) --> oObjeto
Nome | Tipo | Descrição | Obrigatório | Referência |
oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | ||
nRow | Numérico | Indica a coordenada vertical em pixels ou caracteres. | ||
nCol | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | ||
nHeight | Numérico | Indica a altura em pixels do objeto. | ||
nWidth | Numérico | Indica a largura em pixels do objeto. | ||
nResolution | Numérico | Indica a resolução que será aplicada na barra de período. | ||
cValue | Caracter | Indica os intervalos que serão preenchidos. Esses intervalos podem ser utilizados através do método SetValue(). | ||
bWhen | Bloco de código | Indica o bloco de código que será executado quando a mudança de foco da entrada de dados, na janela em que o controle foi criado, estiver sendo efetuada. Observação: O bloco de código retornará verdadeiro (.T.), se o controle permanecer habilitado; caso contrário, retornará falso (.F.). | ||
bChange | Bloco de código | Indica o bloco de código que será executado quando o estado ou conteúdo do objeto é modificado pela ação sobre o controle visual. |
oObjeto
- (objeto)
- Retorna o objeto criado.
oMsWorkTime := MsWorkTime():New(oDlg,01,01,260,184,0,'',{||.T.},{||} )
GetBlocks
Retorna o número de blocos selecionados.
MsWorkTime(): GetBlocks ( ) -->
oMsWorkTime:GetBlocks() // Result: 10
GetInterTime
Retorna o período selecionado no formato <HH:MM:SS>.
MsWorkTime(): GetInterTime ( [ nBloco] ) --> cPeriodo
Nome | Tipo | Descrição | Obrigatório | Referência |
nBloco | Numérico | Indica o bloco do calendário que deverá retornar o período. |
cPeriodo
- (caracter)
- Retorna o período selecionado no formato "HH:MM:SS".
oMsWorkTime:GetInterTime(1) // Result: "00:15, 00:30"
GetValue
Retorna os itens selecionados no formato <XX X XX>.
MsWorkTime(): GetValue ( ) --> cRet
cRet
- (caracter)
- Retorna os itens selecionados no formato "XX X XX".
As posições que são identificadas com "X" representam o tempo marcado e o espaço em branco " " o tempo desmarcado.
oMsCalendGrid:GetValue() // Result: "X X XX X X X XX X"
SetResol
Define a resolução de apresentação da barra de períodos.
MsWorkTime(): SetResol ( [ nResolution] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nResolution | Numérico | Indica a resolução de apresentação da barra de período. |
oMsWorkTime:SetResol(10)
Exemplo do método SetResol
SetValue
Define os valores de preenchimento.
MsWorkTime(): SetValue ( [ cValor] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
cValor | Caracter | Indica o valor que será definido. |
oMsWorkTime:SetValue('X X XX X X X XX X')
Propriedade | Descrição | Tipo |
bChange | Indica o bloco de código que será executado quando o estado ou conteúdo do objeto é modificado pela ação sobre o controle visual. | Bloco de código |
#include "TOTVS.CH"
User Function MsWorkTime()
DEFINE DIALOG oDlg TITLE "Exemplo MsWorkTime" FROM 180,180 TO 550,700 PIXEL
oMsWorkTime := MsWorkTime():New(oDlg,01,01,260,184,0,'',{||.T.},{||} )
oMsWorkTime:SetValue('X X XX X X X XX X')
ACTIVATE DIALOG oDlg CENTERED
Return
Exemplo da classe MsWorkTime
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas