Связь VBAK и VBAP, или просто проблема.

Primat

Добрый день

Люди помогите разобраться в приведенной ниже простоте.
Должно показывать данные как в контракте (транзакция VA42), а именно "ДоговорКоличество" и "Дата выполнения работ/услуг".
Данный код показывает все что нужно, но без последней записи (позиции) и плюс какие-то левые записи.
Я думаю что нахватает ограничений при связи VBAK и VBAP но не могу установить каких(первый раз работаю).

F_KUNNR - заказчик VBAK-KUNNR
F_VKORG - сбыт. орг VBAK-VKORG
F_VTWEG - канал сбыта VTWEG-VTWEG

Code:

DATA: ZVBELN LIKE VBAK-VBELN.
DATA: ZVBAP LIKE VBAP.
DATA: ZVBKD LIKE VBKD.

CLEAR: ZVBELN, ZVBAP, ZVBKD, ZPLANS.

 SELECT VBELN FROM VBAK
     INTO ZVBELN
     WHERE KUNNR = F_KUNNR
       AND VKORG = F_VKORG
       AND VTWEG = F_VTWEG
       AND ( AUART = 'ZD10' OR AUART = 'ZD20' ) .

     SELECT * FROM VBAP
       INTO ZVBAP
       WHERE VBELN = ZVBELN
         AND MATNR = F_MATNR.

        select single * from vbkd
          into zvbkd
          where posnr = zvbap-posnr and vbeln = zvbap-vbeln.

        WRITE: /  ZVBAP-ZMENG, zvbkd-FBUDA.

     ENDSELECT.
 ENDSELECT.

Заранее благодарен. С уважением Primat.

<Yuri>

А материал во всех позициях F_MATNR?

Primat

Да материал во всех позициях VBAP.
Я чуствую что здесь че-то нехватает. А что?

Sergo

Скажите пожалуйста, вам нужно ввывести данные чего: контракта или заказа?

<Yuri>

Primat написал(а):

Да материал во всех позициях VBAP.

Это понятно, что он во всех позициях, вопрос в том, равен ли он во всех позициях значению F_MATNR?

Sergo

После этого select

Цитата:

select single * from vbkd

нужно поставить проверку на SY-SUBRC = 0.

Primat

<Yuri> написал(а):

Это понятно, что он во всех позициях, вопрос в том, равен ли он во всех позициях значению F_MATNR?

F_MATNR - импортная переменная созданого мной ФМ.
Она являеся постояной(неизменяемой) при всех итерациях приведенных выше SELECTов.

Sergo написал:

Скажите пожалуйста, вам нужно ввывести данные чего: контракта или заказа?

Контрата (транз. VA42).

Sergo написал:

нужно поставить проверку на SY-SUBRC = 0.

Дело в том что SELECTы возврацают инфу, но в смесь с ненужной инфой.
Вы имели ввиду наверное:

Code:

if SY-SUBRC = 0.
 WRITE: /  ZVBAP-ZMENG, zvbkd-FBUDA.
endif.

Результат при это не меняется.

Sergo

Цитата:

Результат при этом не меняется.

Ну просто не может такого быть

Ну тогда, быть может, поле mandt в WHERE каждого внутреннего SELECT прописать.

Timon&Pumba

Неплохо бы почистить zvbap и zvbkd перед select-ом.

Monarch

Почему бы не сделать один SELECT из VBAK + VBAP + VBKD со всеми нужными условиями во внутр.таблицу, а по ней уже LOOP и вывод на экран?

Удав

Sergo написал:

Ну тогда, быть может, поле mandt в WHERE каждого внутреннего SELECT прописать.

Вот это точно лишнее.
В коде же не указано CLIENT SPECIFIED :lol:

По существу:

Primat написал(а):

F_MATNR - импортная переменная созданого мной ФМ.
Она являеся постояной(неизменяемой) при всех итерациях приведенных выше SELECTов.

Значит, могут выбираться не все позиции контракта

Primat написал(а):

Дело в том что SELECTы возврацают инфу, но в смесь с ненужной инфой.
Вы имели ввиду наверное:
Код:

if SY-SUBRC = 0.
WRITE: / ZVBAP-ZMENG, zvbkd-FBUDA.
endif.

Результат при это не меняется.

А может, нужно так:

Code:

DATA: ZVBELN LIKE VBAK-VBELN. 
DATA: ZVBAP LIKE VBAP. 
DATA: ZVBKD LIKE VBKD. 

