           PowerBuilder'   .

                               0.12 b

          
    .    
         
  ,  ,  
     ,  
      (  2-3 ) 
 5 - 20 .
      :

   :
      \OperatorName(param1,param2,    ,paramN)
   ,     
         ~ . 
  ~        .

  :
        ,  
 evaluate,    .
 :
  \Version(string Version)
         ,   .
  \AllocSpaceX(string XSpace)
          XSpace    . 
    ,        ,  XSpace
    .     ,
             , 
    ,       
    .
  \AllocSpaceY(string YSpace)
          YSpace    . 
    AllocSpaceX.        
    
  \HeaderBegin()
          .
  \HeaderEnd()
          .
  \HeaderGroupBegin(number GroupNo)
           GroupNo (   0).
    GroupNo    .
  \HeaderGroupEnd(number GroupNo)
           GroupNo (  
     0). GroupNo    .
  \TrailerGroupBegin(number GroupNo)
            GroupNo ( 
     0). GroupNo    .
  \TrailerGroupEnd(number GroupNo)
            GroupNo ( 
      0). GroupNo    .
  \SummaryBegin()
          .
  \SummaryEnd()
          .
  \CrosstabBegin(number CrosstabNo)
             CrosstabNo. 
       0.      
    .
  \CrosstabEnd(number CrosstabNo)
             CrosstabNo. 
       0. 
  \DetailSeparatorBegin()
         .
  \DetailSeparatorEnd()
         .
  \DetailStopBegin()
          .
  \DetailStopEnd()
          .
  \DetailBegin()
           .   
       .
  \DetailEnd()
           .
  \ShiftText(string Position,string Offset,string Y1,string Y2)
       ""     Position  Offset
       Y1   Y2.   
     .     .
  \RunCrosstab(string CrosstabNo)
           CrosstabBegin(CrosstabNo) ...
    CrosstabEnd(CrosstabNo).      
          \AllocSpaceX(width)
        il_ASX.
  \RealCrosstabIndex(string Index)
         CrosstabBegin(...) ... CrosstabEnd(...).
        CrossFields,   
       .
  \IncCrosstabOffset(string Offset)
          Offset ,     
     X,Y ,     ,  
       X + Offset, Y,   -  
    X + Offset + Offset, Y. 
  \StaticText(string X,string Y,string Str)
         Str   X,Y.
  \StaticTextIf(string X,string Y,string Condition,
                string Str_true,string Str_false)
         Str_true   X,Y,  , 
    Condition   i  i - 1 ,   Str_false.
  \StaticTextDW(string X1,string Y1,string X2,string Y2,string Str)
          Str  DataWindow  
    (X1,Y1) - (X2,Y2).
  \Column(string X1,string Y1,string X2,string Y2,string Str)
         Str  DataWindow  
    (X1,Y1) - (X2,Y2).
  \Computed(string X1,string Y1,string X2,string Y2,string Str)
          Str  DataWindow  
    (X1,Y1) - (X2,Y2).
  \Align(number Mode)
        .    1  4,  
      :
    LEFT    -   
    CENTER  -   
    RIGHT   -  
    JUSTIFY -  .
  \TranslationMode(number Mode)
        .    0  2,  
      :
    NONE      -   
    CHARTOOEM -  ANSI -> OEM
    OEMTOCHAR -  OEM -> ANSI
  \Eliminate(number Mode)
          .  
    :
    NEXTDETAILSEPARATOR       -   
    ALLDETAILSEPARATORS       -   
    CANCELELIMINATESEPARATORS -    
    NEXTTEXTOUTPUT            -     
                                  StaticText,StaticTextIf,
                                Column,Computed,StaticTextDW
  \CompositeReport(string ReportNo,string ReportName)
           ,   
      ReportName,        
     CompositeMaskName[ReportNo].
               (..
      1).
  \NestedReport(string ParamNo,string ReportNo,string ReportName,
                const string PType1,string PName1 ...
                const string PTypeN,string PNameN)
           ,   
      ReportName,        
     CompositeMaskName[ReportNo].    
     ,   ParamNo    
    2*ParamNo + 3.   PNameI  i-   
     ,    PTypeI -  .   :
       L - long
       D - double
       S - string
       T - datetime
       A - date

               (..
      1).


   (  ):
  
          :
  1.  ),~'"    ~ ,  ),~  
     .
  2.  ~c     .
  3.      .

 :
uo_text_export uo_text
uo_text  = create uo_text_export
uo_text.s_mask = "L:\EKFO\MASK02.txt"    //  
uo_text.s_dist = "L:\EKFO\REPORT00.txt"  // 
uo_text.ds = dw_1                        //  
uo_text.ExportToText()
DESTROY uo_text

,   :
DataWindow ds  
   DataWindow.  ,  ExportDataStore = 0
datastore dstore 
   DataStore.  ,  ExportDataStore = 1
:   DataStore   Retrieval Arguments,
       ,     
DataStore   DataWindow.
long AppendToEnd=0 
           
long ShowEmptyCels=1 
        .     
(  ).
long  PromptToOverwrite=1
      (   )
long LoadFromFile=1 
     .    0,    string s 
     run-time     . 
long beg_row = 1
    ,     .
long end_row = -1
    ,    .    -1, 
     .
long CrossFields[]     
      ( ,  
CrosstabBegin()  ..).  CrossFields[2] = 3,    
   name1, name2  name3    
\RunCrosstab(string CrosstabNo)
string CompositeMaskName[] 
        ( 
    ).    
\CompositeReport(0,part_1) (     
 CompositeMaskName[1]   part_1).
long ExportDataStore 
      0 ( ),   
DataWindow   ds,  1,  DataStore   dstore.
long il_Align = 1 
      .   LEFT
( \Align(Left)).
long il_TranslationMode = 1 
      .   CharToOEM
( \TranslationMode(CharToOEM))
long il_DetailSeparatorMode = 0
        Detail.    
( \Eliminate(CANCELELIMINATESEPARATORS)).
long il_ASX=1
       ( \AllocSpaceX(1)).
   1 ( ).
long il_ASY=1
       ( \AllocSpaceY(1)).
   1 ( ).
long il_TextOutputDestroyer = 0
        StaticText,StaticTextIf,
Column,Computed,StaticTextDW.   -   
 . ( \Eliminate(NEXTTEXTOUTPUT)).

     (composite):
//-----
uo_text_export uo_text
uo_text  = create uo_text_export
uo_text.s_mask = "MASK4.TXT"
uo_text.s_dist = "REPORT4.TXT"
uo_text.ds = dw_1
uo_text.PromptToOverwrite = 0
uo_text.CompositeMaskName[1]="MASK41.TXT"
uo_text.CompositeMaskName[2]="MASK42.TXT"
uo_text.ExportToText()
DESTROY uo_text
//-----

         (crosstab):
//-----
uo_text_export uo_text
uo_text  = create uo_text_export
uo_text.s_mask = "MASK3.TXT"
uo_text.s_dist = "REPORT3.TXT"
uo_text.ds = dw_1
uo_text.PromptToOverwrite = 0
uo_text.CrossFields[1] = 3
uo_text.ExportToText()
DESTROY uo_text
//-----

    ,      :

Fido:   2:5025/3.147@fidonet
e-mail: lokshin_mark@mail.ru

                                           10.12.2000
                 
                                            .
