PC Toledo

Boa Noite Pessoal.
Ó eu aqui de volta. Bom, conforme prometi, estou passando o código do meu prg que executa a passagem de valores numéricos e desordenados de uma "string" para um banco de dados de forma classificada. Ficou super legal.
Mas me desculpem minha ignorância, >>> a função Aeval() não ...

Oi pessoal.
Boa Noite a todos.

De volta as vacas magras, estou passando aqui o trecho de meu prg que está travado na rotina AEVAL().
Como disse, por inexperiência ainda não consegui visualizar e entender bem esta rotina de bloco. Mas Vamos lá >> Para ficar facilitar, diminui meu banco principal ...

Bom dia

Claríssimo ! Já havia perdido o jeito de pensar como computador em que tudo tem que ser extremamente lógico e sem deduções. A coisa é de muita sensibilidade.
Vou partir para refazer uma série de trechos de meus programas com estas informações que vieram a ajudar, tão logo eu tenha um ...

Boa noite

Jairo

interessante sua explanação. Eu na verdade não sou nenhum catedrático em clipper, porém gosto muito de programar com ele, baixei o Harbor, Dizem que é melhor e mais rápido, sei lá, vou esperimentar e estudá-lo.
Agora de volta ao meu prg, não entendi bem sua passagem :

FOR nPos ...

Bom dia

Jairo

A variável nPosition agora ficou mais clara, visto que da forma que estava exemplificada pelo colega Alexandre ela não variava ( coisa que estava me pegando para entender). Porém eu pergunto, esta variável deve ser também definida no inicio da função como local ou não é necessário ...

Bom dia

Para esclarecer melhor, a coisa é assim:

Cinco departamentos técnico enviam mensalmente a coleta de dados para análise estatística na central de operação. Estes dados são coletados através de uma planilha excel que é convertida em um banco de dados utilizado por clipper, que recebe o nome ...

Mestre, Bom dia

Desculpe, mas fiquei travado nesta função aeval(). Já procurei na NET e não encontro exemplos desta função em clipper.
No seu exemplo:
>> AEval( aRecord, { | nVal, nPosition | bdclass->( FieldPut( nPosition, nVal ) ) } )
o nPosittion não ficou claro, veja como ficou meu descritivo ...

Bom dia.

Vou tentar esta sugestão, porém não entendi a passagem que vc menciona, talvez por nunca ter utilizado a função AEVALL(), pode me esclarecer ? :
O que faz esta barra vertical antes do nVal ?
AEval( aRecord, { | nVal, nPosition| bdclass->( FieldPut( nPosition, nVal ) ) } )

Abraços

Boa Noite Pessoal
Boa noite Jairo.

O que estou tentando fazer é simples, porém da maneira que estou fazendo o prg fica longo demais. É assim:
>. Tenho dois bancos de dados, um deles eu chamo de Bdmatriz e o outro de bdClass. O bdMatriz será copiado no bdClass.
O bdMatriz possue 15 campos numéricos ...

Bom dia Pessoal.

Estes dias estava com este mesmo problema para resolver já em um outro sistema que estou desenvolvendo. É uma situação parecida, só que de um Bd para outro, o que difere é que o Primeiro BD com 15 campos( bdMatriz) terá sua imagem passada para o 2o BD com 99 campos (bdClass) porém ...

Bom dia

Observei bem e por de fato não tem sentido mesmo . Dei uma enxugada em várias linhas desnecessárias.
Abraços
Francisco

Bom dia Jairo

Agradeço de pronto sua atenção.
Acatei sua sugestão e não deu mais inconsistência neste parâmetro, compilou certinho, porém veio outras zebras de encontro:
>>> Error C2001 Syntax error: '@' --- >> Refere-se a:
@23,02 say " Selecione com setas e tecle <ENTER>, <ESC> - finaliza ...

Tenho uns programas em clipper que rodam muito bem no meu windows XP e que dá bem para o gasto. Tive estes dias que realizar umas mudanças nos prgs para adequar as novas realidades e necessidades. Mas ai foi onde a coisa pegou. Instalei o CLIPPER 5.3 e o saudoso e inestimável SK2 que na HD, alterei ...

Bom dia.
Pois então, seguindo sua sugestão consegui compor meu BD quase que satisfatotiamente. Digo quase , por um motivo que ainda não entendi.

if fx1<>0 // esta rotina será executada se fx1 # 0
k:=fx1-9 // k assume 9 valores anterioress a fx1
for j:=k to fx1
for r:= 1 to 15 // 15 valores ...

Boa noite.
Bastante sensata sua colocação, vou retificar minhas entradas e nomes de campos, passo a passo e verificarei as suas sugestões e informo o resultado. De pronto, agradeço sua gentileza.