CE PLUS - Nota 004615

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.

Versões Tratadas

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'.

...