АРМ для работы со складом

  • Добавили25.01.2002
  • Размер30,53 Kб
  • Скачали3049
Сколько стоит заказать работу?

NOT key then exit kolpkolpkl kolkolkl DatepCifri25,3 8,key if NOT key then exit end end procedure Ushloposizinteger var erinteger keyBoolean klinteger begin clrscr With ListPosiz do begin writeln Расход writeln Количество - writeln Дата расхода ДД. ММ. ГГ- valCifri25,2 6,key,kl,er if NOT key then exit kolrkolrkl kolkol-kl DaterCifri25,3 8,key if NOT key then exit end end procedure Vvodnov var TxString erinteger keyBoolean begin clrscr With ListSchet do begin writeln Новый товар writeln Наименование товара writeln Количество writeln Цена writeln Дата прихода ДД.

ММ. ГГ readlndatep NaimEdtext25,2 20,key if NOT key then exit valCifri25,3 6,key,kol,er if NOT key then exit kolpkol valCifri25,4 10,key,price,er if NOT key then exit DatepCifri25,5 8,key if NOT key then exit incSchet end end procedure Edzapicposizinteger var TxString erinteger keyBoolean begin clrscr With Listposiz do begin writeln Редактирование товара writeln Наименование товара writeln Цена TxEdtext25,2,Naim,20,key if key then Naimtx strprice02,tx txCifri25,3,tx,10,key if key then valtx,price,er end end function vstrocavar cursintegerinteger var iinteger begin Textbackground15 TextColor0 gotoxy1,1 writeProbel,80 for i0 to 5 do begin gotoxyi131,1 writemnui1 end Textbackground0 TextColor14 gotoxycurs-1131,1 writemnucurs repeat kreadkey Textbackground15 TextColor0 gotoxycurs-1131,1 writemnucurs if k0 then kreadkey case k of 75 if curs 1 then deccurs else curs6 77 if curs 6 then inccurs else curs1 end Textbackground0 TextColor14 gotoxycurs-1131,1 writemnucurs if k13 then vstrocacurs until k27 or k13 if k27 then vstroca-1 end function VIVSTRnstrintegerString var Skol,sprice,summ, Pkol,RkolString10 begin VIVSTR if nstr Schet and nstr 0 then With Listnstr do begin strkol,skol strprice92,sprice strpricekol92,summ strkolp,pkol strkolr,rkol VIVSTRProbelnaim,20Probelskol,6Probelspr ice,11Probelsumm,11 ProbelPkol,6ProbelDatep,10ProbelRkol,6Pr obelDater,9 end end procedure .

Скачать
Реферат Военная кафедра 22.03.2007

Применение ЭВМ для повышения эффективности работы штаба ГО РИТАП

Задачи Гражданской Обороны Службы ГО План мероприятий Управление Гражданской обороной Программное обеспечение Организационная структура службы компьютерного сопровождения Заключение Список литературы Введение Чтобы оценить возможные способы применения

Реферат Бухгалтерский учет и аудит 17.03.2004

Бухгалтерские программы для малых предприятий

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

Диплом Микроэкономика 03.07.2003

Учет и аудит основных средств и эффективности их использования в условиях функционирования АРМ...

Міністерство освіти України Київський Національний економічний університет Кафедра обліку і аудиту в промисловості Дипломна робота на тему Облік і аудит основних засобів та ефективності їх використання в умовах функціонування АРМ бухгалтера . Дипломниця

Диплом Программирование 09.12.2002

АРМ бухгалтера "Учет основных средств"

7 2 Постановка задачи 9 3 Основная часть 10 3.1 Содержание и требования, предъявляемые к информации 10 3.2 Значение внутрифирменной системы информации 10 3.3 Основные принципы, цели, задачи и функции внутрифирменной системы информации 12 4 Порядок начисления

5ballov.qip.ru рекомендует:

  • Выбор ВУЗа

    С приходом лета начался период, когда выпускники школ выбирают куда пойдут учиться дальше. Конечно, это совсем не легкий выбор, но помочь в выборе может рейтинг вузов на нашем сайте. Также в этом разделе представлена вся нужная для абитуриентов информация.

  • Как сдать ЕГЭ

    Прежде, чем идти в выбранный вуз с документами, нужно сначала получить аттестат, который выдается после сдачи экзаменов. А подготовиться к ним можно в нашем разделе ЕГЭ. Там также представлены варианты за прошлые года.

  • Подготовка к ГИА

    Для девятиклассников не менее важно окончание учебного года. Их также ждет государственная итоговая аттестация. Подготовиться к ней можно на нашем сайте в разделе ГИА. Главное помнить: самоподготовка - это путь к успешной сдаче.

Облако тегов