fabin01 Posted August 17, 2009 Author Report Share Posted August 17, 2009 tem que ter esse aruivo CDX tbm pois o fox so cria o dbf? e onde eu chamaria essa funçao o abre setor? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 17, 2009 Report Share Posted August 17, 2009 Digamos que o DBF que vc. criou chame Setor.DBF * //-----Isto aqui é que vai criar o CDX para você REQUEST DBFCDX, DBFFPT, ORDKEYCOUNT,ORDKEYGOTO, ORDKEYNO, DTOS RDDSETDEFAULT("DBFCDX") //---------------------- //-------------Aqui voce vai abrir o arquivo Setor.DBF que vc. criou Select 1 Use Setor Exclusive Index on Nome to NomeSetor1 // Aqui voce indexa/ordena o campo nome ou outro que vc queira ou tenha no setor.dbf //------------- id=code>id=code>Compile junto o DBFCDX.LIB que ta nas pasta LIB do seu xharbour.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 17, 2009 Author Report Share Posted August 17, 2009 este comando luiz RDDSETDEFAULT("DBFCDX")id=code>id=code>coloco onde? deu este erro agora (DOS Error 2)DBFCDX/1001 Open error:SETOR.DBF from Errorsys, line:0 meu codigoid=red> Define Dialog oDLG RESOURCE "SETORESPRINCNOVO" Title "Inclusão de Novo Setor / Local" Redefine BTNBMP obnt1 Prompt "" RESOURCE "GRAVA"; ID 4008 of oDLG Action Gravar() Redefine BTNBMP obtn2 Prompt "" RESOURCE "EXIT","EXIT2"; ID 4009 of oDLG Action oDLG:end() Activate Dialog oDLG CENTERED Return Nil Function Gravar() REQUEST DBFCDX, DBFFPT, ORDKEYCOUNT,ORDKEYGOTO, ORDKEYNO, DTOS RDDSETDEFAULT("DBFCDX") cCodigo:=0;cNome:=Space(50);cDescricao:=Space(100) Redefine Get oGet Var cCodigo ID 4005 Picture "99.999" Redefine Get oGet Var cNome ID 4006 Picture "@!" Redefine Get oGet Var cDescricao ID 4007 Picture "!@" Select 1 Use SETOR exclusive Replace CODIGO with cCodigo, NOME with cNOme, DESCRICAO with cDESCRICAO commit unlock all return .t.id=code>id=code>o que devo fazer? Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 17, 2009 Report Share Posted August 17, 2009 Putz!! seu código tá ao avesso aguarde um momento, to tirando uma chave no site da caixa e se ninguém arrumar arrumo pra voce.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
william Posted August 17, 2009 Report Share Posted August 17, 2009 Amiguinho, essa declaracao: REQUEST DBFCDX, DBFFPT, ORDKEYCOUNT,ORDKEYGOTO, ORDKEYNO, DTOS RDDSETDEFAULT("DBFCDX") a gente coloca no inicio do programa principal, vc esta chamando de dentro de uma funcao para gravar, nunca vi isso... E o erro (DOS ERROR 2) é que nao esta sendo encontrado o arquivo SETOR.DBF no diretorio do programa... William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Quote Link to comment Share on other sites More sharing options...
aferra Posted August 17, 2009 Report Share Posted August 17, 2009 Olá Fábio, acho que vai te ajudar...... REQUEST DBFCDX, DBFFPT, ORDKEYCOUNT,ORDKEYGOTO, ORDKEYNO, DTOS RDDSETDEFAULT("DBFCDX") Function SETORES_PRINCIPAL_BOTAONOVO(oDLG) PRIVATE cCodigo:=0;cNome:=Space(50);cDescricao:=Space(100) Select 1 Use SETOR exclusive Define Dialog oDLG RESOURCE "SETORESPRINCNOVO" Title "Inclusão de Novo Setor / Local" Redefine Get oGet Var cCodigo ID 4005 Picture "99.999" OF oDlg Redefine Get oGet Var cNome ID 4006 Picture "@!" OF oDlg Redefine Get oGet Var cDescricao ID 4007 Picture "!@" OF oDlg Redefine BTNBMP obnt1 Prompt "" RESOURCE "GRAVA"; ID 4008 of oDLG Action Gravar() Redefine BTNBMP obtn2 Prompt "" RESOURCE "EXIT","EXIT2"; ID 4009 of oDLG Action oDLG:end() Activate Dialog oDLG CENTERED Return Nil Function Gravar() Replace CODIGO with cCodigo, NOME with cNOme, DESCRICAO with cDESCRICAO commit unlock all return .t. id=code>id=code>Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.02+xHb110+@Say+CDX "O fracasso jamais me surpreenderá, se minha vontade de vencer for suficientemente forte..."id=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 17, 2009 Author Report Share Posted August 17, 2009 aferra no caso deu o mesmo erro anteriro que eu postei ai (DOS Error 2)DBFCDX/1001 Open error:SETOR.DBF from Errorsys, line:0.. no caso teria que criar uma funçao para ele abrir ou achar o bd na pasta? e coloquei o request la no inicio da function main o que esta errado? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 17, 2009 Report Share Posted August 17, 2009 Compile o DBFCDX como eu disse e veja se o erro persiste.. Outra coisa.. O SETOR.dbf fica na mesma pasta do seu EXE ou defina um caminho na abertura do sistema.. tipo Set Path to c:\minhaPasta\Sistema Set Path to &campo.. id=red> Onde o SEtor.dbf fica em c:\minhaPasta\Sistema.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Up.. Editado por - ico on 17/08/2009 10:52:24 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 17, 2009 Author Report Share Posted August 17, 2009 citação:Compile o DBFCDX como eu disse e veja se o erro persiste.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>coloquei o dbfcdx.lib que voce indicou porem continua dando o erro luiz Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 17, 2009 Report Share Posted August 17, 2009 Outra coisa.. O SETOR.dbf fica na mesma pasta do seu EXE ou defina um caminho na abertura do sistema.. tipo Set Path to c:\minhaPasta\Sistema Set Path to &campo.. [/quote/ Onde o SEtor.dbf fica em c]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 17, 2009 Report Share Posted August 17, 2009 citação: citação:Outra coisa.. O SETOR.dbf fica na mesma pasta do seu EXE ou defina um caminho na abertura do sistema.. tipo Set Path to c:\minhaPasta\Sistema Set Path to &campo.. id=quote>id=quote>Onde o SEtor.dbf fica em c:\minhaPasta\Sistema.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 17, 2009 Author Report Share Posted August 17, 2009 acho que agora de certo pois assim que cliquei em gravar criou um arquivo cdx Nome e coloquei uma linha assim id=code>id=code>e qual finalidade tem essa linha acima? tem algum tratamento de erro que posso colocar? se gravou com sucesso emiti uma mensagem se nao emiti uma msg de erro tem como? e no formato exclusive nao tem como abrir o dbf para ver se acrescentou nao neh? Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Editado por - fabin01 on 17/08/2009 10:59:42 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 17, 2009 Report Share Posted August 17, 2009 Se vc. quer apenas ver se gravou para ter certeza crie um button chamando uma outra function Function Versegravou() browse() Return .t. Ou depois do Replace browse() Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 17, 2009 Author Report Share Posted August 17, 2009 a certo e em relaçao ao tratamento de erro? tem como? e como faço para carregar os campos na listview e quando clicar ele aparecr nos campos para ediçao? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Editado por - fabin01 on 17/08/2009 14:30:49 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 17, 2009 Report Share Posted August 17, 2009 Tente assim Local cNome:=Space(40), cEnde:=Space(55), oGet[2] Redefine ListBox Olbx Fields Setor->Nome,Setor->Endereço; Headers "NOME","Endereco" ID oF odlg ; On change PegaDados(cNome,cEndereco,oget) Redefine Get oGet[1] Var cNome ID of odlg Redefine Get oGet[2] Var cEnde ID od odlg Function PegaDados(cNome,cEnde,oget) cNome=Nome cEnde=Endereco oGet[1]:Varput(cNome) oGet[2]:Varput(cEnde) oGet[1]:Refresh() oGet[2]:Refresh() Return .t. id=code>id=code>Sugiro que vc. abra um tópico para cada questão/duvida que tiver... daqui a pouco seu tópico vai estar gigantesco.. já são 6 paginas com o titulo "duvida com BD" e já está sendo sobre consulta em browse... Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 17, 2009 Author Report Share Posted August 17, 2009 luiz é em uma listview é a mesma coisa? pod deixar vou abrir outro topico ok? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 17, 2009 Report Share Posted August 17, 2009 citação:luiz é em uma listview é a mesma coisa? pod deixar vou abrir outro topico ok? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C id=quote>id=quote>é só copiar colar e alterar com os dados do seu BD e veja o que acontece.. ha! não esqueça que todos os controles devem estar na mesma dialog criada com os respectivos IDs.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 17, 2009 Author Report Share Posted August 17, 2009 mas na minha dialog so tenho o listview luiz dai chamo outra tela para cadastrar os setores seria assim mesmo como vc passou? Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 17, 2009 Report Share Posted August 17, 2009 Faça tudo na mesma dialog.. vc. já tem o Browse. crie os gets e pronto... crie tb. um botão "salvar alterações" assim que vc. alterar os dados clique nele e da um replace... Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 17, 2009 Author Report Share Posted August 17, 2009 citação:Faça tudo na mesma dialog.. vc. já tem o Browse. crie os gets e pronto... crie tb. um botão "salvar alterações" assim que vc. alterar os dados clique nele e da um replace... Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>luiz minha tela ta assim tenhos botoes novo alterar deletar procura imprime e sair e logo em cima a listview se o usuario clicar duas vezes sobre o item abre a tela de alterar com os dados do registro clicado se ele clicar em novo uma nova tela abre para salvar novo registro, se clicar em deletar deleta o item que esta selecionado em listview tendeu? asim q esta minha tela e com este exemplo que voce me passou daria certo? Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 17, 2009 Report Share Posted August 17, 2009 citação: citação:Faça tudo na mesma dialog.. vc. já tem o Browse. crie os gets e pronto... crie tb. um botão "salvar alterações" assim que vc. alterar os dados clique nele e da um replace... Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>luiz minha tela ta assim tenhos botoes novo alterar deletar procura imprime e sair e logo em cima a listview se o usuario clicar duas vezes sobre o item abre a tela de alterar com os dados do registro clicado se ele clicar em novo uma nova tela abre para salvar novo registro, se clicar em deletar deleta o item que esta selecionado em listview tendeu? asim q esta minha tela e com este exemplo que voce me passou daria certo? Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C id=quote>id=quote>Daria sim.. é só colocar o on change como passei... e pegar os resultados como na Function PegaDados() Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 17, 2009 Author Report Share Posted August 17, 2009 luiz to com uma divida nessas linhas aqui Redefine Get oGet[1] Var cNome ID of odlg Redefine Get oGet[2] Var cEnde ID od odlg qual id colocar sendo que na tela so tem a listview Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 17, 2009 Report Share Posted August 17, 2009 Crie + dois gets(editText) lá na sua dialog, e coloque o ID deles.... Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 17, 2009 Author Report Share Posted August 17, 2009 mas elas estao em uma funçao diferente na ta junta com essa funçao que to fazendo isso vai ter problema?? Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 17, 2009 Report Share Posted August 17, 2009 Como assim função diferente ??? não tem como seu browse estar em outra function que não seja esta ?? Mostre o código e mostre essa proeza.. Voce tem uma dialog, nesta dialog vc. tem que colocar os controles, quantos voce achar necessário até preencher todo o espaço dela, no PRG fazer a chamada para esses controles pelos IDs.. não tem como ser uma function diferente. faça a chamada na mesma function onde vc. tá chamando o browse.. ou ao entrar em outra function terá que chamar outra dialog criada no PellesC.. uma Koiza é uma Koiza outra Coisa é outra Coisa [] Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.