CE PLUS - Nota 001475
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: RIEX (Registro de Inf. de Export.)
Data/Hora da Publicação: 31/05/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 17:09:16
Descrição da Nota: AJUSTAR SELEÇÃO DE DOCUMENTOS POR NOTA FISCAL
Sintoma
Ao se selecionar documentos para transmissão ao RIEX por critério de "Nota Fiscal", o programa
selecionava notas dependentes que não faziam parte do que foi pedido.
Solução
Ajustar a seleção de notas fiscais por série.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01475 Data: 31/05/2006 Hora: 13:41:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01475
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00023
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
AJUSTAR SELEÇÃO DE DOCUMENTOS POR NOTA FISCAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
FISCAL; NOTA; DOCUMENTOS; SELEÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCER277
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER277
...
FROM j_1bnfdoc
INTO TABLE itab_j_1bnfdoc
WHERE docnum IN s_docnum
AND nfnum IN s_nfnum
AND docdat IN s_dtemis
* >> Início da exclusão: FORM SELE_DADOS
AND cancel NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELE_DADOS
AND cancel NE 'X'
AND series EQ 'U'.
IF sy-subrc EQ 0.
SELECT nrseq
docnum
FROM /pws/zycet002
INTO TABLE itab_zycet002
FOR ALL ENTRIES IN itab_j_1bnfdoc
WHERE docnum EQ itab_j_1bnfdoc-docnum
AND nrseq IN s_nrseq.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM SELE_DADOS
LOOP AT itab_j_1bnfdoc.
READ TABLE itab_zycet002 WITH KEY docnum =
itab_j_1bnfdoc-docnum.
IF NOT sy-subrc IS INITIAL.
DELETE itab_j_1bnfdoc.
ENDIF.
ENDLOOP.
ENDIF.
* << Fim da inclusão
SELECT werks
regio
FROM t001w
INTO TABLE itab_t001w
FOR ALL ENTRIES IN itab_j_1bnfdoc
...
werks
FROM j_1bnflin
INTO TABLE itab_j_1bnflin
WHERE werks IN s_werks.
IF NOT itab_j_1bnflin[] IS INITIAL.
* >> Início da inclusão: FORM SELE_DADOS
SELECT nrseq
docnum
FROM /pws/zycet002
INTO TABLE itab_zycet002
FOR ALL ENTRIES IN itab_j_1bnfdoc
WHERE docnum EQ itab_j_1bnfdoc-docnum
AND nrseq IN s_nrseq.
IF sy-subrc IS INITIAL.
LOOP AT itab_j_1bnflin.
READ TABLE itab_zycet002 WITH KEY docnum =
itab_j_1bnflin-docnum.
IF NOT sy-subrc IS INITIAL.
DELETE itab_j_1bnflin.
ENDIF.
ENDLOOP.
ENDIF.
* << Fim da inclusão
SELECT msehi
msehl
spras
FROM t006a
INTO TABLE itab_t006a
...
ELSE.
MESSAGE s001 WITH text-029.
STOP.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELE_DADOS
SELECT nrseq
docnum
FROM /pws/zycet002
INTO TABLE itab_zycet002
FOR ALL ENTRIES IN itab_j_1bnfdoc
WHERE docnum EQ itab_j_1bnfdoc-docnum
AND nrseq IN s_nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELE_DADOS
IF NOT itab_zycet002[] IS INITIAL.
* << Fim da inclusão
* >> Início da exclusão: FORM SELE_DADOS
IF sy-subrc EQ 0.
* << Fim da exclusão
SELECT vbeln
wadat_ist
FROM likp
INTO TABLE itab_likp
FOR ALL ENTRIES IN itab_zycet002
...