формирование накладной

[evchic]

Как воспользоватся ункцией чето не получается ее запустить говорит что таблы пустые хотя они заполняютс
Function L_MAKENAKL::MakeSoprByBuffObj.MakeDocument
формирование накладной по временной таблице

Function MakeDocument (
_dFor : Date;
_fProt : LongInt;
_sNoSourceDoc : String;
_wParams : Word
) : Word;
Описание
формирование накладной по временной таблице

Информация
Версия : Компонент L_MAKENAKL 8.10.0.0

[Yarashevich]

проблема очень актуальная для нас. Будем рады получить ответ.

[Unique]

И что так никто и не подсказал?
Для меня это тоже актуально....

[Masygreen]

Может чем поможет ..

Код: Выделить всё

// формирование накладной по буферу
// В пакетных режимах для корректного запроса курсе (чтобы спросило первый раз)
// нужно перед циклом формирования поставить
// SaveMyDsk(FALSE, 'MakeSoprByBuff_GetCurse');
// и после формирования опять сбросить этот флаг:
// SaveMyDsk(FALSE, 'MakeSoprByBuff_GetCurse');

Function MakeDocument(_dFor         : Date;
                      _fProt        : longint;
                      _sNoSourceDoc : string;
                      _wParams      : word // параметры для формирования
                                           // 0-й бит(  1): 1-переносить МЦ     (в накладные)
                                           // 1-й бит(  2): 1-переносить Услуги (в накладные(сбыт) и акты)
                                           // 2-й бит(  4): 1-формировать акты
                                           // 3-й бит(  8): 1-выбираться подразделения из Pick.wList = 19867
                                           // 4-й бит( 16): 1-выбирать из тех разрезов где МОЛ по умолчанию
                     ): word; // 0 - сформировали успешно
                               // 4 - возвращаем, если был отказ в GetNalF (нажали Esc)     

хотя вряд ли ....... там кучу всего надо в DSK записать .. маркеры там и прочая .. сам не пользовался тень на плетень не буду наводить ...

[Unique]

мне нужно программно создать накладные на внутреннее перемещение как бы лучше это сделать?

[n0where]

insert отменили?

[Unique]

на дворе - 21й век...
неужели более цивилизованно это сделать нельзя?....

[n0where]

А галактика из 20 века...

[Masygreen]

Возвращайтесь в реальность

Код: Выделить всё

 ClearBuffer(#KatSopr);
 katsopr.nsopr := GetSoprNom;
 KatSopr.NRec     := _cKatSopr;
 KatSopr.Descr    := sGetTune('User.Descr');
 KatSopr.DesGr    := sGetTune('User.DesGr');
 KatSopr.cNazna   := coGetTune('Doc.cNazna');
 KatSopr.FilialNo := lGetTune('Konsolid.FilialNo');
 KatSopr.dSopr    := pi_Date;
 KatSopr.YearSopr := year(pi_Date);
 KatSopr.Name     := '****';
 KatSopr.VidSopr  := 508;
 KatSopr.cPodrFrom:= 281474976710882;
 KatSopr.cPodrTo  := 281474976710882;
 KatSopr.cMolFrom := 0;
 KatSopr.cMolTo   := 0;
 KatSopr.Summa    := _SumDoc;
 KatSopr.SumVal   := 0;
 KatSopr.dPrice   := pi_Date;
 KatSopr.SoprHoz  := 1;
 KatSopr.VhodNal  := 1;
 KatSopr.cValut   := 0;
 insert current KatSopr;

Код: Выделить всё

ClearBuffer(#SpSopr);
  _CountNpp := _CountNpp + 1;
  SpSopr.Npp      := _CountNpp;
  SpSopr.FilialNo := lGetTune('Konsolid.FilialNo');
  SpSopr.cSopr    := _cKatSopr;
  SpSopr.dSopr    := pi_Date;
  SpSopr.VidSopr  := 508;
  SpSopr.dOprTTN  := 0;
  SpSopr.cVal     := 0;

  SpSopr.PrMc     := 2;
  SpSopr.cMCUSL   := _cKatUsl;
  SpSopr.cOtpEd   := _cKatOtPed;
  SpSopr.Kol      := 1;
  SpSopr.Price    := 10000;
  SpSopr.KolFact  := 1;
  SpSopr.KolOpl   := 1;
  SpSopr.cVal     := 0;
  insert current SpSopr;

[Unique]

вообщето мне еще нужно на каждую позицию создавать записи по ДЕИ
и еще после вставки KatSopr должна еще всталяться запись в SoprHoz...

[Masygreen]

вообщето мне еще нужно на каждую позицию создавать записи по ДЕИ
и еще после вставки KatSopr должна еще всталяться запись в SoprHoz...

ну там вообще то можно много чего вставлять .. целевой учет, кау, налоги ... атрибуты и классификаторы .. на все остальное включайте журнализацию и голову ...

[n0where]

C ДИЕ проще. там функция умная есть )) с накладными такого нет )) а SOPRHOZ тоже запросом... Ведь так и в сырсах галактики прописано

[Unique]

для ДЕИ например нашла функцию Procedure L_COMMON::ObjDEIfunsV1.UpdateDEIKolSpSopr только пока не проверила как работает....

[LaaLaa]

вообщето мне еще нужно на каждую позицию создавать записи по ДЕИ
и еще после вставки KatSopr должна еще всталяться запись в SoprHoz...

Вставлять вставлять и удалять SoprHoz надо через методы объекта SHManager он реализован в компоненте F_SoprHoz.

[n0where]

oDEI.vih в помосЧь