Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Обмен данными не получается

 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> БЭСТ-4
View previous topic :: View next topic  
Author Message
Jura01



Joined: 21 Apr 2003
Posts: 68
Location: Исаев Юрий

Interests: Москва
PostPosted: 15 Dec 2005 16:48    Post subject: Обмен данными не получается Reply with quote
Сделал следующие.
1. Скопировал базы MDOC и MDOCM отдельную папку.
2. Средствами access 97 оставил необходимую информацию (накладные за тек. день, всем складам дал один номер)
3. Добавил эти данные в файлы _doc и _docm.
4. Заархивировал.
5. Попытался принять в другой базе штатными средствами - "прием документов с удаленного склада" - Бэст пишет: нет данных.
6. Группы и номенклатура - одинаковая.
Хотелось бы услышать подсказку.

Если воспользоваться штатными средствами выдачи,а потом принять, то Бэст принимает, но при входе в систему этих накладных не видно. Видимо из-за разности в номерах складов. Если открыть базы mdoc и mdocm то принятые данные видим. Т.е. просто штатными средствами этот номер не проходи
Back to top
View user's profile Send private message
Олег Смирнов



Joined: 06 Sep 2004
Posts: 821
Location: Олег Смирнов
Occupation: Раут (поганист-сисадмин)
Interests: Новосибирск
PostPosted: 15 Dec 2005 16:54    Post subject: Re: Обмен данными не получается Reply with quote
Jura01 wrote:
Если воспользоваться штатными средствами выдачи,а потом принять, то Бэст принимает, но при входе в систему этих накладных не видно. Видимо из-за разности в номерах складов.

А если, положим, распаковать данные, приготовленные БЭСТом, заменить номера складов и снова запаковать, как оно и былО?..
_________________
С уважением, Олег Р. Смирн
Back to top
View user's profile Send private message
euch26



Joined: 23 Sep 2003
Posts: 68
Location: Евгений Чистяков

Interests: Санкт-Петербург
PostPosted: 15 Dec 2005 17:02    Post subject: Re: Обмен данными не получается Reply with quote
Может что-то и поможет:
1. Проверить правильность путей в архиве: архивироваться должна папка TMP. а файлы уже в ней.
2. Я всё-таки после Acces-а провожу реиндексацию и упаковку полученных файлов.
3. Проверить настройку на удалённый склад в принимающей базе. - прописать состав филиала.
Back to top
View user's profile Send private message
Jura01



Joined: 21 Apr 2003
Posts: 68
Location: Исаев Юрий

Interests: Москва
PostPosted: 15 Dec 2005 17:56    Post subject: Reply with quote
Один раз так и сделал. Выдал документы за один день штатными средствами. Далее поменял склады на 000001. Заархивировал - опять нет документов. В приемной базе: № филиала 000001, № состав филиала - 000001. В выдающей базе: № филиала 000001, № состав филиала 000015,000016,000017. Видимо закавырка где-то здесь.

Если документы принять штатными средствами, то индексироваться не надо.
Пересчитывать остатки в картотеке не надо.

А пробивать проводки при любом раскладе нужно.
Back to top
View user's profile Send private message
euch26



Joined: 23 Sep 2003
Posts: 68
Location: Евгений Чистяков

Interests: Санкт-Петербург
PostPosted: 15 Dec 2005 18:43    Post subject: Reply with quote
Поробуйте в принимающей базе временно, чтоб проверить соответствие настроек и пр., завести склады 000015 и т.д. как в выдающей. Если приём неисправленных документов на них пройдет штатными средствами, то уже смотреть дальше - что не так исправлям...
Back to top
View user's profile Send private message
Яков



Joined: 04 Mar 2002
Posts: 618
Location: Яков
Occupation: Экстремальная терапия бизнеса
Interests: Владивосток
PostPosted: 16 Dec 2005 02:48    Post subject: Re: Обмен данными не получается Reply with quote
Jura01 wrote:
Средствами access 97 оставил необходимую информацию (накладные за тек. день, всем складам дал один номер)

1. access 97 и DBF не есть хорошо.
2. Напиши что именно делаешь.
replace all _doc.SCLAD with "000001" недостаточно
надо еще
replace all _docМ.SCLAD with "000001"
Если версия меньше 12 То надо обязательно проиндексировать _doc*.
Олег Смирнов wrote:
А если, положим, распаковать данные, приготовленные БЭСТом, заменить номера складов и снова запаковать, как оно и былО?..

Здравая мысль.

Last edited by Яков on 16 Dec 2005 08:52; edited 3 times in total
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Яков



Joined: 04 Mar 2002
Posts: 618
Location: Яков
Occupation: Экстремальная терапия бизнеса
Interests: Владивосток
PostPosted: 16 Dec 2005 02:56    Post subject: Reply with quote
А я своим делаю так
Только для 12 версии надо убрать индексирование

Задача: Все документы по складу за один день сгруппировать в один документ.
Code:
USE _DOC.DBF in 1

