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

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

table struct tmp_tabel_s2
(
  tabn       : string,
  fio        : string,
  dolgn      : string,
  day        : array [1..31] of string,
  chas       : array [1..31] of double,
  kolDay1    : integer,
  kolDay2    : integer,
  kolChas1   : double,
  kolChas2   : double,
  Code       : array [1..4] of string,
  Days       : array [1..4] of integer,
  pererab    : double,
  Night      : double,
  Evening    : double,
  VihPrazd   : double,
  neyavki    : integer,
  vihday     : integer,
  UseLayer2  : boolean, 
  Day_L2     : array [1..31] of string, 
  Chas_L2    : array [1..31] of double, 
  KolDay1_L2 : integer, 
  KolDay2_L2 : integer,
  KolChas1_L2: double,  
  KolChas2_L2: double  
);

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

procedure ProcessTable(Change: comp)

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

.LinkForm 'M15_FR' Prototype is 'TOVN'
.Group 'Накладные на продажу'
.group 'Приходные накладные'
.NameInList 'Накладная на отпуск материалов на сторону М-15 '
.f 'NUL'
   ...
.{
.begin
   RunInterface('iNakl_M15', накладная_нрек);
end.
.if TOVN01
.else
.end
.if TOVN02
.else
.end
.{
.}
.{CheckEnter TOVNUSL
.}
.{
.}
.}
.endform

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

interface iNakl_M15 '' cyan, AlwaysReturn

var
   ...
parameters
  nrecnakl;
...
datastream nakl_m15
(
  [glbuh] glbuh;
  dataset nakl1
  (
    [matcen] matcen;
    [kolmc] kolmc;
    [koldo] koldo;
    [nondsmc] nonds;
    [ndsmc] nds;
    [nn] nn;
    [ediz] ediz;
    [kodediz] kodediz;
    [numpar] numpar;
    [prod] prod;
    [pok] pok;
    [nnakl] nnakl;
    [okpo] kokpo;
    [dnakl] dnakl;
    [sklad] sklad;
    [naznach] naznach;
    [dovfio] dovfio;
    [dovdol] dovdol;
    [razr] razr;
    [razrdol] razrdol;
    [sdal] sdal;
    [sdaldol] sdaldol;
    [dover] dover;
  );
)
...
handleevent
  cmInit:
    RunFReport(Nakl_M15, '', false);
    CloseInterface(0);
    abort;
    exit;
end;
End.

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

overload 
 datastream <streamname>
end;

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

#component "z_wt"

Alter interface Vedt12_1;

   Overload 
     dataStream Stream_tabel_s2;
     Procedure ProcessTable(Change: comp);
   end;

table struct tmp_table_my
(
 tabn       : string,
 fio        : string,
 schet      : string[20],
 subschet   : string[20],
 days       : string
 )
 with index
 (
  in1=tabn+fio+days
 );
  
  Create view TVedt12_1
    as select
      if(isvalid(tntmp_table_my),tmp_table_my.schet,'not define') 
      (fieldname=MySch)
     ,if(isvalid(tntmp_table_my),tmp_table_my.subschet,'not define') 
      (fieldname=MySubs)
   from
     tmp_table_my
    where ((
                 tmp_tabel_s2.tabn ==  tmp_table_my.tabn
            and  tmp_tabel_s2.fio  ==  tmp_table_my.fio
            and  tmp_tabel_s2.day[1]+tmp_tabel_s2.day[2]+tmp_tabel_s2.day[3]+tmp_tabel_s2.day[4]+tmp_tabel_s2.day[5]+tmp_tabel_s2.day[6]+tmp_tabel_s2.day[7]+
                 tmp_tabel_s2.day[8]+tmp_tabel_s2.day[9]+tmp_tabel_s2.day[10]+tmp_tabel_s2.day[11]+tmp_tabel_s2.day[12]+tmp_tabel_s2.day[13]+tmp_tabel_s2.day[14]+
                 tmp_tabel_s2.day[15]+tmp_tabel_s2.day[16]+tmp_tabel_s2.day[17]+tmp_tabel_s2.day[18]+tmp_tabel_s2.day[19]+tmp_tabel_s2.day[20]+tmp_tabel_s2.day[21]+
                 tmp_tabel_s2.day[22]+tmp_tabel_s2.day[23]+tmp_tabel_s2.day[24]+tmp_tabel_s2.day[25]+tmp_tabel_s2.day[26]+tmp_tabel_s2.day[27]+tmp_tabel_s2.day[28]+
                 tmp_tabel_s2.day[29]+tmp_tabel_s2.day[30]+tmp_tabel_s2.day[31] == tmp_table_my.days
           ))
   ;


datastream Stream_tabel_s2
(
  table inherited :: tmp_tabel_s2
  (
    [ss]   MySch  ;
    [sb]   MySubs ;
  );
)
end;

 Procedure ProcessTable(Change: comp); // либо вывод, либо формирование таблицы для бюджетников
 {
   inherited::ProcessTable(Change);

    if Change<>comp(0) and  q <> 1
    {
      insert tmp_table_my set 
      tabn       := tmp_tabel_s2.tabn ,
      fio        := tmp_tabel_s2.fio  ,
      schet      := PEREXOD.CSCHETD   ,
      subschet   := PEREXOD.CSUBSCHD,
      days       :=tmp_tabel_s2.day[1]+tmp_tabel_s2.day[2]+tmp_tabel_s2.day[3]+tmp_tabel_s2.day[4]+tmp_tabel_s2.day[5]+tmp_tabel_s2.day[6]+tmp_tabel_s2.day[7]+
                   tmp_tabel_s2.day[8]+tmp_tabel_s2.day[9]+tmp_tabel_s2.day[10]+tmp_tabel_s2.day[11]+tmp_tabel_s2.day[12]+tmp_tabel_s2.day[13]+tmp_tabel_s2.day[14]+
                   tmp_tabel_s2.day[15]+tmp_tabel_s2.day[16]+tmp_tabel_s2.day[17]+tmp_tabel_s2.day[18]+tmp_tabel_s2.day[19]+tmp_tabel_s2.day[20]+tmp_tabel_s2.day[21]+
                   tmp_tabel_s2.day[22]+tmp_tabel_s2.day[23]+tmp_tabel_s2.day[24]+tmp_tabel_s2.day[25]+tmp_tabel_s2.day[26]+tmp_tabel_s2.day[27]+tmp_tabel_s2.day[28]+
                   tmp_tabel_s2.day[29]+tmp_tabel_s2.day[30]+tmp_tabel_s2.day[31];
    }
 }

end.