Главная
Новый форум
 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
Zwezda



Joined: 04 Oct 2007
Posts: 3
Location: Светлана
Occupation: IT-специалист
Interests: Владивосток

PostPosted: 16 Oct 2007 06:52    Post subject: Модуль"Мобильная торговля" Reply with quote

В функции 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
View user's profile Send private message Send e-mail
shura_k



Joined: 10 Oct 2003
Posts: 342
Location: Александр
Occupation: Специалист
Interests: Калининград

PostPosted: 16 Oct 2007 11:26    Post subject: Reply with quote

Что-то тут не то.
Лучьше не заморачиваться и руками делать из заказов накладные в Бэсте.
В Оптимуме можно продавать, то что нет на складе, т.е. создавать заказы.
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 16 Oct 2007 18:49    Post subject: Reply with quote

to zwezda:
Сейчас идет выпуск 3.4 у меня в исх. текстах нет описаний функций, что Вы спрашиваете, а у кого есть - занят очень сильно. Потерпите немного. Постараюсь дать ответ.
Back to top
View user's profile Send private message Send e-mail
Zwezda



Joined: 04 Oct 2007
Posts: 3
Location: Светлана
Occupation: IT-специалист
Interests: Владивосток

PostPosted: 23 Oct 2007 08:54    Post subject: Reply with quote

to shura_k:
Похоже, что на данный момент это единственный разумный выход. Спасибо за совет.

to nordk:
Вопрос по функции GetInvoice все еще актуален. Затем последует вопрос по ф-ции GetOrder
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 23 Oct 2007 12:10    Post subject: Reply with quote

Да я помню про Вас.
Пока нет возможности дать Вам ответ...
Я сразу напиш
Back to top
View user's profile Send private message Send e-mail
Титов Александр



Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва

PostPosted: 01 Nov 2007 10:29    Post subject: Re: Модуль"Мобильная торговля" Reply with quote

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
View user's profile Send private message Visit poster's website
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