Сообщений в теме: 5008

[soleil]

утра)) 

 

туда где, все удобства.. турция в самый раз.. иссык-куль, боровое - холодно.. балхаш,  алаколь - инфраструктуры нет..

[soleil]

[zavuch]

чё за чёрный квадрат у Соль? )

ах это линкин парк тырнет оочень медленный в банке (

 

турция, говорите? как раз коллега приехал из Стамбула фоты показывал.. вааах красотааа!!!

[zavuch]

Чёто помойму я подошёл к задаче автоматизации ДРовских поздравлялок слишком "творчески".

Вот моё письмо ХР-менеджеру:

 

1. По выбору открыток. Поскольку система выбирает открытку случайно из примерно 30-50 заготовок (столько я нашёл вчера в интернете), и выбирает случайный шрифт и случайный цвет, пару фраз в тексте тоже кстати можно выбирать случайно из базы, (разнообразие в поздравлениях это такая «фишка» психологическая, скажем, если бы подарки всем дарили одинаковые, это бы не очень нравилось людям, да?), иногда выбор может быть неудачным.

Сделаю так – открытка генерируется за день-два до дня рождения. Уведомление об этом высылается на почту мне и вам вместе со сгенерированной открыткой. Если выбор удачный, ничего делать не нужно – при наступлении ДР открытка идёт в массовую рассылку всем. Если видим открытка не подходит, кто-нибудь из нас заходит на веб-страничку и либо щёлкает по наиболее подходящей открытке, на которую программка допишет текст, либо нажимает кнопку «Случайная» до тех пор, пока не увидит успешный выбор. После чего опять же ничего делать не надо, по расписанию последняя открытка пойдёт в рассылку.

Если на страницу-генератор открыток зайду сначала я и переделаю открытку, а потом, не зная об этом, зайдёте Вы, на страничке будет писаться предупреждение, что оператор уже переделывал картинку (но Вы всё равно сможете картинку изменить).

 

Вот так я вижу этут систему – автоматика под двойным контролем с возможностью корректировки.

Рисовать текст на открытке полностью вручную тоже недолго, но это нужно отдельно садиться и делать перед каждым ДР (даже когда болеешь или в отпуске), согласовывать картинку и т.д., т.е. несколько хуже автомата под контролем.

 

Спасибо,

--

Роман

 

 

....прикол - вчера не заметил на открытке маленькими буквами надпись "I love you!" и чуть не послал её директору    

[soleil]

зав, делай прогу, запатентуим, будем продавать в гугл-приложениях по 5 баксов за ед.. неее, за десять.. 

классная штука..

 

не в стамбул.. это туристический город.. а вам с ребенком тока валяться и объедаться в олл-инклюзиве.. анталия - вот куда нада.. 

[soleil]

а директор та хоть симпатишный??

[zavuch]

норм. рыжий и в очках, на Гейтса смахивает. мы с ним лет 20 знакомы жили вместе и выпили цистерну пива наверное.. )

Сообщение отредактировал Kaligula: 16.05.2014, 10:09:45

[soleil]

а ну тада можно.. он жы тебе знает и обратна не полезет целоваца..

[zavuch]

..или как..?? где там ню..

Сообщение отредактировал Kaligula: 16.05.2014, 10:43:36

