evaldohc

http://www.locaweb.com.br/portal.asp Evaldo H.C. evaldohc@hotmail.com.br ------------------------ FWH28 BLINKER 7 CLIP5.3 - [x]Harbour ---HARBOUR E MINIGUI----

Parabens pela realização do evento. Uma pena não pude ir. Gostaria de colocar a diposição o auditório da Câmara Municipal para futuros eventos, temos 138 lugares, sistema de som e telão para projeção. Para utiliza-lo basta agendar com antecedencia. Evaldo H.C. evaldohc@bol.com.br ------------------------ FWH28 BLINKER 7 CLIP5.3 - [x]Harbour ---HARBOUR E MINIGUI----

João, a cidade é Jundiaí Quem sabe? Talvez a gente se ve por lá. Vou me esforçar. Evaldo H.C. evaldohc@bol.com.br ------------------------ FW22C BLINKER 7 CLIP5.3 - VB6 ---HARBOUR E MINIGUI----

Tenho uma solução, em Clipper DOS OFICINA - Cadastro de Clientes e seus Veiculos - Guarda histórico de todas manutenções efetuadas no carro - Imprime Orçamento, Relatórios, Etiquetas de Mala Direta evaldohc@hotmail.com Evaldo H.C. evaldohc@bol.com.br ------------------------ FW22C BLINKER 7 CLIP5.3 - VB6 ---HARBOUR E MINIGUI----

kapiaba - /W em branco da apenas uma mensagem a que reportei no inicio

SISCAT - coloquei Warning level ( /w ) para W0, piorou aparecem mais mensagens

vagner - Estou usando o xMate e ele não esta gerando o EXE aferra - vetor1[01] := "unidade->codigo" vetor1[02] := "unidade->NOME"

Tenho o seguinte código e na compilação em xHarbour ocorre erro conforme descrito. @ 1,04 COMBOBOX oCbx VAR cCab ITEMS vetor3; OF oDlg_loca SIZE 100,100 ON CHANGE; (n:=oCbx:nAt,cCampo:=trim(substr(VETOR1[n],; at(">",VETOR1[n]) + 1 )),; cPict=Vetor2[n],cDado:=fvar(cCAMPO)) Warning W0027 Meaningless use of expression: '&' Grato Evaldo H.C. evaldohc@bol.com.br ------------------------ FW22C BLINKER 7 CLIP5.3 - VB6 ---HARBOUR E MINIGUI----

Tenho o seguinte código e na compilação em xHarbour ocorre erro conforme descrito. @ 1,04 COMBOBOX oCbx VAR cCab ITEMS vetor3; OF oDlg_loca SIZE 100,100 ON CHANGE; (n:=oCbx:nAt,cCampo:=trim(substr(VETOR1[n],; at(">",VETOR1[n]) + 1 )),; cPict=Vetor2[n],cDado:=fvar(cCAMPO)) Warning W0027 Meaningless use of expression: '&' Grato Evaldo H.C. evaldohc@bol.com.br ------------------------ FW22C BLINKER 7 CLIP5.3 - VB6 ---HARBOUR E MINIGUI----

Tenho o seguinte código e na compilação em xHarbour ocorre erro conforme descrito. @ 1,04 COMBOBOX oCbx VAR cCab ITEMS vetor3; OF oDlg_loca SIZE 100,100 ON CHANGE; (n:=oCbx:nAt,cCampo:=trim(substr(VETOR1[n],; at(">",VETOR1[n]) + 1 )),; cPict=Vetor2[n],cDado:=fvar(cCAMPO)) Warning W0027 Meaningless use of expression: '&' Grato Evaldo H.C. evaldohc@bol.com.br ------------------------ FW22C BLINKER 7 CLIP5.3 - VB6 ---HARBOUR E MINIGUI----

É não tive sucesso ainda.

