Итак: 1с -> DBF -> Тестирование и исправление
...
ти внутреннего идентификатора в справочнике. Вводы. Элемент 1(Горького, 139 маг. Автомир). Вн. идентификатор 0 . Исправить вручную;;
...

все кривые ID заменены на "0"
Из DD(s) находим что вводы таблица sc45084

Visual FoxPro

USE SC45084 ALIAS VVODS IN 0 SHARED ORDER TAG IDD OF SC45084
SELECT ID FROM VVODS ORDER BY ID INTO CURSOR VVFORSEA
SELECT RECNO() AS NREC FROM VVODS WHERE ALLTRIM(ID)="0" INTO CURSOR IDRECN
SELECT IDRECN
SCAN
SELECT VVODS
GO IDRECN.NREC
REPLACE ID WITH UNICID()
SELECT ID FROM VVODS ORDER BY ID INTO CURSOR VVFORSEA
SELECT IDRECN
ENDSCAN

FUNCTION UNICID
SEL = SELECT()
SELECT VVFORSEA
GO BOTTOM
ENDUNIC = RTRIM(VVFORSEA.ID)
ABCDEF = "123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
KOLVS = LEN(ABCDEF)
NOMPOSSIM = ATC(SUBSTR(ENDUNIC,6,1),ABCDEF)
IF NOMPOSSIM+1 <= KOLVS
UNICID = SUBSTR(ENDUNIC,1,5)+SUBSTR(ABCDEF,NOMPOSSIM+1,1)
ELSE
NOMPOSSIM = ATC(SUBSTR(ENDUNIC,5,1),ABCDEF)
IF NOMPOSSIM+1 <= KOLVS
UNICID = SUBSTR(ENDUNIC,1,4)+SUBSTR(ABCDEF,NOMPOSSIM+1,1)+SUBSTR(ABCDEF,1,1)
ELSE
NOMPOSSIM = ATC(SUBSTR(ENDUNIC,4,1),ABCDEF)
IF NOMPOSSIM+1 <= KOLVS
UNICID = SUBSTR(ENDUNIC,1,3)+SUBSTR(ABCDEF,NOMPOSSIM+1,1)+SUBSTR(ABCDEF,1,1)+SUBSTR(ABCDEF,1,1)
ELSE
NOMPOSSIM = ATC(SUBSTR(ENDUNIC,3,1),ABCDEF)
IF NOMPOSSIM+1 <= KOLVS
UNICID = SUBSTR(ENDUNIC,1,2)+SUBSTR(ABCDEF,NOMPOSSIM+1,1)+SUBSTR(ABCDEF,1,1)+SUBSTR(ABCDEF,1,1)+SUBSTR(ABCDEF,1,1)
ELSE
ENDIF
ENDIF
ENDIF
ENDIF
SELECT ID FROM VVFORSEA WHERE ALLTRIM(ID)=UNICID INTO CURSOR NOTUNIC
KOL = RECCOUNT("NOTUNIC")
IF KOL = 0
SELECT(SEL)
RETURN UNICID
ELSE
SELECT(SEL)
RETURN "NotUni"
ENDIF
SELECT(SEL)
RETURN ""
ENDFUNC

Запускаю после изготовления архива и соответственно без пользователей
Готово.
Богу спасибо, все свободны.