Отчеты по приказам

egochnpp

Здравствуйте.
Я пишу отчеты по приказам (прием, перевод, увольнение...).
Для этого в таблице T7RUR0 создаю запись, где мероприятие (A1, A3, A4...) связывается с программой-обработчиком. Далее в транзакции PA20 выбираю табельный номер и соответствующий приказ, жму ВЫВОД и ПЕЧАТЬ ДОКУМЕНТА. Автоматически запускается программа-обработчик.
Например, такая:
tables: pernr.
infotypes: 0298.
get pernr.
write: / pernr-pernr, p0298-ordnu.
Т.е. на печать выводится табельный и номер приказа. Но! Если табельный печатается корректный (т.е. выбранный в PA20), то номер приказа - не выделенный в PA20, а самый свежий (по BEGDA) для этого табельного, причем независимо от вида мероприятия. Это как-то можно исправить?

Строка в T7RUR0 выглядит так:
ГрСтр КодСтр Мероп Прич Подтип ДейстПо ДейстС Формуляр ИмяПрог
36 UA A1 05 99991231 20040101 Prog1

Bit

Сумбурного описано :wink:

Так откуда, всё-таки, ты печатаешь приказ, из какого окна?

egochnpp

Не сумбурно, а подробно, по возможности предугадывая уточняющие вопросы.

Приказы буду печатать выводом информации в Microsoft Word через функции слияния. Потом. А пока делаю тест через WRITE. Получается плохо (см. описание проблемы).

РМщик

не надо получать данные через ЛБД в таком случае,
а посмотри - какие параметры передадутся в ТВОЮ программу
в функции HR_RU_PRINT_ORDER :

SUBMIT (T7RUR0-PFILE)
WITH FTYPE EQ T7RUR0-FTYPE
WITH FORM EQ T7RUR0-NAMEF
WITH PNPPERNR IN PNR
WITH PNPBEGDA EQ BEGDA
WITH PNPENDDA EQ ENDDA
WITH MASSN EQ MASSN
WITH MASSG EQ MASSG
WITH ORDNU EQ ORDNU
WITH ORDDT EQ ORDDT
WITH MASPR EQ MASPR
USING SELECTION-SET VARID-VARIANT
AND RETURN.

в своей же программе сделай такие же параметры на селекционном экране и используй их

РМщик

вообще посмотри прогу HRUA_ORDER_T6
как она печатает приказ с ЛБД

РМщик

если свою прогу напишешь вот так,
то будут тебе нужные данные

Code:

REPORT  ZTESTHR1                                .

DATA: P1 LIKE PA0001,
      P298 LIKE PA0298.

SELECT-OPTIONS: PNPPERNR FOR P1-PERNR.

PARAMETERS:  ORDNU LIKE PA0298-ORDNU,
            ORDDT LIKE PA0298-ORDDT.

START-OF-SELECTION.

  CLEAR: P1, P298.

  SELECT SINGLE * INTO P1 FROM PA0001 WHERE PERNR IN PNPPERNR.

  SELECT SINGLE * INTO P298 FROM PA0298 WHERE PERNR IN PNPPERNR
         AND ORDNU = ORDNU
         AND ORDDT = ORDDT.

  WRITE:/ P1-PERNR,
          P1-ENAME,
          'Приказ №',
          P298-ORDNU,
          'от',
          P298-ORDDT.

egochnpp

РМщик - СПАСИБО!!!

Проблема решается либо так:
PARAMETERS ORDNU LIKE P0298-ORDNU.
WRITE ORDNU,

либо так:
GET PERNR.
READ TABLE P0298 WITH KEY BEGDA = PNPBEGDA.
WRITE P0298-ORDNU.

РМщик

ну да, токо хотел написать про read table :oops:

но Вы и сами раскопали...

Правила форума

Отчеты по приказам

Кто сейчас на конференции