Галактика в вопросах и ответах

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

// формирование накладной по буферу
// В пакетных режимах для корректного запроса курсе (чтобы спросило первый раз)
// нужно перед циклом формирования поставить
// 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)     

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

 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;