[L"eka]

[zavuch]

Соль, завтра после обеда хочешь с нами (и малину возьмём) в "У Алины" посидеть??

Это Курмангазы-Панфилова

в Керуен мы не ходим больше, там шашлык постоянно стали жёсткий приносить ((

[soleil]

хочу..  но у мне жы дача.. глядишь я туда сегодня с ночевкой уеду.. 

[zavuch]

ну если не уедешь появись тут и скажи что не уехала )

[Weise]

Как соцотчисления  и соцналог рассчитываются?

(ФОТ - ОПВ-19966)*5%

(ФОТ-ОПВ-19966)*6%

или ФОТ*5%

ФОТ*6%???

[L"eka]

посмотри тут

[soleil]

Как соцотчисления  и соцналог рассчитываются?

(ФОТ - ОПВ-19966)*5%

(ФОТ-ОПВ-19966)*6%

или ФОТ*5%

ФОТ*6%???

ты за кого считаешь?? на ип?? 

[Weise]

нет не на ИП. на организацию типа ТОО

 

разобралась и рассчитала.

 

Не хочу быть бухгалтером(((

Сообщение отредактировал Weise: 16.05.2014, 14:45:29

[soleil]

это ж просто..

[Weise]

это ж просто..

но не интересно

[zavuch]

Нифига ж!!

Вот это просто:

 

                sotr = buh.ActiveSheet.Cells(buh_sotr_r, buh_sotr_c).Value
                If sotr <> "Всего" Then 'новый сотр
                    'MsgBox sotr
                    With rep.Sheets(mes).Cells(rep_sotr_r, rep_sotr_c)
                    .Value = sotr
                    .Orientation = xlVertical
                    If sotr_n = 0 Then .Font.Color = RGB(255, 0, 0)
                    End With
                    rep_sotr_c = rep_sotr_c + 1
                    sotr_n = sotr_n + 1
                    'вот оно!! взятие цифр по сотруднику!
                    buh_chasy_r = 7: buh_chasy_c = buh_sotr_c: buh_prod_c = 3 'выбираем челчасы идя вниз по сотру пока не пусто в столбце 3 (код продукта)
                    rep_chasy_r = rep.Sheets(mes).Range(rep.Sheets(mes).Names(manager)).Row: rep_chasy_c = rep_sotr_c   'ряд для простановки челчасов обнаруживается по имени ячейки как имя менеджера, которое задавали для первой сверху работы в куске этого менеджера
                    'MsgBox rep_chasy_r
                    Do While buh.ActiveSheet.Cells(buh_chasy_r, buh_prod_c) <> ""
                        buh_chasy = buh.ActiveSheet.Cells(buh_chasy_r, buh_chasy_c).Value
                        'MsgBox sotr & " " & buh_chasy
                        rep.Sheets(mes).Cells(rep_chasy_r, rep_chasy_c - 1) = buh_chasy '-1 потому что в бухформах сотры начинаются с 7го столбца, а в репорте с 6-го, из-за того что я убрал из репорта столбец А
                        buh_chasy_r = buh_chasy_r + 1
                        rep_chasy_r = rep_chasy_r + 1
                    Loop
                    'конец взятия цифр по сотруднику
                Else    'конец сотрудников в месяце
                    'MsgBox sotr_n
                    rep.Sheets(mes).Range("d2").Value = "по проектам за " & mes & " " & Application.WorksheetFunction.Trim(buh.ActiveSheet.Range("b2").Value)
                    'c_sotr = c_mes
                    Exit For
                End If
            Next buh_sotr_c

 

и вот это просто:

 

//выбрать случайный шрифт
$fonts=array();
$d=opendir("fonts") or die("нет папки со шрифтами");
while($f=readdir($d)){if($f!="."&&$f!=".."&&substr($f,-4,4)==".ttf"){array_push($fonts,$f);}}
closedir($d);
if(count($fonts)==0){die("нет шрифтов в папке");}
$rnd=rand(0,count($fonts)-1);
$fnt="fonts/$fonts[$rnd]";
//поздравительный текст
$strs=array("Поздравляем","с Днём Рождения","Желаем всех благ и пр.","Коллектив");

//$strs[1]=mysql_result($q,0);
$posx=array(240, 70,330,100,130,390,230,130,160,420,260,160,460,300,180,190,160,120,220,130,350,340,110,100,160,100,170,160,270,200);
$posy=array(140,100,140,200,270, 80,150,140,130,120,150,180,150,140,200,120,170,170,170,150,330,150,180,120,220,100,180,200,140,190);
$posa=array(  0,  4, 15,  0,  0,  0,  0,  0,  0,  0,  0,  0, -7,  0,  0,  0,  0,  0,  0,  0,  0, -3,  0,  0,  0,  0,  0,  0,  0,  0);
$size=array( 30, 30, 25, 25, 25, 30, 25, 30, 30, 25, 25, 30, 25, 25, 30, 30, 25, 30, 30, 30, 25, 30, 30, 30, 25, 30, 25, 25, 30, 25);
$nnnn=array(  0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29);
if($fnt=="fonts/segoepr.ttf"||$fnt=="fonts/segoesc.ttf"){$size[$pixn]-=10;}
for($i=0;$i<count($strs);$i++)
{
$str=$strs[$i];$dx=$posx[$pixn];$dy=$posy[$pixn];$da=$posa[$pixn];
$out=win_uni($str);
imagettftext($dst,$size[$pixn],$da,$dx,$dy+$i*40+30,$clr,$fnt,$out);
}
imagejpeg($dst,"images/birthday/selected/card.jpg");
imagedestroy($dst);
echo "<img src='images/birthday/selected/card.jpg'>";
?>

 

а бухгалтерия - СЛОЖНО!!     

Сообщение отредактировал Kaligula: 16.05.2014, 16:03:14