fabin01 Posted August 14, 2009 Author Report Share Posted August 14, 2009 citação:Baixe o Fox que o kapiaba mostrou.. no prompt do dos digite fox e de enter Create Cadastro * FIELDNAME TYPE WIDTH DEC ---------------------------------------- Nome Caracter 50 0 Data Date 8 Valor Numeric 12 2 id=code>id=code>Pronto tá criado um DBFcom Nome,DAta e valor.. e assim vai.. 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>o que seria widht i dec no fox para criaçao de tabelas? e como faço para escolher o locala para salavr as tabelas? 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 14/08/2009 10:46:37 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 14, 2009 Report Share Posted August 14, 2009 Width e Dec Tamanho,casas decimais COloque isso abaixo do Path do autoexec.NT SET PATH=%PATH%;C:\Fox21;c:; Deta meneira em qq pasta vc. executa o fox.exe e cria seus DBFs 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 14, 2009 Author Report Share Posted August 14, 2009 no caso vao ter tabelas que vao ter relacionamentos como faço isso? pois vou ter tabelas que vai precisar d edados de outras/ Fazer para Carregar os dados da tabela na tela? fazer eles aparecrem em uma listview e quando clicar aprecer a tela apra alterar? como faço isso 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...
kapiaba Posted August 14, 2009 Report Share Posted August 14, 2009 citação:Width e Dec Tamanho,casas decimais COloque isso abaixo do Path do autoexec.NT SET PATH=%PATH%;C:\Fox21;c:; Deta meneira em qq pasta vc. executa o fox.exe e cria seus DBFs 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, faz gentileza: POSTE O SEU AUTOEXEC.NT y CONFIG.NT, para eu dar uma olhada, pois o meu não está respeitando puerra ninguna. Obrigado, abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 14, 2009 Author Report Share Posted August 14, 2009 coloquei asism porem esta dando erro Define Dialog oDLG RESOURCE "SETORESPRINCNOVO" Title "Inclusão de Novo Setor / Local" Redefine BTNBMP obnt1 Prompt "" RESOURCE "GRAVA"; ID 4008 of oDLG Action Gravar(cCodigo,cNome,cDescricao) Redefine BTNBMP obtn2 Prompt "" RESOURCE "EXIT","EXIT2"; ID 4009 of oDLG Action oDLG:end() Select 1 Use SETOR Exclusive 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 "!@" Activate Dialog oDLG CENTERED Return Nil Function Gravar(cCodigo,cNome,cDescricao) Append SETOR ----> [red]o erro aponta nessa linha[red] informando isso "parse error at 'SETOR'" Field-> Codigo:=cCodigo Field-> Nome:=cNome Field-> Descricao:=cDescricao Return .t.id=code>id=code>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...
kapiaba Posted August 14, 2009 Report Share Posted August 14, 2009 Append SETOR ----> [red]o erro aponta nessa linha[red] informando isso "parse error at 'SETOR'" ISTO NÃO EXISTE, OU VOCE CRIA PELO FOX UM CAMPO CHAMADO SETOR, OU CRIA VIA DBCREATE() O COMANDO APPEND() PURO, GERA UM FIELD(CAMPO) EM BRANCO DENTRO DO SEU BANCO DE DADOS PARA VOCE ADD DADOS. NÃO ESQUEÇA DE BAIXAR O MANUAL QUE INDIQUEI. SEGUNDA, PROVÃO! COM A MAIOR SUPER POTENCIA DO FIVEWIN PRESENTE, VOCE TEM DUAS SAIDAS: 1-APRENDER 2-APRENDER. QUAL VOCE ESCOLHE? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 14, 2009 Author Report Share Posted August 14, 2009 me da uma luz d novo aew entao kapi hehehe como faria o comando apra gravar? fiz a tabela pelo fox 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...
kapiaba Posted August 14, 2009 Report Share Posted August 14, 2009 citação:me da uma luz d novo aew entao kapi hehehe como faria o comando apra gravar? fiz a tabela pelo fox 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>COMANDO PARA GRAVAR UM INCLUSAO/ALTERAÇÃO: REPLACE... WITH... João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 14, 2009 Author Report Share Posted August 14, 2009 preciso da sintaxe replace[tabela]with[??] como seria? 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...
kapiaba Posted August 14, 2009 Report Share Posted August 14, 2009 SELECT SEU_BANCO_DE_DADOS IF INCLUSAO DBAPPEND() ELSE POSICIONE O PONTEIRO NO REGISTRO A SER ALTERADO ENDIF REPLACE FORNECOD WITH FORNECOD2, ; DATACAD WITH DATACAD2, ; FORNENOME WITH FORNENOME2, ; FANTASIA WITH FANTASIA2, ; CUSTOCOD WITH CUSTOCOD2, ; TPFORCOD WITH TPFORCOD2, ; QUALIFSN WITH QUALIFSN2, ; QUALIFVAL WITH QUALIFVAL2, ; SIMPLESNAC WITH SIMPLESNA2, ; CGC WITH CGC2, ; CPF WITH CPF2, ; INSCREST WITH INSCREST2, ; ENDERECO WITH ENDERECO2, ; BAIRRO WITH BAIRRO2, ; CIDADE WITH CIDADE2, ; UF WITH UF2, ; CEP WITH CEP2, ; CONTATO WITH CONTATO2, ; DEPTO WITH DEPTO2, ; FONE WITH FONE2, ; FAX WITH FAX2, ; TELEX WITH TELEX2, ; CONTATOB WITH CONTATOB2, ; CONTATOC WITH CONTATOC2, ; FONEB WITH FONEB2, ; FONEC WITH FONEC2, ; OBS WITH OBS2 COMMIT UNLOCK ALL SndPlaySound( "Pronto.Wav" ) MsgInfo( OemToAnsi( "GRAVA€ÇO EFETUADA COM SUCESSO!! " ), ; OemToAnsi( "Aviso Para o Usu rio. " ) ) id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 14/08/2009 14:37:48 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 14, 2009 Author Report Share Posted August 14, 2009 no caso apos o with seria a varivel que vai receber os dados digitados por exemplo na edit box? 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...
dnunes Posted August 14, 2009 Report Share Posted August 14, 2009 citação:no caso apos o with seria a varivel que vai receber os dados digitados por exemplo na edit box? id=quote>id=quote>Isso. Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 14, 2009 Report Share Posted August 14, 2009 Volta na pagina 3 que já passei isso pro C 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 14, 2009 Author Report Share Posted August 14, 2009 citação:Volta na pagina 3 que já passei isso pro C 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>para altereçao usa tambem o replace? 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 14, 2009 Report Share Posted August 14, 2009 Sim. o Repl grava os dados.. vc. carrega o regisro na variavel edita e grava.. 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 14, 2009 Author Report Share Posted August 14, 2009 Coloquei asism porem nao deu certo, seria ssim mesmo? como faria para criar uma funçao gravar para acionala em um botao to muito perdido em relaçao essas gravaçoes alteraçoes em dbf Define Dialog oDLG RESOURCE "SETORESPRINCNOVO" Title "Inclusão de Novo Setor / Local" Redefine BTNBMP obnt1 Prompt "" RESOURCE "GRAVA"; ID 4008 of oDLG Action Gravar(cCodigo,cNome,cDescricao) Redefine BTNBMP obtn2 Prompt "" RESOURCE "EXIT","EXIT2"; ID 4009 of oDLG Action oDLG:end() Select SETOR 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 "!@" Replace CODIGO with cCodigo,; NOME with cNome,; DESCRICAo with cDescricao Commit Unlock All Activate Dialog oDLG CENTERED Return Nilid=code>id=code>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...
kapiaba Posted August 14, 2009 Report Share Posted August 14, 2009 NAO. CRIE UM BOTAO DE GRAVACAO E UMA FUNCAO DE GRAVACAO. QUANDO PREENCHER TODOS OS GETS, VOCE DISPARA O BOTAO DE GRAVACAO. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 14, 2009 Author Report Share Posted August 14, 2009 entao kapi, ja tenho o botao criado na dialog entao faço a funçao e coloco no actiond ele certo?? na funçao coloco a rotina parecida que voce me pasou nos topicos anterirores? 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...
kapiaba Posted August 14, 2009 Report Share Posted August 14, 2009 ALELUIA, IRMÃO!! PARABÉNS!!id=size5> Vo`cê está ficando bom nisto. Ainda vou aprender muito com você. Tá ótimo este curso ON LINE, Gilmer vai nos matar. kkkkk João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 14/08/2009 15:56:55 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 14, 2009 Author Report Share Posted August 14, 2009 o que está errado agora? 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() 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 "!@" Activate Dialog oDLG CENTERED Return Nil Function Gravar() Select SETOR Replace CODIGO with cCodigo; NOME with cNOme; DESCRICAO with cDESCRICAO commit unlock all return .tid=code>id=code>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 14, 2009 Report Share Posted August 14, 2009 O erro é taqui óóó Replace CODIGO with cCodigo;NOME with cNOme;DESCRICAO with cDESCRICAOid=code>id=code>Troque os ; por , e deixe tudo na mesma linha ou dá um Repl para cada campo 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> Editado por - ico on 14/08/2009 16:46:29 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 14, 2009 Author Report Share Posted August 14, 2009 deu erro agora alies does not exist Setor o arquivo dbf tem que ficar na emsma pasta certo? e no caso tenho que carregar preciso colocar ele no xdev para compilar 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 14, 2009 Report Share Posted August 14, 2009 Faltou Select 1 Use Setor Exclusive 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 14, 2009 Author Report Share Posted August 14, 2009 citação:Faltou Select 1 Use Setor Exclusive 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>ico semana que vem continuo pq deu erro aqui e acabou o expediente aqui no serviço ah.. o erro foi esse Error E0030 Syntax error: "parse error at 'SETOR'" 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...
Luisão Posted August 14, 2009 Report Share Posted August 14, 2009 Antes de chamar sua tela, abra o arquivo assim: Function AbreSetor( lEx, lReindex ) LOCAL cFile:='c:\Projetos\Arquivo\Setor.DBF' LOCAL cIndx:='c:\Projetos\Arquivo\Setor.CDX' IF .NOT.FILE(cFile) MSGINFO('O Arquivo '+cFile+' não foi encontrado','Arquivo não Encontrado') RETURN .F. ENDIF IF .NOT.FILE(cIndx) MSGINFO('O Arquivo de Ãndices '+cIndx+' não foi encontrado','Arquivo não encontrado') RETURN .F. ENDIF IF lEx DBUSEAREA(.T.,"DBFCDX",cFile,"SETOR",.F.) ELSE DBUSEAREA(.T.,"DBFCDX",cFile,"SETOR",.T.) ENDIF IF NETERR() MSGINFO('O Arquivo '+cFile+' não pode ser aberto no momento') RETURN .F. ENDIF IF lReindex ORDLISTCLEAR() ORDCREATE(cIndx,"01","Codigo",{|| Codigo }) ORDCREATE(cIndx,"02","Nome",{|| Nome }) ENDIF DBSETINDEX(cIndx) SELECT SETOR SET ORDER TO 1 RETURN .T. id=code>id=code>Essa função ficaria resposável por abrir o DBF do Setor e teria as opções de Reindexar e/ou Abrir Exclusivo. Acho que esse é o caminho. Update: citação:deu erro agora alies does not exist Setorid=quote>id=quote>Certifique que você abriu o arquivo usando um DBUSEAREA. citação:o arquivo dbf tem que ficar na emsma pasta certo ?id=quote>id=quote>Não, você pode deixar em qualquer diretório desde que informe o caminho completo na hora de usá-lo. citação:e no caso tenho que carregar preciso colocar ele no xdev para compilarid=quote>id=quote>Não, você não compila os DBFs junto com o projeto. Luis Fernando Jr.(Luisão) "Seize the day or die regretting the time you lost" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY Editado por - Luisão on 14/08/2009 17:49:06 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.