Страница: 1 | 2 |
Вопрос: Самоудаляющееся приложение.
Добавлено: 02.10.05 08:02
Автор вопроса: CyRax | Web-сайт:
Ответы
Всего ответов: 20
Номер ответа: 16
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #16
Добавлено: 05.10.05 20:58
примерно то же что и bat
Номер ответа: 17
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #17
Добавлено: 06.10.05 04:48
Ну С# это ещё ничего. Посмотрите что читают америкоиды даже в классическом Цэ.
Код из ответа 14 (Промт):
Ж
статический MEMORY_BASIC_INFORMATION мбай;
Виртуалкрай (&mbi;, &mbi;, сизеоф мбай);
Модуль ПВОИД = мбай. Оллокэйшнбаз;
СЛУЧАЙНАЯ РАБОТА bufЖMAX_PATHЕ;
Джетмодалефиленэйм (ХМОДЬЮЛ (модуль), баф, сизеоф баф);
__ асм
Ж
луг икс, баф
выдвиньте 0
выдвиньте 0
выдвиньте икс
выдвиньте Экситпросесс
модуль толчка
выдвиньте Делетефайл
выдвиньте Фрилибрэри
мочите
Е
Е
Как любит говаривать старина UU, "я плакаль".
Номер ответа: 18
Автор ответа:
alex
Вопросов: 84
Ответов: 453
Профиль | | #18
Добавлено: 06.10.05 10:30
А я на 1С пишу, там там все по русски
ЭФ = ЭлементыФормы;
Выбор=Элемент;
Режим = РежимДиалогаВопрос.ДаНет;
Если Выбор.Значение= Перечисления.ВидСчетаОтСклада.Хранение тогда
Ответ = Вопрос("Обнулить поля Сумма за разгрузку и Сумма за погрузку?", Режим,0) ;
Если Ответ = КодВозвратаДиалога.Да Тогда
ЭФ.СуммаРазгрузка.Значение=0;
ЭФ.СуммаПогрузка.Значение=0;
ИначеЕсли Ответ = КодВозвратаДиалога.Нет тогда
Возврат ;
КонецЕсли ;
ИначеЕсли Выбор.Значение= Перечисления.ВидСчетаОтСклада.РазгрузкаПогрузка тогда
Ответ = Вопрос("Обнулить поле Сумма за хранение?", Режим,0) ;
Если Ответ = КодВозвратаДиалога.Да Тогда
ЭФ.СуммаХранение.Значение=0;
ИначеЕсли Ответ = КодВозвратаДиалога.Нет тогда
Возврат ;
КонецЕсли ;
КонецЕсли ;
Если Выбор.Значение= Перечисления.ВидСчетаОтСклада.Хранение тогда
ЭФ.СуммаРазгрузка.Доступность = Ложь;
ЭФ.СуммаПогрузка.Доступность = Ложь;
ЭФ.СуммаХранение.Доступность = Истина;
Иначе
ЭФ.СуммаРазгрузка.Доступность = Истина;
ЭФ.СуммаПогрузка.Доступность = Истина;
ЭФ.СуммаХранение.Доступность = Ложь;
КонецЕсли;
ЭФ.ВидСчета.Доступность=Ложь;
КонецПроцедуры
Номер ответа: 19
Автор ответа:
alex
Вопросов: 84
Ответов: 453
Профиль | | #19
Добавлено: 06.10.05 10:32
А SQL на русском языке из 1С видели? Так это вообще полный угар! Торкает не по детски.. )))
"ВЫБРАТЬ
| Объединение.ВидЗатрат КАК ВидЗатрат,
| Объединение.Объект КАК Объект,
| Объединение.Основание,
| Объединение.СуммаРуб КАК СуммаРуб,
| Объединение.СуммаРуб * (1 - 1 / (1 + " + Строка(Константы.ПроцентНДС.Получить()) + "/100)) КАК СуммаНДСРуб
|ИЗ
| (ВЫБРАТЬ
| ""Хранение"" КАК ВидЗатрат,
| СчетСкладтчХранение.Объект КАК Объект,
| NULL КАК Основание,
| СчетСкладтчХранение.СуммаРуб КАК СуммаРуб
| ИЗ
| Документ.СчетСклад.тчХранение КАК СчетСкладтчХранение
|
| ГДЕ
| СчетСкладтчХранение.Ссылка = &Ссылка
|
| ОБЪЕДИНИТЬ ВСЕ
|
| ВЫБРАТЬ
| ""Разгрузка"",
| СчетСкладтчРазгрузка.Объект,
| СчетСкладтчРазгрузка.НакладнаяВх,
| СчетСкладтчРазгрузка.СуммаРуб
| ИЗ
| Документ.СчетСклад.тчРазгрузка КАК СчетСкладтчРазгрузка
|
| ГДЕ
| СчетСкладтчРазгрузка.Ссылка = &Ссылка
|
| ОБЪЕДИНИТЬ ВСЕ
|
| ВЫБРАТЬ
| ""Погрузка"",
| СчетСкладтчПогрузка.Объект,
| СчетСкладтчПогрузка.НакладнаяИсх,
| СчетСкладтчПогрузка.СуммаРуб
| ИЗ
| Документ.СчетСклад.тчПогрузка КАК СчетСкладтчПогрузка
|
| ГДЕ
| СчетСкладтчПогрузка.Ссылка = &Ссылка) КАК Объединение
|
|УПОРЯДОЧИТЬ ПО
| Объект.Код
|
|ИТОГИ СУММА(СуммаРуб),СУММА(СуммаНДСРуб) по Объект,
| ВидЗатрат";
Номер ответа: 20
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #20
Добавлено: 07.10.05 04:10
Угарали первое время. А последнее время угорали с того что поняли насколько удобно америкоидам на своём родном языке программы писать имея при этом ещё и тонны мануалов.