Clipper On Line • Ver Tópico - Uso prático do FOR/EACH composto

Uso prático do FOR/EACH composto

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Uso prático do FOR/EACH composto

Mensagempor JoséQuintas » 02 Fev 2018 09:02

Um array com data e outro com vencimento, referente parcelas de pagamento:

LOCAL aDataList, aValorList, dData, dValor

aDataList := { Stod( "2018/01/01" ), Stod( "2018/01/15" ), Stod( "2018/02/01") } }
aValorList := { 150, 150, 150 )

FOR EACH dData, nValor IN aDataList, aValorList
   ? dData, aValor
NEXT
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 17942
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Uso prático do FOR/EACH composto

Mensagempor asimoes » 07 Fev 2018 18:47

Quintas,

O seu exemplo tem um erro

? dData, aValor

Não seria ?

? dData, nValor

e nValor tem que ser declarado como variável local
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Uso prático do FOR/EACH composto

Mensagempor JoséQuintas » 07 Fev 2018 19:23

é mesmo, tá errado na declaração DVALOR, e no mostrar AVALOR... rs

O teste real que fiz foi com HMG, num exemplo que postaram pra redimensionar.

   FOR EACH cType, cName, nNumber IN _HMG_SYSDATA[ 1 ], _HMG_SYSDATA[ 2 ], _HMG_SYSDATA[ 4 ]
      k := cType:__EnumIndex


Neste tópico

http://www.pctoledo.com.br/forum/viewtopic.php?f=45&t=18537
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 17942
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Uso prático do FOR/EACH composto

Mensagempor fladimir » 07 Fev 2018 19:24

legal hein... vlw
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Uso prático do FOR/EACH composto

Mensagempor Itamar M. Lins Jr. » 19 Fev 2018 20:23

Ola!
Rapaz, tem tanta coisa para aprender do clipper ainda! Imaginem do Harbour ? tem tanta coisa antiga no Harbour que muita gente nem sabe para que serve (eu por exemplo), vejo pessoas reclamando que o Harbour vai acabar. O pessoal pode parar por um bom tempo que poderei ficar descobrindo coisas no Harbour.

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6912
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 501 vezes

Uso prático do FOR/EACH composto

Mensagempor rubens » 20 Fev 2018 08:32

Bom dia...
Para mim, o harbour é compatível com o clipper. Dá para aproveitar quase tudo do clipper. Estive olhando manual do harbour (que não contém todas as coisas) e dá para perceber que só usamos o que herdamos do clipper e aos poucos o que realmente é do harbour. Existe uma infinidade de comandos e funções (harbour) que são desconhecidas... as vezes a gente tá se matando aí para criar uma função que já existe. Só que aí entra o aprendizado, será que compensa? E tempo também né... Masa questão é: será que compensa ir a fundo ou partir para outro mundo, já que teremos que aprender de novo?

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Uso prático do FOR/EACH composto

Mensagempor asimoes » 20 Fev 2018 08:44

Offtopic : O meu ponto de vista é não investir nenhum tempo adicional para aprender por que clipper é legado e harbour daqui a pouco tempo será legado também
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Uso prático do FOR/EACH composto

Mensagempor Itamar M. Lins Jr. » 20 Fev 2018 09:20

Ola!
clipper é legado e harbour daqui a pouco tempo será legado também

Não vejo assim não.
O problema na minha opinião, foi que não fizeram a versão de 32/64 do Clipper. Tentaram acabar com ele, para vender outra coisa. Se a M$ desse continuidade ao FoxPro, ninguém estaria usando C#, o C# foi criando pela mesma pessoa que fez o Delphi, mas agora todo mundo já sabe disso e termina aprendendo , C/PHP/JAVA...
Para o pessoal que não tem condições, jovens por exemplo no inicio de carreira, todos que estão nesta situação só tem nas mãos ferramentas open source o que significa RUBY/PHP/JAVA... É o que mais vi na incubadora que trabalhei. Faculdade não ensina Delphi XXX... um RAID que custa mais de 30mil reais... Como o aluno vai comprar ?

