//-----------------   ----------------- 
${(8. ੪  Excel) 
&pn(N,2,0)=1; // 0 -  㫥 ⮫; 1 -  
&st(N,2,0)=0; // 0 - ਭ ⮫殢 । ⮬᪨; 1 - ᮮ⢥ ࠧ୮; 2 - ᮮ⢥ ਭ ⮡  ⠡
&fg(N,2,0)=0; // ࠧ    (7)
&fp(N,2,0)=0; // ࠧ    ⠡ (7)
&ns(N,2,0)=0; // 0 -  ப  ࠬ ⮫殢; 1 -  
&pt(N,2,0)=0; // 1 -  ஬ ⮣ १ ⢮ ப  ࠬ஬ cs; 0 -  
&cl(N,2,0)=1; // 0 -   ⠡   ; 1 -       ப 祬 㪠 ᫥騬 ࠬ஬
&cs(N,2,0)=0; // ⢮ ப  , ᯮ ⮫쪮  砥 ᫨ pt  cl ࠢ 1 (25)
&tl(N,2,0)=1; // 1 - ᯮ짢  ; 0 -  ᯮ짮
&pd(N,2,0)=0; // 1 - ᯮ짮   ; 0 -  ᯮ짮
&xv(N,2,0)=1; // 0 -  Excel ; 1 - 
&pl(N,2,0)=2; // ਥ : 0- 㬮砭; 1-; 2-
&ss(N,2,0)=0; // ᫮ ப  蠯 ( 蠯 ⠥  ⮬       ⠡)
&np(N,2,0)=0; // 1 -   ࠧ     ; 0 -  
#wc(C,250,0)=R_String(FIO=15 & SN1-CASHSUM=8);
$}(8. ੪  Excel) 
#FORMAT(N,2,0)=_(15,9,65,15,ଠ :,⮢,Excel);     
$(_EQ(FORMAT-27))     
  $BEG_SCRIPT     
    var CurFile=CreateObject("CurPrnFile");     
    CurFile.SetFlagBrowse(0);     
  $END_SCRIPT     
  $     
$_     
#(N,8,0)=_(1);          
#podr(C,30,0)=_();          
#d1(,7,0)=(7);          
$(_EQ(FORMAT-1)) 
  $BEG_SCRIPT     
 
    int npar = 14; 
    var param[npar]; 
 
    param[0]  = atoi(pn); 
    param[1]  = atoi(st); 
    param[2]  = atoi(ns); 
    param[3]  = atoi(fg); 
    param[4]  = atoi(fp); 
    param[5]  = atoi(pt); 
    param[6]  = atoi(cl); 
    param[7]  = atoi(cs); 
    param[8]  = atoi(tl); 
    param[9]  = atoi(pd); 
    param[10] = atoi(xv); 
    param[11] = atoi(pl); 
    param[12] = atoi(ss); 
    param[13] = static_cast_to_string(wc); 
 
    int nret = 3; 
    var retpar[nret]; 
    for ( int i = 0; i < nret; i++ )  
      retpar[i] = 0; 
 
    UnloadScriptModule("dmodules"); 
    LoadScriptModule("dmodules"); 
      UnloadDynamicModules(); 
    UnloadScriptModule("dmodules"); 
 
    LoadScriptModule("forms\\comtab"); 
      comtab(param,npar,retpar,nret); 
    UnloadScriptModule("forms\\comtab"); 
 
    if ( retpar[0] != -1 ) 
    { // 맮 㭪樨 ᮡ⢥ ࠡ⪨ ᮧ excel ⠡ 
      // retpar[1] -  ᫥ worksheet'a  ஬ ⠫ ⠡ 
      // retpar[2] -  ப ᫥饩  ᫥ ⠭ ப ⠡ 
 
      int nrp = 5; 
      var rpar[nrp]; 
 
      rpar[0] = static_cast_to_string(podr); 
      rpar[1] = static_cast_to_string(d1); 
      rpar[2] = atoi(tl); 
      rpar[3] = atoi(np); 
      rpar[4] = atoi(pd); 
 
      LoadScriptModule("forms\\rpved"); 
        rpved_new(retpar,nret,rpar,nrp); 
      UnloadScriptModule("forms\\rpved"); 
    } 
 
  $END_SCRIPT     
  $     
$_     
//     Excel 
#(N,5,0)=_(0); // ᫮ ࠡ ᥩ  ⠡ 
$(_EQ()) 
  $ 
$_ 
${(5. ⥫ ப ᯨ᪠) 
  $(__,1);  // 1 (0,1,...) - ⢮ ய᪮ ப 
  $(_,"-");      // ᨬ  મ: "-" ( .ᨬ) 
$}(5. ⥫ ப ᯨ᪠) 
${(6. ⥫ ⮫殢 ᯨ᪠) 
  $(__,1); // 1,2,...-᫮ ᨬ  ࠧ  
  $(_,"|");     // ᨬ-ࠧ⥫  (|  ||  ..) 
$}(6. ⥫ ⮫殢 ᯨ᪠) 
${(7. ਧ  ) 
  $(_,"0"); // " " (஡) -   㫨, "0" -  
$}(7. ਧ  ) 
&(N,5,0)=0; 
&(N,5,0)=1;                                 // 稪 ࠭ 
#(N,3,0)=_();                      //  ࠭ 
#(N,8,0)=_(1); 
#(C,30,0)=_(); 
#(C,15,0)=_(PrintNumb); 
#(N,3,0)=(8); #(N,4,0)=(9); 
#(C,8,0)=_(); 
#NS(N,3,0)=_(SRC); 
#ORG(C,50,0)=R_String(); 
$ (_GE(NS)) 
#S(C,2,0)=_(NS,0); 
#RES(N,4,0)=_(S,* ); 
$ 
&RES(N,4,0)=0; 
$_ 
${(1.  ᯨ᪠) 
  &(N,1,0)=1;  // =1 -    ᯨ᪠, =0 - ⪨. 
//   ⨬ ਥ 室 ⥪    ᯨ᪠ 
  #(N,3,0)=_(CASHSUM);    //  ⮫  㬬   
  #(N,12,2)=_(,0);   // 㬬   
  $(_EQ(-1)) 
    $(_GT()) 
      #(C,150,0)=_(); 
      #(N,8,0)=_(,50);   // 颥 ᫮ ப 
      &(N,8,0)=0; 
      #1(N,50,0)=_(); 
      &=+1; 
      $(_LT(-)) 
        #2(N,50,0)=_(); 
      $ 
        #2(N,50,0)=R_String(___________________________________________________________________); 
      $_ 
      &=+1; 
      $(_LT(-)) 
        #3(N,50,0)=_(); 
      $ 
        #3(N,50,0)=R_String(___________________________________________________________________); 
      $_ 
        #=_(); 
    $ 
      #1(N,50,0)=R_String(___________________________________________________________________); 
      #2(N,50,0)=R_String(___________________________________________________________________); 
      #3(N,50,0)=R_String(___________________________________________________________________); 
    $_ 
    &(N,12,0)=_Long(); &(N,4,0)=(-)*100; 
  $_ 
  &(N,15,0)=_Long(); &(N,4,0)=(-)*100; 
  #(,15,0)=DIVIDER_INSERT(); 
  #(C,22,0)=R_String(); 
  #(C,22,0)=R_String(); 
  #(C,20,0)=(61); 
  #(N,8,0)=_(1); 
  $(_GT()) 
    #(C,50,0)=_(@   ); 
  $ 
    #(C,50,0)=R_String(__________________________________________________); 
  $_ 
  $(_EQ(-1)) 
                                                      - ________________ 
                                                                                                                                               ----------------- 
                                                                                                                                               |           | 
                                                                                                                                               |---------------| 
      ப                                                                                                               |    0504401    | 
                                                                                                                                               |---------------| 
  ___________________________  ________________________ .                                @               .                      |               | 
                                                                                                                                               |---------------| 
  㬬 @1                                                               ० (業ࠫ .)_______________    |               | 
 @2                                                                       @ORG                                                        |---------------| 
 @3                                                                       ୮ ࠧ_________________________     |               | 
          (@            @ )                                           @                                                    |---------------| 
                                                                                                                                               |               | 
 @                ________________ @                                       ७, .                               |      383      | 
                          ()     (஢ )                                                                                  ----------------- 
                                                                                                                                                
 @             ________________ @                                                                                                  
                          ()     (஢ )                                                                                   
                                                                                                                                                
              -----------------------               -----------------------                             -----------------------                ----------------- 
    |                     |  ।  |                     |  室 ᮢ थ  |                     |          |               | 
              -----------------------               -----------------------                             -----------------------                ----------------- 
$_ 
$}(1.  ᯨ᪠) 
//${( ⠡) 
  #=_(,,)             //   
  #=_(__);                 //  㬬   
//$}( ⠡) 
$                                        //     ⠡ 
  //${(ப ) 
    #=_();                         // ਧ   
    $() 
      #=_(_,,)  //   ப 
    $_ 
  //$}(ப ) 
  &=+1; 
  #(N,5,0)=_();                   // 稪 ப   
  $(_GE(+6-)+_EQ(-)) 
    //${(⮣ ) 
      #=_(,_);            //  ⮣  . 
    //$}(⮣ ) 
    ${(3.  ) 
//   ⨬ ਥ 室 ⥪    
 
    $}(3.  ) 
    $(_LT(-)) 
      $_ 
      ${(2.  ) 
        $() 
  ࠧ: @     @ 
        $_ 
        &=+1; 
//   ⨬ ਥ 室 ⥪   
  ௫  @ @ .                                    @ 
      $}(2.  ) 
      //${( ⠡).   . 
        #=_(,,)             //   
        #=_(__);                 //  㬬 
      //$}( ⠡).   . 
    $_ 
  $_ 
$(_GT(-)) 
//${(⮣ ) 
  #=_(_) 
//$}(⮣ ) 
${(4.  ᯨ᪠) 
   &(N,1,0)=1;  // =1-   ᯨ᪠, =0-⪮. 
//   ⨬ ਥ 室 ⥪     ᯨ᪠ 
  $(_EQ(-1)) 
  $(_GT()) 
    #(C,160,0)=_(); 
    #(N,8,0)=_(,60);   // 颥 ᫮ ப 
    &(N,8,0)=0; 
    $ 
      #(N,60,0)=_(); 
  @ 
      &=+1; 
    $(_LT(-)) 
    #=_(); 
  $ 
  ................................................................... 
  ................................................................... 
  $_ 
                                 ------------------------------             ------------------------------                ------------------------------ 
  饩 :  뤠 |                            |,   뤠 |                            |,  ஢ |                            | 
                                 ------------------------------             ------------------------------                ------------------------------ 
 
 ⠢ _________________ ___________ _______________________    稪 ________________ ___________ _______________________  
             ()     ()   (஢ )                 ()     ()   (஢ )   
                                                                                                                                   
 ஢ਫ _________________ ___________ _______________________     ___________ _______________________  
             ()     ()   (஢ )             ()   (஢ )   
                                                                                                                                   
 "___"_______________ 20__.                                        "___"_______________ 20__.                                     
 
  $_ 
$}(4.  ᯨ᪠) 
$LF 