SELECT _DOC.VID, _DOC.TYPE, _DOC.SCLAD, _DOC.CODEDOC, _DOC.NUMDOC,;
  _DOC.CODEOPER, _DOC.DATE, _DOC.DATE1, _DOC.CODEDOC1, _DOC.NUMDOC1,;
  _DOC.SCHET_A, _DOC.SCHET_R, _DOC.AGENTNAME, _DOC.AGENTCODE, _DOC.AGENTNAM1,;
  _DOC.AGENTCOD1, _DOC.DOPCODE, _DOC.PRIM, _DOC.CODECEN, SUM(_DOC.KOLPOS) as kolpos,;
  SUM(_DOC.SUMOUT) as sumout, SUM(_DOC.SUMMA) as summa, SUM(_DOC.SUMOUTR) as sumoutr, _DOC.CODEVAL,;
  _DOC.CENAVAL, _DOC.PRO, _DOC.INPUT, _DOC.INPUT1, _DOC.TZR1, _DOC.TZR2,;
  _DOC.TZR3, _DOC.SUMMA0, _DOC.PAYTYPE, _DOC.PARTCODE, _DOC.ERR, _DOC.SCLADS,;
  _DOC.TSUM, _DOC.TSUM1, _DOC.TSUM2, _DOC.TSUM3, _DOC.DATE0, _DOC.OPER_FACT,;
  _DOC.L_NDS, _DOC.L_ACZ, _DOC.MODEL, _DOC.SUM_NDS, _DOC.SUM_ACZ, _DOC.ARXIV,;
  _DOC.STATUS_F, SUM(_DOC.SUMR) as sumr, _DOC.L_CSH, _DOC.SUM_CSH, _DOC.ID_REG,;
  _DOC.CRYPT_CODE, _DOC.ID_ST, _DOC.USER_CODE;
 FROM _DOC;
 GROUP BY _DOC.VID, _DOC.TYPE, _DOC.SCLAD, _DOC.CODEDOC, _DOC.CODEOPER,;
  _DOC.DATE;
 INTO TABLE DOC71.DBF

REPLACE ALL doc71.numdoc with ("05"+str(month(doc71.date),2,0)+str(day(doc71.date),2,0))


SELECT 1
zap
APPEND FROM doc71.dbf
PACK
close database

USE _DOCm.DBF in 2
select 2

SELECT _DOCM.VID, _DOCM.TYPE, _DOCM.SCLAD, _DOCM.CODEDOC, _DOCM.NUMDOC,;
  _DOCM.SCHET_A, _DOCM.AGENTCODE, _DOCM.SCHET_R, _DOCM.AGENTCOD1,;
  _DOCM.CODEOPER, _DOCM.CODEVAL, _DOCM.GRUP, _DOCM.NNUM, SUM(_DOCM.KOL) as kol, SUM(_DOCM.SUM) as sum,;
  SUM(_DOCM.KOLOUT) as kolout, _DOCM.CENAOUT, SUM(_DOCM.SUMOUT) as sumout, SUM(_DOCM.SUMOUTR) as sumoutr, SUM(_DOCM.SUMFACT) as sumfact,;
  _DOCM.ED1, _DOCM.ED2, _DOCM.DATE, _DOCM.SCHET, _DOCM.DOPCODE, _DOCM.IZNOS,;
  _DOCM.PERIOD, _DOCM.KOL1, _DOCM.KOL0, _DOCM.SUM0, _DOCM.NDS, _DOCM.SFN,;
  _DOCM.CSH, _DOCM.PA, _DOCM.TP, _DOCM.TN, _DOCM.EU, _DOCM.DOP1, _DOCM.DOP2,;
  _DOCM.DOP3, _DOCM.INPUT, _DOCM.INPUT1, _DOCM.TZR1M, _DOCM.TZR2M, _DOCM.TZR3M,;
  _DOCM.PP1, _DOCM.PP2, _DOCM.R, _DOCM.PARTCODE, _DOCM.KOL2, _DOCM.CODEDOC1,;
  _DOCM.NUMDOC1, _DOCM.SCLAD1, _DOCM.DATE1, _DOCM.PARTIA, _DOCM.KOLNED,;
  _DOCM.KOLBR, _DOCM.OPER_FACT, _DOCM.SUM_NDS, _DOCM.SUM_ACZ, _DOCM.SUM_CSH,;
  _DOCM.DELETE, _DOCM.ARXIV, _DOCM.CENA0, _DOCM.STATUS, _DOCM.ID_ST,;
  _DOCM.USER_CODE;
 FROM _DOCM;
 WHERE _DOCM.CODEOPER = "  71";
 GROUP BY _DOCM.VID, _DOCM.TYPE, _DOCM.SCLAD, _DOCM.CODEDOC,;
  _DOCM.CODEOPER, _DOCM.DATE, _DOCM.GRUP, _DOCM.NNUM, _DOCM.CENAOUT;
 INTO TABLE DOCM71.DBF

REPLACE ALL docm71.numdoc with ("05"+str(month(docm71.date),2,0)+str(day(docm71.date),2,0))

SELECT 2
zap
APPEND FROM docm71.dbf
PACK
close all

USE _DOCm.DBF  in 1
SET INDEX TO _DOCm.IDX
REINDEX

close all