Esta perdendo o Objeto Com um Menu com poucos itens não dá o erro, mas o que estou usando tem muitos, acaba perdendo o valor. Alguém pode me ajudar a mante-la Obrigado, a seguir listo o código Error description: Error BASE/1003 Variable does not exist: OMENUTREE FUNCTION MnuOpen( ) LOCAL oLbx, oMenuTree, oWndMenu PUBLIC cUsuario cUSUARIO="01" // Criar Gets para identificar qual usuário será configurado IF ASCAN( oWnd:oWndClient:aWnd, {|x| x:cargo == "MenuCA"} ) == 0 DEFINE WINDOW oWndMenu MDICHILD FROM 1, 1 TO 40, 300; TITLE "Controle de Senha Acesso"; BORDER NO of oWnd IF !FILE("MENUS.DBF") MsgStop("Arquivo não encotrado MENUS.DBF") QUIT ENDIF Open_file("Menus","Menus",,.F.) go top TREE oMenuTree BITMAPS "MnClose.bmp","MnOpen.bmp" OPENED DO WHILE .NOT. Eof() DO CASE CASE Menus->Tipo == 0 IF cUSUARIO$Menus->USUARIOS TREE BITMAPS "MnClSl.bmp", "MnOpSl.bmp" OPENED ELSE TREE BITMAPS "MnClose.bmp","MnOpen.bmp" OPENED ENDIF CASE Menus->Tipo == 1 bGrava = 'GravaMarca('+ '"'+Menus->TEXTO+'",oMenutree)' IF cUSUARIO$Menus->USUARIOS TREEITEM ALLTRIM( Menus->Texto ) FILENAME "MnClSl.bmp", "MnOpSl.bmp" ACTION &bGrava ELSE TREEITEM ALLTRIM( Menus->Texto ) FILENAME "MnClose.bmp","MnOpen.bmp" ACTION &bGrava ENDIF CASE Menus->Tipo == 2 TREEITEM "--------------------------------" CASE Menus->Tipo == 3 ENDTREE ENDCASE DBSkip() ENDDO ENDTREE @ 0, 0 LISTBOX oLbx FIELDS "" ; HEADERS "Arvore de Menus" ; SIZE 400, 400 ; OF oWndMenu UPDATE oLbx:nClrBackHead := CLR_VERDEAGUA // Cor do Fundo do Cabeçalho //oLbx:nClrForeHead := CLR_HRED // Cor nos Headers - Cabeçalhos oLbx:SetTree( oMenuTree ) // Carrega Arvore no Listbox //oLbx:aHeaders := {""} // Cabeçalho oLbx:bKeyChar = { | nKey | KeyChar( oLbx, nKey ) } //******* O ERRO ACONTECE NESSA LINHA **********// oLbx:bLDblClicked = {|| If( oLbx:Cargo:oTree != nil, ; ( oLbx:Cargo:Toggle(), oLbx:Refresh() ),EVAL(oLbx:Cargo:Cargo) )} oWndMenu:SetControl( oLbx ) oWndMenu:cargo := "MenuCA" ENDIF ACTIVATE WINDOW oWndMenu MAXIMIZED return nil STATIC FUNCTION KeyChar( oLbx, nKey) DO CASE CASE nKey == 13 msginfo("ENTER TESTE") IF oLbx:Cargo:oTree != NIL oLbx:Cargo:Toggle() oLbx:Refresh() ELSE EVAL(oLbx:Cargo:Cargo) ENDIF CASE nKey == 27 ENDCASE RETURN nil FUNCTION GravaMarca(cItem,oMenutree) msginfo("Click TESTE") LOCATE FOR Menus->Texto=cItem IF !(cUSUARIO$USUARIOS) // Marcar msginfo("Gravando Usuário " + cUSUARIO + " Acesso a "+cItem) RLock() repla USUARIOS WITH Trim(USUARIOS)+"*"+cUSUARIO ELSE // Rotina para desmarcar msginfo("Já esta gravado Usuário " + cUSUARIO + " Acesso a "+cItem) ENDIF RETURN NIL

