Текущее время: Пт, апр 19 2024, 08:55

Часовой пояс: UTC + 3 часа


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


ВНИМАНИЕ!

Вопросы по SAP Query и Quick View - сюда



Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: Условие для пакетника  Тема решена
СообщениеДобавлено: Пт, сен 03 2004, 12:23 
Гость
в ЧЕМ ОШИБКА, К ПОЛУЧАЕТСЯ ВСЕГДА РАВНЫМ 1, А ДОЛЖНО СТАТЬ 1 ТОЛЬКО ЕСЛИ К = 10
SELECT * FROM KNBK WHERE KUNNR = KUNNR.
move-corresponding KNBK TO VTAB.
APPEND VTAB.
ENDSELECT.
DESCRIBE TABLE VTAB LINES N.
DESCRIBE TABLE VTAB LINES W.
N = N + 1.



* Дебитор
REFRESH TAB.

perform bdc_dynpro using 'SAPMF02D' '0106'.
perform bdc_field using 'BDC_CURSOR'
'RF02D-D0130'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'RF02D-KUNNR'
KUNNR.
perform bdc_field using 'RF02D-BUKRS'
BUKRS.
perform bdc_field using 'RF02D-D0130'
'X'.


IF N >= 11.

k = k + 1.
if k = 10.
k = 1.
ENDIF.
concatenate 'KNBK-BANKS(' N ')' into ss.
CONDENSE SS NO-GAPS.
perform bdc_dynpro using 'SAPMF02D' '0130'.
perform bdc_field using 'BDC_CURSOR'
SS.
perform bdc_field using 'BDC_OKCODE'
'=P+'.
ENDIF.


concatenate 'KNBK-BVTYP(' K ')' into ss.
CONDENSE SS NO-GAPS.
perform bdc_dynpro using 'SAPMF02D' '0130'.
perform bdc_field using 'BDC_CURSOR'
SS.

perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
concatenate 'KNBK-BANKS(' K ')' into ss.
CONDENSE SS NO-GAPS.

perform bdc_field using SS
ITAB-BANKS.
concatenate 'KNBK-BANKL(' K ')' into ss.
CONDENSE SS NO-GAPS.

perform bdc_field using SS
ITAB-BANKL.

concatenate 'KNBK-BANKN(' K ')' into ss.
CONDENSE SS NO-GAPS.

perform bdc_field using SS
ITAB-BANKN.
concatenate 'KNBK-BKONT(' K ')' into ss.
CONDENSE SS NO-GAPS.
perform bdc_field using SS
ITAB-BKONT.
concatenate 'KNBK-BVTYP(' K ')' into ss.
CONDENSE SS NO-GAPS.

perform bdc_field using SS
ITAB-BVTYP.
concatenate 'KNBK-BANKS(' K ')' into ss.
CONDENSE SS NO-GAPS.
perform bdc_dynpro using 'SAPMF02D' '0130'.
perform bdc_field using 'BDC_CURSOR'
SS.
perform bdc_field using 'BDC_OKCODE'
'=UPDA'.


CALL TRANSACTION 'FD02' USING TAB OPTIONS FROM TDEF.


Пометить тему как нерешенную
Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, сен 03 2004, 12:45 
Специалист
Специалист

Зарегистрирован:
Чт, авг 19 2004, 15:33
Сообщения: 160
Откуда: R/3 4.7
Да, тяжелый случай. Хоть я уже давненько не брал в руки шашаек, поумничаю.

1. ENDSELECT не есть хорошо.
2. sy-dbcnt вернет число выбранных записей, не надо делать 2-а
DESCRIBE TABLE гораздо лучше W = N
3. К=1 потому что у тебя N всегда >= 11
4. Есть отладчик, там все можно посмотреть.
5. ИМНО - бросай ты это дело, не твое это.


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Условие для пакетника
СообщениеДобавлено: Вт, сен 07 2004, 07:33 
Гость
Code:
...
          IF N >= 11.
         
            k = k + 1.   [i][b]"// здеся ошибка[/b][/i]
            if k = 10.
              k = 1.
            ENDIF.
            ...
          ENDIF.
          ...


при первом же проходе k=1 (k=k+1)...


Пометить тему как нерешенную
Вернуться к началу
  
 
 Заголовок сообщения: Re: Условие для пакетника
СообщениеДобавлено: Вт, сен 07 2004, 08:05 
Почетный гуру
Почетный гуру
Аватара пользователя

Зарегистрирован:
Вт, авг 31 2004, 14:57
Сообщения: 5257
Откуда: Ростов невеликий
Пол: Мужской
Anonymous написал(а):
Code:
...
          IF N >= 11.
         
            k = k + 1.   [i][b]"// здеся ошибка[/b][/i]
            if k = 10.
              k = 1.
            ENDIF.
            ...
          ENDIF.
          ...


при первом же проходе k=1 (k=k+1)...


"учите матчасть" (стаааарая истина)


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 3 часа


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

Сейчас этот форум просматривают: Yandex [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB