Sintoma

Erro ao trocar tipo de fabricantes na Fatura

Solução

Tratar as diferentes ações ao trocar o tipo de fabricante.

Informações Complementares

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

Nota Número 11854 Data: 16/01/2012 Hora: 10:11:27

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

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

Nota Número              : 11854

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00010

Agrupamento              : 00102

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

04978  - 00001 - 7.0    - 00003  - DESENVOLVIMENTO DE CONTABILIZAÇÃO DE IMPOSTOS ATRAVÉS DA MIRO

05189  - 00002 - 7.0    - 00003  - TRATATIVA PARA MOEDAS SEM CASAS DECIMAIS

05337  - 00003 - 7.0    - 00003  - TRATATIVA PARA MOEDAS QUE NÃO POSSUEM CASAS DECIMAIS

06237  - 00004 - 7.0    - 00005  - REPLICAÇÃO DE FORNECEDOR/FABRICANTE NO ITEM DA FATURA

11690  - 00005 - 8.0    - 00009  - ERRO NO FABRICANTE AO NAVEGAR ENTRE ITENS DA FATURA

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

ERRO AO TROCAR TIPO DE FABRICANTES NA FATURA

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

Palavras Chave:

TIPO DE FABRICANTE - FATURA - MENSAGEM DE ERRO

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

Objetos da nota:

DYNP /PWS/SAPMZYCI003                        0101

DYNP /PWS/SAPMZYCI003                        0400

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003F02

REPS /PWS/MZYCI003F03

REPS /PWS/MZYCI003I01

REPS /PWS/MZYCI003O01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI003                        0101

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0101

...

         /pws/zycie006-frpagto    MODULE consiste_cobertura_cambial,

         /pws/zycie006-local      MODULE consiste_local ,

         /pws/zycie006-lifnr      MODULE consiste_tpnf ON REQUEST,

         /pws/zycie006-tpfatura   MODULE verifica_tpfatura,

* >> Início da exclusão:

         /pws/zycie006-fabricante MODULE atualiza_pais  ON REQUEST ,

         /pws/zycie006-lifnrfabr  MODULE atualiza_dados ON REQUEST .

  CHAIN.

    FIELD: /pws/zycie006-lifnrfabr,

           /pws/zycie006-descfab,

           /pws/zycie006-paisfab MODULE verifica_obrigatoriedade.

  ENDCHAIN.

* << Fim da exclusão

* >> Início da inclusão:

         /pws/zycie006-lifnrfabr  MODULE atualiza_dados ON REQUEST ,

         /pws/zycie006-fabricante MODULE atualiza_pais ON REQUEST  .

* << Fim da inclusão

  FIELD /pws/zycie006-frpagto MODULE verifica_frpagto ON CHAIN-REQUEST.

  MODULE: user_command_0101,

          atualiza_zycie006,

          check_total.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI003                        0400

PROCESS AFTER INPUT.

* >> Início da exclusão:

  FIELD : /pws/zycie003-agente MODULE consiste_agente,

          /pws/zycie003-lifnrfabr MODULE consiste_fabr.

* << Fim da exclusão

* >> Início da inclusão:

  FIELD : /pws/zycie003-agente MODULE consiste_agente .

* << Fim da inclusão

  CHAIN.

    FIELD: /pws/zycie003-ntgew

      MODULE mod_peso_it ON CHAIN-REQUEST.

  ENDCHAIN.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

  /pws/zycie006-paquis = lfa1-land1.

  IF NOT /pws/zycie006-porigem IS INITIAL AND

     v_porigem NE /pws/zycie006-porigem   AND

     NOT itab_zycit003[] IS INITIAL.

    LOOP AT itab_zycit003.

      MOVE /pws/zycie006-porigem TO itab_zycit003-porigem.

      MODIFY itab_zycit003.

    ENDLOOP.

    MOVE /pws/zycie006-porigem TO v_porigem.

  ELSEIF /pws/zycie006-porigem IS INITIAL AND

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

         v_tpfabr EQ '3'  AND NOT

         /pws/zycie006-paisfab IS INITIAL.

