* =========================================================================== 
 *   Просмотр файлов неограниченной длины. Адаптация под стиль Жукова Андрея 
 *   программы Станислава Кросмана, а также исправление логических ошибок. 
 *   !!! Для xHarbour не удалось заставить работать - заменил редактированием. 
 * =========================================================================== 
 #include "function.ch" 
  
 #define ATNUM(d,c,b,e)          IF(At(d,Subs(c,e+1))==0,0,At(d,Subs(c,e+1))+nPointer-1) 
  
 * #define BUFFER 4096             // Размер считываемого в начале буфера 
 * #define BUFFER2 2048            // Размер считываемого куска файла 
 * #define CRITICAL_LENTH 256      // Размер максимальной длины строки 
  
 ****    09.2001 Переделал старые установки т.к. вылетал при просмотре больших файлов 
 ****    после чего программа стала работать более стабильно. 
 ****    ? Не понятно как повлияли данные размеры и почему. Память ОЗУ не менялась. 
 #define BUFFER 2048             // Размер считываемого в начале буфера 
 #define BUFFER2 1024            // Размер считываемого куска файла 
 #define CRITICAL_LENTH 512      // Размер максимальной длины строки 
  
 STAT   nH                       // handler файла 
 STAT   nPointer                 // Указатель в файле 
  
 // Флаг позиции в файле(0-достигнуто начало файла,1-внутри файла,2-достигнут конец файла) 
 STAT   nFl_pos 
 STAT   cStr                     // Строка-буфер 
 STAT   nStrPoint:=1             // Указатель в строке 
  
 // Флаг позиции в строке-буфере(0-начало строки,1-внутри строки,2-достигнут конец строки) 
 STAT   nFf_pos 
 STAT   lFl_direction            // Направление последнего перемещения 
 STAT   nLenFile                 // Длина текстового файла. 
  
 // Отладочный пример. Даем параметры и вызываем функцию просмотра 
 PROC M__12__34_(); SET SCOR OFF; Wboard(); CLS; lLookFile("LOOPFILE.PRG",1,2,22,73,"RG+/B") 
     RETU 
  
 /* 
     Функция просмотра текстовых файлов неогран.длины при помощи обьекта-таблицы. 
     Параметры: Имя файла, координаты окна, цвет отображения текста. 
     Возврашает значиние ложь при обнаружении ошибки. 
 */ 
 FUNC lLookFile( cFile, nX, nY, nDx, nDy, cCol ) 
     LOCA x:=2, y:=2, x1:=nX+nDx-2, y1:=nY+nDy-2, nOldCur:=SetCursor() 
     LOCA cOldCol:=SetColor(), oB, oC, ik:=0 // Обьекты 
     PRIV GetList:={} 
     DEFAULT nX TO 0, nY TO 0, nDx TO 24, nDy TO 79, cCol TO "W/N" 
  
     fSwopen( nX, nY, nDx, nDy, cCol, 4 ) 
     @ 0,nY+nDy-42 SAY " Home-начало End-конец строки Esc - выход " 
     SetCursor( 0 ) 
  
     nH  := Fopen(cFile, FO_READ)            // Просматриваемый файл только для чтения 
     IF nH == -1 THEN RETU FALSE             // Ошибка при открытии файла. 
     nLenFile    := Fseek( nH, 0, FS_END)    // Вымеряем длину файла. 
  
     Go_home()                       // Устанавливаем указатель на начало файла 
  
     oB  := TBrowseNew(x, y, x1, y1) 
  
     //      Блоки кода перемещения по сканируемой строке. 
     oB:goTopBlock   := {|| Go_home() } 
     oB:goBottomBlock:= {|| Go_end() } 
     oB:skipBlock    := {|nSkip| Skipp(nSkip) } 
  
     // Колонка - извлеченная из строки буфера строка. 
     oC      := tbColumnNew("",{|| Take_str() }) // Пока без заголовка колонки. 
     oC:width:= y1 - y + 1 
     oB:addColumn( oC ) 
     oB:autolite := FALSE    // Не выделять текущую строку в процессе стабилизации. 
  
     // Начало обработки табличного обьекта. 
     WHIL TRUE 
         DispBegin() 
         WHIL !oB:stabilize() .AND. NextKey()==0 // Выполняем цикл стабилизации 
         ENDD 
         @ 0,1 SAY " "+IF(nFl_pos==0,"  0",IF(nFl_pos==2,"100",cProc()))+"% " 
         DispEnd() 
         IF ( ik:=Inkey(0) ) == K_ESC THEN EXIT 
  
         DO CASE                 // Обрабатываем нажатую клавишу. 
         CASE ik == K_LEFT 
             IF nStrPoint > 1    // Можно перемещаться еще влево. 
                 nStrPoint-- 
                 oB:refreshAll() 
             ENDI 
         CASE ik == K_RIGHT      // След. можно уходить за границу текста 256 знаков. 
             nStrPoint++ 
             oB:refreshAll() 
         CASE ik == K_PGDN 
             oB:rowPos   := oB:rowCount  // Текущая строка = количеству видим.строк 
             IF !oB:hitBottom    THEN oB:pageDown() 
         CASE ik == K_PGUP 
             oB:rowPos   := 1 
             IF !oB:hitTop       THEN oB:pageUp() 
         CASE ik == K_UP 
             oB:rowPos   := 1 
             oB:up(); oB:up() 
         CASE ik == K_DOWN 
             oB:rowPos   := oB:rowCount 
             oB:down(); oB:down() 
         CASE ik == K_CTRL_PGUP 
             IF !oB:hitTop       THEN oB:goTop() 
         CASE ik == K_HOME 
             IF nStrPoint <> 1 
                 nStrPoint   := 1 
                 oB:refreshAll() 
             ENDI 
         CASE ik == K_CTRL_PGDN 
             IF !oB:hitBottom    THEN oB:goBottom() 
         CASE ik == K_END 
             nStrPoint   += Max(0,60-nStrPoint) 
             oB:refreshAll() 
 *            oB:panEnd()    //  Эта запись вместо двух была в оригинале текста. 
         ENDC 
     END 
  
     Fclose( nH )            // Закрываем файл 
     fDeact( cOldCol )       // Закрываем окно. 
     SetCursor( nOldCur ) 
     RETU TRUE 
  
 /* 
         Начальное считывание из файла и перерисовка экрана. 
 */ 
 STAT FUNC Go_home() 
     nPointer    := 1                // Указатель в просматриваемом файле. 
     nFl_pos     := nFf_pos  := 0    // Позиция в буфере и файле. 
     lFl_direction           := TRUE // Направление последнего перемещения. 
  
     Fseek( nH, 0, FS_SET )          // Позиционируемся в начало файла. 
     cStr        := FreadStr( nH, BUFFER )   // Начальное чтение 
     RETU NIL 
  
 /* 
     Чтение с конца файла символов согласно размеру буфера и установ параметров 
 */ 
 STAT FUNC Go_end() 
     LOCA nI:=0, nJ := Fseek( nH, 0, FS_END)     // Вымеряем длину файла. 
  
     Fseek( nH, -Min(BUFFER,nJ), FS_END )        // От какого места берем в буфер 
     cStr    := FreadStr( nH, Min(BUFFER,nJ) )   // Считали в сканируюмую строку 
     Fseek( nH, 0, FS_END )                      // Ушли на конец файла. 
  
     nI      := Rat( CRLF, cStr ) 
     nPointer:= IF(/*есть еще знак конца строки CRLF*/ nI<>0, nI+2, 1 ) 
     nFl_pos := nFf_pos  := 2    // Признаки достижения конца строки и файла. 
     lFl_direction       := TRUE 
     RETU NIL 
  
 /* 
     Перемещение по таблице на nN строк. Направление зависит от знака nN. 
 */ 
 STAT FUNC Skipp( nN ) 
     LOCA nI := 0 
  
     IF nN >= 0  // Перемещение вниз по таблице 
          FOR nI:=1 TO nN 
             IF !Skipp_down()    THEN nN := nI-1 // Достигнут конец файла. 
          NEXT nI 
     ELSE        // Перемещаемся вверх по таблице. 
          nN := -nN 
          FOR nI:=1 to nN 
             IF !Skipp_up()      THEN nN := nI-1 // Достижение начала файла. 
          NEXT nI 
          nN := -nN 
     ENDI 
     RETU nN     // На сколько сумели сдвинуться. 
  
 /* 
         Перемещение на одну строку вниз по таблице (строке-буфере,файлу). 
 */ 
 STAT FUNC Skipp_down() 
     LOCA nI := ATNUM( CRLF, cStr, 1, nPointer-1 ) 
  
     IF nFl_pos == 2 THEN RETU FALSE // Ранее достигли конца файла. 
  
     // Необходима подкачка в буферную строку и есть для этого возможность. 
     IF nI == 0/*нет строк вывода*/ .AND. nFf_pos <> 2 /*находимся внутри файла*/ 
         Driver( TRUE )  // Читаем вниз по файлу. Пополняем cStr. 
         nI  := ATNUM(CRLF,cStr,1,nPointer-1) 
     ENDI 
  
     // Дальше некуда. Из файла считали все до самого его конца. 
     IF nI == 0 THEN nFl_pos:=2/*достигли конца файла*/; RETU FALSE 
  
     nPointer    := nI+2 // Перемещаем указатель 
     nFl_pos     := 1    // Шагаем внутри файла. 
     RETU TRUE 
  
 /* 
         Перемещение на одну строку вверх по таблице (строке-буферу,файлу) 
 */ 
 STAT FUNC Skipp_up() 
     LOCA nI := 0 
  
     IF nFl_pos == 0 THEN RETU FALSE             // Уже в начале строки. 
  
     nI  := Rat( CRLF, Left(cStr,nPointer-2) )   // Последнее вхождение CRLF 
     IF nI == 0 .AND. nFf_pos <> 0   // Нужна и возможна подкачка из файла. 
         Driver(FALSE)    // Читаем вверх. 
         nI   := Rat( CRLF, Left(cStr,nPointer-2) ) 
     ENDI 
  
     IF  nI == 0     // Более читать нечего. Достигли самого начала файла. 
         nPointer := 1 
         nFl_pos  := 0 
         RETU TRUE   // При след.вызове проанализирует nFl_pos 
     ENDI 
  
     nPointer    := nI+2 
     nFl_pos     := 1 
     RETU TRUE 
  
 /* 
     Возвращает строку просмотра в табличный обьект. 
 */ 
 STAT FUNC Take_str() 
     LOCA cSss:="", nI:=ATNUM( CRLF, cStr, 1, nPointer-1 ) 
  
     // Нет отдельной строки, а подкачать можно т.к. не достигнут конец файла. 
     IF (nI==0) .AND. (nFf_pos <> 2) 
        Driver( TRUE )   // Подкачиваем из буфера в cStr и изменяем указатель nPointer. 
        nI   := ATNUM( CRLF, cStr, 1, nPointer-1 ) 
     ENDI 
  
     IF nI == 0  // Более нет текстовых строк ниже указателя. 
         cSss    := Subs( Subs(cStr,nPointer), nStrPoint ) 
     ELSE 
         cSss    := Subs( Subs(cStr,nPointer,nI-nPointer), nStrPoint ) 
     ENDI 
     nI      := At(CRLF,cSss) 
     cSss    := Left( cSss+Spac(CRITICAL_LENTH), CRITICAL_LENTH )+CRLF 
     RETU cSss   //tabexpand(sss) 
  
 /* 
     Драйвер подкачки из текстового файла в сканируемую строку. Параметр 
     определяет направление просмотра. Истина читаем текст вниз по файлу. 
 */ 
 STAT FUNC Driver( lPar ) 
     LOCA cBuf:="", nI:=0, nJ:=0, nK:=0, nL:=0 
  
     nFf_pos := 1    // Просмотр производится внутри строки. 
  
     IF lPar .AND. nFf_pos <> 2  // Смотрим вниз, но конца файла не достигли. 
         IF !lFl_direction       // Идем в конец. 
             Fseek( nH, Len(cStr), FS_RELATIVE ) // С текущего места. 
             lFl_direction   := TRUE 
         ENDI 
         IF Len( cBuf:=FreadStr(nH,BUFFER2) ) <> BUFFER2 THEN nFf_pos:=2 
  
         cStr        := Right( cStr, Len(cStr) - Len(cBuf) ) + cBuf 
         nPointer    -= Len(cBuf) 
         // nPointer    += Len(cBuf) 
  
     ELSEIF nFf_pos <> 0         // Нет еще начала файла. Просмотр идет вверх. 
         IF lFl_direction        // Идем в начало файла. 
             Fseek( nH, -Len(cStr), FS_RELATIVE ) 
             lFl_direction   := FALSE 
         ENDI 
         nI  := Fseek( nH, -Min((nL:=Fseek(nH,0,FS_RELATIVE)),BUFFER2), FS_RELATIVE) 
         IF nI == 0  // Дальше некуда. 
             nFf_pos := 0 
             nJ      := nL - nI 
         ELSE 
             nJ      := BUFFER2 
         ENDI 
         /* 
             nJ - реальное значение, на которое удалось передвинуться, 
             nL - старое значение указателя в файле, 
             считываем строку 
         */ 
         cBuf    := FreadStr( nH, nJ ) 
         Fseek( nH, nI, FS_SET ) 
  
         cStr    := cBuf+Left(cStr,Len(cStr)-nJ) // корректируем строку 
         nPointer+=nJ 
     ENDI 
     RETU NIL 
  
 /* 
    Расчет и возврат процента прочтения текста из файла по статическим переменным 
 */ 
 STAT FUNC cProc() 
     LOCA nCur := Fseek( nH, 0, FS_RELATIVE ) 
     RETU Str( zInt(nCur*100/nLenFile), 3 ) 
  
 

 
  
 * --------------------------------------------------------------------------- 
 *   Оборотная ведомость по финансовым операциям. Анализ кассы, банка по осно- 
 *   ваниям документов. 
 *   03.2007 Доб. коррекцию начального сальдо. Работа по нескольким расч/счетам 
 STAT PROC pObFins() 
     LOCA cOldCol:=SetColor(), GetList:={}, dD:=Date(), dT:=Date(), nN:=0, nS:=0, cT:="" 
     LOCA dBeg:=Date(), dEnd:=Date(), nPer:=1, nCash:=3, cReas:=Spac(15), nSaldo:=0 
     LOCA nBeg:=0, nEnd:=0, nPrih:=0, nRash:=0, np:=0, nr:=0 
     LOCA nStr:=99999, nPage:=0, nC:=0, nJ:=0, nRep:=77 
     LOCA cDbf:="", cNtx:="", cTxt:="" 
     LOCA aArr:={{"dMove",   "D",    8,  0},; 
                 {"sum",     "N",    15, 2},;    //  Приход 
                 {"sumPut",  "N",    15, 2}}     //  Расход 
     LOCA sOp:="7655", cOff:=" " 
     S_PROC 
     cSent3  := Spac(25) 
  
     //  Из ЭФ читаем параметры построения отчета. 
     fsWopen(16,18,7,59,cColor,2) 
     @ 1,1 SAY "Пожалуйста вв. дату начала ........ конца ........ периода" 
     @ 2,1 SAY "Цифру 1-Касса,2-Банк,3-Все . Длину подпериода(0-месяц) ..." 
     @ 3,1 SAY "Набор букв основания документов или ничего ..............." 
     @ 4,1 SAY "Набор букв сист.метки (F3)       ........................." 
     @ 5,1 SAY "Коррекция для начального сальдо по кассе/банку ..........." 
     @ 6,1 SAY "Разделитель чисел для экспорта в MsOffice или ничего     ." 
     @1,28 GET dBeg                  VALI lValid({||dBeg<=Date()},"Больше текущей!") 
     @1,43 GET dEnd                  VALI lValid({||dBeg<=dEnd},"Меньше начальной!") 
     @2,28 GET nCash     PICT "9"    VALI Eval({||nSaldo:=IF(nCash=1,nCashSaldo,IF(nCash=2,nBankSaldo,nCashSaldo+nBankSaldo)),TRUE}) 
     @2,56 GET nPer      PICT "999"  VALI lValid({||nPer>=0},"Отрицательная длина периода!") 
     @3,44 GET cReas 
     @4,34 GET cSent3    PICT "@S25" 
     @5,48 GET nSaldo    PICT "99999999.99" 
  
 ***** Поведение зависит от введенного символа (глюки только, если точка или запятая) 
     @6,58 GET cOff      PICT "X" 
     READ 
     fDeact(cOldCol) 
     cReas   := Upper(Alltrim(cReas)) 
     cSent3  := Upper(Alltrim(cSent3)) 
     AP__INPUT 
  
 ***** В принципе данная вставка решает проблему ****** изначально её не было и пока всё не переделал 
     IF LastKey() == 44 .OR. LastKey() == 46 
         KEYB Chr(K_ENTER) 
         Inkey(0) 
     ENDI 
 ******************************************** далее постороение отчета - некой вспомогательной таблицы 
  
     //  Настройка баз, расчет бегунка и т/д 
     fTxt_act("    Пожалуйста подождите несколько минут!",cColor) 
     nBeg    := nSaldo 
     SELE CASH_ORD ORDE CO_DAT_NUMBER 
     IF nCash <> 2 
         COUNT TO nC WHIL dat <= dEnd 
     ENDI 
     SELE ACCOUNT  ORDE A_DAT_NUMBER 
     IF nCash <> 1 
         COUNT TO nN WHIL dat <= dEnd 
     ENDI 
     nC  += nN 
  
     cDbf    := zTemp(cdTemp,"DBF",32) 
     cNtx    := zTemp(cdTemp,"NTX",32) 
     cTxt    := zTemp(cdTemp,"TXT",32) 
  
     DbCreate(cDbf,aArr) 
     LanUse("",cDbf,NO_INDEX,"TEMP",EXCL_MODE,-1,NEW_SEL) 
     INDE ON dMove       TO (cNtx) 
     fDeact( cOldCol ) 
  
     //  Построение временной базы на основе первичных документов. 
     pOpenView(cColor,cError,"Подождите! Строю оборотку по деньгам",TRUE) 
     FOR nN := 1 TO 2 
         IF nCash == 1 .AND. nN == 2 THEN LOOP 
         IF nCash == 2 .AND. nN == 1 THEN LOOP 
         DbSelectArea( IF(nN=1,"CASH_ORD","ACCOUNT") ) 
         DbGoTop() 
         DO WHIL !Eof() .AND. dat <= dEnd 
             pChangeView(++nJ*100/nC) 
             IF Empty(datPay)                                    THEN DbSkip(); LOOP 
             IF !Empty(cReas) .AND. At(cReas,Upper(reason)) <= 0 THEN DbSkip(); LOOP 
             IF !Empty(cSent3) .AND. At(cSent3,Upper(lab1)) <= 0 THEN DbSkip(); LOOP 
  
             //  Расчет начального сальдо. 
             IF dat < dBeg 
                 nBeg += IF(tip=="1",(+1),(-1))*sum 
                 DbSkip() 
                 LOOP 
             ENDI 
  
             //  Обработка операции. Добавляю при необходимости запись во времянку 
             dD  := dat 
             nS  := sum 
             cT  := tip 
             SELE TEMP SEEK dD 
             IF Eof() 
                 DbAppend() 
                 dMove   := dD 
             ENDI 
             IF cT == "1" 
                 sum     += nS 
             ELSE 
                 sumPut  += nS 
             ENDI 
  
             DbSelectArea( IF(nN=1,"CASH_ORD","ACCOUNT") ) 
             DbSkip() 
         ENDD 
     NEXT nN 
  
 ****** Отчет (таблица) преобразовывается в текстовый файл, который затем отражаю через набор устройств 
     //  Вывожу отчет в текстовый файл, считая итоги по подпериодам. 
     SELE TEMP TOP 
     dT      := Max(dBeg,dMove) 
     dD      := Min(IF(nPer==0,Eom(dT),dT+nPer-1),dEnd) 
     O____A 
  
 ****** В принципе на эту верку попадаю, когда определяю знак разделитель в форме, но проверял в "обычных" вариантах - такая же херь 
     IF !Empty(cOff)     //  Экспорт в офис 
         ? "Оборотная ведомость по "+IF(nCash=1,"кассе",IF(nCash=2,"банку","деньгам"))+" с "+Dtoc(dBeg)+" по "+Dtoc(dEnd) 
         ? "  Подпериод времени   Ост. на начало    Приход       Расход     Ост.на конец " 
         DO WHIL !Eof() 
             X_DEMO 
  
             IF dMove > dD   //  Перешли в другой подпериод. Отражаем итоги. 
                 ? IF(nPer==0,Left(zCmonth(dT)+Spac(17),17)+Str(Year(dT),4),Dtoc(dT)+"  -  "+Dtoc(dD))+" "+zStr(nBeg,14,2,cOff)+" "+zStr(np,12,2,cOff)+"  
  
 "+zStr(nr,12,2,cOff)+" "+zStr(nBeg+np-nr,14,2,cOff) 
                 nBeg    += np - nr 
                 np      := nr   := 0 
                 dT      := dMove 
                 dD      := Min(IF(nPer==0,Eom(dT),dT+nPer-1),dEnd) 
                 ++nStr 
             ENDI 
  
             //  Считаем параметры. 
             np      += sum 
             nr      += sumPut 
             DbSkip() 
         ENDD 
  
         //  Отражаю данные по последнему периоду и общие итоги. 
         ? IF(nPer==0,Left(zCmonth(dT)+Spac(17),17)+Str(Year(dT),4),Dtoc(dT)+"  -  "+Dtoc(dD))+" "+zStr(nBeg,14,2,cOff)+" "+zStr(np,12,2,cOff)+" "+zStr(nr,12,2,cOff)+"  
  
 "+zStr(nBeg+np-nr,14,2,cOff) 
         ? Chr(12) 
 *********** 
     ELSE                //  Печатаемый формат 
         DO WHIL !Eof() 
             X_DEMO 
  
             //  Выводим шапку, если надо. 
             IF nStr > nLenst 
                 IF nPage > 0 THEN Qout(Chr(12)) 
                 ? Padc("Оборотная ведомость по "+IF(nCash=1,"кассе",IF(nCash=2,"банку","деньгам"))+" с "+Dtoc(dBeg)+" по  
  
 "+Dtoc(dEnd),nRep-7)+"Стр."+Str(++nPage,3) 
                 ? Repl("-",nRep) 
                 ? "  Подпериод времени  |Ост. на начало|   Приход   |   Расход   | Ост.на конец " 
                 ? Repl("-",nRep) 
                 nStr    := 4 
             ENDI 
  
             IF dMove > dD   //  Перешли в другой подпериод. Отражаем итоги. 
                 ? IF(nPer==0,Left(zCmonth(dT)+Spac(17),17)+Str(Year(dT),4),Dtoc(dT)+"  -  "+Dtoc(dD))+" "+cStr(nBeg,14,2)+" "+cStr(np,12,2)+" "+cStr(nr,12,2)+"  
  
 "+cStr(nBeg+np-nr,14,2) 
                 nBeg    += np - nr 
                 np      := nr   := 0 
                 dT      := dMove 
                 dD      := Min(IF(nPer==0,Eom(dT),dT+nPer-1),dEnd) 
                 ++nStr 
             ENDI 
  
             //  Считаем параметры. 
             np      += sum 
             nr      += sumPut 
             nPrih   += sum 
             nRash   += sumPut 
             DbSkip() 
         ENDD 
  
         //  Отражаю данные по последнему периоду и общие итоги. 
         ? IF(nPer==0,Left(zCmonth(dT)+Spac(17),17)+Str(Year(dT),4),Dtoc(dT)+"  -  "+Dtoc(dD))+" "+cStr(nBeg,14,2)+" "+cStr(np,12,2)+" "+cStr(nr,12,2)+"  
  
 "+cStr(nBeg+np-nr,14,2) 
         ? Repl("-",nRep) 
         ? Spac(36)+cStr(nPrih,13,2)+cStr(nRash,13,2) 
         ? Chr(12) 
     ENDI 
     C____A 
     pCloseView() 
  
 ***************** Вывожу текстовый файл, используя отдельную процедуру печати, где по сути и проявляется данный глюк 
     //  Демонстрирую отчет и восстанавливаю состояние среды. 
     pFileOutDevice(cTxt) 
     pCloseErase("TEMP",{cDbf,cNtx,cTxt}) 
     pinStat(sOp,0) 
     RETU 
  
 

 
 PROC pFileOutDevice( cFile, nLen, nW, cdbfm ) 
     FIEL compr, filen, begStr, endStr, qtyCopy 
     LOCA nDev   := ngOutDev 
     LOCA nBeg   := 1        // „N„p„‰„p„|„Ћ„~„p„‘ „ѓ„„„‚„p„~„y„?„p 
     LOCA nEnd   := 9999     // „K„Ђ„~„u„‰„~„p„‘ „ѓ„„„‚„p„~„y„?„p. 
     LOCA nQty   := 1        // „K„Ђ„|„y„‰„u„ѓ„„„r„Ђ „Џ„{„x„u„}„Ѓ„|„‘„‚„Ђ„r. 
     LOCA cOldCol:=SetColor(), nSel:=Select(), cStr:="", aDbf:={}, cF:="" 
     LOCA nSize:=FileSize(cFile), cString:="", GetList:={} 
     LOCA nI:=0, cSt:=""              
     LOCA axbk:={{"compr",   "L",    1,  0},; 
                 {"filen",   "C",    70, 0},; 
                 {"begStr",  "N",    10, 0},; 
                 {"endStr",  "N",    10, 0},; 
                 {"qtyCopy", "N",    10, 0}} 
     PRIV cNameFile:="", cOutFile:="", lLoop:=TRUE 
  
     DEFAULT nLen    TO 80 
     DEFAULT nW      TO 6 
     DEFAULT cdbfm   TO "" 
     MEMV->cNameFile   := AllTrim(cFile) 
  
     fSwopen(16,17,7,60,cOther,4) 
     DO WHIL TRUE 
  
 ******* Казалось бы читаем из обычной формы ввода, но Harbour ппосле её открытия нажимает некие клавиши, что даёт сразу вывод на устройство по умолчани. 
  
         @ 5,0 SAY Chr(199)+Repl("„џ",59)+Chr(182) COLO PosRepl(cOther,Repl(" ",AT("/",cOther)-2)+"N",1) 
         @ 1,2 SAY "„D„|„‘ „Ѓ„u„‰„p„„„y „Ђ„„„‰„u„„„p/„t„Ђ„{„…„}„u„~„„„p „Ѓ„Ђ„w„p„|„…„z„ѓ„„„p „…„{„p„w„y„„„u „…„ѓ„„„‚„Ђ„z„ѓ„„„r„Ђ" 
         @ 2,2 SAY "1-„P„‚„y„~„„„u„‚,2-„U„p„z„|,3-„^„{„‚,4-„V„A„K,5-Exc„V„A„K,6-„Q„u„t„p„{„„„Ђ„‚,7-Word ." 
         @ 3,2 SAY "„~„p„‰„p„|„Ћ„~„…„ђ        „y „{„Ђ„~„u„‰„~„…„ђ         „ѓ„„„‚„p„~„y„?„Ќ „y„x „t„Ђ„{„…„}„u„~„„„p" 
         @ 4,2 SAY "„p „„„p„{„w„u „{„Ђ„|„y„‰„u„ѓ„„„r„Ђ „Џ„{„x„u„}„Ѓ„|„‘„‚„Ђ„r „Ѓ„u„‰„p„„„y „t„Ђ„{„…„}„u„~„„„p          " 
  
         @2,58 GET nDev                              PICT "9"    VALI nDev>=1 .AND. nDev<=7 
         @3,12 GET nBeg  WHEN nDev==1.OR.nDev==4     PICT "9999" VALI nBeg>=1 
         @3,30 GET nEnd  WHEN nDev==1.OR.nDev==4     PICT "9999" VALI nBeg<=nEnd 
         @4,56 GET nQty  WHEN nDev==1.OR.nDev==4     PICT "999"  VALI nQty>=1 
         READ 
  
 ****** Это старая ошибка Harbour, которые разработчики уже исправили, но по своей глупой привычке использую свои обработки этого глюка 
 /*****  Смотреть как  Lack будет реагировать на данный обработчик глюка. 
         При этом появляется глюк Clipper - при прощелкивании Enter запросы 
         идут по кругу, т.е. Ent не обрабатывается и переходим в обработку цикла */ 
  
  
         IF lGlukHarb(nDev) THEN LOOP