BUG (ug)

[MARCELOG]

Olá companheiros,
apenas para registro, gostaria de informar um bug nos comandos @... get ... especiais (pushbutton, etc.).
Quando se ativa o get, o mouse funciona normalmente na primera ação.
Todavia, se abortada a ação, transferindo o foco para outro get com o mouse, somente os gets comuns continuam funcionando normalmente.
Nos gets especiais, fica impossível acessar alguns, especialmente o primeiro e o último.
Parece que o controlador interno "perde" o número quando a ação não é executada.

Atenciosamente.

MGS.

[culik]

Buenas

Poste o exemplo que demostre isso.

Qual versao esta usando?

[]s
Luiz
www.xharbour.com.br

[MARCELOG]

Taí,
as variáveis (que são private) são criadas em outra função chamadora.
Na primeira entrada/ação, tudo funciona certinho, mas nas demais...

PROCEDURE TELALITIGANTE(lModo)

LOCAL GetList := {}
LOCAL lRetorno :=.F.
LOCAL lConfirma
LOCAL lRetorna
LOCAL lObservacao
LOCAL lLista

TELAPADR()
@ 06,10 SAY "CODIGO....:"
@ 07,10 SAY "LITIGANTE.:"
@ 08,10 SAY "ENDERECO..:"
@ 11,10 SAY "TELE/FAX..:"
@ 12,10 SAY "EMAIL.....:"
@ 13,10 SAY "CONTATO...:"
@ 14,10 SAY "CNPF/CNPJ.:"
@ 15,10 SAY "DOCT/INSC.:"
@ 16,10 SAY "NASC/FUND.:"
@ 17,09 TO 18,56

IF EMPTY(V_LITITIPO)
V_LITITIPO:=.F.
ENDIF

@ 06,21 GET V_LITICODI PICT "999999" WHEN .F. COLOR "W+/W,G+/N"
@ 07,21 GET V_LITINOME PICT "@!" WHEN lModo VALID {||!EMPTY(V_LITINOME)} COLOR "W+/W,G+/N"
@ 08,21 GET V_LITIEND1 PICT "@!" WHEN lModo COLOR "W+/W,G+/N"
@ 09,21 GET V_LITIEND2 PICT "@!" WHEN lModo COLOR "W+/W,G+/N"
@ 10,21 GET V_LITIEND3 PICT "@!" WHEN lModo COLOR "W+/W,G+/N"
@ 11,21 GET V_LITITEL1 PICT "(99)9999-9999" WHEN lModo COLOR "W+/W,G+/N"
@ 11,43 GET V_LITITEL2 PICT "(99)9999-9999" WHEN lModo COLOR "W+/W,G+/N"
@ 12,21 GET V_LITIEMAI PICT "@!" WHEN lModo COLOR "W+/W,G+/N"
@ 13,21 GET V_LITICONT PICT "@!" WHEN lModo COLOR "W+/W,G+/N"
@ 14,21 GET V_LITICNPF PICT "@!" WHEN lModo COLOR "W+/W,G+/N"
@ 15,21 GET V_LITIDOCT PICT "@!" WHEN lModo COLOR "W+/W,G+/N"
@ 16,21 GET V_LITINASC PICT "@!" WHEN lModo COLOR "W+/W,G+/N"
@ 16,45 GET V_LITITIPO CHECKBOX CAPTION "CLIENTE";
WHEN lModo;
COLOR "W+/W,W/N,N/W,W+/N";
STYLE "[X ]"
@ 08,60 GET lConfirma PUSHBUTTON CAPTION "&CONFIRMA";
STATE {||lRetorno:=.T.,READKILL(.T.)};
COLOR "N/W,G+/N,G+/N,G+/N";
STYLE "[]"
@ 11,60 GET lRetorna PUSHBUTTON CAPTION "&RETORNA ";
STATE {||READKILL(.T.)};
COLOR "N/W,G+/N,G+/N,G+/N";
STYLE "[]"
@ 14,60 GET lObservacao PUSHBUTTON CAPTION "&DETALHE ";
STATE {||GETMEMO(@V_LITIOBSE,05,08,19,71,lModo)};
COLOR "N/W,G+/N,G+/N,G+/N";
STYLE "[]"
@ 17,60 GET lLista PUSHBUTTON CAPTION "&LISTA ";
STATE {||LISTLITI1()};
COLOR "N/W,G+/N,G+/N,G+/N";
STYLE "[]"

SETCANCEL(.F.)

READ

IF lRetorno
IF EMPTY(V_LITICODI)
V_LITICODI:=NOVOCODI("LITIGANTE.DAT")
ENDIF
ENDIF

SETCANCEL(.T.)

RETURN lRetorno

Se puder ajudar, desde já agradeço.

MGS

Ps: Versão 0.99.50

:hasfocus também não está acessível