Sintoma

Ao colocar tipo de fabricante 1 e mudar para 2 não está apagando os fabricantes colocados

anteriormente, se coloco 3 apaga se coloco 2 em seguida do 1 fica preenchido

Solução

Verificar corretamente os parâmetros para realizar o tratamento do tipo do Fabricante

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 08514 Data: 09/06/2009 Hora: 10:43:04

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 08514

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00009

Agrupamento              : 00100

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

FATURA COM PROBLEMA NO TIPO DE FABRICANTE

----------------------------------------------------------------------------------------------------

Palavras Chave:

FATURA - TIPO - FABRICANTE

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI003I01

REPS /PWS/MZYCI003X01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI003I01

...

  CLEAR v_paisfab.

  IF  '023' CA /pws/zycie006-fabricante .

    CLEAR : /pws/zycie006-lifnrfabr,

            /pws/zycie006-descfab,

            /pws/zycie006-paisfab.

    CLEAR : itab_zycit006-lifnrfabr,

            itab_zycit006-descfab,

            itab_zycit006-paisfab.

    MODIFY itab_zycit006 TRANSPORTING lifnrfabr descfab paisfab

    WHERE nrseq EQ /pws/zycie006-nrseq.

* >> Início da exclusão: MODULE ATUALIZA_PAIS

    IF '03' CA /pws/zycie006-fabricante .

* << Fim da exclusão

* >> Início da inclusão: MODULE ATUALIZA_PAIS

    IF '023' CA /pws/zycie006-fabricante .

* << Fim da inclusão

      v_paisfab = 'X' .

    ENDIF.

  ENDIF.

  LOOP AT itab_zycit003.

* >> Início da exclusão: MODULE ATUALIZA_PAIS

    IF  '03' CA /pws/zycie006-fabricante .

* << Fim da exclusão

* >> Início da inclusão: MODULE ATUALIZA_PAIS

    IF  '023' CA /pws/zycie006-fabricante .

* << Fim da inclusão

      CLEAR : itab_zycit003-paisfab,

              itab_zycit003-lifnrfabr,

              itab_zycit003-descfab ,

              itab_zycit003-porigem ,

              /pws/zycie003-porigem .

      CLEAR : /pws/zycie003-paisfab,

              /pws/zycie003-lifnrfabr,

              /pws/zycie003-descfab .

    ENDIF.

    IF /pws/zycie006-fabricante EQ '0'.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI003X01

...

  v_nrseq LIKE /pws/zycit001-nrseq      ,

  v_awkey LIKE bkpf-awkey               ,

  v_existe_lc  TYPE c                   ,

  v_descfab(01)                   ,

  v_recebi,

  v_dtvencto LIKE /pws/zycie006-dtvencto,

  v_obrig,

  v_belnr_ant LIKE /pws/zycie006-belnr_p,

  e_estorno(10).

DATA: vsubrc TYPE sy-subrc.

* >> Início da exclusão:

DATA: v_paisfab.

* << Fim da exclusão

* >> Início da inclusão:

DATA: v_paisfab VALUE 'X'.

* << Fim da inclusão

DATA: v_ntgew TYPE /pws/zycit003-ntgew.

DATA:

      itab_zycbt034  LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,

      itab_zycbt013  LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,

      itab_zycbt012  LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,

      itab_zycie033  LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,

      itab_zycit034  LIKE /pws/zycit034 OCCURS 10 WITH HEADER LINE,

      itab_zycet004  LIKE /pws/zycet004 OCCURS 10 WITH HEADER LINE,

      itab_zycee005  LIKE /pws/zycee005 OCCURS 10 WITH HEADER LINE,

      itab_zycit032  LIKE /pws/zycit032 OCCURS 10 WITH HEADER LINE,

...