Замена табличных значений текстовым файлом VFP

Вы выполняете цикл SCAN, который подразумевает множество строк из таблицы reciboc. Однако в вашей таблице «re» вы просто продолжаете перезаписывать одну и ту же строку одними и теми же значениями, и если в файле нет записи, у вас все равно ничего не будет. Если вы хотите добавить их, вам нужно добавить их в таблицу «RE».

Теперь еще одно соображение касается столбца «rno». Предполагается ли, что это столбец «ID», например, ваш внешний текстовый файл может иметь обновленные значения для каждого заданного «RNO», и вы хотите обновить, если он еще не существует, или добавить, если он НЕ существует в «re» стол?

ОБНОВЛЕНИЕ для вашего вопроса с тегами и дополнительными уточненными элементами...

Если у вас есть индекс в таблице «RE» в столбце «RNO», отлично. Если нет, и это ключевой столбец, на основе которого вы хотите обновить, я предлагаю создать для него индекс...

В командном окне VFP создайте индекс, чтобы он всегда был доступен.

use RE exclusive
index on RNO tag RNO
use

Теперь, в вашем коде, ПОСЛЕ вашего добавления из разделителя, и ваш курсор подготовлен... Я бы установил связь между живой таблицей и вашим временным курсором и выполнил обновление, например...

выберите индекс reciboc на теге RNO RNO &&, чтобы у курсора тоже был индекс.

выберите RE установить отношение к RNO в RECIBOC

Теперь две таблицы указывают друг на друга для любых записей, совпадающих в каждой таблице. Теперь замените FOR [область]. Из-за связи, поскольку записи циклически повторяются в таблице «RE», они будут указывать на одну и ту же запись RNO в таблице «RECIBOC», если она существует. Таким образом, условие FOR проверяет НЕ EOF() (конец файла = совпадение не найдено в RECIBOC. Таким образом, НЕ EOF() означает, что запись ЕСТЬ.

replace rdata with reciboc.rdata,;
        moeda with reciboc.moeda,;
        no with reciboc.no,;
        nome with reciboc.nome,;
        ccusto with reciboc.ccusto,;
        intid with reciboc.intid,;
        clbanco with reciboc.clbanco,;
        total with reciboc.total,;
        totalmoeda with reciboc.totalmoeda,;
        ndoc with reciboc.ndoc ;
   FOR NOT EOF( "RECIBOC" )

наконец, добавьте любые НОВЫЕ записи "RNO" в таблицу "RE". Получите все записи НЕ в вашей существующей таблице RE на основе сопоставления столбца «RNO».

select * ;
   from RECIBOC ;
   WHERE RNO NOT IN ( select RNO from RE );
   into cursor NewRecordsToAdd readwrite

Теперь добавьте их в таблицу «RE». Поскольку столбцы имеют одно и то же имя, они будут переходить напрямую без явного имени столбца из/в ссылку.

select RE
append from dbf( "NewRecordsToAd" )
use in select( "NewRecordsToAdd" )   

Create Cursor reciboc(rno N(10), rdata d(10), moeda c(3), no N(10), ;
    Nome c(2), ccusto c(20), intid c(10), clbanco c(20), ;
    Total Float(19), totalmoeda Float(19), ndoc N(3))

Append From (m.txtcabecalho) Type Delimited With Blank

Select re
Append from (Dbf('reciboc'))

Выше приведена более короткая версия того, что вы пытаетесь сделать.

В вашем обновлении вы описываете формат данных с фиксированной шириной или то, что известно как формат системных данных (SDF). Тогда не используйте разделители, а SDF в качестве типа:

Create Cursor reciboc(rno C(10), rdata C(10), moeda c(3), no C(10), ;
    Nome c(2), ccusto c(20), intid c(10), clbanco c(20), ;
    Total C(19), totalmoeda C(19), ndoc C(3))

Append From (m.txtcabecalho) Type SDF

alter table reciboc alter column rdata d && convert rdata column to date
* do other needed column type conversions

Select re
Append from (Dbf('reciboc'))

Размеры, которые вы используете при создании курсора, должны соответствовать размерам столбцов данных в текстовом файле. После получения всех данных в виде текста измените столбцы, чтобы они соответствовали типам данных (я предположил, что ваши размеры были правильными) - d (10) не имело смысла, а float никогда не предлагался. тип.

PS: Если вы можете найти FoxyClasses, то в нем есть класс импортера, который выполняет большую часть работы за вас (к сожалению, я потерял сервер, на котором обслуживал загрузку). Вы можете прочитать подробности в его файле chm, если сможете найти.

У меня работает ровно 9 пробелов до 2:

Create Cursor reciboc(rno C(10), rdata C(10), moeda c(3), no C(10), ;
    Nome c(2), ccusto c(20), intid c(10), clbanco c(20), ;
    Total C(19), totalmoeda C(19), ndoc C(3))

Append From (m.txtcabecalho) Type SDF
browse title "Before data type change"

Set Date YMD
Set Century ON

alter table reciboc alter column rdata d && convert rdata column to date
browse title "After date type change"

В случае SDF имейте в виду, что позиции в текстовом файле определяют ширину полей.