Componente DtPicker - OpenEdge ABL

Página editado por Ricardo Martins Menna



CONTEÚDO

1. Visão Geral
2. Chamada do Componente
3. Exemplo de Utilização
4. Tela do DtPicker

01. VISÃO GERAL


Este componente DtPicker, feito em progress, tem como objetivo substituir o componente DTPicker fornecido pela Microsoft, pois este OCX não possui compatibilidade com o OpenEdge 64Bits.

Ele é um DtPicker que possui as seguintes características:

• Programa único e muito performático.
• Feito totalmente em progress.
• Possuímos o código fonte, onde podemos customizá-lo de acordo com as nossas necessidades.
• Não precisa ser executado de forma persistente.
• Possui uma janela de calendário flutuante.

02. CHAMADA DO COMPONENTE


Para utilizar o componente, basta fazer uma chamada simples ao componente, realizando uma execução com RUN, conforme o exemplo abaixo:


ParâmetrosTipoDescrição
IdtInitialDateData inicial para o componente
IhObjHandleHandle do campo que receberá o resultado da data escolhida
OlProcLogicalRetorna TRUE se foi selecionado alguma data.





Exemplo de chamada do DtPicker

ON MOUSE-SELECT-DBLCLICK OF dtCalculo DO:
DEFINE VARIABLE lProc AS LOGICAL NO-UNDO.

RUN utp/ut-dtpicker.w (TODAY, SELF:HANDLE, OUTPUT lProc).

IF lProc = FALSE THEN
MESSAGE "O usuario cancelou o DtPicker e nao selecionou nenhuma data"
VIEW-AS ALERT-BOX WARNING.
END.



03. EXEMPLO DE UTILIZAÇÃO


Estamos disponibilizando um exemplo de um programa que utiliza esse componente de DtPicker, onde é necessário fazer a chamada do componente no seguinte formato:



TestDTPicker.p

Código completo de utilização do DtPicker

DEFINE VARIABLE cDat AS CHARACTER NO-UNDO FORMAT "x(10)".
DEFINE VARIABLE dDat AS DATE NO-UNDO FORMAT "99/99/9999" INITIAL TODAY.
DEFINE VARIABLE lProc AS LOGICAL NO-UNDO.

DEFINE FRAME f-x
cDat HELP "Faca duplo-click para selecionar uma data"
dDat HELP "Faca duplo-click para selecionar uma data"
WITH SIDE-LABELS 1 COLUMN
TITLE "Teste do DatePicker Progress".

ON MOUSE-SELECT-DBLCLICK OF cDat DO:
RUN utp/ut-dtpicker.w (DATE(cDat:SCREEN-VALUE), cDat:HANDLE, OUTPUT lProc).
RETURN.
END.

ON MOUSE-SELECT-DBLCLICK OF dDat DO:
RUN utp/ut-dtpicker.w (DATE(dDat:SCREEN-VALUE), dDat:HANDLE, OUTPUT lProc).
RETURN.
END.

UPDATE cDat dDat WITH FRAME f-x.

MESSAGE cDat SKIP dDat
VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.

/* fim */



04. TELA DO DTPICKER












Mostrar online · Ver Alterações Online

Continue reading...