Функция предназначена для импорта накладных, но необходима ее доработка, чтобы накладные формировались из заказов. Данное требование возникло вследствие того, что в Оптимуме при формировании накладной на КПК отсутствует возможность включения в документ товаров, которых нет на складе. Т.е. заказы, сформированные в Оптимуме будут импортироваться в БЭСТ в виде накладных.
Может кто-нибудь сталкивался с подобной ситуацией?
Joined: 10 Oct 2003 Posts: 342 Location: Александр Occupation: Специалист Interests: Калининград
Posted: 16 Oct 2007 11:26 Post subject:
Что-то тут не то.
Лучьше не заморачиваться и руками делать из заказов накладные в Бэсте.
В Оптимуме можно продавать, то что нет на складе, т.е. создавать заказы.
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
Posted: 16 Oct 2007 18:49 Post subject:
to zwezda:
Сейчас идет выпуск 3.4 у меня в исх. текстах нет описаний функций, что Вы спрашиваете, а у кого есть - занят очень сильно. Потерпите немного. Постараюсь дать ответ.
Функция предназначена для импорта накладных, но необходима ее доработка, чтобы накладные формировались из заказов. Данное требование возникло вследствие того, что в Оптимуме при формировании накладной на КПК отсутствует возможность включения в документ товаров, которых нет на складе. Т.е. заказы, сформированные в Оптимуме будут импортироваться в БЭСТ в виде накладных.
Может кто-нибудь сталкивался с подобной ситуацией?
Добрый день!
В какой программе вы работаете БЭСТ-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
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
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
:value,ansitooem(rtrim(RS:fields(3):value)))
