CONTEÚDO

1. Visão Geral
2. Configurando o Appserver para Debug
3. Exemplo de Utilização
4. Tela do DtPicker

01. VISÃO GERAL

Nesta documentação vamos apresentar os passos para que seja possível debugar qualquer programa ABL dentro do OpenEdge Appserver.

02. CONFIGURANDO O APPSERVER PARA DEBUG

• Primeiramente você terá que acessar o Progress Explorer através do link http://localhost:9090/ e realizar o login.
• Após isso, acesse o Appserver que você precisa debugar e clique em Configuration

• Dentro de Configuration → Broker → Advanced Features → Você deverá ligar a opção Enable debugging through the broker

• E teremos que ligar também em Agent → Advanced Features → 4GL debugger enabled

• Temos que habilitar o debug através do proenv:
  • Acessar o MS-DOS como administrador
  • c:\dlc117\bin\proenv
  • proDebugEnable -enable-all

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

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:

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