Luisão Posted September 28, 2009 Report Share Posted September 28, 2009 sqllog.txt 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 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 29, 2009 Report Share Posted September 29, 2009 Para agilizar substitui suas variaveis que tem nomes grandes e reduzi a apenas 2 faça as alterações iguais as suas variaveis que deve funcionar Function Altera(CD,EM,CO,EL,TE,olbx) CDA=codcliente ** cUPDATE:="UPDATE Cadastro_clientes set empresa='&em',contato='&co',email='&el',telefone='&te' where codcliente="+SqlNtrim(cda) SQLExecute( cUpdate ) Return .t.id=code>id=code>Para funcionar vc. tem que dar uma condição ao "Where" nesta caso ai casei ele com o cda que é o cod do cliente não é isso LUISÃO ??? veja se resolve.. PS: não esqueça de passar no action do botao as variaveis com "@" 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 29/09/2009 09:12:39 Quote Link to comment Share on other sites More sharing options...
Luisão Posted September 29, 2009 Report Share Posted September 29, 2009 Isso mesmo. Só 2 observações: Primeira Sobre passar as variáveis com @, não há necessidade de passar por referência, já que elas não vão ter seus valores alterados. Segunda Mudaria isso: id=code>id=code>Por isso:id=code>id=code>As funções SQLSTR, SQLNTRIM e SQLDATE já formatam a variável para texto delimitado com ' Bom, é isso 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 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 29, 2009 Author Report Share Posted September 29, 2009 luizao aproveitando que voce ta por aqui... devido a alguns problemas na minha maquina tive que refazer meu programa com uma parte salva que tinha aqui ha algum tempo porem quando clico no botao salvar nao salva quando vou olhra o sqllog.txt esta escrito isso 09/29/09 14:43:15 create index telefone ON telefone (telefone) 09/29/09 14:43:15 SQLLIB/1000: MySQL RDD: Table 'agenda.telefone' doesn't existid=code>id=code>voce sabe o que significa? 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 WS Quote Link to comment Share on other sites More sharing options...
Luisão Posted September 29, 2009 Report Share Posted September 29, 2009 Você tentou criar um Ãndice na tabela telefone: citação:09/29/09 14:43:15 create index telefone ON telefone (telefone)id=quote>id=quote>Mas a tabela telefone não existe no database agenda: citação:09/29/09 14:43:15 SQLLIB/1000: MySQL RDD: Table 'agenda.telefone' doesn't existid=quote>id=quote>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 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 29, 2009 Author Report Share Posted September 29, 2009 citação:Você tentou criar um Ãndice na tabela telefone: citação:09/29/09 14:43:15 create index telefone ON telefone (telefone)id=quote>id=quote>Mas a tabela telefone não existe no database agenda: citação:09/29/09 14:43:15 SQLLIB/1000: MySQL RDD: Table 'agenda.telefone' doesn't existid=quote>id=quote>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 id=quote>id=quote>mas luizao nem tabela telefone eu tenho da uma olhada na funçao ai em baixo que chamo na hora que clica em salvar IF cEmpresa=" " MsgAlert("Campo Empresa Nao pode ser Nulo.","..::Aviso") Return .f. EndIf IF cEmail=" " MsgAlert("Campo Email nao pode ser Nulo.","..::Aviso") Return .f. EndIf cInsert:= "INSERT into cadastro_clientes (codcliente,empresa,contato,email,telefone) VALUES ("+; sqlNtrim(cCodigo)+", "+; sqlStr(cEmpresa)+", "+; sqlStr(cContato)+", "+; sqlStr(cEmail)+", "+; sqlStr(cTelefone)+") " SQLExecute( cInsert ) cCodigo=Reccount()+1 cCodigo=cCodigo+1 oget[1]:Varput(cCodigo) oGet[1]:Refresh() olbx:Refresh() xSetFocus(oget[2]) Return .t.id=code>id=code>onde esto criando indice ai? 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 WS Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 29, 2009 Report Share Posted September 29, 2009 Sou Luiz.. mas ainda chego a Luizão mas vou meter o bedelho.. Passei de manha pra vc. a parte onde os testes que fiz no seu PRG deram certos.. verifique seu email e reporte.. 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 September 29, 2009 Author Report Share Posted September 29, 2009 citação:Sou Luiz.. mas ainda chego a Luizão mas vou meter o bedelho.. Passei de manha pra vc. a parte onde os testes que fiz no seu PRG deram certos.. verifique seu email e reporte.. 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>sim, esto tilizando ela... mas pq vc colocou essa linha id=code>id=code>tirei ela mas mesmo assim nao esta salvando e nada no sqllog... vou verificar aqui.. para nao estender o topico 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 WS Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 29, 2009 Report Share Posted September 29, 2009 Vc. excluiu algum item da tabela ??? Veja bem o PRG que mandei hoje pra vc. tá rodando redondo.. sobrou um tempinho e acabei de fazer um teste. Só para descarrego de conciencia. retire o when(.f.) do seu codcliente na dialog e faça o teste.. 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 September 30, 2009 Author Report Share Posted September 30, 2009 citação:Vc. excluiu algum item da tabela ??? Veja bem o PRG que mandei hoje pra vc. tá rodando redondo.. sobrou um tempinho e acabei de fazer um teste. Só para descarrego de conciencia. retire o when(.f.) do seu codcliente na dialog e faça o teste.. 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>nao alterei nada somente uma coisa.. da uma olhada no seu email que eu mandei o prg la pra vc e te expliquei o que fiz 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 WS Quote Link to comment Share on other sites More sharing options...
fabin01 Posted October 1, 2009 Author Report Share Posted October 1, 2009 Galera conseguir resolver os problemas que estava tendo (com muito custo) hehehe.. agora é o seguinte quando coloco este comando olbx:blDbClick:= {||AGENDA_ALTERA(&CD,&EM,&CO,&EL,&TE,oget,olbx)}[code]ele me retorna este erro aqui da imagem abaixo[url=http://img19.imageshack.us/i/errouz.png/]o que posso fazer para resolvelo e o que significa?valewsObrigado 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.comInicianteFWH 2.8[x]Harbour 9.61xdev 0.70WSEditado por - fabin01 on 01/10/2009 10:37:54 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted October 1, 2009 Report Share Posted October 1, 2009 Sintaxe errada... Tente assim REdefine ListBox pipipi pópópó... ID 4004 Of odlg1; On Left DBLCLICK AGENDA_ALTERA(oLbx)id=code>id=code>TVeja se da certo.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- ico.corumba@gmail.com -- Não Abandone Seu Tópicoid=red> Editado por - ico on 01/10/2009 10:55:31 Quote Link to comment Share on other sites More sharing options...
Luisão Posted October 1, 2009 Report Share Posted October 1, 2009 Tsc tsc tsc, continua não lendo os erros ? Você escreveu blDbClickid=red>, o correto é bLDblClickid=blue> E outra, pra que esses & ? Acho que vai dar erro também... 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 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted October 1, 2009 Report Share Posted October 1, 2009 citação:Tsc tsc tsc, continua não lendo os erros ? iiiieuuuu ??id=red> Você escreveu blDbClickid=red>, o correto é bLDblClickid=blue> E outra, pra que esses & ? Acho que vai dar erro também... Vai dar erro mesmo pq. as variaveis estão em outro modulos (Agenda_Altera) que ainda vão ser carregadas e não porque da Ref(@) da forma que postei tb. funfa id=red> 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 id=quote>id=quote>Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- ico.corumba@gmail.com -- Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
Luisão Posted October 1, 2009 Report Share Posted October 1, 2009 Não você Luiz, o Fábio... Foi só uma letra que ele esqueceu, ele nem olhou direito... Sobre os &, falo isso porque da forma que está, digamos que a variável CD contenha o valor 100. Ao fazer o &CD, ele vai entender que o conteúdo de CD é uma outra variável, ou seja, que 100 é uma variável. Isso vai dar erro. CD:= 100 ? &CD // ERRO id=code>id=code>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 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted October 1, 2009 Report Share Posted October 1, 2009 De alguma forma serviu pra mim tb. vc. falando de & e eu de @ Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- ico.corumba@gmail.com -- Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted October 1, 2009 Author Report Share Posted October 1, 2009 luizao ta certo... rsrsrs... mas era porque nao sabia a sintaxe deste comando... ai copiei de um codigo antigo.. mas vou prestar mais atençao agora.. em relaçao ao agenda altera eu tireis as variaveis que estavam dentro do ()id=red> e deu certo... valews aew luizes.. agora minha duvida é o seguinte tenho botoes proximo, anterior, ultimo e primeiro como faço para que quando o usuario clicar nele vai navagando pela listbox?? 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 WS Quote Link to comment Share on other sites More sharing options...
Luisão Posted October 1, 2009 Report Share Posted October 1, 2009 Se estiver usando Listbox: oListBox:GoUp() - Anterior oListBox:GoDown() - Próximo oListBox:GoTop() - Primeiro oListBox:GoBottom() - Último 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 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted October 1, 2009 Author Report Share Posted October 1, 2009 citação:Se estiver usando Listbox: oListBox:GoUp() - Anterior oListBox:GoDown() - Próximo oListBox:GoTop() - Primeiro oListBox:GoBottom() - Último 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 id=quote>id=quote>valews luizao tira a ultima duvida aqui agora coloquei assim apos salvar.. olbx:refresh() certo, isso seria para atualizar a listbox porem nao ta atualizando porque luizao?? 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 WS Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted October 1, 2009 Report Share Posted October 1, 2009 Veja se é isto.. Redefine BTNBMP obnt3 prompt "" RESOURCE "PROXIMO" ID 4007; ACTION ( Olbx:Skip(+1), olbx:Refresh(),olbx:SetFocus(), oDlg1:Update() ) * Redefine BTNBMP obnt3 prompt "" RESOURCE "ANTERIOR" ID 4002; ACTION ( Olbx:Skip(-1), olbx:Refresh(),olbx:SetFocus(), oDlg1:Update() )id=code>id=code>Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- ico.corumba@gmail.com -- Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted October 1, 2009 Author Report Share Posted October 1, 2009 corumba isto é para atualiazar a listbox quando eu salvar ou é para o botao proximo, anterior .... pq se for eu ja fiz aqui ja hehehe to querendo agora quando eu salvar ou alterar atualizar a listbox tendeu? 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 WS Editado por - fabin01 on 01/10/2009 17:25:24 Editado por - fabin01 on 02/10/2009 08:24:21 Quote Link to comment Share on other sites More sharing options...
Luisão Posted October 2, 2009 Report Share Posted October 2, 2009 Respondendo pela 3ª vez a mesma questão: citação:Isso também aconteceu com o Luiz. Olhe minha última postagem: http://www.fivewin.com.br/forum/topic.asp?whichpage=3&ARCHIVE=&TOPIC_ID=15931 id=quote>id=quote>Não haverá 4ª vez. =D 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 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted October 2, 2009 Author Report Share Posted October 2, 2009 citação:Respondendo pela 3ª vez a mesma questão: citação:Isso também aconteceu com o Luiz. Olhe minha última postagem: http://www.fivewin.com.br/forum/topic.asp?whichpage=3&ARCHIVE=&TOPIC_ID=15931 id=quote>id=quote>Não haverá 4ª vez. =D 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 id=quote>id=quote>pod fica tranquilo que nao vai ter =D mas esta dando erro aqui luizao aquele de nao enviar relatorio... meu codigo ta assim, coloquei ela na funçao do salavar ai assim que o usuario apertar o boatao atualiza ou teria que colocar onde eu redefini minha listbox? Use 'cadastro_clientes' as 'Select * from cdastro_clientes' Alias "CAD_CLI" New Via "MySQL" IF cEmpresa=" " MsgAlert("Campo Empresa Nao pode ser Nulo.","..::Aviso") Return .f. EndIf SQL EXECUTE "INSERT into cadastro_clientes (codcliente,empresa,contato,email,telefone) VALUES ("+; sqlNtrim(cCodigo)+", "+; sqlStr(cEmpresa)+", "+; sqlStr(cContato)+", "+; sqlStr(cEmail)+", "+; sqlStr(cTelefone)+") " cCodigo=Reccount()+1 cCodigo=cCodigo+1 oget[1]:Varput(cCodigo) //pega o valor da variavel e transforma no get oget[1] oGet[1]:Refresh() //ao retornar p/ a dialog atualiza o get com o vl. da variavel inserida com o varput no oget[1] Select CAD_CLI Use SQL "Select * from cadastro_clientes" Alias CAD_CLI Via "MySQL" olbx:Refresh() xSetFocus(oget[2]) //o xSetfocus faz o cursor voltar no Get especificado //após a gravação assim que salvar o registro, //sem ele o cursor pularia para os controles que estiverem //na frente como outros botoes por exemplo.. close CAD_CLI Return .t.id=code>id=code>o que esta de 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 WS Editado por - fabin01 on 02/10/2009 09:14:33 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted October 2, 2009 Report Share Posted October 2, 2009 O erro tá dando porque disto aqui Use SQL "Select * from cadastro_clientes" Alias CAD_CLI Via "MySQL"id=code>id=code>Retire pq. vc. já abriu a tabela no inicio da function. Luiz, o que ele tá querendo é que após incluir o registro o ListBox seja atualizado, o olbx:Refresh() já deveria fazer isso, tenho isso em vários prgs meus funcionando mas com tudo na mesma dialog, creio que esse dele não funfa pq. para incluir registro ele vai para outra dialog com os gets e tenta atualizar lá na odlg1, nunca trabalhei assim e não posso afirmar se to certo ou errado. Fabio se vc. tiver uma Dialog com os Gets e o listbox juntos tenho certeza que vai funcionar. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- ico.corumba@gmail.com -- Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted October 2, 2009 Author Report Share Posted October 2, 2009 opa corumba consegui aqui.. fiz deste modo... como tinha aberto ja o CAD... o que eu fiz antes da linha olbx:refresh() coloquei Use SQL "Select * from cadastro_clientes" Alias CAD Via "MySQL"id=code>id=code>ai deu certo quando eu salvo ja aparece na listbox hehehe.. tenta fazer em algum seu ai.. galera quando eu salvo eu quero que os campos da tela para preencher assim que salvar fique em brancos pois quando eu salvo fica os dados nas editbox queria que quando apertasse o botao salvar ficasse em branco ai coloquei o codigo assim IF cEmpresa=" " MsgAlert("Campo Empresa Nao pode ser Nulo.","..::Aviso") Return .f. EndIf SQL EXECUTE "INSERT into cadastro_clientes (codcliente,empresa,contato,email,telefone) VALUES ("+; sqlNtrim(cCodigo)+", "+; sqlStr(cEmpresa)+", "+; sqlStr(cContato)+", "+; sqlStr(cEmail)+", "+; sqlStr(cTelefone)+") " cCodigo=Reccount()+1 cCodigo=cCodigo+1 oget[1]:Varput(cCodigo) //pega o valor da variavel e transforma no get oget[1] oGet[1]:Refresh() //ao retornar p/ a dialog atualiza o get com o vl. da variavel inserida com o varput no oget[1] Select CAD Use SQL "Select * from cadastro_clientes" Alias CAD Via "MySQL" olbx:Refresh() xSetFocus(oget[2]) //o xSetfocus faz o cursor voltar no Get especificado //após a gravação assim que salvar o registro, //sem ele o cursor pularia para os controles que estiverem //na frente como outros botoes por exemplo.. cEmpresa:=" " cContato:=" " cEmail:=" " cTelefone:=" "id=code>id=code>porem somente o o cEmpresa que fica em branco na dialog como eu conserto isso? so uma pergunta... em fivwin tem como eu fazer relatorios?? igual ao vb, access.... tem como? tenho que utilizar uam ferramenta especifica para faze-los? como eu faria um relatorio? valews luizes uhauhsa 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 WS Editado por - fabin01 on 02/10/2009 10:31:01 Editado por - fabin01 on 02/10/2009 11:06:26 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.