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

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

.LinkForm 'NAME' Prototype is 'Schfrees'
.Create view Tabl
from  SchFact, SpSchf, KatMc, KatParty, KatOtPed
where
        ((
          nSchFact == SchFact.nRec             and
          SchFact.nRec == SpSchf.cSchFact  and
          SpSchf.cMcUsl == KatMc.nRec       and
          SpSchf.cParty == KatParty.nRec    and
          SpSchf.cOtpEd == KatOtPed.nRec
        ))
order external by KatMc.Name, KatParty.Name, SpSchf.Price
;
... // структура прототипа
.{Table tabl
.begin
... // Заполнение Таблицы в Памяти
end.
.}

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

.Create view tabl_1
from tabl_in_memory
;
... // тело прототипа
.{Table tabl 
.begin 
... // Заполнение Таблицы в Памяти tabl_in_memory
end. 
.} 
.{table 'tabl_1.tabl_in_memory'
.fields
        tabl_1.tabl_in_memory.field1
        tabl_1.tabl_in_memory.field2
 .endfields
^ ^
.}

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

!
! #include table_in_mem.inc (Включено в проектном файле перед данной LinkForm'ой
!
.LinkForm 'SCHFREES_DA' Prototype is 'Schfrees'
.Group 'Бланки счетов-фактур'
.NameInList 'Унифицированная форма'
.p 60
.DEFO LANDSCAPE
.var
    SrcCountry:String;
    GTDNumber:String;
    rNDS:Double;
    rSumNoNDS:Double;
    rAkcis:Double;
    rSaleTax:Double;
    rSumma:Double;
    StrPrim1:String;
    StrPrim2:String;
    plat_No:String;
    plat_Date:String;
    platNo_Date:String;
    EmptyField:String;
    is2004:Boolean;

    mc_name:string[100];
.endvar
.Create view tabl1
from table_in_mem
;
.Create view DA
from  SchFact, SpSchf, KatMc, KatParty, KatOtPed
where
        ((
          nSchFact == SchFact.nRec         and
          SchFact.nRec == SpSchf.cSchFact  and
          SpSchf.cMcUsl == KatMc.nRec      and
          SpSchf.cParty == KatParty.nRec   and
          SpSchf.cOtpEd == KatOtPed.nRec
        ))
order external by KatMc.Name, KatParty.Name, SpSchf.Price
;
.Create  view vSpSchf
from
        SpSchf  ,  KatParty,  SchFact,  BookPrZk
where
        ((
          cSpSchf == SpSchf.nRec and
          SpSchf.cParty == KatParty.nRec
        ));
.Create  view vSchf
from
        SchFact, BookPrZk, SchFact SchFactPlat, SoprHoz, KatParty, SpSopHoz, SpSopr
where
        ((
          nSchFact             == SchFact.nRec and (SchFact.SubTip = 0)
          and SchFact.nRec         == BookPrZk.cSchFact and
          ((BookPrZk.SubTip = 4) or (BookPrZk.SubTip = 20))
          and BookPrZk.cSchFactS   == SchFactPlat.nRec
          and SchFactPlat.cSoprHoz == SoprHoz.nRec

          and SoprHoz.nRec         == SpSopHoz.cSoprHoz
          and SpSopHoz.cSpSopr     == SpSopr.nRec
        ))
;
!
! // ЗДЕСЬ идёт базовая форма (БЕЗ ИЗМЕНЕНИЙ)
!
.{Table da
.begin
        if getfirst da.SpSchf = tsOK then do
           {
            mc_name := replace(da.KatMC.NAME,'&&&',DoubleToStr(Double(da.KatParty.Name),'777.8'));
            if getfirst table_in_mem(byOTCH) where (( mc_name                 == table_in_mem.NAME  and
                                                      da.SpSchf.Price  == table_in_mem and
                                                      da.KatOtPed.Name == table_in_mem.ED
                                                   ))<>tsOK then
               If insert in table_in_mem<>tsOK then
                  {
                   message('Не удалось добавить запись');
                   exit;
                  }
               set table_in_mem.name     := mc_name;
               set table_in_mem.BARKOD := da.KatMC.BarKod;
               set table_in_mem.CMC      := da.SpSchf.cMcUsl;
               If update current table_in_mem<>tsOK then
                 {
                  message('Не удалось модифицировать запись');
                  exit;
                 }
           }while getnext da.SpSchf=tsOK
end.
.}
.{table 'tabl1.table_in_mem'
.fields
        tabl1.table_in_mem.NAME tabl1.table_in_mem.BARKOD
.endfields
^ ^
.} // tabl1
.}
.endform

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

.Create view tabl1 
from table_in_mem 
; 

и

.{table 'tabl1.table_in_mem' 
.fields 
        tabl1.table_in_mem.NAME tabl1.table_in_mem.BARKOD 
.endfields 
^ ^ 
.} // tabl1 

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

.{table 'tabl1.ASDLKJFHG'
.fields
        tabl1.ASDLKJFHG.NAME tabl1.ASDLKJFHG.BARKOD
.endfields
^ ^
.}

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

.fields 
        tabl1.ASDLKJFHG.NAME tabl1.ASDLKJFHG.BARKOD 
.endfields 
.{table 'tabl1.ASDLKJFHG' 
^ ^ 
.}