* << Fim da exclusão

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

         v_tpfabr EQ '3' .

* << Fim da inclusão

    LOOP AT itab_zycit003.

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

      MOVE /pws/zycie006-paisfab TO itab_zycit003-porigem.

* << Fim da exclusão

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

      MOVE: /pws/zycie006-paisfab TO itab_zycit003-porigem,

            /pws/zycie006-paisfab TO itab_zycit003-paisfab.

* << Fim da inclusão

      MODIFY itab_zycit003.

    ENDLOOP.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

FORM trata_save.

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

  PERFORM verifica_obrigatoriedade.

* << Fim da inclusão

...

...

FORM carrega_descr.

  IF v_tpfabr = '2'.

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

    IF /pws/zycie003-fabric = '1'.

      /pws/zycie003-flagfabr = 'S'.

* << Fim da exclusão

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

    IF itab_zycit003-fabric = '1'.

      itab_zycit003-flagfabr = /pws/zycie003-flagfabr = 'S'.

      itab_zycit003-lifnrfabr =

* << Fim da inclusão

      /pws/zycie003-lifnrfabr = /pws/zycie006-lifnr.

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

    ELSEIF /pws/zycie003-fabric = '3'.

* << Fim da exclusão

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

    ELSEIF itab_zycit003-fabric = '3'.

* << Fim da inclusão

      CLEAR: /pws/zycie003-lifnrfabr, /pws/zycie003-flagfabr,

             /pws/zycie003-descfab,  /pws/zycie003-paisfab.

    ENDIF.

    IF NOT v_tpfabr  IS INITIAL.

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

      /pws/zycie003-flagfabr = 'S'.

* << Fim da exclusão

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

      itab_zycit003-flagfabr = /pws/zycie003-flagfabr = 'S'.

* << Fim da inclusão

    ENDIF.

    IF /pws/zycie003-flagfabr = 'S'.

      CLEAR lfa1.

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

      IF NOT /pws/zycie003-lifnrfabr IS INITIAL.

* << Fim da exclusão

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

      IF NOT itab_zycit003-lifnrfabr IS INITIAL.

* << Fim da inclusão

        SELECT SINGLE * FROM lfa1

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

          WHERE lifnr EQ /pws/zycie003-lifnrfabr.

* << Fim da exclusão

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

          WHERE lifnr EQ itab_zycit003-lifnrfabr.

        IF sy-subrc EQ 0.

* << Fim da inclusão

        MOVE lfa1-name1 TO itab_zycit003-descfab.

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

        ENDIF.

* << Fim da inclusão

        IF itab_zycit003-paisfab IS INITIAL.

          MOVE lfa1-land1 TO itab_zycit003-paisfab.

        ENDIF.

      ENDIF .

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

    ELSEIF /pws/zycie003-flagfabr = 'N'.

      CLEAR /pws/zycie003-lifnrfabr.

* << Fim da exclusão

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

    ELSEIF itab_zycit003-flagfabr = 'N'.

      CLEAR: /pws/zycie003-lifnrfabr, itab_zycit003-lifnrfabr.

* << Fim da inclusão

    ENDIF.

  ELSE.

    itab_zycit003-descfab   = /pws/zycie006-descfab.

    IF itab_zycit003-paisfab IS INITIAL.

      itab_zycit003-paisfab   = /pws/zycie006-paisfab.

    ENDIF.

    IF itab_zycit003-descfab IS INITIAL AND

       v_tpfabr IS INITIAL AND

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

       NOT /pws/zycie003-lifnrfabr IS INITIAL AND

* << Fim da exclusão

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

       NOT itab_zycit003-lifnrfabr IS INITIAL AND