Esta perdendo o Objeto Com um Menu com poucos itens não dá o erro, mas o que estou usando tem muitos, acaba perdendo o valor. Alguém pode me ajudar a mante-la Obrigado, a seguir listo o código Error description: Error BASE/1003 Variable does not exist: OMENUTREE FUNCTION MnuOpen( ) LOCAL oLbx, oMenuTree, oWndMenu PUBLIC cUsuario cUSUARIO="01" // Criar Gets para identificar qual usuário será configurado IF ASCAN( oWnd:oWndClient:aWnd, {|x| x:cargo == "MenuCA"} ) == 0 DEFINE WINDOW oWndMenu MDICHILD FROM 1, 1 TO 40, 300; TITLE "Controle de Senha Acesso"; BORDER NO of oWnd IF !FILE("MENUS.DBF") MsgStop("Arquivo não encotrado MENUS.DBF") QUIT ENDIF Open_file("Menus","Menus",,.F.) go top TREE oMenuTree BITMAPS "MnClose.bmp","MnOpen.bmp" OPENED DO WHILE .NOT. Eof() DO CASE CASE Menus->Tipo == 0 IF cUSUARIO$Menus->USUARIOS TREE BITMAPS "MnClSl.bmp", "MnOpSl.bmp" OPENED ELSE TREE BITMAPS "MnClose.bmp","MnOpen.bmp" OPENED ENDIF CASE Menus->Tipo == 1 bGrava = 'GravaMarca('+ '"'+Menus->TEXTO+'",oMenutree)' IF cUSUARIO$Menus->USUARIOS TREEITEM ALLTRIM( Menus->Texto ) FILENAME "MnClSl.bmp", "MnOpSl.bmp" ACTION &bGrava ELSE TREEITEM ALLTRIM( Menus->Texto ) FILENAME "MnClose.bmp","MnOpen.bmp" ACTION &bGrava ENDIF CASE Menus->Tipo == 2 TREEITEM "--------------------------------" CASE Menus->Tipo == 3 ENDTREE ENDCASE DBSkip() ENDDO ENDTREE @ 0, 0 LISTBOX oLbx FIELDS "" ; HEADERS "Arvore de Menus" ; SIZE 400, 400 ; OF oWndMenu UPDATE oLbx:nClrBackHead := CLR_VERDEAGUA // Cor do Fundo do Cabeçalho //oLbx:nClrForeHead := CLR_HRED // Cor nos Headers - Cabeçalhos oLbx:SetTree( oMenuTree ) // Carrega Arvore no Listbox //oLbx:aHeaders := {""} // Cabeçalho oLbx:bKeyChar = { | nKey | KeyChar( oLbx, nKey ) } //******* O ERRO ACONTECE NESSA LINHA **********// oLbx:bLDblClicked = {|| If( oLbx:Cargo:oTree != nil, ; ( oLbx:Cargo:Toggle(), oLbx:Refresh() ),EVAL(oLbx:Cargo:Cargo) )} oWndMenu:SetControl( oLbx ) oWndMenu:cargo := "MenuCA" ENDIF ACTIVATE WINDOW oWndMenu MAXIMIZED return nil STATIC FUNCTION KeyChar( oLbx, nKey) DO CASE CASE nKey == 13 msginfo("ENTER TESTE") IF oLbx:Cargo:oTree != NIL oLbx:Cargo:Toggle() oLbx:Refresh() ELSE EVAL(oLbx:Cargo:Cargo) ENDIF CASE nKey == 27 ENDCASE RETURN nil FUNCTION GravaMarca(cItem,oMenutree) msginfo("Click TESTE") LOCATE FOR Menus->Texto=cItem IF !(cUSUARIO$USUARIOS) // Marcar msginfo("Gravando Usuário " + cUSUARIO + " Acesso a "+cItem) RLock() repla USUARIOS WITH Trim(USUARIOS)+"*"+cUSUARIO ELSE // Rotina para desmarcar msginfo("Já esta gravado Usuário " + cUSUARIO + " Acesso a "+cItem) ENDIF RETURN NIL

