Como alterar a Picture
Enviado: 28 Jun 2007 11:12
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
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