| View previous topic :: View next topic |
| Author |
Message |
Jura01
Joined: 21 Apr 2003
Posts: 68
Location: Исаев Юрий
Interests: Москва
|
 Posted: 15 Dec 2005 16:48 Post subject: Обмен данными не получается |
 |
|
Сделал следующие.
1. Скопировал базы MDOC и MDOCM отдельную папку.
2. Средствами access 97 оставил необходимую информацию (накладные за тек. день, всем складам дал один номер)
3. Добавил эти данные в файлы _doc и _docm.
4. Заархивировал.
5. Попытался принять в другой базе штатными средствами - "прием документов с удаленного склада" - Бэст пишет: нет данных.
6. Группы и номенклатура - одинаковая.
Хотелось бы услышать подсказку.
Если воспользоваться штатными средствами выдачи,а потом принять, то Бэст принимает, но при входе в систему этих накладных не видно. Видимо из-за разности в номерах складов. Если открыть базы mdoc и mdocm то принятые данные видим. Т.е. просто штатными средствами этот номер не проходи |
|
| Back to top |
|
 |
Олег Смирнов
Joined: 06 Sep 2004
Posts: 821
Location: Олег Смирнов
Occupation: Раут (поганист-сисадмин)
Interests: Новосибирск
|
| Posted: 15 Dec 2005 16:54 Post subject: Re: Обмен данными не получается |
|
|
| Jura01 wrote: | | Если воспользоваться штатными средствами выдачи,а потом принять, то Бэст принимает, но при входе в систему этих накладных не видно. Видимо из-за разности в номерах складов. |
А если, положим, распаковать данные, приготовленные БЭСТом, заменить номера складов и снова запаковать, как оно и былО?..
_________________
С уважением, Олег Р. Смирн |
|
| Back to top |
|
|
euch26
Joined: 23 Sep 2003
Posts: 68
Location: Евгений Чистяков
Interests: Санкт-Петербург
|
| Posted: 15 Dec 2005 17:02 Post subject: Re: Обмен данными не получается |
|
|
Может что-то и поможет:
1. Проверить правильность путей в архиве: архивироваться должна папка TMP. а файлы уже в ней.
2. Я всё-таки после Acces-а провожу реиндексацию и упаковку полученных файлов.
3. Проверить настройку на удалённый склад в принимающей базе. - прописать состав филиала. |
|
| Back to top |
|
|
Jura01
Joined: 21 Apr 2003
Posts: 68
Location: Исаев Юрий
Interests: Москва
|
| Posted: 15 Dec 2005 17:56 Post subject: |
|
|
Один раз так и сделал. Выдал документы за один день штатными средствами. Далее поменял склады на 000001. Заархивировал - опять нет документов. В приемной базе: № филиала 000001, № состав филиала - 000001. В выдающей базе: № филиала 000001, № состав филиала 000015,000016,000017. Видимо закавырка где-то здесь.
Если документы принять штатными средствами, то индексироваться не надо.
Пересчитывать остатки в картотеке не надо.
А пробивать проводки при любом раскладе нужно. |
|
| Back to top |
|
|
euch26
Joined: 23 Sep 2003
Posts: 68
Location: Евгений Чистяков
Interests: Санкт-Петербург
|
| Posted: 15 Dec 2005 18:43 Post subject: |
|
|
| Поробуйте в принимающей базе временно, чтоб проверить соответствие настроек и пр., завести склады 000015 и т.д. как в выдающей. Если приём неисправленных документов на них пройдет штатными средствами, то уже смотреть дальше - что не так исправлям... |
|
| Back to top |
|
|
Яков
Joined: 04 Mar 2002
Posts: 618
Location: Яков
Occupation: Экстремальная терапия бизнеса
Interests: Владивосток
|
| Posted: 16 Dec 2005 02:48 Post subject: Re: Обмен данными не получается |
|
|
| 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 |
|
|
Яков
Joined: 04 Mar 2002
Posts: 618
Location: Яков
Occupation: Экстремальная терапия бизнеса
Interests: Владивосток
|
| Posted: 16 Dec 2005 02:56 Post subject: |
|
|
А я своим делаю так
Только для 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 |
|
|
Jura01
Joined: 21 Apr 2003
Posts: 68
Location: Исаев Юрий
Interests: Москва
|
| Posted: 16 Dec 2005 15:54 Post subject: |
|
|
Спасибо всем за отклик.
Решил все делать средствами A"97, в том числе и добавление расх. накладных в приемную базу. После этого индексация и пересчет кол-ва в картотеке.
В понедельник посмотрю результат. |
|
| Back to top |
|
|
Jura01
Joined: 21 Apr 2003
Posts: 68
Location: Исаев Юрий
Interests: Москва
|
| Posted: 23 Dec 2005 13:39 Post subject: |
|
|
Похвастаться пока не чем.
Накладные в Бэст переносятся. Но ...
1.Никаким образом автоматически не формируются проводки.
2.Открываю накладную и не вижу в шапке поле кода аналитики клиента, хотя и в MDOC и в MDOCM этот код присутствует.
Вот такие дела, продолжаю мучится дальш |
|
| Back to top |
|
|
Олег Смирнов
Joined: 06 Sep 2004
Posts: 821
Location: Олег Смирнов
Occupation: Раут (поганист-сисадмин)
Interests: Новосибирск
|
| Posted: 23 Dec 2005 17:02 Post subject: |
|
|
| Jura01 wrote: | | 1.Никаким образом автоматически не формируются проводки. |
Ручная генерация проводок за период не помогает? Раз уже всё равно остатки пересчитывать...
| Jura01 wrote: | | 2.Открываю накладную и не вижу в шапке поле кода аналитики клиента, хотя и в MDOC и в MDOCM этот код присутствует. |
А поля SCHET_A, SCHET_R соответствуют принимающей базе? А соответствующие коды аналитики по этим счетам в принимающей базе имеются?
_________________
С уважением, Олег Р. Смирн |
|
| Back to top |
|
|
euch26
Joined: 23 Sep 2003
Posts: 68
Location: Евгений Чистяков
Interests: Санкт-Петербург
|
| Posted: 23 Dec 2005 17:11 Post subject: |
|
|
| Jura01 wrote: | Похвастаться пока не чем.
Накладные в Бэст переносятся. Но ...
1.Никаким образом автоматически не формируются проводки.
2.Открываю накладную и не вижу в шапке поле кода аналитики клиента, хотя и в MDOC и в MDOCM этот код присутствует.
Вот такие дела, продолжаю мучится дальше. |
Надо один раз вручную приколотить клиента. Соответствие м/у уд. сладом и центр.комплексом пропишется в sclad\mpartner.dbf |
|
| Back to top |
|
|
Jura01
Joined: 21 Apr 2003
Posts: 68
Location: Исаев Юрий
Interests: Москва
|
| Posted: 23 Dec 2005 17:37 Post subject: |
|
|
Получилось, то что не получалось неделю назад:
1.Выдал документы Бэстом.
2.Разархивировал.
3.Поменял в _doc и _docm склад, тип. операцию
4.Заархивировал в папке TMP.
5.Принял документы и они принялись корректно.
Но это не вариант. Хочется с утра прийти, а у тебя уже все оприходовано.
Работаю дальш |
|
| Back to top |
|
|
Олег Смирнов
Joined: 06 Sep 2004
Posts: 821
Location: Олег Смирнов
Occupation: Раут (поганист-сисадмин)
Interests: Новосибирск
|
| Posted: 24 Dec 2005 20:21 Post subject: |
|
|
| Jura01 wrote: | | Но это не вариант. |
В каком месте это не вариант?.. Не умеешь распаковать/запаковать из командной строки - так это твои проблемы.
_________________
С уважением, Олег Р. Смирн |
|
| Back to top |
|
|
maestro_
Joined: 29 Jan 2003
Posts: 95
|
| Posted: 24 Dec 2005 23:26 Post subject: |
|
|
Здраствуйте!
//делаем что хотим
пишем свой код, и подцепляем обработку
| 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 |
|
|
|
|
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
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
