evandro Posted October 28, 2006 Report Share Posted October 28, 2006 Olá, João, vamos organizar a disputa. Só valem respostas corretas, elucidativas, que tenham a finalização de quem postou o problema. Não vale postar links, ou responder coisa já esclarecida anteriormente. Copiar e colar, nem pensar. citação: ESSA FOI ÓTIMA! BEM, EU BALANÇARIA A REDE, E VERIA SE TINHA ALGUMA COISA DENTRO... SE NAO TIVESSE, É PORQUE O MICRO CAIU DA REDE... id=quote>id=quote>Resposta espirituosa mas inválida. citação: VEJA EXEMPLOS NO C:\FW24\SAMPLESTESTMEM?.PRG Consertando... Aliás() TESTMEM?.* Veja os *.RC y *.RES. Abraços. id=quote>id=quote>Inválida da mesma forma. citação:Como saber a Celula Olá, cLetraCol:=iif( nColuna<=26, chr( nColuna+64 ), chr( int( nColuna/26)+64 ) ) cLetraCol+=iif( nColuna<=26, '', chr( (nColuna%26)+64 ) ) //Se tiver mais de uma letra Valeu era bem isso mesmo.. id=quote>id=quote>Resposta (ciclo completo) direta, inédita, dúvida esclarecida. "Cliente" satisfeito. Capiaus 1 X 0 Superpotência []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib Editado por - evandro on 28/10/2006 21:54:23 Editado por - evandro on 29/10/2006 16:29:26 Editado por - evandro on 30/10/2006 16:49:52 Editado por - evandro on 31/10/2006 14:29:58 Editado por - evandro on 31/10/2006 21:56:10 Editado por - evandro on 01/11/2006 12:14:10 Editado por - evandro on 01/11/2006 12:16:17 Editado por - evandro on 01/11/2006 14:25:26 Editado por - evandro on 02/11/2006 16:11:42 Editado por - evandro on 02/11/2006 19:29:55 Editado por - evandro on 07/11/2006 09:07:48 Editado por - evandro on 07/11/2006 09:22:22 Editado por - evandro on 12/11/2006 19:19:26 Editado por - evandro on 13/11/2006 10:17:52 Editado por - evandro on 15/11/2006 12:18:25 Editado por - evandro on 16/11/2006 12:24:27 Editado por - evandro on 18/11/2006 16:59:24 Editado por - evandro on 22/11/2006 10:15:48 Quote Link to comment Share on other sites More sharing options...
evandro Posted October 28, 2006 Author Report Share Posted October 28, 2006 Olá, João, vamos organizar a disputa. Só valem respostas corretas, elucidativas, que tenham a finalização de quem postou o problema. Não vale postar links, ou responder coisa já esclarecida anteriormente. Copiar e colar, nem pensar. citação: ESSA FOI ÓTIMA! BEM, EU BALANÇARIA A REDE, E VERIA SE TINHA ALGUMA COISA DENTRO... SE NAO TIVESSE, É PORQUE O MICRO CAIU DA REDE... id=quote>id=quote>Resposta espirituosa mas inválida. citação: VEJA EXEMPLOS NO C:\FW24\SAMPLESTESTMEM?.PRG Consertando... Aliás() TESTMEM?.* Veja os *.RC y *.RES. Abraços. id=quote>id=quote>Inválida da mesma forma. citação:Como saber a Celula Olá, cLetraCol:=iif( nColuna<=26, chr( nColuna+64 ), chr( int( nColuna/26)+64 ) ) cLetraCol+=iif( nColuna<=26, '', chr( (nColuna%26)+64 ) ) //Se tiver mais de uma letra Valeu era bem isso mesmo.. id=quote>id=quote>Resposta (ciclo completo) direta, inédita, dúvida esclarecida. "Cliente" satisfeito. Capiaus 1 X 0 Superpotência []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib Editado por - evandro on 28/10/2006 21:54:23 Editado por - evandro on 29/10/2006 16:29:26 Editado por - evandro on 30/10/2006 16:49:52 Editado por - evandro on 31/10/2006 14:29:58 Editado por - evandro on 31/10/2006 21:56:10 Editado por - evandro on 01/11/2006 12:14:10 Editado por - evandro on 01/11/2006 12:16:17 Editado por - evandro on 01/11/2006 14:25:26 Editado por - evandro on 02/11/2006 16:11:42 Editado por - evandro on 02/11/2006 19:29:55 Editado por - evandro on 07/11/2006 09:07:48 Editado por - evandro on 07/11/2006 09:22:22 Editado por - evandro on 12/11/2006 19:19:26 Editado por - evandro on 13/11/2006 10:17:52 Editado por - evandro on 15/11/2006 12:18:25 Editado por - evandro on 16/11/2006 12:24:27 Editado por - evandro on 18/11/2006 16:59:24 Editado por - evandro on 22/11/2006 10:15:48 Quote Link to comment Share on other sites More sharing options...
dorneles Posted October 28, 2006 Report Share Posted October 28, 2006 vai uma, tenho um objto get, ou seja, um cadastro de cliente(coisa simples) quero um objeto que nao usa as variavel ex. nome := space(50) cnpjcpj := space(14) endereco := space(50 bairro := space(20 etc.. aCliente := {} PS. SÓ LEMBRANDO COMECEI COM O FIVE DIA 23/09/2006. FW 2.4 + HB 0.80 + PELLES Editado por - dorneles on 28/10/2006 21:09:26 Editado por - dorneles on 28/10/2006 21:10:05 Editado por - dorneles on 28/10/2006 21:10:48 Editado por - dorneles on 28/10/2006 21:16:36 Quote Link to comment Share on other sites More sharing options...
evandro Posted October 28, 2006 Author Report Share Posted October 28, 2006 Olá, Não entendi direito o que você quer. Quer que seja apenas uma variável? Tipo: aoCliente:=array( len( aCliente ) ) REDEFINE vGet aoCliente[1] VAR aCliente[1] ID 101 OF oDlg Color GetAtAzul UPDATE id=code>id=code>Seria por este caminho? É por a� []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib Editado por - evandro on 29/10/2006 19:29:19 Quote Link to comment Share on other sites More sharing options...
dorneles Posted October 29, 2006 Report Share Posted October 29, 2006 Quase. STATIC oCliente, aCliente //DECLARACAO DAS VARIAVEIS STATIC lFound := .F. IF !AbreDbfNtx({"Cliente"}) RETURN NIL END Select Cliente Set orde TO 2 GO BOTTOM SKIP aGetCli := D3GET() oGetCli := D3GET() DEFINE DIALOG oDlg RESOURCE 1017 ; TITLE "Cadastro do Cliente" REDEFINE TBTNGET oGetCli.cnpjcpf VAR aGetCli.cnpjcpf ID 4005 PICTURE "@E 99999999999999" OF oDlg ; VALID AchaCli(@aGetCli,@lFound,@Vmodo,lBotao); UPDATE WHEN !lBotao REDEFINE TBTNGET oGetCli.nome VAR aGetCli.nome ID 4006 OF oDlg PICTURE "@!" WHEN lDisable REDEFINE TBTNGET oGetCli.endereco VAR aGetCli.endereco ID 4007 OF oDlg PICTURE "@!" WHEN lDisable REDEFINE TBTNGET oGetCli.cidade VAR aGetCli.cidade ID 4008 OF oDlg PICTURE "@!" WHEN lDisable id=code>id=code>D3GET() := Esta funcao, vai no arquivo(*.dbf)aberto pega sua estrutura e monta um array, dessa forma vc não precisa de preocupar em ficar declarando as variaveis. FW 2.4 + HB 0.80 + PELLES Quote Link to comment Share on other sites More sharing options...
evandro Posted October 29, 2006 Author Report Share Posted October 29, 2006 Olá, Agora facilitou. A função para montar um vetor com a estrutura do dbf é assim: local aCampos:={ }, x:=0 do while x++ < fcount() aadd( aCampos, { fieldname(x), eval( fieldblock( fieldname(x) ) ) } ) enddo return(aCampos) id=code>id=code>Neste caso teria de alterar o get para: REDEFINE TBTNGET oGetCli[2] VAR aGetCli[2] ID 4006 OF oDlg PICTURE "@!" WHEN lDisable //campo nome sendo o segundo na estrutura do arquivo Agora para usar da forma que você se referiu, usando um obejto, só com a classe TDataBase. O que não recomendo pois quando você mudar para SQL, e se eu fosse você faria isto já, terá de mudar muita coisa ou na classe ou em todos os prgs que estiverem usando a classe. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib Quote Link to comment Share on other sites More sharing options...
Geraldo (gbsilva) Posted October 29, 2006 Report Share Posted October 29, 2006 Postei um tópico sobre construção de classes, se quiserem posso postar aqui, assim terão munição para a "batalha" e eu aprendo um pouco mais. Um abraço, Geraldo Barbosa da Silva FWH 2.6 + xHarbour 0.99.50 (Simplex) + Bcc55 + Pelles + MyMake Windows Xp SP2 lucgera@terra.com.br São Paulo - SP Quote Link to comment Share on other sites More sharing options...
evandro Posted October 29, 2006 Author Report Share Posted October 29, 2006 Olá, citação:Funcionou mesmo Evandro, obrigado. id=quote>id=quote>João, Capiaus 2 X 0 Superpotência []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib Quote Link to comment Share on other sites More sharing options...
jcleoner Posted October 29, 2006 Report Share Posted October 29, 2006 Evandro Discordo de voce Uso a SqlLib com a TDatabase normalmente. A TDatabase é excelente e funciona normalmente para DBF ou Sql. José Carlos Guarulhos-SP FW 2.0 / Clipper 5.2e / WS | FWH 2.7 / xHarbour 99.51 / xDev / Pelles / SqlLib(MySql) Quote Link to comment Share on other sites More sharing options...
evandro Posted October 29, 2006 Author Report Share Posted October 29, 2006 Olá, Realmente não testei. Ouvi ali e repassei sem conferir. De toda forma a resposta à questão do Dorneles de como criar uma função para montar um vetor com a estrutura do dbf não sofre alteração. Continua válida. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib Editado por - evandro on 29/10/2006 19:31:39 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 30, 2006 Report Share Posted October 30, 2006 citação:Olá, Realmente não testei. Ouvi ali e repassei sem conferir. De toda forma a resposta à questão do Dorneles de como criar uma função para montar um vetor com a estrutura do dbf não sofre alteração. Continua válida. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib Editado por - evandro on 29/10/2006 19:31:39 id=quote>id=quote>Sem comentários, se não pode nem com meu TIME, imagina poder com a MAIOR SUPER POTENCIA DO FIVEWIN BRASIL! hahahahahahaha. Boa Zé Carlos... TIME UNIDO, TIME INVENCIVEL. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
evandro Posted October 30, 2006 Author Report Share Posted October 30, 2006 Olá, Este muito pequeno lapso não invalidou a resposta correta dada à dúvida do Dorneles. Portanto, até você comprovar alguma resoluções, o placar continua favorável aos coupiaus-aprendizes. Por enquanto David 2 X 0 Golias. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib Quote Link to comment Share on other sites More sharing options...
dorneles Posted October 30, 2006 Report Share Posted October 30, 2006 citação:Olá, Realmente não testei. Ouvi ali e repassei sem conferir. De toda forma a resposta à questão do Dorneles de como criar uma função para montar um vetor com a estrutura do dbf não sofre alteração. Continua válida. []s, id=quote>id=quote>Estou montando um exemplo de como criar um vetor com os nome dos campo e vou colocar em dicas(clipper puro), dessa forma de trabalhar, vc tem um ganho é muito com o tempo no desenvolvimento. Porque vc só vai trabalhar com só vetor, tanto na leitura como na gravacao. Mas o evandro passou perto. SELECT CLIENTE aCliente := D3GET() oCliente := D3GET() REDEFINE TBTNGET oGetTra.ps_nome VAR aGetTra.ps_nome Para gravar IF BloqReg() //bloqueia o registro D3REP(aCliente) ENDIF FW 2.4 + HB 0.80 + PELLES Editado por - dorneles on 30/10/2006 09:34:52 Quote Link to comment Share on other sites More sharing options...
jcleoner Posted October 30, 2006 Report Share Posted October 30, 2006 Dorneles Não sei porque voce quer perder esse tempo se a TDatabase já faz isso. Veja oDBF := DbfSetArea( .T., ,"Clientes.dbf" , lUseMode ) DataBase oDBF => Associa a TDatabase ao objeto oDbf aberto o DBF Clientes. oDbf:Blank() => para criar variáveis do DBF em branco oDbf:Load() => para criar variáveis já preenchidas com o registro corrente REDEFINE GET oCpo:Nome VAR oDBF:Nome ; ID 10; OF oFldr:aDialogs[1]; WHEN Empty(G_Data); PICTURE '@x'; UPDATE // Get com a variavel do Cliente oDBF:Nome IF oDBF:RecLock() => Bloqueia o registro oDBF:Save() => Move as variaveis de memória para o dbf, grava e dá o commit Endif Por aà voce vê que já existe tudo prontinho e a TDatabase tem muito mais que isso. José Carlos Guarulhos-SP FW 2.0 / Clipper 5.2e / WS | FWH 2.7 / xHarbour 99.51 / xDev / Pelles / SqlLib(MySql) Editado por - jcleoner on 30/10/2006 10:04:22 Quote Link to comment Share on other sites More sharing options...
dorneles Posted October 30, 2006 Report Share Posted October 30, 2006 Legal, vc documentacao do TDatabase? FW 2.4 + HB 0.80 + PELLES Quote Link to comment Share on other sites More sharing options...
jcleoner Posted October 30, 2006 Report Share Posted October 30, 2006 Pesquise na pasta samples do fivewin que lá tem. De tambem uma estudada na classe. Por ultimo. vá ao IV encontro que ela faz parte da programação. José Carlos Guarulhos-SP FW 2.0 / Clipper 5.2e / WS | FWH 2.7 / xHarbour 99.51 / xDev / Pelles / SqlLib(MySql) Quote Link to comment Share on other sites More sharing options...
evandro Posted October 30, 2006 Author Report Share Posted October 30, 2006 Olá, Dorneles, a função que postei cria o vetor: local aCampos:={ }, x:=0 do while x++ < fcount() aadd( aCampos, { fieldname(x), eval( fieldblock( fieldname(x) ) ) } ) enddo return(aCampos) id=code>id=code>[]s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib Quote Link to comment Share on other sites More sharing options...
dorneles Posted October 30, 2006 Report Share Posted October 30, 2006 Essa é a D3GET, ja utilizo ela em clipper a muito tempo. **************** FUNCTION D3GET() **************** LOCAL aGets := ARRAY(FCOUNT()) // AEVAL(aGets,{|x,nl| aGets[nl] := FIELDGET(nl)}) // RETURN aGets ************************* FW 2.4 + HB 0.80 + PELLES Quote Link to comment Share on other sites More sharing options...
evandro Posted October 30, 2006 Author Report Share Posted October 30, 2006 Olá, citação:Deu certo.. valeu e obrigadoid=quote>id=quote>João, sem querer provocar, já provocando, com esta já vai para 3x0. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 30, 2006 Report Share Posted October 30, 2006 citação:Olá, citação:Deu certo.. valeu e obrigadoid=quote>id=quote>João, sem querer provocar, já provocando, com esta já vai para 3x0. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib id=quote>id=quote>Vai nessa... Por enquanto, Parabéns! João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
vagner Posted October 30, 2006 Report Share Posted October 30, 2006 (hehehehe), tá ficando bom Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted October 30, 2006 Report Share Posted October 30, 2006 Também acho. Os organizadores do IV ENCONTRO agradecem. Zé Carlos, me lembra de ver o custo de uma corda bem forte e de imprimir alguns ingressos, OK?? Temos que pensar nos recursos para o V ENCONTRO. IV ENCONTRO: www.vimatec.com.br/encontroid=red> R$30,00 VIRTUAL OBJECT INF LTDA 00630294/0001-35 B.Brasil Ag 2923-8 C/C 9623-7 Fax para 11 6198-0779 ou E-Mail p/ suporte@pleno.com.brid=blue> Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted October 31, 2006 Report Share Posted October 31, 2006 Por favor... atualizem o placar... http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=8310 Abraços Quote Link to comment Share on other sites More sharing options...
evandro Posted October 31, 2006 Author Report Share Posted October 31, 2006 Olá, citação: recebo uma única resposta e ela é minha soluçãoid=quote>id=quote>Parabéns, João. Marcou um ponto. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib Quote Link to comment Share on other sites More sharing options...
evandro Posted October 31, 2006 Author Report Share Posted October 31, 2006 Olá, citação:Brigadão João... id=quote>id=quote>Rapaz, tomei até um susto. Será se a Superpotência estaria atropelando? Ainda bem que era outro João. O joaosolution. Continua 3x1 pros aprendizes. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib 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.