Página 1 de 1

Como alterar a Picture

Enviado: 28 Jun 2007 11:12
por sergio
Olá pessoal !

Mal comecei e já estou com dificuldades.
Estou tentando definir uma Picture no cadastro de fornecedor e não estou conseguindo. Através de um CHECKBOX fico sabendo se é pessoa Juridica ou Fisica.
ljuridica:=.T.
vpic:=" "
.
.
REDEFINE GET oId48 VAR Frn10 PICTURE (vpic) ID48 OF F_dl WHEN {|oGet| PICCNPJ(oGet,wTpInsFe) }
.
.

FUNC PICCNPJ(oGet,v_Tipo)
if ljuridica
oGet:picture :="@R 99.999.999/9999-99"
else
oGet:picture :="@R 999.999.999-99"
endif
retu .T.

Onde estou errando.


Grato ! Sergio

Enviado: 28 Jun 2007 12:04
por Pablo César
Caro Sergio, não desanime !. Aprendemos muito com as dificuldades, pois é isso o tempero da vida !. Não sei nada de FiveWin, mas acredito que você consiguirá adaptar algo deste tópico: Clique aqui. Boa sorte !

Enviado: 28 Jun 2007 12:16
por sergio
Pablo Cesar,

Obrigado pela dica, mais o que eu quero é somente mudar a Picture antes de digitar o campo (se CNPJ pict "@R 99.999.999;9999-99" senão pict "@R 999.999.999-99").

Grato ! e abraços......... Sergio

Enviado: 28 Jun 2007 15:28
por Pablo César
Desculpa Sergio, acho que eu errei no link (já corrigií o link da minha mensagem anterior, verifique novamente). Eu sabia que tinhamos algo disto lá na seção do Clipper. Espero que sirva !.

Enviado: 28 Jun 2007 16:43
por sergio
Pablo Cesar, obrigado novamente.


Já estou testando o exemplo do Toledo (veja rotina acima), so que esta dando erro.


Grato ! Sergio

Enviado: 28 Jun 2007 17:38
por sergio
Obrigado a todos e em especial ao Pablo Cesar pelas dicas.

Consegui resolver o primeiro desafio em FW.


Abraço a todos........... Grato ! Sergio

Enviado: 28 Jun 2007 19:42
por Pablo César
sergio escreveu:Já estou testando o exemplo do Toledo (veja rotina acima), so que esta dando erro.
Oi Sergio, poderias nos dizer onde estava o erro ?.
sergio escreveu:Obrigado a todos e em especial ao Pablo Cesar pelas dicas.
De nada, colega é a nossa obrigação moral de ajudar uns aos outros e foi um prazer te ajudar !
sergio escreveu:Consegui resolver o primeiro desafio em FW.
Que bom ! Fico feliz por você !