Replace <variavel> with Calculo
Enviado: 30 Ago 2007 11:55
Prezados,
Estou querendo fazer um replace so que invéz de informar o campo que receberá o valor, quero que pegue o campo de uma variavel.
Tenho duas tabelas com as seguintes estrutura:
Eu recebo um arquivo com os dados em colunas espessificas. Cada linha contem as informações sobre o ID, CPF e Nome.
Itentificação fica da 1ª até 6ª coluna , o cpf da 7ª até a 17ª coluna, o nome da 18ª até a 68ª coluna.
Na tabela TabCampos eu tenho dados referentes ao layout do arquivo a ser importado e quero gravar estes dados na taleba TabDados, então estou fazendo da seguinte maneira:
Então quando rodo ocorre erro Base 1003 - Variável não existe.
Agradeço a atenção de todos.
Que Deus continue nos abençoando.
Estou querendo fazer um replace so que invéz de informar o campo que receberá o valor, quero que pegue o campo de uma variavel.
Tenho duas tabelas com as seguintes estrutura:
Código: Selecionar todos
TabCampos
---------
ID Numerico 6
Campo Caracter 10
Tamanho Numerico 3
Coluna Numerico 3
TabDados
--------
ID Numerico 6
CPF Caracter 11
NOME Caracter 50
Itentificação fica da 1ª até 6ª coluna , o cpf da 7ª até a 17ª coluna, o nome da 18ª até a 68ª coluna.
Na tabela TabCampos eu tenho dados referentes ao layout do arquivo a ser importado e quero gravar estes dados na taleba TabDados, então estou fazendo da seguinte maneira:
Código: Selecionar todos
dbSelectArea("TABCAMPOS")
while !eof()
cCampo = CAMPO //Aki vou pegar o nome do campo
dbSelectArea("TABDADOS")
//Faço um Lock no arquivo
Applend()
//Faço um Lock no Registro
replace cCampo with SubStr(cLinhaLida, TABCAMPOS->COLUNA, TABCAMPOS->TAMANHO) //Essa linha não funciona.
dbSelectArea("TABCAMPOS")
dbSkip(1)
enddo
Agradeço a atenção de todos.
Que Deus continue nos abençoando.
