fabin01 Posted August 11, 2009 Author Report Share Posted August 11, 2009 citação:nao , para aparecer o valor com virgulas use a mascara "@E 999,999.99" Abraco William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 id=quote>id=quote>a certo entendi mas willian quero que fique na editbox 0,00 ai usuario podera alterar o valor maximo ate 9,99 entedneu como faço 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...
william Posted August 11, 2009 Report Share Posted August 11, 2009 ok, use redefine get oget var vget id 100 of odlg picture "@E 9.99" William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Editado por - william on 11/08/2009 09:42:16 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 11, 2009 Author Report Share Posted August 11, 2009 citação:ok, use redefine get oget var vget id 100 of odlg picture "@E 9.99" William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Editado por - william on 11/08/2009 09:42:16 id=quote>id=quote>mas ai na edit box so fica a mascar , tendeu? quero que fique 0,00 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 11, 2009 Report Share Posted August 11, 2009 citação: citação:ok, use redefine get oget var vget id 100 of odlg picture "@E 9.99" William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Editado por - william on 11/08/2009 09:42:16 id=quote>id=quote>mas ai na edit box so fica a mascar , tendeu? quero que fique 0,00 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>Se vc. tá se referindo ao controle lá na tela do PellesC desista,, não tem jeito, só via codigo mesmo... 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 11, 2009 Author Report Share Posted August 11, 2009 luiz consegui resolver aqui... quando estava fazendo a tela pelo pelles ja coloquei esse valor 0,00 para aparecer valews ai galera 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...
fabin01 Posted August 11, 2009 Author Report Share Posted August 11, 2009 galera agora veio uma duvida d eum topico meu ja resolvido o willin passou este comando para desabilitar um botao id=code>id=code>mas e se caso e queira desabilitar mais de um como faço? 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 11, 2009 Report Share Posted August 11, 2009 Hummm to meio bobo agora mas tente assim On init obtn2:disable(),obtn3:Disable() centered ou On init obtn2:Hide(),obtn3:Hide() centered id=code>id=code>veja se vai dar certo... 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 11/08/2009 10:36:23 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 11, 2009 Report Share Posted August 11, 2009 Ops!!! faia nossa faça asim; On Init obtn1:Hide(obtn2:hide()) ou On Init obtn1:Disable(obtn2:Disable()) id=code>id=code>Tente acertar antes mas o forum saiu do ar Service Unavailableid=size3>id=code>id=code>e isso tá acontecendo direto no site... 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...
kapiaba Posted August 11, 2009 Report Share Posted August 11, 2009 citação:Ops!!! faia nossa faça asim; On Init obtn1:Hide(obtn2:hide()) ou On Init obtn1:Disable(obtn2:Disable()) id=code>id=code>Tente acertar antes mas o forum saiu do ar Service Unavailableid=size3>id=code>id=code>e isso tá acontecendo direto no site... 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>Basta sair do IE, e entrar novamente. 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...
Luiz Arruda (ICO) Posted August 11, 2009 Report Share Posted August 11, 2009 citação: citação:Ops!!! faia nossa faça asim; On Init obtn1:Hide(obtn2:hide()) ou On Init obtn1:Disable(obtn2:Disable()) id=code>id=code>Tente acertar antes mas o forum saiu do ar Service Unavailableid=size3>id=code>id=code>e isso tá acontecendo direto no site... 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>Basta sair do IE, e entrar novamente. 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 id=quote>id=quote>Mas sempre faço isso até conseguir "entrar" de novo.. sabe dizer pq. isso ocorre ?? 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 11, 2009 Author Report Share Posted August 11, 2009 opa deu certim aqui valews galera.. em relaçao ao site fora do ar, é de vez em quando fica mesmo e demora um tiquin pra entrar abraço 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...
fabin01 Posted August 13, 2009 Author Report Share Posted August 13, 2009 Bom dia Galera? é o seguinte ja quase terminei o visual do sitema aqui.. baixei um programa fox que fa as tabelas em dbf .. queria saber como faria uma inclusao, alteraçao.... pesquisa.. essase comnaod basicos sql na tabela pelo fivewin tenderam? 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...
eevaldo Posted August 13, 2009 Report Share Posted August 13, 2009 para acessar as tabelas dbf nao precisa de comando SQL abaixo exemplo de inclusao alteração e exclusao IF lSave WHILE !CORRENTE->( RLOCK() ) -->trava o registro em rede ENDDO IF lAppend CORRENTE->( DbAppend() ) -->comando para inclusao ENDIF REPLACE CORRENTE->CODIGO WITH cCod REPLACE CORRENTE->TITULAR WITH cTit REPLACE CORRENTE->CNPJ WITH cCnpj REPLACE CORRENTE->ABERTURA WITH cAbertura REPLACE CORRENTE->TELEFONE WITH cTelefone REPLACE CORRENTE->AGENCIA WITH cAgencia REPLACE CORRENTE->CONTA WITH cConta REPLACE CORRENTE->OBS WITH cObs CORRENTE->( DbCommit() ) -->esvasia o buffer CORRENTE->( DbUnlock() ) --> destrava o registro ENDIF Atraves do replace vc inclui ou altera OS REGISTROS ABAIXO E EXCLUSÃO IF MsgYesNo( "Confirma a exclusão dessa conta?","Exclusão") IF CORRENTE->( RLOCK() ) CORRENTE->( DBDELETE() ) CORRENTE->( dbunlock() ) ELSE MsgInfo("Registro em uso por outra pessoa no momento!","Atenção!!") ENDI ENDIF PROCURE MAIS EXEMPLOS NO SAMPLES BUSCANDO POR DBAPPEND() DBDELETE(), E REPLACE Evaldo Wagner FiveWin9.04 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) evaldowl@terra.com.br Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 13, 2009 Author Report Share Posted August 13, 2009 no caso neste exemplo corrente seria a tabela?? 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 13, 2009 Report Share Posted August 13, 2009 citação:no caso neste exemplo corrente seria a tabela?? 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>ISSO: CORRENTE, -> CORRENTE.DBF - BANCO DE DADOS COM EXTENSAO.DBF. 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...
Luiz Arruda (ICO) Posted August 13, 2009 Report Share Posted August 13, 2009 citação:no caso neste exemplo corrente seria a tabela?? 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>Sim... Replace SeuDBF->SeuCampo With SuaVariavel Ou Append Blank // para inclusão Field->SeuCampoNoDBF :=SuaVariavel que irão surtir o mesmo efeito.. 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...
Luiz Arruda (ICO) Posted August 13, 2009 Report Share Posted August 13, 2009 Ops!!! Kapi desculpa ai eu tava digitando e vc. postou 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 13, 2009 Author Report Share Posted August 13, 2009 a certo, para eu pegra o valor que o usuario digitou em uma editbox por exemplo como ficaria? vou criar uma variavel e fazer um redefine? 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 13, 2009 Report Share Posted August 13, 2009 Testa ai.. Select 1 Use SeuDBF Exclusive cVar:=0, cPro:=Space(30) Redefine Get oGet[1] Var cVAr ID Picture "9,999.99" Redefine Get pget[2] Var cPro ID Picture "@!" Redefine Button obtn[1]... Action Gravar(cVar,cPro) Static Function Gravar(cVar,cPro) Append Blank Field->Valor :=cVAr Field->Produto :=cPro Return .t. id=code>id=code>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 13, 2009 Author Report Share Posted August 13, 2009 citação:Testa ai.. Select 1 Use SeuDBF Exclusive cVar:=0, cPro:=Space(30) Redefine Get oGet[1] Var cVAr ID Picture "9,999.99" Redefine Get pget[2] Var cPro ID Picture "@!" Redefine Button obtn[1]... Action Gravar(cVar,cPro) Static Function Gravar(cVar,cPro) Append Blank Field->Valor :=cVAr Field->Produto :=cPro Return .t. id=code>id=code>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 to entendendo hehehe.. mas me explica algumas coisas aqui que vou citar Select 1 ----> o que seria este select 1 Use SeuDBF Exclusive----> nao entendi o Exclusive no caso o Use nao é comando nao ou é cVar:=0, cPro:=Space(30)----> aqui seria declaraçao de variaveis neh cvar recebe valor 0 e cPro recebe 0 podendo conter ate 30 caracteres certo? Redefine Get oGet[1] Var cVAr ID Picture "9,999.99"--> qua a funçao do get? e para que serve o picture? Return .t.---> tem sempre que colocar Return .t.? 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 13, 2009 Report Share Posted August 13, 2009 Vou TENTARid=blue> explicar da maneira + simples... se errei alguma coisa alguém corriga... /** luiz to entendendo hehehe.. mas me explica algumas coisas aqui que vou citar Select 1 ----> o que seria este select 1 Eu herdei o select do clipper e uso por hábito, não sei dizer se ainda é necessário no FW, Eu uso assim quando uso + de um arquivo.dbf aberto tipo Select 1 Use Arquivo1 Select 2 Use Arquivo2 *- lá nos desvio das function basta Select Arquivo1 ou Select Arquivo2 id=red> *- Use SeuDBF Exclusive----> nao entendi o Exclusive no caso o Use nao é comando nao ou é o USE é use mesmo seria + - a mesma coisa que vc. dizer entre no portao 1, neste caso seria use o arquivo 1 o exclusive só vc. teria acesso no BD no momento, vc. pode use shared tb. Use arquivo1 Exclusive If neterr() msgindo("o Arquivo está sendo usado por outro usuário") Endif Continua o código... id=red> *-- cVar:=0, cPro:=Space(30)----> aqui seria declaraçao de variaveis neh cvar recebe valor 0 e cPro recebe 0 podendo conter ate 30 caracteres certo? isso só que o cPro é textos(nome do produto) e o cVar numerico(valor do produto) e não recebe texto..id=red> /-- Redefine Get oGet[1] Var cVAr ID Picture "9,999.99"--> qua a funçao do get? Como vc. vai entrar com os dados sem digitar ele em um get ??? a não ser que vai ficar alterando o PRGs e compilando a todo momento que quiser incluir um registro no BDid=red> *-- e para que serve o picture? Picture "9,999,99" serve p/ digitar valor de 0,01 até 9,999.99id=red> Picture "@!" vc. só digita em letras mauisculasid=red> *-- Return .t.---> tem sempre que colocar Return .t.? Toda vez que vc. sair de uma function o return tem que ser .t. senão vai dar pau no programaid=red> *-- UFA!!!id=blue>id=size4> valews 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 13/08/2009 15:38:59 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 13, 2009 Report Share Posted August 13, 2009 AFFFF!! DE NOVO, DE NOVO!! NÃO ENTENDI, NADA!! KKKKKKKK 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 13, 2009 Author Report Share Posted August 13, 2009 so nao entendi muito a funçao do GET eo select1 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...
eevaldo Posted August 13, 2009 Report Share Posted August 13, 2009 para toda entrada de dados usa-se o GET assim como para mostra os dados em uma tela usa-se o SAY select 1 ta bem exlicado voce seleciona a area 1 que contem uma tabela sem a necessidade de por o nome dela select 1 use PRODUTOS a area 1 ficou direcionada para a tabela PRODUTOS voce pode dar select 1 ou select PRODUTOS Evaldo Wagner FiveWin9.04 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) evaldowl@terra.com.br 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:Testa ai.. Select 1 Use SeuDBF Exclusive cVar:=0, cPro:=Space(30) Redefine Get oGet[1] Var cVAr ID Picture "9,999.99" Redefine Get pget[2] Var cPro ID Picture "@!" Redefine Button obtn[1]... Action Gravar(cVar,cPro) Static Function Gravar(cVar,cPro) Append Blank Field->Valor :=cVAr Field->Produto :=cPro Return .t. id=code>id=code>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>olha so estou fazendo tudo a base de funçao, ou seja crio a funçao e chamo ela tenderam, posso criar a funçao com os comandos do bd e jogar no botao de uma tela? ou tem que ser tudo direto e no caso vao ter tabelas que vao ter relacionamentos como faço isso? pois vou ter tabelas que vai precisar d edados de outras 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 09:59:10 Editado por - fabin01 on 14/08/2009 10:05:10 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.