CLEAR: ZVBELN. 

 SELECT VBELN FROM VBAK 
     INTO ZVBELN 
     WHERE KUNNR = F_KUNNR 
       AND VKORG = F_VKORG 
       AND VTWEG = F_VTWEG 
       AND ( AUART = 'ZD10' OR AUART = 'ZD20' ) . 

     CLEAR: ZVBAP.

     SELECT * FROM VBAP 
       INTO ZVBAP 
       WHERE VBELN = ZVBELN 
         AND MATNR = F_MATNR. 
        
        CLEAR: zvbkd.
        select single * from vbkd 
          into zvbkd 
          where posnr = zvbap-posnr and vbeln = zvbap-vbeln. 

        IF SY-SUBRC <> 0.
* Если запись на уровне позиции в VBKD не найдена - 
* ищем на уровне заголовка
          SELECT SINGLE *
          INTO zvbkd
          FROM vbkd
          WHERE vbeln = zvbak-vbeln
            AND posnr = '000000'.

        ENDIF.

        WRITE: /  ZVBAP-ZMENG, zvbkd-FBUDA. 

     ENDSELECT. 
 ENDSELECT. 

Primat

Я очень благодарен за помощь, но у меня вопрос:

Цитата:

SELECT SINGLE *
INTO zvbkd
FROM vbkd
WHERE vbeln = zvbak-vbeln
AND posnr = '000000'.

Ошибка: The field "ZVBAK" is unknown, but there are the following fields with similar names: "ZVBAP" and "ZVBKD".

Это наверное:
DATA: ZVBAK LIKE VBAK.
(И где она определяется.)
Может я <я не знать русский языка> за свою непонятливость просто ужеголова шумит от сегоднешней работенки

.

<Yuri>

Primat написал(а):

Я очень благодарен за помощь, но у меня вопрос:

Цитата:

SELECT SINGLE *
INTO zvbkd
FROM vbkd
WHERE vbeln = zvbak-vbeln
AND posnr = '000000'.

Ошибка: The field "ZVBAK" is unknown, but there are the following fields with similar names: "ZVBAP" and "ZVBKD".

Это наверное:
DATA: ZVBAK LIKE VBAK.
(И где она определяется.)
Может я <я не знать русский языка> за свою непонятливость просто ужеголова шумит от сегоднешней работенки

.

Замените WHERE vbeln = zvbak-vbeln
на WHERE vbeln = ZVBAP-vbeln
и голова пройдет :lol:

Sergo

Я бы, чтобы вот так не гадать, сначала вывел каждую позицию.
То есть, вместо

Цитата:

WRITE: / ZVBAP-ZMENG, zvbkd-FBUDA.

Написал бы
WRITE: / ZVBAP-VBELN, ZVBAP-POSNR. ZVBAP-ZMENG, zvbkd-FBUDA.

То есть так:

Цитата:

DATA: ZVBELN LIKE VBAK-VBELN.
DATA: ZVBAP LIKE VBAP.
DATA: ZVBKD LIKE VBKD.

CLEAR: ZVBELN, ZVBAP, ZVBKD, ZPLANS.

SELECT VBELN FROM VBAK
INTO ZVBELN
WHERE KUNNR = F_KUNNR
AND VKORG = F_VKORG
AND VTWEG = F_VTWEG
AND ( AUART = 'ZD10' OR AUART = 'ZD20' ) .

SELECT * FROM VBAP
INTO ZVBAP
WHERE VBELN = ZVBELN
AND MATNR = F_MATNR.

select single * from vbkd
into zvbkd
where posnr = zvbap-posnr and vbeln = zvbap-vbeln.

WRITE: / ZVBAP-VBELN, ZVBAP-POSNR. ZVBAP-ZMENG, zvbkd-FBUDA.

ENDSELECT.
ENDSELECT.

Ну и тогда уж было бы видно, почему что-то там не выводится.

Primat

Ничего не получается

Всех благодарю за помощь.
Нужно подумать над идеей

Monarch написал(а):

Почему бы не сделать один SELECT из VBAK + VBAP + VBKD со всеми нужными условиями во внутр.таблицу, а по ней уже LOOP и вывод на экран?

и замечанием

Sergo написал:

Написал бы
WRITE: / ZVBAP-VBELN, ZVBAP-POSNR. ZVBAP-ZMENG, zvbkd-FBUDA.

Буду думать над этим завтра

, а сегодня рабочий день закончился.

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

Связь VBAK и VBAP, или просто проблема.

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