Каким образом в выходном текстовом отчете сразу буквы становились сжатыми?
Добавил команды " P" и ничего не помогает... компилирую через командную строку vip.exe , исходник в текстовом файле...
Отчет: Модуль Касса, отчеты, кассовая книга, вкладной лист кассовой книги...
Даже, если я выгружу стандартный отчет, поменяю имя и ничего не изменю, скомпилирую и начинает выводить несжатый шрифт.
Код: Выделить всё
.LinkForm 'KO4BOOKLEAF2' Prototype is 'DAYUCHVED'
.Group 'kassarus_f1'
.NameInList 'Вкладной лист кассовой книги (форма КО-4).2'
.p 80
.var
СумСтрНДЕПрих:Double
СумСтрНДЕРасх:Double
СтраницМес:Integer
СтраницГод:Integer
namesho:String
.endvar
.Create view sodhoper as
select soprhoz.namesho
from oborot(readonly),soprhoz(readonly)
where
((
oborotnrec == oborot.nrec
and
oborot.csoprhoz == soprhoz.nrec
));
.function PRINTSUMMA(Sum : double) : string;
begin
case ShowDigit of
0 : PrintSumma := DoubleToStr(Sum,'\0p[|-]3666''666''666''666''666');
1 : PrintSumma := DoubleToStr(Sum,'\1p[|-]3666''666''666''666''666.8');
2 : PrintSumma := DoubleToStr(Sum,'\2p[|-]3666''666''666''666''666.88');
3 : PrintSumma := DoubleToStr(Sum,'\3p[|-]3666''666''666''666''666.888');
4 : PrintSumma := DoubleToStr(Sum,'\4p[|-]3666''666''666''666''666.8888');
end;
end.
.function PRINTSUMMAZERO(Sum : double) : string;
begin
if Abs(Sum) > 0.005 then
PrintSummaZero := PrintSumma(Sum);
else
PrintSummaZero := ' ';
end.
.fields
c1f1
c2f1
c2f2
ДатаКассы
ВхСалНДЕ
НоДок
СодОпер + namesho
КорСчет
КорСуб
ПрихНДЕ
РасхНДЕ
PrintSumma(СумСтрНДЕПрих)
PrintSumma(СумСтрНДЕРасх)
PrintSumma(ИсхПрихНДЕ)
PrintSumma(ИсхРасхНДЕ)
PrintSumma(ИсхСалНДЕ)
ЗарплНДЕ
'true':'s'
if(МесяцДаты=12,
'Листов за месяц: '+ UpCase(trim(NumToString(СтраницМес,''))) +'. Листов за год: ' + UpCase(trim(NumToString(СтраницГод,'')))+'.',
'Листов за месяц: ' + UpCase(trim(NumToString(СтраницМес,'')))+'.'
)
ФИОКассира
UpCase(КолДокПрих)
UpCase(КолДокРасх)
ГлавБух
.endfields
.if OKFILDCH
Р Применен фильтр...
.{
^
.{
^ ^
.}
.}
.else
.end
.begin
СтраницГод := НомЛиста-1;
СтраницМес := КолЛистов;
end.
.{
.[H
Вкладной лист кассовой книги за ^ Лист @np@
.]H
.{
.[H
.begin
СумСтрНДЕПрих := 0;
СумСтрНДЕРасх := 0;
end.
────────┬──────────────────────────────────────────────────────────────┬────────────┬─────────────────┬─────────────────
│ │ Номер кор- │ │
Номер │ От кого получено │ респонди- │ Приход, │ Расход,
докумен-│ или кому выдано │ рующего │ руб.коп │ руб.коп
та │ │ счета │ │
│ │ субсчета │ │
────────┼──────────────────────────────────────────────────────────────┼────────────┼─────────────────┼─────────────────
1 │ 2 │ 3 │ 4 │ 5
────────┼──────────────────────────────────────────────────────────────┼────────────┼─────────────────┼─────────────────
.]H
.if KASSAVHSALDODAY
│ Остаток на начало дня │&'&&&&&&&&&&&&&&&│ X
├──────────────────────────────────────────────────────────────┬────────────┼─────────────────┼─────────────────
.else
.end
.{
.begin
namesho:='';
if(sodhoper.getfirst = tsOK) then namesho:=','+sodhoper.namesho;
СумСтрНДЕПрих := СумСтрНДЕПрих + ПрихНДЕ;
СумСтрНДЕРасх := СумСтрНДЕРасх + РасхНДЕ;
end.
@@@@@@@@│ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@│ @@@@@ @@@@ │&#'&&&&&&&&&&&&&&│&#'&&&&&&&&&&&&&&
.[F
────────┴──────────────────────────────────────────────────────────────┴────────────┼─────────────────┼─────────────────
Перенос │&'&&&&&&&&&&&&&&&│&'&&&&&&&&&&&&&&&
└─────────────────┴─────────────────
.begin
СтраницГод := СтраницГод+1;
СтраницМес := СтраницМес+1;
end.
.]F
.}
────────────────────────────────────────────────────────────────────────────────────┬─────────────────┬─────────────────
│ │
Итого за день │&'&&&&&&&&&&&&&&&│&'&&&&&&&&&&&&&&&
├─────────────────┼─────────────────
Остаток на конец дня │&'&&&&&&&&&&&&&&&│ X
├─────────────────┼─────────────────
в том числе на заработную плату, выплаты │ │
социального характера и стипендии │&'&&&&&&&&&&&&&&&│ X
└─────────────────┴─────────────────
.if BREAKPAGE
^
.else
.end
.}
.if DUPRINTPAGE
^
.else
.end
Кассир ___________________ ^
подпись расшифровка подписи
Записи в кассовой книге проверил и документы в
количестве @~@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ приходных и
------------------------------------------------------
@~@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ расходных
-----------------------------------------------------------------
получил.
Бухгалтер ___________________ ^
подпись расшифровка подписи Р
.}
.endform