ЛюксСофт Плюс - корпоративный web сайт

Главная

Добро пожаловать!

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

Комплексная система управления предприятием "Золотое сечение"

АВТОМАТИЗИРОВАННОЕ РАБОЧЕЕ МЕСТО РУКОВОДИТЕЛЯ

БУХГАЛТЕРСКИЙ УЧЕТ И АНАЛИЗ

Сводный бухгалтерский учет (Баланс, Главная книга)

Клиент-банк, валютные операции, расчет налогов

Расчеты с поставщиками, заказчиками, Книга покупок и продаж

Учет товарно-материальных ценностей

Учет основных средств и нематериальных активов

Учет инвентаря и спецодежды в эксплуатации

Расчет заработной платы

Консолидированный сводный учет группы предприятий

Консолидация форм отчетности

Управление сбытом, снабжением

Склад, работа с распределенными складами

Учет товарно-материальных ценностей в торговле

Калькуляция блюд в общепите

УПРАВЛЕНИЕ ПЕРСОНАЛОМ

Учет и управление кадрами

Расчет заработной платы

Контроль исполнительской дисциплины

ЦЕНООБРАЗОВАНИЕ

Расчет цен по изделиям в строительстве

Расчет цен по изделиям в машиностроении

Расчет цен по изделиям в перерабатывающей промышленности (продукты питания)

Расчет рентабельности изготавливаемой продукции

УПРАВЛЕНИЕ ПРОИЗВОДСТВОМ

Управление данными по изделиям

Контроль производства и трудовых операций в цеховом учете

Планирование материальных потребностей

Расчет расхода сырья и материалов

Калькуляция плановой и фактической себестоимости

Учет тары и упаковки

АВТОБИЗНЕС

АРМ менеджера по продажам в автосалоне

АРМ автоматизации деятельности СТО

Стол заказов, планирование и учет работ

Ведение учета прихода и реализации запчастей

Учет путевых листов и ГСМ

И т.д...

УПРАВЛЕНИЕ РЕСУРСАМИ

Расчет коммунальных Платежей

Расчет арендной платы

Учет путевых листов и ГСМ

ВНЕДРЕНИЕ

ГАРАНТИЙНОЕ И ПОСЛЕГАРАНТИЙНОЕ СОПРОВОЖДЕНИЕ

[an error occurred while processing this directive]

Обновление:
01.06.2012

#!/usr/bin/perl #----------------------------------------- #вызов: navigation.cgi?menu=[nav|footer]&value=[glavn...]&sid=25yudf38g # Здесь знаком | отделяются параметры: наименование пункта | путь $MENUNAV[0]="glavn|Главная|"; $MENUNAV[1]="company|Компания|company/"; $MENUNAV[2]="contact|Контакт|contact/"; $MENUNAV[3]="product|Продукты|product/"; $MENUNAV[4]="pricelist|Прайс лист|pricelist/"; $MENUNAV[5]="guest|Гостевая|cgi-bin/guest.cgi"; $MENUNAV[6]="search|Поиск|cgi-bin/search.cgi"; $MENUNAV[7]="update|Обновление|updatesite/"; $MENUUSER[0]="registration|Регистрация|cgi-bin/registration.cgi"; $MENUUSER[1]="subscribe|Подписка|cgi-bin/subscribe.cgi"; $MENUUSER[2]="download|Скачать|cgi-bin/nph-download.cgi"; #----------------------------------------- $buffer = $ENV{'QUERY_STRING'}; @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ s/\s/ /g; $value =~ s/\n//g; $value=substr($value,0,30) if $value; $value =~ tr/0-9a-zA-Z//c; #все не буквы и не цифры убираем $FORM{$name} = $value; } $supress=0; $supress=1 if $FORM{'h'} == 1; print "Content-Type: text/html\n\n" if !$supress; if ( $FORM{'sid'} ne '25yudf38g' ) {print "\n"; exit(0);} $proceed=0; if ($FORM{'menu'} eq 'nav') {&doNavigator; $proceed=1;} if ($FORM{'menu'} eq 'footer') {&doFooterMenu; $proceed=1;} print "\n" if (!$proceed); #----------------------------------------- sub doNavigator { print "\n"; &NavMenu("Навигатор",@MENUNAV); &spacer(10); &NavMenu("User",@MENUUSER); &spacer(10); print ""; } #----------------------------------------- sub doFooterMenu { print <

ENDHERE for ($i=0; $i<=5; $i++) { ($hkey,$hname,$hpath) = split (/\|/,$MENUNAV[$i]); if ($hkey eq $FORM{'value'}) { print "$hname"; } else { print "$hname"; } print " | " if ($i<5); } print "\n"; print <

ENDHERE } #----------------------------------------- sub NavMenu { #f6f6f6 #cccccc local ($i); print ""; print "
"; &menuv; print "
$_[0]
"; &menuv; &spacer(4); for ($i=1; $i<=$#_; $i++) { ($hkey,$hname,$hpath) = split (/\|/,$_[$i]); if ($hkey eq $FORM{'value'}) { print "
$hname
"; } else { print "
$hname
"; } } &spacer(4); print "
\n"; } #----------------------------------------- sub menuv { print "
"; } #----------------------------------------- sub spacer { local ($he) = @_; print "
\n"; }