import "XStdlib.dll"
// Расчет по авансовым платежам по ЕСН

int FTrans_DL=1; // формат передачи файла на магнитный носитеть
                   // 0 - местный (Свердловская обл.)
                   // 1 - федеральный (определенный законодательством)

var CFile_DL;      // объект класса для работы с текущим файлом печати
int SizePage_DL;   // число строк на листе
int KindPaper_DL;  // тип бумаги (0-рулон; 1-лист)
int ListNumber_DL; // номер листа
int CI_DL=0;       // число инвалидов
int i_DL=0;
int NL_DL=0;
int nlist_DL=0;


double FB010G3 = 0.0,
       FB010G4 = 0.0,
       FB010G5 = 0.0,
       FB010G6 = 0.0,
       FB010G7 = 0.0,
       FB020G3 = 0.0,
       FB020G4 = 0.0,
       FB020G5 = 0.0,
       FB020G6 = 0.0,
       FB020G7 = 0.0;

double FVMENEN = 0.0,
       FSS0700 = 0.0,
       FSS0720 = 0.0,
       FSS0730 = 0.0,
       FSS0740 = 0.0,
       FSS0800 = 0.0,
       FSS0820 = 0.0,
       FSS0830 = 0.0,
       FSS0840 = 0.0;

int UDOPS    =  0,
    SUMVMEN  =  0,
    NL       =  0,
    PRINT    =  1,
    AVCOUNT  =  1,
    TYPORG   =  0,
    FLIST    =  1,
    ORG      =  0,
    ADR      =  0,
    EXCEL    =  1,
    DOGP     =  0,
    IMNS     =  1,
    FlgTrans = -1,
    NomFile  =  1,
    NSUM     =  0,
    FINV     =  0,
    TAXINV   =  1,
    VMENDEK  =  1;

string DOP      = "1111111111",
       DRASCH   = "",
       PathStr  = "",
       VarFOtch = "";



AvansPL_DL(FB010G3, FB010G4, FB010G5, FB010G6, FB010G7, 
           FB020G3, FB020G4, FB020G5, FB020G6, FB020G7, 
           FSS0700, FSS0720, FSS0730, FSS0740, FSS0800, 
           FSS0820, FSS0830, FSS0840, 
           UDOPS, SUMVMEN, DOP, NL, PRINT, AVCOUNT, DRASCH, TYPORG, 
           FLIST, ORG, ADR, EXCEL, DOGP,
           IMNS, PathStr, FlgTrans, NomFile, VarFOtch, NSUM, FINV, FVMENEN, TAXINV, VMENDEK)
{
  int np = 41;
  var param[np];

  param[0]  = atof(FSS0700);                 param[17] = atoi(ORG);
  param[1]  = atof(FSS0720);                 param[18] = atoi(ADR);
  param[2]  = atof(FSS0730);                 param[19] = atoi(EXCEL);
  param[3]  = atof(FSS0740);                 param[20] = atoi(DOGP);
  param[4]  = atof(FSS0800);                 param[21] = atoi(IMNS);
  param[5]  = atof(FSS0820);                 param[22] = static_cast_to_string(PathStr);
  param[6]  = atof(FSS0830);                 param[23] = FlgTrans;
  param[7]  = atof(FSS0840);                 param[24] = NomFile;
  param[8]  = atoi(UDOPS);                   param[25] = static_cast_to_string(VarFOtch);
  param[9]  = atoi(SUMVMEN);                 param[26] = atoi(NSUM);
  param[10] = static_cast_to_string(DOP);    param[27] = atoi(FINV);
  param[11] = atoi(NL);                      param[28] = atof(FVMENEN);
  param[12] = atoi(PRINT);                   param[29] = atoi(TAXINV);
  param[13] = atoi(AVCOUNT);                 param[30] = atoi(VMENDEK);
  param[14] = static_cast_to_string(DRASCH); 
  param[15] = atoi(TYPORG);                  
  param[16] = atoi(FLIST);

  param[31] = atof(FB010G3); param[36] = atof(FB020G3);
  param[32] = atof(FB010G4); param[37] = atof(FB020G4);
  param[33] = atof(FB010G5); param[38] = atof(FB020G5);
  param[34] = atof(FB010G6); param[39] = atof(FB020G6);
  param[35] = atof(FB010G7); param[40] = atof(FB020G7);

  return AvansPL_par(param,np);
}


ReadParam(&param,np)
{
  if ( np >  0 ) FSS0700  = atof(param[0]);
  if ( np >  1 ) FSS0720  = atof(param[1]);
  if ( np >  2 ) FSS0730  = atof(param[2]);
  if ( np >  3 ) FSS0740  = atof(param[3]);
  if ( np >  4 ) FSS0800  = atof(param[4]);
  if ( np >  5 ) FSS0820  = atof(param[5]);
  if ( np >  6 ) FSS0830  = atof(param[6]);
  if ( np >  7 ) FSS0840  = atof(param[7]);
  if ( np >  8 ) UDOPS    = atoi(param[8]);
  if ( np >  9 ) SUMVMEN  = atoi(param[9]);
  if ( np > 10 ) DOP      = static_cast_to_string(param[10]);
  if ( np > 11 ) NL       = atoi(param[11]);
  if ( np > 12 ) PRINT    = atoi(param[12]);
  if ( np > 13 ) AVCOUNT  = atoi(param[13]);
  if ( np > 14 ) DRASCH   = static_cast_to_string(param[14]);
  if ( np > 15 ) TYPORG   = atoi(param[15]);
  if ( np > 16 ) FLIST    = atoi(param[16]);
  if ( np > 17 ) ORG      = atoi(param[17]);
  if ( np > 18 ) ADR      = atoi(param[18]);
  if ( np > 19 ) EXCEL    = atoi(param[19]);
  if ( np > 20 ) DOGP     = atoi(param[20]);
  if ( np > 21 ) IMNS     = atoi(param[21]);
  if ( np > 22 ) PathStr  = static_cast_to_string(param[22]);
  if ( np > 23 ) FlgTrans = atoi(param[23]);
  if ( np > 24 ) NomFile  = atoi(param[24]);
  if ( np > 25 ) VarFOtch = static_cast_to_string(param[25]);
  if ( np > 26 ) NSUM     = atoi(param[26]);
  if ( np > 27 ) FINV     = atoi(param[27]);
  if ( np > 28 ) FVMENEN  = atof(param[28]);
  if ( np > 29 ) TAXINV   = atoi(param[29]);
  if ( np > 30 ) VMENDEK  = atoi(param[30]);

  if ( np > 31 ) FB010G3  = atof(param[31]);
  if ( np > 32 ) FB010G4  = atof(param[32]);
  if ( np > 33 ) FB010G5  = atof(param[33]);
  if ( np > 34 ) FB010G6  = atof(param[34]);
  if ( np > 35 ) FB010G7  = atof(param[35]);
  if ( np > 36 ) FB020G3  = atof(param[36]);
  if ( np > 37 ) FB020G4  = atof(param[37]);
  if ( np > 38 ) FB020G5  = atof(param[38]);
  if ( np > 39 ) FB020G6  = atof(param[39]);
  if ( np > 40 ) FB020G7  = atof(param[40]);

  KorParam();

  return 0;
}


KorParam()
{
  if ( IMNS     < 0 ) IMNS     = 0; if ( IMNS     > 1 ) IMNS     = 1;
  if ( NSUM     < 0 ) NSUM     = 0; if ( NSUM     > 1 ) NSUM     = 1;
  if ( NL       < 0 ) NL       = 0; if ( NL       > 1 ) NL       = 1;
  if ( PRINT    < 0 ) PRINT    = 0; if ( PRINT    > 1 ) PRINT    = 1;
  if ( AVCOUNT  < 0 ) AVCOUNT  = 0; if ( AVCOUNT  > 1 ) AVCOUNT  = 1;
  if ( TYPORG   < 0 ) TYPORG   = 0; if ( TYPORG   > 3 ) TYPORG   = 3;
  if ( FLIST    < 0 ) FLIST    = 0; if ( FLIST    > 1 ) FLIST    = 1;
  if ( ORG      < 0 ) ORG      = 0; if ( ORG      > 3 ) ORG      = 3;
  if ( ADR      < 0 ) ADR      = 0; if ( ADR      > 1 ) ADR      = 1;
  if ( DOGP     < 0 ) DOGP     = 0; if ( DOGP     > 1 ) DOGP     = 1;
  if ( TAXINV   < 0 ) TAXINV   = 0; if ( TAXINV   > 1 ) TAXINV   = 1;
  if ( VMENDEK  < 0 ) VMENDEK  = 0; if ( VMENDEK  > 1 ) VMENDEK  = 1;

  return 0;
}


AvansPL_par(&param,np)
{
  ReadParam(param,np);

  if (FVMENEN>0.001) FINV=1;

  CFile_DL=CreateObject("CurPrnFile");

  if (EXCEL==1 || EXCEL==2) { CFile_DL.SetFlagBrowse(0); CFile_DL.SetFlag_Print(0); }

  // устанавливаем сжатый портрет
  if (PRINT==1 && EXCEL==0)
  {
    CFile_DL.SetPortLand(0);    // портрет
    CFile_DL.SetKindPrint(1);   // сжатая
    CFile_DL.SetWidthPage(161); // число символов на строку
  }

  if (EXCEL==0) 
  {
    SizePage_DL =CFile_DL.GetSizePage();  // количество строк на странице для выбранной ориентации листа
    KindPaper_DL=CFile_DL.GetKindPaper(); // тип бумаги (0-рулон; 1-лист)
  }

  ListNumber_DL=1;
  NL_DL=NL;

  table();

  return 0;
}


table()
{
  int PRSUM=1;
  int MOVEMP=1;
  int SP600NULL=1;
  int INVTYP=1;

  int ERROR_CODE_RET=0;

  if (TYPORG==2 || TYPORG==3) FINV=1; // если организация инвалидская, 
                                      // то в ней есть инвалиды

  char WHAT_PRINT[11]; sprintf(WHAT_PRINT,"%-10.10s", DOP);
  char DIGIT[10];
  int  LIST[11]; // признак печати листа, индекс - номер листа

  for (int i=0; i<10; i++)
  {
    sprintf(DIGIT,"%c",WHAT_PRINT[i]); LIST[i+1]=atoi(DIGIT);
  }

  double tmp1=0.;
  double eps1=0.001;
  char tmpstr1[20]; sprintf(tmpstr1,"       -      ");


  char f010G3[20]; tmp1=FB010G3; if (nabs(tmp1)>eps1) sprintf(f010G3,"%14.2f",tmp1); else  sprintf(f010G3,"%s",tmpstr1);
  char f010G4[20]; tmp1=FB010G4; if (nabs(tmp1)>eps1) sprintf(f010G4,"%14.2f",tmp1); else  sprintf(f010G4,"%s",tmpstr1);
  char f010G5[20]; tmp1=FB010G5; if (nabs(tmp1)>eps1) sprintf(f010G5,"%14.2f",tmp1); else  sprintf(f010G5,"%s",tmpstr1);
  char f010G6[20]; tmp1=FB010G6; if (nabs(tmp1)>eps1) sprintf(f010G6,"%14.2f",tmp1); else  sprintf(f010G6,"%s",tmpstr1);
  char f010G7[20]; tmp1=FB010G7; if (nabs(tmp1)>eps1) sprintf(f010G7,"%14.2f",tmp1); else  sprintf(f010G7,"%s",tmpstr1);
                         
  char f020G3[20]; tmp1=FB020G3; if (nabs(tmp1)>eps1) sprintf(f020G3,"%14.2f",tmp1); else  sprintf(f020G3,"%s",tmpstr1);
  char f020G4[20]; tmp1=FB020G4; if (nabs(tmp1)>eps1) sprintf(f020G4,"%14.2f",tmp1); else  sprintf(f020G4,"%s",tmpstr1);
  char f020G5[20]; tmp1=FB020G5; if (nabs(tmp1)>eps1) sprintf(f020G5,"%14.2f",tmp1); else  sprintf(f020G5,"%s",tmpstr1);
  char f020G6[20]; tmp1=FB020G6; if (nabs(tmp1)>eps1) sprintf(f020G6,"%14.2f",tmp1); else  sprintf(f020G6,"%s",tmpstr1);
  char f020G7[20]; tmp1=FB020G7; if (nabs(tmp1)>eps1) sprintf(f020G7,"%14.2f",tmp1); else  sprintf(f020G7,"%s",tmpstr1);


  char str[256];
  char Arg[256];
  char Rez[256];

  var CTabl=CreateObject("CurPrnTbl");
  int CR=CTabl.Count_Rcr();  // число рабочих zapисей в таблице   

  double Doh1[CR];
  double Doh2[CR];
  double Doh3[CR];

  // суммы вычетов по натур.оплате
  double rdfb0=0.; double rdfs0=0.; double rdff0=0.; double rdtf0=0.;
  double rdfb3=0.; double rdfs3=0.; double rdff3=0.; double rdtf3=0.;
  double rdfb2=0.; double rdfs2=0.; double rdff2=0.; double rdtf2=0.;
  double rdfb1=0.; double rdfs1=0.; double rdff1=0.; double rdtf1=0.;

  // для инвалидов
  string INV_FIO[CR];
  string INV_DAT[CR];
  string INV_KON[CR];
  string INV_NOM[CR];
  int    INV_GRU[CR];
  double INV_VSE[CR];
  double INV_KVA[CR];
  double INV_1ME[CR];
  double INV_2ME[CR];
  double INV_3ME[CR];

  for (int i=0; i<CR; i++) 
  { 
    Doh1[i]=0.; Doh2[i]=0.; Doh3[i]=0.; 
    INV_FIO[i]="";
    INV_DAT[i]="";
    INV_KON[i]="";
    INV_NOM[i]="";
    INV_GRU[i]=0;
    INV_VSE[i]=0.;
    INV_KVA[i]=0.;
    INV_1ME[i]=0.;
    INV_2ME[i]=0.;
    INV_3ME[i]=0.;
  }

  int nper=atoi(R_Date("3",Rez,10,0));
  int kper=atoi(R_Date("4",Rez,10,0));
  int dper=kper-nper+1;

  int nper1=atoi(CTabl.TextS("BDAT",0));
  int kper1=atoi(CTabl.TextS("M1",0))+1;
  int dper1=kper1-nper1+1;

  int PrMes2=0;
  int PrMes1=0;
  int PrMes0=0;
  int EndInKv  =atoi(CTabl.TextS("ENDINKV",0));
  int EndOtnTek=atoi(CTabl.TextS("ENDOTNTEK",0));
  if ((kper1-2) <= EndOtnTek) PrMes2=1; // 1-й месяц квартала
  if ((kper1-1) <= EndOtnTek) PrMes1=1; // 2-й месяц квартала
  if ( kper1    <= EndOtnTek) PrMes0=1; // 3-й месяц квартала

  // int CalMesBegPer=atoi(R_Date("1",Rez,10,0));

//  sprintf(Arg,"0,%d", nper1);
//  int CalMesBegPer=atoi(R_DATA_EX(Arg,Rez,10,0));

  sprintf(Arg,"0,%d", atoi(CTabl.TextS("ABDAT",0)));
  int CalMesBegPer=atoi(R_DATA_EX(Arg,Rez,10,0));


  if (CalMesBegPer!=1)
  {
    if (EXCEL==0)
    {
      sprintf(str,"Месяцем начала периода должен быть январь"); prntPL_DL(str,1,0);
    }
    ERROR_CODE_RET=52;
    return ERROR_CODE_RET;
  }

//  char MesPeriod[40];
//  sprintf(Arg,"1,%d",nper); RTrim(R_DATA_EX(Arg,Rez,20,0)); Rez[0]=To_Lower(Rez[0]);
//  sprintf(MesPeriod,"%s - ", Rez);
//  sprintf(Arg,"1,%d",kper); RTrim(R_DATA_EX(Arg,Rez,20,0)); Rez[0]=To_Lower(Rez[0]);
//  sprintf(MesPeriod,"%s%s", MesPeriod, Rez);

  string MesPer1="";
  if (EXCEL==0) 
  {
    if (dper1==3) MesPer1="I квартал";
    if (dper1==6) MesPer1="полугодие";
    if (dper1==9) MesPer1="9 месяцев";
  }
  else
  {
    if (dper1==3) MesPer1="I ътрЁЄры";
    if (dper1==6) MesPer1="яюыєуюфшх";
    if (dper1==9) MesPer1="9 ьхё Ўхт";
  }


  var MKper=CreateObject("KMonth");
  int kmes=atoi(R_Date("2",Rez,10,0));
  int kgod=atoi(R_Date("6",Rez,10,0));
  MKper.SetMonthYear(kmes,kgod);

  char ZaPeriod[20];
  sprintf(ZaPeriod,"%4d", kgod);

  char edat[20]; sprintf(edat,"%s",CTabl.TextS("EDAT",0));
  FreeSpaceString(edat,3,"");

  double T1003 =0.;double T1005 =0.;double T1007=0.;double T1009=0.;
  double T1103 =0.;double T1105 =0.;double T1107=0.;double T1109=0.;
  double M1003 =0.;double M1005 =0.;double M1007=0.;double M1009=0.;
  double M1103 =0.;double M1105 =0.;double M1107=0.;double M1109=0.;
  double V1003 =0.;double V1005 =0.;double V1007=0.;double V1009=0.;
  double V1103 =0.;double V1105 =0.;double V1107=0.;double V1109=0.;
  double T2003 =0.;double T2005 =0.;double T2007=0.;double T2009=0.;
  double T2103 =0.;double T2105 =0.;double T2107=0.;double T2109=0.;
  double T3003 =0.;double T3005 =0.;double T3007=0.;double T3009=0.;
  double T3103 =0.;double T3105 =0.;double T3107=0.;double T3109=0.;
  double T4003 =0.;double T4005 =0.;double T4007=0.;double T4009=0.;
  double T4103 =0.;double T4105 =0.;double T4107=0.;double T4109=0.;
  double T5003 =0.;double T5005 =0.;double T5007=0.;double T5009=0.;
  double T5103 =0.;double T5105 =0.;double T5107=0.;double T5109=0.;
  double T6005 =0.;double T6105 =0.;
  double T60051=0.;double T61051=0.;
  double T7005 =0.;double T7105 =0.;
  double T70051=0.;double T71051=0.;
  double T8005 =0.;double T8105 =0.;

  // svn 01.04.2002
  double M1203=0; double M1303=0; double M1205=0; double M1305=0; double M1207=0; double M1307=0; double M1209=0; double M1309=0;  
  double V1203=0; double V1303=0; double V1205=0; double V1305=0; double V1207=0; double V1307=0; double V1209=0; double V1309=0;  
  double T1203=0; double T1303=0; double T1205=0; double T1305=0; double T1207=0; double T1307=0; double T1209=0; double T1309=0;  
  double T2203=0; double T2303=0; double T2205=0; double T2305=0; double T2207=0; double T2307=0; double T2209=0; double T2309=0;  
  double T3203=0; double T3303=0; double T3205=0; double T3305=0; double T3207=0; double T3307=0; double T3209=0; double T3309=0;  
  double T4203=0; double T4303=0; double T4205=0; double T4305=0; double T4207=0; double T4307=0; double T4209=0; double T4309=0;  
  double T5203=0; double T5303=0; double T5205=0; double T5305=0; double T5207=0; double T5307=0; double T5209=0; double T5309=0;  
  double T7203=0; double T7303=0; double T6255=0; double T6355=0; double T7207=0; double T7307=0; double T7209=0; double T7309=0;  
                                  double T7205=0; double T7305=0;
  double T500A=0; double T510A=0; double T520A=0; double T530A=0;
  double T500L=0; double T510L=0; double T520L=0; double T530L=0;

  double A11=0.; double A21=0.; double A31=0.;
  double A41=0.; double A51=0.; double A61=0.;
  double A12=0.; double A22=0.; double A32=0.;
  double A42=0.; double A52=0.; double A62=0.;
  double D11=0.; double D21=0.; double D31=0.; double D41=0.;double D51=0.;
  double D12=0.; double D22=0.; double D32=0.; double D42=0.;double D52=0.;
  double MP5=0.; double MD5=0.;
  double MP7=0.; double MD7=0.;
  double MP9=0.; double MD9=0.;

  double fb507=0.; double fs507=0.; double ff507=0.; double tf507=0.;

  double A13=0.; double A14=0.;
  double D13=0.; double D14=0.;
  double D23=0.; double D24=0.;
  double D43=0.; double D44=0.;
  double D53=0.; double D54=0.;

  double AC11=0.; double AC12=0.; double AC13=0.; double AC14=0.;
  double AM11=0.; double AM12=0.; double AM13=0.; double AM14=0.;
  double AT11=0.; double AT12=0.; double AT13=0.; double AT14=0.;
  
  double R12=0.;double R22=0.;double R32=0.;double R42=0.;double R52=0.;
  double R62=0.;double R72=0.;double R82=0.;double R92=0.;double R02=0.;

  int S12=0;int S22=0;int S32=0;int S52=0;
  int S62=0;int S82=0;int S92=0;

  double R13=0.;double R23=0.;double R33=0.;double R43=0.;double R53=0.;
  double R63=0.;double R73=0.;double R83=0.;double R93=0.;double R03=0.;

  int S13=0;int S23=0;int S33=0;int S53=0;
  int S63=0;int S83=0;int S93=0; 

  double R14=0.;double R24=0.;double R34=0.;double R44=0.;double R54=0.;
  double R64=0.;double R74=0.;double R84=0.;double R94=0.;double R04=0.;

  int S14=0;int S24=0;int S34=0;int S54=0;
  int S64=0;int S84=0;int S94=0;

  double R1T5 =0.;double R2T5 =0.;double R3T5 =0.;double R4T5 =0.;double R5T5 =0.;
  double R6T5 =0.;double R7T5 =0.;double R8T5 =0.;double R9T5 =0.;double R0T5 =0.;
  double R1T7 =0.;double R2T7 =0.;double R3T7 =0.;double R4T7 =0.;double R5T7 =0.;
  double R6T7 =0.;double R7T7 =0.;double R8T7 =0.;double R9T7 =0.;double R0T7 =0.;
  double R1T9 =0.;double R2T9 =0.;double R3T9 =0.;double R4T9 =0.;double R5T9 =0.;
  double R6T9 =0.;double R7T9 =0.;double R8T9 =0.;double R9T9 =0.;double R0T9 =0.;
  double R1T11=0.;double R2T11=0.;double R3T11=0.;double R4T11=0.;double R5T11=0.;
  double R6T11=0.;double R7T11=0.;double R8T11=0.;double R9T11=0.;double R0T11=0.;

  double FB78=0.; 
  double FB79=0.; 
  double FB69=0.;

  double FS78=0.; 
  double FS77=0.; 
  double FS69=0.;

  double FF78=0.; 
  double FF79=0.; 
  double FF69=0.;

  double TF78=0.; 
  double TF79=0.; 
  double TF69=0.;

  double SCHP[12];  
  double SCHS[12];  
  double SCHD[12];  

  double fbNatOpVse=0.; double fbNatOp1=0.; double fbNatOp2=0.; double fbNatOp3=0.;
  double fsNatOpVse=0.; double fsNatOp1=0.; double fsNatOp2=0.; double fsNatOp3=0.;
  double ffNatOpVse=0.; double ffNatOp1=0.; double ffNatOp2=0.; double ffNatOp3=0.;
  double tfNatOpVse=0.; double tfNatOp1=0.; double tfNatOp2=0.; double tfNatOp3=0.;

  for (int i=0; i<12; i++)
  {
    SCHP[i]=0.; 
    SCHS[i]=0.; 
    SCHD[i]=0.; 
  }

  double SCR1;  double SCR2;  double SCR3;  
  double SCR1P; double SCR2P; double SCR3P;  
  double SCR1S; double SCR2S; double SCR3S;  
  double SCR1D; double SCR2D; double SCR3D;  


  double RI2 =0.;double RI3 =0.;double RI4 =0.; 
  double RIT5=0.;double RIT7=0.;double RIT9=0.;double RIT11=0.;

  int SI12=0;int SI13=0;int SI14=0;

  double TEMP;
  int    TEMPI;

  double S_A;
  double S_L;

  int RFLAG;
  double TEMP3;
  int IT;

  int INV;
  int CI=-1; // счетчик инвалидов

  double Z3003=0.;
  double Z3103=0.;
  double Z3203=0.;
  double Z4003=0.;
  double Z4103=0.;
  double Z4203=0.;


  for (int zap=0; (CR-zap)>0; zap++)
  {
    S_A=0.;
    S_L=0.;
    INV=0;


    TEMP=0;

    rdfb0=0.; rdfs0=0.; rdff0=0.; rdtf0=0.;
    rdfb3=0.; rdfs3=0.; rdff3=0.; rdtf3=0.;
    rdfb2=0.; rdfs2=0.; rdff2=0.; rdtf2=0.;
    rdfb1=0.; rdfs1=0.; rdff1=0.; rdtf1=0.;

    sprintf(str,"%s",CTabl.TextS("RD_FB_0",zap)); RealDeduction(str,rdfb0,902);
    sprintf(str,"%s",CTabl.TextS("RD_FB_3",zap)); RealDeduction(str,rdfb3,902);
    sprintf(str,"%s",CTabl.TextS("RD_FB_2",zap)); RealDeduction(str,rdfb2,902);
    sprintf(str,"%s",CTabl.TextS("RD_FB_1",zap)); RealDeduction(str,rdfb1,902);

    sprintf(str,"%s",CTabl.TextS("RD_FS_0",zap)); RealDeduction(str,rdfs0,902);
    sprintf(str,"%s",CTabl.TextS("RD_FS_3",zap)); RealDeduction(str,rdfs3,902);
    sprintf(str,"%s",CTabl.TextS("RD_FS_2",zap)); RealDeduction(str,rdfs2,902);
    sprintf(str,"%s",CTabl.TextS("RD_FS_1",zap)); RealDeduction(str,rdfs1,902);

    sprintf(str,"%s",CTabl.TextS("RD_FF_0",zap)); RealDeduction(str,rdff0,902);
    sprintf(str,"%s",CTabl.TextS("RD_FF_3",zap)); RealDeduction(str,rdff3,902);
    sprintf(str,"%s",CTabl.TextS("RD_FF_2",zap)); RealDeduction(str,rdff2,902);
    sprintf(str,"%s",CTabl.TextS("RD_FF_1",zap)); RealDeduction(str,rdff1,902);

    sprintf(str,"%s",CTabl.TextS("RD_TF_0",zap)); RealDeduction(str,rdtf0,902);
    sprintf(str,"%s",CTabl.TextS("RD_TF_3",zap)); RealDeduction(str,rdtf3,902);
    sprintf(str,"%s",CTabl.TextS("RD_TF_2",zap)); RealDeduction(str,rdtf2,902);
    sprintf(str,"%s",CTabl.TextS("RD_TF_1",zap)); RealDeduction(str,rdtf1,902);

    TEMP=atof(CTabl.TextS("100_3",zap));T1003=T1003+TEMP;
    TEMP=atof(CTabl.TextS("100_5",zap));T1005=T1005+TEMP;
    TEMP=atof(CTabl.TextS("100_7",zap));T1007=T1007+TEMP;
    TEMP=atof(CTabl.TextS("100_9",zap));T1009=T1009+TEMP;

    TEMP=atof(CTabl.TextS("M1003",zap));M1003=M1003+TEMP;
    TEMP=atof(CTabl.TextS("M1005",zap));M1005=M1005+TEMP;
    TEMP=atof(CTabl.TextS("M1007",zap));M1007=M1007+TEMP;
    TEMP=atof(CTabl.TextS("M1009",zap));M1009=M1009+TEMP;

    TEMP=atof(CTabl.TextS("V1003",zap));V1003=V1003+TEMP;
    TEMP=atof(CTabl.TextS("V1005",zap));V1005=V1005+TEMP;
    TEMP=atof(CTabl.TextS("V1007",zap));V1007=V1007+TEMP;
    TEMP=atof(CTabl.TextS("V1009",zap));V1009=V1009+TEMP;

    TEMP=atof(CTabl.TextS("200_3",zap));T2003=T2003+TEMP;
    TEMP=atof(CTabl.TextS("200_5",zap));T2005=T2005+TEMP;
    TEMP=atof(CTabl.TextS("200_7",zap));T2007=T2007+TEMP;
    TEMP=atof(CTabl.TextS("200_9",zap));T2009=T2009+TEMP;

    TEMP=atof(CTabl.TextS("300_3",zap)); if (NSUM) if (TEMP<0) TEMP=0; T3003=T3003+TEMP; Z3003=TEMP;
    TEMP=atof(CTabl.TextS("300_5",zap)); if (NSUM) if (TEMP<0) TEMP=0; T3005=T3005+TEMP;
    TEMP=atof(CTabl.TextS("300_7",zap)); if (NSUM) if (TEMP<0) TEMP=0; T3007=T3007+TEMP;
    TEMP=atof(CTabl.TextS("300_9",zap)); if (NSUM) if (TEMP<0) TEMP=0; T3009=T3009+TEMP;

    TEMP=atof(CTabl.TextS("400_3",zap));T4003=T4003+TEMP; Z4003=TEMP;
    TEMP=atof(CTabl.TextS("400_5",zap));T4005=T4005+TEMP;
    TEMP=atof(CTabl.TextS("400_7",zap));T4007=T4007+TEMP;
    TEMP=atof(CTabl.TextS("400_9",zap));T4009=T4009+TEMP;

//    TEMP=atof(CTabl.TextS("NOFB0",zap)); fbNatOpVse+=TEMP;
      fbNatOpVse+=rdfb0;
//    TEMP=atof(CTabl.TextS("NOFB1",zap)); fbNatOp1+=TEMP;
      fbNatOp1+=rdfb1;

//    TEMP=atof(CTabl.TextS("NOFS0",zap)); fsNatOpVse+=TEMP;
      fsNatOpVse+=rdfs0;
//    TEMP=atof(CTabl.TextS("NOFS1",zap)); fsNatOp1+=TEMP;
      fsNatOp1+=rdfs1;

//    TEMP=atof(CTabl.TextS("NOFF0",zap)); ffNatOpVse+=TEMP;
      ffNatOpVse+=rdff0;
//    TEMP=atof(CTabl.TextS("NOFF1",zap)); ffNatOp1+=TEMP;
      ffNatOp1+=rdff1;

//    TEMP=atof(CTabl.TextS("NOTF0",zap)); tfNatOpVse+=TEMP;
      tfNatOpVse+=rdtf0;
//    TEMP=atof(CTabl.TextS("NOTF1",zap)); tfNatOp1+=TEMP;
      tfNatOp1+=rdtf1;

    if (PrMes0==1)
    {
      TEMP=atof(CTabl.TextS("110_3",zap));T1103=T1103+TEMP;
      TEMP=atof(CTabl.TextS("110_5",zap));T1105=T1105+TEMP;
      TEMP=atof(CTabl.TextS("110_7",zap));T1107=T1107+TEMP;
      TEMP=atof(CTabl.TextS("110_9",zap));T1109=T1109+TEMP;
      
      TEMP=atof(CTabl.TextS("M1103",zap));M1103=M1103+TEMP;
      TEMP=atof(CTabl.TextS("M1105",zap));M1105=M1105+TEMP;
      TEMP=atof(CTabl.TextS("M1107",zap));M1107=M1107+TEMP;
      TEMP=atof(CTabl.TextS("M1109",zap));M1109=M1109+TEMP;
      
      TEMP=atof(CTabl.TextS("V1103",zap));V1103=V1103+TEMP;
      TEMP=atof(CTabl.TextS("V1105",zap));V1105=V1105+TEMP;
      TEMP=atof(CTabl.TextS("V1107",zap));V1107=V1107+TEMP;
      TEMP=atof(CTabl.TextS("V1109",zap));V1109=V1109+TEMP;
      
      TEMP=atof(CTabl.TextS("210_3",zap));T2103=T2103+TEMP;
      TEMP=atof(CTabl.TextS("210_5",zap));T2105=T2105+TEMP;
      TEMP=atof(CTabl.TextS("210_7",zap));T2107=T2107+TEMP;
      TEMP=atof(CTabl.TextS("210_9",zap));T2109=T2109+TEMP;
      
      TEMP=atof(CTabl.TextS("310_3",zap)); if (NSUM) if (TEMP<0) TEMP=0; T3103=T3103+TEMP; Z3103=TEMP;
      TEMP=atof(CTabl.TextS("310_5",zap)); if (NSUM) if (TEMP<0) TEMP=0; T3105=T3105+TEMP;
      TEMP=atof(CTabl.TextS("310_7",zap)); if (NSUM) if (TEMP<0) TEMP=0; T3107=T3107+TEMP;
      TEMP=atof(CTabl.TextS("310_9",zap)); if (NSUM) if (TEMP<0) TEMP=0; T3109=T3109+TEMP;
      
      TEMP=atof(CTabl.TextS("410_3",zap)); T4103=T4103+TEMP; Z4103=TEMP;
      TEMP=atof(CTabl.TextS("410_5",zap)); T4105=T4105+TEMP;
      TEMP=atof(CTabl.TextS("410_7",zap)); T4107=T4107+TEMP;

      TEMP=atof(CTabl.TextS("410_9",zap)); T4109=T4109+TEMP;

//      TEMP=atof(CTabl.TextS("NOFB3",zap)); fbNatOp3+=TEMP;
        fbNatOp3+=rdfb3;
//      TEMP=atof(CTabl.TextS("NOFS3",zap)); fsNatOp3+=TEMP;
        fsNatOp3+=rdfs3;
//      TEMP=atof(CTabl.TextS("NOFF3",zap)); ffNatOp3+=TEMP;
        ffNatOp3+=rdff3;
//      TEMP=atof(CTabl.TextS("NOTF3",zap)); tfNatOp3+=TEMP;
        tfNatOp3+=rdtf3;
    } // end if PrMes0==1

    if (PrMes1==1)
    {
      TEMP=atof(CTabl.TextS("320_3",zap)); if (NSUM) if (TEMP<0) TEMP=0; T3203=T3203+TEMP; Z3203=TEMP;
      TEMP=atof(CTabl.TextS("420_3",zap)); T4203=T4203+TEMP; Z4203=TEMP;

//      TEMP=atof(CTabl.TextS("NOFB2",zap)); fbNatOp2+=TEMP;
        fbNatOp2+=rdfb2;
//      TEMP=atof(CTabl.TextS("NOFS2",zap)); fsNatOp2+=TEMP;
        fsNatOp2+=rdfs2;
//      TEMP=atof(CTabl.TextS("NOFF2",zap)); ffNatOp2+=TEMP;
        ffNatOp2+=rdff2;
//      TEMP=atof(CTabl.TextS("NOTF2",zap)); tfNatOp2+=TEMP;
        tfNatOp2+=rdtf2;
    }

    // ДЛЯ ИНВАЛИДОВ ** BEG ********************************************

    TEMP=atof(CTabl.TextS("D31",zap));D31=D31+TEMP;
//    INV=TEMP;

    // если вида нет vid_inv==-1; если даты действия строки не входят в
    // отчетный период vid_inv==0; если вид есть и действует в отчетном 
    // пнриоде vid_inv==1;
//    int vid_inv=atoi(CTabl.TextS("NSTR",zap));
//    if (vid_inv==1) INV+=1;

    if (FINV) INV=1;

    if (INV!=0)
    {
      CI++;
      char iStr[250];
      sprintf(iStr,"%s",CTabl.TextS("FIO",zap));
      if (EXCEL==1) OemToChar(iStr,iStr);

      INV_FIO[CI]=static_cast_to_string(iStr);

//      TEMP=(atof(CTabl.TextS("300_3",zap))-atof(CTabl.TextS("NOFB0",zap))); if (NSUM) if (TEMP<0) TEMP=0;
        TEMP=(atof(CTabl.TextS("300_3",zap))-rdfb0); if (NSUM) if (TEMP<0) TEMP=0;
//      TEMP=atof(CTabl.TextS("300_3",zap)); if (NSUM) if (TEMP<0) TEMP=0;
      INV_VSE[CI]=TEMP-atof(CTabl.TextS("D21",zap))-atof(CTabl.TextS("D11",zap))-atof(CTabl.TextS("D41",zap))-atof(CTabl.TextS("D51",zap));

      if (PrMes2==1)
      {
//        TEMP=(atof(CTabl.TextS("330_3",zap))-atof(CTabl.TextS("NOFB1",zap))); if (NSUM) if (TEMP<0) TEMP=0;
          TEMP=(atof(CTabl.TextS("330_3",zap))-rdfb1); if (NSUM) if (TEMP<0) TEMP=0;
//        TEMP=atof(CTabl.TextS("330_3",zap)); if (NSUM) if (TEMP<0) TEMP=0;
        INV_1ME[CI]=TEMP-atof(CTabl.TextS("D24",zap))-atof(CTabl.TextS("D14",zap))-atof(CTabl.TextS("D44",zap))-atof(CTabl.TextS("D54",zap));
      }

      if (PrMes1==1)
      {
//        TEMP=(atof(CTabl.TextS("320_3",zap))-atof(CTabl.TextS("NOFB2",zap))); if (NSUM) if (TEMP<0) TEMP=0;
          TEMP=(atof(CTabl.TextS("320_3",zap))-rdfb2); if (NSUM) if (TEMP<0) TEMP=0;
//        TEMP=atof(CTabl.TextS("320_3",zap)); if (NSUM) if (TEMP<0) TEMP=0;
        INV_2ME[CI]=TEMP-atof(CTabl.TextS("D23",zap))-atof(CTabl.TextS("D13",zap))-atof(CTabl.TextS("D43",zap))-atof(CTabl.TextS("D53",zap));
      }

      if (PrMes0==1)
      {
//        TEMP=(atof(CTabl.TextS("310_3",zap))-atof(CTabl.TextS("NOFB3",zap))); if (NSUM) if (TEMP<0) TEMP=0;
          TEMP=(atof(CTabl.TextS("310_3",zap))-rdfb3); if (NSUM) if (TEMP<0) TEMP=0;
//        TEMP=atof(CTabl.TextS("310_3",zap)); if (NSUM) if (TEMP<0) TEMP=0;
        INV_3ME[CI]=TEMP-atof(CTabl.TextS("D22",zap))-atof(CTabl.TextS("D12",zap))-atof(CTabl.TextS("D42",zap))-atof(CTabl.TextS("D52",zap));
      }

      INV_KVA[CI]=INV_1ME[CI]+INV_2ME[CI]+INV_3ME[CI];

      sprintf(str,"%s", CTabl.TextS("INV",zap));
      int CElem=count_elem(str,';');
      if (CElem==0)
      {
        CI--;
//      break;
//      INV_DAT[CI]="          ";
//      INV_GRU[CI]=0;
      }
      else
      {
        // берем первую ненулевую группу инвалидности за период
        int FlgGroup=0;
        for (int i=CElem; i>=1; i-=1)
        {
          char Buf[101];
          elem_of_array(str,i,';',Buf,100);
          int Group=GetGroupInv(Buf);
          if (Group==0) { continue; }
          if (Group!=0)
          {
            if (Group>3) // для неинвалидов работающих в организации инвалидов
            {
              continue;
            }

            FlgGroup=1;

            double DateEnd=GetDateEndInv(Buf);

            // дата на какой срок установлена инвалидность
            var KInv=CreateObject("KDate");
            KInv.SetDateD(DateEnd);

            if (KInv.IsEqI(INVALID_DATE_VALUE))
            {
              INV_KON[CI]="          ";
            }
            else
            {
              char TempS[20]; 
              sprintf(TempS,"%02d.%02d.%4d", KInv.GetDay(), KInv.GetMonth(), KInv.GetYear());
              INV_KON[CI]=TempS;
            }

            // номер справки
            if (EXCEL==0)
            {
              INV_NOM[CI]=RTrim(GetSerSpravInv(Buf,Rez,20))+" "+RTrim(GetNumSpravInv(Buf,Rez,20));
            }
            else
            {
              char sStr[250]; sprintf(sStr,"%s",RTrim(GetSerSpravInv(Buf,Rez,20)));
              char nStr[250]; sprintf(nStr,"%s",RTrim(GetNumSpravInv(Buf,Rez,20)));
              OemToChar(sStr,sStr);
              OemToChar(nStr,nStr);
              INV_NOM[CI]=sStr + " " + nStr;
            }

            // дата начала инвалидности
            double DateBeg=GetDateBegInv(Buf);
            var DInv=CreateObject("KDate");

            DInv.SetDateD(DateBeg);
            if (DInv.IsEqI(INVALID_DATE_VALUE))
            {
              INV_DAT[CI]="          ";
            }
            else
            {
              char TempS[20]; 
              sprintf(TempS,"%02d.%02d.%4d", DInv.GetDay(), DInv.GetMonth(), DInv.GetYear());
              INV_DAT[CI]=TempS;
            }
            // группа инвалидности
            INV_GRU[CI]=Group;
            break;
          }
        }
        if (FlgGroup==0) CI--;
      }
    }

    S_A =CTabl.TextS("500_A",zap);T500A=T500A+S_A; 
    S_L =CTabl.TextS("500_L",zap);T500L=T500L+S_L; 
    TEMP=CTabl.TextS("500_3",zap);
    if (INV==0) { T5003+=TEMP; } else { T5003+=(TEMP+S_A+S_L); }

    if (PrMes0==1)
    {
      S_A =CTabl.TextS("510_A",zap);T510A=T510A+S_A; 
      S_L =CTabl.TextS("510_L",zap);T510L=T510L+S_L; 
      TEMP=CTabl.TextS("510_3",zap);
      if (INV==0) { T5103+=TEMP; } else { T5103+=(TEMP+S_A+S_L); }
    }

    if (PrMes1==1)
    {
      S_A =CTabl.TextS("520_A",zap);T520A=T520A+S_A; 
      S_L =CTabl.TextS("520_L",zap);T520L=T520L+S_L;  
      TEMP=CTabl.TextS("520_3",zap);
      if (INV==0) { T5203+=TEMP; } else { T5203+=(TEMP+S_A+S_L); }
    }

    if (PrMes2==1)
    {
      S_A =CTabl.TextS("530_A",zap);T530A=T530A+S_A; 
      S_L =CTabl.TextS("530_L",zap);T530L=T530L+S_L; 
      TEMP=CTabl.TextS("530_3",zap);
      if (INV==0) { T5303+=TEMP; } else { T5303+=(TEMP+S_A+S_L); }
    }

    // ДЛЯ ИНВАЛИДОВ ** END ********************************************


    TEMP=CTabl.TextS("500_5",zap);T5005=T5005+TEMP;
    TEMP=CTabl.TextS("500_7",zap);T5007=T5007+TEMP;
    TEMP=CTabl.TextS("500_9",zap);T5009=T5009+TEMP;

    TEMP=CTabl.TextS("600_5",zap);T6005=T6005+TEMP;
    TEMP=CTabl.TextS("605_5",zap);T6105=T6105+TEMP;

    TEMP=CTabl.TextS("A11",zap);A11=A11+TEMP;
    TEMP=CTabl.TextS("A21",zap);A21=A21+TEMP;
    TEMP=CTabl.TextS("A31",zap);A31=A31+TEMP;
    TEMP=CTabl.TextS("A41",zap);A41=A41+TEMP;
    TEMP=CTabl.TextS("A51",zap);A51=A51+TEMP;
    TEMP=CTabl.TextS("A61",zap);A61=A61+TEMP;
    
    TEMP=CTabl.TextS("D11",zap);D11=D11+TEMP;
    TEMP=CTabl.TextS("D21",zap);D21=D21+TEMP;
    TEMP=CTabl.TextS("D41",zap);D41=D41+TEMP;
    TEMP=CTabl.TextS("D51",zap);D51=D51+TEMP;

    TEMP=CTabl.TextS("MP5",zap);MP5=MP5+TEMP;
    TEMP=CTabl.TextS("MD5",zap);MD5=MD5+TEMP;
    TEMP=CTabl.TextS("MP7",zap);MP7=MP7+TEMP;
    TEMP=CTabl.TextS("MD7",zap);MD7=MD7+TEMP;
    TEMP=CTabl.TextS("MP9",zap);MP9=MP9+TEMP;
    TEMP=CTabl.TextS("MD9",zap);MD9=MD9+TEMP;

    TEMP=CTabl.TextS("NOFB01",zap);fb507+=TEMP;
    TEMP=CTabl.TextS("NOFS01",zap);fs507+=TEMP;
    TEMP=CTabl.TextS("NOFF01",zap);ff507+=TEMP;
    TEMP=CTabl.TextS("NOTF01",zap);tf507+=TEMP;

    if (PrMes0==1)
    {
      TEMP=CTabl.TextS("510_5",zap);T5105=T5105+TEMP;
      TEMP=CTabl.TextS("510_7",zap);T5107=T5107+TEMP;
      TEMP=CTabl.TextS("510_9",zap);T5109=T5109+TEMP;

      TEMP=CTabl.TextS("A12",zap);A12=A12+TEMP;
      TEMP=CTabl.TextS("A22",zap);A22=A22+TEMP;
      TEMP=CTabl.TextS("A32",zap);A32=A32+TEMP;
      TEMP=CTabl.TextS("A42",zap);A42=A42+TEMP;
      TEMP=CTabl.TextS("A52",zap);A52=A52+TEMP;
      TEMP=CTabl.TextS("A62",zap);A62=A62+TEMP;
    
      TEMP=CTabl.TextS("D12",zap);D12=D12+TEMP;
      TEMP=CTabl.TextS("D22",zap);D22=D22+TEMP;
      TEMP=CTabl.TextS("D32",zap);D32=D32+TEMP;
      TEMP=CTabl.TextS("D42",zap);D42=D42+TEMP;
      TEMP=CTabl.TextS("D52",zap);D52=D52+TEMP;
    }

    if (PrMes1==1)
    {
      TEMP=atof(CTabl.TextS("A13",zap));A13+=TEMP;
    }

    if (PrMes2==1)
    {
      TEMP=CTabl.TextS("A14",zap);A14=A14+TEMP;
    }

    TEMP=CTabl.TextS("AC11",zap);AC11=AC11+TEMP; 
    TEMP=CTabl.TextS("AM11",zap);AM11=AM11+TEMP; 
    TEMP=CTabl.TextS("AT11",zap);AT11=AT11+TEMP;

    if (PrMes0==1)
    {
      TEMP=CTabl.TextS("AC12",zap);AC12=AC12+TEMP; 
      TEMP=CTabl.TextS("AM12",zap);AM12=AM12+TEMP; 
      TEMP=CTabl.TextS("AT12",zap);AT12=AT12+TEMP;
    }

    if (PrMes1==1)
    {
      TEMP=CTabl.TextS("AC13",zap);AC13=AC13+TEMP; 
      TEMP=CTabl.TextS("AM13",zap);AM13=AM13+TEMP; 
      TEMP=CTabl.TextS("AT13",zap);AT13=AT13+TEMP;
    }

    if (PrMes2==1)
    {
      TEMP=CTabl.TextS("AC14",zap);AC14=AC14+TEMP; 
      TEMP=CTabl.TextS("AM14",zap);AM14=AM14+TEMP; 
      TEMP=CTabl.TextS("AT14",zap);AT14=AT14+TEMP;
    }

    if (PrMes1==1)
    {
      TEMP=CTabl.TextS("M1203",zap);M1203=M1203+TEMP; 
      TEMP=CTabl.TextS("M1205",zap);M1205=M1205+TEMP; 
      TEMP=CTabl.TextS("M1207",zap);M1207=M1207+TEMP; 
      TEMP=CTabl.TextS("M1209",zap);M1209=M1209+TEMP; 
    
      TEMP=CTabl.TextS("V1203",zap);V1203=V1203+TEMP; 
      TEMP=CTabl.TextS("V1205",zap);V1205=V1205+TEMP; 
      TEMP=CTabl.TextS("V1207",zap);V1207=V1207+TEMP; 
      TEMP=CTabl.TextS("V1209",zap);V1209=V1209+TEMP; 
    }

    if (PrMes2==1)
    {
      TEMP=CTabl.TextS("M1303",zap);M1303=M1303+TEMP;   
      TEMP=CTabl.TextS("M1305",zap);M1305=M1305+TEMP;   
      TEMP=CTabl.TextS("M1307",zap);M1307=M1307+TEMP;  
      TEMP=CTabl.TextS("M1309",zap);M1309=M1309+TEMP;   
    
      TEMP=CTabl.TextS("V1303",zap);V1303=V1303+TEMP;   
      TEMP=CTabl.TextS("V1305",zap);V1305=V1305+TEMP;   
      TEMP=CTabl.TextS("V1307",zap);V1307=V1307+TEMP;  
      TEMP=CTabl.TextS("V1309",zap);V1309=V1309+TEMP;   
    }

    if (PrMes1==1)
    {
      TEMP=CTabl.TextS("120_3",zap);T1203=T1203+TEMP; 
      TEMP=CTabl.TextS("120_5",zap);T1205=T1205+TEMP; 
      TEMP=CTabl.TextS("120_7",zap);T1207=T1207+TEMP; 
      TEMP=CTabl.TextS("120_9",zap);T1209=T1209+TEMP; 
    
      TEMP=CTabl.TextS("220_3",zap);T2203=T2203+TEMP; 
      TEMP=CTabl.TextS("220_5",zap);T2205=T2205+TEMP; 
      TEMP=CTabl.TextS("220_7",zap);T2207=T2207+TEMP; 
      TEMP=CTabl.TextS("220_9",zap);T2209=T2209+TEMP; 
    
      TEMP=CTabl.TextS("320_5",zap); if (NSUM) if (TEMP<0) TEMP=0; T3205=T3205+TEMP; 
      TEMP=CTabl.TextS("320_7",zap); if (NSUM) if (TEMP<0) TEMP=0; T3207=T3207+TEMP; 
      TEMP=CTabl.TextS("320_9",zap); if (NSUM) if (TEMP<0) TEMP=0; T3209=T3209+TEMP; 
    
      TEMP=CTabl.TextS("420_5",zap);T4205=T4205+TEMP; 
      TEMP=CTabl.TextS("420_7",zap);T4207=T4207+TEMP; 
      TEMP=CTabl.TextS("420_9",zap);T4209=T4209+TEMP; 
    
      TEMP=CTabl.TextS("520_5",zap);T5205=T5205+TEMP; 
      TEMP=CTabl.TextS("520_7",zap);T5207=T5207+TEMP; 
      TEMP=CTabl.TextS("520_9",zap);T5209=T5209+TEMP; 
    
      TEMP=CTabl.TextS("625_5",zap);T6255=T6255+TEMP; 
    
      TEMP=CTabl.TextS("720_3",zap);T7203=T7203+TEMP; 
      TEMP=CTabl.TextS("720_7",zap);T7207=T7207+TEMP; 
      TEMP=CTabl.TextS("720_9",zap);T7209=T7209+TEMP; 
    }


    if (PrMes2==1)
    {
      TEMP=CTabl.TextS("130_3",zap);T1303=T1303+TEMP;   
      TEMP=CTabl.TextS("130_5",zap);T1305=T1305+TEMP;   
      TEMP=CTabl.TextS("130_7",zap);T1307=T1307+TEMP;  
      TEMP=CTabl.TextS("130_9",zap);T1309=T1309+TEMP;   
    
      TEMP=CTabl.TextS("230_3",zap);T2303=T2303+TEMP;   
      TEMP=CTabl.TextS("230_5",zap);T2305=T2305+TEMP;   
      TEMP=CTabl.TextS("230_7",zap);T2307=T2307+TEMP;  
      TEMP=CTabl.TextS("230_9",zap);T2309=T2309+TEMP;   
    
      TEMP=CTabl.TextS("330_3",zap); if (NSUM) if (TEMP<0) TEMP=0; T3303=T3303+TEMP; 
      TEMP=CTabl.TextS("330_5",zap); if (NSUM) if (TEMP<0) TEMP=0; T3305=T3305+TEMP;   
      TEMP=CTabl.TextS("330_7",zap); if (NSUM) if (TEMP<0) TEMP=0; T3307=T3307+TEMP;  
      TEMP=CTabl.TextS("330_9",zap); if (NSUM) if (TEMP<0) TEMP=0; T3309=T3309+TEMP;   
    
      TEMP=CTabl.TextS("430_3",zap);T4303=T4303+TEMP; 
      TEMP=CTabl.TextS("430_5",zap);T4305=T4305+TEMP;   
      TEMP=CTabl.TextS("430_7",zap);T4307=T4307+TEMP;  
      TEMP=CTabl.TextS("430_9",zap);T4309=T4309+TEMP;   
    
      TEMP=CTabl.TextS("530_5",zap);T5305=T5305+TEMP;   
      TEMP=CTabl.TextS("530_7",zap);T5307=T5307+TEMP;  
      TEMP=CTabl.TextS("530_9",zap);T5309=T5309+TEMP;   
    
      TEMP=CTabl.TextS("635_5",zap);T6355=T6355+TEMP;   
    
      TEMP=CTabl.TextS("730_3",zap);T7303=T7303+TEMP;   
      TEMP=CTabl.TextS("730_7",zap);T7307=T7307+TEMP;  
      TEMP=CTabl.TextS("730_9",zap);T7309=T7309+TEMP;   
    }
                                                                                                      TEMP=CTabl.TextS("720_5",zap);T7205=T7205+TEMP; TEMP=CTabl.TextS("730_5",zap);T7305=T7305+TEMP;

    if (PrMes1==1)
    {
      TEMP=CTabl.TextS("D13",zap);D13=D13+TEMP; 
      TEMP=CTabl.TextS("D23",zap);D23=D23+TEMP; 
      TEMP=CTabl.TextS("D43",zap);D43=D43+TEMP; 
      TEMP=CTabl.TextS("D53",zap);D53=D53+TEMP; 
    }

    if (PrMes2==1)
    {
      TEMP=CTabl.TextS("D14",zap);D14=D14+TEMP;
      TEMP=CTabl.TextS("D24",zap);D24=D24+TEMP;
      TEMP=CTabl.TextS("D44",zap);D44=D44+TEMP;
      TEMP=CTabl.TextS("D54",zap);D54=D54+TEMP;
    }


    TEMP=CTabl.TextS("FB78",zap);FB78=FB78+TEMP; 
    TEMP=CTabl.TextS("FB79",zap);FB79=FB79+TEMP;
    TEMP=CTabl.TextS("FB69",zap);FB69=FB69+TEMP;

    TEMP=CTabl.TextS("FS78",zap);FS78=FS78+TEMP; 
    TEMP=CTabl.TextS("FS77",zap);FS77=FS77+TEMP;
    TEMP=CTabl.TextS("FS69",zap);FS69=FS69+TEMP;

    TEMP=CTabl.TextS("FF78",zap);FF78=FF78+TEMP; 
    TEMP=CTabl.TextS("FF79",zap);FF79=FF79+TEMP;
    TEMP=CTabl.TextS("FF69",zap);FF69=FF69+TEMP;

    TEMP=CTabl.TextS("TF78",zap);TF78=TF78+TEMP; 
    TEMP=CTabl.TextS("TF79",zap);TF79=TF79+TEMP;
    TEMP=CTabl.TextS("TF69",zap);TF69=TF69+TEMP;

    TEMP=atof(CTabl.TextS("SCH1",zap));     TEMPI=atoi(CTabl.TextS("KR1",zap));    
    if (TEMPI==0) { SCHP[0]+=TEMP; } if (TEMPI==1) { SCHS[0]+=TEMP; } if (TEMPI==2) { SCHD[0]+=TEMP; }

    TEMP=atof(CTabl.TextS("SCH2",zap));     TEMPI=atoi(CTabl.TextS("KR2",zap));    
    if (TEMPI==0) { SCHP[1]+=TEMP; } if (TEMPI==1) { SCHS[1]+=TEMP; } if (TEMPI==2) { SCHD[1]+=TEMP; }

    TEMP=atof(CTabl.TextS("SCH3",zap));     TEMPI=atoi(CTabl.TextS("KR3",zap));    
    if (TEMPI==0) { SCHP[2]+=TEMP; } if (TEMPI==1) { SCHS[2]+=TEMP; } if (TEMPI==2) { SCHD[2]+=TEMP; }

    TEMP=atof(CTabl.TextS("SCH4",zap));     TEMPI=atoi(CTabl.TextS("KR4",zap));    
    if (TEMPI==0) { SCHP[3]+=TEMP; } if (TEMPI==1) { SCHS[3]+=TEMP; } if (TEMPI==2) { SCHD[3]+=TEMP; }

    TEMP=atof(CTabl.TextS("SCH5",zap));     TEMPI=atoi(CTabl.TextS("KR5",zap));    
    if (TEMPI==0) { SCHP[4]+=TEMP; } if (TEMPI==1) { SCHS[4]+=TEMP; } if (TEMPI==2) { SCHD[4]+=TEMP; }

    TEMP=atof(CTabl.TextS("SCH6",zap));     TEMPI=atoi(CTabl.TextS("KR6",zap));    
    if (TEMPI==0) { SCHP[5]+=TEMP; } if (TEMPI==1) { SCHS[5]+=TEMP; } if (TEMPI==2) { SCHD[5]+=TEMP; }

    TEMP=atof(CTabl.TextS("SCH7",zap));     TEMPI=atoi(CTabl.TextS("KR7",zap));    
    if (TEMPI==0) { SCHP[6]+=TEMP; } if (TEMPI==1) { SCHS[6]+=TEMP; } if (TEMPI==2) { SCHD[6]+=TEMP; }

    TEMP=atof(CTabl.TextS("SCH8",zap));     TEMPI=atoi(CTabl.TextS("KR8",zap));    
    if (TEMPI==0) { SCHP[7]+=TEMP; } if (TEMPI==1) { SCHS[7]+=TEMP; } if (TEMPI==2) { SCHD[7]+=TEMP; }

    TEMP=atof(CTabl.TextS("SCH9",zap));     TEMPI=atoi(CTabl.TextS("KR9",zap));    
    if (TEMPI==0) { SCHP[8]+=TEMP; } if (TEMPI==1) { SCHS[8]+=TEMP; } if (TEMPI==2) { SCHD[8]+=TEMP; }

    TEMP=atof(CTabl.TextS("SCH10",zap));    TEMPI=atoi(CTabl.TextS("KR10",zap));    
    if (TEMPI==0) { SCHP[9]+=TEMP; } if (TEMPI==1) { SCHS[9]+=TEMP; } if (TEMPI==2) { SCHD[9]+=TEMP; }

    TEMP=atof(CTabl.TextS("SCH11",zap));    TEMPI=atoi(CTabl.TextS("KR11",zap));    
    if (TEMPI==0) { SCHP[10]+=TEMP; } if (TEMPI==1){ SCHS[10]+=TEMP; } if (TEMPI==2) { SCHD[10]+=TEMP; }

    TEMP=atof(CTabl.TextS("SCH12",zap));    TEMPI=atoi(CTabl.TextS("KR12",zap));    
    if (TEMPI==0) { SCHP[11]+=TEMP; } if (TEMPI==1){ SCHS[11]+=TEMP; } if (TEMPI==2) { SCHD[11]+=TEMP; }

    Doh1[zap]=Z3003+Z4003-(Z3103+Z4103)-(Z3203+Z4203); // доход 1 месяца последнего квартала
    Doh2[zap]=Z3003+Z4003-(Z3103+Z4103);               // доход 2 месяца последнего квартала
    Doh3[zap]=Z3003+Z4003;                             // доход 3 месяца последнего квартала


    // расчет 7 листа (обычная организация или организация инвалидов)

    double sn[43][14];

    for (int i=0; i<43; i++)
      for (int j=0; j<14; j++)
        sn[i][j]=0.0;

    if (TYPORG==0 || TYPORG==2)
    {
      sn[10][8]=0.04;  sn[10][10]=0.002; sn[10][12]=0.034;
      sn[21][8]=4000;  sn[21][10]=200;   sn[21][12]=3400;  
      sn[22][8]=0.022; sn[22][10]=0.001; sn[22][12]=0.019;
      sn[31][8]=8400;  sn[31][10]=400;   sn[31][12]=7200;  
      sn[32][8]=0.011; sn[32][10]=0.001; sn[32][12]=0.009;
      sn[40][8]=11700; sn[40][10]=700;   sn[40][12]=9900;  

      if (FINV || FVMENEN)
      {
        sn[10][6]=0.14;   
        sn[21][6]=14000;   
        sn[22][6]=0.079;  
        sn[31][6]=29800;   
        sn[32][6]=0.0395; 
        sn[41][6]=41650; 
        sn[42][6]=0.02;  
      }
      else
      {
        sn[10][6]=0.28;   
        sn[21][6]=28000;   
        sn[22][6]=0.158;  
        sn[31][6]=59600;   
        sn[32][6]=0.079;  
        sn[41][6]=83300;  
        sn[42][6]=0.02;  
      }
    }

    if (TYPORG==1 || TYPORG==3)
    {
      sn[10][8]=0.029; sn[10][10]=0.001; sn[10][12]=0.025;
      sn[21][8]=2900;  sn[21][10]=100;   sn[21][12]=2500;  
      sn[22][8]=0.022; sn[22][10]=0.001; sn[22][12]=0.019;
      sn[31][8]=7300;  sn[31][10]=300;   sn[31][12]=6300;  
      sn[32][8]=0.011; sn[32][10]=0.001; sn[32][12]=0.009;
      sn[40][8]=10600; sn[40][10]=600;   sn[40][12]=9000;  

      if (FINV || FVMENEN)
      {
        sn[10][6]=0.103;   
        sn[21][6]=10300;   
        sn[22][6]=0.079;  
        sn[31][6]=26100;   
        sn[32][6]=0.0395; 
        sn[41][6]=37950; 
        sn[42][6]=0.02;  
      }
      else
      {
        sn[10][6]=0.206;   
        sn[21][6]=20600;   
        sn[22][6]=0.158;  
        sn[31][6]=52200;   
        sn[32][6]=0.079;  
        sn[41][6]=75900;  
        sn[42][6]=0.02;  
      }
    }

    double tDed=0.; // сумма вычета
    double tNal=0.; // сумма налога
    double tObl=0.; // облагаемая сумма
    double tPre=0.; // превышение

    double nal1=0.;

    // расчет 7 листа 
    RFLAG=FindRegrFlag(MKper.GetAbs());
    TEMP3=0;
    TEMP3=CTabl.TextS("400_3",zap);

    if (FINV && TAXINV)
    {
      tDed=atof(CTabl.TextS("D17FB",zap));
      tNal=atof(CTabl.TextS("500_3",zap));
      tObl=TEMP3;
      TEMP3=TEMP3+tDed;
    }
  
    if((TEMP3)>0)
    {
      if( ((TEMP3-100000)<0) || ((RFLAG-2)==0) )
      {
        if (FINV && TAXINV) R12=R12+tObl; else R12=R12+TEMP3;
        if (FINV && TAXINV) R1T5=R1T5+tObl*sn[10][6]; else R1T5=R1T5+TEMP3*sn[10][6]; 
        round(R1T5);
        if (FINV && TAXINV) { if (tObl>0.001) S12=S12+1; } else S12=S12+1;
      }
      else
      {
        if( (TEMP3-300000)<0 )
        {
          if (FINV && TAXINV) 
          {
            R22=R22+tObl;             // итоговая сумма
            S22=S22+1;                // численность
            tPre=TEMP3-100000;        // сумма превышающая 100 000
            R32=R32+(tObl-tPre);      // сумма попадающая в строку 100 000
            nal1=tPre*sn[22][6]; round(nal1); // налог на сумму превышающую 300 000
            R4T5=R4T5+nal1;           // налог на сумму превышающую 100 000 - сумма 
            R3T5=R3T5+(tNal-nal1);    // налог на остальную сумму
            R42=R42+tPre;             // сумма попадающая в строку свыше 100 000
          }
          else
          {
            R22=R22+TEMP3;
            S22=S22+1;
            R32=R32+100000;
            R3T5=R3T5+sn[21][6];
            R42=R42+TEMP3-100000;
            R4T5=R4T5+(TEMP3-100000)*sn[22][6]; round(R4T5);
          }
        }
        else
        {
          if( (TEMP3-600000)<0 )
          {
            if (FINV && TAXINV) 
            {
              R52=R52+tObl;          // итоговая сумма
              S52=S52+1;             // численность
              tPre=TEMP3-300000;     // сумма превышающая 300 000
              R62=R62+(tObl-tPre);   // сумма попадающая в строку 300 000
              nal1=tPre*sn[32][6]; round(nal1); // налог на сумму превышающую 300 000
              R7T5=R7T5+nal1;        // налог на сумму превышающую 300 000 - сумма 
              R6T5=R6T5+(tNal-nal1); // налог на остальную сумму
              R72=R72+tPre;          // сумма попадающая в строку свыше 300 000
            }
            else
            {
              R52=R52+TEMP3;
              S52=S52+1;
              R62=R62+300000;
              R6T5=R6T5+sn[31][6];
              R72=R72+TEMP3-300000;
              R7T5=R7T5+(TEMP3-300000)*sn[32][6]; round(R7T5);
            }
          }
          else
          {
            if (FINV && TAXINV) 
            {
              R82=R82+tObl;          // итоговая сумма
              S82=S82+1;             // численность
              tPre=TEMP3-600000;     // сумма превышающая 600 000
              R92=R92+(tObl-tPre);   // сумма попадающая в строку 600 000
              nal1=tPre*sn[42][6]; round(nal1); // налог на сумму превышающую 600 000
              R0T5=R0T5+nal1;        // налог на сумму превышающую 600 000 - сумма 
              R9T5=R9T5+(tNal-nal1); // налог на остальную сумму
              R02=R02+tPre;          // сумма попадающая в строку свыше 600 000
            }
            else
            {
              R82=R82+TEMP3;
              S82=S82+1;
              R92=R92+600000;
              R9T5=R9T5+sn[41][6];
              R02=R02+TEMP3-600000;
              R0T5=R0T5+(TEMP3-600000)*sn[42][6]; round(R0T5);
            }
          }
        }
      }
    }

    // расчет ФСС тут IT признак договорников, пока что используется только 
    // в 9й колонке
  
    IT=atoi(CTabl.TextS("INCTYPE",zap));
    TEMP3=CTabl.TextS("400_5",zap);

    if (FINV && TAXINV)
    {
      tDed=atof(CTabl.TextS("D17FSS",zap));
      tNal=atof(CTabl.TextS("500_5",zap));
      tObl=TEMP3;
      TEMP3=TEMP3+tDed;
    }

    if( (TEMP3)>0 )
    {
      if( ((TEMP3-100000)<0) || ((RFLAG-2)==0) )
      {
        if (FINV && TAXINV) R14=R14+tObl; else R14=R14+TEMP3;
        if (FINV && TAXINV) R1T7=R1T7+tObl*sn[10][8]; else R1T7=R1T7+TEMP3*sn[10][8];
        round(R1T7);
        if (FINV && TAXINV) 
        {
          if( (IT-2)!=0 && tObl>0.001) { S14=S14+1; }
        }
        else
        {
          if( (IT-2)!=0 ) { S14=S14+1; }
        }
      }
      else
      {
        if( (TEMP3-300000)<0 )
        {
          if (FINV && TAXINV) 
          {
            R24=R24+tObl;             // итоговая сумма
            if( (IT-2)!=0 ) S24=S24+1;// численность
            tPre=TEMP3-100000;        // сумма превышающая 100 000
            R34=R34+(tObl-tPre);      // сумма попадающая в строку 100 000
            nal1=tPre*sn[22][8]; round(nal1); // налог на сумму превышающую 300 000
            R4T7=R4T7+nal1;           // налог на сумму превышающую 100 000 - сумма 
            R3T7=R3T7+(tNal-nal1);    // налог на остальную сумму
            R44=R44+tPre;             // сумма попадающая в строку свыше 100 000
          }
          else
          {
            R24=R24+TEMP3;
            if( (IT-2)!=0 ) { S24=S24+1; }
            R34=R34+100000;
            R3T7=R3T7+sn[21][8];
            R44=R44+TEMP3-100000;
            R4T7=R4T7+(TEMP3-100000)*sn[22][8]; round(R4T7);
          }
        }
        else
        {
          if( (TEMP3-600000)<0 )
          {
            if (FINV && TAXINV) 
            {
              R54=R54+tObl;          // итоговая сумма
              tPre=TEMP3-300000;     // сумма превышающая 300 000
              R64=R64+(tObl-tPre);   // сумма попадающая в строку 300 000
              nal1=tPre*sn[32][8]; round(nal1); // налог на сумму превышающую 300 000
              R7T7=R7T7+nal1;        // налог на сумму превышающую 300 000 - сумма 
              R6T7=R6T7+(tNal-nal1); // налог на остальную сумму
              R74=R74+tPre;          // сумма попадающая в строку свыше 300 000
            }
            else
            {
              R54=R54+TEMP3;
              R64=R64+300000;
              R6T7=R6T7+sn[31][8];
              R74=R74+TEMP3-300000;
              R7T7=R7T7+(TEMP3-300000)*sn[32][8]; round(R7T7);
            }
            if( (IT-2)!=0 ) { S54=S54+1; } // численность
          }
          else
          {
            if (FINV && TAXINV)
            {
              R84=R84+tObl;
              R8T7=R8T7+tNal;
            }
            else
            {
              R84=R84+TEMP3;
              R8T7=R8T7+sn[40][8];
            }
            if( (IT-2)!=0 ) { S84=S84+1; }
          }
        }
      }
    }

    // расчет ФФОМС

    TEMP3=CTabl.TextS("400_7",zap);

    if (FINV && TAXINV)
    {
      tDed=atof(CTabl.TextS("D17MF",zap));
      tNal=atof(CTabl.TextS("500_7",zap));
      tObl=TEMP3;
      TEMP3=TEMP3+tDed;
    }

    if( (TEMP3)>0 )
    {
      if( ((TEMP3-100000)<0) || ((RFLAG-2)==0) )
      {
        if (FINV && TAXINV) R13=R13+tObl; else R13=R13+TEMP3;
        if (FINV && TAXINV) R1T9=R1T9+tObl*sn[10][10]; else R1T9=R1T9+TEMP3*sn[10][10];
        round(R1T9);
        if (FINV && TAXINV) 
        {
          if (tObl>0.001) S13=S13+1;
        }
        else
        {
          S13=S13+1;
        }
      }
      else
      {
        if( (TEMP3-300000)<0 )
        {
          if (FINV && TAXINV) 
          {
            R23=R23+tObl;             // итоговая сумма
            tPre=TEMP3-100000;        // сумма превышающая 100 000
            R33=R33+(tObl-tPre);      // сумма попадающая в строку 100 000
            nal1=tPre*sn[22][10]; round(nal1); // налог на сумму превышающую 300 000
            R4T9=R4T9+nal1;           // налог на сумму превышающую 100 000 - сумма 
            R3T9=R3T9+(tNal-nal1);    // налог на остальную сумму
            R43=R43+tPre;             // сумма попадающая в строку свыше 100 000
          }
          else
          {
            R23=R23+TEMP3;
            R33=R33+100000;
            R3T9=R3T9+sn[21][10];
            R43=R43+TEMP3-100000;
            R4T9=R4T9+(TEMP3-100000)*sn[22][10]; round(R4T9);
          }
          S23=S23+1; // численность
        }
        else
        {
          if( (TEMP3-600000)<0 )
          {
            if (FINV && TAXINV) 
            {
              R53=R53+tObl;          // итоговая сумма
              tPre=TEMP3-300000;     // сумма превышающая 300 000
              R63=R63+(tObl-tPre);   // сумма попадающая в строку 300 000
              nal1=tPre*sn[32][10]; round(nal1); // налог на сумму превышающую 300 000
              R7T9=R7T9+nal1;        // налог на сумму превышающую 300 000 - сумма 
              R6T9=R6T9+(tNal-nal1); // налог на остальную сумму
              R73=R73+tPre;          // сумма попадающая в строку свыше 300 000
            }
            else
            {
              R53=R53+TEMP3;
              R63=R63+300000;
              R6T9=R6T9+sn[31][10];
              R73=R73+TEMP3-300000;
              R7T9=R7T9+(TEMP3-300000)*sn[32][10]; round(R7T9);
            }
            S53=S53+1;
          }
          else
          {
            if (FINV && TAXINV)
            {
              R83=R83+tObl;
              R8T9=R8T9+tNal;
            }
            else
            {
              R83=R83+TEMP3;
              R8T9=R8T9+sn[40][10];
            }
            S83=S83+1;
          }
        }
      }
    }

    // расчет ТФОМС

    TEMP3=CTabl.TextS("400_9",zap);

    if (FINV && TAXINV)
    {
      tDed=atof(CTabl.TextS("D17TF",zap));
      tNal=atof(CTabl.TextS("500_9",zap));
      tObl=TEMP3;
      TEMP3=TEMP3+tDed;
    }

    if( (TEMP3)>0 )
    {
      if( ((TEMP3-100000)<0) || ((RFLAG-2)==0) )
      {
        if (FINV && TAXINV) R1T11=R1T11+tObl*sn[10][12]; 
        else R1T11=R1T11+TEMP3*sn[10][12];
        round(R1T11);
      }
      else
      {
        if( (TEMP3-300000)<0 )
        {
          if (FINV && TAXINV) 
          {
            tPre=TEMP3-100000;          // сумма превышающая 100 000
            nal1=tPre*sn[22][12]; round(nal1); // налог на сумму превышающую 300 000
            R4T11=R4T11+nal1;           // налог на сумму превышающую 100 000 - сумма 
            R3T11=R3T11+(tNal-nal1);    // налог на остальную сумму
          }
          else
          {
            R3T11=R3T11+sn[21][12];
            R4T11=R4T11+(TEMP3-100000)*sn[22][12]; round(R4T11);
          }
        }
        else
        {
          if( (TEMP3-600000)<0 )
          {
            if (FINV && TAXINV) 
            {
              tPre=TEMP3-300000;     // сумма превышающая 300 000
              nal1=tPre*sn[32][12]; round(nal1); // налог на сумму превышающую 300 000
              R7T11=R7T11+nal1;        // налог на сумму превышающую 300 000 - сумма 
              R6T11=R6T11+(tNal-nal1); // налог на остальную сумму
            }
            else
            {
              R6T11=R6T11+sn[31][12];
              R7T11=R7T11+(TEMP3-300000)*sn[32][12]; round(R7T11);
            }
          }
          else
          {
            if (FINV && TAXINV) R8T11=R8T11+tNal; else R8T11=R8T11+sn[40][12];
          }
        }
      }
    }
  } // for (zap)

  // BEG - отсортируем таблички дохода
  double tmp2=0.;
  double MElem=0.;
  int    Nomer=0;

  for (int i=0; i<CR-1; i++)
  {
    MElem=Doh1[i];
    Nomer=i;
    tmp2=0.;
    for (int j=i+1; j<CR; j++)
    {
      if (Doh1[j]>MElem)
      {
        Nomer=j;
        MElem=Doh1[j];
      }
    }
    tmp2=Doh1[i];
    Doh1[i]=Doh1[Nomer];
    Doh1[Nomer]=tmp2;
  }

  for (int i=0; i<CR-1; i++)
  {
    MElem=Doh2[i];
    Nomer=i;
    for (int j=i+1; j<CR; j++)
    {
      if (Doh2[j]>MElem)
      {
        Nomer=j;
        MElem=Doh2[j];
      }
    }
    tmp1=Doh2[i];
    Doh2[i]=Doh2[Nomer];
    Doh2[Nomer]=tmp1;
  }

  for (int i=0; i<CR-1; i++)
  {
    MElem=Doh3[i];
    Nomer=i;
    for (int j=i+1; j<CR; j++)
    {
      if (Doh3[j]>MElem)
      {
        Nomer=j;
        MElem=Doh3[j];
      }
    }
    tmp1=Doh3[i];
    Doh3[i]=Doh3[Nomer];
    Doh3[Nomer]=tmp1;
  }
  // END - отсортировали таблички дохода

  T60051=CTabl.TextS("600_5_1",0);T61051=CTabl.TextS("605_5_1",0);
  T70051=CTabl.TextS("610_5_1",0);T71051=CTabl.TextS("611_5_1",0);
  double T60FL=T60051+T61051;
  double T70FL=T70051+T71051;
  if((T60FL)==0)
  {
    T60051=T6005;T61051=T6105;
  }
  if((T70FL)==0)
  {
    T70051=T7005;T71051=T7105;
  }

  //#КОДВ=ЗАПРОС( ,Расходы произведенные на цели гос. соц. страхования,итогом с начала года      (600),T60051,в том числе за отч. месяц (610),T61051);
  //sprintf(Arg," ,Расходы произведенные на цели гос. соц. страхования,итогом с начала года      (600),QQ1,в том числе за отч. месяц (610),QQ2");
  //R_QUEST(Arg, Rez, 10, 0);
  //#КОДВ=ПИСАТЬ_ПОЛЕ(600_5_1,0,T60051);
  //#КОДВ=ПИСАТЬ_ПОЛЕ(605_5_1,0,T61051);
  //#КОДВ=ЗАПРОС( ,Возмещено исполнительным органом ФСС РФ,итогом с начала года      (700),T70051,в том числе за отч. месяц (710),T71051);
  //#КОДВ=ПИСАТЬ_ПОЛЕ(610_5_1,0,T70051);
  //#КОДВ=ПИСАТЬ_ПОЛЕ(611_5_1,0,T71051);

  T6005=T60051;T6105=T61051;
  T7005=T70051;T7105=T71051;

  char Str1[35];
  char Str2[35];
  char Str3[35];
  char Str4[35];
  char Str5[35];
  char Str6[35];
  char StrDate[11];
  sprintf(StrDate,"%-10.10s",DRASCH);

  sprintf(Str1,"%15.2f", static_cast_to_double(T6005));
  sprintf(Str2,"%15.2f", static_cast_to_double(T7005));
  sprintf(Str3,"%15.2f", static_cast_to_double(T5003)); 
  sprintf(Str4,"%15.2f", static_cast_to_double(T5005));
  sprintf(Str5,"%15.2f", static_cast_to_double(T5007));
  sprintf(Str6,"%15.2f", static_cast_to_double(T5009));

//  if ( (PanelDekEsn(Str1, Str2, Str3, Str4, Str5, Str6, StrDate))==ESC )
//  {
//    return (1);
//  }

  T6005        =atof(Str1);
  T7005        =atof(Str2);
  double PT5003=atof(Str3);
  double PT5005=atof(Str4);
  double PT5007=atof(Str5);
  double PT5009=atof(Str6);

  if( (MOVEMP)!=0 )
  {
    T3003=T3003-D21-D11-D41-D51;
    T2003=T2003+D21+D11+D41+D51;

    T3103=T3103-D22-D12-D42-D52;
    T2103=T2103+D22+D12+D42+D52;

    T3203=T3203-D23-D13-D43-D53;
    T2203=T2203+D23+D13+D43+D53;

    T3303=T3303-D24-D14-D44-D54;
    T2303=T2303+D24+D14+D44+D54;

    T3005=T3005-D21-D11-D41-D51;
    T2005=T2005+D21+D11+D41+D51;

    T3105=T3105-D22-D12-D42-D52;
    T2105=T2105+D22+D12+D42+D52;

    T3205=T3205-D23-D13-D43-D53;
    T2205=T2205+D23+D13+D43+D53;

    T3305=T3305-D24-D14-D44-D54;
    T2305=T2305+D24+D14+D44+D54;

    T3007=T3007-D21-D11-D41-D51;
    T2007=T2007+D21+D11+D41+D51; 

    T3107=T3107-D22-D12-D42-D52;
    T2107=T2107+D22+D12+D42+D52;

    T3207=T3207-D23-D13-D43-D53;
    T2207=T2207+D23+D13+D43+D53;

    T3307=T3307-D24-D14-D44-D54;
    T2307=T2307+D24+D14+D44+D54;

    T3009=T3009-D21-D11-D41-D51;
    T2009=T2009+D21+D11+D41+D51;

    T3109=T3109-D22-D12-D42-D52;
    T2109=T2109+D22+D12+D42+D52;

    T3209=T3209-D23-D13-D43-D53;
    T2209=T2209+D23+D13+D43+D53;

    T3309=T3309-D24-D14-D44-D54;
    T2309=T2309+D24+D14+D44+D54;
  }

  if( (UDOPS)!=0 )
  {
    T1003=T1003+M1003;
    T1005=T1005+M1005;
    T1007=T1007+M1007;
    T1009=T1009+M1009;
    T1103=T1103+M1103;
    T1105=T1105+M1105;
    T1107=T1107+M1107;
    T1109=T1109+M1109;
    T2003=T2003+M1003;
    T2005=T2005+M1005;
    T2007=T2007+M1007;
    T2009=T2009+M1009;
    T2103=T2103+M1103;
    T2105=T2105+M1105;
    T2107=T2107+M1107;
    T2109=T2109+M1109;
  }

  if( (SUMVMEN)==0 )
  {
    T1003=T1003-V1003;
    T1005=T1005-V1005;
    T1007=T1007-V1007;
    T1009=T1009-V1009;
    T1103=T1103-V1103;
    T1105=T1105-V1105;
    T1107=T1107-V1107;
    T1109=T1109-V1109;
    T2003=T2003-V1003;
    T2005=T2005-V1005;
    T2007=T2007-V1007;
    T2009=T2009-V1009;
    T2103=T2103-V1103;
    T2105=T2105-V1105;
    T2107=T2107-V1107;
    T2109=T2109-V1109;
  }

  //сумма перечислений
  T8005=T5005+T7005-T6005;
  T8105=T5105+T7105-T6105;

  //суммы третьего листа
  RI2=R12+R32+R42+R62+R72+R92+R02;
  RI3=R13+R33+R43+R63+R73+R83;
  RI4=R14+R34+R44+R64+R74+R84;
  RIT5=R1T5+R3T5+R4T5+R6T5+R7T5+R9T5+R0T5;
  RIT7=R1T7+R3T7+R4T7+R6T7+R7T7+R8T7;
  RIT9=R1T9+R3T9+R4T9+R6T9+R7T9+R8T9;
  RIT11=R1T11+R3T11+R4T11+R6T11+R7T11+R8T11;
  SI12=S12+S22+S52+S82;
  SI13=S13+S23+S53+S83;
  SI14=S14+S24+S54+S84;

  if( (PRSUM)!=0 )
  {
    R2T5=R3T5+R4T5;
    R2T5=R3T5+R4T5;
    R5T5=R6T5+R7T5;
    R5T5=R6T5+R7T5;
    R8T5=R9T5+R0T5;
    R8T5=R9T5+R0T5;
    R2T7=R3T7+R4T7;
    R2T7=R3T7+R4T7;
    R5T7=R6T7+R7T7;
    R5T7=R6T7+R7T7;
    R2T9=R3T9+R4T9;
    R2T9=R3T9+R4T9;
    R5T9=R6T9+R7T9;
    R5T9=R6T9+R7T9;
    R2T11=R3T11+R4T11;
    R2T11=R3T11+R4T11;
    R5T11=R6T11+R7T11;
    R5T11=R6T11+R7T11;
  }

  char Nni[128];
  char Cni[128];
  char Org[201];
  char Nio[201];
  char Adr[201];
  char Adf[201];
  char Ado[201];
  char Adi[201];
  char Inn[128];
  char Tel[128];
  char Kpp[128];
  char Kop[128];
  char Kim[128];
  char Kio[128];
  char Ruk[128];
  char Glb[128];
  char Dgl[128];
  char Iru[128];
  char Igl[128];
  char Upr[128]; // Уполномоченный представитель
  char Iup[128]; // ИНН уполномоченного представителя
  char Tup[128]; // Телефон уполномоченного представителя
  char Tnr[20];  // Табельный номер руководителя
  char Tng[20];  // Табельный номер главного бухгалтера
  char Tnp[20];  // Табельный номер представителя
  char Kst[20];  // Код страны

  GetEnterpriseVar("ИМЯНИ",    Nni,127); // Наименование налоговой инспекции
  GetEnterpriseVar("КОДНИ",    Cni,127); // Код налоговой инспекции
  GetEnterpriseVar("ИМЯП",     Org,200); // Наименование предприятия или отделения иностранной организации
  GetEnterpriseVar("ИМЯИО",    Nio,127); // Наименование иностранной организации
  GetEnterpriseVar("АДРП",     Adr,200); // Адрес предприятия
  GetEnterpriseVar("АДРПФ",    Adf,200); // Адрес предприятия фактический
  GetEnterpriseVar("АДРПО",    Ado,200); // Адрес обособленного подразделения
  GetEnterpriseVar("АДРИО",    Adi,200); // Адрес иностранной организации в стране регистрации
  GetEnterpriseVar("ИНН",      Inn,127); // ИНН
  GetEnterpriseVar("ТЕЛП",     Tel,127); // Телефон
  GetEnterpriseVar("КОДПОСУЧ", Kpp,127); // Код причины постановки на учет
  GetEnterpriseVar("КППОП",    Kop,127); // КПП обособленного подразделения
  GetEnterpriseVar("КППИНОМ",  Kim,127); // КПП по месту нахождения имущества иностранной организации
  GetEnterpriseVar("КОДИОСР",  Kio,127); // Код налогоплательщика в стране регистрации или его аналог
  GetEnterpriseVar("РУКПП",    Ruk,127); // Руководитель
  GetEnterpriseVar("ГЛБУХП",   Glb,127); // Главбух
  GetEnterpriseVar("ДОЛЖБУХ",  Dgl,127); // Должность главного бухгалтера
  GetEnterpriseVar("ИННРУКП",  Iru,127); // ИНН руководителя
  GetEnterpriseVar("ИННГЛБ",   Igl,127); // ИНН главного бухгалтера
  GetEnterpriseVar("КОДСТРИО", Kst,19);  // Код страны регистрации (инкорпорации)
  GetEnterpriseVar("ТНРУКП",   Tnr,19);  // Табельный номер руководителя
  GetEnterpriseVar("ТНГЛБУХ",  Tng,19);  // Табельный номер главного бухгалтера
  GetEnterpriseVar("ТНУПОЛН",  Tnp,19);  // Табельный номер уполномоченного представителя

  FreeSpaceString(Org,3,"");
  FreeSpaceString(Nio,3,"");
  FreeSpaceString(Inn,3,"");
  FreeSpaceString(Kpp,3,"");
  FreeSpaceString(Kop,3,"");
  FreeSpaceString(Kim,3,"");
  FreeSpaceString(Kio,3,"");
  FreeSpaceString(Nni,3,"");
  FreeSpaceString(Cni,3,"");
  FreeSpaceString(Adr,3,"");
  FreeSpaceString(Adf,3,"");
  FreeSpaceString(Adi,3,"");
  FreeSpaceString(Tel,3,"");
  FreeSpaceString(Iru,3,"");
  FreeSpaceString(Igl,3,"");
  FreeSpaceString(Dgl,3,"");
  FreeSpaceString(Glb,3,"");
  FreeSpaceString(Ruk,3,"");
  FreeSpaceString(Upr,3,"");
  FreeSpaceString(Iup,3,"");
  FreeSpaceString(Tup,3,"");
  FreeSpaceString(Tnr,3,"");
  FreeSpaceString(Tng,3,"");
  FreeSpaceString(Tnp,3,"");
  FreeSpaceString(Kst,3,"");

  UpperString(Org);
  UpperString(Nio);
  UpperString(Ruk);
  UpperString(Glb);
  UpperString(Dgl);
  UpperString(Upr);
  UpperString(Adr);
  UpperString(Adf);
  UpperString(Adi);

  // TRANSFER {
  int hf;
  int hTmpFile; // хэндл временного файла
  unsigned long dwBytes;
  char NameStr[256];
  char TmpFileName[200];
  char Buffer[256];
  char InnFile[20];
  char YearFile[10];
  char ls[256]; // буфер для имени ЛС	
  char fsTmp[256];
  long PointKolPok=0;

  // переменные для контрольных соотношений
  // 1. П000110061003=П000110041003-П000110051003
  double P110061003=0.0; // строка 610, графа 3: подлежит начислению в федеральный бюджет за последний квартал отчетного периода
  double P110041003=0.0; // строка 410, графа 3: 
  double P110051003=0.0; // строка 510, графа 3: 


  char CountryName[140]; char ALFA2[10];
  GetValueClassif("T_GUIDE\\country.tab",Kst,CountryName,120,"NAME","KOD");
  GetValueClassif("T_GUIDE\\country.tab",Kst,ALFA2,2,"ALFA2","KOD");
  FreeSpaceString(CountryName,3,""); FreeSpaceString(ALFA2,3,"");

  sprintf(YearFile,"%c%c",edat[5],edat[6]);

  if (ORG==3)
  {
    sprintf(InnFile,"%c%c%c%c%c",Inn[5],Inn[6],Inn[7],Inn[8],Inn[9]);
  }
  else
  {
    sprintf(InnFile,"%c%c%c%c%c",Inn[4],Inn[5],Inn[6],Inn[7],Inn[8]);
  }

  if (IMNS==1)
  {
    sprintf(NameStr,"%sO%s%s.%03d", PathStr, InnFile, YearFile, NomFile);
  }
  else
  {
    sprintf(NameStr,"%sO%c%c%c%c%03d.txt", PathStr, Cni[0], Cni[1], Cni[2], Cni[3], NomFile);
  }

  int KatNP=1;
  int DocPredst=4;

  if (FlgTrans==0)
  {
    // создадим временный файл в текущей директории
    sprintf(TmpFileName,"RasEsn.tmp");
    DeleteFile(TmpFileName);

//  if ((stream = CreateFile(name       ,GENERIC_WRITE,FILE_SHARE_READ,NULL,CREATE_NEW,FILE_ATTRIBUTE_NORMAL,NULL)) == INVALID_HANDLE_VALUE)
    if ((hf  =    CreateFile(TmpFileName,1073741824   ,1              ,0   ,1         ,128                  ,0   )) == -1)
    {
      MessageBox(0,"эхтючьюцэю ёючфрЄ№ Їрщы","ю°шсър",0);
      FlgTrans=-1;
//      return -1;
    }
  }

  if (FlgTrans==0)
  {

    // собираем "Идентификатор файла"
    char IDFile[100]; // Идентификатор файла
    char IDOtpr[50];  // Идентификатор отправителя   

    if (IMNS==1)
    {
      if ( ORG!=3 && strlen(Kpp)>0 )
      {
        sprintf(IDOtpr,"%c%c%c%c%c%c%c%c%c%c**%c%c%c%c%c%c%c%c%c",Inn[0],Inn[1],Inn[2],Inn[3],Inn[4],Inn[5],Inn[6],Inn[7],Inn[8],Inn[9],Kpp[0],Kpp[1],Kpp[2],Kpp[3],Kpp[4],Kpp[5],Kpp[6],Kpp[7],Kpp[8]);
      }
      if ( ORG!=3 && strlen(Kpp)==0 )
      {
        sprintf(IDOtpr,"%c%c%c%c%c%c%c%c%c%c***********",Inn[0],Inn[1],Inn[2],Inn[3],Inn[4],Inn[5],Inn[6],Inn[7],Inn[8],Inn[9]);
      }
      if ( ORG==3 )
      {
        sprintf(IDOtpr,"%c%c%c%c%c%c%c%c%c%c%c%c*********",Inn[0],Inn[1],Inn[2],Inn[3],Inn[4],Inn[5],Inn[6],Inn[7],Inn[8],Inn[9],Inn[10],Inn[11]);
      }
    }
    else
    {
      sprintf(IDOtpr,"%c%c%c%c*****************",Cni[0],Cni[1],Cni[2],Cni[3]);
    }

    char IDDate[20];
    sprintf(IDDate,"%c%c%c%c%c%c%c%c",datatek[6],datatek[7],datatek[8],datatek[9],datatek[3],datatek[4],datatek[0],datatek[1]);

    char IDTime[20];
    struct SYSTEMTIME st;
    GetLocalTime(st);
    sprintf(IDTime,"%02d%02d%02d", st.wHour, st.wMinute, st.wSecond);


    // <файл отчетности> begin
    // <служебная часть> begin
    // <общие сведения служебной части> begin
    sprintf(IDFile,"%s%s%s", IDOtpr, IDDate, IDTime);
    sprintf(Buffer,"ИдФайл:%s\r\n", IDFile); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"ТипИнф:ОТЧЕТНОСТЬНП\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"ВерсФорм:2.00\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"ИдПол:%c%c%c%c\r\n",Cni[0],Cni[1],Cni[2],Cni[3]); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"ВерсПрог:УЧЕТ ЗАРАБОТНОЙ ПЛАТЫ - АМБА 3.7\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"КолДок:1\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    // <общие сведения служебной части> end
    // <сведения об отправителе> begin
    if (ORG!=3)
    { // отправитель - юридическое лицо
      sprintf(Buffer,"НаимОтпрЮл:%s\r\n",Org); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"ТелОтпр:%s\r\n",Tel); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"ДолжнОтпр:%s\r\n",Dgl); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      char fam[40], name[40], otch[40];
      elem_of_array(Glb,1,' ',fam,25);  FreeSpaceString(fam,3,"");
      elem_of_array(Glb,2,' ',name,25); FreeSpaceString(name,3,"");
      elem_of_array(Glb,3,' ',otch,25); FreeSpaceString(otch,3,"");
      sprintf(Buffer,"ФИООтпр:%s,%s,%s\r\n",fam,name,otch); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    }
    else
    { // отправитель - физическое лицо
      char fam[40], name[40], otch[40];
      elem_of_array(Org,1,' ',fam,25);  FreeSpaceString(fam,3,"");
      elem_of_array(Org,2,' ',name,25); FreeSpaceString(name,3,"");
      elem_of_array(Org,3,' ',otch,25); FreeSpaceString(otch,3,"");
      sprintf(Buffer,"ФИООтпрФл:%s,%s,%s\r\n",fam,name,otch); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"ТелОтпр:%s\r\n",Tel); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    }
    sprintf(Buffer,"@@@\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    // <сведения об отправителе> end
    // <служебная часть> end

    // <информационная часть> begin
    // <общие сведения иформационной части> begin
    char IDDoc[40];
    sprintf(IDDoc,"%s%c%c%c%c%08d",IDOtpr,edat[3],edat[4],edat[5],edat[6],NomFile);
    sprintf(Buffer,"ИдДок:%s\r\n",IDDoc); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"ДатаДок:%s\r\n",DRASCH); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    if (ORG==0) DocPredst=1; // Российская организация
    if (ORG==1) DocPredst=2; // Обособленное подразделение
    if (ORG==3) DocPredst=3; // Физическое лицо
    if (ORG==2) DocPredst=5; // Иностранная организация
    sprintf(Buffer,"ДокПредст:%1d\r\n",DocPredst); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);

    char SvidSer[30];   GetSerSvidetN("",SvidSer,25); FreeSpaceString(SvidSer,3,"");
    char SvidNum[30];   GetNumSvidetN("",SvidNum,25); FreeSpaceString(SvidNum,3,"");
    char SvidKod[30]; GetKodNISvidetN("",SvidKod,4);  FreeSpaceString(SvidKod,3,"");
    char SvidDatT[15]; sprintf(SvidDatT,"%9.2f",GetDateVSvidetN(""));
    char SvidDat[15];  sprintf(SvidDat,"%c%c.%c%c.%c%c%c%c",SvidDatT[7],SvidDatT[8],SvidDatT[4],SvidDatT[5],SvidDatT[0],SvidDatT[1],SvidDatT[2],SvidDatT[3]);

    sprintf(Buffer,"Свидетельство:%s %s,%s,%s\r\n",SvidSer,SvidNum,SvidDat,SvidKod); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    if (TYPORG==1 || TYPORG==3) KatNP=2;
    if (ORG==3) KatNP=3;
    sprintf(Buffer,"КатНП:%02d\r\n",KatNP); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"КолФОтч:1\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);

    sprintf(Buffer,"###\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    // <общие сведения иформационной части> end
    // <сведения о налогоплательщике> begin
    if (ORG==0 || ORG==1)
    { // <сведения о российской организации>
      sprintf(Buffer,"НаимЮЛПол:%s\r\n",Org); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      if (DocPredst==2 || DocPredst==4)
      { 
        sprintf(Buffer,"НаимОППол:%s\r\n",Org); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); 
      }
      sprintf(Buffer,"ИННЮЛ:%s\r\n",Inn); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"КППЮЛ:%s\r\n",Kpp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      if (DocPredst==2 || DocPredst==4)
      { 
        sprintf(Buffer,"КППОП:%s\r\n",Kop); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); 
      }
      if (DocPredst==4)
      { 
        sprintf(Buffer,"КППИном:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); 
      }
      int PrizAdr=1; if (ADR==1) PrizAdr=2;
      sprintf(Buffer,"ПризАдр:%d\r\n",PrizAdr); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"АдрЮр:643,%s\r\n",Adr); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      if (PrizAdr==2)
      {
        sprintf(Buffer,"АдрИсОрг:643,%s\r\n",Adf); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      }
      if (DocPredst==2)
      {
        sprintf(Buffer,"АдрОП:643,%s\r\n",Ado); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        sprintf(Buffer,"ТелОП:%s\r\n",Tel); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      }
    }

    if (ORG==2)
    { // <сведения об иностранной организации>
      sprintf(Buffer,"НаимОИОПол:%s\r\n",Org); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"ИННИО:%s\r\n",Inn); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
//      sprintf(Buffer,"НаимОИОПол:%s\r\n",Org); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"КППИО:%s\r\n",Kpp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"КППИмИО:%s\r\n",Kim); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      if (DocPredst==5)
      {
        sprintf(Buffer,"АдрОтдИОРФ:%s\r\n",Adr); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      }
      sprintf(Buffer,"КодИОСтрРег:%s\r\n",Kio); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"НаимИОПол:%s\r\n",Nio); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"СтрИО:%s\r\n",CountryName); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"КодСтрИО:%s\r\n",ALFA2); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"АдрИО:%s\r\n",Adi); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    }

    if (ORG==3)
    { // <сведения о налогоплательщике - физическом лице>
      char fam[40], name[40], otch[40];
      elem_of_array(Org,1,' ',fam,25);  FreeSpaceString(fam,3,"");
      elem_of_array(Org,2,' ',name,25); FreeSpaceString(name,3,"");
      elem_of_array(Org,3,' ',otch,25); FreeSpaceString(otch,3,"");
      sprintf(Buffer,"ФИО:%s,%s,%s\r\n",fam,name,otch); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"ИННФЛ:%s\r\n",Inn); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
//      sprintf(Buffer,"КолДнейРФ:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"ТелСлуж:%s\r\n",Tel); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      if (Tel=="")
      {
        sprintf(Buffer,"ТелДом:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      }
      if (Inn=="")
      {
        long tn=atol(Tnr);
        if (tn!=0)
        {
          // чтение ЛС
          lsname(Find_Full_TN(tn),ls);
          lsread(ls,1); 
          // дата рождения
          sprintf(Buffer,"ДатаРожд:%s\r\n",FreeSpaceString(R_Face("data_r",Rez,10,0),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
          // место рождения
          char fsTmp1[200];
          sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("strana_r",Rez,30,0),3,""));
          if (fsTmp1!="") sprintf(fsTmp,"%s",fsTmp1);
          sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("oblast_r",Rez,30,0),3,""));
          if (fsTmp1!="" && fsTmp!="") sprintf(fsTmp,"%s,%s",fsTmp,fsTmp1);
          if (fsTmp1!="" && fsTmp=="") sprintf(fsTmp,"%s",fsTmp1);
          sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("rajon_r",Rez,30,0),3,""));
          if (fsTmp1!="" && fsTmp!="") sprintf(fsTmp,"%s,%s",fsTmp,fsTmp1);
          if (fsTmp1!="" && fsTmp=="") sprintf(fsTmp,"%s",fsTmp1);
          sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("gorod_r",Rez,30,0),3,""));
          if (fsTmp1!="" && fsTmp!="") sprintf(fsTmp,"%s,%s",fsTmp,fsTmp1);
          if (fsTmp1!="" && fsTmp=="") sprintf(fsTmp,"%s",fsTmp1);
          sprintf(Buffer,"МестоРожд:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
          sprintf(fsTmp,"");
          // пол
          R_Face("pol",Rez,10,0);
          FreeSpaceString(Rez,3,"");
          int pol=0;
          if (Rez=="М" || Rez=="м" || Rez=="1") pol=1;
          if (Rez=="Ж" || Rez=="ж" || Rez=="2") pol=2;
          sprintf(Buffer,"Пол:%1d\r\n",pol); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
          // гражданство
          sprintf(Buffer,"Гражд:%s\r\n",FreeSpaceString(R_Face("citizen",Rez,10,0),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
          // удостоверение личности
          sprintf(fsTmp1,"%s",R_Face("doc_code",Rez,2,0));
          R_Face("pasport",Rez,128,0);
          FreeSpaceString(Rez,3,"");
          char fsTmp2[200];
          elem_of_array(Rez,1,',',fsTmp2,100);
          FreeSpaceString(fsTmp2,3,"");
          elem_of_array(Rez,2,',',fsTmp,100);
          FreeSpaceString(fsTmp,3,"");
          sprintf(Buffer,"УдЛичн:%s,%s %s\r\n",fsTmp1,fsTmp2,fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
          // дата удостоверения личности
          elem_of_array(Rez,4,',',fsTmp1,100);
          FreeSpaceString(fsTmp1,3,"");
          sprintf(Buffer,"ДатаУдЛичн:%s\r\n",fsTmp1); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
          sprintf(Buffer,"АдрМж:643,%s\r\n",FreeSpaceString(UpperString(R_Face("adres_f",Rez,200,0)),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
          sprintf(Buffer,"АдрМжРез:643,%s\r\n",FreeSpaceString(UpperString(R_Face("adres",Rez,200,0)),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        }
      }
    }

    sprintf(Buffer,"###\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);

    // <сведения о руководстве организации>
    char fam1[40], name1[40], otch1[40];
    elem_of_array(Ruk,1,' ',fam1,25);  FreeSpaceString(fam1,3,"");
    elem_of_array(Ruk,2,' ',name1,25); FreeSpaceString(name1,3,"");
    elem_of_array(Ruk,3,' ',otch1,25); FreeSpaceString(otch1,3,"");
    sprintf(Buffer,"ФИОРук:%s,%s,%s\r\n",fam1,name1,otch1); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"ИННРук:%s\r\n",Iru); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"ТелРук:%s\r\n",Tel); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    if (Iru=="")
    {
      long tn=atol(Tnr);
      if (tn!=0)
      {
        // чтение ЛС
        lsname(Find_Full_TN(tn),ls);
        lsread(ls,1); 
        // дата рождения
        sprintf(Buffer,"ДатаРождРук:%s\r\n",FreeSpaceString(R_Face("data_r",Rez,10,0),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // место рождения
        char fsTmp1[200];
        sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("strana_r",Rez,30,0),3,""));
        if (fsTmp1!="") sprintf(fsTmp,"%s",fsTmp1);
        sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("oblast_r",Rez,30,0),3,""));
        if (fsTmp1!="" && fsTmp!="") sprintf(fsTmp,"%s,%s",fsTmp,fsTmp1);
        if (fsTmp1!="" && fsTmp=="") sprintf(fsTmp,"%s",fsTmp1);
        sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("rajon_r",Rez,30,0),3,""));
        if (fsTmp1!="" && fsTmp!="") sprintf(fsTmp,"%s,%s",fsTmp,fsTmp1);
        if (fsTmp1!="" && fsTmp=="") sprintf(fsTmp,"%s",fsTmp1);
        sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("gorod_r",Rez,30,0),3,""));
        if (fsTmp1!="" && fsTmp!="") sprintf(fsTmp,"%s,%s",fsTmp,fsTmp1);
        if (fsTmp1!="" && fsTmp=="") sprintf(fsTmp,"%s",fsTmp1);
        sprintf(Buffer,"МестоРождРук:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        sprintf(fsTmp,"");
        // пол
        R_Face("pol",Rez,10,0);
        FreeSpaceString(Rez,3,"");
        int pol=0;
        if (Rez=="М" || Rez=="м" || Rez=="1") pol=1;
        if (Rez=="Ж" || Rez=="ж" || Rez=="2") pol=2;
        sprintf(Buffer,"ПолРук:%1d\r\n",pol); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // гражданство
        sprintf(Buffer,"ГраждРук:%s\r\n",FreeSpaceString(R_Face("citizen",Rez,10,0),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // удостоверение личности
        sprintf(fsTmp1,"%s",R_Face("doc_code",Rez,2,0));
        R_Face("pasport",Rez,128,0);
        FreeSpaceString(Rez,3,"");
        char fsTmp2[200];
        elem_of_array(Rez,1,',',fsTmp2,100);
        FreeSpaceString(fsTmp2,3,"");
        elem_of_array(Rez,2,',',fsTmp,100);
        FreeSpaceString(fsTmp,3,"");
        sprintf(Buffer,"УдЛичнРук:%s,%s %s\r\n",fsTmp1,fsTmp2,fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // дата удостоверения личности
        elem_of_array(Rez,4,',',fsTmp1,100);
        FreeSpaceString(fsTmp1,3,"");
        sprintf(Buffer,"ДатаУдЛичнРук:%s\r\n",fsTmp1); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        sprintf(Buffer,"АдрМЖРукРФ:643,%s\r\n",FreeSpaceString(UpperString(R_Face("adres_f",Rez,200,0)),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        sprintf(Buffer,"АдрМЖРукРез:643,%s\r\n",FreeSpaceString(UpperString(R_Face("adres",Rez,200,0)),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      }
    }
    elem_of_array(Glb,1,' ',fam1,25);  FreeSpaceString(fam1,3,"");
    elem_of_array(Glb,2,' ',name1,25); FreeSpaceString(name1,3,"");
    elem_of_array(Glb,3,' ',otch1,25); FreeSpaceString(otch1,3,"");
    char Glb1[100]; sprintf(Glb1,"%s,%s,%s",fam1,name1,otch1);
    sprintf(Buffer,"ФИОБух:%s\r\n",Glb1); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    if (Glb1!=",,")
    {
      sprintf(Buffer,"ИННБух:%s\r\n",Igl); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"ТелБух:%s\r\n",Tel); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    }
    if (Glb1!=",," && Igl=="")
    {
      long tn=atol(Tng);
      if (tn!=0)
      {
        // чтение ЛС
        lsname(Find_Full_TN(tn),ls);
        lsread(ls,1); 
        // дата рождения
        sprintf(Buffer,"ДатаРождБух:%s\r\n",FreeSpaceString(R_Face("data_r",Rez,10,0),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // место рождения
        char fsTmp1[200];
        for (int i=0; i<strlen(fsTmp); i++) fsTmp[i]=' '; fsTmp[0]='\0';
        sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("strana_r",Rez,30,0),3,""));
        if (fsTmp1!="") sprintf(fsTmp,"%s",fsTmp1);
        sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("oblast_r",Rez,30,0),3,""));
        if (fsTmp1!="" && fsTmp!="") sprintf(fsTmp,"%s,%s",fsTmp,fsTmp1);
        if (fsTmp1!="" && fsTmp=="") sprintf(fsTmp,"%s",fsTmp1);
        sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("rajon_r",Rez,30,0),3,""));
        if (fsTmp1!="" && fsTmp!="") sprintf(fsTmp,"%s,%s",fsTmp,fsTmp1);
        if (fsTmp1!="" && fsTmp=="") sprintf(fsTmp,"%s",fsTmp1);
        sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("gorod_r",Rez,30,0),3,""));
        if (fsTmp1!="" && fsTmp!="") sprintf(fsTmp,"%s,%s",fsTmp,fsTmp1);
        if (fsTmp1!="" && fsTmp=="") sprintf(fsTmp,"%s",fsTmp1);
        sprintf(Buffer,"МестоРождБух:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // пол
        R_Face("pol",Rez,10,0);
        FreeSpaceString(Rez,3,"");
        int pol=0;
        if (Rez=="М" || Rez=="м" || Rez=="1") pol=1;
        if (Rez=="Ж" || Rez=="ж" || Rez=="2") pol=2;
        sprintf(Buffer,"ПолБух:%1d\r\n",pol); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // гражданство
        sprintf(Buffer,"ГраждБух:%s\r\n",FreeSpaceString(R_Face("citizen",Rez,10,0),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // удостоверение личности
        for (int i=0; i<strlen(fsTmp); i++) fsTmp[i]=' '; fsTmp[0]='\0'; 
        for (int i=0; i<strlen(fsTmp1); i++) fsTmp1[i]=' '; fsTmp1[0]='\0';
        sprintf(fsTmp1,"%s",R_Face("doc_code",Rez,2,0));
        R_Face("pasport",Rez,128,0);
        FreeSpaceString(Rez,3,"");
        char fsTmp2[200];
        elem_of_array(Rez,1,',',fsTmp2,100);
        FreeSpaceString(fsTmp2,3,"");
        elem_of_array(Rez,2,',',fsTmp,100);
        FreeSpaceString(fsTmp,3,"");
        sprintf(Buffer,"УдЛичнБух:%s,%s %s\r\n",fsTmp1,fsTmp2,fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // дата удостоверения личности
        elem_of_array(Rez,4,',',fsTmp1,100);
        FreeSpaceString(fsTmp1,3,"");
        sprintf(Buffer,"ДатаУдЛичнБух:%s\r\n",fsTmp1); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        sprintf(Buffer,"АдрМЖБухРФ:643,%s\r\n",FreeSpaceString(UpperString(R_Face("adres_f",Rez,200,0)),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        sprintf(Buffer,"АдрМЖБухРез:643,%s\r\n",FreeSpaceString(UpperString(R_Face("adres",Rez,200,0)),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      }
    }
    elem_of_array(Upr,1,' ',fam1,25);  FreeSpaceString(fam1,3,"");
    elem_of_array(Upr,2,' ',name1,25); FreeSpaceString(name1,3,"");
    elem_of_array(Upr,3,' ',otch1,25); FreeSpaceString(otch1,3,"");
    char Upr1[100]; sprintf(Upr1,"%s,%s,%s",fam1,name1,otch1);
    sprintf(Buffer,"ФИОУпПред:%s\r\n",Upr1); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    if (Upr1!=",,")
    {
      sprintf(Buffer,"ИННУпПред:%s\r\n",Iup); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      sprintf(Buffer,"ТелУпПред:%s\r\n",Tup); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    }
    if (Upr1!=",," && Iup=="")
    {
      long tn=atol(Tnp);
      if (tn!=0)
      {
        // чтение ЛС
        lsname(Find_Full_TN(tn),ls);
        lsread(ls,1); 
        // дата рождения
        sprintf(Buffer,"ДатаРождУпПред:%s\r\n",FreeSpaceString(R_Face("data_r",Rez,10,0),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // место рождения
        char fsTmp1[200];
        for (int i=0; i<strlen(fsTmp); i++) fsTmp[i]=' '; fsTmp[0]='\0';
        sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("strana_r",Rez,30,0),3,""));
        if (fsTmp1!="") sprintf(fsTmp,"%s",fsTmp1);
        sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("oblast_r",Rez,30,0),3,""));
        if (fsTmp1!="" && fsTmp!="") sprintf(fsTmp,"%s,%s",fsTmp,fsTmp1);
        if (fsTmp1!="" && fsTmp=="") sprintf(fsTmp,"%s",fsTmp1);
        sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("rajon_r",Rez,30,0),3,""));
        if (fsTmp1!="" && fsTmp!="") sprintf(fsTmp,"%s,%s",fsTmp,fsTmp1);
        if (fsTmp1!="" && fsTmp=="") sprintf(fsTmp,"%s",fsTmp1);
        sprintf(fsTmp1,"%s", FreeSpaceString(R_Face("gorod_r",Rez,30,0),3,""));
        if (fsTmp1!="" && fsTmp!="") sprintf(fsTmp,"%s,%s",fsTmp,fsTmp1);
        if (fsTmp1!="" && fsTmp=="") sprintf(fsTmp,"%s",fsTmp1);
        sprintf(Buffer,"МестоРождУпПред:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // пол
        R_Face("pol",Rez,10,0);
        FreeSpaceString(Rez,3,"");
        int pol=0;
        if (Rez=="М" || Rez=="м" || Rez=="1") pol=1;
        if (Rez=="Ж" || Rez=="ж" || Rez=="2") pol=2;
        sprintf(Buffer,"ПолУпПред:%1d\r\n",pol); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // гражданство
        sprintf(Buffer,"ГраждУпПред:%s\r\n",FreeSpaceString(R_Face("citizen",Rez,10,0),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // удостоверение личности
        for (int i=0; i<strlen(fsTmp); i++) fsTmp[i]=' '; fsTmp[0]='\0';
        for (int i=0; i<strlen(fsTmp1); i++) fsTmp1[i]=' '; fsTmp1[0]='\0';
        sprintf(fsTmp1,"%s",R_Face("doc_code",Rez,2,0));
        R_Face("pasport",Rez,128,0);
        FreeSpaceString(Rez,3,"");
        char fsTmp2[200];
        elem_of_array(Rez,1,',',fsTmp2,100);
        FreeSpaceString(fsTmp2,3,"");
        elem_of_array(Rez,2,',',fsTmp,100);
        FreeSpaceString(fsTmp,3,"");
        sprintf(Buffer,"УдЛичнУпПред:%s,%s %s\r\n",fsTmp1,fsTmp2,fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        // дата удостоверения личности
        elem_of_array(Rez,4,',',fsTmp1,100);
        FreeSpaceString(fsTmp1,3,"");
        sprintf(Buffer,"ДатаУдЛичнУпПред:%s\r\n",fsTmp1); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        sprintf(Buffer,"АдрМЖУпПредРФ:643,%s\r\n",FreeSpaceString(UpperString(R_Face("adres_f",Rez,200,0)),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
        sprintf(Buffer,"АдрМЖУпПредРез:643,%s\r\n",FreeSpaceString(UpperString(R_Face("adres",Rez,200,0)),3,"")); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      }
    }

    sprintf(Buffer,"###\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    // <сведения о налогоплательщике> end

    // КОНЕЦ ОБЩЕЙ ЧАСТИ ФАЙЛА

    // <форма отчетности> begin
    // <описание формы> begin
    // Таблица 1
    sprintf(Buffer,"ПризФОтч:1\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"КНД:1151050\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"НаимФОтч:РАСЧЕТ ПО АВАНСОВЫМ ПЛАТЕЖАМ ПО ЕДИНОМУ СОЦИАЛЬНОМУ НАЛОГУ ДЛЯ ЛИЦ, ПРОИЗВОДЯЩИХ ВЫПЛАТЫ ФИЗИЧЕСКИМ ЛИЦАМ\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"ВерФОтч:2.00000\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);

    sprintf(Buffer,"ПериодВерОтч:17.05.2002,\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"ПризПериодОтч:2\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);

    char BegPOtch[20];
    char EndPOtch[20];
    int BPOtch=atoi(CTabl.TextS("ABDAT",0));
    int EPOtch=atoi(CTabl.TextS("AEDAT",0));
    sprintf(Arg,"5,%d",BPOtch);
    sprintf(BegPOtch,"01.%-7.7s",R_DATA_EX(Arg,Rez,7,0));
    sprintf(Arg,"6,%d",EPOtch);
    int KalDays=atoi(R_DATA_EX(Arg,Rez,10,0));
    sprintf(Arg,"5,%d",EPOtch);
    sprintf(EndPOtch,"%02d.%-7.7s",KalDays,R_DATA_EX(Arg,Rez,7,0));
    if (FTrans_DL==0)
    {
      if (EndPOtch=="30.09.2002")
      {
        sprintf(Buffer,"НачПериодОтч:%s\r\n","01.07.2002"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      }
      else
      {
        sprintf(Buffer,"НачПериодОтч:%s\r\n",BegPOtch); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
      }
    }
    if (FTrans_DL==1)
    {
      sprintf(Buffer,"НачПериодОтч:%s\r\n",BegPOtch); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    }
    sprintf(Buffer,"КонПериодОтч:%s\r\n",EndPOtch); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);

    sprintf(Buffer,"ОКЕИ:383\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"ВарФОтч:%s\r\n",VarFOtch); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
//    sprintf(Buffer,"КолПокФОтч:0000000000\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    sprintf(Buffer,"КолПокФОтч:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    PointKolPok=SetFilePointer(hf,0,0,1);

    sprintf(Buffer,"###\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    // <описание формы> end
  }
  // } TRANSFER 


  if (strlen(Kpp)==0) { sprintf(Kpp,"               "); }
  if (strlen(Kop)==0) { sprintf(Kop,"               "); }
  if (strlen(Inn)==0) { sprintf(Inn,"               "); }
  if (strlen(Iru)==0) { sprintf(Iru,"               "); }
  if (strlen(Igl)==0) { sprintf(Igl,"               "); }

  // адрес регистрации
  char adr_ind[20]; elem_of_array(Adr, 1, ',', adr_ind, 6);  // индекс
  char adr_reg[40]; elem_of_array(Adr, 2, ',', adr_reg, 40); // регион
  char adr_rai[40]; elem_of_array(Adr, 3, ',', adr_rai, 40); // район
  char adr_gor[40]; elem_of_array(Adr, 4, ',', adr_gor, 40); // город
  char adr_nas[40]; elem_of_array(Adr, 5, ',', adr_nas, 40); // населенный пункт
  char adr_str[40]; elem_of_array(Adr, 6, ',', adr_str, 40); // улица                
  char adr_dom[10]; elem_of_array(Adr, 7, ',', adr_dom, 10); // дом
  char adr_kor[10]; elem_of_array(Adr, 8, ',', adr_kor, 10); // корпус
  char adr_kva[10]; elem_of_array(Adr, 9, ',', adr_kva, 10); // квартира

  // фактический адрес
  char adf_ind[20]; elem_of_array(Adf, 1, ',', adf_ind, 6);  // индекс
  char adf_reg[40]; elem_of_array(Adf, 2, ',', adf_reg, 40); // регион
  char adf_rai[40]; elem_of_array(Adf, 3, ',', adf_rai, 40); // район
  char adf_gor[40]; elem_of_array(Adf, 4, ',', adf_gor, 40); // город
  char adf_nas[40]; elem_of_array(Adf, 5, ',', adf_nas, 40); // населенный пункт
  char adf_str[40]; elem_of_array(Adf, 6, ',', adf_str, 40); // улица                
  char adf_dom[10]; elem_of_array(Adf, 7, ',', adf_dom, 10); // дом
  char adf_kor[10]; elem_of_array(Adf, 8, ',', adf_kor, 10); // корпус
  char adf_kva[10]; elem_of_array(Adf, 9, ',', adf_kva, 10); // квартира

  // адрес обособленного подразделения
  char ado_ind[20]; elem_of_array(Ado, 1, ',', ado_ind, 6);  // индекс
  char ado_reg[40]; elem_of_array(Ado, 2, ',', ado_reg, 40); // регион
  char ado_rai[40]; elem_of_array(Ado, 3, ',', ado_rai, 40); // район
  char ado_gor[40]; elem_of_array(Ado, 4, ',', ado_gor, 40); // город
  char ado_nas[40]; elem_of_array(Ado, 5, ',', ado_nas, 40); // населенный пункт
  char ado_str[40]; elem_of_array(Ado, 6, ',', ado_str, 40); // улица                
  char ado_dom[10]; elem_of_array(Ado, 7, ',', ado_dom, 10); // дом
  char ado_kor[10]; elem_of_array(Ado, 8, ',', ado_kor, 10); // корпус
  char ado_kva[10]; elem_of_array(Ado, 9, ',', ado_kva, 10); // квартира


  FreeSpaceString(adr_ind,3,"");
  FreeSpaceString(adr_reg,3,"");
  FreeSpaceString(adr_rai,3,"");
  FreeSpaceString(adr_gor,3,"");
  FreeSpaceString(adr_nas,3,"");
  FreeSpaceString(adr_str,3,"");
  FreeSpaceString(adr_dom,3,"");
  FreeSpaceString(adr_kor,3,"");
  FreeSpaceString(adr_kva,3,"");

  FreeSpaceString(adf_ind,3,"");
  FreeSpaceString(adf_reg,3,"");
  FreeSpaceString(adf_rai,3,"");
  FreeSpaceString(adf_gor,3,"");
  FreeSpaceString(adf_nas,3,"");
  FreeSpaceString(adf_str,3,"");
  FreeSpaceString(adf_dom,3,"");
  FreeSpaceString(adf_kor,3,"");
  FreeSpaceString(adf_kva,3,"");

  FreeSpaceString(ado_ind,3,"");
  FreeSpaceString(ado_reg,3,"");
  FreeSpaceString(ado_rai,3,"");
  FreeSpaceString(ado_gor,3,"");
  FreeSpaceString(ado_nas,3,"");
  FreeSpaceString(ado_str,3,"");
  FreeSpaceString(ado_dom,3,"");
  FreeSpaceString(ado_kor,3,"");
  FreeSpaceString(ado_kva,3,"");

  if (strlen(adr_ind)==0) { sprintf(adr_ind,"               "); }
  if (strlen(adf_ind)==0) { sprintf(adf_ind,"               "); }
  if (strlen(ado_ind)==0) { sprintf(ado_ind,"               "); }

  double tmp;
  int    tmpI;
  double tmpF;
  char   tmpstr[256]; sprintf(tmpstr,"       -       ");
  double eps=0.001;

  // страница 1 за период
  sprintf(str,"%c%c", ZaPeriod[2], ZaPeriod[3]);

  // ПФ лист 5
  char pf0200[20]; tmp=T2003; if (nabs(tmp)>eps) sprintf(pf0200,"%14.2f",tmp); else  sprintf(pf0200,"%s",tmpstr);
  char pf0400[20]; tmp=T4003; if (nabs(tmp)>eps) sprintf(pf0400,"%14.2f",tmp); else  sprintf(pf0400,"%s",tmpstr);
  char pf0500[20]; tmp=T5003; if (nabs(tmp)>eps) sprintf(pf0500,"%14.2f",tmp); else  sprintf(pf0500,"%s",tmpstr);
  if (FVMENEN>eps) if (VMENDEK) sprintf(pf0500,"%s",tmpstr);

  // ФСС лист 5
  char fs0200[20]; tmp=T2005; if (nabs(tmp)>eps) sprintf(fs0200,"%14.2f",tmp); else  sprintf(fs0200,"%s",tmpstr);
  char fs0400[20]; tmp=T4005; if (nabs(tmp)>eps) sprintf(fs0400,"%14.2f",tmp); else  sprintf(fs0400,"%s",tmpstr);
  char fs0500[20]; tmp=T5005; if (nabs(tmp)>eps) sprintf(fs0500,"%14.2f",tmp); else  sprintf(fs0500,"%s",tmpstr);
  char fs0600[20]; tmp=T6005; if (nabs(tmp)>eps) sprintf(fs0600,"%14.2f",tmp); else  sprintf(fs0600,"%s",tmpstr);
  char fs0700[20]; tmp=T7005; if (nabs(tmp)>eps) sprintf(fs0700,"%14.2f",tmp); else  sprintf(fs0700,"%s",tmpstr);
  char fs0800[20]; tmp=T8005; if (nabs(tmp)>eps) sprintf(fs0800,"%14.2f",tmp); else  sprintf(fs0800,"%s",tmpstr);

  // ФФОМС лист 5
  char ff0200[20]; tmp=T2007; if (nabs(tmp)>eps) sprintf(ff0200,"%14.2f",tmp); else  sprintf(ff0200,"%s",tmpstr);
  char ff0400[20]; tmp=T4007; if (nabs(tmp)>eps) sprintf(ff0400,"%14.2f",tmp); else  sprintf(ff0400,"%s",tmpstr);
  char ff0500[20]; tmp=T5007; if (nabs(tmp)>eps) sprintf(ff0500,"%14.2f",tmp); else  sprintf(ff0500,"%s",tmpstr);

  // ТФОМС лист 5
  char tf0200[20]; tmp=T2009; if (nabs(tmp)>eps) sprintf(tf0200,"%14.2f",tmp); else  sprintf(tf0200,"%s",tmpstr);
  char tf0400[20]; tmp=T4009; if (nabs(tmp)>eps) sprintf(tf0400,"%14.2f",tmp); else  sprintf(tf0400,"%s",tmpstr);
  char tf0500[20]; tmp=T5009; if (nabs(tmp)>eps) sprintf(tf0500,"%14.2f",tmp); else  sprintf(tf0500,"%s",tmpstr);


  // Лист 5 строка 0200 ( Сумма налоговых льгот за отчетный период, всего )
  char pf0300[20]; tmp=T3003+A11 -fbNatOpVse; if (nabs(tmp)>eps) sprintf(pf0300,"%14.2f",tmp); else  sprintf(pf0300,"%s",tmpstr);
  char fs0300[20]; tmp=T3005+AC11-fsNatOpVse; if (nabs(tmp)>eps) sprintf(fs0300,"%14.2f",tmp); else  sprintf(fs0300,"%s",tmpstr);
  char ff0300[20]; tmp=T3007+AM11-ffNatOpVse; if (nabs(tmp)>eps) sprintf(ff0300,"%14.2f",tmp); else  sprintf(ff0300,"%s",tmpstr);
  char tf0300[20]; tmp=T3009+AT11-tfNatOpVse; if (nabs(tmp)>eps) sprintf(tf0300,"%14.2f",tmp); else  sprintf(tf0300,"%s",tmpstr);

  // ПФ лист 7 - база
  char pf010[20]; tmp=R12; if (nabs(tmp)>eps) sprintf(pf010,"%13.2f",tmp); else  sprintf(pf010,"%s",tmpstr);
  char pf020[20]; tmp=R22; if (nabs(tmp)>eps) sprintf(pf020,"%13.2f",tmp); else  sprintf(pf020,"%s",tmpstr);
  char pf021[20]; tmp=R32; if (nabs(tmp)>eps) sprintf(pf021,"%13.2f",tmp); else  sprintf(pf021,"%s",tmpstr);
  char pf022[20]; tmp=R42; if (nabs(tmp)>eps) sprintf(pf022,"%13.2f",tmp); else  sprintf(pf022,"%s",tmpstr);
  char pf030[20]; tmp=R52; if (nabs(tmp)>eps) sprintf(pf030,"%13.2f",tmp); else  sprintf(pf030,"%s",tmpstr);
  char pf031[20]; tmp=R62; if (nabs(tmp)>eps) sprintf(pf031,"%13.2f",tmp); else  sprintf(pf031,"%s",tmpstr);
  char pf032[20]; tmp=R72; if (nabs(tmp)>eps) sprintf(pf032,"%13.2f",tmp); else  sprintf(pf032,"%s",tmpstr);
  char pf040[20]; tmp=R82; if (nabs(tmp)>eps) sprintf(pf040,"%13.2f",tmp); else  sprintf(pf040,"%s",tmpstr);
  char pf041[20]; tmp=R92; if (nabs(tmp)>eps) sprintf(pf041,"%13.2f",tmp); else  sprintf(pf041,"%s",tmpstr);
  char pf042[20]; tmp=R02; if (nabs(tmp)>eps) sprintf(pf042,"%13.2f",tmp); else  sprintf(pf042,"%s",tmpstr);
  char pf050[20]; tmp=RI2; if (nabs(tmp)>eps) sprintf(pf050,"%13.2f",tmp); else  sprintf(pf050,"%s",tmpstr);

  // ОМС лист 7 база
  char om010[20]; tmp=R13; if (nabs(tmp)>eps) sprintf(om010,"%13.2f",tmp); else  sprintf(om010,"%s",tmpstr);
  char om020[20]; tmp=R23; if (nabs(tmp)>eps) sprintf(om020,"%13.2f",tmp); else  sprintf(om020,"%s",tmpstr);
  char om021[20]; tmp=R33; if (nabs(tmp)>eps) sprintf(om021,"%13.2f",tmp); else  sprintf(om021,"%s",tmpstr);
  char om022[20]; tmp=R43; if (nabs(tmp)>eps) sprintf(om022,"%13.2f",tmp); else  sprintf(om022,"%s",tmpstr);
  char om030[20]; tmp=R53; if (nabs(tmp)>eps) sprintf(om030,"%13.2f",tmp); else  sprintf(om030,"%s",tmpstr);
  char om031[20]; tmp=R63; if (nabs(tmp)>eps) sprintf(om031,"%13.2f",tmp); else  sprintf(om031,"%s",tmpstr);
  char om032[20]; tmp=R73; if (nabs(tmp)>eps) sprintf(om032,"%13.2f",tmp); else  sprintf(om032,"%s",tmpstr);
  char om040[20]; tmp=R83; if (nabs(tmp)>eps) sprintf(om040,"%13.2f",tmp); else  sprintf(om040,"%s",tmpstr);
  char om050[20]; tmp=RI3; if (nabs(tmp)>eps) sprintf(om050,"%13.2f",tmp); else  sprintf(om050,"%s",tmpstr);

  // ФСС страница 6 база
  char fs010[20]; tmp=R14; if (nabs(tmp)>eps) sprintf(fs010,"%13.2f",tmp); else  sprintf(fs010,"%s",tmpstr);
  char fs020[20]; tmp=R24; if (nabs(tmp)>eps) sprintf(fs020,"%13.2f",tmp); else  sprintf(fs020,"%s",tmpstr);
  char fs021[20]; tmp=R34; if (nabs(tmp)>eps) sprintf(fs021,"%13.2f",tmp); else  sprintf(fs021,"%s",tmpstr);
  char fs022[20]; tmp=R44; if (nabs(tmp)>eps) sprintf(fs022,"%13.2f",tmp); else  sprintf(fs022,"%s",tmpstr);
  char fs030[20]; tmp=R54; if (nabs(tmp)>eps) sprintf(fs030,"%13.2f",tmp); else  sprintf(fs030,"%s",tmpstr);
  char fs031[20]; tmp=R64; if (nabs(tmp)>eps) sprintf(fs031,"%13.2f",tmp); else  sprintf(fs031,"%s",tmpstr);
  char fs032[20]; tmp=R74; if (nabs(tmp)>eps) sprintf(fs032,"%13.2f",tmp); else  sprintf(fs032,"%s",tmpstr);
  char fs040[20]; tmp=R84; if (nabs(tmp)>eps) sprintf(fs040,"%13.2f",tmp); else  sprintf(fs040,"%s",tmpstr);
  char fs050[20]; tmp=RI4; if (nabs(tmp)>eps) sprintf(fs050,"%13.2f",tmp); else  sprintf(fs050,"%s",tmpstr);

  // строка 0900 страница 5
  char pf0900[20]; tmp=PT5003; if (nabs(tmp)>eps) sprintf(pf0900,"%14.2f",tmp); else  sprintf(pf0900,"%s",tmpstr);
  char ff0900[20]; tmp=PT5007; if (nabs(tmp)>eps) sprintf(ff0900,"%14.2f",tmp); else  sprintf(ff0900,"%s",tmpstr);
  char tf0900[20]; tmp=PT5009; if (nabs(tmp)>eps) sprintf(tf0900,"%14.2f",tmp); else  sprintf(tf0900,"%s",tmpstr);
  char fs0900[20]; tmp=PT5005; if (nabs(tmp)>eps) sprintf(fs0900,"%14.2f",tmp); else  sprintf(fs0900,"%s",tmpstr);

  // строка 0100 налоговая база всего
  char pf0100[20]; tmp=T3003+T4003+A11 -fbNatOpVse; if (nabs(tmp)>eps) sprintf(pf0100,"%14.2f",tmp); else  sprintf(pf0100,"%s",tmpstr);
  char fs0100[20]; tmp=T3005+T4005+AC11-fsNatOpVse; if (nabs(tmp)>eps) sprintf(fs0100,"%14.2f",tmp); else  sprintf(fs0100,"%s",tmpstr);
  char ff0100[20]; tmp=T3007+T4007+AM11-ffNatOpVse; if (nabs(tmp)>eps) sprintf(ff0100,"%14.2f",tmp); else  sprintf(ff0100,"%s",tmpstr);
  char tf0100[20]; tmp=T3009+T4009+AT11-tfNatOpVse; if (nabs(tmp)>eps) sprintf(tf0100,"%14.2f",tmp); else  sprintf(tf0100,"%s",tmpstr);

  // строка 0110 за квартал
  char pf0110[20]; tmp=T3103+T3203+T3303+T4103+T4203+T4303+A12 +A13 +A14 -(fbNatOp1+fbNatOp2+fbNatOp3); if (nabs(tmp)>eps) sprintf(pf0110,"%14.2f",tmp); else  sprintf(pf0110,"%s",tmpstr);
  char fs0110[20]; tmp=T3105+T3205+T3305+T4105+T4205+T4305+AC12+AC13+AC14-(fsNatOp1+fsNatOp2+fsNatOp3); if (nabs(tmp)>eps) sprintf(fs0110,"%14.2f",tmp); else  sprintf(fs0110,"%s",tmpstr);
  char ff0110[20]; tmp=T3107+T3207+T3307+T4107+T4207+T4307+AM12+AM13+AM14-(ffNatOp1+ffNatOp2+ffNatOp3); if (nabs(tmp)>eps) sprintf(ff0110,"%14.2f",tmp); else  sprintf(ff0110,"%s",tmpstr);
  char tf0110[20]; tmp=T3109+T3209+T3309+T4109+T4209+T4309+AT12+AT13+AT14-(tfNatOp1+tfNatOp2+tfNatOp3); if (nabs(tmp)>eps) sprintf(tf0110,"%14.2f",tmp); else  sprintf(tf0110,"%s",tmpstr);

  // строка 0120 за 1 месяц
  char pf0120[20]; tmp=T3303+T4303+A14 -fbNatOp1; if (nabs(tmp)>eps) sprintf(pf0120,"%14.2f",tmp); else  sprintf(pf0120,"%s",tmpstr);
  char fs0120[20]; tmp=T3305+T4305+AC14-fsNatOp1; if (nabs(tmp)>eps) sprintf(fs0120,"%14.2f",tmp); else  sprintf(fs0120,"%s",tmpstr);
  char ff0120[20]; tmp=T3307+T4307+AM14-ffNatOp1; if (nabs(tmp)>eps) sprintf(ff0120,"%14.2f",tmp); else  sprintf(ff0120,"%s",tmpstr);
  char tf0120[20]; tmp=T3309+T4309+AT14-tfNatOp1; if (nabs(tmp)>eps) sprintf(tf0120,"%14.2f",tmp); else  sprintf(tf0120,"%s",tmpstr);

  // строка 0130 за 2 месяц
  char pf0130[20]; tmp=T3203+T4203+A13 -fbNatOp2; if (nabs(tmp)>eps) sprintf(pf0130,"%14.2f",tmp); else  sprintf(pf0130,"%s",tmpstr);
  char fs0130[20]; tmp=T3205+T4205+AC13-fsNatOp2; if (nabs(tmp)>eps) sprintf(fs0130,"%14.2f",tmp); else  sprintf(fs0130,"%s",tmpstr);
  char ff0130[20]; tmp=T3207+T4207+AM13-ffNatOp2; if (nabs(tmp)>eps) sprintf(ff0130,"%14.2f",tmp); else  sprintf(ff0130,"%s",tmpstr);
  char tf0130[20]; tmp=T3209+T4209+AT13-tfNatOp2; if (nabs(tmp)>eps) sprintf(tf0130,"%14.2f",tmp); else  sprintf(tf0130,"%s",tmpstr);

  // строка 0140 за 3 месяц
  char pf0140[20]; tmp=T3103+T4103+A12 -fbNatOp3; if (nabs(tmp)>eps) sprintf(pf0140,"%14.2f",tmp); else  sprintf(pf0140,"%s",tmpstr);
  char fs0140[20]; tmp=T3105+T4105+AC12-fsNatOp3; if (nabs(tmp)>eps) sprintf(fs0140,"%14.2f",tmp); else  sprintf(fs0140,"%s",tmpstr);
  char ff0140[20]; tmp=T3107+T4107+AM12-ffNatOp3; if (nabs(tmp)>eps) sprintf(ff0140,"%14.2f",tmp); else  sprintf(ff0140,"%s",tmpstr);
  char tf0140[20]; tmp=T3109+T4109+AT12-tfNatOp3; if (nabs(tmp)>eps) sprintf(tf0140,"%14.2f",tmp); else  sprintf(tf0140,"%s",tmpstr);

  // строка 0210 льготы за квартал
  char pf0210[20]; tmp=T3103+T3203+T3303+A12 +A13 +A14 -(fbNatOp1+fbNatOp2+fbNatOp3); if (nabs(tmp)>eps) sprintf(pf0210,"%14.2f",tmp); else  sprintf(pf0210,"%s",tmpstr);
  char fs0210[20]; tmp=T3105+T3205+T3305+AC12+AC13+AC14-(fsNatOp1+fsNatOp2+fsNatOp3); if (nabs(tmp)>eps) sprintf(fs0210,"%14.2f",tmp); else  sprintf(fs0210,"%s",tmpstr);
  char ff0210[20]; tmp=T3107+T3207+T3307+AM12+AM13+AM14-(ffNatOp1+ffNatOp2+ffNatOp3); if (nabs(tmp)>eps) sprintf(ff0210,"%14.2f",tmp); else  sprintf(ff0210,"%s",tmpstr);
  char tf0210[20]; tmp=T3109+T3209+T3309+AT12+AT13+AT14-(tfNatOp1+tfNatOp2+tfNatOp3); if (nabs(tmp)>eps) sprintf(tf0210,"%14.2f",tmp); else  sprintf(tf0210,"%s",tmpstr);

  // строка 0220 льготы за 1 месяц квартала  
  char pf0220[20]; tmp=T3303+A14 -fbNatOp1; if (nabs(tmp)>eps) sprintf(pf0220,"%14.2f",tmp); else  sprintf(pf0220,"%s",tmpstr);
  char fs0220[20]; tmp=T3305+AC14-fsNatOp1; if (nabs(tmp)>eps) sprintf(fs0220,"%14.2f",tmp); else  sprintf(fs0220,"%s",tmpstr);
  char ff0220[20]; tmp=T3307+AM14-ffNatOp1; if (nabs(tmp)>eps) sprintf(ff0220,"%14.2f",tmp); else  sprintf(ff0220,"%s",tmpstr);
  char tf0220[20]; tmp=T3309+AT14-tfNatOp1; if (nabs(tmp)>eps) sprintf(tf0220,"%14.2f",tmp); else  sprintf(tf0220,"%s",tmpstr);

  // строка 0230 льготы за 2 месяц квартала  
  char pf0230[20]; tmp=T3203+A13 -fbNatOp2; if (nabs(tmp)>eps) sprintf(pf0230,"%14.2f",tmp); else  sprintf(pf0230,"%s",tmpstr);
  char fs0230[20]; tmp=T3205+AC13-fsNatOp2; if (nabs(tmp)>eps) sprintf(fs0230,"%14.2f",tmp); else  sprintf(fs0230,"%s",tmpstr);
  char ff0230[20]; tmp=T3207+AM13-ffNatOp2; if (nabs(tmp)>eps) sprintf(ff0230,"%14.2f",tmp); else  sprintf(ff0230,"%s",tmpstr);
  char tf0230[20]; tmp=T3209+AT13-tfNatOp2; if (nabs(tmp)>eps) sprintf(tf0230,"%14.2f",tmp); else  sprintf(tf0230,"%s",tmpstr);

  // строка 0240 льготы за 3 месяц квартала  
  char pf0240[20]; tmp=T3103+A12 -fbNatOp3; if (nabs(tmp)>eps) sprintf(pf0240,"%14.2f",tmp); else  sprintf(pf0240,"%s",tmpstr);
  char fs0240[20]; tmp=T3105+AC12-fsNatOp3; if (nabs(tmp)>eps) sprintf(fs0240,"%14.2f",tmp); else  sprintf(fs0240,"%s",tmpstr);
  char ff0240[20]; tmp=T3107+AM12-ffNatOp3; if (nabs(tmp)>eps) sprintf(ff0240,"%14.2f",tmp); else  sprintf(ff0240,"%s",tmpstr);
  char tf0240[20]; tmp=T3109+AT12-tfNatOp3; if (nabs(tmp)>eps) sprintf(tf0240,"%14.2f",tmp); else  sprintf(tf0240,"%s",tmpstr);

  // строка 0310 налоговая база для налога за квартал
  char pf0310[20]; tmp=T4103+T4203+T4303; if (nabs(tmp)>eps) sprintf(pf0310,"%14.2f",tmp); else  sprintf(pf0310,"%s",tmpstr);
  char fs0310[20]; tmp=T4105+T4205+T4305; if (nabs(tmp)>eps) sprintf(fs0310,"%14.2f",tmp); else  sprintf(fs0310,"%s",tmpstr);
  char ff0310[20]; tmp=T4107+T4207+T4307; if (nabs(tmp)>eps) sprintf(ff0310,"%14.2f",tmp); else  sprintf(ff0310,"%s",tmpstr);
  char tf0310[20]; tmp=T4109+T4209+T4309; if (nabs(tmp)>eps) sprintf(tf0310,"%14.2f",tmp); else  sprintf(tf0310,"%s",tmpstr);

  // строка 0320 налоговая база для налога за 1 месяц квартала  
  char pf0320[20]; tmp=T4303; if (nabs(tmp)>eps) sprintf(pf0320,"%14.2f",tmp); else  sprintf(pf0320,"%s",tmpstr);
  char fs0320[20]; tmp=T4305; if (nabs(tmp)>eps) sprintf(fs0320,"%14.2f",tmp); else  sprintf(fs0320,"%s",tmpstr);
  char ff0320[20]; tmp=T4307; if (nabs(tmp)>eps) sprintf(ff0320,"%14.2f",tmp); else  sprintf(ff0320,"%s",tmpstr);
  char tf0320[20]; tmp=T4309; if (nabs(tmp)>eps) sprintf(tf0320,"%14.2f",tmp); else  sprintf(tf0320,"%s",tmpstr);

  // строка 0330 налоговая база для налога за 2 месяц квартала  
  char pf0330[20]; tmp=T4203; if (nabs(tmp)>eps) sprintf(pf0330,"%14.2f",tmp); else  sprintf(pf0330,"%s",tmpstr);
  char fs0330[20]; tmp=T4205; if (nabs(tmp)>eps) sprintf(fs0330,"%14.2f",tmp); else  sprintf(fs0330,"%s",tmpstr);
  char ff0330[20]; tmp=T4207; if (nabs(tmp)>eps) sprintf(ff0330,"%14.2f",tmp); else  sprintf(ff0330,"%s",tmpstr);
  char tf0330[20]; tmp=T4209; if (nabs(tmp)>eps) sprintf(tf0330,"%14.2f",tmp); else  sprintf(tf0330,"%s",tmpstr);

  // строка 0340 налоговая база для налога за 3 месяц квартала  
  char pf0340[20]; tmp=T4103; if (nabs(tmp)>eps) sprintf(pf0340,"%14.2f",tmp); else  sprintf(pf0340,"%s",tmpstr);
  char fs0340[20]; tmp=T4105; if (nabs(tmp)>eps) sprintf(fs0340,"%14.2f",tmp); else  sprintf(fs0340,"%s",tmpstr);
  char ff0340[20]; tmp=T4107; if (nabs(tmp)>eps) sprintf(ff0340,"%14.2f",tmp); else  sprintf(ff0340,"%s",tmpstr);
  char tf0340[20]; tmp=T4109; if (nabs(tmp)>eps) sprintf(tf0340,"%14.2f",tmp); else  sprintf(tf0340,"%s",tmpstr);

  // строка 0410 начислено авансовых платежей за квартал
  char pf0410[20]; tmp=T5103+T5203+T5303; if (nabs(tmp)>eps) sprintf(pf0410,"%14.2f",tmp); else  sprintf(pf0410,"%s",tmpstr);
  if (FVMENEN>eps) if (VMENDEK) sprintf(pf0410,"%s",tmpstr);
  char fs0410[20]; tmp=T5105+T5205+T5305; if (nabs(tmp)>eps) sprintf(fs0410,"%14.2f",tmp); else  sprintf(fs0410,"%s",tmpstr);
  char ff0410[20]; tmp=T5107+T5207+T5307; if (nabs(tmp)>eps) sprintf(ff0410,"%14.2f",tmp); else  sprintf(ff0410,"%s",tmpstr);
  char tf0410[20]; tmp=T5109+T5209+T5309; if (nabs(tmp)>eps) sprintf(tf0410,"%14.2f",tmp); else  sprintf(tf0410,"%s",tmpstr);

  // строка 0420 начислено авансовых платежей за 1 месяц квартала  
  char pf0420[20]; tmp=T5303; if (nabs(tmp)>eps) sprintf(pf0420,"%14.2f",tmp); else  sprintf(pf0420,"%s",tmpstr);
  if (FVMENEN>eps) if (VMENDEK) sprintf(pf0420,"%s",tmpstr);
  char fs0420[20]; tmp=T5305; if (nabs(tmp)>eps) sprintf(fs0420,"%14.2f",tmp); else  sprintf(fs0420,"%s",tmpstr);
  char ff0420[20]; tmp=T5307; if (nabs(tmp)>eps) sprintf(ff0420,"%14.2f",tmp); else  sprintf(ff0420,"%s",tmpstr);
  char tf0420[20]; tmp=T5309; if (nabs(tmp)>eps) sprintf(tf0420,"%14.2f",tmp); else  sprintf(tf0420,"%s",tmpstr);

  // строка 0430 начислено авансовых платежей за 2 месяц квартала  
  char pf0430[20]; tmp=T5203; if (nabs(tmp)>eps) sprintf(pf0430,"%14.2f",tmp); else  sprintf(pf0430,"%s",tmpstr);
  if (FVMENEN>eps) if (VMENDEK) sprintf(pf0430,"%s",tmpstr);
  char fs0430[20]; tmp=T5205; if (nabs(tmp)>eps) sprintf(fs0430,"%14.2f",tmp); else  sprintf(fs0430,"%s",tmpstr);
  char ff0430[20]; tmp=T5207; if (nabs(tmp)>eps) sprintf(ff0430,"%14.2f",tmp); else  sprintf(ff0430,"%s",tmpstr);
  char tf0430[20]; tmp=T5209; if (nabs(tmp)>eps) sprintf(tf0430,"%14.2f",tmp); else  sprintf(tf0430,"%s",tmpstr);

  // строка 0440 начислено авансовых платежей за 3 месяц квартала  
  char pf0440[20]; tmp=T5103; if (nabs(tmp)>eps) sprintf(pf0440,"%14.2f",tmp); else  sprintf(pf0440,"%s",tmpstr);
  if (FVMENEN>eps) if (VMENDEK) sprintf(pf0440,"%s",tmpstr);
  char fs0440[20]; tmp=T5105; if (nabs(tmp)>eps) sprintf(fs0440,"%14.2f",tmp); else  sprintf(fs0440,"%s",tmpstr);
  char ff0440[20]; tmp=T5107; if (nabs(tmp)>eps) sprintf(ff0440,"%14.2f",tmp); else  sprintf(ff0440,"%s",tmpstr);
  char tf0440[20]; tmp=T5109; if (nabs(tmp)>eps) sprintf(tf0440,"%14.2f",tmp); else  sprintf(tf0440,"%s",tmpstr);

  // строка 0500 страховых взносов всего
  char sv0500[20]; tmp=T500A+T500L; if (nabs(tmp)>eps) sprintf(sv0500,"%14.2f",tmp); else  sprintf(sv0500,"%s",tmpstr);
  if (FVMENEN>eps) if (VMENDEK) sprintf(sv0500,"%s",tmpstr);
  // строка 0520 страховых взносов за 1 месяц
  char sv0520[20]; tmp=T530A+T530L; if (nabs(tmp)>eps) sprintf(sv0520,"%14.2f",tmp); else  sprintf(sv0520,"%s",tmpstr);
  if (FVMENEN>eps) if (VMENDEK) sprintf(sv0520,"%s",tmpstr);
  // строка 0530 страховых взносов за 2 месяц
  char sv0530[20]; tmp=T520A+T520L; if (nabs(tmp)>eps) sprintf(sv0530,"%14.2f",tmp); else  sprintf(sv0530,"%s",tmpstr);
  if (FVMENEN>eps) if (VMENDEK) sprintf(sv0530,"%s",tmpstr);
  // строка 0540 страховых взносов за 2 месяц
  char sv0540[20]; tmp=T510A+T510L; if (nabs(tmp)>eps) sprintf(sv0540,"%14.2f",tmp); else  sprintf(sv0540,"%s",tmpstr);
  if (FVMENEN>eps) if (VMENDEK) sprintf(sv0540,"%s",tmpstr);
  // строка 0510 страховых взносов за квартал
  char sv0510[20]; tmp=T510A+T520A+T530A+T510L+T520L+T530L; if (nabs(tmp)>eps) sprintf(sv0510,"%14.2f",tmp); else  sprintf(sv0510,"%s",tmpstr);
  if (FVMENEN>eps) if (VMENDEK) sprintf(sv0510,"%s",tmpstr);

  // строка 0600 начислено в федеральный бюджет 0400-0500
  char fb0600[20]; tmp=T5003-(T500A+T500L); if (nabs(tmp)>eps) sprintf(fb0600,"%14.2f",tmp); else  sprintf(fb0600,"%s",tmpstr);
  // строка 0610 начислено в федеральный бюджет за квартал 0410-0510
  char fb0610[20]; tmp=(T5103+T5203+T5303)-(T510A+T520A+T530A+T510L+T520L+T530L); if (nabs(tmp)>eps) sprintf(fb0610,"%14.2f",tmp); else  sprintf(fb0610,"%s",tmpstr);
  // строка 0620 начислено в федеральный бюджет за 1 месяц 0420-0520
  char fb0620[20]; tmp=T5303-(T530A+T530L); if (nabs(tmp)>eps) sprintf(fb0620,"%14.2f",tmp); else  sprintf(fb0620,"%s",tmpstr);
  // строка 0630 начислено в федеральный бюджет за 2 месяц 0430-0530
  char fb0630[20]; tmp=T5203-(T520A+T520L); if (nabs(tmp)>eps) sprintf(fb0630,"%14.2f",tmp); else  sprintf(fb0630,"%s",tmpstr);
  // строка 0640 начислено в федеральный бюджет за 3 месяц 0440-0540
  char fb0640[20]; tmp=T5103-(T510A+T510L); if (nabs(tmp)>eps) sprintf(fb0640,"%14.2f",tmp); else  sprintf(fb0640,"%s",tmpstr);

  // строка 0700 расходы произведенные на средства ФСС
  char fss0700[20]; tmp=atof(FSS0700); if (nabs(tmp)>eps) sprintf(fss0700,"%14.2f",tmp); else  sprintf(fss0700,"%s",tmpstr);
  // строка 0720 расходы произведенные на средства ФСС за 1 месяц
  char fss0720[20]; tmp=atof(FSS0720); if (nabs(tmp)>eps) sprintf(fss0720,"%14.2f",tmp); else  sprintf(fss0720,"%s",tmpstr);
  // строка 0730 расходы произведенные на средства ФСС за 2 месяц
  char fss0730[20]; tmp=atof(FSS0730); if (nabs(tmp)>eps) sprintf(fss0730,"%14.2f",tmp); else  sprintf(fss0730,"%s",tmpstr);
  // строка 0740 расходы произведенные на средства ФСС за 3 месяц
  char fss0740[20]; tmp=atof(FSS0740); if (nabs(tmp)>eps) sprintf(fss0740,"%14.2f",tmp); else  sprintf(fss0740,"%s",tmpstr);
  // строка 0710 расходы произведенные на средства ФСС за квартал
  char fss0710[20]; tmp=atof(FSS0720)+atof(FSS0730)+atof(FSS0740); if (nabs(tmp)>eps) sprintf(fss0710,"%14.2f",tmp); else  sprintf(fss0710,"%s",tmpstr);

  // строка 0800 возмещено ФСС РФ всего
  char fss0800[20]; tmp=atof(FSS0800); if (nabs(tmp)>eps) sprintf(fss0800,"%14.2f",tmp); else  sprintf(fss0800,"%s",tmpstr);
  // строка 0820 возмещено ФСС РФ за 1 месяц квартала
  char fss0820[20]; tmp=atof(FSS0820); if (nabs(tmp)>eps) sprintf(fss0820,"%14.2f",tmp); else  sprintf(fss0820,"%s",tmpstr);
  // строка 0830 возмещено ФСС РФ за 2 месяц квартала
  char fss0830[20]; tmp=atof(FSS0830); if (nabs(tmp)>eps) sprintf(fss0830,"%14.2f",tmp); else  sprintf(fss0830,"%s",tmpstr);
  // строка 0840 возмещено ФСС РФ за 3 месяц квартала
  char fss0840[20]; tmp=atof(FSS0840); if (nabs(tmp)>eps) sprintf(fss0840,"%14.2f",tmp); else  sprintf(fss0840,"%s",tmpstr);
  // строка 0810 возмещено ФСС РФ за квартал
  char fss0810[20]; tmp=atof(FSS0820)+atof(FSS0830)+atof(FSS0840); if (nabs(tmp)>eps) sprintf(fss0810,"%14.2f",tmp); else  sprintf(fss0810,"%s",tmpstr);

  // строка 0900 
  char fss0900[20]; tmp=T5005-FSS0700+FSS0800; if (nabs(tmp)>eps) sprintf(fss0900,"%14.2f",tmp); else  sprintf(fss0900,"%s",tmpstr);
  char fss0920[20]; tmp=T5305-FSS0720+FSS0820; if (nabs(tmp)>eps) sprintf(fss0920,"%14.2f",tmp); else  sprintf(fss0920,"%s",tmpstr);
  char fss0930[20]; tmp=T5205-FSS0730+FSS0830; if (nabs(tmp)>eps) sprintf(fss0930,"%14.2f",tmp); else  sprintf(fss0930,"%s",tmpstr);
  char fss0940[20]; tmp=T5105-FSS0740+FSS0840; if (nabs(tmp)>eps) sprintf(fss0940,"%14.2f",tmp); else  sprintf(fss0940,"%s",tmpstr);
  char fss0910[20]; tmp=(T5105+T5205+T5305)-(FSS0720+FSS0730+FSS0740)+(FSS0820+FSS0830+FSS0840); if (nabs(tmp)>eps) sprintf(fss0910,"%14.2f",tmp); else  sprintf(fss0910,"%s",tmpstr);

  // строка 1000 - выплаты не уменьшающие налоговую базу по налогу на ДФЛ
  char fb1000[20]; tmp=FB78; if (nabs(tmp)>eps) sprintf(fb1000,"%14.2f",tmp); else  sprintf(fb1000,"%s",tmpstr);
  char fs1000[20]; tmp=FS78; if (nabs(tmp)>eps) sprintf(fs1000,"%14.2f",tmp); else  sprintf(fs1000,"%s",tmpstr);
  char ff1000[20]; tmp=FF78; if (nabs(tmp)>eps) sprintf(ff1000,"%14.2f",tmp); else  sprintf(ff1000,"%s",tmpstr);
  char tf1000[20]; tmp=TF78; if (nabs(tmp)>eps) sprintf(tf1000,"%14.2f",tmp); else  sprintf(tf1000,"%s",tmpstr);

  // строка 1100 - статья 238 налогового кодекса РФ
//char fb1100[20]; tmp=T1003-(T3003+T4003)-A11- FB78;       if (nabs(tmp)>eps) sprintf(fb1100,"%14.2f",tmp); else  sprintf(fb1100,"%s",tmpstr);
//char fs1100[20]; tmp=T1005-(T3005+T4005)-A11-(FS78+FS77); if (nabs(tmp)>eps) sprintf(fs1100,"%14.2f",tmp); else  sprintf(fs1100,"%s",tmpstr);
//char ff1100[20]; tmp=T1007-(T3007+T4007)-A11- FF78;       if (nabs(tmp)>eps) sprintf(ff1100,"%14.2f",tmp); else  sprintf(ff1100,"%s",tmpstr);
//char tf1100[20]; tmp=T1009-(T3009+T4009)-A11- TF78;       if (nabs(tmp)>eps) sprintf(tf1100,"%14.2f",tmp); else  sprintf(tf1100,"%s",tmpstr);

  char fb1100[20]; tmp=FB69-FB78+D21+D41+fb507+fbNatOpVse;        if (nabs(tmp)>eps) sprintf(fb1100,"%14.2f",tmp); else  sprintf(fb1100,"%s",tmpstr);
  if (DOGP==1) FS77=0;
  char fs1100[20]; tmp=FS69-(FS78+FS77)+MP5+MD5+fs507+fsNatOpVse; if (nabs(tmp)>eps) sprintf(fs1100,"%14.2f",tmp); else  sprintf(fs1100,"%s",tmpstr);
  char ff1100[20]; tmp=FF69-FF78+MP7+MD7+ff507+ffNatOpVse;        if (nabs(tmp)>eps) sprintf(ff1100,"%14.2f",tmp); else  sprintf(ff1100,"%s",tmpstr);
  char tf1100[20]; tmp=TF69-TF78+MP9+MD9+tf507+tfNatOpVse;        if (nabs(tmp)>eps) sprintf(tf1100,"%14.2f",tmp); else  sprintf(tf1100,"%s",tmpstr);

  // Лист 8 ** НАЧАЛО ********************************************************
  // считам среднюю численность

  // в массиве SCHP[12] - численность постоянных работников по месяцам
  // в массиве SCHS[12] - численность внешних совместителей по месяцам
  // в массиве SCHD[12] - численность договорников по месяцам
  // dper1 - число месяцев в расчетном периоде

  double SCHP1=0.; double SCHP2=0.; double SCHP3=0.;
  double SCHS1=0.; double SCHS2=0.; double SCHS3=0.;
  double SCHD1=0.; double SCHD2=0.; double SCHD3=0.;

  for (int i=0; i<dper1; i++)
  {
    round2(SCHP[i],0,1,SCHP[i]);
    round2(SCHS[i],0,1,SCHS[i]);
    round2(SCHD[i],0,1,SCHD[i]);

    if (PrMes0==1)
    {
      SCHP3+=SCHP[i];
      SCHS3+=SCHS[i];
      SCHD3+=SCHD[i];
    }
    
    if (PrMes1==1)
    {
      if (i<dper1-1)
      {
        SCHP2+=SCHP[i];
        SCHS2+=SCHS[i];
        SCHD2+=SCHD[i];
      }
    }

    if (PrMes2==1)
    {
      if (i<dper1-2)
      {
        SCHP1+=SCHP[i];
        SCHS1+=SCHS[i];
        SCHD1+=SCHD[i];
      }
    }
  }


  if (PrMes0==1)
  {
    SCHP3/=dper1;     
    SCHS3/=dper1;     
    SCHD3/=dper1;     
  }

  if (PrMes1==1)
  {
    SCHP2/=(dper1-1); 
    SCHS2/=(dper1-1); 
    SCHD2/=(dper1-1); 
  }

  if (PrMes2==1)
  {
    SCHP1/=(dper1-2); 
    SCHS1/=(dper1-2); 
    SCHD1/=(dper1-2); 
  }

  if (AVCOUNT==0)
  {                      
    round2(SCHP1,0,1,SCHP1); round2(SCHP2,0,1,SCHP2); round2(SCHP3,0,1,SCHP3);
    round2(SCHS1,0,1,SCHS1); round2(SCHS2,0,1,SCHS2); round2(SCHS3,0,1,SCHS3);
    round2(SCHD1,0,1,SCHD1); round2(SCHD2,0,1,SCHD2); round2(SCHD3,0,1,SCHD3);
  }
  
  double SCHR3=SCHP3+SCHS3+SCHD3; // средняя численность на 3 месяц послед. квартала
  double SCHR2=SCHP2+SCHS2+SCHD2; // средняя численность на 2 месяц послед. квартала
  double SCHR1=SCHP1+SCHS1+SCHD1; // средняя численность на 1 месяц послед. квартала

  if (AVCOUNT==1)
  {                      
    round2(SCHR1,0,1,SCHR1); round2(SCHR2,0,1,SCHR2); round2(SCHR3,0,1,SCHR3);
  }

  char L8_S010_G4[20]; tmp=SCHR1; if (nabs(tmp)>eps) sprintf(L8_S010_G4,"%14.0f",tmp); else  sprintf(L8_S010_G4,"%s",tmpstr); if (PrMes2==0) sprintf(L8_S010_G4,"%s",tmpstr);
  char L8_S010_G6[20]; tmp=SCHR2; if (nabs(tmp)>eps) sprintf(L8_S010_G6,"%14.0f",tmp); else  sprintf(L8_S010_G6,"%s",tmpstr); if (PrMes1==0) sprintf(L8_S010_G6,"%s",tmpstr);
  char L8_S010_G8[20]; tmp=SCHR3; if (nabs(tmp)>eps) sprintf(L8_S010_G8,"%14.0f",tmp); else  sprintf(L8_S010_G8,"%s",tmpstr); if (PrMes0==0) sprintf(L8_S010_G8,"%s",tmpstr);

  char L8_S020_G4[20]; tmp=atof(pf0100)-atof(pf0140)-atof(pf0130); if (nabs(tmp)>eps) sprintf(L8_S020_G4,"%14.2f",tmp); else  sprintf(L8_S020_G4,"%s",tmpstr); if (PrMes2==0) sprintf(L8_S020_G4,"%s",tmpstr);
  char L8_S020_G6[20]; tmp=atof(pf0100)-atof(pf0140);              if (nabs(tmp)>eps) sprintf(L8_S020_G6,"%14.2f",tmp); else  sprintf(L8_S020_G6,"%s",tmpstr); if (PrMes1==0) sprintf(L8_S020_G6,"%s",tmpstr);
  char L8_S020_G8[20]; tmp=atof(pf0100);                           if (nabs(tmp)>eps) sprintf(L8_S020_G8,"%14.2f",tmp); else  sprintf(L8_S020_G8,"%s",tmpstr); if (PrMes0==0) sprintf(L8_S020_G8,"%s",tmpstr);

  // строка 030 (10% или 30% работников имеющих наибольшие по размеру доходы)
  // определяем процент
  double PROC1=(SCHR1>30)?10:30; double CHMD1=SCHR1*PROC1/100.; round2(CHMD1,0,1,CHMD1);
  double PROC2=(SCHR2>30)?10:30; double CHMD2=SCHR2*PROC2/100.; round2(CHMD2,0,1,CHMD2);
  double PROC3=(SCHR3>30)?10:30; double CHMD3=SCHR3*PROC3/100.; round2(CHMD3,0,1,CHMD3);

  char L8_S030_G4[20]; tmp=CHMD1; if (nabs(tmp)>eps) sprintf(L8_S030_G4,"%14.0f",tmp); else  sprintf(L8_S030_G4,"%s",tmpstr); if (PrMes2==0)  sprintf(L8_S030_G4,"%s",tmpstr);
  char L8_S030_G6[20]; tmp=CHMD2; if (nabs(tmp)>eps) sprintf(L8_S030_G6,"%14.0f",tmp); else  sprintf(L8_S030_G6,"%s",tmpstr); if (PrMes1==0)  sprintf(L8_S030_G6,"%s",tmpstr);
  char L8_S030_G8[20]; tmp=CHMD3; if (nabs(tmp)>eps) sprintf(L8_S030_G8,"%14.0f",tmp); else  sprintf(L8_S030_G8,"%s",tmpstr); if (PrMes0==0)  sprintf(L8_S030_G8,"%s",tmpstr);

  double VYP_MD1=0.; for (int i=0; i<CHMD1; i++) { VYP_MD1+=Doh1[i]; }
  double VYP_MD2=0.; for (int i=0; i<CHMD2; i++) { VYP_MD2+=Doh2[i]; }
  double VYP_MD3=0.; for (int i=0; i<CHMD3; i++) { VYP_MD3+=Doh3[i]; }
  
  char L8_S040_G4[20]; tmp=VYP_MD1; if (nabs(tmp)>eps) sprintf(L8_S040_G4,"%14.2f",tmp); else  sprintf(L8_S040_G4,"%s",tmpstr); if (PrMes2==0) sprintf(L8_S040_G4,"%s",tmpstr);
  char L8_S040_G6[20]; tmp=VYP_MD2; if (nabs(tmp)>eps) sprintf(L8_S040_G6,"%14.2f",tmp); else  sprintf(L8_S040_G6,"%s",tmpstr); if (PrMes1==0) sprintf(L8_S040_G6,"%s",tmpstr);
  char L8_S040_G8[20]; tmp=VYP_MD3; if (nabs(tmp)>eps) sprintf(L8_S040_G8,"%14.2f",tmp); else  sprintf(L8_S040_G8,"%s",tmpstr); if (PrMes0==0) sprintf(L8_S040_G8,"%s",tmpstr);

  char L8_S050_G4[20]; tmp=atof(L8_S020_G4)-atof(L8_S040_G4); if (nabs(tmp)>eps) sprintf(L8_S050_G4,"%14.2f",tmp); else  sprintf(L8_S050_G4,"%s",tmpstr); if (PrMes2==0) sprintf(L8_S050_G4,"%s",tmpstr);
  char L8_S050_G6[20]; tmp=atof(L8_S020_G6)-atof(L8_S040_G6); if (nabs(tmp)>eps) sprintf(L8_S050_G6,"%14.2f",tmp); else  sprintf(L8_S050_G6,"%s",tmpstr); if (PrMes1==0) sprintf(L8_S050_G6,"%s",tmpstr);
  char L8_S050_G8[20]; tmp=atof(L8_S020_G8)-atof(L8_S040_G8); if (nabs(tmp)>eps) sprintf(L8_S050_G8,"%14.2f",tmp); else  sprintf(L8_S050_G8,"%s",tmpstr); if (PrMes0==0) sprintf(L8_S050_G8,"%s",tmpstr);

  char L8_S060_G4[20]; if (nabs(atof(L8_S010_G4)-atof(L8_S030_G4))<0.001) tmp=0; else tmp=atof(L8_S050_G4)/(atof(L8_S010_G4)-atof(L8_S030_G4)); if (nabs(tmp)>eps) sprintf(L8_S060_G4,"%14.2f",tmp); else  sprintf(L8_S060_G4,"%s",tmpstr); if (PrMes2==0) sprintf(L8_S060_G4,"%s",tmpstr);
  char L8_S060_G6[20]; if (nabs(atof(L8_S010_G6)-atof(L8_S030_G6))<0.001) tmp=0; else tmp=atof(L8_S050_G6)/(atof(L8_S010_G6)-atof(L8_S030_G6)); if (nabs(tmp)>eps) sprintf(L8_S060_G6,"%14.2f",tmp); else  sprintf(L8_S060_G6,"%s",tmpstr); if (PrMes1==0) sprintf(L8_S060_G6,"%s",tmpstr);
  char L8_S060_G8[20]; if (nabs(atof(L8_S010_G8)-atof(L8_S030_G8))<0.001) tmp=0; else tmp=atof(L8_S050_G8)/(atof(L8_S010_G8)-atof(L8_S030_G8)); if (nabs(tmp)>eps) sprintf(L8_S060_G8,"%14.2f",tmp); else  sprintf(L8_S060_G8,"%s",tmpstr); if (PrMes0==0) sprintf(L8_S060_G8,"%s",tmpstr);

  char L8_S070_G4[20]; tmp=dper1-2; if (nabs(tmp)>eps) sprintf(L8_S070_G4,"%14.0f",tmp); else  sprintf(L8_S070_G4,"%s",tmpstr); if (PrMes2==0) sprintf(L8_S070_G4,"%s",tmpstr);
  char L8_S070_G6[20]; tmp=dper1-1; if (nabs(tmp)>eps) sprintf(L8_S070_G6,"%14.0f",tmp); else  sprintf(L8_S070_G6,"%s",tmpstr); if (PrMes1==0) sprintf(L8_S070_G6,"%s",tmpstr);
  char L8_S070_G8[20]; tmp=dper1;   if (nabs(tmp)>eps) sprintf(L8_S070_G8,"%14.0f",tmp); else  sprintf(L8_S070_G8,"%s",tmpstr); if (PrMes0==0) sprintf(L8_S070_G8,"%s",tmpstr);

  char L8_S080_G4[20]; if (nabs(atof(L8_S070_G4))<0.001) tmp=0; else  tmp=atof(L8_S060_G4)/atof(L8_S070_G4); if (nabs(tmp)>eps) sprintf(L8_S080_G4,"%14.2f",tmp); else  sprintf(L8_S080_G4,"%s",tmpstr); if (PrMes2==0) sprintf(L8_S080_G4,"%s",tmpstr);
  char L8_S080_G6[20]; if (nabs(atof(L8_S070_G6))<0.001) tmp=0; else  tmp=atof(L8_S060_G6)/atof(L8_S070_G6); if (nabs(tmp)>eps) sprintf(L8_S080_G6,"%14.2f",tmp); else  sprintf(L8_S080_G6,"%s",tmpstr); if (PrMes1==0) sprintf(L8_S080_G6,"%s",tmpstr);
  char L8_S080_G8[20]; if (nabs(atof(L8_S070_G8))<0.001) tmp=0; else  tmp=atof(L8_S060_G8)/atof(L8_S070_G8); if (nabs(tmp)>eps) sprintf(L8_S080_G8,"%14.2f",tmp); else  sprintf(L8_S080_G8,"%s",tmpstr); if (PrMes0==0) sprintf(L8_S080_G8,"%s",tmpstr);

  char YesStr[11]; sprintf(YesStr, "имеет");
  char NoStr[11];  sprintf(NoStr, "не имеет");

  char PrRegr1[11]; tmp=atof(L8_S080_G4); if (tmp>2500) sprintf(PrRegr1,"%s", YesStr); else sprintf(PrRegr1,"%s", NoStr); if (PrMes2==0) sprintf(PrRegr1,"%s", " ");
  char PrRegr2[11]; tmp=atof(L8_S080_G6); if (tmp>2500) sprintf(PrRegr2,"%s", YesStr); else sprintf(PrRegr2,"%s", NoStr); if (PrMes1==0) sprintf(PrRegr2,"%s", " ");
  char PrRegr3[11]; tmp=atof(L8_S080_G8); if (tmp>2500) sprintf(PrRegr3,"%s", YesStr); else sprintf(PrRegr3,"%s", NoStr); if (PrMes0==0) sprintf(PrRegr3,"%s", " ");

  string Imeet  ="-----           ";
  string NeImeet="      ----------";

  string PrRegMes1; tmp=atof(L8_S080_G4); if (tmp>2500) PrRegMes1=Imeet; else PrRegMes1=NeImeet; if (PrMes2==0) PrRegMes1="";
  string PrRegMes2; tmp=atof(L8_S080_G6); if (tmp>2500) PrRegMes2=Imeet; else PrRegMes2=NeImeet; if (PrMes1==0) PrRegMes2="";
  string PrRegMes3; tmp=atof(L8_S080_G8); if (tmp>2500) PrRegMes3=Imeet; else PrRegMes3=NeImeet; if (PrMes0==0) PrRegMes3="";
  

  // Лист 8 ** КОНЕЦ ********************************************************

  // данные по статьям 25 и 26 150-ФЗ
  char a25rub[20];
  char a25kop[20];
  char a26rub[20];
  char a26kop[20];
  int  a25i=A11;
  int  a26i=A21;
  int  a25f=(A11-a25i)*100;
  int  a26f=(A21-a26i)*100;

  if (nabs(A11)>eps) { sprintf(a25rub,"%d",a25i); sprintf(a25kop,"%02d",a25f); } else { sprintf(a25rub,"%s",tmpstr); sprintf(a25kop,"%s"," "); }
  if (nabs(A12)>eps) { sprintf(a26rub,"%d",a26i); sprintf(a26kop,"%02d",a26f); } else { sprintf(a26rub,"%s",tmpstr); sprintf(a26kop,"%s"," "); }
  
  // страница 6 ПФ налог
  char npf010[15]; tmp=R1T5; if (nabs(tmp)>eps) sprintf(npf010,"%13.2f",tmp); else  sprintf(npf010,"%s",tmpstr);
  char npf020[15]; tmp=R2T5; if (nabs(tmp)>eps) sprintf(npf020,"%13.2f",tmp); else  sprintf(npf020,"%s",tmpstr);
  char npf021[15]; tmp=R3T5; if (nabs(tmp)>eps) sprintf(npf021,"%13.2f",tmp); else  sprintf(npf021,"%s",tmpstr);
  char npf022[15]; tmp=R4T5; if (nabs(tmp)>eps) sprintf(npf022,"%13.2f",tmp); else  sprintf(npf022,"%s",tmpstr);
  char npf030[15]; tmp=R5T5; if (nabs(tmp)>eps) sprintf(npf030,"%13.2f",tmp); else  sprintf(npf030,"%s",tmpstr);
  char npf031[15]; tmp=R6T5; if (nabs(tmp)>eps) sprintf(npf031,"%13.2f",tmp); else  sprintf(npf031,"%s",tmpstr);
  char npf032[15]; tmp=R7T5; if (nabs(tmp)>eps) sprintf(npf032,"%13.2f",tmp); else  sprintf(npf032,"%s",tmpstr);
  char npf040[15]; tmp=R8T5; if (nabs(tmp)>eps) sprintf(npf040,"%13.2f",tmp); else  sprintf(npf040,"%s",tmpstr);
  char npf041[15]; tmp=R9T5; if (nabs(tmp)>eps) sprintf(npf041,"%13.2f",tmp); else  sprintf(npf041,"%s",tmpstr);
  char npf042[15]; tmp=R0T5; if (nabs(tmp)>eps) sprintf(npf042,"%13.2f",tmp); else  sprintf(npf042,"%s",tmpstr);
  char npf050[15]; tmp=RIT5; if (nabs(tmp)>eps) sprintf(npf050,"%13.2f",tmp); else  sprintf(npf050,"%s",tmpstr);

  char TmpStr10[20]; sprintf(TmpStr10,"    -     ");
  char TmpStr11[20]; sprintf(TmpStr11,"     -     ");

  // страница 6 ФФОМС налог
  char nff010[15]; tmp=R1T9; if (nabs(tmp)>eps) sprintf(nff010,"%10.2f",tmp); else  sprintf(nff010,"%s",TmpStr10);
  char nff020[15]; tmp=R2T9; if (nabs(tmp)>eps) sprintf(nff020,"%10.2f",tmp); else  sprintf(nff020,"%s",TmpStr10);
  char nff021[15]; tmp=R3T9; if (nabs(tmp)>eps) sprintf(nff021,"%10.2f",tmp); else  sprintf(nff021,"%s",TmpStr10);
  char nff022[15]; tmp=R4T9; if (nabs(tmp)>eps) sprintf(nff022,"%10.2f",tmp); else  sprintf(nff022,"%s",TmpStr10);
  char nff030[15]; tmp=R5T9; if (nabs(tmp)>eps) sprintf(nff030,"%10.2f",tmp); else  sprintf(nff030,"%s",TmpStr10);
  char nff031[15]; tmp=R6T9; if (nabs(tmp)>eps) sprintf(nff031,"%10.2f",tmp); else  sprintf(nff031,"%s",TmpStr10);
  char nff032[15]; tmp=R7T9; if (nabs(tmp)>eps) sprintf(nff032,"%10.2f",tmp); else  sprintf(nff032,"%s",TmpStr10);
  char nff040[15]; tmp=R8T9; if (nabs(tmp)>eps) sprintf(nff040,"%10.2f",tmp); else  sprintf(nff040,"%s",TmpStr10);
  char nff050[15]; tmp=RIT9; if (nabs(tmp)>eps) sprintf(nff050,"%10.2f",tmp); else  sprintf(nff050,"%s",TmpStr10);

  // страница 6 ТФОМС налог
  char ntf010[15]; tmp=R1T11; if (nabs(tmp)>eps) sprintf(ntf010,"%11.2f",tmp); else  sprintf(ntf010,"%s",TmpStr11);
  char ntf020[15]; tmp=R2T11; if (nabs(tmp)>eps) sprintf(ntf020,"%11.2f",tmp); else  sprintf(ntf020,"%s",TmpStr11);
  char ntf021[15]; tmp=R3T11; if (nabs(tmp)>eps) sprintf(ntf021,"%11.2f",tmp); else  sprintf(ntf021,"%s",TmpStr11);
  char ntf022[15]; tmp=R4T11; if (nabs(tmp)>eps) sprintf(ntf022,"%11.2f",tmp); else  sprintf(ntf022,"%s",TmpStr11);
  char ntf030[15]; tmp=R5T11; if (nabs(tmp)>eps) sprintf(ntf030,"%11.2f",tmp); else  sprintf(ntf030,"%s",TmpStr11);
  char ntf031[15]; tmp=R6T11; if (nabs(tmp)>eps) sprintf(ntf031,"%11.2f",tmp); else  sprintf(ntf031,"%s",TmpStr11);
  char ntf032[15]; tmp=R7T11; if (nabs(tmp)>eps) sprintf(ntf032,"%11.2f",tmp); else  sprintf(ntf032,"%s",TmpStr11);
  char ntf040[15]; tmp=R8T11; if (nabs(tmp)>eps) sprintf(ntf040,"%11.2f",tmp); else  sprintf(ntf040,"%s",TmpStr11);
  char ntf050[15]; tmp=RIT11; if (nabs(tmp)>eps) sprintf(ntf050,"%11.2f",tmp); else  sprintf(ntf050,"%s",TmpStr11);

  // страница 6 ФСС налог
  char nfs010[15]; tmp=R1T7; if (nabs(tmp)>eps) sprintf(nfs010,"%11.2f",tmp); else  sprintf(nfs010,"%s",TmpStr11);
  char nfs020[15]; tmp=R2T7; if (nabs(tmp)>eps) sprintf(nfs020,"%11.2f",tmp); else  sprintf(nfs020,"%s",TmpStr11);
  char nfs021[15]; tmp=R3T7; if (nabs(tmp)>eps) sprintf(nfs021,"%11.2f",tmp); else  sprintf(nfs021,"%s",TmpStr11);
  char nfs022[15]; tmp=R4T7; if (nabs(tmp)>eps) sprintf(nfs022,"%11.2f",tmp); else  sprintf(nfs022,"%s",TmpStr11);
  char nfs030[15]; tmp=R5T7; if (nabs(tmp)>eps) sprintf(nfs030,"%11.2f",tmp); else  sprintf(nfs030,"%s",TmpStr11);
  char nfs031[15]; tmp=R6T7; if (nabs(tmp)>eps) sprintf(nfs031,"%11.2f",tmp); else  sprintf(nfs031,"%s",TmpStr11);
  char nfs032[15]; tmp=R7T7; if (nabs(tmp)>eps) sprintf(nfs032,"%11.2f",tmp); else  sprintf(nfs032,"%s",TmpStr11);
  char nfs040[15]; tmp=R8T7; if (nabs(tmp)>eps) sprintf(nfs040,"%11.2f",tmp); else  sprintf(nfs040,"%s",TmpStr11);
  char nfs050[15]; tmp=RIT7; if (nabs(tmp)>eps) sprintf(nfs050,"%11.2f",tmp); else  sprintf(nfs050,"%s",TmpStr11);
  
  // Численность ПФ
  char cpf010[9]; tmp=S12;  if (nabs(tmp)>eps) sprintf(cpf010,"%5.0f",tmp); else  sprintf(cpf010,"%s","   -  ");
  char cpf020[9]; tmp=S22;  if (nabs(tmp)>eps) sprintf(cpf020,"%5.0f",tmp); else  sprintf(cpf020,"%s","   -  ");
  char cpf030[9]; tmp=S52;  if (nabs(tmp)>eps) sprintf(cpf030,"%5.0f",tmp); else  sprintf(cpf030,"%s","   -  ");
  char cpf040[9]; tmp=S82;  if (nabs(tmp)>eps) sprintf(cpf040,"%5.0f",tmp); else  sprintf(cpf040,"%s","   -  ");
  char cpf050[9]; tmp=SI12; if (nabs(tmp)>eps) sprintf(cpf050,"%5.0f",tmp); else  sprintf(cpf050,"%s","   -  ");

  // Численность ОМС
  char com010[9]; tmp=S13;  if (nabs(tmp)>eps) sprintf(com010,"%5.0f",tmp); else  sprintf(com010,"%s","   -  ");
  char com020[9]; tmp=S23;  if (nabs(tmp)>eps) sprintf(com020,"%5.0f",tmp); else  sprintf(com020,"%s","   -  ");
  char com030[9]; tmp=S53;  if (nabs(tmp)>eps) sprintf(com030,"%5.0f",tmp); else  sprintf(com030,"%s","   -  ");
  char com040[9]; tmp=S83;  if (nabs(tmp)>eps) sprintf(com040,"%5.0f",tmp); else  sprintf(com040,"%s","   -  ");
  char com050[9]; tmp=SI13; if (nabs(tmp)>eps) sprintf(com050,"%5.0f",tmp); else  sprintf(com050,"%s","   -  ");

  // Численность ФСС
  char cfs010[9]; tmp=S14;  if (nabs(tmp)>eps) sprintf(cfs010,"%5.0f",tmp); else  sprintf(cfs010,"%s","   -  ");
  char cfs020[9]; tmp=S24;  if (nabs(tmp)>eps) sprintf(cfs020,"%5.0f",tmp); else  sprintf(cfs020,"%s","   -  ");
  char cfs030[9]; tmp=S54;  if (nabs(tmp)>eps) sprintf(cfs030,"%5.0f",tmp); else  sprintf(cfs030,"%s","   -  ");
  char cfs040[9]; tmp=S84;  if (nabs(tmp)>eps) sprintf(cfs040,"%5.0f",tmp); else  sprintf(cfs040,"%s","   -  ");
  char cfs050[9]; tmp=SI14; if (nabs(tmp)>eps) sprintf(cfs050,"%5.0f",tmp); else  sprintf(cfs050,"%s","   -  ");

  // заполняем даты
  char d0[2]; sprintf(d0,"%c", StrDate[0]);
  char d1[2]; sprintf(d1,"%c", StrDate[1]);
  char d2[2]; sprintf(d2,"%c", StrDate[3]);
  char d3[2]; sprintf(d3,"%c", StrDate[4]);
  char d4[2]; sprintf(d4,"%c", StrDate[6]);
  char d5[2]; sprintf(d5,"%c", StrDate[7]);
  char d6[2]; sprintf(d6,"%c", StrDate[8]);
  char d7[2]; sprintf(d7,"%c", StrDate[9]);

  char KodReg[3]; 
  sprintf(KodReg,"  ");
  if (adr_reg=="Свердловская обл.")  { sprintf(KodReg,"66"); } 
  if (adr_reg=="Челябинская обл.")   { sprintf(KodReg,"74"); } 
  if (adr_reg=="г. Москва")          { sprintf(KodReg,"77"); } 
  if (adr_reg=="г. Санкт-Петербург") { sprintf(KodReg,"78"); } 
  if (adr_reg=="Сахалинская обл.")   { sprintf(KodReg,"65"); } 
  if (adr_reg=="Пермская обл.")      { sprintf(KodReg,"59"); } 

  char fKodReg[3]; 
  sprintf(fKodReg,"  ");
  if (adf_reg=="Свердловская обл.")  { sprintf(fKodReg,"66"); } 
  if (adf_reg=="Челябинская обл.")   { sprintf(fKodReg,"74"); } 
  if (adf_reg=="г. Москва")          { sprintf(fKodReg,"77"); } 
  if (adf_reg=="г. Санкт-Петербург") { sprintf(fKodReg,"78"); } 
  if (adf_reg=="Сахалинская обл.")   { sprintf(fKodReg,"65"); } 
  if (adf_reg=="Пермская обл.")      { sprintf(fKodReg,"59"); } 

  char oKodReg[3]; 
  sprintf(oKodReg,"  ");
  if (ado_reg=="Свердловская обл.")  { sprintf(oKodReg,"66"); } 
  if (ado_reg=="Челябинская обл.")   { sprintf(oKodReg,"74"); } 
  if (ado_reg=="г. Москва")          { sprintf(oKodReg,"77"); } 
  if (ado_reg=="г. Санкт-Петербург") { sprintf(oKodReg,"78"); } 
  if (ado_reg=="Сахалинская обл.")   { sprintf(oKodReg,"65"); } 
  if (ado_reg=="Пермская обл.")      { sprintf(oKodReg,"59"); } 


  string ai0, ai1, ai2, ai3, ai4, ai5;
  string aReg, aKodReg0, aKodReg1, aRai, aGor, aNas, aStr, aDom, aKor, aKva;
  string afi0, afi1, afi2, afi3, afi4, afi5;
  string afReg, afKodReg0, afKodReg1, afRai, afGor;
  string afNas, afStr, afDom, afKor, afKva;
  string aTel, aOrg;



  string vOrg[4];
  for (int i=0; i<4; i++)
  {
    if (i==ORG) vOrg[i]="V"; else vOrg[i]=" ";
  }

  // TRANSFER {                 // передача в файл

  int KolPokFOtch=0;

  if (FlgTrans==0)
  {
    // <Раздел 1> begin
    // <Подраздел 1.1> (Таблица 2) begin
    // Лист 5
    // строка 0100
    dTransPL_DL(pf0100,fsTmp); sprintf(Buffer,"П000110010003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0100,fsTmp); sprintf(Buffer,"П000110010005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0100,fsTmp); sprintf(Buffer,"П000110010007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0100,fsTmp); sprintf(Buffer,"П000110010009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0110
    dTransPL_DL(pf0110,fsTmp); sprintf(Buffer,"П000110011003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0110,fsTmp); sprintf(Buffer,"П000110011005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0110,fsTmp); sprintf(Buffer,"П000110011007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0110,fsTmp); sprintf(Buffer,"П000110011009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0120
    dTransPL_DL(pf0120,fsTmp); sprintf(Buffer,"П000110012003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0120,fsTmp); sprintf(Buffer,"П000110012005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0120,fsTmp); sprintf(Buffer,"П000110012007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0120,fsTmp); sprintf(Buffer,"П000110012009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0130
    dTransPL_DL(pf0130,fsTmp); sprintf(Buffer,"П000110013003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0130,fsTmp); sprintf(Buffer,"П000110013005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0130,fsTmp); sprintf(Buffer,"П000110013007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0130,fsTmp); sprintf(Buffer,"П000110013009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0140
    dTransPL_DL(pf0140,fsTmp); sprintf(Buffer,"П000110014003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0140,fsTmp); sprintf(Buffer,"П000110014005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0140,fsTmp); sprintf(Buffer,"П000110014007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0140,fsTmp); sprintf(Buffer,"П000110014009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0200
    dTransPL_DL(pf0300,fsTmp); sprintf(Buffer,"П000110020003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0300,fsTmp); sprintf(Buffer,"П000110020005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0300,fsTmp); sprintf(Buffer,"П000110020007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0300,fsTmp); sprintf(Buffer,"П000110020009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0210
    dTransPL_DL(pf0210,fsTmp); sprintf(Buffer,"П000110021003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0210,fsTmp); sprintf(Buffer,"П000110021005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0210,fsTmp); sprintf(Buffer,"П000110021007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0210,fsTmp); sprintf(Buffer,"П000110021009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0220
    dTransPL_DL(pf0220,fsTmp); sprintf(Buffer,"П000110022003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0220,fsTmp); sprintf(Buffer,"П000110022005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0220,fsTmp); sprintf(Buffer,"П000110022007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0220,fsTmp); sprintf(Buffer,"П000110022009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0230
    dTransPL_DL(pf0230,fsTmp); sprintf(Buffer,"П000110023003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0230,fsTmp); sprintf(Buffer,"П000110023005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0230,fsTmp); sprintf(Buffer,"П000110023007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0230,fsTmp); sprintf(Buffer,"П000110023009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0240
    dTransPL_DL(pf0240,fsTmp); sprintf(Buffer,"П000110024003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0240,fsTmp); sprintf(Buffer,"П000110024005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0240,fsTmp); sprintf(Buffer,"П000110024007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0240,fsTmp); sprintf(Buffer,"П000110024009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0300
    dTransPL_DL(pf0400,fsTmp); sprintf(Buffer,"П000110030003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0400,fsTmp); sprintf(Buffer,"П000110030005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0400,fsTmp); sprintf(Buffer,"П000110030007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0400,fsTmp); sprintf(Buffer,"П000110030009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0310
    dTransPL_DL(pf0310,fsTmp); sprintf(Buffer,"П000110031003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0310,fsTmp); sprintf(Buffer,"П000110031005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0310,fsTmp); sprintf(Buffer,"П000110031007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0310,fsTmp); sprintf(Buffer,"П000110031009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0320
    dTransPL_DL(pf0320,fsTmp); sprintf(Buffer,"П000110032003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0320,fsTmp); sprintf(Buffer,"П000110032005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0320,fsTmp); sprintf(Buffer,"П000110032007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0320,fsTmp); sprintf(Buffer,"П000110032009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0330
    dTransPL_DL(pf0330,fsTmp); sprintf(Buffer,"П000110033003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0330,fsTmp); sprintf(Buffer,"П000110033005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0330,fsTmp); sprintf(Buffer,"П000110033007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0330,fsTmp); sprintf(Buffer,"П000110033009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0340
    dTransPL_DL(pf0340,fsTmp); sprintf(Buffer,"П000110034003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0340,fsTmp); sprintf(Buffer,"П000110034005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0340,fsTmp); sprintf(Buffer,"П000110034007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0340,fsTmp); sprintf(Buffer,"П000110034009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0400
    dTransPL_DL(pf0500,fsTmp); sprintf(Buffer,"П000110040003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0500,fsTmp); sprintf(Buffer,"П000110040005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0500,fsTmp); sprintf(Buffer,"П000110040007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0500,fsTmp); sprintf(Buffer,"П000110040009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0410
    dTransPL_DL(pf0410,fsTmp); sprintf(Buffer,"П000110041003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0410,fsTmp); sprintf(Buffer,"П000110041005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0410,fsTmp); sprintf(Buffer,"П000110041007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0410,fsTmp); sprintf(Buffer,"П000110041009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0420
    dTransPL_DL(pf0420,fsTmp); sprintf(Buffer,"П000110042003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0420,fsTmp); sprintf(Buffer,"П000110042005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0420,fsTmp); sprintf(Buffer,"П000110042007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0420,fsTmp); sprintf(Buffer,"П000110042009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0430
    dTransPL_DL(pf0430,fsTmp); sprintf(Buffer,"П000110043003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0430,fsTmp); sprintf(Buffer,"П000110043005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0430,fsTmp); sprintf(Buffer,"П000110043007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0430,fsTmp); sprintf(Buffer,"П000110043009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0440
    dTransPL_DL(pf0440,fsTmp); sprintf(Buffer,"П000110044003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs0440,fsTmp); sprintf(Buffer,"П000110044005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff0440,fsTmp); sprintf(Buffer,"П000110044007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf0440,fsTmp); sprintf(Buffer,"П000110044009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0500
    dTransPL_DL(sv0500,fsTmp); sprintf(Buffer,"П000110050003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0510
    dTransPL_DL(sv0510,fsTmp); sprintf(Buffer,"П000110051003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0520
    dTransPL_DL(sv0520,fsTmp); sprintf(Buffer,"П000110052003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0530
    dTransPL_DL(sv0530,fsTmp); sprintf(Buffer,"П000110053003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0540
    dTransPL_DL(sv0540,fsTmp); sprintf(Buffer,"П000110054003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0600
    dTransPL_DL(fb0600,fsTmp); sprintf(Buffer,"П000110060003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0610
    dTransPL_DL(fb0610,fsTmp); sprintf(Buffer,"П000110061003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0620
    dTransPL_DL(fb0620,fsTmp); sprintf(Buffer,"П000110062003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0630
    dTransPL_DL(fb0630,fsTmp); sprintf(Buffer,"П000110063003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0640
    dTransPL_DL(fb0640,fsTmp); sprintf(Buffer,"П000110064003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0700
    dTransPL_DL(fss0700,fsTmp); sprintf(Buffer,"П000110070005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0710
    dTransPL_DL(fss0710,fsTmp); sprintf(Buffer,"П000110071005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0720
    dTransPL_DL(fss0720,fsTmp); sprintf(Buffer,"П000110072005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0730
    dTransPL_DL(fss0730,fsTmp); sprintf(Buffer,"П000110073005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0740
    dTransPL_DL(fss0740,fsTmp); sprintf(Buffer,"П000110074005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0800
    dTransPL_DL(fss0800,fsTmp); sprintf(Buffer,"П000110080005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0810
    dTransPL_DL(fss0810,fsTmp); sprintf(Buffer,"П000110081005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0820
    dTransPL_DL(fss0820,fsTmp); sprintf(Buffer,"П000110082005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0830
    dTransPL_DL(fss0830,fsTmp); sprintf(Buffer,"П000110083005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0840
    dTransPL_DL(fss0840,fsTmp); sprintf(Buffer,"П000110084005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0900
    dTransPL_DL(fss0900,fsTmp); sprintf(Buffer,"П000110090005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0910
    dTransPL_DL(fss0910,fsTmp); sprintf(Buffer,"П000110091005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0920
    dTransPL_DL(fss0920,fsTmp); sprintf(Buffer,"П000110092005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0930
    dTransPL_DL(fss0930,fsTmp); sprintf(Buffer,"П000110093005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 0940
    dTransPL_DL(fss0940,fsTmp); sprintf(Buffer,"П000110094005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 1000
    dTransPL_DL(fb1000,fsTmp); sprintf(Buffer,"П000110100003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs1000,fsTmp); sprintf(Buffer,"П000110100005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff1000,fsTmp); sprintf(Buffer,"П000110100007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf1000,fsTmp); sprintf(Buffer,"П000110100009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 1100
    dTransPL_DL(fb1100,fsTmp); sprintf(Buffer,"П000110110003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(fs1100,fsTmp); sprintf(Buffer,"П000110110005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(ff1100,fsTmp); sprintf(Buffer,"П000110110007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(tf1100,fsTmp); sprintf(Buffer,"П000110110009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

    if (FTrans_DL==1)
    {
      sprintf(Buffer,"###\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    }
    // <Подраздел 1.1> (Таблица 2) end

    // <Подраздел 1.2> (Таблица 3) begin
    // Лист 7    Справочно
    // строка 010
    dTransPL_DL(f010G3,fsTmp); sprintf(Buffer,"П000120001003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(f010G4,fsTmp); sprintf(Buffer,"П000120001004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(f010G5,fsTmp); sprintf(Buffer,"П000120001005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(f010G6,fsTmp); sprintf(Buffer,"П000120001006:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(f010G7,fsTmp); sprintf(Buffer,"П000120001007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 020
    dTransPL_DL(f020G3,fsTmp); sprintf(Buffer,"П000120002003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(f020G4,fsTmp); sprintf(Buffer,"П000120002004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(f020G5,fsTmp); sprintf(Buffer,"П000120002005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(f020G6,fsTmp); sprintf(Buffer,"П000120002006:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(f020G7,fsTmp); sprintf(Buffer,"П000120002007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

    if (FTrans_DL==1)
    {
      sprintf(Buffer,"###\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    }
    // <Подраздел 1.2> (Таблица 3) end
  }


  char T_FB010[10]; char T_FS010[10]; char T_FF010[10]; char T_FT010[10];
  char T_FB021[10]; char T_FS021[10]; char T_FF021[10]; char T_FT021[10];
  char T_FB022[10]; char T_FS022[10]; char T_FF022[10]; char T_FT022[10];
  char T_FB031[10]; char T_FS031[10]; char T_FF031[10]; char T_FT031[10];
  char T_FB032[10]; char T_FS032[10]; char T_FF032[10]; char T_FT032[10];
  char T_FB041[10]; char T_FS040[10]; char T_FF040[10]; char T_FT040[10];
  char T_FB042[10];                                                      

  switch (atoi(TYPORG))
  {
    case 0: // Обычная организация
    {
      if (FINV==0)
      {
        sprintf(T_FB010,"28.0%%"); sprintf(T_FS010," 4.0%%"); sprintf(T_FF010," 0.2%%"); sprintf(T_FT010," 3.4%%");
        sprintf(T_FB021,"28000" ); sprintf(T_FS021,"4000p" ); sprintf(T_FF021," 200p" ); sprintf(T_FT021,"3400p" );
        sprintf(T_FB022,"15.8%%"); sprintf(T_FS022," 2.2%%"); sprintf(T_FF022," 0.1%%"); sprintf(T_FT022," 1.9%%");
        sprintf(T_FB031,"59600" ); sprintf(T_FS031,"8400p" ); sprintf(T_FF031," 400p" ); sprintf(T_FT031,"7200p" );
        sprintf(T_FB032," 7.9%%"); sprintf(T_FS032," 1.1%%"); sprintf(T_FF032," 0.1%%"); sprintf(T_FT032," 0.9%%");
        sprintf(T_FB041,"83300" ); sprintf(T_FS040,"11700" ); sprintf(T_FF040," 700p" ); sprintf(T_FT040,"9900p" );
        sprintf(T_FB042,"  2%% ");                           
      }
      else
      {
        sprintf(T_FB010,"14.0%%"); sprintf(T_FS010," 4.0%%"); sprintf(T_FF010," 0.2%%"); sprintf(T_FT010," 3.4%%");
        sprintf(T_FB021,"14000" ); sprintf(T_FS021,"4000p" ); sprintf(T_FF021," 200p" ); sprintf(T_FT021,"3400p" );
        sprintf(T_FB022," 7.9%%"); sprintf(T_FS022," 2.2%%"); sprintf(T_FF022," 0.1%%"); sprintf(T_FT022," 1.9%%");
        sprintf(T_FB031,"29800" ); sprintf(T_FS031,"8400p" ); sprintf(T_FF031," 400р" ); sprintf(T_FT031,"7200p" );
        sprintf(T_FB032,"3.95%%"); sprintf(T_FS032," 1.1%%"); sprintf(T_FF032," 0.1%%"); sprintf(T_FT032," 0.9%%");
        sprintf(T_FB041,"41650" ); sprintf(T_FS040,"11700" ); sprintf(T_FF040," 700p" ); sprintf(T_FT040,"9900p" );
        sprintf(T_FB042,"  2%% ");
      }
    }
    break;

    case 1: // Сельскохозяйственная организация
    {
      if (FINV==0)
      {
        sprintf(T_FB010,"20.6%%"); sprintf(T_FS010," 2.9%%"); sprintf(T_FF010," 0.1%%"); sprintf(T_FT010," 2.5%%");
        sprintf(T_FB021,"20600" ); sprintf(T_FS021,"2900p" ); sprintf(T_FF021," 100p" ); sprintf(T_FT021,"2500p" );
        sprintf(T_FB022,"15.8%%"); sprintf(T_FS022," 2.2%%"); sprintf(T_FF022," 0.1%%"); sprintf(T_FT022," 1.9%%");
        sprintf(T_FB031,"52200" ); sprintf(T_FS031,"7300p" ); sprintf(T_FF031," 300p" ); sprintf(T_FT031,"6300p" );
        sprintf(T_FB032," 7.9%%"); sprintf(T_FS032," 1.1%%"); sprintf(T_FF032," 0.1%%"); sprintf(T_FT032," 0.9%%");
        sprintf(T_FB041,"75900" ); sprintf(T_FS040,"10600" ); sprintf(T_FF040," 600p" ); sprintf(T_FT040,"9000p" );
        sprintf(T_FB042,"  2%% ");
      }
      else
      {
        sprintf(T_FB010,"10.3%%"); sprintf(T_FS010," 2.9%%"); sprintf(T_FF010," 0.1%%"); sprintf(T_FT010," 2.5%%");
        sprintf(T_FB021,"10300" ); sprintf(T_FS021,"2900p" ); sprintf(T_FF021," 100p" ); sprintf(T_FT021,"2500p" );
        sprintf(T_FB022," 7.9%%"); sprintf(T_FS022," 2.2%%"); sprintf(T_FF022," 0.1%%"); sprintf(T_FT022," 1.9%%");
        sprintf(T_FB031,"26100" ); sprintf(T_FS031,"7300p" ); sprintf(T_FF031," 300p" ); sprintf(T_FT031,"6300p" );
        sprintf(T_FB032,"3.95%%"); sprintf(T_FS032," 1.1%%"); sprintf(T_FF032," 0.1%%"); sprintf(T_FT032," 0.9%%");
        sprintf(T_FB041,"37950" ); sprintf(T_FS040,"10600" ); sprintf(T_FF040," 600p" ); sprintf(T_FT040,"9000p" );
        sprintf(T_FB042,"  2%% ");
      }
    }
    break;

    case 2: // Организация инвалидов
    {
      sprintf(T_FB010,"14.0%%"); sprintf(T_FS010," 4.0%%"); sprintf(T_FF010," 0.2%%"); sprintf(T_FT010," 3.4%%");
      sprintf(T_FB021,"14000" ); sprintf(T_FS021,"4000p" ); sprintf(T_FF021," 200p" ); sprintf(T_FT021,"3400p" );
      sprintf(T_FB022," 7.9%%"); sprintf(T_FS022," 2.2%%"); sprintf(T_FF022," 0.1%%"); sprintf(T_FT022," 1.9%%");
      sprintf(T_FB031,"29800" ); sprintf(T_FS031,"8400p" ); sprintf(T_FF031," 400p" ); sprintf(T_FT031,"7200p" );
      sprintf(T_FB032,"3.95%%"); sprintf(T_FS032," 1.1%%"); sprintf(T_FF032," 0.1%%"); sprintf(T_FT032," 0.9%%");
      sprintf(T_FB041,"41650" ); sprintf(T_FS040,"11700" ); sprintf(T_FF040," 700p" ); sprintf(T_FT040,"9900p" );
      sprintf(T_FB042,"  2%% ");
    }
    break;

    case 3: // Сельскохозяйственная организация инвалидов
    {
      sprintf(T_FB010,"10.3%%"); sprintf(T_FS010," 2.9%%"); sprintf(T_FF010," 0.1%%"); sprintf(T_FT010," 2.5%%");
      sprintf(T_FB021,"10300" ); sprintf(T_FS021,"2900p" ); sprintf(T_FF021," 100р" ); sprintf(T_FT021,"2500p" );
      sprintf(T_FB022," 7.9%%"); sprintf(T_FS022," 2.2%%"); sprintf(T_FF022," 0.1%%"); sprintf(T_FT022," 1.9%%");
      sprintf(T_FB031,"26100" ); sprintf(T_FS031,"7300p" ); sprintf(T_FF031," 300р" ); sprintf(T_FT031,"6300p" );
      sprintf(T_FB032,"3.95%%"); sprintf(T_FS032," 1.1%%"); sprintf(T_FF032," 0.1%%"); sprintf(T_FT032," 0.9%%");
      sprintf(T_FB041,"37950" ); sprintf(T_FS040,"10600" ); sprintf(T_FF040," 600р" ); sprintf(T_FT040,"9000p" );
      sprintf(T_FB042,"  2%% ");
    }
    break;

    default:
    {
      sprintf(T_FB010,"     ");  sprintf(T_FS010,"     "); sprintf(T_FF010,"     "); sprintf(T_FT010,"     ");
      sprintf(T_FB021,"     ");  sprintf(T_FS021,"     "); sprintf(T_FF021,"     "); sprintf(T_FT021,"     ");
      sprintf(T_FB022,"     ");  sprintf(T_FS022,"     "); sprintf(T_FF022,"     "); sprintf(T_FT022,"     ");
      sprintf(T_FB031,"     ");  sprintf(T_FS031,"     "); sprintf(T_FF031,"     "); sprintf(T_FT031,"     ");
      sprintf(T_FB032,"     ");  sprintf(T_FS032,"     "); sprintf(T_FF032,"     "); sprintf(T_FT032,"     ");
      sprintf(T_FB041,"     ");  sprintf(T_FS040,"     "); sprintf(T_FF040,"     "); sprintf(T_FT040,"     ");
      sprintf(T_FB042,"     ");
    }
  } // end switch (TYPORG)


  if (FlgTrans==0)
  {
    // <Подраздел 1.3> (Таблица 4) begin
    // Лист 7     Расчет для заполнения строк 0300 и 0400
    // строка 010
    dTransPL_DL(  pf010,fsTmp); sprintf(Buffer,"П000130001003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  fs010,fsTmp); sprintf(Buffer,"П000130001004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  om010,fsTmp); sprintf(Buffer,"П000130001005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    if (FTrans_DL==1)
    {
      dTransPL_DL(T_FB010,fsTmp); sprintf(Buffer,"П000130001006:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( npf010,fsTmp); sprintf(Buffer,"П000130001007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(T_FS010,fsTmp); sprintf(Buffer,"П000130001008:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nfs010,fsTmp); sprintf(Buffer,"П000130001009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(T_FF010,fsTmp); sprintf(Buffer,"П000130001010:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nff010,fsTmp); sprintf(Buffer,"П000130001011:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(T_FT010,fsTmp); sprintf(Buffer,"П000130001012:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( ntf010,fsTmp); sprintf(Buffer,"П000130001013:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    }
    iTransPL_DL( cpf010,fsTmp); sprintf(Buffer,"П000130001014:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( cfs010,fsTmp); sprintf(Buffer,"П000130001015:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( com010,fsTmp); sprintf(Buffer,"П000130001016:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

    // строка 020
    dTransPL_DL(  pf020,fsTmp); sprintf(Buffer,"П000130002003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  fs020,fsTmp); sprintf(Buffer,"П000130002004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  om020,fsTmp); sprintf(Buffer,"П000130002005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    if (FTrans_DL==1)
    {
      dTransPL_DL( npf020,fsTmp); sprintf(Buffer,"П000130002007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nfs020,fsTmp); sprintf(Buffer,"П000130002009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nff020,fsTmp); sprintf(Buffer,"П000130002011:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( ntf020,fsTmp); sprintf(Buffer,"П000130002013:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    }
    iTransPL_DL( cpf020,fsTmp); sprintf(Buffer,"П000130002014:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( cfs020,fsTmp); sprintf(Buffer,"П000130002015:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( com020,fsTmp); sprintf(Buffer,"П000130002016:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

    // строка 021
    dTransPL_DL(  pf021,fsTmp); sprintf(Buffer,"П000130002103:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  fs021,fsTmp); sprintf(Buffer,"П000130002104:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  om021,fsTmp); sprintf(Buffer,"П000130002105:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    if (FTrans_DL==1)
    {
      iTransPL_DL(T_FB021,fsTmp); sprintf(Buffer,"П000130002106:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( npf021,fsTmp); sprintf(Buffer,"П000130002107:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL(T_FS021,fsTmp); sprintf(Buffer,"П000130002108:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nfs021,fsTmp); sprintf(Buffer,"П000130002109:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL(T_FF021,fsTmp); sprintf(Buffer,"П000130002110:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nff021,fsTmp); sprintf(Buffer,"П000130002111:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL(T_FT021,fsTmp); sprintf(Buffer,"П000130002112:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( ntf021,fsTmp); sprintf(Buffer,"П000130002113:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    }
    iTransPL_DL( cpf020,fsTmp); sprintf(Buffer,"П000130002114:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( cfs020,fsTmp); sprintf(Buffer,"П000130002115:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( com020,fsTmp); sprintf(Buffer,"П000130002116:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

    // строка 022
    dTransPL_DL(  pf022,fsTmp); sprintf(Buffer,"П000130002203:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  fs022,fsTmp); sprintf(Buffer,"П000130002204:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  om022,fsTmp); sprintf(Buffer,"П000130002205:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    if (FTrans_DL==1)
    {
      dTransPL_DL(T_FB022,fsTmp); sprintf(Buffer,"П000130002206:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( npf022,fsTmp); sprintf(Buffer,"П000130002207:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(T_FS022,fsTmp); sprintf(Buffer,"П000130002208:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nfs022,fsTmp); sprintf(Buffer,"П000130002209:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(T_FF022,fsTmp); sprintf(Buffer,"П000130002210:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nff022,fsTmp); sprintf(Buffer,"П000130002211:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(T_FT022,fsTmp); sprintf(Buffer,"П000130002212:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( ntf022,fsTmp); sprintf(Buffer,"П000130002213:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    }
    // строка 030
    dTransPL_DL(  pf030,fsTmp); sprintf(Buffer,"П000130003003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  fs030,fsTmp); sprintf(Buffer,"П000130003004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  om030,fsTmp); sprintf(Buffer,"П000130003005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    if (FTrans_DL==1)
    {
      dTransPL_DL( npf030,fsTmp); sprintf(Buffer,"П000130003007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nfs030,fsTmp); sprintf(Buffer,"П000130003009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nff030,fsTmp); sprintf(Buffer,"П000130003011:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( ntf030,fsTmp); sprintf(Buffer,"П000130003013:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    }
    iTransPL_DL( cpf030,fsTmp); sprintf(Buffer,"П000130003014:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( cfs030,fsTmp); sprintf(Buffer,"П000130003015:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( com030,fsTmp); sprintf(Buffer,"П000130003016:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

    // строка 031
    dTransPL_DL(  pf031,fsTmp); sprintf(Buffer,"П000130003103:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  fs031,fsTmp); sprintf(Buffer,"П000130003104:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  om031,fsTmp); sprintf(Buffer,"П000130003105:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    if (FTrans_DL==1)
    {
      iTransPL_DL(T_FB031,fsTmp); sprintf(Buffer,"П000130003106:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( npf031,fsTmp); sprintf(Buffer,"П000130003107:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL(T_FS031,fsTmp); sprintf(Buffer,"П000130003108:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nfs031,fsTmp); sprintf(Buffer,"П000130003109:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL(T_FF031,fsTmp); sprintf(Buffer,"П000130003110:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nff031,fsTmp); sprintf(Buffer,"П000130003111:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL(T_FT031,fsTmp); sprintf(Buffer,"П000130003112:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( ntf031,fsTmp); sprintf(Buffer,"П000130003113:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    }
    iTransPL_DL( cpf030,fsTmp); sprintf(Buffer,"П000130003114:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( cfs030,fsTmp); sprintf(Buffer,"П000130003115:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( com030,fsTmp); sprintf(Buffer,"П000130003116:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

    // строка 032
    dTransPL_DL(  pf032,fsTmp); sprintf(Buffer,"П000130003203:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  fs032,fsTmp); sprintf(Buffer,"П000130003204:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  om032,fsTmp); sprintf(Buffer,"П000130003205:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    if (FTrans_DL==1)
    {
      dTransPL_DL(T_FB032,fsTmp); sprintf(Buffer,"П000130003206:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( npf032,fsTmp); sprintf(Buffer,"П000130003207:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(T_FS032,fsTmp); sprintf(Buffer,"П000130003208:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nfs032,fsTmp); sprintf(Buffer,"П000130003209:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(T_FF032,fsTmp); sprintf(Buffer,"П000130003210:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nff032,fsTmp); sprintf(Buffer,"П000130003211:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(T_FT032,fsTmp); sprintf(Buffer,"П000130003212:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( ntf032,fsTmp); sprintf(Buffer,"П000130003213:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    }

    // строка 040
    dTransPL_DL(  pf040,fsTmp); sprintf(Buffer,"П000130004003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  fs040,fsTmp); sprintf(Buffer,"П000130004004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  om040,fsTmp); sprintf(Buffer,"П000130004005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    if (FTrans_DL==1)
    {
//      iTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004006:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( npf040,fsTmp); sprintf(Buffer,"П000130004007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL(T_FS040,fsTmp); sprintf(Buffer,"П000130004008:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nfs040,fsTmp); sprintf(Buffer,"П000130004009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL(T_FF040,fsTmp); sprintf(Buffer,"П000130004010:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nff040,fsTmp); sprintf(Buffer,"П000130004011:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL(T_FT040,fsTmp); sprintf(Buffer,"П000130004012:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( ntf040,fsTmp); sprintf(Buffer,"П000130004013:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    }
    iTransPL_DL( cpf040,fsTmp); sprintf(Buffer,"П000130004014:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( cfs040,fsTmp); sprintf(Buffer,"П000130004015:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( com040,fsTmp); sprintf(Buffer,"П000130004016:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

    // строка 041
    dTransPL_DL(  pf041,fsTmp); sprintf(Buffer,"П000130004103:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004104:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004105:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    if (FTrans_DL==1)
    {
      iTransPL_DL(T_FB041,fsTmp); sprintf(Buffer,"П000130004106:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( npf041,fsTmp); sprintf(Buffer,"П000130004107:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004109:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004111:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004113:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    }
    iTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004114:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004115:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004116:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

    // строка 042
    dTransPL_DL(  pf042,fsTmp); sprintf(Buffer,"П000130004203:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004204:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004205:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    if (FTrans_DL==1)
    {
      iTransPL_DL(T_FB042,fsTmp); sprintf(Buffer,"П000130004206:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( npf042,fsTmp); sprintf(Buffer,"П000130004207:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004209:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004211:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL(     "",fsTmp); sprintf(Buffer,"П000130004213:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    }

    // строка 050
    dTransPL_DL(  pf050,fsTmp); sprintf(Buffer,"П000130005003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  fs050,fsTmp); sprintf(Buffer,"П000130005004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(  om050,fsTmp); sprintf(Buffer,"П000130005005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    if (FTrans_DL==1)
    {
      dTransPL_DL( npf050,fsTmp); sprintf(Buffer,"П000130005007:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nfs050,fsTmp); sprintf(Buffer,"П000130005009:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( nff050,fsTmp); sprintf(Buffer,"П000130005011:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL( ntf050,fsTmp); sprintf(Buffer,"П000130005013:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    }
    iTransPL_DL( cpf050,fsTmp); sprintf(Buffer,"П000130005014:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( cfs050,fsTmp); sprintf(Buffer,"П000130005015:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL( com050,fsTmp); sprintf(Buffer,"П000130005016:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

    if (FTrans_DL==1)
    {
      sprintf(Buffer,"###\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    }
    // <Подраздел 1.3> (Таблица 4) end
    // <Раздел 1> end

    // <Раздел 2> begin
    // <Подраздел 2.1> (Таблица 5) begin
    // Лист 8   Расчет условия на право применения регрессивных ставок единого
    //     социального налога по месяцам последнего квартала отчетного периода
    // строка 010
    iTransPL_DL(L8_S010_G4,fsTmp); sprintf(Buffer,"П000210001004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL(L8_S010_G6,fsTmp); sprintf(Buffer,"П000210001006:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL(L8_S010_G8,fsTmp); sprintf(Buffer,"П000210001008:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 020
    dTransPL_DL(L8_S020_G4,fsTmp); sprintf(Buffer,"П000210002004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(L8_S020_G6,fsTmp); sprintf(Buffer,"П000210002006:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(L8_S020_G8,fsTmp); sprintf(Buffer,"П000210002008:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 030
    iTransPL_DL(L8_S030_G4,fsTmp); sprintf(Buffer,"П000210003004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL(L8_S030_G6,fsTmp); sprintf(Buffer,"П000210003006:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL(L8_S030_G8,fsTmp); sprintf(Buffer,"П000210003008:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 040
    dTransPL_DL(L8_S040_G4,fsTmp); sprintf(Buffer,"П000210004004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(L8_S040_G6,fsTmp); sprintf(Buffer,"П000210004006:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(L8_S040_G8,fsTmp); sprintf(Buffer,"П000210004008:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 050
    dTransPL_DL(L8_S050_G4,fsTmp); sprintf(Buffer,"П000210005004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(L8_S050_G6,fsTmp); sprintf(Buffer,"П000210005006:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(L8_S050_G8,fsTmp); sprintf(Buffer,"П000210005008:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 060
    dTransPL_DL(L8_S060_G4,fsTmp); sprintf(Buffer,"П000210006004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(L8_S060_G6,fsTmp); sprintf(Buffer,"П000210006006:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(L8_S060_G8,fsTmp); sprintf(Buffer,"П000210006008:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 070
    iTransPL_DL(L8_S070_G4,fsTmp); sprintf(Buffer,"П000210007004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL(L8_S070_G6,fsTmp); sprintf(Buffer,"П000210007006:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    iTransPL_DL(L8_S070_G8,fsTmp); sprintf(Buffer,"П000210007008:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    // строка 080
    dTransPL_DL(L8_S080_G4,fsTmp); sprintf(Buffer,"П000210008004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(L8_S080_G6,fsTmp); sprintf(Buffer,"П000210008006:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    dTransPL_DL(L8_S080_G8,fsTmp); sprintf(Buffer,"П000210008008:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

    if (FTrans_DL==1)
    {
      sprintf(Buffer,"###\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    }
    // <Подраздел 2.1> (Таблица 5) end

    // <Подраздел 2.2> begin
    // Таблица 6А begin
    // Лист 9   Данные о выплатах в пользу работников, являющихся инвалидами I,
    //          II или III групп, включаемые в строку 0200 (код 090)                 
    double vse=0.;
    double kva=0.;
    double me1=0.;
    double me2=0.;
    double me3=0.;

    if (FTrans_DL==1) {

    for (int i=0; i<CI+1; i++)
    {
      char fio[120]; sprintf(fio,"%s",INV_FIO[i]); FreeSpaceString(fio,3,"");
      char fam[40], name[40], otch[40];
      elem_of_array(fio,1,' ',fam,25);  FreeSpaceString(fam,3,"");
      elem_of_array(fio,2,' ',name,25); FreeSpaceString(name,3,"");
      elem_of_array(fio,3,' ',otch,25); FreeSpaceString(otch,3,"");
      sprintf(Buffer,"П000220009002/%05d:%s,%s,%s\r\n",i+1,fam,name,otch); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(fsTmp,"%s",INV_NOM[i]); FreeSpaceString(fsTmp,3,""); CharToOem(fsTmp,fsTmp);
      sprintf(Buffer,"П000220009003/%05d:%s\r\n",i+1,fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(fsTmp,"%s",INV_DAT[i]); FreeSpaceString(fsTmp,3,"");
      sprintf(Buffer,"П000220009004/%05d:%s\r\n",i+1,fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      
      if (INV_GRU[i]==1) sprintf(fsTmp,"I"); 
      if (INV_GRU[i]==2) sprintf(fsTmp,"II"); 
      if (INV_GRU[i]==3) sprintf(fsTmp,"III"); 
      sprintf(Buffer,"П000220009005/%05d:%s\r\n",i+1,fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(fsTmp,"%s",INV_KON[i]); FreeSpaceString(fsTmp,3,"");
      sprintf(Buffer,"П000220009006/%05d:%s\r\n",i+1,fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

      sprintf(Arg,"%15.2f",INV_VSE[i]);
      dTransPL_DL(Arg,fsTmp); sprintf(Buffer,"П000220009007/%05d:%s\r\n",i+1,fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(Arg,"%15.2f",INV_KVA[i]);
      dTransPL_DL(Arg,fsTmp); sprintf(Buffer,"П000220009008/%05d:%s\r\n",i+1,fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(Arg,"%15.2f",INV_1ME[i]);
      dTransPL_DL(Arg,fsTmp); sprintf(Buffer,"П000220009009/%05d:%s\r\n",i+1,fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(Arg,"%15.2f",INV_2ME[i]);
      dTransPL_DL(Arg,fsTmp); sprintf(Buffer,"П000220009010/%05d:%s\r\n",i+1,fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(Arg,"%15.2f",INV_3ME[i]);
      dTransPL_DL(Arg,fsTmp); sprintf(Buffer,"П000220009011/%05d:%s\r\n",i+1,fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

      sprintf(Buffer,"###\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);

      vse+=INV_VSE[i];
      kva+=INV_KVA[i];
      me1+=INV_1ME[i];
      me2+=INV_2ME[i];
      me3+=INV_3ME[i];
    }
    if (CI==-1)
    {
      sprintf(Buffer,"П000220009002/00001:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(Buffer,"П000220009003/00001:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(Buffer,"П000220009004/00001:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(Buffer,"П000220009005/00001:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(Buffer,"П000220009006/00001:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(Buffer,"П000220009007/00001:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(Buffer,"П000220009008/00001:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(Buffer,"П000220009009/00001:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(Buffer,"П000220009010/00001:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      sprintf(Buffer,"П000220009011/00001:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

      sprintf(Buffer,"###\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    }
    // Таблица 6А end
    // Таблица 6Б begin
    // Итоговые данные о выплатах в пользу работников, являющихся инвалидами I,
    // II или III групп, включаемые в строку 0200 (код 091)
    sprintf(Arg,"%15.2f",vse);
    dTransPL_DL(Arg,fsTmp); sprintf(Buffer,"П000220009107:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    sprintf(Arg,"%15.2f",kva);
    dTransPL_DL(Arg,fsTmp); sprintf(Buffer,"П000220009108:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    sprintf(Arg,"%15.2f",me1);
    dTransPL_DL(Arg,fsTmp); sprintf(Buffer,"П000220009109:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    sprintf(Arg,"%15.2f",me2);
    dTransPL_DL(Arg,fsTmp); sprintf(Buffer,"П000220009110:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    sprintf(Arg,"%15.2f",me3);
    dTransPL_DL(Arg,fsTmp); sprintf(Buffer,"П000220009111:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

    sprintf(Buffer,"###\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    } // end if FTrans_DL==1

    // Таблица 6Б end
    // <Подраздел 2.2> end
    // <Раздел 2> end

    // <Раздел 3> begin
    // <Подраздел 3.1> (Таблица 7) begin
    // Расчет условий на право применения налоговых льгот, установленных
    // подпунктом 2 пункта 1 статьи 239 Налогового кодекса РФ
    // Лист 09
    // I.Для общественных организаций инвалидов (в т.ч. созданных как союзы
    // общественных организаций инвалидов)
    if (FTrans_DL==1)
    {
      // строка 110
      iTransPL_DL("",fsTmp); sprintf(Buffer,"П000310011003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL("",fsTmp); sprintf(Buffer,"П000310011004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL("",fsTmp); sprintf(Buffer,"П000310011005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      // строка 120
      iTransPL_DL("",fsTmp); sprintf(Buffer,"П000310012003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL("",fsTmp); sprintf(Buffer,"П000310012004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL("",fsTmp); sprintf(Buffer,"П000310012005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      // строка 130
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310013003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310013004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310013005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      // II.Для организаций, уставный капитал которых полностью состоит из вкладов
      // общественных организаций инвалидов
      // строка 140
      iTransPL_DL("",fsTmp); sprintf(Buffer,"П000310014003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL("",fsTmp); sprintf(Buffer,"П000310014004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL("",fsTmp); sprintf(Buffer,"П000310014005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      // строка 150
      iTransPL_DL("",fsTmp); sprintf(Buffer,"П000310015003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL("",fsTmp); sprintf(Buffer,"П000310015004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      iTransPL_DL("",fsTmp); sprintf(Buffer,"П000310015005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      // строка 160
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310016003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310016004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310016005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      // строка 170
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310017003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310017004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310017005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      // строка 180
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310018003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310018004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310018005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      // строка 190
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310019003:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310019004:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
      dTransPL_DL("",fsTmp); sprintf(Buffer,"П000310019005:%s\r\n",fsTmp); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;

      sprintf(Buffer,"###\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    } // end if FTrans_DL==1

    // <Подраздел 3.1> (Таблица 7) end

    // <Подраздел 3.2> (Таблица 8) begin
    // Перечень организаций, вклады которых составляют уставный капитал
    // организаций, претендующих на право применения налоговой льготы по 
    // разделу II расчета условий на право применения налоговых льгот,
    // установленных подпунктом 2 пункта 1 статьи 239 НК РФ 
    // Лист 10
    if (FTrans_DL==1)
    {
      sprintf(Buffer,"П000320020002/00001:\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0); KolPokFOtch++;
    
//      sprintf(Buffer,"###\r\n"); WriteFile(hf,Buffer,strlen(Buffer),dwBytes,0);
    }
    // <Подраздел 3.2> (Таблица 8) end
    // <Раздел 3> end
    // <форма отчетности> end
    // <информационная часть> end
    
  }

  // TRANSFER }  
  
  if (EXCEL==0)   {
  if (LIST[1]==1) {

  sprintf(str,"                                                                                                        Приложение № 1             ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                        к приказу МНС России       ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                        от 01.02.02 № БГ-3-05/49   ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                                   ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                   ┌─┬─┬─┬─┬─┬─┬─┐ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                    Форма по КНД   │1│1│5│1│0│5│0│ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                   └─┴─┴─┴─┴─┴─┴─┘ ");   prntPL_DL(str,1,0);
  sprintf(str," ┌────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │    РАСЧЕТ ПО АВАНСОВЫМ ПЛАТЕЖАМ ПО ЕДИНОМУ СОЦИАЛЬНОМУ НАЛОГУ ДЛЯ ЛИЦ, ПРОИЗВОДЯЩИХ ВЫПЛАТЫ ФИЗИЧЕСКИМ ЛИЦАМ: ОРГАНИЗАЦИЙ;     │");   prntPL_DL(str,1,0);
  sprintf(str," │             ИНДИВИДУАЛЬНЫХ ПРЕДПРИНИМАТЕЛЕЙ; ФИЗИЧЕСКИХ ЛИЦ НЕ ПРИЗНАВАЕМЫХ ИНДИВИДУАЛЬНЫМИ ПРИДПРИНИМАТЕЛЯМИ                  │");   prntPL_DL(str,1,0);
  sprintf(str," ├───────────────────────────────────────────────────────────────┬────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │                за %-20.20s20%c%c г.                 │     представляется не позднее 20 числа месяца, следующего      │"          , MesPer1, edat[5], edat[6]); prntPL_DL(str,1,0);
  sprintf(str," │  (указывается период, за который  представляется расчет)      │                за отчетным периодом                            │");   prntPL_DL(str,1,0);
  sprintf(str," ├───────────────────────────────────────────────────────────────┴────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," ├───────────────────────────────────────────────────────────────┴─────────────────────────────────────────────────┬──┬──┬──┬──┬──┤");   prntPL_DL(str,1,0);
  sprintf(str," │Представляется в %-60.60s                                    │ %c│ %c│ %c│ %c│  │"                                 , Nni, Cni[0], Cni[1], Cni[2], Cni[3]); prntPL_DL(str,1,0);
  sprintf(str," │                ________________________________________________________________________________________________ └──┴──┴──┴──┘  │");   prntPL_DL(str,1,0);
  sprintf(str," │                                     (наименование налогового органа и его код)                                                 │");   prntPL_DL(str,1,0);
  sprintf(str," │                                        ┌───┐                        ┌───┐                       ┌───┐                          │");   prntPL_DL(str,1,0);
  sprintf(str," │по месту нахождения (жительства):       │ %s │                        │ %s │                       │ %s │                          │", vOrg[0], vOrg[1], vOrg[3]);   prntPL_DL(str,1,0);
  sprintf(str," │                                        └───┘                        └───┘                       └───┘                          │");   prntPL_DL(str,1,0);
  sprintf(str," │                                      российской          обособленного подразделения         физического                       │");   prntPL_DL(str,1,0);
  sprintf(str," │                                      организации           российской организации               лица                           │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                                                                                │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                                                                                │");   prntPL_DL(str,1,0);
  sprintf(str," │ по месту осуществления деятельности                ┌───┐                          ┌───┐                                        │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                    │ %s │                          │   │                                        │", vOrg[2]);   prntPL_DL(str,1,0);
  sprintf(str," │                                                    └───┘                          └───┘                                        │");   prntPL_DL(str,1,0);
  sprintf(str," │ иностранной организации  через:           отделение иностранной             иную организацию                                   │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                организации                                                                     │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                                                                                │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                  ( нужное отметить знаком V)                                                   │");   prntPL_DL(str,1,0);
  sprintf(str," ├────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," ├────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │ %-126.126s │"                                                                                                                   , RTrim(Org)); prntPL_DL(str,1,0);
  sprintf(str," │─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── │");   prntPL_DL(str,1,0);
  sprintf(str," │                            Полное наименование организации /Фамилия, имя, отчество физического лица                            │");   prntPL_DL(str,1,0);
  sprintf(str," ├────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┬─┬─┬──┬─┬─┬─┬─┬─┬─┬─┬─────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  if (ORG==3) {
  sprintf(str," │       ИНН организации       │ │ │  │ │ │ │ │ │ │ │                                                                             │");   prntPL_DL(str,1,0);
  }
  else {
  sprintf(str," │       ИНН организации       │%c│%c│ %c│%c│%c│%c│%c│%c│%c│%c│                                                                             │", Inn[0], Inn[1], Inn[2], Inn[3], Inn[4], Inn[5], Inn[6], Inn[7], Inn[8], Inn[9]); prntPL_DL(str,1,0);
  }
  sprintf(str," │                             └─┴─┴──┴─┴─┴─┴─┴─┴─┴─┘                                                                             │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                                                                                │");   prntPL_DL(str,1,0);
  sprintf(str," │                ┌─┬─┬─┬─┬─┬─┬─┬─┬─┐ ┌──┬─┬─┬─┬─┬─┬─┬─┬─┐                                                                        │");   prntPL_DL(str,1,0);
  if (ORG==3) {
  sprintf(str," │       КПП по   │ │ │ │ │ │ │ │ │ │ │  │ │ │ │ │ │ │ │ │                                                                        │");   prntPL_DL(str,1,0);
  }
  else {
  sprintf(str," │       КПП по   │%c│%c│%c│%c│%c│%c│%c│%c│%c│ │ %c│%c│%c│%c│%c│%c│%c│%c│%c│                                                                        │", Kpp[0], Kpp[1], Kpp[2], Kpp[3], Kpp[4], Kpp[5], Kpp[6], Kpp[7], Kpp[8], Kop[0], Kop[1], Kop[2], Kop[3], Kop[4], Kop[5], Kop[6], Kop[7], Kop[8]); prntPL_DL(str,1,0);
  }
  sprintf(str," │                └─┴─┴─┴─┴─┴─┴─┴─┴─┘ └──┴─┴─┴─┴─┴─┴─┴─┴─┘                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," │месту нахождения     организации     обособленного подразделения                                                                │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                                                                                │");   prntPL_DL(str,1,0);
  sprintf(str," ├────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬──────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  if (ORG==3) {
  sprintf(str," │ИНН физического лица │%c│%c│%c│%c│%c│%c│%c│%c│%c│%c│%c│%c│                                                                                  │", Inn[0], Inn[1], Inn[2], Inn[3], Inn[4], Inn[5], Inn[6], Inn[7], Inn[8], Inn[9], Inn[10], Inn[11]);   prntPL_DL(str,1,0);
  }
  else {
  sprintf(str," │ИНН физического лица │ │ │ │ │ │ │ │ │ │ │ │ │                                                                                  │");   prntPL_DL(str,1,0);
  }
  sprintf(str," ├─────────────────────┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴──────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," ├────────────────────────────────────────┬──┬──┬─────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │ Код категории налогоплательщика        │  │  │                                                                                 │");   prntPL_DL(str,1,0);
  sprintf(str," └────────────────────────────────────────┴──┴──┴─────────────────────────────────────────────────────────────────────────────────┘");   prntPL_DL(str,1,0);

  CFile_DL.ListFeed();

  sprintf(str," ┌─────────────────────────────┬─┬─┬──────────────────────────────────────────────────────────────────────────────────────────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │Данный расчет составлен на   │ │ │ страницах                                                                                    │");   prntPL_DL(str,1,0);
  sprintf(str," │                             └─┴─┘                                                                                              │");   prntPL_DL(str,1,0);
  sprintf(str," │Достоверность и полноту сведений, указанных в настоящем расчете, подтверждаю:                                                   │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                                                                                │");   prntPL_DL(str,1,0);
  sprintf(str," │Для организации                                                                                                                 │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                                                                                │");   prntPL_DL(str,1,0);
  sprintf(str," │Руководитель: %-59.59s                                                       │"                                                  , RTrim(Ruk)); prntPL_DL(str,1,0);
  sprintf(str," │         ───────────────────────────────────────────────────────────────────────────────────────────────────────────────────────│");   prntPL_DL(str,1,0);
  sprintf(str," │                              Фамилия, Имя, Отчество (полностью)                                                                │");   prntPL_DL(str,1,0);
  sprintf(str," │     ┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐                                                                    ┌─┬─┐ ┌─┬─┐ ┌─┬─┬─┬─┐         │");   prntPL_DL(str,1,0);
  sprintf(str," │ИНН  │%c│%c│%c│%c│%c│%c│%c│%c│%c│%c│%c│%c│                 Подпись                                       Дата │%c│%c│ │%c│%c│ │%c│%c│%c│%c│         │", Iru[0], Iru[1], Iru[2], Iru[3], Iru[4], Iru[5], Iru[6], Iru[7], Iru[8], Iru[9], Iru[10], Iru[11], StrDate[0], StrDate[1], StrDate[3], StrDate[4], StrDate[6], StrDate[7], StrDate[8], StrDate[9]); prntPL_DL(str,1,0);
  sprintf(str," │     └─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘                          ────────────                              └─┴─┘ └─┴─┘ └─┴─┴─┴─┘         │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                                                                                │");   prntPL_DL(str,1,0);
  sprintf(str," │Главный бухгалтер:   %-59.59s                                                │"                                                  , RTrim(Glb)); prntPL_DL(str,1,0);
  sprintf(str," │                  ──────────────────────────────────────────────────────────────────────────────────────────────────────────────│");   prntPL_DL(str,1,0);
  sprintf(str," │                              Фамилия, Имя, Отчество (полностью)                                                                │");   prntPL_DL(str,1,0);
  sprintf(str," │     ┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐                                                                    ┌─┬─┐ ┌─┬─┐ ┌─┬─┬─┬─┐         │");   prntPL_DL(str,1,0);
  sprintf(str," │ИНН  │%c│%c│%c│%c│%c│%c│%c│%c│%c│%c│%c│%c│                 Подпись                                       Дата │%c│%c│ │%c│%c│ │%c│%c│%c│%c│         │", Igl[0], Igl[1], Igl[2], Igl[3], Igl[4], Igl[5], Igl[6], Igl[7], Igl[8], Igl[9], Igl[10], Igl[11], StrDate[0], StrDate[1], StrDate[3], StrDate[4], StrDate[6], StrDate[7], StrDate[8], StrDate[9]); prntPL_DL(str,1,0);
  sprintf(str," │     └─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘                          ────────────                              └─┴─┘ └─┴─┘ └─┴─┴─┴─┘         │");   prntPL_DL(str,1,0);
  sprintf(str," │Представитель:                                                                                                                  │");   prntPL_DL(str,1,0);
  sprintf(str," │              ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────│");   prntPL_DL(str,1,0);
  sprintf(str," │                              Фамилия, Имя, Отчество (полностью)                                                                │");   prntPL_DL(str,1,0);
  sprintf(str," │     ┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐                                                                    ┌─┬─┐ ┌─┬─┐ ┌─┬─┬─┬─┐         │");   prntPL_DL(str,1,0);
  sprintf(str," │ИНН  │ │ │ │ │ │ │ │ │ │ │ │ │                 Подпись                                       Дата │%c│%c│ │%c│%c│ │%c│%c│%c│%c│         │", StrDate[0], StrDate[1], StrDate[3], StrDate[4], StrDate[6], StrDate[7], StrDate[8], StrDate[9]); prntPL_DL(str,1,0);
  sprintf(str," │     └─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘                          ────────────                              └─┴─┘ └─┴─┘ └─┴─┴─┴─┘         │");   prntPL_DL(str,1,0);
  sprintf(str," │                                     М П                                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                                                  ┌─┬─┐ ┌─┬─┐ ┌─┬─┬─┬─┐         │");   prntPL_DL(str,1,0);
  sprintf(str," │Для физического лица                           Подпись                                       Дата │%c│%c│ │%c│%c│ │%c│%c│%c│%c│         │", StrDate[0], StrDate[1], StrDate[3], StrDate[4], StrDate[6], StrDate[7], StrDate[8], StrDate[9]); prntPL_DL(str,1,0);
  sprintf(str," │                                                        ____________                              └─┴─┘ └─┴─┘ └─┴─┴─┴─┘         │");   prntPL_DL(str,1,0);
  sprintf(str," │Представитель:                                                                                                                  │");   prntPL_DL(str,1,0);
  sprintf(str," │              ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────│");   prntPL_DL(str,1,0);
  sprintf(str," │                              Фамилия, Имя, Отчество (полностью)                                                                │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                                                  ┌─┬─┐ ┌─┬─┐ ┌─┬─┬─┬─┐         │");   prntPL_DL(str,1,0);
  sprintf(str," │                                               Подпись                                       Дата │%c│%c│ │%c│%c│ │%c│%c│%c│%c│         │", StrDate[0], StrDate[1], StrDate[3], StrDate[4], StrDate[6], StrDate[7], StrDate[8], StrDate[9]); prntPL_DL(str,1,0);
  sprintf(str," │                                                        ────────────                              └─┴─┘ └─┴─┘ └─┴─┴─┴─┘         │");   prntPL_DL(str,1,0);
  sprintf(str," ├────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │                                            Заполняется работником налогового органа                                            │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────┬──────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │           Сведения о представлении расчета                              │       Сведения о проведении камеральной проверки     │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────┼──────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Данный расчет представлен  (нужное отметить знаком V)                    │ Камеральная проверка проведена                       │");   prntPL_DL(str,1,0);
  sprintf(str," │      ┌─┐           ┌─┐                            ┌─┐                   │        ┌─┬─┐ ┌──┬─┐ ┌─┬──┬─┬─┐                       │");   prntPL_DL(str,1,0);
  sprintf(str," │лично │ │  по почте │ │     представителем         │ │                   │   Дата │ │ │ │  │ │ │ │  │ │ │                       │");   prntPL_DL(str,1,0);
  sprintf(str," │      └─┘           └─┘                            └─┘                   │        └─┴─┘ └──┴─┘ └─┴──┴─┴─┘                       │");   prntPL_DL(str,1,0);
  sprintf(str," │   ┌─┬─┐                                                                 │                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," │на │ │ │страницах                                                        │                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," │   └─┴─┘                                                                 │                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," │                   ┌─┬─┐  ┌─┬─┐  ┌─┬─┬─┬─┐                               │                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," │Дата представления │ │ │  │ │ │  │ │ │ │ │                               │                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," │расчета            └─┴─┘  └─┴─┘  └─┴─┴─┴─┘                               │                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," │Зарегистрирован за N                                                     │                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," │               ──────────────────────────────────────────────────────────┤                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                         │                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," ├───────────────              ────────────────────────────────────────────┼────────────────────────────────   ───────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Фамилия, И.О.                 Подпись                                    │ Фамилия, И.О.                        Подпись         │");   prntPL_DL(str,1,0);
  sprintf(str," └─────────────────────────────────────────────────────────────────────────┴──────────────────────────────────────────────────────┘");   prntPL_DL(str,1,0);

  int LastList=LIST[2]+LIST[3]+LIST[4]+LIST[5]+LIST[5]+LIST[6]+LIST[7]+LIST[8]+LIST[9]+LIST[10];
  if (LastList==0) { if (FLIST==1) { CFile_DL.ListFeed(); } } else { CFile_DL.ListFeed(); }
//  CFile_DL.ListFeed();

  } // end if LIST[1]

  if (LIST[2]==1) {

  char N_STR[10]; if (NL_DL==1) { nlist_DL++; sprintf(N_STR,"%2d",nlist_DL); } else { sprintf(N_STR,"%2s","  "); }

  if (ORG==0 || ORG==1) {

    char ts[40]; 
    sprintf(ts,"%c",adr_ind[0]);       ai0=ts;
    sprintf(ts,"%c",adr_ind[1]);       ai1=ts;                         
    sprintf(ts,"%c",adr_ind[2]);       ai2=ts;                         
    sprintf(ts,"%c",adr_ind[3]);       ai3=ts;                         
    sprintf(ts,"%c",adr_ind[4]);       ai4=ts;                         
    sprintf(ts,"%c",adr_ind[5]);       ai5=ts;   
    sprintf(ts,"%-22.22s",adr_reg);    aReg=ts;
    sprintf(ts,"%c",KodReg[0]);        aKodReg0=ts;
    sprintf(ts,"%c",KodReg[1]);        aKodReg1=ts;
    sprintf(ts,"%-30.30s",adr_rai);    aRai=ts;
    sprintf(ts,"%-30.30s",adr_gor);    aGor=ts;
    sprintf(ts,"%-30.30s",adr_nas);    aNas=ts;
    sprintf(ts,"%-30.30s",adr_str);    aStr=ts;
    sprintf(ts,"%-30.30s",adr_dom);    aDom=ts;
    sprintf(ts,"%-30.30s",adr_kor);    aKor=ts;
    sprintf(ts,"%-30.30s",adr_kva);    aKva=ts;
    sprintf(ts,"%-25.25s",Tel);        aTel=ts; if (ORG==1) aTel=" ";
  } 
  else {
    ai0=ai1=ai2=ai3=ai4=ai5=aReg=aKodReg0=aKodReg1=" ";
    aRai=aGor=aNas=aStr=aDom=aKor=aKva=aTel=" "; 
  }

  if (ADR==1 && (ORG==0 || ORG==1)) {
    char ts[40]; 
    sprintf(ts,"%c",adf_ind[0]);       afi0=ts;
    sprintf(ts,"%c",adf_ind[1]);       afi1=ts;                         
    sprintf(ts,"%c",adf_ind[2]);       afi2=ts;                         
    sprintf(ts,"%c",adf_ind[3]);       afi3=ts;                         
    sprintf(ts,"%c",adf_ind[4]);       afi4=ts;                         
    sprintf(ts,"%c",adf_ind[5]);       afi5=ts;   
    sprintf(ts,"%-22.22s",adf_reg);    afReg=ts;
    sprintf(ts,"%c",fKodReg[0]);       afKodReg0=ts;
    sprintf(ts,"%c",fKodReg[1]);       afKodReg1=ts;
    sprintf(ts,"%-30.30s",adf_rai);    afRai=ts;
    sprintf(ts,"%-30.30s",adf_gor);    afGor=ts;
    sprintf(ts,"%-30.30s",adf_nas);    afNas=ts;
    sprintf(ts,"%-30.30s",adf_str);    afStr=ts;
    sprintf(ts,"%-30.30s",adf_dom);    afDom=ts;
    sprintf(ts,"%-30.30s",adf_kor);    afKor=ts;
    sprintf(ts,"%-30.30s",adf_kva);    afKva=ts;
  }
  else {
    afi0=afi1=afi2=afi3=afi4=afi5=afReg=afKodReg0=afKodReg1=" ";
    afRai=afGor=afNas=afStr=afDom=afKor=afKva=" "; 
  }

  sprintf(str,"                                                                                                                          ┌──┬──┐ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                    Лист  │ 0│ 2│ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                          └──┴──┘ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                          ┌──┬──┐ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                               Страница N │ %c│ %c│ ", N_STR[0], N_STR[1]);   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                          └──┴──┘ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                  ┌─┬─┬─┬─┬─┬─┬─┐ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                    Форма по КНД  │1│1│5│1│0│5│0│ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                  └─┴─┴─┴─┴─┴─┴─┘ ");   prntPL_DL(str,1,0);
  sprintf(str," Сведения о налогоплательщике:                                                                                                    ");   prntPL_DL(str,1,0);
  sprintf(str," I. Российские организации                                                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str," Адрес, указанный в учредительных документах:                                                                                     ");   prntPL_DL(str,1,0);
  sprintf(str," ┌─────────────────────────────────────────┬─┬─┬─┬─┬─┬─┬─────────────────────────────────────────────────────────────────────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │Почтовый индекс                          │%s│%s│%s│%s│%s│%s│                                                                         │", ai0, ai1, ai2, ai3, ai4, ai5); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─┴─┴─┴─┴─┴─┴────────────────────────────────────────────────────────────────────┬─┬──┤");   prntPL_DL(str,1,0);
  sprintf(str," │Субъект Российской Федерации             │ %-22.22s                                                      Код│%s│ %s│"           , aReg, aKodReg0, aKodReg1); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼────────────────────────────────────────────────────────────────────────────────┴─┴──┤");   prntPL_DL(str,1,0);
  sprintf(str," │Район                                    │ %-30.30s                                                      │"                     , aRai); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Город                                    │ %-30.30s                                                      │"                     , aGor); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Населенный пункт (село, поселок и т.д.)  │ %-30.30s                                                      │"                     , aNas); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Улица (проспект, переулок и т.д.)        │ %-30.30s                                                      │"                     , aStr); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Номер дома (владения)                    │ %-30.30s                                                      │"                     , aDom); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Номер корпуса (строения)                 │ %-30.30s                                                      │"                     , aKor); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Номер квартиры (офиса)                   │ %-30.30s                                                      │"                     , aKva); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┴─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Контактный телефон: Руководителя %-25.25s  Гл. бухгалтера                                                     │"                , aTel); prntPL_DL(str,1,0);
  sprintf(str," └───────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘");   prntPL_DL(str,1,0);
  sprintf(str,"  Адрес, указанный в учредительных                 ┌─┐              ┌─┐                                                           ");   prntPL_DL(str,1,0);
  if ((ORG==0 || ORG==1) && ADR==0) {
  sprintf(str,"  документах и адрес постоянно действующего        │V│              │ │                                                           ");   prntPL_DL(str,1,0);
  }
  if ((ORG==0 || ORG==1) && ADR==1) {
  sprintf(str,"  документах и адрес постоянно действующего        │ │              │V│                                                           ");   prntPL_DL(str,1,0);
  }
  if (ORG!=0) {
  sprintf(str,"  документах и адрес постоянно действующего        │ │              │ │                                                           ");   prntPL_DL(str,1,0);
  }
  sprintf(str,"  исполнительного органа                           └─┘              └─┘                                                           ");   prntPL_DL(str,1,0);
  sprintf(str,"                                               совпадают     не совпадают                                                         ");   prntPL_DL(str,1,0);
  sprintf(str,"                                               (нужное отметить знаком V)                                                         ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                                  ");   prntPL_DL(str,1,0);
  sprintf(str," В случае несовпадения указывается адрес постоянно действующего исполнительного органа:                                           ");   prntPL_DL(str,1,0);
  sprintf(str," ┌─────────────────────────────────────────┬─┬─┬─┬─┬─┬─┬─────────────────────────────────────────────────────────────────────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │Почтовый индекс                          │%s│%s│%s│%s│%s│%s│                                                                         │", afi0, afi1, afi2, afi3, afi4, afi5);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─┴─┴─┴─┴─┴─┴────────────────────────────────────────────────────────────────────┬─┬──┤");   prntPL_DL(str,1,0);
  sprintf(str," │Субъект Российской Федерации             │%-22.22s                                                       Код│%s│ %s│"            , afReg, afKodReg0, afKodReg1);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼────────────────────────────────────────────────────────────────────────────────┴─┴──┤");   prntPL_DL(str,1,0);
  sprintf(str," │Район                                    │%-30.30s                                                       │"                      , afRai);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Город                                    │%-30.30s                                                       │"                      , afGor);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Населенный пункт (село, поселок и т.д.)  │%-30.30s                                                       │"                      , afNas);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Улица (проспект, переулок и т.д.)        │%-30.30s                                                       │"                      , afStr);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Номер дома (владения)                    │%-30.30s                                                       │"                      , afDom);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Номер корпуса (строения)                 │%-30.30s                                                       │"                      , afKor);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Номер квартиры (офиса)                   │%-30.30s                                                       │"                      , afKva);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┴─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Контактный телефон: Руководителя _________________________  Гл. бухгалтера                                                     │");   prntPL_DL(str,1,0);
  sprintf(str," └───────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘");   prntPL_DL(str,1,0);

  CFile_DL.ListFeed();

  if (KindPaper_DL) {
  char N_STR[10]; if (NL_DL==1) { nlist_DL++; sprintf(N_STR,"%2d",nlist_DL); } else { sprintf(N_STR,"%2s","  "); }
  sprintf(str,"                                                                                                                          ┌──┬──┐ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                    Лист  │ 0│ 2│ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                          └──┴──┘ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                          ┌──┬──┐ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                               Страница N │ %c│ %c│ ", N_STR[0], N_STR[1]);   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                          └──┴──┘ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                  ┌─┬─┬─┬─┬─┬─┬─┐ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                    Форма по КНД  │1│1│5│1│0│5│0│ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                  └─┴─┴─┴─┴─┴─┴─┘ ");   prntPL_DL(str,1,0);
  }

  if (ORG==1) {
    char ts[40]; 
    sprintf(ts,"%c",ado_ind[0]);       ai0=ts;
    sprintf(ts,"%c",ado_ind[1]);       ai1=ts;                         
    sprintf(ts,"%c",ado_ind[2]);       ai2=ts;                         
    sprintf(ts,"%c",ado_ind[3]);       ai3=ts;                         
    sprintf(ts,"%c",ado_ind[4]);       ai4=ts;                         
    sprintf(ts,"%c",ado_ind[5]);       ai5=ts;   
    sprintf(ts,"%-22.22s",ado_reg);    aReg=ts;
    sprintf(ts,"%c",oKodReg[0]);       aKodReg0=ts;
    sprintf(ts,"%c",oKodReg[1]);       aKodReg1=ts;
    sprintf(ts,"%-30.30s",ado_rai);    aRai=ts;
    sprintf(ts,"%-30.30s",ado_gor);    aGor=ts;
    sprintf(ts,"%-30.30s",ado_nas);    aNas=ts;
    sprintf(ts,"%-30.30s",ado_str);    aStr=ts;
    sprintf(ts,"%-30.30s",ado_dom);    aDom=ts;
    sprintf(ts,"%-30.30s",ado_kor);    aKor=ts;
    sprintf(ts,"%-30.30s",ado_kva);    aKva=ts;
    sprintf(ts,"%-25.25s",Tel);        aTel=ts;
  } 
  else {
    ai0=ai1=ai2=ai3=ai4=ai5=aReg=aKodReg0=aKodReg1=" ";
    aRai=aGor=aNas=aStr=aDom=aKor=aKva=aTel=" "; 
  }

  sprintf(str," Адрес обособленного подразделения организации:                                                                                   ");   prntPL_DL(str,1,0);
  sprintf(str," ┌─────────────────────────────────────────┬─┬─┬─┬─┬─┬─┬─────────────────────────────────────────────────────────────────────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │Почтовый индекс                          │%s│%s│%s│%s│%s│%s│                                                                         │", ai0, ai1, ai2, ai3, ai4, ai5); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─┴─┴─┴─┴─┴─┴────────────────────────────────────────────────────────────────────┬─┬──┤");   prntPL_DL(str,1,0);
  sprintf(str," │Субъект Российской Федерации             │ %-22.22s                                                      Код│%s│ %s│"           , aReg, aKodReg0, aKodReg1); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼────────────────────────────────────────────────────────────────────────────────┴─┴──┤");   prntPL_DL(str,1,0);
  sprintf(str," │Район                                    │ %-30.30s                                                      │"                     , aRai); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Город                                    │ %-30.30s                                                      │"                     , aGor); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Населенный пункт (село, поселок и т.д.)  │ %-30.30s                                                      │"                     , aNas); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Улица (проспект, переулок и т.д.)        │ %-30.30s                                                      │"                     , aStr); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Номер дома (владения)                    │ %-30.30s                                                      │"                     , aDom); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Номер корпуса (строения)                 │ %-30.30s                                                      │"                     , aKor); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Номер квартиры (офиса)                   │ %-30.30s                                                      │"                     , aKva); prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┴─────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Контактный телефон: Руководителя %-25.25s  Гл. бухгалтера                                                     │"                , aTel); prntPL_DL(str,1,0);
  sprintf(str," └───────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘");   prntPL_DL(str,1,0);

  int LastList=LIST[3]+LIST[4]+LIST[5]+LIST[5]+LIST[6]+LIST[7]+LIST[8]+LIST[9]+LIST[10];
  if (LastList==0) { if (FLIST==1) { CFile_DL.ListFeed(); } } else { CFile_DL.ListFeed(); }
//  CFile_DL.ListFeed();

  } // end if LIST[2]

  if (LIST[3]==1) {

  char N_STR[10]; if (NL_DL==1) { nlist_DL++; sprintf(N_STR,"%2d",nlist_DL); } else { sprintf(N_STR,"%2s","  "); }

  if (ORG==2) {
    char ts[101]; 
    sprintf(ts,"%c",adr_ind[0]);       ai0=ts;
    sprintf(ts,"%c",adr_ind[1]);       ai1=ts;                         
    sprintf(ts,"%c",adr_ind[2]);       ai2=ts;                         
    sprintf(ts,"%c",adr_ind[3]);       ai3=ts;                         
    sprintf(ts,"%c",adr_ind[4]);       ai4=ts;                         
    sprintf(ts,"%c",adr_ind[5]);       ai5=ts;   
    sprintf(ts,"%-22.22s",adr_reg);    aReg=ts;
    sprintf(ts,"%c",KodReg[0]);        aKodReg0=ts;
    sprintf(ts,"%c",KodReg[1]);        aKodReg1=ts;
    sprintf(ts,"%-30.30s",adr_rai);    aRai=ts;
    sprintf(ts,"%-30.30s",adr_gor);    aGor=ts;
    sprintf(ts,"%-30.30s",adr_nas);    aNas=ts;
    sprintf(ts,"%-30.30s",adr_str);    aStr=ts;
    sprintf(ts,"%-30.30s",adr_dom);    aDom=ts;
    sprintf(ts,"%-30.30s",adr_kor);    aKor=ts;
    sprintf(ts,"%-30.30s",adr_kva);    aKva=ts;
    sprintf(ts,"%-25.25s",Tel);        aTel=ts;
    sprintf(ts,"%-100.100s",Org);      aOrg=ts;
  } 
  else {
    ai0=ai1=ai2=ai3=ai4=ai5=aReg=aKodReg0=aKodReg1=" ";
    aRai=aGor=aNas=aStr=aDom=aKor=aKva=aTel=aOrg=" "; 
  }

  sprintf(str,"                                                                                                                            ┌─┬─┐  ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                      Лист  │ │3│  ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                            └─┴─┘  ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                            ┌─┬─┐  ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                 Страница N │%c│%c│  ", N_STR[0], N_STR[1]);   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                            └─┴─┘  ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                   ┌─┬─┬─┬─┬─┬─┬─┐ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                      Форма по КНД │1│1│5│1│0│5│0│ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                   └─┴─┴─┴─┴─┴─┴─┘ ");   prntPL_DL(str,1,0);
  sprintf(str," II. Иностранные организации                                                                                                       ");   prntPL_DL(str,1,0);
  sprintf(str," ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────");   prntPL_DL(str,1,0);
  sprintf(str," Номер контактного телефона ________________________________                                                                       ");   prntPL_DL(str,1,0);
  sprintf(str," ┌───┬────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │ A │Полный адрес отделения в Российской Федерации                                                                               │");   prntPL_DL(str,1,0);
  sprintf(str," │   ├───────────────────────────────────┬─┬─┬─┬─┬─┬─┬────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │   │Почтовый индекс                    │%s│%s│%s│%s│%s│%s│                                                                            │", ai0, ai1, ai2, ai3, ai4, ai5);   prntPL_DL(str,1,0);
  sprintf(str," │   ├───────────────────────────────────┼─┴─┴─┴─┴─┴─┴──────────────────────────────────────────────────────────────────────┬──┬──┤");   prntPL_DL(str,1,0);
  sprintf(str," │   │Субъект Российской Федерации       │%-22.22s                                                         Код│ %s│ %s│"            , aReg, aKodReg0, aKodReg1);   prntPL_DL(str,1,0);
  sprintf(str," │   ├───────────────────────────────────┼──────────────────────────────────────────────────────────────────────────────────┴──┴──┤");   prntPL_DL(str,1,0);
  sprintf(str," │   │Район                              │%-30.30s                                                          │"                      , aRai);   prntPL_DL(str,1,0);
  sprintf(str," │   ├───────────────────────────────────┼────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │   │Город                              │%-30.30s                                                          │"                      , aGor);   prntPL_DL(str,1,0);
  sprintf(str," │   ├───────────────────────────────────┼────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │   │Населенный пункт (село, поселок и  │%-30.30s                                                          │"                      , aNas);   prntPL_DL(str,1,0);
  sprintf(str," │   │т.д.)                              │                                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," │   ├───────────────────────────────────┼────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │   │Улица (проспект, переулок и т.д.)  │%-30.30s                                                          │"                      , aStr);   prntPL_DL(str,1,0);
  sprintf(str," │   ├───────────────────────────────────┼────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │   │Номер дома (владения)              │%-30.30s                                                          │"                      , aDom);   prntPL_DL(str,1,0);
  sprintf(str," │   ├───────────────────────────────────┼────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │   │Номер корпуса (строения)           │%-30.30s                                                          │"                      , aKor);   prntPL_DL(str,1,0);
  sprintf(str," │   ├───────────────────────────────────┼────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │   │Номер квартиры (офиса)             │%-30.30s                                                          │"                      , aKva);   prntPL_DL(str,1,0);
  sprintf(str," ├───┼───────────────────────────────────┴────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │ B │Код                 ┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │   │налогоплательщика в │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │                                                     │");   prntPL_DL(str,1,0);
  sprintf(str," │   │стране регистрации  └─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │   │или его аналог (если                                                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," │   │имеется)                                                                                                                    │");   prntPL_DL(str,1,0);
  sprintf(str," ├───┼────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │   │Наименование         ┌──────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │ С │иностранной          │ %-100.100s │"                                                                                          , aOrg);   prntPL_DL(str,1,0);
  sprintf(str," │   │организации          └──────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," ├───┼────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │ D │Страна регистрации   ┌─────────────────────────┐             ┌─┬─┐                                                          │");   prntPL_DL(str,1,0);
  sprintf(str," │   │(инкорпорации)       │                         │ Код страны *│ │ │                                                          │");   prntPL_DL(str,1,0);
  sprintf(str," │   │                     └─────────────────────────┘             └─┴─┘                                                          │");   prntPL_DL(str,1,0);
  sprintf(str," ├───┼─────────────────────────────┬──────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │ Е │Адрес, указанный в           │                                                                                              │");   prntPL_DL(str,1,0);
  sprintf(str," │   │учредительных                │                                                                                              │");   prntPL_DL(str,1,0);
  sprintf(str," │   │документах иностранной       │                                                                                              │");   prntPL_DL(str,1,0);
  sprintf(str," │   │организации                  │                                                                                              │");   prntPL_DL(str,1,0);
  sprintf(str," └───┴─────────────────────────────┴──────────────────────────────────────────────────────────────────────────────────────────────┘");   prntPL_DL(str,1,0);
  sprintf(str," * ─ по справочнику \"BIC Directory\"                                                                                              ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                                   ");   prntPL_DL(str,1,0);

  int LastList=LIST[5]+LIST[5]+LIST[6]+LIST[7]+LIST[8]+LIST[9]+LIST[10];
  if (LastList==0) { if (FLIST==1) { CFile_DL.ListFeed(); } } else { CFile_DL.ListFeed(); }

  } // end if LIST[3]


  if (LIST[4]==1) {

  char N_STR[10]; if (NL_DL==1) { nlist_DL++; sprintf(N_STR,"%2d",nlist_DL); } else { sprintf(N_STR,"%2s","  "); }

  if (ORG==3) {
    char ts[101]; 
    sprintf(ts,"%c",adr_ind[0]);       ai0=ts;
    sprintf(ts,"%c",adr_ind[1]);       ai1=ts;                         
    sprintf(ts,"%c",adr_ind[2]);       ai2=ts;                         
    sprintf(ts,"%c",adr_ind[3]);       ai3=ts;                         
    sprintf(ts,"%c",adr_ind[4]);       ai4=ts;                         
    sprintf(ts,"%c",adr_ind[5]);       ai5=ts;   
    sprintf(ts,"%-22.22s",adr_reg);    aReg=ts;
    sprintf(ts,"%c",KodReg[0]);        aKodReg0=ts;
    sprintf(ts,"%c",KodReg[1]);        aKodReg1=ts;
    sprintf(ts,"%-30.30s",adr_rai);    aRai=ts;
    sprintf(ts,"%-30.30s",adr_gor);    aGor=ts;
    sprintf(ts,"%-30.30s",adr_nas);    aNas=ts;
    sprintf(ts,"%-30.30s",adr_str);    aStr=ts;
    sprintf(ts,"%-30.30s",adr_dom);    aDom=ts;
    sprintf(ts,"%-30.30s",adr_kor);    aKor=ts;
    sprintf(ts,"%-30.30s",adr_kva);    aKva=ts;
    sprintf(ts,"%-25.25s",Tel);        aTel=ts;
  } 
  else {
    ai0=ai1=ai2=ai3=ai4=ai5=aReg=aKodReg0=aKodReg1=" ";
    aRai=aGor=aNas=aStr=aDom=aKor=aKva=aTel=" "; 
  }

  sprintf(str,"                                                                                                                           ┌──┬──┐ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                     Лист  │ 0│ 4│ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                           └──┴──┘ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                           ┌──┬──┐ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                Страница N │ %c│ %c│ ", N_STR[0], N_STR[1]);   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                           └──┴──┘ ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                    ┌─┬─┬─┬─┬─┬─┬─┐");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                       Форма по КНД │1│1│5│1│0│5│0│");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                    └─┴─┴─┴─┴─┴─┴─┘");   prntPL_DL(str,1,0);
  sprintf(str," III. Физические лица                                                                                                              ");   prntPL_DL(str,1,0);
  sprintf(str," Номер контактного телефона индивидуального предпринимателя (физического лица),                                                    ");   prntPL_DL(str,1,0);
  sprintf(str," выступающего в качестве работодателя: служебный ________________________ ; домашний____________________________                   ");   prntPL_DL(str,1,0);
  sprintf(str," ┌─────────────────────────────────────────┬──────────────────────────────────────────────────────────────────────────────────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │Дата рождения                            │                                                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼──────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Место рождения                           │                                                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼──────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Пол:                                     │      ┌─┐      ┌─┐ (нужное                                                            │");   prntPL_DL(str,1,0);
  sprintf(str," │                                         │ муж. │ │ жен. │ │ отметить                                                           │");   prntPL_DL(str,1,0);
  sprintf(str," │                                         │      └─┘      └─┘ знаком V)                                                          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼──────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Гражданство                              │                                                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────┬─┬─┬────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Вид документа, удостоверяющего личность  │                                                                      Код│ │ │        │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────┴─┴─┴────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Серия                                    │                                                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼──────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Номер                                    │                                                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼──────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Дата выдачи документа                    │                                                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼──────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Адрес места жительства в Российской      │             Х                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," │Федерации:                               │                                                                                      │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─┬─┬─┬─┬─┬─┬──────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Почтовый индекс                          │%s│%s│%s│%s│%s│%s│                                                                          │", ai0, ai1, ai2, ai3, ai4, ai5);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─┴─┴─┴─┴─┴─┴─────────────────────────────────────────────────────────────┬─┬─┬────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Субъект Российской Федерации             │%-22.22s                                                Код│%s│%s│        │"            , aReg, aKodReg0, aKodReg1);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼─────────────────────────────────────────────────────────────────────────┴─┴─┴────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Район                                    │%-30.30s                                                        │"                      , aRai);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼──────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Город                                    │%-30.30s                                                        │"                      , aGor);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼──────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Населенный пункт (село, поселок и т.д.)  │%-30.30s                                                        │"                      , aNas);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼──────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Улица (проспект, переулок и т.д.)        │%-30.30s                                                        │"                      , aStr);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼──────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Номер дома (владения)                    │%-30.30s                                                        │"                      , aDom);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼──────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Номер корпуса (строения)                 │%-30.30s                                                        │"                      , aKor);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────┼──────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Номер квартиры                           │%-30.30s                                                        │"                      , aKva);   prntPL_DL(str,1,0);
  sprintf(str," └─────────────────────────────────────────┴──────────────────────────────────────────────────────────────────────────────────────┘");   prntPL_DL(str,1,0);

  int LastList=LIST[5]+LIST[6]+LIST[7]+LIST[8]+LIST[9]+LIST[10];
  if (LastList==0) { if (FLIST==1) { CFile_DL.ListFeed(); } } else { CFile_DL.ListFeed(); }

  } // end if LIST[4]



  if (LIST[5]==1) {

  char N_STR[10]; if (NL_DL==1) { nlist_DL++; sprintf(N_STR,"%2d",nlist_DL); } else { sprintf(N_STR,"%2s","  "); }

  sprintf(str,"                                                                                ┌─┬─┐                                                          ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                           Лист │ │5│                                                          ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                └─┴─┘                                                          ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                ┌─┬─┐                                                          ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                     Страница N │%c│%c│                                                        ", N_STR[0], N_STR[1]);   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                └─┴─┘                                                          ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                                               ");   prntPL_DL(str,1,0);
  sprintf(str,"                                       РАСЧЕТ ПО АВАНСОВЫМ ПЛАТЕЖАМ ПО ЕДИНОМУ СОЦИАЛЬНОМУ НАЛОГУ                                              ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                      ┌─┬─┬─┬─┬─┬─┬─┐                                                          ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                        Форма по КНД  │1│1│5│1│0│5│0│                                                          ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                      └─┴─┴─┴─┴─┴─┴─┘                                                          ");   prntPL_DL(str,1,0);
  sprintf(str," ┌─────────────────────────────┬──────┬─────────────────────────┬─────────────────────────┬─────────────────────────┬─────────────────────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │ Наименование                │Код   │    Федеральный бюджет   │            ФСС          │           ФФОМС         │           ТФОМС         │");   prntPL_DL(str,1,0);
  sprintf(str," │ показателя                  │строки├─────────────────────────┼─────────────────────────┼─────────────────────────┼─────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │                             │      │         по данным       │         по данным       │         по данным       │         по данным       │");   prntPL_DL(str,1,0);
  sprintf(str," │                             │      ├──────────────┬──────────┼──────────────┬──────────┼──────────────┬──────────┼──────────────┬──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │                             │      │налогопла-    │налогового│налогопла-    │налогового│налогопла-    │налогового│налогопла-    │налогового│");   prntPL_DL(str,1,0);
  sprintf(str," │                             │      │тельщика      │органа    │тельщика      │органа    │тельщика      │органа    │тельщика      │органа    │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │ 1                           │ 2    │ 3            │ 4        │ 5            │ 6        │ 7            │ 8        │ 9            │ 10       │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Налоговая база за            │ 0100 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0100, fs0100, ff0100, tf0100);   prntPL_DL(str,1,0);
  sprintf(str," │отчетный период, всего       │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │в том числе последний квартал│ 0110 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0110, fs0110, ff0110, tf0110);   prntPL_DL(str,1,0);
  sprintf(str," │отчетного периода            │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │(стр.0120+стр.0130+стр.0140) │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │из него:                     │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │-1 месяц                     │ 0120 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0120, fs0120, ff0120, tf0120);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-2 месяц                     │ 0130 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0130, fs0130, ff0130, tf0130);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-3 месяц                     │ 0140 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0140, fs0140, ff0140, tf0140);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Сумма налоговых льгот за     │ 0200 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0300, fs0300, ff0300, tf0300);   prntPL_DL(str,1,0);
  sprintf(str," │отчетный период, всего       │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │в том числе последний квартал│ 0210 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0210, fs0210, ff0210, tf0210);   prntPL_DL(str,1,0);
  sprintf(str," │отчетного периода            │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │(стр.0220+стр.0230+стр.0240) │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │из него:                     │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │-1 месяц                     │ 0220 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0220, fs0220, ff0220, tf0220);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-2 месяц                     │ 0230 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0230, fs0230, ff0230, tf0230);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-3 месяц                     │ 0240 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0240, fs0240, ff0240, tf0240);   prntPL_DL(str,1,0);

  if (KindPaper_DL==1) {
  sprintf(str," └─────────────────────────────┴──────┴──────────────┴──────────┴──────────────┴──────────┴──────────────┴──────────┴──────────────┴──────────┘");   prntPL_DL(str,1,0);

  CFile_DL.ListFeed();

  char N_STR[10]; if (NL_DL==1) { nlist_DL++; sprintf(N_STR,"%2d",nlist_DL); } else { sprintf(N_STR,"%2s","  "); }

  sprintf(str,"                                                                                ┌─┬─┐                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                           Лист │ │5│                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                └─┴─┘                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                ┌─┬─┐                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                     Страница N │%c│%c│                                                              ", N_STR[0], N_STR[1]);   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                └─┴─┘                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                      ┌─┬─┬─┬─┬─┬─┬─┐                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                        Форма по КНД  │1│1│5│1│0│5│0│                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                      └─┴─┴─┴─┴─┴─┴─┘                                                                ");   prntPL_DL(str,1,0);
  sprintf(str," ┌─────────────────────────────┬──────┬──────────────┬──────────┬──────────────┬──────────┬──────────────┬──────────┬──────────────┬──────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │ 1                           │ 2    │ 3            │ 4        │ 5            │ 6        │ 7            │ 8        │ 9            │ 10       │");   prntPL_DL(str,1,0);
  }

  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Налоговая база для исчисления│ 0300 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0400, fs0400, ff0400, tf0400);   prntPL_DL(str,1,0);
  sprintf(str," │налога за отчетный период,   │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │всего (стр.0100-стр.0200)    │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │в том числе последний квартал│ 0310 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0310, fs0310, ff0310, tf0310);   prntPL_DL(str,1,0);
  sprintf(str," │отчетного периода            │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │(стр.0320+стр.0330+стр.0340) │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │(стр.0110-стр.0210)          │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │из него:                     │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │-1 месяц (стр.0120-0220)     │ 0320 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0320, fs0320, ff0320, tf0320);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-2 месяц (стр.0130-0230)     │ 0330 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0330, fs0330, ff0330, tf0330);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-3 месяц (стр.0140-0240)     │ 0340 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0340, fs0340, ff0340, tf0340);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Сумма начисленных авансовых  │ 0400 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0500, fs0500, ff0500, tf0500);   prntPL_DL(str,1,0);
  sprintf(str," │платежей за отчетный период  │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │всего                        │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │в том числе последний квартал│ 0410 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0410, fs0410, ff0410, tf0410);   prntPL_DL(str,1,0);
  sprintf(str," │отчетного периода            │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │из него:                     │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │-1 месяц                     │ 0420 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0420, fs0420, ff0420, tf0420);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-2 месяц                     │ 0430 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                            , pf0430, fs0430, ff0430, tf0430);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-3 месяц                     │ 0440 │%14.14s│          │%14.14s│          │%14.14s│          │%14.14s│          │"                           , pf0440, fs0440, ff0440, tf0440);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Сумма начисленных авансовых  │ 0500 │%14.14s│          │ Х            │ Х        │ Х            │ Х        │ Х            │ Х        │"      , sv0500);   prntPL_DL(str,1,0);
  sprintf(str," │платежей по страховым взносам│      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │на обязательное пенсионное   │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │страхование (налоговый вычет)│      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │за отчетный период, всего    │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │в том числе последний квартал│ 0510 │%14.14s│          │ Х            │ Х        │ Х            │ Х        │ Х            │ Х        │"      , sv0510);   prntPL_DL(str,1,0);
  sprintf(str," │отчетного периода            │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │из него                      │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │-1 месяц                     │ 0520 │%14.14s│          │ X            │ X        │ X            │ X        │ X            │ X        │"      , sv0520);   prntPL_DL(str,1,0);
  sprintf(str," └─────────────────────────────┴──────┴──────────────┴──────────┴──────────────┴──────────┴──────────────┴──────────┴──────────────┴──────────┘");   prntPL_DL(str,1,0);

  int LastList=LIST[6]+LIST[7]+LIST[8]+LIST[9]+LIST[10];
  if (LastList==0) { if (FLIST==1) { CFile_DL.ListFeed(); } } else { CFile_DL.ListFeed(); }

  } // end if LIST[5]


  if (LIST[6]==1) {

  char N_STR[10]; if (NL_DL==1) { nlist_DL++; sprintf(N_STR,"%2d",nlist_DL); } else { sprintf(N_STR,"%2s","  "); }

  sprintf(str,"                                                                                ┌─┬─┐                                                                    ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                           Лист │ │6│                                                                    ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                └─┴─┘                                                                    ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                ┌─┬─┐                                                                    ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                     Страница N │%c│%c│                                                                  ", N_STR[0], N_STR[1]);   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                └─┴─┘                                                                    ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                                                         ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                      ┌─┬─┬─┬─┬─┬─┬─┐                                                                    ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                        Форма по КНД  │1│1│5│1│0│5│0│                                                                    ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                      └─┴─┴─┴─┴─┴─┴─┘                                                                    ");   prntPL_DL(str,1,0);
  sprintf(str," ┌─────────────────────────────┬──────┬──────────────┬──────────┬──────────────┬──────────┬──────────────┬──────────┬──────────────┬──────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │-2 месяц                     │ 0530 │%14.14s│          │ Х            │ Х        │ Х            │ Х        │ Х            │ Х        │"      , sv0530);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-3 месяц                     │ 0540 │%14.14s│          │ Х            │ Х        │ Х            │ Х        │ Х            │ Х        │"      , sv0540);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Подлежит начислению в        │ 0600 │%14.14s│          │ Х            │ Х        │ Х            │ Х        │ Х            │ Х        │"      , fb0600);   prntPL_DL(str,1,0);
  sprintf(str," │федеральный бюджет за        │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │отчетный период, всего       │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │(стр.0400-стр.0500)          │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │в том числе последний квартал│ 0610 │%14.14s│          │ Х            │ Х        │ Х            │ Х        │ Х            │ Х        │"      , fb0610);   prntPL_DL(str,1,0);
  sprintf(str," │отчетного периода            │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │(стр.0410-стр.0510)          │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │из него:                     │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │-1 месяц (стр.0420-стр.0520) │ 0620 │%14.14s│          │ Х            │ Х        │ Х            │ Х        │ Х            │ Х        │"      , fb0620);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-2 месяц (стр.0430-стр.0530) │ 0630 │%14.14s│          │ Х            │ Х        │ Х            │ Х        │ Х            │ Х        │"      , fb0630);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-3 месяц (стр.0440-стр.0540) │ 0640 │%14.14s│          │ Х            │ Х        │ Х            │ Х        │ Х            │ Х        │"      , fb0640);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Расходы, произведенные на    │ 0700 │ Х            │ Х        │%14.14s│          │ Х            │ Х        │ Х            │ Х        │"      , fss0700);   prntPL_DL(str,1,0);
  sprintf(str," │цели государственного        │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │социального страхования за   │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │отчетный период, всего       │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │в том числе за последний     │ 0710 │ Х            │ Х        │%14.14s│          │ Х            │ Х        │ Х            │ Х        │"      , fss0710);   prntPL_DL(str,1,0);
  sprintf(str," │квартал отчетного периода    │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │(стр.0720+стр.0730+стр.0740) │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │из него:                     │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │-1 месяц                     │ 0720 │ Х            │ Х        │%14.14s│          │ X            │ X        │ X            │ X        │"      , fss0720);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-2 месяц                     │ 0730 │ Х            │ Х        │%14.14s│          │ Х            │ Х        │ Х            │ Х        │"      , fss0730);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-3 месяц                     │ 0740 │ Х            │ Х        │%14.14s│          │ Х            │ Х        │ Х            │ Х        │"      , fss0740);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Возмещено исполнительным     │ 0800 │ Х            │ Х        │%14.14s│          │ Х            │ Х        │ Х            │ Х        │"      , fss0800);   prntPL_DL(str,1,0);
  sprintf(str," │органом ФСС за отчетный      │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │период, всего                │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │в том числе за последний     │ 0810 │ Х            │ Х        │%14.14s│          │ Х            │ Х        │ Х            │ Х        │"      , fss0810);   prntPL_DL(str,1,0);
  sprintf(str," │квартал отчетного периода    │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │(стр.0820+стр.0830+стр.0840) │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │из него:                     │      │              │          │              │          │ Х            │ Х        │ Х            │ Х        │");   prntPL_DL(str,1,0);
  sprintf(str," │-1 месяц                     │ 0820 │ Х            │ Х        │%14.14s│          │              │          │              │          │"      , fss0820);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-2 месяц                     │ 0830 │ Х            │ X        │%14.14s│          │ Х            │ Х        │ Х            │ Х        │"      , fss0830);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-3 месяц                     │ 0840 │ Х            │ Х        │%14.14s│          │ Х            │ Х        │ Х            │ Х        │"      , fss0840);   prntPL_DL(str,1,0);

  if (KindPaper_DL==1) {
  sprintf(str," └─────────────────────────────┴──────┴──────────────┴──────────┴──────────────┴──────────┴──────────────┴──────────┴──────────────┴──────────┘");   prntPL_DL(str,1,0);

  CFile_DL.ListFeed();

  char N_STR[10]; if (NL_DL==1) { nlist_DL++; sprintf(N_STR,"%2d",nlist_DL); } else { sprintf(N_STR,"%2s","  "); }

  sprintf(str,"                                                                                ┌─┬─┐                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                           Лист │ │6│                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                └─┴─┘                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                ┌─┬─┐                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                     Страница N │%c│%c│                                                              ", N_STR[0], N_STR[1]);   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                └─┴─┘                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                      ┌─┬─┬─┬─┬─┬─┬─┐                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                        Форма по КНД  │1│1│5│1│0│5│0│                                                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                      └─┴─┴─┴─┴─┴─┴─┘                                                                ");   prntPL_DL(str,1,0);
  sprintf(str," ┌─────────────────────────────┬──────┬──────────────┬──────────┬──────────────┬──────────┬──────────────┬──────────┬──────────────┬──────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │ 1                           │ 2    │ 3            │ 4        │ 5            │ 6        │ 7            │ 8        │ 9            │ 10       │");   prntPL_DL(str,1,0);
  }

  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Подлежит начислению в ФСС за │ 0900 │ Х            │ Х        │%14.14s│          │ Х            │ Х        │ Х            │ Х        │"      , fss0900);   prntPL_DL(str,1,0);
  sprintf(str," │отчетный период, всего       │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │(стр.0400-стр.0700+стр.0800) │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │в том числе последний квартал│ 0910 │ Х            │ Х        │%14.14s│          │ Х            │ Х        │ Х            │ Х        │"      , fss0910);   prntPL_DL(str,1,0);
  sprintf(str," │отчетного периода            │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │(стр.0410-стр.0710+стр.0810) │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │из него:                     │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │-1 месяц                     │ 0920 │ X            │ X        │%14.14s│          │ X            │ X        │ X            │ X        │"      , fss0920);   prntPL_DL(str,1,0);
  sprintf(str," │(стр.0420-стр.0720+стр.0820) │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-2 месяц                     │ 0930 │ Х            │ Х        │%14.14s│          │ Х            │ Х        │ Х            │ Х        │"      , fss0930);   prntPL_DL(str,1,0);
  sprintf(str," │(стр.0430-стр.0730+стр.0830) │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │-3 месяц                     │ 0940 │ Х            │ Х        │%14.14s│          │ Х            │ Х        │ Х            │ Х        │"      , fss0940);   prntPL_DL(str,1,0);
  sprintf(str," │(стр.0440-стр.0740+стр.0840) │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Справочно: Выплаты, не       │ 1000 │%14.14s│ Х        │%14.14s│ Х        │%14.14s│ Х        │%14.14s│ Х        │", fb1000, fs1000, ff1000, tf1000);   prntPL_DL(str,1,0);
  sprintf(str," │отнесенные к расходам,       │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │уменьшающим налоговую базу по│      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │налогу на прибыль организаций│      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │в текущем отчетном периоде;  │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │выплаты, не уменьшающие      │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │налоговую базу по налогу на  │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │доходы физических лиц в      │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │текущем отчетном периоде     │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────┼──────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┼──────────────┼──────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Справочно: Суммы, не         │ 1100 │%14.14s│ Х        │%14.14s│ Х        │%14.14s│ Х        │%14.14s│ Х        │", fb1100, fs1100, ff1100, tf1100);   prntPL_DL(str,1,0);
  sprintf(str," │подлежащие налогообложению за│      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │отчетный период в            │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," │соответствии со статьей 238  │      │              │          │              │          │              │          │              │          │");   prntPL_DL(str,1,0);
  sprintf(str," └─────────────────────────────┴──────┴──────────────┴──────────┴──────────────┴──────────┴──────────────┴──────────┴──────────────┴──────────┘");   prntPL_DL(str,1,0);

  int LastList=LIST[7]+LIST[8]+LIST[9]+LIST[10];
  if (LastList==0) { if (FLIST==1) { CFile_DL.ListFeed(); } } else { CFile_DL.ListFeed(); }

  } // end if LIST[6]



  if (LIST[7]==1) {

  char N_STR[10]; if (NL_DL==1) { nlist_DL++; sprintf(N_STR,"%2d",nlist_DL); } else { sprintf(N_STR,"%2s","  "); }

  sprintf(str,"                                                                        ┌─┬─┐                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                   Лист │ │7│                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                        └─┴─┘                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                        ┌─┬─┐                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                             Страница N │ │ │                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                        └─┴─┘                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                              ┌─┬─┬─┬─┬─┬─┬─┐                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                Форма по КНД  │1│1│5│1│0│5│0│                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                              └─┴─┴─┴─┴─┴─┴─┘                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"     Справочно:                                  (в рублях и копейках)                                                                               ");   prntPL_DL(str,1,0);
  sprintf(str," ┌────────────────────────────────────────────────────────────────┬──────┬──────────────┬───────────────────────────────────────────────────────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                │Код   │За отчетный   │ В том числе                                               │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                │строки│период        ├──────────────┬────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                │      │              │за последний  │ из него                                    │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                │      │              │квартал отчет-├──────────────┬──────────────┬──────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                │      │              │ного периода  │ 1 месяц      │ 2 месяц      │ 3 месяц      │");   prntPL_DL(str,1,0);
  sprintf(str," ├────────────────────────────────────────────────────────────────┼──────┼──────────────┼──────────────┼──────────────┼──────────────┼──────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │ 1                                                              │ 2    │ 3            │ 4            │ 5            │ 6            │ 7            │");   prntPL_DL(str,1,0);
  sprintf(str," ├────────────────────────────────────────────────────────────────┼──────┼──────────────┼──────────────┼──────────────┼──────────────┼──────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Уплачено авансовых платежей по единому социальному налогу в     │ 010  │%14.14s│%14.14s│%14.14s│%14.14s│%14.14s│        "                           , f010G3, f010G4, f010G5, f010G6, f010G7);   prntPL_DL(str,1,0);
  sprintf(str," │федеральный бюджет по данным налогоплательщика                  │      │              │              │              │              │              │");   prntPL_DL(str,1,0);
  sprintf(str," ├────────────────────────────────────────────────────────────────┼──────┼──────────────┼──────────────┼──────────────┼──────────────┼──────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Уплачено страховых взносов на обязательное пенсионное           │ 020  │%14.14s│%14.14s│%14.14s│%14.14s│%14.14s│        "                           , f020G3, f020G4, f020G5, f020G6, f020G7);   prntPL_DL(str,1,0);
  sprintf(str," │страхование (налоговый вычет) по данным налогоплательщика       │      │              │              │              │              │              │");   prntPL_DL(str,1,0);
  sprintf(str," └────────────────────────────────────────────────────────────────┴──────┴──────────────┴──────────────┴──────────────┴──────────────┴──────────────┘");   prntPL_DL(str,1,0);
  sprintf(str,"                                                       РАСЧЕТ ДЛЯ ЗАПОЛНЕНИЯ СТРОК 0300 И 0400                                                       ");   prntPL_DL(str,1,0);
  sprintf(str," ┌─────────┬───┬─────────────────────────────────────────┬────────────────────────────────────────────────────────────────────────┬─────────────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │         │   │  Налоговая база для исчисления налога   │                     Начислено авансовых платежей                       │ Численность     │");   prntPL_DL(str,1,0);
  sprintf(str," │         │Код│          за отчетный период             ├───────────────────┬─────────────────┬────────────────┬─────────────────┼─────┬─────┬─────┤");   prntPL_DL(str,1,0);
  sprintf(str," │         │   │                                         │ Федеральный бюджет│       ФСС       │       ФФОМС    │      ТФОМС      │Феде-│     │     │");   prntPL_DL(str,1,0);
  sprintf(str," │         │   ├─────────────┬─────────────┬─────────────┼─────┬─────────────┼─────┬───────────┼─────┬──────────┼─────┬───────────┤раль-│ ФСС │Фонды│");   prntPL_DL(str,1,0);
  sprintf(str," │         │   │ Федеральный │     ФСС     │    Фонды    │Став.│   Сумма,    │Став.│   Сумма,  │Став.│   Сумма, │Став.│   Сумма,  │ный  │     │ ОМС │");   prntPL_DL(str,1,0);
  sprintf(str," │         │   │   бюджет    │             │     ОМС     │%%/руб│  руб.,коп.  │%%/руб│  руб.,коп.│%%/руб│ руб.,коп.│%%/руб│ руб.,коп. │бюдж.│     │     │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────┼───┼─────────────┼─────────────┼─────────────┼─────┼─────────────┼─────┼───────────┼─────┼──────────┼─────┼───────────┼─────┼─────┼─────┤");   prntPL_DL(str,1,0);
  sprintf(str," │    1    │ 2 │     3       │      4      │     5       │  6  │     7       │  8  │      9    │  10 │     11   │  12 │    13     │ 14  │ 15  │ 16  │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────┼───┼─────────────┼─────────────┼─────────────┼─────┼─────────────┼─────┼───────────┼─────┼──────────┼─────┼───────────┼─────┼─────┼─────┤");   prntPL_DL(str,1,0);
  sprintf(str," │До 100000│010│%13.13s│%13.13s│%13.13s│%5.5s│%13.13s│%5.5s│%11.11s│%5.5s│%10.10s│%5.5s│%11.11s│%5.5s│%5.5s│%5.5s│"                                   , pf010, fs010, om010, T_FB010, npf010, T_FS010, nfs010, T_FF010, nff010, T_FT010, ntf010, cpf010, cfs010, com010); prntPL_DL(str,1,0);
  sprintf(str," ├─────────┼───┼─────────────┼─────────────┼─────────────┼─────┼─────────────┼─────┼───────────┼─────┼──────────┼─────┼───────────┼─────┼─────┼─────┤"); prntPL_DL(str,1,0);
  sprintf(str," │От 100001│020│%13.13s│%13.13s│%13.13s│  Х  │%13.13s│  Х  │%11.11s│  Х  │%10.10s│  Х  │%11.11s│%5.5s│%5.5s│%5.5s│"                                   , pf020, fs020, om020,          npf020,          nfs020,          nff020,          ntf020, cpf020, cfs020, com020); prntPL_DL(str,1,0);
  sprintf(str," │до 300000│   │             │             │             │     │             │     │           │     │          │     │           │     │     │     │"); prntPL_DL(str,1,0);
  sprintf(str," ├─────────┼───┼─────────────┼─────────────┼─────────────┼─────┼─────────────┼─────┼───────────┼─────┼──────────┼─────┼───────────┼─────┼─────┼─────┤"); prntPL_DL(str,1,0);
  sprintf(str," │100000 р.│021│%13.13s│%13.13s│%13.13s│%5.5s│%13.13s│%5.5s│%11.11s│%5.5s│%10.10s│%5.5s│%11.11s│  X  │  X  │  X  │"                                   , pf021, fs021, om021, T_FB021, npf021, T_FS021, nfs021, T_FF021, nff021, T_FT021, ntf021); prntPL_DL(str,1,0);
  sprintf(str," ├─────────┼───┼─────────────┼─────────────┼─────────────┼─────┼─────────────┼─────┼───────────┼─────┼──────────┼─────┼───────────┼─────┼─────┼─────┤"); prntPL_DL(str,1,0);
  sprintf(str," │>100000р.│022│%13.13s│%13.13s│%13.13s│%5.5s│%13.13s│%5.5s│%11.11s│%5.5s│%10.10s│%5.5s│%11.11s│  Х  │  Х  │  Х  │"                                   , pf022, fs022, om022, T_FB022, npf022, T_FS022, nfs022, T_FF022, nff022, T_FT022, ntf022); prntPL_DL(str,1,0);
  sprintf(str," ├─────────┼───┼─────────────┼─────────────┼─────────────┼─────┼─────────────┼─────┼───────────┼─────┼──────────┼─────┼───────────┼─────┼─────┼─────┤"); prntPL_DL(str,1,0);
  sprintf(str," │От 300001│030│%13.13s│%13.13s│%13.13s│  Х  │%13.13s│  Х  │%11.11s│  Х  │%10.10s│  Х  │%11.11s│%5.5s│%5.5s│%5.5s│"                                   , pf030, fs030, om030,          npf030,          nfs030,          nff030,          ntf030, cpf030, cfs030, com030); prntPL_DL(str,1,0);
  sprintf(str," │до 600000│   │             │             │             │     │             │     │           │     │          │     │           │     │     │     │"); prntPL_DL(str,1,0);
  sprintf(str," ├─────────┼───┼─────────────┼─────────────┼─────────────┼─────┼─────────────┼─────┼───────────┼─────┼──────────┼─────┼───────────┼─────┼─────┼─────┤"); prntPL_DL(str,1,0);
  sprintf(str," │300000 р.│031│%13.13s│%13.13s│%13.13s│%5.5s│%13.13s│%5.5s│%11.11s│%5.5s│%10.10s│%5.5s│%11.11s│  X  │  X  │  X  │"                                   , pf031, fs031, om031, T_FB031, npf031, T_FS031, nfs031, T_FF031, nff031, T_FT031, ntf031); prntPL_DL(str,1,0);
  sprintf(str," ├─────────┼───┼─────────────┼─────────────┼─────────────┼─────┼─────────────┼─────┼───────────┼─────┼──────────┼─────┼───────────┼─────┼─────┼─────┤"); prntPL_DL(str,1,0);
  sprintf(str," │> 300000 │032│%13.13s│%13.13s│%13.13s│%5.5s│%13.13s│%5.5s│%11.11s│%5.5s│%10.10s│%5.5s│%11.11s│  Х  │  Х  │  Х  │"                                   , pf032, fs032, om032, T_FB032, npf032, T_FS032, nfs032, T_FF032, nff032, T_FT032, ntf032); prntPL_DL(str,1,0);
  sprintf(str," ├─────────┼───┼─────────────┼─────────────┼─────────────┼─────┼─────────────┼─────┼───────────┼─────┼──────────┼─────┼───────────┼─────┼─────┼─────┤"); prntPL_DL(str,1,0);
  sprintf(str," │от 600000│040│%13.13s│%13.13s│%13.13s│  X  │%13.13s│%5.5s│%11.11s│%5.5s│%10.10s│%5.5s│%11.11s│%5.5s│%5.5s│%5.5s│"                                   , pf040, fs040, om040,          npf040, T_FS040, nfs040, T_FF040, nff040, T_FT040, ntf040, cpf040, cfs040, com040); prntPL_DL(str,1,0);
  sprintf(str," ├─────────┼───┼─────────────┼─────────────┼─────────────┼─────┼─────────────┼─────┼───────────┼─────┼──────────┼─────┼───────────┼─────┼─────┼─────┤"); prntPL_DL(str,1,0);
  sprintf(str," │600000 р.│041│%13.13s│      -      │      -      │%5.5s│%13.13s│  Х  │     -     │  Х  │     -    │  Х  │     -     │  X  │  X  │  X  │"            , pf041,               T_FB041, npf041); prntPL_DL(str,1,0);
  sprintf(str," ├─────────┼───┼─────────────┼─────────────┼─────────────┼─────┼─────────────┼─────┼───────────┼─────┼──────────┼─────┼───────────┼─────┼─────┼─────┤"); prntPL_DL(str,1,0);
  sprintf(str," │>600000р.│042│%13.13s│      -      │      -      │%5.5s│%13.13s│  Х  │     -     │  Х  │     -    │  Х  │     -     │  Х  │  Х  │  Х  │"            , pf042,               T_FB042, npf042); prntPL_DL(str,1,0);
  sprintf(str," ├─────────┼───┼─────────────┼─────────────┼─────────────┼─────┼─────────────┼─────┼───────────┼─────┼──────────┼─────┼───────────┼─────┼─────┼─────┤"); prntPL_DL(str,1,0);
  sprintf(str," │ Итого:  │050│%13.13s│%13.13s│%13.13s│  Х  │%13.13s│  Х  │%11.11s│  Х  │%10.10s│  Х  │%11.11s│%5.5s│%5.5s│%5.5s│"                                   , pf050, fs050, om050, npf050, nfs050, nff050, ntf050, cpf050, cfs050, com050); prntPL_DL(str,1,0);
  sprintf(str," └─────────┴───┴─────────────┴─────────────┴─────────────┴─────┴─────────────┴─────┴───────────┴─────┴──────────┴─────┴───────────┴─────┴─────┴─────┘"); prntPL_DL(str,1,0);

  int LastList=LIST[8]+LIST[9]+LIST[10];
  if (LastList==0) { if (FLIST==1) { CFile_DL.ListFeed(); } } else { CFile_DL.ListFeed(); }

  } // end if LIST[7]


  if (LIST[8]==1) {

  char N_STR[10]; if (NL_DL==1) { nlist_DL++; sprintf(N_STR,"%2d",nlist_DL); } else { sprintf(N_STR,"%2s","  "); }

  sprintf(str,"                                                                                                                   ┌─┬─┐                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                              Лист │ │8│                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                   └─┴─┘                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                   ┌─┬─┐                                ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                        Страница N │%c│%c│                              ", N_STR[0], N_STR[1]);   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                   └─┴─┘                                ");   prntPL_DL(str,1,0);
  sprintf(str," ┌──────────────────────────────────┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐                            ┌─┬─┬─┬─┬─┬─┬─┐                                ");   prntPL_DL(str,1,0);
  sprintf(str," │ ИНН \\ КПП ОРГАНИЗАЦИИ            │%c│%c│%c│%c│%c│%c│%c│%c│%c│%c│\\│%c│%c│%c│%c│%c│%c│%c│%c│%c│              Форма по КНД  │1│1│5│1│0│5│0│           ", Inn[0], Inn[1], Inn[2], Inn[3], Inn[4], Inn[5], Inn[6], Inn[7], Inn[8], Inn[9], Kpp[0], Kpp[1], Kpp[2], Kpp[3], Kpp[4], Kpp[5], Kpp[6], Kpp[7], Kpp[8]);   prntPL_DL(str,1,0);
  sprintf(str," └──────────────────────────────────┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘                            └─┴─┴─┴─┴─┴─┴─┘                                ");   prntPL_DL(str,1,0);
  sprintf(str,"          РАСЧЕТ УСЛОВИЯ НА ПРАВО ПРИМЕНЕНИЯ РЕГРЕССИВНЫХ СТАВОК ЕДИНОГО СОЦИАЛЬНОГО НАЛОГА ПО МЕСЯЦАМ ПОСЛЕДНЕГО КВАРТАЛА ОТЧЕТНОГО ПЕРИОДА            ");   prntPL_DL(str,1,0);
  sprintf(str," ┌─────────────────────────────────────────────────┬─────┬─────────┬────────────────────────────────────────────────────────────────────────────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │                                                 │ Код │ Единица │                   Нарастающим итогом с начала налогового периода по:           │");   prntPL_DL(str,1,0);
  sprintf(str," │                                                 │стро-│измерения├── 1-й месяц последнего ──┬── 2-й месяц последнего ──┬── 3-й месяц последнего ──┤");   prntPL_DL(str,1,0);
  sprintf(str," │                                                 │ ки  │         │квартала отчетного периода│квартала отчетного периода│квартала отчетного периода│");   prntPL_DL(str,1,0);
  sprintf(str," │                                                 │     │         ├──────── по данным ───────┼───────── по данным ──────┼───────── по данным ──────┤");   prntPL_DL(str,1,0);
  sprintf(str," │                                                 │     │         │  налогопла-  │ налогового│  налогопла-  │ налогового│  налогопла-  │ налогового│");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────┼─────┼─────────┼─ тельщика ───┼── органа ─┼─ тельщика ───┼── органа ─┼─ тельщика ───┼── органа ─┤");   prntPL_DL(str,1,0);
  sprintf(str," │ 1                                               │ 2   │ 3       │ 4            │ 5         │ 6            │ 7         │ 8            │ 9         │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────┼─────┼─────────┼──────────────┼───────────┼──────────────┼───────────┼──────────────┼───────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Средняя численность работников                   │ 010 │   чел.  │%14.14s│           │%14.14s│           │%14.14s│           │"                     , L8_S010_G4, L8_S010_G6, L8_S010_G8);   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────┼─────┼─────────┼──────────────┼───────────┼──────────────┼───────────┼──────────────┼───────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Суммы выплат, произведенных в пользу физических  │ 020 │ руб.коп.│%14.14s│           │%14.14s│           │%14.14s│           │"                     , L8_S020_G4, L8_S020_G6, L8_S020_G8);   prntPL_DL(str,1,0);
  sprintf(str," │лиц, принимаемых к расчету                       │     │         │              │           │              │           │              │           │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────┼─────┼─────────┼──────────────┼───────────┼──────────────┼───────────┼──────────────┼───────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │10%%(30%%) работников, имеющих наибольшие по       │ 030 │   чел.  │%14.14s│           │%14.14s│           │%14.14s│           │"                   , L8_S030_G4, L8_S030_G6, L8_S030_G8);   prntPL_DL(str,1,0);
  sprintf(str," │размеру доходы (стр.010х10%%(30%%):100%%)           │     │         │              │           │              │           │              │           │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────┼─────┼─────────┼──────────────┼───────────┼──────────────┼───────────┼──────────────┼───────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Суммы выплат 10%%(30%%) работников, имеющих        │ 040 │ руб.коп.│%14.14s│           │%14.14s│           │%14.14s│           │"                   , L8_S040_G4, L8_S040_G6, L8_S040_G8);   prntPL_DL(str,1,0);
  sprintf(str," │наибольшие по размеру доходы                     │     │         │              │           │              │           │              │           │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────┼─────┼─────────┼──────────────┼───────────┼──────────────┼───────────┼──────────────┼───────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Налоговая база, без учета выплат работникам,     │ 050 │ руб.коп.│%14.14s│           │%14.14s│           │%14.14s│           │"                     , L8_S050_G4, L8_S050_G6, L8_S050_G8);   prntPL_DL(str,1,0);
  sprintf(str," │имеющим наибольшие по размеру доходы             │     │         │              │           │              │           │              │           │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────┼─────┼─────────┼──────────────┼───────────┼──────────────┼───────────┼──────────────┼───────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Налоговая база в среднем на 1 работника          │ 060 │ руб.коп.│%14.14s│           │%14.14s│           │%14.14s│           │"                     , L8_S060_G4, L8_S060_G6, L8_S060_G8);   prntPL_DL(str,1,0);
  sprintf(str," │стр.050:(стр.010-стр.030)                        │     │         │              │           │              │           │              │           │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────┼─────┼─────────┼──────────────┼───────────┼──────────────┼───────────┼──────────────┼───────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Количество месяцев, истекших с начала налогового │ 070 │   мес.  │%14.14s│           │%14.14s│           │%14.14s│           │"                     , L8_S070_G4, L8_S070_G6, L8_S070_G8);   prntPL_DL(str,1,0);
  sprintf(str," │периода                                          │     │         │              │           │              │           │              │           │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────┼─────┼─────────┼──────────────┼───────────┼──────────────┼───────────┼──────────────┼───────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Налоговая база в среднем на 1 работника,         │ 080 │ руб.коп.│%14.14s│           │%14.14s│           │%14.14s│           │"                     , L8_S080_G4, L8_S080_G6, L8_S080_G8);   prntPL_DL(str,1,0);
  sprintf(str," │приходящаяся на один месяц в истекшем            │     │         │              │           │              │           │              │           │");   prntPL_DL(str,1,0);
  sprintf(str," │налоговом периоде (стр.060:стр.070)              │     │         │              │           │              │           │              │           │");   prntPL_DL(str,1,0);
  sprintf(str," └─────────────────────────────────────────────────┴─────┴─────────┴──────────────┴───────────┴──────────────┴───────────┴──────────────┴───────────┘");   prntPL_DL(str,1,0);
  sprintf(str,"   Достоверность и полноту сведений, указанных на данной странице, подтверждаю:                                                                      ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                             ┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐                                          ┌─┬─┐ ┌─┬─┐ ┌─┬─┬─┬─┐");   prntPL_DL(str,1,0);
  sprintf(str,"   Руководитель:      %-30.30s    ИНН  │ │ │ │ │ │ │ │ │ │ │ │ │  Подпись _________________________  Дата │%c│%c│ │%c│%c│ │%c│%c│%c│%c│              ", Ruk, StrDate[0], StrDate[1], StrDate[3], StrDate[4], StrDate[6], StrDate[7], StrDate[8], StrDate[9]);   prntPL_DL(str,1,0);
  sprintf(str,"                                                             └─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘                                          └─┴─┘ └─┴─┘ └─┴─┴─┴─┘");   prntPL_DL(str,1,0);
  sprintf(str,"                                                             ┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐                                          ┌─┬─┐ ┌─┬─┐ ┌─┬─┬─┬─┐");   prntPL_DL(str,1,0);
  sprintf(str,"   Главный бухгалтер: %-30.30s    ИНН  │ │ │ │ │ │ │ │ │ │ │ │ │  Подпись _________________________  Дата │%c│%c│ │%c│%c│ │%c│%c│%c│%c│              ", Glb, StrDate[0], StrDate[1], StrDate[3], StrDate[4], StrDate[6], StrDate[7], StrDate[8], StrDate[9]);   prntPL_DL(str,1,0);
  sprintf(str,"                                                             └─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘                                          └─┴─┘ └─┴─┘ └─┴─┴─┴─┘");   prntPL_DL(str,1,0);
  sprintf(str,"   По расчету на право применения регрессивных ставок единого социального налога, налогоплательщик в                                                 ");   prntPL_DL(str,1,0);
  sprintf(str,"   последнем квартале отчетного периода (нужное подчеркнуть):                                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"   1-й месяц имеет (не имеет) право на применение регрессивных ставок единого социального налога                                                     ");   prntPL_DL(str,1,0);
  sprintf(str,"             %s                                                                                                                                "      , PrRegMes1);   prntPL_DL(str,1,0);
  sprintf(str,"   2-й месяц имеет (не имеет) право на применение регрессивных ставок единого социального налога                                                     ");   prntPL_DL(str,1,0);
  sprintf(str,"             %s                                                                                                                                "      , PrRegMes2);   prntPL_DL(str,1,0);
  sprintf(str,"   3-й месяц имеет (не имеет) право на применение регрессивных ставок единого социального налога                                                     ");   prntPL_DL(str,1,0);
  sprintf(str,"             %s                                                                                                                                "      , PrRegMes3);   prntPL_DL(str,1,0);
  sprintf(str,"   _____________________________________________________   _____________     ________________________________                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"         должность работника Инспекции МНС России             подпись              расшифровка подписи                                               ");   prntPL_DL(str,1,0);
  sprintf(str,"   \"__\" _____________ 20__ года.                                                                                                                   ");   prntPL_DL(str,1,0);
  sprintf(str,"            (дата)                                                                                                                                   ");   prntPL_DL(str,1,0);

  int LastList=LIST[9]+LIST[10];
  if (LastList==0) { if (FLIST==1) { CFile_DL.ListFeed(); } } else { CFile_DL.ListFeed(); }

  } // end if LIST[8]



  if (LIST[9]==1) {

  char N_STR[10]; if (NL_DL==1) { nlist_DL++; sprintf(N_STR,"%2d",nlist_DL); } else { sprintf(N_STR,"%2s","  "); }

  sprintf(str,"                                                                        ┌─┬─┐                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                   Лист │ │9│                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                        └─┴─┘                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                        ┌─┬─┐                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                             Страница N │%c│%c│                                                                      ", N_STR[0], N_STR[1]);   prntPL_DL(str,1,0);
  sprintf(str,"                                                                        └─┴─┘                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                              ┌─┬─┬─┬─┬─┬─┬─┐                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                Форма по КНД  │1│1│5│1│0│5│0│                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                              └─┴─┴─┴─┴─┴─┴─┘                                                                        ");   prntPL_DL(str,1,0);
  sprintf(str,"   Выплаты в пользу работников, являющихся инвалидами I, II или III групп, включаемые в строку 0200 (код 090)                                        ");   prntPL_DL(str,1,0);
  sprintf(str," ┌─────┬──────────────────────────────┬─────────────────────────────────────────────┬───────────────────────────────────────────────────────────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │  N  │            Ф.И.О.            │     Справка учреждения медико-социальной    │        Выплаты работникам-инвалидам за отчетный период,       │");   prntPL_DL(str,1,0);
  sprintf(str," │ п/п │                              │                  экспертизы                 │                  включаемые в строку 0200                     │");   prntPL_DL(str,1,0);
  sprintf(str," │     │                              ├──────────────┬──────────┬───────┬───────────┼─────────────┬─────────────┬───────────────────────────────────┤");   prntPL_DL(str,1,0);         
  sprintf(str," │     │                              │    номер     │   дата   │груп-  │на какой   │    всего    │в том числе  │             Из него:              │");   prntPL_DL(str,1,0);
  sprintf(str," │     │                              │              │  выдачи  │па     │срок уста- │             │за последний ├───────────┬───────────┬───────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │     │                              │              │          │ивалид-│новлена ин-│             │квартал отч. │  1 месяц  │  2 месяц  │  3 месяц  │");   prntPL_DL(str,1,0);
  sprintf(str," │     │                              │              │          │ности  │валидность │             │  периода    │           │           │           │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────┼──────────────────────────────┼──────────────┼──────────┼───────┼───────────┼─────────────┼─────────────┼───────────┼───────────┼───────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │  1  │              2               │      3       │    4     │  5    │     6     │      7      │      8      │     9     │    10     │     11    │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────┼──────────────────────────────┼──────────────┼──────────┼───────┼───────────┼─────────────┼─────────────┼───────────┼───────────┼───────────┤");   prntPL_DL(str,1,0);
  if (CI==-1) {
  sprintf(str," │     │                              │              │          │       │           │             │             │           │           │           │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────┼──────────────────────────────┼──────────────┼──────────┼───────┼───────────┼─────────────┼─────────────┼───────────┼───────────┼───────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │     │                              │              │          │       │           │             │             │           │           │           │");   prntPL_DL(str,1,0);
  sprintf(str," ├─────┼──────────────────────────────┼──────────────┼──────────┼───────┼───────────┼─────────────┼─────────────┼───────────┼───────────┼───────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │Итого│              Х               │      Х       │    Х     │  Х    │      Х    │             │             │           │           │           │");   prntPL_DL(str,1,0);
  sprintf(str," └─────┴──────────────────────────────┴──────────────┴──────────┴───────┴───────────┴─────────────┴─────────────┴───────────┴───────────┴───────────┘");   prntPL_DL(str,1,0);
  }
  else 
  {
  double VSE=0.; double KVA=0.; double ME1=0.; double ME2=0.; double ME3=0.;
  char CVSE[20]; char CKVA[20]; char CME1[20]; char CME2[20]; char CME3[20]; 
  char tmpstr[20]; sprintf(tmpstr,"      -      ");
  CI_DL=CI+1;
  for (int i=0; i<CI+1; i++)
  {
  i_DL=i+1;
  tmp=INV_VSE[i]; if (nabs(tmp)>eps) sprintf(CVSE,"%13.2f",tmp); else sprintf(CVSE,"%s",tmpstr);
  tmp=INV_KVA[i]; if (nabs(tmp)>eps) sprintf(CKVA,"%13.2f",tmp); else sprintf(CKVA,"%s",tmpstr);
  tmp=INV_1ME[i]; if (nabs(tmp)>eps) sprintf(CME1,"%11.2f",tmp); else sprintf(CME1,"%s",TmpStr11);
  tmp=INV_2ME[i]; if (nabs(tmp)>eps) sprintf(CME2,"%11.2f",tmp); else sprintf(CME2,"%s",TmpStr11);
  tmp=INV_3ME[i]; if (nabs(tmp)>eps) sprintf(CME3,"%11.2f",tmp); else sprintf(CME3,"%s",TmpStr11);
  if (INVTYP==0)
  {
  sprintf(str," │%5d│%-30.30s│              │%-10.10s│%7d│           │%s│%s│%s│%s│%s│"                                                                               , i+1, INV_FIO[i], INV_DAT[i], INV_GRU[i], CVSE, CKVA, CME1, CME2, CME3);   prntPL_DL(str,1,1);
  }
  if (INVTYP==1)
  {
  sprintf(str," │%5d│%-30.30s│%-14.14s│%-10.10s│%7d│ %-10.10s│%s│%s│%s│%s│%s│"                                                                               , i+1, INV_FIO[i], INV_NOM[i], INV_DAT[i], INV_GRU[i], INV_KON[i], CVSE, CKVA, CME1, CME2, CME3);   prntPL_DL(str,1,1);
  }
  sprintf(str," ├─────┼──────────────────────────────┼──────────────┼──────────┼───────┼───────────┼─────────────┼─────────────┼───────────┼───────────┼───────────┤");   prntPL_DL(str,2,0);
  VSE+=INV_VSE[i]; KVA+=INV_KVA[i]; ME1+=INV_1ME[i]; ME2+=INV_2ME[i]; ME3+=INV_3ME[i];
  } // for
  char ICVSE[20]; tmp=VSE; if (nabs(tmp)>eps) sprintf(ICVSE,"%13.2f",tmp); else sprintf(ICVSE,"%s",tmpstr);
  char ICKVA[20]; tmp=KVA; if (nabs(tmp)>eps) sprintf(ICKVA,"%13.2f",tmp); else sprintf(ICKVA,"%s",tmpstr);
  char ICME1[20]; tmp=ME1; if (nabs(tmp)>eps) sprintf(ICME1,"%11.2f",tmp); else sprintf(ICME1,"%s",TmpStr11);
  char ICME2[20]; tmp=ME2; if (nabs(tmp)>eps) sprintf(ICME2,"%11.2f",tmp); else sprintf(ICME2,"%s",TmpStr11);
  char ICME3[20]; tmp=ME3; if (nabs(tmp)>eps) sprintf(ICME3,"%11.2f",tmp); else sprintf(ICME3,"%s",TmpStr11);
  sprintf(str," │Итого│              Х               │       Х      │    Х     │   Х   │     Х     │%s│%s│%s│%s│%s│"                                                       , ICVSE, ICKVA, ICME1, ICME2, ICME3);   prntPL_DL(str,1,0);
  sprintf(str," └─────┴──────────────────────────────┴──────────────┴──────────┴───────┴───────────┴─────────────┴─────────────┴───────────┴───────────┴───────────┘");   prntPL_DL(str,1,2);
  } // if else

  sprintf(str,"                                                                                                                                                     ");   prntPL_DL(str,1,0);
  sprintf(str,"   Расчет условий на право предоставления налоговых льгот, установленных подпунктом 2 пункта 1 статьи 239 Налогового кодекса Российской Федерации    ");   prntPL_DL(str,1,0);
  sprintf(str," ┌─────────────────────────────────────────────────────────────────────────────────────────┬──────┬─────────────────────────────────────────┐        ");   prntPL_DL(str,1,0);
  sprintf(str," │                                     Наименование показателя                             │ Код  │   Последний квартал отчетного периода   │        ");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                                         │строки├─────────────┬─────────────┬─────────────┤        ");   prntPL_DL(str,1,0);
  sprintf(str," │                                                                                         │      │   1 месяц   │   2 месяц   │   3 месяц   │        ");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────────────────────┼──────┼─────────────┼─────────────┼─────────────┤        ");   prntPL_DL(str,1,0);
  sprintf(str," │                                                1                                        │  2   │      3      │      4      │      5      │        ");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────────────────────┼──────┼─────────────┼─────────────┼─────────────┤        ");   prntPL_DL(str,1,0);
  sprintf(str," │I.Для общественных организаций инвалидов (в том числе созданных как союзы общественных   │      │             │             │             │        ");   prntPL_DL(str,1,0);
  sprintf(str," │организаций инвыалидов)                                                                  │      │             │             │             │        ");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────────────────────┼──────┼─────────────┼─────────────┼─────────────┤        ");   prntPL_DL(str,1,0);
  sprintf(str," │Численность членов организации, всего (чел.)                                             │ 110  │             │             │             │        ");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────────────────────┼──────┼─────────────┼─────────────┼─────────────┤        ");   prntPL_DL(str,1,0);
  sprintf(str," │из них: Численность инвалидов и их законных представителей (чел.)                        │ 120  │             │             │             │        ");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────────────────────┼──────┼─────────────┼─────────────┼─────────────┤        ");   prntPL_DL(str,1,0);
  sprintf(str," │Удельный вес, %%(стр.120 / стр.110) х 100                                                 │ 130  │             │             │             │       ");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────────────────────┼──────┼─────────────┼─────────────┼─────────────┤        ");   prntPL_DL(str,1,0);
  sprintf(str," │II.Для организаций, уставный капитал которых полностью состоит из вкладов общественных   │      │             │             │             │        ");   prntPL_DL(str,1,0);
  sprintf(str," │организаций инвалидов                                                                    │      │             │             │             │        ");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────────────────────┼──────┼─────────────┼─────────────┼─────────────┤        ");   prntPL_DL(str,1,0);
  sprintf(str," │Среднесписочная численность, всего (чел.)                                                │ 140  │             │             │             │        ");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────────────────────┼──────┼─────────────┼─────────────┼─────────────┤        ");   prntPL_DL(str,1,0);
  sprintf(str," │из них: Среднесписочная численность инвалидов (чел.)                                     │ 150  │             │             │             │        ");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────────────────────┼──────┼─────────────┼─────────────┼─────────────┤        ");   prntPL_DL(str,1,0);
  sprintf(str," │Удельный вес, %%(стр.150 / стр.140) х 100                                                 │ 160  │             │             │             │       ");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────────────────────┼──────┼─────────────┼─────────────┼─────────────┤        ");   prntPL_DL(str,1,0);
  sprintf(str," │Фонд оплаты труда, всего (руб.коп.)                                                      │ 170  │             │             │             │        ");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────────────────────┼──────┼─────────────┼─────────────┼─────────────┤        ");   prntPL_DL(str,1,0);
  sprintf(str," │из них: Фонд оплаты труда инвалидов (руб.коп.)                                           │ 180  │             │             │             │        ");   prntPL_DL(str,1,0);
  sprintf(str," ├─────────────────────────────────────────────────────────────────────────────────────────┼──────┼─────────────┼─────────────┼─────────────┤        ");   prntPL_DL(str,1,0);
  sprintf(str," │Удельный вес заработной платы инвалидов, %%(стр.180 / стр.170)                            │ 190  │             │             │             │       ");   prntPL_DL(str,1,0);
  sprintf(str," └─────────────────────────────────────────────────────────────────────────────────────────┴──────┴─────────────┴─────────────┴─────────────┘        ");   prntPL_DL(str,1,0);

  int LastList=LIST[10];
  if (LastList==0) { if (FLIST==1) { CFile_DL.ListFeed(); } } else { CFile_DL.ListFeed(); }

  } // end if LIST[9]



  if (LIST[10]==1) {

  char N_STR[10]; if (NL_DL==1) { nlist_DL++; sprintf(N_STR,"%2d",nlist_DL); } else { sprintf(N_STR,"%2s","  "); }

  sprintf(str,"                                                                        ┌─┬─┐                                      ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                   Лист │1│0│                                      ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                        └─┴─┘                                      ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                        ┌─┬─┐                                      ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                             Страница N │%c│%c│                                    ", N_STR[0], N_STR[1]);   prntPL_DL(str,1,0);
  sprintf(str,"                                                                        └─┴─┘                                      ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                              ┌─┬─┬─┬─┬─┬─┬─┐                                      ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                Форма по КНД  │1│1│5│1│0│5│0│                                      ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                              └─┴─┴─┴─┴─┴─┴─┘                                      ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                   ");   prntPL_DL(str,1,0);
  sprintf(str," III. Примечание к разделу II (код 200)                                                                            ");   prntPL_DL(str,1,0);
  sprintf(str," ┌────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐");   prntPL_DL(str,1,0);
  sprintf(str," │ Перечень организаций, вклады которых составляют уставный капитал организаций, претендующих на право применения │");   prntPL_DL(str,1,0);
  sprintf(str," │                                         налоговой льготы по разделу II                                         │");   prntPL_DL(str,1,0);
  sprintf(str," ├───────┬────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │ N п/п │                                      Название организации                                              │");   prntPL_DL(str,1,0);
  sprintf(str," ├───────┼────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);                      
  sprintf(str," │       │                                                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," ├───────┼────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │       │                                                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," ├───────┼────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │       │                                                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," ├───────┼────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │       │                                                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," ├───────┼────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │       │                                                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," ├───────┼────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │       │                                                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," ├───────┼────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │       │                                                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," ├───────┼────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │       │                                                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," ├───────┼────────────────────────────────────────────────────────────────────────────────────────────────────────┤");   prntPL_DL(str,1,0);
  sprintf(str," │       │                                                                                                        │");   prntPL_DL(str,1,0);
  sprintf(str," └───────┴────────────────────────────────────────────────────────────────────────────────────────────────────────┘");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                   ");   prntPL_DL(str,1,0);
  sprintf(str,"   По расчету на право применения льгот, установленных подпунктом 2 пункта 1 статьи 239 Налогового кодекса         ");   prntPL_DL(str,1,0);
  sprintf(str,"   Российской Федерации, налогоплательщик в последнем квартале отчетного периода (нужное подчеркнуть):             ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                   ");   prntPL_DL(str,1,0);
  sprintf(str,"   1-й месяц имеет (не имеет) право на применение льгот                                                            ");   prntPL_DL(str,1,0);
  sprintf(str,"   2-й месяц имеет (не имеет) право на применение льгот                                                            ");   prntPL_DL(str,1,0);
  sprintf(str,"   3-й месяц имеет (не имеет) право на применение льгот                                                            ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                   ");   prntPL_DL(str,1,0);
  sprintf(str,"   ________________________________________   _______     ___________________                                      ");   prntPL_DL(str,1,0);
  sprintf(str,"   должность работника Инспекции МНС России   подпись     расшифровка подписи                                      ");   prntPL_DL(str,1,0);
  sprintf(str,"                                                                                                                   ");   prntPL_DL(str,1,0);
  sprintf(str,"   \"__\" _____________ 20__ года.                                                                                 ");   prntPL_DL(str,1,0);
  sprintf(str,"           (дата)                                                                                                  ");   prntPL_DL(str,1,0);


  if (FLIST==1) CFile_DL.ListFeed();

  } // end if LIST[10]
  } // end if EXCEL==0

  if (EXCEL==1)
  {
    var xls=CreateObject("Excel.Application");
    try
    {
//    xls.Visible=true;
    char Dir[128];
    GetCurrentDirectory(128,Dir);
    string nm="RASESN.XLS";
    var WorkDir = Dir + "\\";
    xls.Caption="╨рёўхЄ яю ртрэёют√ь яырЄхцрь яю ┼╤═";
    xls.Workbooks.Add(WorkDir+nm);

    string name=xls.Workbooks.Item(1).Name;

    string tString;

    // 1-й лист
    OemToChar(Nni,Nni);
    OemToChar(Org,Org);
    OemToChar(Ruk,Ruk);
    OemToChar(Glb,Glb);
    char god1[10]; sprintf(god1,"%c%c", edat[5], edat[6]);
    char TmpChar[10];
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("C10").Value=MesPer1;
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("X10").Value=static_cast_to_string(god1);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("L14").Value=static_cast_to_string(Nni);
    sprintf(TmpChar,"%c",Cni[0]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BO14").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Cni[1]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BR14").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Cni[2]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BT14").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Cni[3]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BV14").Value=static_cast_to_string(TmpChar);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AC16").Value=vOrg[0];
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AW16").Value=vOrg[1];
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BO16").Value=vOrg[3];
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AE20").Value=vOrg[2];
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("B26").Value=static_cast_to_string(Org);
    if (ORG!=3) { 
    sprintf(TmpChar,"%c",Inn[0]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range( "Z29").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[1]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AD29").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[2]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AG29").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[3]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AK29").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[4]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AO29").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[5]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AS29").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[6]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AW29").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[7]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AZ29").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[8]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BD29").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[9]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BG29").Value=static_cast_to_string(TmpChar);

    sprintf(TmpChar,"%c",Kpp[0]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("L31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kpp[1]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("M31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kpp[2]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("N31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kpp[3]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("O31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kpp[4]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("P31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kpp[5]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("R31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kpp[6]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("U31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kpp[7]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("W31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kpp[8]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("Y31").Value=static_cast_to_string(TmpChar);

    sprintf(TmpChar,"%c",Kop[0]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AE31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kop[1]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AG31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kop[2]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AJ31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kop[3]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AN31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kop[4]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AQ31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kop[5]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AT31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kop[6]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AW31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kop[7]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AY31").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Kop[8]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BC31").Value=static_cast_to_string(TmpChar);
    }


    if (ORG==3) {
    sprintf(TmpChar,"%c",Inn[0]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("N34").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[1]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("O34").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[2]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("P34").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[3]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("R34").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[4]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("U34").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[5]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("W34").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[6]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("Y34").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[7]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AA34").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[8]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AE34").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[9]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AG34").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[10]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AJ34").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Inn[11]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("AN34").Value=static_cast_to_string(TmpChar);
    }
    if (ORG!=3) 
    {
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("K42").Value=static_cast_to_string(Ruk);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("M45").Value=static_cast_to_string(Glb);
    sprintf(TmpChar,"%c",Iru[0]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("F44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Iru[1]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("H44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Iru[2]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("J44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Iru[3]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("L44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Iru[4]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("M44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Iru[5]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("N44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Iru[6]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("O44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Iru[7]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("P44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Iru[8]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("R44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Iru[9]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("U44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Iru[10]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("W44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Iru[11]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("Y44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[0]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BI44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[1]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BL44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[3]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BQ44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[4]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BS44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[6]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BW44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[7]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BZ44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[8]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("CB44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[9]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("CE44").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Igl[0]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("F47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Igl[1]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("H47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Igl[2]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("J47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Igl[3]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("L47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Igl[4]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("M47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Igl[5]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("N47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Igl[6]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("O47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Igl[7]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("P47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Igl[8]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("R47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Igl[9]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("U47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Igl[10]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("W47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",Igl[11]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("Y47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[0]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BI47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[1]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BL47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[3]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BQ47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[4]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BS47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[6]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BW47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[7]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BZ47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[8]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("CB47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[9]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("CE47").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[0]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BI50").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[1]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BL50").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[3]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BQ50").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[4]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BS50").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[6]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BW50").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[7]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BZ50").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[8]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("CB50").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[9]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("CE50").Value=static_cast_to_string(TmpChar);
    }
    else
    {
    sprintf(TmpChar,"%c",StrDate[0]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BI52").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[1]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BL52").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[3]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BQ52").Value=static_cast_to_string(TmpChar);
    sprintf(TmpChar,"%c",StrDate[4]);
    xls.Workbooks.Item(name).Worksheets.Item(1).Range("BS52").Value=static_cast_to_string(TmpChar);
  