Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 05/10/2010 00:00:00
Data/Hora Última Alteração: 23/11/2010 16:43:34
Descrição da Nota: ERRO NA DI POR FORA DO EMBARQUE
Sintoma
Quando criamos uma DI fora do Embarque, através da transação /PWS/ZYCI023_C, o programa não verifica
se as Faturas foram contabilizadas e salva a DI.
Solução
Criar a DI somente se as Faturas estiverem contabilizadas.
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10647 Data: 05/10/2010 Hora: 10:39:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10647
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00005
Agrupamento : 00043
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ERRO NA DI POR FORA DO EMBARQUE
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA NÃO CONTABILIZADA - CRIAR DI FORA DO EMBARQUE -
CONSISTÊNCIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
v_trunc = trunc( v_trunc ) .
v_qtd_itens = v_trunc / 10000.
IF v_qtd_itens NE vsaldo.
CLEAR p_v_bl.
CLEAR v_qtd_itens.
EXIT.
ENDIF.
ENDLOOP.
CLEAR v_qtd_itens.
ENDIF.
* >> Início da inclusão: FORM VERIFY_BL
IF NOT itab_zycit263[] IS INITIAL.
CLEAR: itab_zycit006_aux.
REFRESH: itab_zycit006_aux.
SELECT * FROM /pws/zycit006
INTO TABLE itab_zycit006_aux
FOR ALL ENTRIES IN itab_zycit263
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat
AND nrseqce EQ /pws/zycie085-nrbl.
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 EQ itab_zycit006_aux-nrseq
AND eliminado NE 'X'
AND belnr_p EQ space.
IF sy-subrc = 0.
CLEAR p_v_bl.
ELSE.
SELECT SINGLE * FROM /pws/zycit132
WHERE nrseq = itab_zycit006_aux-nrseq.
IF sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycit132
WHERE nrseq EQ itab_zycit006_aux-nrseq
AND eliminado NE 'X'.
IF sy-subrc NE 0.
CLEAR p_v_bl.
ENDIF.
ELSEIF itab_zycit006_aux-frpagto = 'N'.
SELECT SINGLE * FROM /pws/zycit132
WHERE nrseq EQ itab_zycit006_aux-nrseq
AND eliminado NE 'X'.
IF sy-subrc NE 0.
CLEAR p_v_bl.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
* << Fim da inclusão
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
DATA: v_autoriza TYPE c.
DATA: vl_erro TYPE c.
DATA: v_seqdi LIKE /pws/zycie085-nrseqdi.
DATA: e_exec_okcode.
DATA: v_nrseq LIKE /pws/zycit094-nrseq,
v_nrseqce LIKE /pws/zycit093-nrseqce.
DATA v_qtd_iten LIKE /pws/zycie003-qtd_itend.
DATA: BEGIN OF itab_zycit503 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit503.
DATA END OF itab_zycit503.
* >> 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.