Sintoma

Quando o fabricante do item não está cadastrado, o sistema não está buscando a descrição do

fabricante. Na adição possui fabricante diferente dos demais itens e está vindo na mesma adição,

deveria ter sido quebrado em adições diferentes.

Solução

Quebrar as Adições caso a Descrição do Fornecedor for Diferente

Informações Complementares

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

Nota Número 10129 Data: 05/05/2010 Hora: 16:58:25

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

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

Nota Número              : 10129

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00020

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

QUEBRA POR ADIÇÃO NA DI POR DESCRIÇÃO DO FABRICANTE

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

Palavras Chave:

DI - QUEBRA - ADIÇÃO - FABRICANTE

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023X01

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

    ELSEIF itab_it_aux-meinsantid    NE itab_itb-meinsantid  .

      PERFORM adic_next.

    ELSEIF itab_it_aux-codcambial    NE itab_itb-codcambial  .

      PERFORM adic_next.

    ELSEIF itab_it_aux-inco_item     NE itab_itb-inco_item   .

      PERFORM adic_next.

    ELSEIF itab_it_aux-paisfab       NE itab_itb-paisfab     .

      PERFORM adic_next.

    ELSEIF itab_it_aux-tp_certif     NE itab_itb-tp_certif   .

      PERFORM adic_next.

* >> Início da inclusão: FORM ADIC_LIST

    ELSEIF itab_it_aux-descfab       NE itab_itb-descfab     .

      PERFORM adic_next.

* << Fim da inclusão

    ELSEIF itab_zycit001-flag_adicao EQ 'X'.

      PERFORM adic_next.

    ELSEIF v_flag_quebra IS INITIAL AND v_cont > 80.

      PERFORM adic_next.

    ELSEIF itab_it_aux-quebra_nve          NE itab_itb-quebra_nve.

      PERFORM adic_next.

    ELSE.

      PERFORM verifica_exit USING 'D'

                                  '/PWS/SAPMZYCI023'

                                  'DI013'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

       zterm         meinsest    pproc         nrseqli        aplicacao

       condmerc      inco1       codmat        cacl           codfunleg

       acordo        acordorate  reduzida      percreduz      notatipi

    reduzidaipi   unit_valor  unit_meins    unit_reccapac  unit_rectipo

       waersbem      dttaxbem    antidrate     extarif_al     tipo_al

       orgemiss_al   numero_al   anoemiss_al   ii_extarif     ii_tipo

       ii_orgemiss   ii_numero   ii_anoemiss   ipi_extarif    ipi_tipo

       ipi_orgemiss  ipi_numero  ipi_anoemiss  ad_extarif     ad_tipo

       ad_orgemiss   ad_numero   ad_anoemiss   aladi          tribipi

       advalicms     vlantid     meinsantid    qtdeantid

* >> Início da exclusão: FORM DATA_SORT

       inco_item atributo_nve quebra_nve.

* << Fim da exclusão

* >> Início da inclusão: FORM DATA_SORT

       inco_item atributo_nve quebra_nve

       paisfab

       descfab.

* << Fim da inclusão

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI023'

                              'DI014'.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY zexit = 'DI014' BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa).

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023X01

...

        ntgewd LIKE /pws/zycie003-ntgewd,

        mark,

        matnr LIKE /pws/zycie003-matnr,

        matnr_item LIKE /pws/zycie003-matnr,

        qtd_itenc3  TYPE /pws/zycit263-qtd_iten,

        qtd_itendc3 TYPE /pws/zycit263-qtd_iten,

        nivel_nve    TYPE /pws/zycie003-nivel_nve,

        atributo_nve TYPE /pws/zycie003-atributo_nve,

        especif_nve  TYPE /pws/zycie003-especif_nve ,

        quebra_nve   type char200,

* >> Início da inclusão:

        descfab      LIKE /pws/zycie003-descfab,

* << Fim da inclusão

end of itab_it.

DATA: BEGIN OF itab_zycit049 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie049.

DATA:   tipo      LIKE /pws/zycit019-tipo,

        coddesp   LIKE /pws/zycit000-cod_sisc,

        codigo    LIKE /pws/zycit019-codigo,

        baseicms  LIKE /pws/zycit020-baseicms,

        baseii    LIKE /pws/zycit020-baseii,

        reduz     LIKE /pws/zycie122-descricao_reduz,

        vldp_aux  LIKE /pws/zycie049-vldp,

...