Найдено 84 результата

aleks1232321
26 дек 2006, 13:49
Форум: Программирование
Тема: DobleToStr
Ответы: 14
Просмотры: 5381

Может оно и правильно, наверняка правильно, но вот не всегда у меня, почему-то работает такое выражение doubleToStr('22.31','\m4 р \f4 к'). Поэтому приходится изгалаяться. :o
aleks1232321
26 дек 2006, 11:08
Форум: Программирование
Тема: Маркеры в Support
Ответы: 6
Просмотры: 2864

В саппорте "компиляция интерфейсов" есть такой пункт меню "загрузить статус-лайн". Посмотри там
aleks1232321
26 дек 2006, 10:55
Форум: Программирование
Тема: DobleToStr
Ответы: 14
Просмотры: 5381

В любом случае, разве "двадцать три сотых к" это правильно? :-o
aleks1232321
25 дек 2006, 11:13
Форум: Программирование
Тема: DobleToStr
Ответы: 14
Просмотры: 5381

Alexander писал(а):Ruh
у меня так все работает...
Doubletostr(22.225,'\m4 р. \2p\f5 к.') = 'ноль р. двадцать две сотых к.'
aleks1232321
22 дек 2006, 14:15
Форум: Программирование
Тема: DobleToStr
Ответы: 14
Просмотры: 5381

doubletostr(25,' \m4 руб.')+' '+doubletostr(21,'\f4 коп.') Т.е. выделяешь целую часть. Потом выделяешь дробную, приводя ее к целому виду А := 25.21 // исходное число В := integer(A) // целая часть C := integer((A-integer(A))*100) // дробная часть doubletostr(B,' \m4 руб.')+' '+doubletostr(C,'\f4 коп...
aleks1232321
21 дек 2006, 11:23
Форум: Программирование
Тема: FCOM
Ответы: 6
Просмотры: 2889

Точного ответа дать не могу, но если после .endvar вставить пустую view, то все компиляется.
Например
.Form 'TEST_FRM'
.NameInList 'test_form'
.var
prev:string;
s:double;
.endvar

.create view a1;

.begin
s:=1;
end.
.fields
s
.endfields
s = ^
.EndForm
aleks1232321
20 дек 2006, 15:36
Форум: Программирование
Тема: FCOM
Ответы: 6
Просмотры: 2889

Что-нибудь типа (общая идея): .var mm : string sum : integer .endvar .begin mm := '' sum := 0 end. . . . . .begin mm := SomeField1 sum := sum + SomeField2 end. .{?internal; (SomeField1<> mm and mm <> ''); .Fields mm //SomeField1 sum //SomeField2 .EndFields ^ ^ .begin mm := SomeField1 sum := SomeFiel...
aleks1232321
19 дек 2006, 19:23
Форум: Программирование
Тема: Обороты и Кау
Ответы: 2
Просмотры: 1818

Все зависит от аналитики.
Например, аналитика по дебету -Организация/подразделение/МОЛ
То: KAUOS[1] - nrec организации
KAUOS[2] - nrec подразделения
KAUOS[3] - nrec МОЛ

По кредиту - аналогично
aleks1232321
18 дек 2006, 18:57
Форум: Программирование
Тема: InitServKAU и coGetTune
Ответы: 6
Просмотры: 2826

Вообще-то InitSerKau без параметров // Проинициализировать сервис function InitServKau : boolean; {$ifndef ForExport} external LibName name 'INITSERVKAU';{$endif} // Проданить сервис procedure DoneServKau; {$ifndef ForExport} external LibName name 'DONESERVKAU';{$endif}
aleks1232321
12 дек 2006, 11:39
Форум: Программирование
Тема: Интерфейс выборки отчетов
Ответы: 4
Просмотры: 2600

Может я чего-то не понимаю, конечно, но печататься все отчеты сразу могут если они все отмечены для печати, т.е. непротив всех стоят 'V'.

Опять же, если правильно понял ваше сообщения, в платежных ведомостях нет выборки отчетов? Ну значит там только один отчет и нечего выбирать
aleks1232321
12 дек 2006, 10:57
Форум: Программирование
Тема: Интерфейс выборки отчетов
Ответы: 4
Просмотры: 2600

"они все сразу формируются при печати платежок" - как это все сразу? Т.е. при нажатии CTRL-P, не спрашивая у пользователей, все 12 печатаются? А причем тут FCENV?
FCENV - подключать редактор-компилятор FCOM
aleks1232321
08 дек 2006, 17:12
Форум: Программирование
Тема: Падает, в чем причина?
Ответы: 4
Просмотры: 2345

И вообще, интерфейсы чувствуют себя нормально только если одна view
aleks1232321
08 дек 2006, 17:10
Форум: Программирование
Тема: Раскладка клавиатуры
Ответы: 2
Просмотры: 1735

А на какую? Зачем?
aleks1232321
08 дек 2006, 11:04
Форум: Программирование
Тема: Почему тормозит???
Ответы: 8
Просмотры: 3681

//║ Галактика (с) 1995, 97 TOP SOFT Ltd., Новый АТЛАНТ //║ Версия : 5.20 //║ Назначение: Баундсы документов-оснований Bounds MainBound = tipDO == BaseDoc.VidDoc ordered by BaseDoc.dDoc,BaseDoc.NoDoc Bounds VscBound = tipDO == BaseDoc.VidDoc and curdescr == BaseDoc.Descr ordered by BaseDoc.dDoc,BaseD...
aleks1232321
07 дек 2006, 11:11
Форум: Программирование
Тема: Параметры STAFFSTRUCT
Ответы: 2
Просмотры: 1686

parameters Parent, StaffStruct.NRec, lFSt, dCurrent; lFSt : boolean Parent == DepartmentCat.NRec StaffStruct.Nrec == VacationSts.cStaffStruct ( dCurrent >= Appointments.AppointDate and dCurrent <= Appointments.DismissDate