Текущее время: Пт, мар 29 2024, 12:58

Часовой пояс: 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 часа


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

Сейчас этот форум просматривают: нет зарегистрированных пользователей


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

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