Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 04/09/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 11:02:19
Descrição da Nota: ATUALIZAÇÃO DO EMBARQUE APÓS ESTORNO DE FATURA DE PEDIDO DE COMPRA
Sintoma
Ao se estornar o faturamento de um processo com Pedido de Compra caso o o parâmetro "Gera
Fornecimento" seja igual a "Sim" (/PWS/ZYCET037-GERA_FORNEC = 1), o programa não move o Pedido e o
Fornecimento para a pasta Pedido de Compra sem os dados de Faturamento e também não atualiza a pasta
de Estornos com o documento de Estorno.
Solução
Inclusão de verificação de Estornos pela Categoria de Documento '6' utilizada em estornos de Fatura
de Pedido de Compra.
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04615 Data: 04/09/2007 Hora: 16:07:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04615
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
ATUALIZAÇÃO DO EMBARQUE APÓS ESTORNO DE FATURA DE PEDIDO DE COMPRA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ITENS, EMBARQUE, ESTORNO, FATURA, PEDIDO, COMPRA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
v_exclui TYPE c.
FIELD-SYMBOLS: <fs_vbfa> LIKE itab_vbfa.
v_nao_achou = 'X'.
LOOP AT itab_zycet002 WHERE NOT vbeln_vf IS initial.
CLEAR v_exclui.
v_vbeln = itab_zycet002-vbeln_vf.
v_posnr = itab_zycet002-posnr.
LOOP AT itab_vbfa ASSIGNING <fs_vbfa>
WHERE vbelv EQ v_vbeln AND
posnv EQ v_posnr.
* >> Início da exclusão: FORM ATUALIZA_OUTRAS_ORDENS
IF <fs_vbfa>-vbtyp_n CA 'NS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_OUTRAS_ORDENS
IF <fs_vbfa>-vbtyp_n CA 'NS6'.
* << Fim da inclusão
READ TABLE itab_vbrk WITH KEY vbeln = <fs_vbfa>-vbeln
BINARY SEARCH.
CHECK sy-subrc EQ 0.
* >> Início da exclusão: FORM ATUALIZA_OUTRAS_ORDENS
IF <fs_vbfa>-vbtyp_n EQ 'N'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_OUTRAS_ORDENS
IF <fs_vbfa>-vbtyp_n CA 'N6'.
* << Fim da inclusão
READ TABLE itab_zycet002 WITH KEY vbeln_vf = <fs_vbfa>-vbeln
posnr = <fs_vbfa>-posnn
TRANSPORTING NO FIELDS.
CHECK sy-subrc NE 0.
ENDIF.
CLEAR wa_zycet002.
* >> Início da exclusão: FORM ATUALIZA_OUTRAS_ORDENS
IF /pws/zycee001-tipo_emb EQ 'V'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_OUTRAS_ORDENS
IF /pws/zycee001-tipo_emb CA 'DV'.
* << Fim da inclusão
wa_zycet002-ebeln = itab_zycet002-ebeln.
wa_zycet002-ebelp = itab_zycet002-ebelp.
ENDIF.
wa_zycet002-vbeln_va = itab_zycet002-vbeln_va.
wa_zycet002-aupos = itab_zycet002-aupos.
wa_zycet002-vbeln_vl = itab_zycet002-vbeln_vl.
wa_zycet002-posnl = itab_zycet002-posnl.
APPEND wa_zycet002 TO itab_zycet002.
CLEAR v_nao_achou.
IF <fs_vbfa>-vbtyp_n EQ 'S'.
...