CE PLUS - Nota 006883
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 01/07/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:23:45
Descrição da Nota: CODE INSPECTOR CLASSE /PWS/ZYCI
Sintoma
Code Inspector
embarque, DI e recebimento
Solução
Code Inspector
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06883 Data: 01/07/2008 Hora: 09:37:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06883
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00054
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06810 - 00001 - 7.0 - 00006 - CODE INSPECTOR CLASSE /PWS/ZYCI
----------------------------------------------------------------------------------------------------
CODE INSPECTOR CLASSE /PWS/ZYCI
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE - INSPECTOR - CLASSE - /PWS/ZYCI - ZYCI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F02
REPS /PWS/MZYCI017F03
REPS /PWS/MZYCI059F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F02
...
CLEAR v_werks_prod.
ENDIF.
ENDIF.
ENDFORM.
FORM check_contab_fat CHANGING p_contab.
DATA: itab_zycit132 TYPE /pws/zycit132 OCCURS 0 WITH HEADER LINE.
DATA: itab_zycit006 TYPE /pws/zycit006 OCCURS 0 WITH HEADER LINE.
CLEAR: itab_zycit006. REFRESH itab_zycit006.
IF /pws/zycit094-nrseqce IS INITIAL.
SELECT SINGLE * FROM /pws/zycit094
* >> Início da exclusão: FORM CHECK_CONTAB_FAT
WHERE nrseq EQ /pws/zycie001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_CONTAB_FAT
WHERE nrseq EQ /pws/zycie001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF okcode EQ 'DI'.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
WHERE nrseqce = /pws/zycit094-nrseqce
AND eliminado = space
AND frpagto NE 'P'
* >> Início da exclusão: FORM CHECK_CONTAB_FAT
AND belnr_p = space.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_CONTAB_FAT
AND belnr_p = space. "#EC CI_NOFIELD
* << Fim da inclusão
ELSE.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
WHERE nrseqce = /pws/zycit094-nrseqce
AND eliminado = space
* >> Início da exclusão: FORM CHECK_CONTAB_FAT
AND belnr_p = space.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_CONTAB_FAT
AND belnr_p = space. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycit006 WHERE tpfatura NE '01'.
p_contab = 'X'.
EXIT.
ENDLOOP.
IF p_contab = 'X'.
MESSAGE i015 WITH text-474.
EXIT.
ENDIF.
LOOP AT itab_zycit006 WHERE tpfatura = '01'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F03
...
AND cancel = ' '.
IF sy-subrc EQ 0.
itab_nfg-delete = 'S'.
MODIFY itab_nfg.
ENDIF.
ENDLOOP.
READ TABLE itab_nfg INDEX 1.
SELECT SINGLE * FROM /pws/zycit100 WHERE nrseqdi = itab_nfg-nrseq.
SELECT SINGLE * FROM /pws/zycit001 WHERE nrseq = /pws/zycit100-nrseq.
CLEAR: itab_zycit006. REFRESH itab_zycit006.
* >> Início da exclusão: FORM SELECT_TABLES
SELECT SINGLE * FROM /pws/zycit094 WHERE nrseq = /pws/zycit100-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
SELECT SINGLE * FROM /pws/zycit094
WHERE nrseq = /pws/zycit100-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
WHERE nrseqce = /pws/zycit094-nrseqce AND
eliminado = space AND
* >> Início da exclusão: FORM SELECT_TABLES
belnr_p = space.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
belnr_p = space. "#EC CI_NOFIELD
* << Fim da inclusão
LOOP AT itab_zycit006 WHERE tpfatura NE '01'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F01
...
FROM /pws/zycit094 INNER JOIN /pws/zycit003
ON /pws/zycit094~nrseq = /pws/zycit003~nrseq
WHERE /pws/zycit094~nrseqce = /pws/zycie085-nrbl
AND servico NE 'X'.
IF sy-subrc EQ 0.
CLEAR: itab_zycit006. REFRESH itab_zycit006.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
WHERE nrseqce = /pws/zycie085-nrbl
AND eliminado = space
AND frpagto NE 'P'
* >> Início da exclusão: FORM VERIFY_BL
AND belnr_p = space.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_BL
AND belnr_p = space. "#EC CI_NOFIELD
* << Fim da inclusão
LOOP AT itab_zycit006 WHERE tpfatura NE '01'.
p_v_bl = 'C'.
EXIT.
ENDLOOP.
IF p_v_bl = 'C'.
EXIT.
ENDIF.
LOOP AT itab_zycit006 WHERE tpfatura = '01'.
SELECT * FROM /pws/zycit132 INTO TABLE itab_zycit132
WHERE nrseq = itab_zycit006-nrseq
...