20 октября, суббота 07:00
Bankir.Ru

Объявление

Свернуть
Пока нет объявлений.

помогите исправить ведомость учета кассовых оборотов

Свернуть
X
  • Фильтр
  • Время
  • Показать
Очистить всё
новые сообщения

  • помогите исправить ведомость учета кассовых оборотов

    ведомость печатается нормально вот только единственное что в строке Остаток кассы(входящий)\Остаток кассы(исходящий) - сумма почемуто пишется так 5'388'484.00 а должно быть 53'884.84

  • #2
    посмотреть формат в шаблоне, или на 100 разделить если сумма передается без копеек, если с копейками, то не делить

    Комментарий


    • #3
      вот код 744REP.MAC

      /*”””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””Џ
      RS-Bank 5.00. R-Style Software Lab

      Выпуск ежедневной отчетности по обороту кассовых символов

      CREATED: 20-01-97 Киреев А.Г.
      NOTES:
      Комментарии см. так же в файле SYMBREP.MAC.

      MODIFICATIONS:
      20.03.2000 Молоков.
      Теперь данные отчёта по умолчанию округляются до тысяч рублей
      и нормализуются.
      Эту возможность можно отключить в макросе SYMBREP.MAC, установив значение
      настройки Применить_Округление в NO.
      01.11.2000 LCh
      Суммирование итогов по символам 02-37 и 40-72,
      промежуточные суммы по пятидневкам.
      27.03.2007 Teleshova #80878 Доработан расчет согласно Письму ЦБР ь26-13-4-16/48139 от 15.06.2006


      ђ”””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””*/
      import BankInter, exclrep, param, symbrep;

      file p ( person );
      file dprt( dp_dep);

      /* определяются в symbrep.mac

      file ListSymb( listsymb );
      */

      record dl("rep744", "usermac.lbr") dialog;

      VAR {BASECASH},
      FIO_OPER=" ",
      stat,
      Sum,
      i, count,
      xlopen=False,
      /* FromDate = {curdate},
      ToDate = {curdate},
      */
      ПечатьВШирину = FALSE,
      NullSum = true,
      NameSymb = false,
      NR = 0,
      FRash, FDoh, Forma,
      FirstRash = True, FirstDoh = True,
      Symbol;

      Var needItog02_39 = TRUE,
      needItog40_77 = TRUE,
      do_35_sym = TRUE,
      do_70_sym = TRUE,
      Symb = TARRAY,
      NumVariant = 0;

      private var Единицы_ = "руб.";

      var IsSeparate: Bool;

      ARRAY Days;

      var SumItog02_39,
      SumItog40_77,
      Summa;

      macro PF(val, width):string
      var valM:Money = val;
      if (not ПрименитьОкругление)
      return string(valM:19:r:a);
      end;
      return string(val:19:0:r:a);
      end;

      MACRO ListDprt( NumOld, NameOld ) /* Список филиалов */
      array Num, Name;
      var j = 0;

      Num( 0) = 0;
      Name( 0) = "Все филиалы";
      while ( next( dprt ) )
      j = j + 1;
      Num(j) = dprt.Code;
      Name(j) = string( dprt.Name:12) + " " + dprt.Comment;
      end;

      if (j > 0)
      j = menu( Name, null, "Список филиалов" );
      end;

      if ( j >= 0 )
      setparm( 1, substr( Name(j), 1, 12));
      return Num(j);
      end;

      return NumOld;
      END;

      MACRO NameDprt( Num )
      dprt.Code = Num;
      if ( getEQ( dprt) ) return dprt.Name + " " + dprt.Comment;
      else return "Не найден филиал с номером "+ string(Num);
      end;
      end;

      MACRO Шапка1()
      Var Forma;

      if( ToDate_Real ДАТА1376 )
      Forma = "Форма 744";
      FRash = "02-37";
      FDoh = "40-72";
      else
      Forma = "Форма 0401744";
      FRash = "02-39";
      FDoh = "40-77";
      end;

      [
      ВЕДОМОСТЬ УЧЕТА КАССОВЫХ ОБОРОТОВ

      ];

      if ( FromDate_Real == ToDate_Real )

      [ за ##########
      ]( FromDate_Real );
      else

      [ c ########## по ##########
      ]( FromDate_Real, ToDate_Real );
      end;

      [

      Наименование кредитной организации #
      Почтовый адрес #


      ]({Name_Bank}, {Post_Addr}, Forma );


      if( not ПечатьВШирину )
      if ( NameSymb )
      [ # ](Forma);
      [ # ](Единицы_);
      [
      Є””””””””””””””””””””””””””””””””””””””””””””””””””’”””””””””””””’”””””””””””””””””””””Џ
      ѓ Статьи прихода и расхода ѓ Символ ѓ Сумма ѓ
      ];


      else
      [ # ](Forma);
      [ # ]((Единицы_));
      [
      Є”””””””””””””””””””””’”””””””””””””””””””””Џ
      ѓ Символ ѓ Сумма ѓ
      ];

      end;
      else

      if( ToDate_Real ДАТА1376 )
      [ # ](Forma);
      [ # ]((Единицы_));
      [ Є”””””””””””””’”””””””””””””””””””””’”””””””””””””’””””””””””””””””””””””’”””””””””””””’””””””””””””””””””””””Џ];
      [ ѓ Символ ѓ Сумма ѓ Символ ѓ Сумма ѓ Символ ѓ Сумма ѓ];
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•””””””””””””””””””””””•”””””””””””””•””””””””””””””””””””””„];
      [ ѓ ПРИХОД ѓ ѓ РАСХОД ѓ ѓ ВНЕБАЛАНС ѓ ѓ];
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•””””””””””””””””””””””•”””””””””””””•””””””””””””””””””””””„];
      else
      [ # ](Forma);
      [ # ]((Единицы_));
      [ Є”””””””””””””’”””””””””””””””””””””’”””””””””””””’”””””””””””””””””””””Џ];
      [ ѓ Символ ѓ Сумма ѓ Символ ѓ Сумма ѓ];
      [ “”””””””””””””‘”””””””””””””””””””””•”””””””””””””‘”””””””””””””””””””””„];
      [ ѓ ПРИХОД ѓ РАСХОД ѓ];
      [ “”””””””””””””’”””””””””””””””””””””•”””””””””””””’”””””””””””””””””””””„];
      end;
      end;

      END;

      MACRO Шапка2();

      if( not ПечатьВШирину )
      if ( NameSymb )
      [ђ””””””””””””””””””””””””””””””””””””””””””””””””””‘”””””””””””””‘”””””””””””””””””””””©]
      else
      [ ђ”””””””””””””””””””””‘”””””””””””””””””””””©];
      end;
      else
      if( ToDate_Real ДАТА1376 )
      [ ђ”””””””””””””‘”””””””””””””””””””””‘”””””””””””””‘”””””””””””””””””””””‘”””””””””””””‘”””””””””””””””””””””©];
      else
      [ ђ”””””””””””””‘”””””””””””””””””””””‘”””””””””””””‘”””””””””””””””””””””©];
      end;
      end;

      [
      Руководитель #

      # #

      Исполнитель #

      ]( {FIO_Boss}:l, {Name_Book}:l, {FIO_Book}:l, GetFioOper(FIO_OPER,TRUE):l );
      if( ToDate_Real >= ДАТА1376 )
      [ Телефон #

      #
      ](Номер_телефона:l, {curdate}:f:m );
      end;
      END;


      MACRO ШапкаПриходРасход( Sym )
      Var RD = "";

      if ( FirstRash and ( trim(sym) "40" ) )
      FirstRash = False; RD = "ПРИХОД";
      elif ( FirstDoh and ( trim(sym) >= "40" ) )
      FirstDoh = False; RD = "РАСХОД";
      end;

      if ( RD != "" )
      if ( NameSymb )
      [“””””””””””””””””””””””””””””””””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ѓ ѓ ############ѓ ѓ]( RD );
      else
      [ “”””””””””””””””””””””•”””””””””””””””””””””„];
      [ ѓ ################### ѓ ѓ]( RD );

      end;
      end;
      END;


      MACRO PutSymb(Name, Symb_Cash, Sum )
      ARRAY NamePart; /* Массив для разбивки названия раздела на несколько строк */
      var count, i;

      ШапкаПриходРасход( Symb_Cash );

      if ( ( not NullSum ) and ( Sum == $0 )) return; end;

      if ( NameSymb )
      asize( NamePart, 0 ); /* Обнулить массив */
      StrSplit( Name, NamePart, 50 );
      count = asize( NamePart );

      if( count == 0 ) /* строка пустая, но печатать надо */
      NamePart(0) = "";
      end;
      [“””””””””””””””””””””””””””””””””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];

      if ( index(Symb_Cash,"-") > 0 )
      [ѓ ѓ Итог ѓ ѓ];
      [ѓ ѓ символов ѓ ѓ];
      end;
      [ѓ# ѓ ########### ѓ ################### ѓ]
      ( NamePart(0), Symb_Cash, PF(Sum) );

      i=1;
      while( icount )
      [ѓ# ѓ ѓ ѓ]
      ( NamePart(i) );

      i=i+1;
      end;
      else
      [ “”””””””””””””””””””””•”””””””””””””””””””””„];
      if ( index(Symb_Cash,"-") > 0 )
      [ ѓ Итог символов ######ѓ ################### ѓ](Symb_Cash, PF(Sum));
      elif( (Symb_Cash == " 89") or (Symb_Cash == " 96") and (not IsSeparate))
      [ ѓ ѓ ѓ];
      [ “”””””””””””””””””””””•”””””””””””””””””””””„];
      [ ѓ ################### ѓ ####################ѓ](Symb_Cash, PF(Sum));
      IsSeparate = true;
      else
      [ ѓ ################### ѓ ################### ѓ]( Symb_Cash, PF(Sum) );
      end;
      end;


      END;

      MACRO EvMacro744( dlg, cmd, id, key )

      if ( cmd == DLG_KEY )

      if( (key == 317) and ( id == 0 ) ) /* филиал*/
      NumDprt = ListDprt( NumDprt, dlg(id) );
      UpdateFields(dlg);
      end;

      if (( key == 32 ) and ( id == 3 ) and ( dl.FDPrintS != "X" ))
      if ( dl.FDnullsum == "" )
      dl.FDnullsum = "X";
      else
      dl.FDnullsum = "";
      end;
      end;

      if (( key == 32 ) and ( id == 4 ) and ( dl.FDPrintS != "X" ))
      if ( dl.FDnamesymb == "" )
      dl.FDnamesymb = "X";
      else
      dl.FDnamesymb = "";
      end;
      end;

      if ( ( key == 32 ) and ( id == 5 ) )
      if ( dl.FDPrintS == "" )
      dl.FDPrintS = "X"; ПечатьВШирину = TRUE;
      dl.FDnamesymb = "";
      dl.FDnullsum = "X";
      else
      dl.FDPrintS = ""; ПечатьВШирину = FALSE;
      end;
      end;

      if( key == 316 ) /* теперь F2 - функциональная клавиша */
      return CM_SAVE;
      end;

      if( key == 323 ) /* игнорируем нажатие клавиши F9 */
      return CM_IGNORE;
      end;

      UpdateFields(dl);

      end;

      if ( cmd == DLG_INIT )
      NumDprt = 0;
      dl.Dprt = "Все филиалы";
      dl.FDbegin ={curdate};
      dl.FDend ={curdate};
      dl.FDnullsum ="";
      dl.FDnamesymb ="";
      dl.FDPrintS ="";
      if( ValType(GetIniString("DEPARTMENTLEN","bank.ini",TRUE)) == V_UNDEF )
      DisableFields ( dl , 0 );
      end;
      UpdateFields(dl);
      end;

      if( cmd == DLG_SAVE )
      if( ( dlg.FDbegin == "" ) or
      ( dlg.FDend == "" ) or
      ({curdate}dlg.FDbegin) or
      ({curdate}dlg.FDend) )

      msgbox("Неверный ввод дат");
      return CM_CANCEL;
      end;
      end;

      return CM_DEFAULT;
      END;

      MACRO Init()
      var day1,mon1,year1, day2,mon2,year2;

      if ( not RunDialog( dl,"EvMacro744" ) )
      Exit(1);
      end;

      FromDate_Real = dl.FDbegin;
      ToDate_Real = dl.FDend;

      /* Для расчета символов в интервале дат */
      VariantFromDate( 0 ) = FromDate_Real;
      VariantToDate( 0 ) = ToDate_Real;

      /* Для расчета символов по пятидневкам */
      /* DateSplit(FromDate_Real,day1,mon1,year1);
      DateSplit(ToDate_Real, day2,mon2,year2);

      NumVariant = 0; /* пока разбиения на пятидневки нет*/

      if ( (mon1 == mon2) and (year1==year2) )

      /* Начало первой пятидневки*/
      if ( day1 > 21 ) day1 = 26;
      elif ( day1 > 16 ) day1 = 21;
      elif ( day1 > 11 ) day1 = 16;
      elif ( day1 > 6 ) day1 = 11;
      elif ( day1 > 1 ) day1 = 6;
      else day1 = 1;
      end;

      if ( (day1 26) and (day2-day1 >= 4) )

      NumVariant = 0;
      stat = TRUE;
      while( stat )
      NumVariant = NumVariant + 1;
      if ( NumVariant == 1)
      VariantFromDate( NumVariant ) = date(day1, mon1, year1);
      else
      VariantFromDate( NumVariant ) = VariantToDate( NumVariant-1 )+1;
      end;
      VariantToDate( NumVariant ) = VariantFromDate( NumVariant )+4;

      DateSplit(VariantFromDate( NumVariant ),day1);
      DateSplit(VariantToDate( NumVariant ), day2);
      Days(NumVariant) = string(day1:2:r)+" - "+string(day2:2);

      if ( ( day2 == 25 ) or
      ( VariantToDate( NumVariant ) +5 > ToDate_Real ) )
      stat = FALSE;
      end;
      end;

      end;

      end;
      /* Если границы периода - пятидневка */
      if( (NumVariant == 1) and
      (VariantFromDate( 1 ) == FromDate_Real) and
      (VariantToDate( 1 ) == ToDate_Real) )
      NumVariant = 0;
      end;
      */
      /* ----------------------------------- */

      if ( dl.FDnullsum == "" )
      NullSum = false;
      else
      NullSum = true;
      end;
      if ( dl.FDnamesymb == "" )
      NameSymb = false;
      else
      NameSymb = true;
      end;

      END;


      /***************************/
      /* Точка входа в программу */
      /***************************/
      Init();

      p.Oper = {oper};
      if( GetEQ(p) )
      FIO_OPER=p.Name;
      end;

      Symb.size = 100;
      i = 0;
      while ( i 100 )
      Symb( i ) = 0;
      i = i + 1;
      end;

      if ( CashSymbSumMac( FromDate_Real, ToDate_Real, 0, NumDprt ) )/* Рассчитать кассовые символы */
      /* ПрименитьОкругление = False;*/
      PrepareCashSymbols( 744); /* Предварительная обработка кассовых символов */
      if (ПрименитьОкругление)
      Единицы_ = "тыс. " + Единицы_;
      end;
      Шапка1;

      needItog02_39 = TRUE;
      needItog40_77 = TRUE;

      SumItog02_39 = $0;
      SumItog40_77 = $0;

      IsSeparate = false; /* признак наличия ненулевых сумм по забалансовым символам. Используется для печати отчета */

      xlopen = BeginTable(); /* Инициализация выгрузки в Excell */

      ListSymb.Symb_Cash = "";
      stat = getGE( ListSymb );

      NR = NRecords( ListSymb );
      InitProgress( NR, " Выпуск отчета по форме 744", "Обработано символов" );
      NR = 0;

      while ( stat )

      if ( filtr1376( trim(ListSymb.Symb_Cash), Todate_Real ))
      Summa = ServeOneSymbol( ListSymb.Symb_Cash, 0);

      /* Для выгрузки в Excell */
      if( xlopen )
      PutCell( ListSymb.Name, ListSymb.Symb_Cash, Summa );
      NextLine;
      end;

      /* Печать суммы по символу */
      /* Печать суммы по символу */
      if( not ПечатьВШирину )
      PutSymb( ListSymb.Name, ListSymb.Symb_Cash, Summa );
      else
      Symb(int(ListSymb.Symb_Cash)) = Summa;
      end;

      /* Суммирование итогов */
      if ( ( ListSymb.Symb_Cash >= " 02") and
      ( ListSymb.Symb_Cash = " 39") and
      ( ListSymb.Symb_Cash != " 35") )
      SumItog02_39 = SumItog02_39 + Summa;
      elif ( ( ListSymb.Symb_Cash >= " 40") and
      ( ListSymb.Symb_Cash = " 77") and
      ( ListSymb.Symb_Cash != " 70") )
      SumItog40_77 = SumItog40_77 + Summa;
      end;
      end;

      stat=next( ListSymb );
      if ( ( ListSymb.Symb_Cash > " 35" ) and
      ( do_35_sym ) )
      prev( ListSymb );
      do_35_sym = FALSE;
      ListSymb.Symb_Cash = " 35";
      ListSymb.Name = "Остаток кассы (входящий)";

      elif( ( ListSymb.Symb_Cash > " 70" ) and
      ( do_70_sym ) )
      prev( ListSymb );
      do_70_sym = FALSE;
      ListSymb.Symb_Cash = " 70";
      ListSymb.Name = "Остаток кассы (исходящий)";
      end;

      /* Печать итогов */
      if ( needItog02_39 and ( ListSymb.Symb_Cash > " 39") )
      needItog02_39 = FALSE;
      if( not ПечатьВШирину )
      PutSymb( "", FRash, SumItog02_39 );
      end;
      end;
      if ( needItog40_77 and ( ListSymb.Symb_Cash > " 77") )
      needItog40_77 = FALSE;
      if( not ПечатьВШирину )
      PutSymb( "", FDoh, SumItog40_77 );
      end;
      end;


      NR=NR+1;
      UseProgress( NR );
      end;

      if ( needItog02_39 )
      needItog02_39 = FALSE;
      if( not ПечатьВШирину )
      PutSymb( "", FRash, SumItog02_39 );
      end;
      end;
      if ( needItog40_77 )
      needItog40_77 = FALSE;
      if( not ПечатьВШирину )
      PutSymb( "", FDoh, SumItog40_77 );
      end;
      end;

      RemProgress;
      if( ПечатьВШирину )
      if( ToDate_Real ДАТА1376 )

      [ ѓ ИТОГ ѓ ################### ѓ ИТОГ ѓ ################### ѓ 74 ѓ ################### ѓ]( PF(SumItog02_39), PF(SumItog40_77), PF(Symb(74)) );
      [ ѓ символов ѓ ѓ символов ѓ ѓ ѓ ѓ];
      [ ѓ 02-37 ѓ ѓ 40-72 ѓ ѓ ѓ ѓ];
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 02 ѓ ################### ѓ 40 ѓ ################### ѓ 75 ѓ ################### ѓ]( PF(Symb(02)), PF(Symb(40)), PF(Symb(75)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 11 ѓ ################### ѓ 41 ѓ ################### ѓ 76 ѓ ################### ѓ]( PF(Symb(11)), PF(Symb(41)), PF(Symb(76)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 15 ѓ ################### ѓ 42 ѓ ################### ѓ 79 ѓ ################### ѓ]( PF(Symb(15)), PF(Symb(42)), PF(Symb(79)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 16 ѓ ################### ѓ 46 ѓ ################### ѓ 80 ѓ ################### ѓ]( PF(Symb(16)), PF(Symb(46)), PF(Symb(80)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 17 ѓ ####################ѓ 50 ѓ ################### ѓ 82 ѓ ################### ѓ]( PF(Symb(17)), PF(Symb(50)), PF(Symb(82)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 18 ѓ ################### ѓ 53 ѓ ################### ѓ 94 ѓ ################### ѓ]( PF(Symb(18)), PF(Symb(53)), PF(Symb(94)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 19 ѓ ################### ѓ 55 ѓ ################### ѓ 95 ѓ ################### ѓ]( PF(Symb(19)), PF(Symb(55)), PF(Symb(95)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 20 ѓ ################### ѓ 57 ѓ ################### ѓ 99 ѓ ################### ѓ]( PF(Symb(20)), PF(Symb(57)), PF(Symb(99)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 30 ѓ ################### ѓ 58 ѓ ################### ѓ ѓ ѓ]( PF(Symb(30)), PF(Symb(58)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 32 ѓ ################### ѓ 59 ѓ ################### ѓ ѓ ѓ]( PF(Symb(32)), PF(Symb(59)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 35 ѓ ################### ѓ 60 ѓ ################### ѓ ѓ ѓ]( PF(Symb(35)), PF(Symb(60)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 36 ѓ ################### ѓ 61 ѓ ################### ѓ ѓ ѓ]( PF(Symb(36)), PF(Symb(61)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 37 ѓ ################### ѓ 70 ѓ ################### ѓ ѓ ѓ]( PF(Symb(37)), PF(Symb(70)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ ѓ ѓ 71 ѓ ################### ѓ ѓ ѓ]( PF(Symb(71)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ ѓ ѓ 72 ѓ ################### ѓ ѓ ѓ]( PF(Symb(72)) );
      else
      [ ѓ ИТОГ ѓ ################### ѓ ИТОГ ѓ ################### ѓ]( PF(SumItog02_39), PF(SumItog40_77) );
      [ ѓ символов ѓ ѓ символов ѓ ѓ];
      [ ѓ 02-39 ѓ ѓ 40-77 ѓ ѓ];
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 02 ѓ ################### ѓ 40 ѓ ################### ѓ]( PF(Symb(02)), PF(Symb(40)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 11 ѓ ################### ѓ 41 ѓ ################### ѓ]( PF(Symb(11)), PF(Symb(41)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 12 ѓ ################### ѓ 42 ѓ ################### ѓ]( PF(Symb(12)), PF(Symb(42)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 13 ѓ ################### ѓ 46 ѓ ################### ѓ]( PF(Symb(13)), PF(Symb(46)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 14 ѓ ################### ѓ 50 ѓ ################### ѓ]( PF(Symb(14)), PF(Symb(50)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 15 ѓ ################### ѓ 51 ѓ ################### ѓ]( PF(Symb(15)), PF(Symb(51)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 16 ѓ ################### ѓ 53 ѓ ################### ѓ]( PF(Symb(16)), PF(Symb(53)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 17 ѓ ################### ѓ 54 ѓ ################### ѓ]( PF(Symb(17)), PF(Symb(54)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 19 ѓ ################### ѓ 55 ѓ ################### ѓ]( PF(Symb(19)), PF(Symb(55)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 20 ѓ ################### ѓ 56 ѓ ################### ѓ]( PF(Symb(20)), PF(Symb(56)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 30 ѓ ################### ѓ 57 ѓ ################### ѓ]( PF(Symb(30)), PF(Symb(57)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 31 ѓ ################### ѓ 58 ѓ ################### ѓ]( PF(Symb(31)), PF(Symb(58)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 32 ѓ ################### ѓ 59 ѓ ################### ѓ]( PF(Symb(32)), PF(Symb(59)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 35 ѓ ################### ѓ 60 ѓ ################### ѓ]( PF(Symb(35)), PF(Symb(60)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 37 ѓ ################### ѓ 70 ѓ ################### ѓ]( PF(Symb(37)), PF(Symb(70)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 39 ѓ ################### ѓ 72 ѓ ################### ѓ]( PF(Symb(39)), PF(Symb(72)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ ѓ ѓ 77 ѓ ################### ѓ]( PF(Symb(77)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ ѓ ѓ ѓ ѓ];
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 89 ѓ ################### ѓ ѓ ѓ]( PF(Symb(89)) );
      [ “”””””””””””””•”””””””””””””””””””””•”””””””””””””•”””””””””””””””””””””„];
      [ ѓ 96 ѓ ################### ѓ ѓ ѓ]( PF(Symb(96)) );

      end;


      end; /* печать в ширину */

      if ( xlopen )
      EndTable;
      end;
      end;

      Шапка2;

      /*eof*/

      Комментарий


      • #4
        Поиграйте с региональными настройками.
        (скорей всего вам нужно вместо запятой поставить точку)
        "Единственный способ научиться играть лучше - играть с более сильным соперником!"

        Комментарий


        • #5
          Так, а где это можно найти эти региональные настройки, просто я пока новичек в этом

          Комментарий


          • #6
            Так, а где это можно найти эти региональные настройки
            пуск-настройка-панель управления-языки и региональные стандарты.
            Видимо Вам нужно "поиграть" либо с числами, либо с денежными единицами

            просто я пока новичек в этом
            Тогда не торопитесь править код, как правило ни чем хорошим не заканчивается.
            "Единственный способ научиться играть лучше - играть с более сильным соперником!"

            Комментарий


            • #7
              D_e_n_n единственное что в строке Остаток кассы(входящий)\Остаток кассы(исходящий)

              только в этой строке неверное отображение суммы? или в остальных так же?

              Комментарий

              Пользователи, просматривающие эту тему

              Свернуть

              Присутствует 1. Участников: 0, гостей: 1.

              Обработка...
              X