Печать этикеток из AX 4.0 sp.2

[Alexx7]

Граждане!
Есть у кого опыт печати этикеток из аксапты. Задача в том, чтобы акапта реагировала на нажатие кнопки сразу на принтер. Пробовал вот так:

    #WinAPI

    PrintJobSettings        pjs         = new PrintJobSettings();
    str                                 printerName, printerDriverName, fileParams;
    int                                 z = 1;

    while (z <= pjs.getNumberOfPrinters())
    {
        printerName = pjs.getPrinter(z);
        pjs.deviceName(printerName);
        printerDriverName = pjs.printerDriverName();
        if (printerDriverName == 'Zebra  LP2824-Z')
        {
            printerDriverName = '';
            break;
        }
        z++;
    }

    if (printerDriverName)
    {
        return;
    }

    fileParams = "/c print /d:"+printerName+" c:\1.txt";
    winapi::shellExecute("cmd",fileParams);

Где "1.txt" - это текстовик с командами принтера.
на печать не выходит ничего.
Грешу на этот фрагмент:

fileParams = "/c print /d:"+printerName+" c:\1.txt";

Буду рад любому совету. Спасибо.

[vc]

У нас подобная печать заработала, когда начали использовать
WinAPI::copyFile(fileName, printerPath,false);
вместо shellExecute.
printerPath - локальный порт, 'LPT1' например, либо сетевое имя принтера этикеток.

[egorych]

а ху из print ? и зачем pjs ?
КОнкретно для зебры - мы формируем текстовый файл, а потом

err = WinAPI::copyFile(_file,_printer);

[Alexx7]

Цитата:

Сообщение от vc

У нас подобная печать заработала, когда начали использовать
WinAPI::copyFile(fileName, printerPath,false);
вместо shellExecute.
printerPath - локальный порт, 'LPT1' например, либо сетевое имя принтера этикеток.

Я поробовал. Работает на сетевой принтер (обычный лазерный). А вто в зебру не влазит. Зебра установлена как локальный принтер по Standard TCP/IP port. Может в этом причина быть?

Вобщем получилось:

    fileParams  = 'C:\\1.txt';
    printerName = '\\\\COMP_NAME\\Zebra';
    err = WinAPI::copyFile(fileParams,printerName,false);

Другими словами, если гнать через сеть, тогда будет работать, а если отправлять на локальный порт Standard TCP/IP port, то где то застревает. Хочется понять в чем причина.

[egorych]

Цитата:

Сообщение от Alexx7

а если отправлять на локальный порт Standard TCP/IP port, то где то застревает. Хочется понять в чем причина.

Попробуй не в портписать, а в принтер! Посмотри как он называется в дисп. принтеров - и по этому имени копируй.

[Alexx7]

Цитата:

Сообщение от egorych

Попробуй не в портписать, а в принтер! Посмотри как он называется в дисп. принтеров - и по этому имени копируй.

Так тоже пробовал. Нифига не вылазит.

[Alexx7]

Получилось немного в обход. Может что посоветуете по оптимизации:

    #WinAPI
    str                                 fileParams, scriptZebra, printerName, paramStr;
    int                                 z = 1, posCh = 0, numCh, i;
    boolean                             err;
    container                           cnt;
 
    if (!_printStr)
    {
        info('@AKM288');
        return;
    }
    // Это разложение строчки на поля. 
    while (1 > 0)
    {
        numCh = strFind(_printStr, '|', posCh, strlen(_printStr));
        cnt += substr(_printStr, posCh + 1, numCh - 1);
        _printStr = strDel(_printStr,posCh + 1, numCh);
        if (strlen(_printStr) < 1)
        {
            break;
        }
    }
    
    scriptZebra = '\^\^XA\^\^A@N,0,0,E:Cyri_ub.FNT'
    +'\^\^FO010,010\^\^A@N,40,35\^\^FD'+conPeek(cnt, 1)
    +'\^\^FS\^\^FO250,010\^\^A@N,40,35\^\^FD'+conPeek(cnt, 2)
    +'\^\^FS\^\^FO010,050\^\^A@N,40,35\^\^FD'+conPeek(cnt, 3)
    +'\^\^FS\^\^FO010,090\^\^A@N,40,35\^\^FD'+conPeek(cnt, 4)
    +'\^\^fS\^\^FO010,130\^\^A@N,50,40\^\^FD'+conPeek(cnt, 5)
    +'\^\^FS\^\^FO260,135\^\^A@N,40,35\^\^FD'+conPeek(cnt, 6)
    +'\^\^FS\^\^FO010,190\^\^A@N,40,35\^\^FD'+conPeek(cnt, 7)
    +'\^\^FS\^\^PQ1\^\^XZ';

    paramStr = scriptZebra+" > c:\\tmp.txt";

    WinApi::shellExecute("cmd","/c ECHO "+paramStr);


    fileParams  = 'c:\\tmp.txt';
    printerName = '\\\\Comp_name\\Zebra';
    err = WinAPI::copyFile(fileParams,printerName,false);

    if (err)
    {
        return;
    }

    WinApi::shellExecute("cmd","/c del c:\\tmp.txt");

