* --------------------------------------------------------------------------- 
 *   Оборотная ведомость по финансовым операциям. Анализ кассы, банка по осно- 
 *   ваниям документов. 
 *   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