| View previous topic :: View next topic |
| Author |
Message |
Zwezda
Joined: 04 Oct 2007
Posts: 3
Location: Светлана
Occupation: IT-специалист
Interests: Владивосток
|
 Posted: 16 Oct 2007 06:52 Post subject: Модуль"Мобильная торговля" |
 |
|
В функции GetInvoice (Мобильная торговля\Функции интеграции) мне не понятно, что выполняется в строках:
cAgentScl:=GetAgentSclad(ansitooem(rtrim(RS:fields(7):value)))
...
oDoc:=OInvoice():New(cAgentScl,RS:fields(8):value,ansitooem(rtrim(RS:fields(3):value)))
Функция предназначена для импорта накладных, но необходима ее доработка, чтобы накладные формировались из заказов. Данное требование возникло вследствие того, что в Оптимуме при формировании накладной на КПК отсутствует возможность включения в документ товаров, которых нет на складе. Т.е. заказы, сформированные в Оптимуме будут импортироваться в БЭСТ в виде накладных.
Может кто-нибудь сталкивался с подобной ситуацией? |
|
| Back to top |
|
 |
shura_k
Joined: 10 Oct 2003
Posts: 342
Location: Александр
Occupation: Специалист
Interests: Калининград
|
| Posted: 16 Oct 2007 11:26 Post subject: |
|
|
Что-то тут не то.
Лучьше не заморачиваться и руками делать из заказов накладные в Бэсте.
В Оптимуме можно продавать, то что нет на складе, т.е. создавать заказы. |
|
| Back to top |
|
|
nordk
Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
|
| Posted: 16 Oct 2007 18:49 Post subject: |
|
|
to zwezda:
Сейчас идет выпуск 3.4 у меня в исх. текстах нет описаний функций, что Вы спрашиваете, а у кого есть - занят очень сильно. Потерпите немного. Постараюсь дать ответ. |
|
| Back to top |
|
|
Zwezda
Joined: 04 Oct 2007
Posts: 3
Location: Светлана
Occupation: IT-специалист
Interests: Владивосток
|
| Posted: 23 Oct 2007 08:54 Post subject: |
|
|
to shura_k:
Похоже, что на данный момент это единственный разумный выход. Спасибо за совет.
to nordk:
Вопрос по функции GetInvoice все еще актуален. Затем последует вопрос по ф-ции GetOrder  |
|
| Back to top |
|
|
nordk
Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
|
| Posted: 23 Oct 2007 12:10 Post subject: |
|
|
Да я помню про Вас.
Пока нет возможности дать Вам ответ...
Я сразу напиш |
|
| Back to top |
|
|
Титов Александр
Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
|
| Posted: 01 Nov 2007 10:29 Post subject: Re: Модуль"Мобильная торговля" |
|
|
| Zwezda wrote: | В функции GetInvoice (Мобильная торговля\Функции интеграции) мне не понятно, что выполняется в строках:
cAgentScl:=GetAgentSclad(ansitooem(rtrim(RS:fields(7):value)))
...
oDoc:=OInvoice():New(cAgentScl,RS:fields( :value,ansitooem(rtrim(RS:fields(3):value)))
Функция предназначена для импорта накладных, но необходима ее доработка, чтобы накладные формировались из заказов. Данное требование возникло вследствие того, что в Оптимуме при формировании накладной на КПК отсутствует возможность включения в документ товаров, которых нет на складе. Т.е. заказы, сформированные в Оптимуме будут импортироваться в БЭСТ в виде накладных.
Может кто-нибудь сталкивался с подобной ситуацией? |
Добрый день!
В какой программе вы работаете БЭСТ-5 или БЭСТ-4?
Если в Б5 и в Оптимуме используется Ansi - кодировка, то преобразование AnsiToOem можно убрать.
Функций GetAgentSclad возвращает кодв склада по коду агента из таблицы ragent (поле Store), вот ее тест:
| Code: | Function GetAgentSclad(cAgent)
local lOpen:=.F., cAgentScl
iif(valtype(cAgent)<>'C',cAgent:=' ',nil)
dbPush()
IF SELECT('RAGENT')=0
select 0
netuse("RAGENT",LOADPATH()+'real\ragent.dbf')
lOpen:=.T.
ENDIF
cAgentScl := ragent->(dbpush(), ordsetfocus("ragent_c"), dbseek(upper(cAgent)), store)
ragent->(dbPop())
if lOpen
ragent->(dbCloseArea())
endif
dbPop()
return cAgentScl |
Функция oInvoice():New() создает объект - накладную:
| Code: | //********** накладная
// тип документа - накладная
// пока это только накладная расхода с типом ='2', видом движения, типовой операцией и
// видом документа, прописанным в настройках Мобильной торговлей.
CLASS OInvoice From DocObj
Protected:
data xStatus
// 0 - неопределен
// 1 - подготовка к записи
// 8 - 64 запись
// 128 - процедура после записи самого документа
// 256 - ошибка на любом этапе
// 512 - критичная ошибка, запись невозможна
// -1 - все успешно завершено
Exported:
data xSclad, xVid, xtype, xcodedoc, xnumdoc as STRING
Data xDate as date
Method New(Sclad,date,numdoc) CONSTRUCTOR
METHOD Write()
METHOD WriteHead()
METHOD WriteLines()
ENDCLASS |
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
| 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