Но зато печатается. Только смущают досовские окна выпрыгивающие и исчезающие. Пользователь испугается... звонить начнет

[Lucky13]

Цитата:

Сообщение от Alexx7

Только смущают досовские окна выпрыгивающие и исчезающие. Пользователь испугается... звонить начнет

У ShellExecute есть параметер show, попробуйте дать туда SW_HIDE

[ivas]

Asciiio txtFile;
;
txtFile = new Asciiio("LPT" + int2str(_port + 1), "w");
txtFile.write(_text);

на LPT порт можно повесить сетевой принтер через коменду net use.

[Alexx7]

Цитата:

Сообщение от ivas

Asciiio txtFile;
;
txtFile = new Asciiio("LPT" + int2str(_port + 1), "w");
txtFile.write(_text);

на LPT порт можно повесить сетевой принтер через коменду net use.

Пожалуй стоит попробовать.

[Alexx7]

Цитата:

Сообщение от Lucky13

У ShellExecute есть параметер show, попробуйте дать туда SW_HIDE

WinApi::shellExecute("cmd","/c ECHO "+paramStr,'','',0);

Вот так ↑ заработало. Вобще никаких "левых" окон.

[Alexx7]

Цитата:

Сообщение от ivas

Asciiio txtFile;
;
txtFile = new Asciiio("LPT" + int2str(_port + 1), "w");
txtFile.write(_text);

Работает, только почемуто кодировка неподходит, нужно DOS (ASCII).

Вобщем спасибо ivas, что навел на мысль.
Вот что получилось:

    TextIO      txtFile;
    str            scriptZebra, printerName, paramStr;
    int            z = 1, posCh = 0, numCh, i;
    container  cnt;
     
     // раскладываем строку;
     while (1 > 0)
    {
        numCh = strFind(_printStr, '|', posCh, strlen(_printStr));
        cnt += substr(_printStr, posCh + 1, numCh - 1);
        _printStr = strDel(_printStr,posCh + 1, numCh);
        if (strlen(_printStr) < 1)
        {
            break;
        }
    }
    scriptZebra = '\^\^XA\^\^A@N,0,0,E:Cyri_ub.FNT'
    +'\^\^FO010,010\^\^A@N,40,35\^\^FD'+conPeek(cnt, 1)
    +'\^\^FS\^\^FO250,010\^\^A@N,40,35\^\^FD'+conPeek(cnt, 2)
    +'\^\^FS\^\^FO010,050\^\^A@N,40,35\^\^FD'+conPeek(cnt, 3)
    +'\^\^FS\^\^FO010,090\^\^A@N,40,35\^\^FD'+conPeek(cnt, 4)
    +'\^\^fS\^\^FO010,130\^\^A@N,50,40\^\^FD'+conPeek(cnt, 5)
    +'\^\^FS\^\^FO260,135\^\^A@N,40,35\^\^FD'+conPeek(cnt, 6)
    +'\^\^FS\^\^FO010,190\^\^A@N,40,35\^\^FD'+conPeek(cnt, 7)
    +'\^\^FS\^\^PQ1\^\^XZ';
    
    printerName = '\\\\comp_name\\Zebra';

    txtFile = new TextIo(printerName, "w", 866);
    txtFile.write(ansi2ascii(scriptZebra));

