Mudando a Mascara (picture) em GET ativo

[j.c.q.i.]

Pessoal,

Preciso da seguinte ajuda:

Tenho um campo de Numero de Inscrição (CPF ou CNPJ) e cada um

possue uma mascara ("@R 999.999.999-99" e "@R 99.999.999/9999-99"). Ao alterar o tipo de Numero de inscrição (1=CPF e 2=CNPJ).

Pergunto: Como modificar a mascara nestas condições em um GET ativo?

Grato.

J.Carlos Quicussi

[j.c.q.i.]

Pessoal,

Preciso da seguinte ajuda:

Tenho um campo de Numero de Inscrição (CPF ou CNPJ) e cada um

possue uma mascara ("@R 999.999.999-99" e "@R 99.999.999/9999-99"). Ao alterar o tipo de Numero de inscrição (1=CPF e 2=CNPJ).

Pergunto: Como modificar a mascara nestas condições em um GET ativo?

Grato.

J.Carlos Quicussi

[Luiz Fernando]

Ola J.Carlos, eu faço assim...

cPict1:="999.999.999-99 "

cPict2:="99.999.999/9999-99"

cPict:=cPict2

abaixo meu get aonde é informado se o cliente é F ou J

redefine get oGet[2] var aDados[D_tipo] picture"@!" id 115 of oDlg UPDATE ;

valid ;

if(aDados[D_tipo]="F",(cPict:=cPict1,oGet[10]:oGet:picture:=cPict,oDlg:update(),.t.),;

(cPict:=cPict2,oGet[10]:oGet:picture:=cPict,oDlg:update(),.t.)) ;

color COR_GET1

id=code>id=code>

aonde oGet[10] é meu objeto do get aonde esta a variavel do campo cpf\cnpj

Abraços

Luiz Fernando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

Editado por - empresoft on 01/03/2012 15:56:55

[kapiaba]

Local oDlg, oGet, oBtn

Local lTest := .t.

Local cTipo := "J", oTEST1,oTest2

Local cCGCCPF := Space(14)

@ 10, 2 GET oTEST1 VAR cTipo pixel OF oDlg PICTURE "!";

valid VerificaAltera(cTipo,oTest2,@cCgcCpf)

Function VerificaAltera(cTipo,oGet,cCgc)

If !cTipo$"F/J"

MsgStop("Deve ser digitado (F)isicio (J)uridico","Teste")

Return(.F.)

Endif

If cTipo="J".and.oGet:cPicture!="@R 99.999.999/9999-99"

cCgc:=Space(14)

oGet:cPicture:="@R 99.999.999/9999-99"

oGet:oGet:Picture:="@R 99.999.999/9999-99"

oGet:Refresh()

ElseIf cTipo="F".and.oGet:cPicture!="@R 999.999.999-99"

cCgc:=Space(11)

oGet:cPicture:="@R 999.999.999-99"

oGet:oGet:Picture:="@R 999.999.999-99"

oGet:Refresh()

Endif

Return(.t.)

id=code>id=code>

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832

http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196

FWH 2.7 - xHARBOUR WorkShop.Exe

[Erciley Junior]

É isso que já falaram, mas separe em uma função, pode ser mais usado que imagina ^^

citação:

@ 01.0,01.0 COMBOBOX oTipo VAR nTipo ITEMS aTipo blbalbal

oTipo:bChange:={|| funcfunc(nTipo,oCNPJ) }

@ 02.0,02.0 GET oCNPJ VAR blablablaa

*

*

*

*

FUNCTION funcfunc(nTP,obj)

LOCAL cPict

IF nTP == 1

cPict:= MASC CNPJ

ELSEIF nTP == 2

cPict:= MASC CPF

ENDIF

obj:cPicture:=cPict

obj:Refresh()

RETURN

---

id=quote>id=quote>

Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY)

NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO

[j.c.q.i.]

Obrigadão pessoal. Funfou certo.