* << Fim da inclusão

       sy-tcode = '/PWS/ZYCI003_C'.

      SELECT SINGLE * FROM lfa1

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

      WHERE lifnr EQ /pws/zycie003-lifnrfabr.

* << Fim da exclusão

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

      WHERE lifnr EQ itab_zycit003-lifnrfabr.

* << Fim da inclusão

      MOVE lfa1-name1 TO itab_zycit003-descfab.

      MOVE lfa1-name1 TO /pws/zycie003-descfab.

...

...

  IF sy-ucomm EQ 'SAVE' AND

     v_tpfabr EQ '2' AND

     /pws/zycie006-tpfatura   EQ '01'.

    IF /pws/zycie003-descfab   IS INITIAL OR

       /pws/zycie003-paisfab   IS INITIAL.

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

      IF /pws/zycie003-fabric NE '3'.

* << Fim da inclusão

      MESSAGE e015 WITH text-205.

    ENDIF.

  ENDIF.

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

  ENDIF.

* << Fim da inclusão

ENDFORM.

...

...

* >> Início da inclusão:

form verifica_obrigatoriedade.

  IF sy-ucomm EQ 'SAVE' AND

     /pws/zycie006-tpfatura   EQ '01' AND

     /pws/zycie006-fabricante EQ '0'.

    IF /pws/zycie006-descfab IS INITIAL.

      MESSAGE e015 WITH text-203.

    ENDIF.

    IF /pws/zycie006-paisfab IS INITIAL.

      MESSAGE e015 WITH text-204.

    ENDIF.

  ENDIF.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI003F03

...

* >> Início da inclusão:

FORM consiste_fabrictp.

  CLEAR lfa1.

  IF /pws/zycie003-fabric EQ '2' .

    SELECT SINGLE * FROM lfa1

      WHERE lifnr EQ /pws/zycie003-lifnrfabr..

    /pws/zycie003-lifnrfabr = /pws/zycie003-lifnrfabr.

    /pws/zycie003-flagfabr = 'S'.

    /pws/zycie003-descfab = lfa1-name1.

    /pws/zycie003-paisfab = lfa1-land1.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI003I01

...

    WHEN 'BACK' OR 'EXIT'.

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

      CLEAR /pws/zycie003.

* << Fim da exclusão

      LEAVE TO SCREEN '0100'.

...

...

MODULE altera_item INPUT.

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

  PERFORM consiste_fabrictp.

* << Fim da inclusão

...

...

  ENDIF.

      IF /pws/zycie006-fabricante  NE '3'.

        CLEAR itab_zycit003-paisfab.

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

      ELSE.

        itab_zycit003-paisfab = /pws/zycie006-paisfab.

* << Fim da inclusão

      ENDIF.

      CLEAR : /pws/zycie003-paisfab,

              /pws/zycie003-lifnrfabr,

              /pws/zycie003-descfab .

    ENDIF.

...

...

* >> Início da inclusão:

MODULE consiste_fabrtp INPUT.

  CLEAR lfa1.

  IF v_tpfabr = '2' .

    SELECT SINGLE * FROM lfa1

      WHERE lifnr EQ /pws/zycie006-lifnr.

    /pws/zycie003-lifnrfabr = /pws/zycie006-lifnr.

    /pws/zycie003-flagfabr = 'S'.

    /pws/zycie003-descfab = lfa1-name1.

    /pws/zycie003-paisfab = lfa1-land1.

  ELSE.

    SELECT SINGLE *

      FROM lfa1

      WHERE lifnr EQ /pws/zycie003-lifnrfabr.

    IF sy-subrc EQ 0.

      MOVE lfa1-name1 TO /pws/zycie003-descfab.

      MOVE lfa1-land1 TO /pws/zycie003-paisfab.

    ENDIF.

  ENDIF.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI003O01

...

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

  v_tpfabr = /pws/zycie006-fabricante.

* << Fim da inclusão

ENDMODULE.

...