[Alexx7]

Кто знает по поводу вот этого:

TextIO                              txtFile;

txtFile = new TextIo(printerName, "w", 866);
txtFile.write(ansi2ascii(scriptZebra));

Не хочет работать на сервере. Говорит, что объект не инициализарован. Как быть?

[ZVV]

Цитата:

Сообщение от Alexx7

Кто знает по поводу вот этого:

TextIO                              txtFile;

txtFile = new TextIo(printerName, "w", 866);
txtFile.write(ansi2ascii(scriptZebra));

Не хочет работать на сервере. Говорит, что объект не инициализарован. Как быть?

Permission-ы надо заassertтить, видимо...

[Alexx7]

Цитата:

Сообщение от ZVV

Permission-ы надо заassertтить, видимо...

Можете немного подробнее. Вы про класс FileIOPermission?

[ZVV]

Цитата:

Сообщение от Alexx7

Можете немного подробнее. Вы про класс FileIOPermission?

да, про него родимого...
на сервере без этого работать не будет

        New FileIOPermission(_fileName, "w").assert();
        ..........................................
        CodeAccessPermission::revertAssert();

[Alexx7]

Цитата:

Сообщение от ZVV

да, про него родимого...
на сервере без этого работать не будет

        New FileIOPermission(_fileName, "w").assert();
        ..........................................
        CodeAccessPermission::revertAssert();

А как определить откуда вызван мой класс? С серваера или с клиента? т.е. где на данный момент выполняется код?

[ZVV]

Цитата:

Сообщение от Alexx7

А как определить откуда вызван мой класс? С серваера или с клиента? т.е. где на данный момент выполняется код?

а зачем вам это нужно знать?
это вам знать не нужно, делайте ассерт всегда, оградите себя от проблем в будущем

[Alexx7]

Цитата:

Сообщение от ZVV

а зачем вам это нужно знать?
это вам знать не нужно, делайте ассерт всегда, оградите себя от проблем в будущем

У меня это происходит в цикле. Он теперь начинает говорить
Несколько вызовов CodeAccessPermission.Assert

(S)\Classes\FileIOPermission\assert
(S)\Classes\PrintLabel\createPrnString - line 50
(S)\Classes\ProdJournalCheckPostProd\runPrint_RU - line 34
(S)\Classes\JournalCheckPost\run - line 48
(S)\Classes\ProdJournalCheckPostProd\run - line 17
(C)\Classes\ProdJournalCheckPost\main - line 23
(C)\Classes\FormFunctionButtonControl\Clicked
(C)\Classes\FormFunctionButtonControl\Clicked - line 6

И это меня очень смущает.

вот код:

fileIOperm = new FileIOPermission(printerName,"w");
fileIOperm.assert();
txtFile = new TextIo(printerName, "w", 866);
txtFile.write(ansi2ascii(scriptZebra));

[ZVV]

Цитата:

Сообщение от Alexx7

У меня это происходит в цикле. Он теперь начинает говорить
Несколько вызовов CodeAccessPermission.Assert

(S)\Classes\FileIOPermission\assert
(S)\Classes\PrintLabel\createPrnString - line 50
(S)\Classes\ProdJournalCheckPostProd\runPrint_RU - line 34
(S)\Classes\JournalCheckPost\run - line 48
(S)\Classes\ProdJournalCheckPostProd\run - line 17
(C)\Classes\ProdJournalCheckPost\main - line 23
(C)\Classes\FormFunctionButtonControl\Clicked
(C)\Classes\FormFunctionButtonControl\Clicked - line 6

И это меня очень смущает.

вот код:

fileIOperm = new FileIOPermission(printerName,"w");
fileIOperm.assert();
txtFile = new TextIo(printerName, "w", 866);
txtFile.write(ansi2ascii(scriptZebra));

ну во-первых покажите весь цикл,
а во-вторных, по мере ненадобности предыдущие "ассерты" надо отменять, я ж писал:

CodeAccessPermission::revertAssert();

я ж так понимаю у вас один файл обрабатывается в каждой итерации цикла?
Значит в начале итерации - assert, в конце - revertAssert...