Uso prático do FOR/EACH composto

[JoséQuintas]

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

Código: Selecionar todos

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

[asimoes]

Quintas,

O seu exemplo tem um erro

? dData, aValor

Não seria ?

? dData, nValor

e nValor tem que ser declarado como variável local

[JoséQuintas]

é 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.

Código: Selecionar todos

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

Neste tópico

https://pctoledo.org/forum/viewto ... 45&t=18537

[fladimir]

legal hein... vlw

[Itamar M. Lins Jr.]

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.

[rubens]

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

[asimoes]

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

[Itamar M. Lins Jr.]

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.

[asimoes]

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

[Itamar M. Lins Jr.]

Ola!
Um exemplo do que falo é o seguinte:

Código: Selecionar todos

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

[asimoes]

Itamar,

Estamos falando de "case sensitive" ? ou "for each" ? estou ficando confuso, rs

[Itamar M. Lins Jr.]

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.