Tsbutton com combobox

maudruidas · October 6, 2009

Depois de te resolvido todos os probleas com o Tsbutton (cor, foco, etc) agora surgiu outro problema. Quando passo pelo campo Combobox com o TAB o botÃ£o muda a posiÃ§Ã£o do prompt (Texto do BotÃ£o). Vejam a tela antes e depois de passa pelo campo. Por isto acontece ? O que Faze ? Obrigado

Antes:

Depois:

O Programa:

FUNCTION MANCLI(LETRA)

LOCAL ODLGMC,ARECT,CVAR1,CVAR2,NREC,FTO,PER

DEFINE DIALOG oDlgmc RESOURCE "DLMCLI" ;

TITLE IIF(LETRA="I","InclusÃ£o",IIF(LETRA="A","AlteraÃ§Ã£o",IIF(LETRA="C","Consulta","ExclusÃ£o"))) + " de Clientes"

ODLGMC : LHELPICON := .F. // Tira a ? da janela

SELE 28

GO TOP

PER := PERCRE

IF LETRA="I"

SELE 1

DBSETORDER(1)

GO BOTTOM

CLI = CODIGO+1

DO INCREG2

REPL CODIGO WITH CLI

NREC = RECNO()

UNLOCK

COMMIT

CLI := STRZERO(CLI,5)

DTN := CTOD(" / / ")

ABE := DATE()

STORE SPACE(40) TO NOM,ENDER,CID,NPAI,NMAE,ETRA,CON,TRA

STORE SPACE(9) TO XCEP,COM

STORE SPACE(18) TO INS,CNPJ

BAI := SPACE(30)

ATR := " "

UF := "SP"

ORG := "SP"

FIC := " "

OBT := SPACE(15)

STORE SPACE(14) TO XCPF

STORE SPACE(13) TO FN,TTRA

XRG := SPACE(12)

REF := SPACE(36)

STORE " " TO POS,CXTRA

HIS := SPACE(400)

STORE "NÃƒO" TO IMO

STORE 0 TO CRE,DIA,SAL

STORE " " TO MUD,RC

SIT := 1

MEAT := "0- "

ELSE

SELE 1

NREC := RECNO()

CLI := STRZERO(CODIGO,5)

INS := INSCEST

CNPJ := CNPJCLI

OBT := OBSTEL

COM := COMPLEMEN

ABE := ABERTURA

FIC := FICHA

SIT := SITUACAO

IMO := IMOVEL

CON := CONJUGE

NOM := NOME

ENDER := ENDERECO

CID := CIDADE

RC := RESCID

SAL := SALARIO

NPAI := NOMEPAI

NMAE := NOMEMAE

DIA := DIASEM

CRE := CREDITO

POS := POSTAL

CXTRA := CAIXATRA

HIS := HISTORICO

XCEP := CEP

BAI := BAIRRO

ATR := ATRASADO

UF := ESTADO

MEAT := MESES

FN := FONE

DTN := DATNAS

ETRA := ENDTRA

TTRA := FONETRA

REF := REFERENCIA

UC := ULTCOM

TRA := TRABALHO

XRG := RG

ORG := ORGAO

XCPF := CPF

MUD := MUDOU

IF MUDOU = "S"

MUD := "SIM"

ELSE

MUD := "NÃƒO"

ENDIF

IF RESCID = "S"

RC := "SIM"

ELSE

RC := "NÃƒO"

ENDIF

IF IMOVEL = "S"

IMO := "SIM"

ELSE

IMO := "NÃƒO"

ENDIF

FTO := "FC"+CLI

