CE PLUS - Nota 010052
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 09/04/2010 00:00:00
Data/Hora Última Alteração: 29/10/2010 13:29:32
Descrição da Nota: EMBARQUE NÃO VERIFICA SE FATURA FOI CONTABILZADA COM SUCESSO AO ENTRA DI
Sintoma
Ao criar fatura mas dar algum erro e não contabilizar, o sistema está deixando criar a DI. Só que
não deixa criar a nota fiscal. só que como tem DI não deixar contabilizar a fatura. Favor ajustar
para que o sistema dê uma mensagem que existem faturas não contabilizadas na DI.
Solução
Verificar se a fatura foi contabilizada corretamente para permitir acessar a DI
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10052 Data: 09/04/2010 Hora: 15:43:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10052
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00016
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
09830 - 00001 - AJUSTES PARA TRATAMENTO AMÉRICA LATINA.
----------------------------------------------------------------------------------------------------
EMBARQUE NÃO VERIFICA SE FATURA FOI CONTABILZADA COM SUCESSO AO ENTRA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBARQUE - MSG - FATURA - CONTABILIZADA - DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001I01
REPS /PWS/MZYCI001X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
PERFORM check USING vl_erro.
IF NOT vl_erro IS INITIAL.
MESSAGE e013 WITH text-234.
ENDIF.
CLEAR: v_errodb, v_pedidodb.
PERFORM verif_db USING v_errodb
v_pedidodb.
IF NOT v_errodb IS INITIAL.
MESSAGE e015 WITH text-046 v_pedidodb text-469.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0050
CLEAR v_fat.
IF NOT itab_zycit003[] IS INITIAL.
IF NOT itab_zycit263[] IS INITIAL.
CLEAR itab_zycit006_aux.
REFRESH itab_zycit006_aux.
REFRESH itab_temp_seq_pgfat.
LOOP AT itab_zycit263.
itab_temp_seq_pgfat-nrseq_pgfat = itab_zycit263-nrseq_pgfat.
COLLECT itab_temp_seq_pgfat.
ENDLOOP.
IF NOT itab_temp_seq_pgfat[] IS INITIAL.
SELECT * FROM /pws/zycit006 "#EC CI_NOFIELD
INTO TABLE itab_zycit006_aux
FOR ALL ENTRIES IN itab_temp_seq_pgfat
WHERE nrseq_pgfat EQ itab_temp_seq_pgfat-nrseq_pgfat
AND nrseqce = /pws/zycit094-nrseqce.
ENDIF.
ENDIF.
LOOP AT itab_zycit006_aux WHERE eliminado NE 'X'
AND tpfatura EQ '01'
AND frpagto NE 'A'
AND belnr_p EQ space.
SELECT SINGLE * FROM /pws/zycit132
WHERE nrseq = itab_zycit006_aux-nrseq AND
eliminado NE 'X' AND
belnr_p EQ space.
IF sy-subrc = 0.
v_fat = 'X'.
ELSE.
SELECT SINGLE * FROM /pws/zycit132
WHERE nrseq = itab_zycit006_aux-nrseq.
IF sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycit132
WHERE nrseq = itab_zycit006_aux-nrseq AND
eliminado NE 'X'.
IF sy-subrc NE 0.
v_fat = 'X'.
ENDIF.
ELSEIF itab_zycit006_aux-FRPAGTO = 'N'.
SELECT SINGLE * FROM /pws/zycit132
WHERE nrseq = itab_zycit006_aux-nrseq AND
eliminado NE 'X'.
IF sy-subrc NE 0.
v_fat = 'X'.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
IF NOT v_fat IS INITIAL.
MESSAGE i015 WITH text-474.
EXIT.
ENDIF.
ENDIF.
* << Fim da inclusão
CLEAR: itab_zycit477.
READ TABLE itab_zycit477 WITH KEY land = v_land1.
IF v_land1 EQ 'AR' OR v_land1 EQ 'CL' OR
sy-subrc EQ 0.
PERFORM call_di_mult.
ELSE.
PERFORM call_di.
ENDIF.
SELECT SINGLE status
FROM /pws/zycit001
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001X01
...
* >> Início da inclusão:
DATA: BEGIN OF itab_zycit006_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit006.
DATA: END OF itab_zycit006_aux.
* << Fim da inclusão
data end of common part.
...