Esta perdendo o Objeto Com um Menu com poucos itens não dá o erro, mas o que estou usando tem muitos, acaba perdendo o valor. Alguém pode me ajudar a mante-la Obrigado, a seguir listo o código Error description: Error BASE/1003 Variable does not exist: OMENUTREE FUNCTION MnuOpen( ) LOCAL oLbx, oMenuTree, oWndMenu PUBLIC cUsuario cUSUARIO="01" // Criar Gets para identificar qual usuário será configurado IF ASCAN( oWnd:oWndClient:aWnd, {|x| x:cargo == "MenuCA"} ) == 0 DEFINE WINDOW oWndMenu MDICHILD FROM 1, 1 TO 40, 300; TITLE "Controle de Senha Acesso"; BORDER NO of oWnd IF !FILE("MENUS.DBF") MsgStop("Arquivo não encotrado MENUS.DBF") QUIT ENDIF Open_file("Menus","Menus",,.F.) go top TREE oMenuTree BITMAPS "MnClose.bmp","MnOpen.bmp" OPENED DO WHILE .NOT. Eof() DO CASE CASE Menus->Tipo == 0 IF cUSUARIO$Menus->USUARIOS TREE BITMAPS "MnClSl.bmp", "MnOpSl.bmp" OPENED ELSE TREE BITMAPS "MnClose.bmp","MnOpen.bmp" OPENED ENDIF CASE Menus->Tipo == 1 bGrava = 'GravaMarca('+ '"'+Menus->TEXTO+'",oMenutree)' IF cUSUARIO$Menus->USUARIOS TREEITEM ALLTRIM( Menus->Texto ) FILENAME "MnClSl.bmp", "MnOpSl.bmp" ACTION &bGrava ELSE TREEITEM ALLTRIM( Menus->Texto ) FILENAME "MnClose.bmp","MnOpen.bmp" ACTION &bGrava ENDIF CASE Menus->Tipo == 2 TREEITEM "--------------------------------" CASE Menus->Tipo == 3 ENDTREE ENDCASE DBSkip() ENDDO ENDTREE @ 0, 0 LISTBOX oLbx FIELDS "" ; HEADERS "Arvore de Menus" ; SIZE 400, 400 ; OF oWndMenu UPDATE oLbx:nClrBackHead := CLR_VERDEAGUA // Cor do Fundo do Cabeçalho //oLbx:nClrForeHead := CLR_HRED // Cor nos Headers - Cabeçalhos oLbx:SetTree( oMenuTree ) // Carrega Arvore no Listbox //oLbx:aHeaders := {""} // Cabeçalho oLbx:bKeyChar = { | nKey | KeyChar( oLbx, nKey ) } //******* O ERRO ACONTECE NESSA LINHA **********// oLbx:bLDblClicked = {|| If( oLbx:Cargo:oTree != nil, ; ( oLbx:Cargo:Toggle(), oLbx:Refresh() ),EVAL(oLbx:Cargo:Cargo) )} oWndMenu:SetControl( oLbx ) oWndMenu:cargo := "MenuCA" ENDIF ACTIVATE WINDOW oWndMenu MAXIMIZED return nil STATIC FUNCTION KeyChar( oLbx, nKey) DO CASE CASE nKey == 13 msginfo("ENTER TESTE") IF oLbx:Cargo:oTree != NIL oLbx:Cargo:Toggle() oLbx:Refresh() ELSE EVAL(oLbx:Cargo:Cargo) ENDIF CASE nKey == 27 ENDCASE RETURN nil FUNCTION GravaMarca(cItem,oMenutree) msginfo("Click TESTE") LOCATE FOR Menus->Texto=cItem IF !(cUSUARIO$USUARIOS) // Marcar msginfo("Gravando Usuário " + cUSUARIO + " Acesso a "+cItem) RLock() repla USUARIOS WITH Trim(USUARIOS)+"*"+cUSUARIO ELSE // Rotina para desmarcar msginfo("Já esta gravado Usuário " + cUSUARIO + " Acesso a "+cItem) ENDIF RETURN NIL

deu seguinte erro Error description: Error Objects/8 No Object Msg.: UNDEFINED:TREEITEM