IF FILE(".\FOTOS\"+FTO+".BMP")

REDEFINE BITMAP OFOTO ID 145 FILE(".\FOTOS\"+FTO+".BMP") OF ODLGMC ADJUST

ELSE

REDEFINE BITMAP OFOTO ID 145 FILE(".\FOTOS\FOTO.JPG") OF ODLGMC ADJUST

ENDIF

EST := {"AC","AL","AP","AM","BA","CE","DF","ES","GO","MT","MS","MA","MG",;

"PA","PB","PR","PE","PI","RJ","RS","RN","RO","RR","SC","SP","SE","TO"}

MSI := {"NORMAL","ATRASADO","CHEQUES","EXCLUÃDO","FALTA DOCUMENTOS","PERDIDO",;

"REABILITADO","S.C.P.C.","TRANSFERIDO","NEGATIVADO OUTROS","ADVOGADO",;

"PROTESTO","INATIVO","DAR ENTRADA","FALECIDO"}

VDI := {"SEGUNDA 1","SEGUNDA 2","SEGUNDA 3","TERÃ‡A 1","TERÃ‡A 2","TERÃ‡A 2",;

"QUARTA 1","QUARTA 2","QUARTA 3","QUINTA 1","QUINTA 2","QUINTA 3",;

"SEXTA 1","SEXTA 2","SEXTA 3","CORREIO"}

VSN := {"SIM","NÃƒO"}

REDEFINE SAY OSCL VAR CLI ID 154 PICTURE "99999" OF ODLGMC ;

COLOR CLR_HRED,CLR_WHITE FONT OFNC2

REDEFINE VGET OGMC1 VAR ABE ID 106 OF ODLGMC PICTURE "99/99/9999" COLOR CLR_BLACK,BRWBACK;

WHEN (LETRA="I" .OR. LETRA="A") CALENDARIO

REDEFINE GET oGMC2 VAR FIC ID 107 PICTURE "!!!" WHEN (LETRA="I" .OR. LETRA="A") OF oDlgmc

REDEFINE GET OGMC3 VAR NOM ID 108 PICTURE "@!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE VGET OGMC4 VAR DTN ID 109 OF ODLGMC PICTURE "99/99/9999" COLOR CLR_BLACK,BRWBACK;

CALENDARIO WHEN (LETRA="I" .OR. LETRA="A")

REDEFINE GET OGMC5 VAR ENDER ID 110 PICTURE "@!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC6 VAR COM ID 111 PICTURE "@!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC7 VAR BAI ID 112 PICTURE "@!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC8 VAR POS ID 116 PICTURE "99999" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC9 VAR CID ID 113 PICTURE "@!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE COMBOBOX OGMC10 VAR UF ITEMS EST ID 114 UPDATE OF ODLGMC

REDEFINE GET OGMC11 VAR XCEP ID 115 PICTURE "99999-999" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE COMBOBOX OGMC12 VAR MUD ITEMS VSN ID 117 UPDATE OF ODLGMC

REDEFINE COMBOBOX OGMC13 VAR IMO ITEMS VSN ID 118 UPDATE OF ODLGMC

REDEFINE COMBOBOX OGMC14 VAR RC ITEMS VSN ID 119 UPDATE OF ODLGMC

REDEFINE GET OGMC15 VAR XRG ID 102 PICTURE "99.999.999-!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE COMBOBOX OGMC42 VAR ORG ITEMS EST ID 146 UPDATE OF ODLGMC

REDEFINE GET OGMC16 VAR XCPF ID 105 PICTURE "999.999.999-99" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC17 VAR CNPJ ID 120 PICTURE "99.999.999/9999-99" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC18 VAR INS ID 121 PICTURE "@!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC19 VAR NPAI ID 122 PICTURE "@!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC20 VAR NMAE ID 123 PICTURE "@!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC21 VAR CON ID 124 PICTURE "@!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC22 VAR FN ID 125 PICTURE "(99)9999-9999" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC23 VAR OBT ID 126 PICTURE "@!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC24 VAR TRA ID 127 PICTURE "@!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC25 VAR ETRA ID 128 PICTURE "@!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC26 VAR TTRA ID 129 PICTURE "(99)9999-9999" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC27 VAR CXTRA ID 130 PICTURE "99999" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE COMBOBOX OGMC28 VAR SIT ITEMS MSI ID 131 UPDATE OF ODLGMC

REDEFINE GET OGMC43 VAR SAL ID 155 PICTURE "@E 9,999.99" VALID CALCRE(SAL,@CRE,PER) WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC29 VAR CRE ID 132 PICTURE "@E 9,999.99" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE COMBOBOX OGMC32 VAR DIA ITEMS VDI ID 135 UPDATE OF ODLGMC

REDEFINE GET OGMC30 VAR MEAT ID 133 PICTURE "9-!!!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC31 VAR ATR ID 134 PICTURE "99-99-!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC40 VAR REF ID 143 PICTURE "@!" WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE GET OGMC41 VAR HIS MEMO ID 144 WHEN (LETRA="I" .OR. LETRA="A") OF ODLGMC

REDEFINE SBUTTON OBTN7 ID 103 ;

RESOURCE "CONFIRMA" OF ODLGMC ;

PROMPT "&Confirma" FONT OFNC ;

ACTION IIF(CONCLI(NREC,LETRA,CLI,SAL,OGMC43,PER)=.T.,(SAIDLG:=.T.,ODLGMC:END(),SAIDLG:=.F.),.F.);

TOOLTIP "Confirma a ManutenÃ§Ã£o Efetuada" ;

TEXT POSITION ON_RIGHT ;

XP ;

COLORS PRETO,XPAZULC

REDEFINE SBUTTON OBTN8 ID 104 ;

RESOURCE "CANCELA" OF ODLGMC ;

PROMPT "Cance&la" FONT OFNC ;

ACTION(CANCLI(NREC,LETRA),SAIDLG:=.T.,ODLGMC:END(),SAIDLG:=.F.);

TOOLTIP "Cancelar / Sair" ;

TEXT POSITION ON_RIGHT ;

XP ;

COLORS PRETO,XPAZULC

SAIDLG := .F.

ACTIVATE DIALOG ODLGMC CENTERED RESIZE16 VALID SAIDLG //ON INIT(odlgmc:move(odlgmc:ntop+10,odlgmc:nleft+3))

RETURN(NIL)

id=code>id=code>

MaurÃcio de Assis Pinto

Rancharia - SP

maudruidas@yahoo.com.br

xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Editado por - maudruidas on 06/10/2009 20:14:02X

Editado por - maudruidas on 07/10/2009 07:01:22

maudruidas · October 6, 2009