Página 1 de 1

O que tem errado nesta rotina?

Enviado: 22 Jun 2014 12:35
por pena
Bom dia, ao executar a rotina da o seguinte erro

Código: Selecionar todos

   @ Lpg+040,490 COMBOBOX T_fisica              ;
                 WIDTH 100                      ;
                 ITEMS { 'F-Fisica' , 'J-Jurídica'} ;
                 VALUE cFisica                  ;
                 FONT 'Arial' SIZE 09           ;
                 FONTCOLOR BLACK BOLD           ;           
                 ON CHANGE {|| MudaMascara(this.value)};

Func MudaMascara(opc)
   SetProperty( "Form_Vendedor", "T_Cnpj", "Picture",if(opc=1,"@R 999.999.999-99","@R 99.999.999/9999-99"))
DoMethod("Form_Vendedor","T_Cnpj","SetFocus")
Return Nil





Error BASE/1070 Erro nos parametros: ==

O que tem errado nesta rotina?

Enviado: 23 Jun 2014 11:58
por HASA
:-O
Olá Pena, normalmente "Picture" é para mostra uma imagem, não é ai o erro ?

:%
HASA

O que tem errado nesta rotina?

Enviado: 23 Jun 2014 12:52
por Toledo
Pena, na propriedade VALUE de um ComboBox você tem que passar um valor numérico, então teria que ver como você declarou a variável cFisica. Geralmente, não obrigatoriamente, quando colocamos no início do nome de uma variável a letra c, isto quer dizer que seja uma variável Caractere (string).

Bom, no caso do "picture", observado pelo Hasa, se for de um controle GETBOX, então não vai ter problema algum, provavelmente vai funcionar alterando a mascara do GetBox.

Abraços,

O que tem errado nesta rotina?

Enviado: 23 Jun 2014 13:35
por pena
Hasa, copiei esta rotina aqui no forum mesmo, pra testar, mas acho que é picture de mascara mesmo e nao de figura.
Toledo vou ver como esta declarado a variavel.

O que tem errado nesta rotina?

Enviado: 23 Jun 2014 13:41
por pena
Mas espera ae, ele vai entrar nessa rotina, quando eu clicar?
Porque ja tenho outros testes com este campo e funcionando
ex:

Código: Selecionar todos

   if Form_Vendedor.T_Fisica.Value = 2 .and. Empty(SUBS(Form_Vendedor.T_Cnpj.Value,1,1))
      MsgSTOP("Informe o Cnpj","Vendedores")
      Form_Vendedor.T_Cnpj.Setfocus
      Return .f.
   Endif


O que tem errado nesta rotina?

Enviado: 23 Jun 2014 13:57
por pena
Acho que entendi o que o Hasa quis dizer, talvez no Getbox picture seja mascara, mas no textbox não, vou ver se descubro com seria o nome

O que tem errado nesta rotina?

Enviado: 23 Jun 2014 14:46
por HASA
:-o
Pena, faz o seguinte, crie um pequeno demo.prg e posta ae, que a gente ajeita ele pro C++ ( Kkkk )
HASA
:)Pos

O que tem errado nesta rotina?

Enviado: 23 Jun 2014 15:06
por pena
mudei pra getbox, e esta funcionando blz, obrigado pela atenção

O que tem errado nesta rotina?

Enviado: 23 Jun 2014 15:39
por HASA
:|<
ok