Модуль"Мобильная торговля"
Select messages from
 # through # FAQ
[/[Print]\]

-> Программирование в БЭСТ-4
#1: Модуль"Мобильная торговля" Author: Zwezda, Location: Светлана PostPosted: 16 Oct 2007 06:52
    —
В функции GetInvoice (Мобильная торговля\Функции интеграции) мне не понятно, что выполняется в строках:

cAgentScl:=GetAgentSclad(ansitooem(rtrim(RS:fields(7):value)))
...
oDoc:=OInvoice():New(cAgentScl,RS:fields(8):value,ansitooem(rtrim(RS:fields(3):value)))

Функция предназначена для импорта накладных, но необходима ее доработка, чтобы накладные формировались из заказов. Данное требование возникло вследствие того, что в Оптимуме при формировании накладной на КПК отсутствует возможность включения в документ товаров, которых нет на складе. Т.е. заказы, сформированные в Оптимуме будут импортироваться в БЭСТ в виде накладных.
Может кто-нибудь сталкивался с подобной ситуацией?
#2:  Author: shura_k, Location: Александр PostPosted: 16 Oct 2007 11:26
    —
Что-то тут не то.
Лучьше не заморачиваться и руками делать из заказов накладные в Бэсте.
В Оптимуме можно продавать, то что нет на складе, т.е. создавать заказы.
#3:  Author: nordk, Location: Горбунов Константин PostPosted: 16 Oct 2007 18:49
    —
to zwezda:
Сейчас идет выпуск 3.4 у меня в исх. текстах нет описаний функций, что Вы спрашиваете, а у кого есть - занят очень сильно. Потерпите немного. Постараюсь дать ответ.
#4:  Author: Zwezda, Location: Светлана PostPosted: 23 Oct 2007 08:54
    —
to shura_k:
Похоже, что на данный момент это единственный разумный выход. Спасибо за совет.

to nordk:
Вопрос по функции GetInvoice все еще актуален. Затем последует вопрос по ф-ции GetOrder
#5:  Author: nordk, Location: Горбунов Константин PostPosted: 23 Oct 2007 12:10
    —
Да я помню про Вас.
Пока нет возможности дать Вам ответ...
Я сразу напиш
#6: Re: Модуль"Мобильная торговля" Author: Титов Александр, Location: Титов Александр Александрович PostPosted: 01 Nov 2007 10:29
    —
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
-> Программирование в БЭСТ-4


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Page 1 of 1

Powered by phpBB © 2001, 2005 phpBB Group