Com poucas horas "por dia" podemos aprender xBase ou Html ou PHP ai vai de cada um... xBase não irá acabar pelos próximos 10 anos a meu ver.
O que existe são ferramentas CASE que aceleram drasticamente o desenvolvimento, mas a sintaxe são similares, basta aprender a lógica entender o OS.
Tem muita gente com cabeça no DOS querendo programar para Windows, tem muita gente com cabeça no Windows querendo programar para WEB... e assim perde mais tempo, simplesmente porque não estuda a plataforma antes de querer desenvolver para ela.

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6912
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 501 vezes

Uso prático do FOR/EACH composto

Mensagempor asimoes » 20 Fev 2018 09:28

Itamar a realidade é outra, você pode se tornar uma ilha de conhecimentos, bons conhecimentos, mas ninguém vai querer aportar nessa ilha, sistemas em clipper/harbour funcionam, sim funcionam mas até quando?, você morre o sistema morre, ninguém vai querer mexer, enfim essa é minha opinião
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Uso prático do FOR/EACH composto

Mensagempor Itamar M. Lins Jr. » 20 Fev 2018 09:37

Ola!
Um exemplo do que falo é o seguinte:

dbcreate("CLIENTE.DBF"...
If !file("cliente.dbf")

No DOS/WIndows isso funciona, no Linux não vai, porque CLIENTE.DBF é um arquivo e cliente.dbf outro.
Pegar uma aplicação para Desktop e querer que ela funcione na tela de celular(dedo)...
Então o que falta é separar essas coisas na cabeça dos antigos programadores e explicar para os mais novos.
Engenharia de software, antes quando fazíamos programas para o XT, tínhamos o cuidado de não ficar requisitando toda hora leitura no HD, não vejo falar sobre isso em nenhum lugar, carregar tudo na memória e só usar o HD para atualizar. Isso não mudou mas esquecem de ensinar isso ao novo programador.
Facilidade para o digitador, tem programas que é um sofrimento para o digitador usar... Já vi PDV que para consultar preço o pessoal tinha que abrir o cupom e depois cancelar...

Saudações,
Itamar M. Lins Jr
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6912
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 501 vezes

Uso prático do FOR/EACH composto

Mensagempor asimoes » 20 Fev 2018 09:46

Itamar,

Estamos falando de "case sensitive" ? ou "for each" ? estou ficando confuso, rs
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Uso prático do FOR/EACH composto

Mensagempor Itamar M. Lins Jr. » 20 Fev 2018 09:54

Ola!
você morre o sistema morre, ninguém vai querer mexer, enfim essa é minha opinião

Eu não discordo de vc, só vejo que tem mais coisas ai para analisarmos.
Um cliente meu disse isso: e se vc morrer como é que fica ?
Quando eu for comer "capim pela raiz" meus sistemas irão funcionar, neste "ínterim" ele arrume outro.
Ninguém mais usa DOS 3.30 ele evoluiu, o Harbour é a evolução do Clipper não é um legado o Harbour roda em uma quantidade enorme de sistemas operacionais, o Clipper só roda em DOS, por isso o Clipper está acabando, e ainda tem muita gente usando Clipper.
Win10 é a evolução do DOS3.30, é assim que vejo.
Tem sistema novinho ai no mercado top de linha! a pessoa me chama para que eu possa aprender o tal sistema e ensinar a ela a usar o programa dos outros, eu simplesmente digo que se ela usar o meu, eu ensino. No final a matéria prima é uma só. Posso ou não resolver o problema dos clientes com o Harbour ?
Tem Harbour para 32 e 64, windows, Linux, etc... Só não tem "ainda" ele "facim" para android, mas eu acredito que até o final do ano no mais tardar vamos evoluir nisso. Por isso eu falei de usar ele como CGI para poder trabalhar com dispositivos móveis.

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6912
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 501 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro