Форум

Рекомендуем сделать резервную копию и запустить режим восстановления в Имуществе.
Имущество - Настройка приложения - Восстановление целостности данных - Восстановление СПИ в ведомостях амортизации и карточках.
Данная процедура проверяет наличие строк в строках ведомостей и восстанавливает информацию в карточках имущества.
Вам должно как раз помочь.

Цитата

ВАЛЕРИЙ БОНДАРЧУК пишет: Цитата Роман Монахов пишет: Сейчас на сайте разработчика уже версия 1.7.3 Но с БЭСТ 5 она у меня не запускается - при входе в программу пишет такое сообщение, как на прикрепленной картинке. А затем не показывает предприятие, хотя в настройке всё указано правильно и вин-кодировка. С чем может связана эта ошибка? Я вообще пытался подключать БЭСТ 5 на нескольких компьютерах к Акту сверки - везде одна и та же ошибка. Видимо я что-то делаю не так. Подключал К БЭСТ-4плюс, точно такая же ошибка. Оказалось проблема в Установке Поставил Кодировка таблиц БЭСТ4. все заработало. Попробуйте переключать эти кнопки. Может быть проблема в этом.

Я специально проверил ещё раз - с БЭСТ 4+ эта версия акта работает, а вот только подключаю базу БЭСТ 5, версия 3.4 сп28 - выдает вышеуказанную ошибку.

Сейчас на сайте разработчика уже версия 1.7.3
Но с БЭСТ 5 она у меня не запускается - при входе в программу пишет такое сообщение, как на прикрепленной картинке. А затем не показывает предприятие, хотя в настройке всё указано правильно и вин-кодировка.
С чем может связана эта ошибка?
Я вообще пытался подключать БЭСТ 5 на нескольких компьютерах к Акту сверки - везде одна и та же ошибка.
Видимо я что-то делаю не так.

Спасибо за быстрый ответ.
Плагин я всё же написал - работает.

Цитата

Local cFilepricep Local cPath:="C:\TEMP\" Local cMask:="*.dbf" Local aFileFilter:={{"Базы данных","*.dbf"}} Local cFilename:="pricep.dbf" Local cMess:="Выбор файла pricep.dbf" cFilepricep:=PopFile(,cPath,cMask,cMess,aFileFilter) //ищем где находится файл If Empty(cFilepricep) SayAndWait("Не выбран файл") Else SayAndWait(cFilepricep) EndIf aSet:=SaveSet() aRDD:=SetSix() NETUSE("pricep",cPath+cFilename,,.T.) //открываем pricep.dbf ORDCREATE(LEFT(cPath+cFilename,LEN(cPath+cFilename)-3)+"CDX",,"UPPER(GRUP+NNUM+CODE)",{||UPPER(GRUP+NNUM+CODE)},) //делаем индекс для поиска SetSix(aRDD) DBPUSH("SPR_PART","TAG_NUM","") NETUSE("SPR_PART",'SCLAD\SPR_PART.DBF',,.T.) //открываем справочник партий БЭСТа SPR_PART->(ordSetFocus('TAG_NUM')) // выбираем сортировку по GRUP+NNUM+CODE //Go top PRIVATE A1,nProcess F_SETRELATION("pricep","UPPER(GRUP+NNUM+CODE)") DBGOTOP() A1:=1 //ПЕРЕБИРАЕМ ВСЕ КАРТОЧКИ ПАРТИЙ nProcess:=Proces_Ini(LASTREC(),,,"Заполнение новых цен по карточкам партий") DO WHILE !EOF() SPR_PART->(RECLOCK()) SPR_PART->OCENA1 := pricep->C1 SPR_PART->OCENA2 := pricep->C2 SPR_PART->OCENA3 := pricep->C3 SPR_PART->OCENA4 := pricep->C4 SPR_PART->VCENA1 := pricep->V1 SPR_PART->VCENA2 := pricep->V2 SPR_PART->VCENA3 := pricep->V3 SPR_PART->VCENA4 := pricep->V4 SPR_PART->ATTRIB1 := pricep->A1 SPR_PART->ATTRIB2 := pricep->A2 SPR_PART->GTD := pricep->GTD SPR_PART->SERTIFICAT := pricep->SERTN SPR_PART->(F_DBUNLOCK()) DBSKIP() A1:=A1+1 ENDDO Proces_End(nProcess) //ВОССТАНАВЛИВАЕМ ИСХОДНОЕ СОСТОЯНИЕ ДО ВЫЗОВА РЕЖИМА DBPOP() RestSet(aSet)

Тоже с такой ситуацией разбираюсь - не получается связать внешний файл с DOS-кодировкой с таблицей БЭСТ 5 версии 3.4 - ошибку выдает - на открытие файла - пробовал несколько вариантов - не получается
ниже привожу "текущий" вариант плагина:

Цитата

Local cFilepricep Local cPath:="c:\" Local cMask:="*.dbf" Local aFileFilter:={{"Базы данных","*.dbf"}} Local cFilename:="pricep.dbf" Local cMess:="Выбор файла pricep.dbf" cFilepricep:=PopFile(,cPath,cMask,cMess,aFileFilter) //ищем где находится файл If Empty(cFilepricep) SayAndWait("Не выбран файл") Else SayAndWait(cFilepricep) EndIf Use (Loadpath()+"SPR_PART.dbf") Index('SPR_PART.cdx') New Alias SPR_PART shared//открываем справочник банков БЭСТа SPR_PART->(ordSetFocus('TAG_NUM')) // выбираем сортировку по GRUP+NNUM+CODE Go top aRDD:=SetSix() DbUseArea(.T.,,(cFilepricep),"pricep",.t.,.F.,) //открываем pricep.dbf Index On "GRUP+NNUM+CODE" tag TAG_NUM To "pricep.cdx" //делаем индекс для поиска //PRIVATE A1 //IF NNUMBER=1 //Local aBases := { {"V_SPR_PART", m->B6_DBF_PATH+"SPR_PART"} } //Local cAlias := ALIAS() //Local cOSPRPath := "C:\TEMP\pricep.dbf" // Local cOSPRIDX //cOSPRIDX := LEFT(cOSPRPath,LEN(cOSPRPath)-3)+"IDX" //NetUse("pricep", cOSPRPath) //pricep->(CreateFilter(".T.","pricep","UPPER(GRUP+NNUM+CODE)","KEY1",@cOSPRIDX)) //pricep->(OrdSetFocus("KEY1")) //DBPUSH("SPR_PART","TAG_NUM","",{}) //УСТАНАВЛИВАЕМ СВЯЗЬ СТРОК MDOCM СО СПРАВОЧНИКОМ ПАРТИЙ //SPR_PART->(ORDSETFOCUS("TAG_NUM")) //F_SETRELATION("SPR_PART","UPPER(GRUP+NNUM+CODE)") DBGOTOP() //ПЕРЕБИРАЕМ ВСЕ КАРТОЧКИ ПАРТИЙ DO WHILE !EOF() SPR_PART->OCENA1 := pricep->C1 SPR_PART->OCENA2 := pricep->C2 SPR_PART->OCENA3 := pricep->C3 SPR_PART->OCENA4 := pricep->C4 SPR_PART->VCENA1 := pricep->V1 SPR_PART->VCENA2 := pricep->V2 SPR_PART->VCENA3 := pricep->V3 SPR_PART->VCENA4 := pricep->V4 ENDDO //ВОССТАНАВЛИВАЕМ ИСХОДНОЕ СОСТОЯНИЕ ДО ВЫЗОВА РЕЖИМА DBPOP() SetSix(aRDD) //ENDIF //A1:=1

основная цель этого - нужно цены затащить из внешнего файла в Б5 3.4, причем GRUP+NNUM+CODE этого файла - соответствуют SPR_PART.
Может есть ещё какой вариант решения этой проблемы.

P.S. Как жаль, что до сих пор нет в БЭСТ 5 в.3.4 универсального режима экспорта-импорта, который есть в БЭСТ 4+ и в БЭСТ 5 в.3.3.
Текущий вариант у клиента решался в БЭСТ 4+ через Режимы пользователя в Модуле обмена данными.