USE _DOC.DBF in 1
SET INDEX TO _DOC.IDX
REINDEX

CLOSE ALL
quit
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Jura01



Joined: 21 Apr 2003
Posts: 68
Location: Исаев Юрий

Interests: Москва
PostPosted: 16 Dec 2005 15:54    Post subject: Reply with quote
Спасибо всем за отклик.
Решил все делать средствами A"97, в том числе и добавление расх. накладных в приемную базу. После этого индексация и пересчет кол-ва в картотеке.
В понедельник посмотрю результат.
Back to top
View user's profile Send private message
Jura01



Joined: 21 Apr 2003
Posts: 68
Location: Исаев Юрий

Interests: Москва
PostPosted: 23 Dec 2005 13:39    Post subject: Reply with quote
Похвастаться пока не чем.
Накладные в Бэст переносятся. Но ...
1.Никаким образом автоматически не формируются проводки.
2.Открываю накладную и не вижу в шапке поле кода аналитики клиента, хотя и в MDOC и в MDOCM этот код присутствует.

Вот такие дела, продолжаю мучится дальш
Back to top
View user's profile Send private message
Олег Смирнов



Joined: 06 Sep 2004
Posts: 821
Location: Олег Смирнов
Occupation: Раут (поганист-сисадмин)
Interests: Новосибирск
PostPosted: 23 Dec 2005 17:02    Post subject: Reply with quote
Jura01 wrote:
1.Никаким образом автоматически не формируются проводки.

Ручная генерация проводок за период не помогает? Раз уже всё равно остатки пересчитывать...
Jura01 wrote:
2.Открываю накладную и не вижу в шапке поле кода аналитики клиента, хотя и в MDOC и в MDOCM этот код присутствует.

А поля SCHET_A, SCHET_R соответствуют принимающей базе? А соответствующие коды аналитики по этим счетам в принимающей базе имеются?
_________________
С уважением, Олег Р. Смирн
Back to top
View user's profile Send private message
euch26



Joined: 23 Sep 2003
Posts: 68
Location: Евгений Чистяков

Interests: Санкт-Петербург
PostPosted: 23 Dec 2005 17:11    Post subject: Reply with quote
Jura01 wrote:
Похвастаться пока не чем.
Накладные в Бэст переносятся. Но ...
1.Никаким образом автоматически не формируются проводки.
2.Открываю накладную и не вижу в шапке поле кода аналитики клиента, хотя и в MDOC и в MDOCM этот код присутствует.

Вот такие дела, продолжаю мучится дальше.


Надо один раз вручную приколотить клиента. Соответствие м/у уд. сладом и центр.комплексом пропишется в sclad\mpartner.dbf
Back to top
View user's profile Send private message
Jura01



Joined: 21 Apr 2003
Posts: 68
Location: Исаев Юрий

Interests: Москва
PostPosted: 23 Dec 2005 17:37    Post subject: Reply with quote
Получилось, то что не получалось неделю назад:
1.Выдал документы Бэстом.
2.Разархивировал.
3.Поменял в _doc и _docm склад, тип. операцию
4.Заархивировал в папке TMP.
5.Принял документы и они принялись корректно.

Но это не вариант. Хочется с утра прийти, а у тебя уже все оприходовано.

Работаю дальш
Back to top
View user's profile Send private message
Олег Смирнов



Joined: 06 Sep 2004
Posts: 821
Location: Олег Смирнов
Occupation: Раут (поганист-сисадмин)
Interests: Новосибирск
PostPosted: 24 Dec 2005 20:21    Post subject: Reply with quote
Jura01 wrote:
Но это не вариант.

В каком месте это не вариант?.. Не умеешь распаковать/запаковать из командной строки - так это твои проблемы.
_________________
С уважением, Олег Р. Смирн
Back to top
View user's profile Send private message
maestro_



Joined: 29 Jan 2003
Posts: 95
PostPosted: 24 Dec 2005 23:26    Post subject: Reply with quote
Здраствуйте!

//делаем что хотим
пишем свой код, и подцепляем обработку

Code:
Private aFile, aMenu, nPos, file, nFields,sv_scr
aFile:=directory("a:\*.*","D")
aMenu:={}
setcolor("RG+/b,w+/n")
aEval(aFile,{|file|aadd(aMenu,file[1])})
ShadowBox('Выберите файл', 6, 19, 16, 34)
nPos:=ACHOICE(7,20,15,33,aMenu,.T.)
// распаковать
if upper(token(aMenu[nPos],".",2))='RAR'
CWSWAP("UTIL\rar.exe x a:\"+aMenu[nPos])
else
CWSWAP("UTIL\acl32.exe x a:\"+aMenu[nPos])
endif
restscreen(2,0,23,79,sv_scr)
//делаем что хотим
// пакуем
if upper(token(aMenu[nPos],".",2))='RAR'
cwswap("util\rar.exe a -r -y a:\" +aMenu[nPos]+" tmp\*.*")
else
cwswap("util\acl32.exe a -r -y a:\" +aMenu[nPos]+" tmp\*.*")
endif
restscreen(2,0,23,79,sv_scr)



удач
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> БЭСТ-4 All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru