CE PLUS - Nota 002593
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 05/12/2006 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:04:38
Descrição da Nota: FATURA TIPO P ESTÁ CONTABILIZANDO ANTES DA DI/DSI.
Sintoma
Atualizada fatura P para não ser contabilizada antes da criação da DSI ou DI.
Solução
Selecionar somente os itens desse embarque.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02593 Data: 05/12/2006 Hora: 14:39:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02593
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00142
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02534 - 00001 - 6.0 - 00025 - AO ESTORNAR A FATURA, OCORRE DUMP.
----------------------------------------------------------------------------------------------------
FATURA TIPO P ESTÁ CONTABILIZANDO ANTES DA DI/DSI.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA TIPO P - ANTES DA DI - ANTES DA DSI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
IF ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' )
AND /pws/zycit085 IS INITIAL.
READ TABLE itab_zycit003 INDEX 1.
SELECT SINGLE * FROM /pws/zycit100
WHERE ebeln EQ itab_zycit003-ebeln
* >> Início da exclusão: FORM CONSISTE_CAMPOS_OBRIGATORIOS
AND ebelp EQ itab_zycit003-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_CAMPOS_OBRIGATORIOS
AND ebelp EQ itab_zycit003-ebelp
AND nrseq EQ itab_zycit003-nrseq.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi EQ /pws/zycit100-nrseqdi.
IF sy-subrc EQ 0.
IF NOT /pws/zycit085-dtreg IS INITIAL AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
MODULE load_data OUTPUT.
DATA v_peso.
SET PARAMETER ID 'LRE' FIELD ' ' .
IF itab_sele[] IS INITIAL.
IMPORT itab_sele[]
FROM MEMORY ID 'IP003B'.
IF sy-subrc = 0.
v_importou = 'X'.
ENDIF.
ENDIF.
IMPORT /pws/zycie001-embarca "Recebendo variaveis
/pws/zycie001-nrseq
/pws/zycie001-bukrs
/pws/zycie001-werks
/pws/zycie001-waers
/pws/zycie001-inco1
/pws/zycie001-j_1bbranch
v_lifnr
/pws/zycie003-ebeln
e_status
v_sele_zycit003
FROM MEMORY ID '003'.
IF sy-subrc NE 0.
READ TABLE itab_zycit003 INDEX 1.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit001 INTO /pws/zycie001
WHERE nrseq EQ itab_zycit003-nrseq.
ENDIF.
ELSEIF sy-subrc EQ 0. "Se importou
* >> Início da inclusão: MODULE LOAD_DATA
IF NOT itab_sele[] IS INITIAL AND
itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit003
INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_sele
WHERE ebeln = itab_sele-ebeln
AND ebelp = itab_sele-ebelp
and nrseq = /pws/zycie001-nrseq.
ENDIF.
* << Fim da inclusão
CLEAR okcode.
MOVE: /pws/zycie001-bukrs TO /pws/zycie006-bukrs ,
/pws/zycie001-inco1 TO /pws/zycie006-inco1,
/pws/zycie001-waers TO /pws/zycie006-waers_emb.
IF ( /pws/zycie006-tpfatura EQ '02' OR
/pws/zycie006-tpfatura EQ '03' OR
/pws/zycie006-tpfatura EQ '04' OR
/pws/zycie006-tpfatura EQ '09' ) AND NOT
/pws/zycie006-lifnr IS INITIAL.
...