Zwezda wrote: |
В функции GetInvoice (Мобильная торговля\Функции интеграции) мне не понятно, что выполняется в строках:
cAgentScl:=GetAgentSclad(ansitooem(rtrim(RS:fields(7):value))) ... oDoc:=OInvoice():New(cAgentScl,RS:fields( ![]() Функция предназначена для импорта накладных, но необходима ее доработка, чтобы накладные формировались из заказов. Данное требование возникло вследствие того, что в Оптимуме при формировании накладной на КПК отсутствует возможность включения в документ товаров, которых нет на складе. Т.е. заказы, сформированные в Оптимуме будут импортироваться в БЭСТ в виде накладных. Может кто-нибудь сталкивался с подобной ситуацией? |
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 |
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 |
output generated using printer-friendly topic mod. All times are GMT + 4 Hours