CE PLUS - Nota 007779
Módulo: DRAWBACK
Funcionalidade: Apropriação
Data/Hora da Publicação: 15/12/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:32:49
Descrição da Nota: CENTROS ASSOCIADOS AO ATO CONCESSÓRIO
Sintoma
O programa não está apropriando alguns embarques.
Solução
Atualização da busca dos centros dos atos concessório no momento da apropriação.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07779 Data: 15/12/2008 Hora: 10:48:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07779
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00077
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03619 - 00001 - 7.0 - 00001 - CRIADA EXIT APR005
07731 - 00002 - 7.0 - 00007 - ORDENAÇÃO DAS IMPORTAÇÕES (FIFO)
----------------------------------------------------------------------------------------------------
CENTROS ASSOCIADOS AO ATO CONCESSÓRIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
APROPRIAÇÃO CENTROS ASSOCIADOS AO ATO CONCESSÓRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR254F01
REPS /PWS/ZYCIR254X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254F01
...
TABLE it_zycit279 "#EC CI_NOFIRST
FOR ALL ENTRIES IN it_zycit247
WHERE nrseqd EQ it_zycit247-nrseqd
AND esgotado EQ space.
CLEAR itab_stko. REFRESH itab_stko.
SELECT * FROM stko INTO TABLE itab_stko
FOR ALL ENTRIES IN it_zycit247
WHERE stlty EQ 'M'
AND stlnr EQ it_zycit247-stlnr
AND stlal EQ it_zycit247-stlal.
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
CLEAR itab_zycit243. REFRESH itab_zycit243.
SELECT * FROM /pws/zycit243 INTO TABLE itab_zycit243
FOR ALL ENTRIES IN it_zycit247
WHERE nrseqd EQ it_zycit247-nrseqd.
* << Fim da inclusão
ENDIF.
PERFORM sort_records_zycit247.
PERFORM lock_record_receb.
PERFORM lock_record_ato.
SORT it_zycit279 BY nrseqd+8(2) nrseqd(8) dtnf nrseq+8(2) nrseq(8)
ebeln ebelp matnr.
PERFORM ordena_atos.
LOOP AT it_zycet002.
PERFORM verifica_exit USING 'D'
'/PWS/ZYCIR254'
...
...
CLEAR: v_errolog, it_log_erro.
CONCATENATE text-075 it_zycet002-nrseq text-077
INTO v_errolog SEPARATED BY space.
MOVE v_errolog TO it_log_erro.
APPEND it_log_erro.
EXIT.
ENDIF.
REFRESH itab_lista_f.
itab_lista_f[] = itab_lista[].
LOOP AT it_zycit247 WHERE j_1bnbm EQ it_zycet002-steuc
* >> Início da exclusão: FORM APPROPRIATE_CURRENT_RECORD
AND esgotado EQ ' '
AND werks EQ it_zycet002-werks.
* << Fim da exclusão
* >> Início da inclusão: FORM APPROPRIATE_CURRENT_RECORD
AND esgotado EQ ' '.
READ TABLE it_zycit244 WITH KEY nrseqd = it_zycit247-nrseqd.
IF it_zycit244-werks NE it_zycet002-werks.
READ TABLE itab_zycit243 WITH KEY nrseqd = it_zycit247-nrseqd
werks = it_zycet002-werks.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
ENDIF.
* << Fim da inclusão
READ TABLE itab_stko WITH KEY stlnr = it_zycit247-stlnr
stlal = it_zycit247-stlal.
IF sy-subrc NE 0.
v_qtdbase = 1.
ELSE.
v_qtdbase = itab_stko-bmeng.
ENDIF.
CLEAR it_zycit244.
READ TABLE it_zycit244 WITH KEY nrseqd = it_zycit247-nrseqd.
IF sy-subrc NE 0 OR (
...
...
ELSE.
LOOP AT itab_lista_f.
itab_lista_f-qtd = itab_lista_f-usagem * it_zycet002-fkimg.
MODIFY itab_lista_f.
ENDLOOP.
ENDIF.
REFRESH itab_lista_aux.
itab_lista_aux[] = itab_lista_f[].
REFRESH: itab_fornec.
LOOP AT it_zycit247f WHERE j_1bnbm EQ it_zycet002-steuc
* >> Início da exclusão: FORM APPROPRIATE_CURRENT_RECORD
AND esgotado EQ ' '
AND werks EQ it_zycet002-werks.
* << Fim da exclusão
* >> Início da inclusão: FORM APPROPRIATE_CURRENT_RECORD
AND esgotado EQ ' '.
READ TABLE it_zycit244 WITH KEY nrseqd = it_zycit247f-nrseqd.
IF it_zycit244-werks NE it_zycet002-werks.
READ TABLE itab_zycit243 WITH KEY nrseqd = it_zycit247f-nrseqd
werks = it_zycet002-werks.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
ENDIF.
* << Fim da inclusão
CLEAR it_zycit244.
READ TABLE it_zycit244 WITH KEY nrseqd = it_zycit247f-nrseqd.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
READ TABLE itab_fornec WITH KEY lifnr = it_zycit244-lifnr.
IF sy-subrc EQ 0 AND
itab_fornec-nrseqd NE it_zycit244-nrseqd.
CONTINUE.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254X01
...
ncm LIKE marc-steuc,
usagem TYPE /pws/zycit245-qtd_iten,
qtd LIKE /pws/zycit282-qtd_mimp,
meins LIKE stpox-meins,
perc(10) .
DATA: END OF itab_lista.
DATA: itab_lista_aux LIKE itab_lista OCCURS 0 WITH HEADER LINE.
DATA: itab_lista_f LIKE itab_lista OCCURS 0 WITH HEADER LINE.
DATA: itab_zycit439 LIKE /pws/zycit439 OCCURS 0 WITH HEADER LINE.
DATA: itab_zycit282_aux TYPE /pws/zycit282 OCCURS 0 WITH HEADER LINE.
* >> Início da inclusão:
DATA : BEGIN OF itab_zycit243 OCCURS 10.
INCLUDE STRUCTURE /pws/zycit243.
DATA : END OF itab_zycit243.
* << Fim da inclusão
DATA: BEGIN OF itab_zyglt100 OCCURS 10.
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
DATA: e_subrc VALUE '0'.
DATA: BEGIN OF it_vbap OCCURS 0,
vbeln LIKE vbap-vbeln,
netpr LIKE vbap-netpr,
END OF it_vbap.
DATA: BEGIN OF wa_real_merc.
DATA: nrseqd TYPE /pws/zycit279-nrseqd,
...