Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Power Basic

Страница: 1 | 2 |

 

  Вопрос: Самоудаляющееся приложение. Добавлено: 02.10.05 08:02  

Автор вопроса:  CyRax  | Web-сайт: basicproduction.nm.ru | ICQ: 204447456 

Ответить

  Ответы Всего ответов: 20  

Номер ответа: 16
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #16 Добавлено: 05.10.05 20:58
примерно то же что и bat

Ответить

Номер ответа: 17
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
 Web-сайт: basicproduction.nm.ru
 Профиль | | #17
Добавлено: 06.10.05 04:48
Ну С# это ещё ничего. Посмотрите что читают америкоиды даже в классическом Цэ.
Код из ответа 14 (Промт):
экскрачка "C" недействительный ОТЗЫВ Клинапа (ХВНД, ХИНСТАНС, ПСТР, инт)
Ж
   статический MEMORY_BASIC_INFORMATION мбай;
   Виртуалкрай (&mbi;, &mbi;, сизеоф мбай);
   Модуль ПВОИД = мбай. Оллокэйшнбаз;
 СЛУЧАЙНАЯ РАБОТА bufЖMAX_PATHЕ;
   Джетмодалефиленэйм (ХМОДЬЮЛ (модуль), баф, сизеоф баф);
 __ асм
   Ж
       луг икс, баф
       выдвиньте 0
       выдвиньте 0
       выдвиньте икс
       выдвиньте Экситпросесс
       модуль толчка
       выдвиньте Делетефайл
       выдвиньте Фрилибрэри
       мочите
   Е
Е

 Как любит говаривать старина UU, "я плакаль".

Ответить

Номер ответа: 18
Автор ответа:
 alex



Вопросов: 84
Ответов: 453
 Профиль | | #18 Добавлено: 06.10.05 10:30
А я на 1С пишу, там там все по русски

Процедура ПолеВвода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-сайт: basicproduction.nm.ru
 Профиль | | #20
Добавлено: 07.10.05 04:10
Угарали первое время. А последнее время угорали с того что поняли насколько удобно америкоидам на своём родном языке программы писать имея при этом ещё и тонны мануалов.

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам