Reativando esse topico.
Estou iniciando com a hwgui, peguei o programa SCM do Leonardo como exemplo para testar, e estou com o seguinte erro quando executo a função ParsePict:
ON INIT {||iif(r1=1,Muda_texto(oCNPJ_CPF , "CPF :", oRG_IE , "RG :" ),Muda_texto(oCNPJ_CPF , "CNPJ :", oRG_IE , "INSC :")),.T.}
Código: Selecionar todos
**********************
FUNCTION Cad_Associado
**********************
PRIVATE oCadAss
PRIVATE oFont
PRIVATE oIcon := HIcon():AddResource(1004)
*************VARIAVEIS********************
PRIVATE LBLnome, Wnome := "", Onome
PRIVATE LBLend, Wend := "", Oend
PRIVATE LBLbairro, Wbairro := "", Obairro
PRIVATE LBLcidade, Wcidade := "", Ocidade
PRIVATE LBLuf, CBOuf, Wuf := "",aItens:= {"AC","AL","AP","AM","BA","CE","DF","GO","ES","MA","MT","MS","MG","PA","PB","PR","PE","PI","RJ","RN","RS","RO","RR","SP","SC","SE","TO"}
PRIVATE LBLCBnome, CBOnome, WCBnome := "",aItensCBnome := {}
PRIVATE LBLcep, Wcep := "", Ocep
PRIVATE LBLfone, Wfone := "", Ofone
PRIVATE LBLfax, Wfax := "", Ofax
PRIVATE LBLcel, Wcel := "", Ocel
PRIVATE LBLemail, Wemail := "", Omail
PRIVATE wInicio :=.T., wNovo := .F.
PRIVATE LBLcodigo, Wcodigo := "", Ocodigo, LBLmostcodigo
PRIVATE LBLfunc1, Wfunc1 := "", Ofunc1,aItens1:= {}
PRIVATE LBLfunc2, Wfunc2 := "", Ofunc2,aItens2:= {}
PRIVATE LBLvalor, Wvalor := 0 , Ovalor
PRIVATE LBLvenc, Wvenc := date(), Ovenc
PRIVATE LTIPOJF, WTIPOJF := space(1), OTIPOJF, oRadio1,oRadio2,r1 := 1
PRIVATE LCNPJ_CPF , LRG_IE , cPicture
PRIVATE oCNPJ_CPF , oRG_IE , oObj1 , oObj2
PRIVATE wCNPJ_CPF := Space(18)
PRIVATE wCNPJ := Space(18)
PRIVATE wCPF := Space(14)
PRIVATE wRG_IE := Space(14)
PRIVATE wRG := Space(14)
PRIVATE wIE := Space(14)
*************VARIAVEIS********************
PARA TIPOCAD,Abre_Dbf
IF TIPOCAD="C"
IF Abre_Dbf="S"
Dbcloseall()
IF Use_Arq("ASSOCI",,.T.,.F.,.F.)=.F.
Return
ENDIF
IF Use_Arq("FUNCAO",,.T.,.F.,.F.)=.F.
Return
ENDIF
ENDIF
ENDIF
SELE FUNCAO
DBGOTOP()
do while !eof()
vFUNC=FUNCAO
aadd(aItens1,vFUNC)
aadd(aItens2,vFUNC)
dbskip()
Enddo
IF TIPOCAD="C"
SELE ASSOCI
DBSETORDER(1)
DbGoBottom()
Wcodigo=CODASSOC+1
ELSE
SELE ASSOCI
wCodigo = CODASSOC
DBSETORDER(1)
DBSEEK(wCodigo)
IF FOUND()
IF TRAVAREG()=.F.
RETURN
ENDIF
WCodigo = CODASSOC
Wnome = NOME
Wend = ENDE
Wbairro = BAIRRO
Wcidade = CIDADE
Wuf = UF
Wcep = CEP
wTIPOJF = TIPOJF
Wcpf = CPF
wRG = RG
wCNPJ = CNPJ
wIE = IE
Wfone = TEL
Wfax = FAX
Wcel = CEL
Wemail = EMAIL
Wfunc1 = FUNCAO1
Wfunc2 = FUNCAO2
Wvalor = VALOR
Wvenc = VENC
ELSE
Erroreg()
RETURN nil
ENDIF
IF wTIPOJF="F"
r1 := 1
wCNPJ_CPF=wCPF
wRG_IE=wRG
else
r1 := 2
wCNPJ_CPF=wCNPJ
wRG_IE=wIE
endif
ENDIF
PREPARE FONT oFont NAME "Arial" WIDTH 0 HEIGHT -12 WEIGHT 400
INIT DIALOG oCadAss CLIPPER NOEXIT TITLE "Cadastro de Associados";
AT 0,0 SIZE 670,410;
ICON oIcon ;
FONT oFont ;
STYLE DS_CENTER + WS_VISIBLE + WS_CAPTION + WS_SYSMENU;
ON INIT {||iif(r1=1,Muda_texto(oCNPJ_CPF , "CPF :", oRG_IE , "RG :" ),Muda_texto(oCNPJ_CPF , "CNPJ :", oRG_IE , "INSC :")),.T.}
hwg_SetColorinFocus( .t. )
@ 5,5 GROUPBOX grpConfiguracao CAPTION "Dados do Associado" SIZE 655,335
****INICO DOS SAYS***
@ 20 ,40 SAY LBLcodigo CAPTION "Codigo:" SIZE 168,22
@ 20 ,70 SAY LBLnome CAPTION "Nome:" SIZE 168,22
@ 20 ,100 SAY LBLend CAPTION "Endereço:" SIZE 168,22
@ 400,100 SAY LBLbairro CAPTION "Bairro:" SIZE 168,22
@ 20 ,130 SAY LBLcidade CAPTION "Cidade:" SIZE 168,22
@ 300,130 SAY LBLuf CAPTION "UF:" SIZE 168,22
@ 400,130 SAY LBLcep CAPTION "CEP:" SIZE 168,22
@ 20 ,160 SAY LCNPJ_CPF CAPTION "CPF:" SIZE 50 ,22
@ 300,160 SAY LRG_IE CAPTION "RG:" SIZE 40 ,22
@ 10 ,190 SAY LBLfunc1 CAPTION "Função 01:" SIZE 168,22
@ 300,190 SAY LBLfunc2 CAPTION "Função 02:" SIZE 168,22
@ 20 ,220 SAY LBLfone CAPTION "Fone:" SIZE 168,22
@ 210,220 SAY LBLfax CAPTION "Fax:" SIZE 168,22
@ 390,220 SAY LBLcel CAPTION "Celular:" SIZE 168,22
@ 20 ,250 SAY LBLemail CAPTION "Email:" SIZE 168,22
@ 20 ,280 SAY LBLvalor CAPTION "Valor Mensalidade R$:" SIZE 168,22
@ 270,280 SAY LBLvenc CAPTION "Data de Vencimento:" SIZE 168,22
****FIM DOS SAYS***
****INCIO DOS GTES***
GET RADIOGROUP r1
@ 150,40 RADIOBUTTON oRadio1 caption "Pessoa Fisica";
SIZE 120, 22;
TOOLTIP "Escolha essa Opção para Pessoa Fisica";
ON CLICK {||Muda_texto(oCNPJ_CPF , "CPF :", oRG_IE , "RG :")}
@ 280,40 RADIOBUTTON oRadio2 caption "Pessoa Jurídica" ;
SIZE 120, 22;
TOOLTIP "Escolha essa Opção para Pessoa Juridica";
ON CLICK {||Muda_texto(oCNPJ_CPF , "CNPJ :", oRG_IE , "INSC :")}
END RADIOGROUP
@ 80,40 GET Ocodigo VAR Wcodigo PICTURE "999999" COLOR 255 SIZE 50,22 STYLE WS_DISABLED;
TOOLTIP "Informe o Codigo"
@ 80,70 GET Onome VAR Wnome SIZE 560,22;
MAXLENGTH 50;
STYLE WS_TABSTOP;
TOOLTIP "Informe o Nome do Associado"
@ 80,100 GET Oend VAR Wend SIZE 300,22;
MAXLENGTH 50;
STYLE WS_TABSTOP + ES_AUTOHSCROLL;
TOOLTIP "Informe o Endereço do Associado"
@ 440,100 GET Obairro VAR Wbairro SIZE 200,22;
MAXLENGTH 20;
STYLE WS_TABSTOP + ES_AUTOHSCROLL;
TOOLTIP "Informe o Bairro"
@ 80,130 GET Ocidade VAR Wcidade SIZE 200,22;
MAXLENGTH 20;
STYLE WS_TABSTOP + ES_AUTOHSCROLL;
TOOLTIP "Informe a Cidade"
@ 330,130 GET COMBOBOX CBOuf VAR Wuf ITEMS aItens SIZE 50,22 TEXT;
STYLE WS_TABSTOP;
TOOLTIP "Informe a Unidade Federativa"
@ 440,130 GET Ocep VAR Wcep PICTURE "@R 99999-999" SIZE 120,22;
STYLE WS_TABSTOP;
TOOLTIP "Informe o CEP"
@ 80,160 GET oCNPJ_CPF VAR wCNPJ_CPF PICTURE cPicture SIZE 150,22;
STYLE WS_TABSTOP;
MAXLENGTH 18;
TOOLTIP "Informe o Cpf ou Cnpj"
@ 343,160 GET oRG_IE VAR wRG_IE SIZE 120,22;
STYLE WS_TABSTOP;
MAXLENGTH 15;
TOOLTIP "Informe o RG ou Inscrição Estadual"
@ 80,190 GET COMBOBOX Ofunc1 VAR Wfunc1 ITEMS aItens1 SIZE 200,22 TEXT;
STYLE WS_TABSTOP;
TOOLTIP "Informe a Primeira Função"
@ 390,190 GET COMBOBOX Ofunc2 VAR Wfunc2 ITEMS aItens1 SIZE 200,22 TEXT;
STYLE WS_TABSTOP;
TOOLTIP "Informe a Segunda Função"
@ 80,220 GET Ofone VAR Wfone PICTURE "@R (99)9999-9999" SIZE 120,22;
STYLE WS_TABSTOP;
TOOLTIP "Informe o Telefone"
@ 250,220 GET Ofax VAR Wfax PICTURE "@R (99)9999-9999" SIZE 120,22;
STYLE WS_TABSTOP;
TOOLTIP "Informe o Telefone de Fax"
@ 440,220 GET Ocel VAR Wcel PICTURE "@R (99)9999-9999" SIZE 120,22;
STYLE WS_TABSTOP;
TOOLTIP "Informe o Telefone Celular"
@ 80,250 GET Oemail VAR Wemail SIZE 560,22;
MAXLENGTH 50;
STYLE WS_TABSTOP + ES_AUTOHSCROLL;
TOOLTIP "Informe o Email"
@ 150,280 GET Ovalor VAR Wvalor PICTURE "@E 999,999,999.99" SIZE 100,22;
STYLE WS_TABSTOP;
TOOLTIP "Informe o Valor da Mensalidade"
@ 390,280 GET DATEPICKER Ovenc VAR Wvenc SIZE 100,22;
STYLE WS_TABSTOP;
TOOLTIP "Informe a Data de Vencimento"
****FIM DOS GTES***
*******Buttons****
@ 320,350 BUTTON btnOk CAPTION "&Salvar" SIZE 100, 28 ;
TOOLTIP "Salvar Registro";
ON CLICK {|| Grava_Assoc() };
STYLE WS_TABSTOP
@ 430,350 BUTTON "&Limpar" SIZE 100, 28 ;
TOOLTIP "Limpar Campos";
ON CLICK {|| limpa_Var2() };
STYLE WS_TABSTOP
@ 540,350 BUTTON "&Fechar" SIZE 100, 28 ;
TOOLTIP "Sair do Modulo de Cadastro";
ON CLICK {|| oCadAss:Close() };
STYLE WS_TABSTOP
hwg_WriteStatus( oTelaPrincipal,3,"Cadastro de Assiados" )//BARRA DE STATUS
ACTIVATE DIALOG oCadAss
hwg_WriteStatus( oTelaPrincipal,3,"Area de Trabalho" )
RETURN nil
****************************************************
Function Muda_texto(oObj1, cTexto1, oObj2, cTexto2 )
****************************************************
LCNPJ_CPF:settext(hb_oemtoansi(cTexto1))
LRG_IE :settext(hb_oemtoansi(cTexto2))
if cTexto1 = "CNPJ :"
cPicture ="@R 99.999.999/9999-99"
else
cPicture ="@R 999.999.999-99"
endif
oObj1:ParsePict(oObj1,cPicture,oObj1:title)
oobj1:refresh()
Return .T.
