budista1
08/07/11, 23:36:27
Hola
dentro de un loop, controlo una serie de campos,pero hay uno que veo
que va repitiendo un valor y no está correcto
Como arreglar ese fallo? Sy-tabix? Watchpoint?
COSTE SERVICIO SE REPITE Y NO ES CORRECTO
10000
10000
10000
20000
20000
20000
20000
Os paso una parte del código, veo que el sy-tabix no avanza secuencialmente,
hace 1,2,4,5.....luego 1,2...luego 6,7,8
Esto es debido a que intervienen tablas diferentes:
SORT pt_caufv BY aufnr.
CLEAR ls_caufv.
LOOP AT pt_caufv INTO ls_caufv.
ls_final1-aufnr = ls_caufv-aufnr.
ls_final1-auart = ls_caufv-auart.
PERFORM fecha_mes.
READ TABLE pt_qlty1 INTO ls_qlty1
WITH KEY aufpl = ls_caufv-aufpl
BINARY SEARCH.
IF sy-subrc = 0.
CLEAR ls_final1-larnt.
ls_final1-larnt = ls_qlty1-larnt.
ENDIF.
READ TABLE pt_iflo INTO ls_iflo
WITH KEY aufnr = ls_caufv-aufnr
BINARY SEARCH.
IF sy-subrc = 0.
CLEAR ls_final1-tplnr.
CLEAR ls_final1-proid.
ls_final1-tplnr = ls_iflo-tplnr.
ls_final1-proid = ls_iflo-proid.
ENDIF.
READ TABLE pt_afih INTO ls_afih
WITH KEY aufnr = ls_caufv-aufnr
BINARY SEARCH.
IF sy-subrc = 0.
CLEAR ls_final1-equnr.
ls_final1-equnr = ls_afih-equnr.
ENDIF.
MUCHAS GRACIAS DE ANTEMANO!
dentro de un loop, controlo una serie de campos,pero hay uno que veo
que va repitiendo un valor y no está correcto
Como arreglar ese fallo? Sy-tabix? Watchpoint?
COSTE SERVICIO SE REPITE Y NO ES CORRECTO
10000
10000
10000
20000
20000
20000
20000
Os paso una parte del código, veo que el sy-tabix no avanza secuencialmente,
hace 1,2,4,5.....luego 1,2...luego 6,7,8
Esto es debido a que intervienen tablas diferentes:
SORT pt_caufv BY aufnr.
CLEAR ls_caufv.
LOOP AT pt_caufv INTO ls_caufv.
ls_final1-aufnr = ls_caufv-aufnr.
ls_final1-auart = ls_caufv-auart.
PERFORM fecha_mes.
READ TABLE pt_qlty1 INTO ls_qlty1
WITH KEY aufpl = ls_caufv-aufpl
BINARY SEARCH.
IF sy-subrc = 0.
CLEAR ls_final1-larnt.
ls_final1-larnt = ls_qlty1-larnt.
ENDIF.
READ TABLE pt_iflo INTO ls_iflo
WITH KEY aufnr = ls_caufv-aufnr
BINARY SEARCH.
IF sy-subrc = 0.
CLEAR ls_final1-tplnr.
CLEAR ls_final1-proid.
ls_final1-tplnr = ls_iflo-tplnr.
ls_final1-proid = ls_iflo-proid.
ENDIF.
READ TABLE pt_afih INTO ls_afih
WITH KEY aufnr = ls_caufv-aufnr
BINARY SEARCH.
IF sy-subrc = 0.
CLEAR ls_final1-equnr.
ls_final1-equnr = ls_afih-equnr.
ENDIF.
MUCHAS GRACIAS DE ANTEMANO!