Sintoma

Ao criar ou modificar o tipo de fabricante na fatura, ocorrem diversos erros na pasta de cabeçalho,

itens ou no detalhe do item.

Solução

ajustar programa para troca de fabricantes.

Informações Complementares

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

Nota Número 03551 Data: 26/04/2007 Hora: 10:35:59

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

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

Nota Número              : 03551

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00163

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

Referência às notas relacionadas:

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

00731  - 00001 - 6.0    - 00022  - PREENCHER O FABRICANTE DE ACORDO COM O INFORMADO NO PEDIDO DE COM

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

ERROS NA FATURA AO UTILIZAR TIPOS DE FABRICANTE 0,2 E 3.

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

Palavras Chave:

FATURA DE MERCADORIA - TIPO DE FABRICANTE - TROCA DE FABRICANTE

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

Objetos da nota:

DYNP /PWS/SAPMZYCI003                        0100

DYNP /PWS/SAPMZYCI003                        0101

DYNP /PWS/SAPMZYCI003                        0106

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003F02

REPS /PWS/MZYCI003I01

REPS /PWS/MZYCI003O01

REPS /PWS/MZYCI003X01

TABD /PWS/ZYCIE003

TABD /PWS/ZYCIT003

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

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

* Alterações na lógica de processamento:

PROCESS BEFORE OUTPUT.

  MODULE: load_data.

  MODULE:  status_0100,

           status_custom_0100,

           set_screen,

           exit_tela.

  FIELD /pws/zycie006-bukrs MODULE authority_empresa.

  CALL SUBSCREEN:

*<< inicio inclusão

    ss_itens    INCLUDING syst-cprog '0106',

*<< fim inclusão

    ss_cabec    INCLUDING syst-cprog '0101',

    ss_porigem  INCLUDING syst-cprog '0102',

*<< inicio exclusão

*    ss_itens    INCLUDING syst-cprog '0106',

*<< fim exclusão

    ss_desp     INCLUDING syst-cprog '0107',

    ss_ded      INCLUDING syst-cprog '0109',

    ss_banco    INCLUDING syst-cprog '0108',

    ss_fat_parc INCLUDING syst-cprog '0111',

    ss_camb     INCLUDING syst-cprog '0350',

    ss_rec      INCLUDING syst-cprog '0110'.

  CALL SUBSCREEN ss_html  INCLUDING syst-cprog v_tela_help.

PROCESS AFTER INPUT.

  FIELD /pws/zycie006-nrseqce MODULE call_bl.

  CALL SUBSCREEN:

*<< inicio inclusão

     ss_itens,

*<< fim inclusão

     ss_cabec,

     ss_porigem,

*<< inicio exclusão

*     ss_itens,

*<< fim exclusão

     ss_desp,

     ss_ded,

     ss_banco,

     ss_fat_parc,

     ss_camb,

     ss_rec.

  CALL SUBSCREEN ss_html.

  FIELD: /pws/zycie006-nrfat     MODULE consiste_referencia.

  MODULE: user_command_exit AT EXIT-COMMAND,

          user_command_0100.

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

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

* Alterações na lógica de processamento:

PROCESS BEFORE OUTPUT.

  MODULE: load_param,

          set_screen,

          descricoes,

          exit_tela.

PROCESS AFTER INPUT.

  MODULE atualiza_zycie006.

  FIELD: /pws/zycie006-ntgew     MODULE verifica_peso.

  FIELD: /pws/zycie006-dtd_conta MODULE consiste_dtd_conta,

         /pws/zycie006-banco     MODULE consiste_banco,

         /pws/zycie006-lifnr     MODULE consiste_fornecedor,

         /pws/zycie006-ntgew     MODULE calcula_peso,

         /pws/zycie006-dtvencto  MODULE consiste_vencto,

         /pws/zycie006-ebene     MODULE busca_nivel_tsr ON REQUEST,

         /pws/zycie006-zterm     MODULE consiste_zterm  ,

         /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,

*<<Inicio Exclusão

*         /pws/zycie006-fabricante MODULE atualiza_pais ,

*         /pws/zycie006-paisfab    MODULE autaliza_pais .

*<<Fim Exclusão

*<<Inicio Inclusão

         /pws/zycie006-fabricante MODULE atualiza_pais  on request ,

         /pws/zycie006-lifnrfabr  MODULE atualiza_dados  on request .

*<<Fim Inclusão

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

  MODULE: user_command_0101,

          atualiza_zycie006.

PROCESS ON VALUE-REQUEST.

  FIELD /pws/zycie006-zterm MODULE valuerequest_zterm.

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

  ELSEIF /pws/zycie006-porigem IS INITIAL AND

         /pws/zycie006-fabricante EQ '3'.

    LOOP AT itab_zycit003.

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

      MODIFY itab_zycit003.

    ENDLOOP.

  ENDIF.

  IF NOT /pws/zycie006-paquis IS INITIAL AND

         v_paquis NE /pws/zycie006-paquis

         AND NOT itab_zycit003[] IS INITIAL.

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

    if not /pws/zycie006-paisfab is initial.

* << Fim da inclusão

    LOOP AT itab_zycit003.

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

      MODIFY: itab_zycit003.

    ENDLOOP.

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

    endif.

* << Fim da inclusão

    MOVE /pws/zycie006-paquis TO v_paquis.

  ENDIF  .

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

          ELSE.

            /pws/zycie006-paisfab   = /pws/zycie003-paisfab  .

          ENDIF.

        ENDIF.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

FORM trata_fabricante.

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

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

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

      IF NOT /pws/zycie006-lifnrfabr IS INITIAL.

        CLEAR:

               lfa1.

        SELECT SINGLE *

          FROM lfa1

          WHERE lifnr = /pws/zycie006-lifnrfabr.

        IF sy-subrc EQ 0.

          /pws/zycie006-descfab = lfa1-name1.

          IF /pws/zycie006-paisfab IS INITIAL.

            /pws/zycie006-paisfab = lfa1-land1.

          ENDIF.

          CLEAR v_descfab.

        ELSEIF v_descfab IS INITIAL.

          v_descfab = 'X'.

        ENDIF.

      ELSE.

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

          CLEAR: /pws/zycie006-descfab, /pws/zycie006-paisfab.

          MESSAGE s015 WITH text-053.

        ENDIF.

      ENDIF.

    ELSE.

      CLEAR /pws/zycie006-lifnrfabr.

    ENDIF.

    LOOP AT itab_zycit003.

      READ TABLE itab_mfrnr WITH KEY ebeln = itab_zycit003-ebeln

                                     ebelp = itab_zycit003-ebelp.

      IF sy-subrc EQ 0.

        READ TABLE itab_lfa1 WITH KEY

                lifnr  = itab_mfrnr-mfrnr.

        IF sy-subrc EQ 0.

          SELECT SINGLE * FROM lfa1

            WHERE lifnr EQ itab_mfrnr-mfrnr.

          IF sy-subrc EQ 0.

            itab_zycit003-descfab = itab_lfa1-name1.

            IF itab_zycit003-paisfab IS INITIAL.

              itab_zycit003-paisfab = itab_lfa1-land1.

            ENDIF.

          ENDIF.

          itab_zycit003-lifnrfabr = itab_mfrnr-mfrnr.

        ELSE.

          SELECT SINGLE *

            FROM lfa1

            WHERE lifnr = /pws/zycie006-lifnrfabr.

          IF sy-subrc EQ 0.

            /pws/zycie006-descfab = lfa1-name1.

            IF /pws/zycie006-paisfab IS INITIAL.

              /pws/zycie006-paisfab = lfa1-land1.

            ENDIF.

          ENDIF.

          itab_zycit003-lifnrfabr = /pws/zycie006-lifnrfabr .

        ENDIF.

      ELSE.

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

      ENDIF.

      MOVE: /pws/zycie006-descfab TO itab_zycit003-descfab.

      IF itab_zycit003-paisfab IS INITIAL.

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

      ENDIF.

      MODIFY: itab_zycit003,/pws/zycit003.

    ENDLOOP.

    v_flag = 'X'.

* << Fim da exclusão

  ELSEIF /pws/zycie006-fabricante = '1'.

    v_fabr_ant = '1'.

    CLEAR lfa1.

    SELECT SINGLE * FROM lfa1

      WHERE lifnr EQ /pws/zycie006-lifnr.

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

    /pws/zycie006-flagfabr = 'S'.

    /pws/zycie006-descfab = lfa1-name1.

    /pws/zycie006-paisfab = lfa1-land1.

    LOOP AT itab_zycit003.

      itab_zycit003-fabric  = '1'.

      MODIFY itab_zycit003.

    ENDLOOP.

    LOOP AT itab_zycit003.

      MOVE: /pws/zycie006-descfab TO itab_zycit003-descfab,

            /pws/zycie006-lifnrfabr TO itab_zycit003-lifnrfabr,

            /pws/zycie006-flagfabr TO itab_zycit003-flagfabr.

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

      IF itab_zycit003-paisfab IS INITIAL.

* << Fim da exclusão

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

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

      ENDIF.

* << Fim da exclusão

      MODIFY: itab_zycit003, /pws/zycit003.

    ENDLOOP.

    v_flag = 'X'.

  ELSEIF /pws/zycie006-fabricante = '2'.

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

    CLEAR: /pws/zycie006-descfab,

    /pws/zycie006-paisfab , /pws/zycie006-lifnrfabr.

    LOOP AT itab_zycit003.

      itab_zycit003-fabric  = '2'.

      MOVE: /pws/zycie006-flagfabr TO itab_zycit003-flagfabr.

      MODIFY itab_zycit003.

    ENDLOOP.

    IF v_flag EQ 'X'.

      LOOP AT itab_zycit003.

        READ TABLE itab_mfrnr WITH KEY ebeln = itab_zycit003-ebeln

                                       ebelp = itab_zycit003-ebelp.

        IF sy-subrc EQ 0.

          READ TABLE itab_lfa1 WITH KEY

                  lifnr  = /pws/zycie006-lifnrfabr.

          IF sy-subrc EQ 0.

            itab_zycit003-lifnrfabr = itab_mfrnr-mfrnr.

            itab_zycit003-descfab = itab_lfa1-name1.

            IF itab_zycit003-paisfab IS INITIAL.

              itab_zycit003-paisfab = itab_lfa1-land1.

            ENDIF.

          ELSE.

            SELECT SINGLE * FROM lfa1

              WHERE lifnr EQ itab_mfrnr-mfrnr.

            itab_zycit003-lifnrfabr = itab_mfrnr-mfrnr.

            itab_zycit003-descfab = lfa1-name1.

            itab_zycit003-paisfab = lfa1-land1.

          ENDIF.

        ELSE.

          CLEAR: itab_zycit003-fabric, itab_zycit003-paisfab,

                 itab_zycit003-descfab, itab_zycit003-lifnrfabr,

                 itab_zycit003-flagfabr.

        ENDIF.

        MODIFY: itab_zycit003,/pws/zycit003 .

      ENDLOOP.

      v_flag = space.

    ENDIF.

* << Fim da exclusão

  ELSEIF /pws/zycie006-fabricante = '3'.

    v_flag = 'X'.

    CLEAR: /pws/zycie006-descfab,

    /pws/zycie006-paisfab ,

    /pws/zycie006-lifnrfabr,

    /pws/zycie006-flagfabr.

    LOOP AT itab_zycit003.

      itab_zycit003-fabric  = '3'.

      MODIFY itab_zycit003.

    ENDLOOP.

    LOOP AT itab_zycit003.

      CLEAR:  itab_zycit003-descfab,

              itab_zycit003-lifnrfabr, itab_zycit003-flagfabr.

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

      CLEAR: itab_zycit003-paisfab, itab_zycit003-porigem .

* << Fim da exclusão

      MOVE: '3' TO itab_zycit003-fabric.

      MODIFY: itab_zycit003,/pws/zycit003.

    ENDLOOP.

  ENDIF.

ENDFORM.

FORM atualiza_novo_seq.

  IF /pws/zycie006-tpfatura EQ '04'.

    LOOP AT itab_zycit047.

      itab_zycit047-nrseq = /pws/zycie006-nrseq.

      MODIFY itab_zycit047.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003I01

...

  CHECK NOT itab_zycit003 IS INITIAL.

  v_tabix = v_tabix + 1.

  SELECT SINGLE * FROM tcurx WHERE currkey = /pws/zycie001-waers.

  IF sy-subrc <> 0.

    tcurx-currdec = 2.

  ENDIF.

  CHECK /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11'

     OR /pws/zycie006-tpfatura = '  '.

  itab_zycit003-vlreal    = /pws/zycie003-vlreal.

  itab_zycit003-fabric    = /pws/zycie003-fabric.

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

  itab_zycit003-lifnrfabr = /pws/zycie003-lifnrfabr.

* << Fim da exclusão

  itab_zycit003-porigem   = /pws/zycie003-porigem.

  itab_zycit003-paquis    = /pws/zycie003-paquis.

  itab_zycit003-mfrpn     = /pws/zycie003-mfrpn.

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

  IF v_paisfab ne 'X' .

  if /pws/zycie006-fabricante eq '0'.

    itab_zycit003-lifnrfabr   = /pws/zycie006-lifnrfabr.

    itab_zycit003-descfab     = /pws/zycie006-descfab  .

    itab_zycit003-paisfab     = /pws/zycie006-paisfab.

  else.

    itab_zycit003-lifnrfabr   = /pws/zycie003-lifnrfabr.

    itab_zycit003-descfab     = /pws/zycie003-descfab  .

* << Fim da inclusão

  itab_zycit003-paisfab     = /pws/zycie003-paisfab.

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

  endif.

* << Fim da inclusão

  PERFORM carrega_descr.

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

     clear v_paisfab.

  ENDIF.

* << Fim da inclusão

  IF /pws/zycie006-nrseq_pgfat IS INITIAL AND itab_zycit132[] IS

...

...

      IF v_index_det < v_line.

        v_index_det = v_index_det + 1.

        READ TABLE itab_zycit003 INDEX v_index_det.

        MOVE-CORRESPONDING itab_zycit003 TO /pws/zycie003.

      ENDIF.

    WHEN 'ULTI'.

      DESCRIBE TABLE itab_zycit003 LINES v_index_det.

      READ TABLE itab_zycit003 INDEX v_index_det.

      MOVE-CORRESPONDING itab_zycit003 TO /pws/zycie003.

    WHEN 'BACK' OR 'EXIT'.

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

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

        MOVE: itab_zycit003-descfab   TO /pws/zycie006-descfab   ,

              itab_zycit003-paisfab   TO /pws/zycie006-paisfab   ,

              itab_zycit003-lifnrfabr TO /pws/zycie006-lifnrfabr ,

              itab_zycit003-flagfabr  TO /pws/zycie006-flagfabr  ,

              itab_zycit003-fabric    TO /pws/zycie006-fabricante.

      ENDIF.

* << Fim da exclusão

      CLEAR /pws/zycie003.

      LEAVE TO SCREEN '0100'.

  ENDCASE.

ENDMODULE.

MODULE altera_item INPUT.

  IF /pws/zycie006-fabricante = '2'.

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

      /pws/zycie003-flagfabr = 'S'.

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

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

...

...

      CLEAR okcode.

    WHEN 'AVAN'.

      CALL METHOD html_control->go_forward.

      CLEAR okcode.

  ENDCASE.

ENDMODULE.

MODULE carrega_pais INPUT.

  PERFORM carrega_pais.

ENDMODULE.

MODULE atualiza_pais INPUT.

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

  clear v_paisfab.

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

    CLEAR : /pws/zycie006-lifnrfabr,

            /pws/zycie006-descfab,

            /pws/zycie006-paisfab.

    v_paisfab = 'X' .

  ENDIF.

  LOOP AT itab_zycit003.

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

      clear : itab_zycit003-paisfab,

              itab_zycit003-lifnrfabr,

              itab_zycit003-descfab .

      clear : /pws/zycie003-paisfab,

              /pws/zycie003-lifnrfabr,

              /pws/zycie003-descfab .

    ENDIF.

    itab_zycit003-FABRIC = /pws/zycie006-fabricante.

    MODIFY itab_zycit003 .

  ENDLOOP .

* << Fim da inclusão

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

  PERFORM carrega_pais.

  PERFORM consiste_fabr.

* << Fim da exclusão

ENDMODULE.

MODULE consiste_fabr INPUT.

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

  PERFORM consiste_fabr.

* << Fim da exclusão

ENDMODULE.

MODULE verifica_tpfatura INPUT.

  PERFORM tp_fatura.

ENDMODULE.

MODULE verifica_frpagto INPUT.

  IF /pws/zycie006-frpagto EQ 'P'

  AND /pws/zycie006-tpfatura EQ '11'.

    MESSAGE e039 WITH text-170.

  ENDIF.

ENDMODULE.

* >> Início da inclusão:

module atualiza_dados input.

    if '03' ca /PWS/ZYCIE006-FABRICANTE.

        if /pws/zycie006-fabricante eq '0'.

          SELECT SINGLE *

          FROM lfa1

          WHERE lifnr = /pws/zycie006-lifnrfabr.

              IF sy-subrc EQ 0.

                /pws/zycie006-descfab = lfa1-name1.

                /pws/zycie006-paisfab = lfa1-land1.

              endif.

        endif.

        loop at itab_zycit003.

          move:

           /PWS/ZYCIE006-LIFNRFABR to itab_zycit003-lifnrfabr ,

           /PWS/ZYCIE006-DESCFAB   to itab_zycit003-descfab   ,

           /PWS/ZYCIE006-paisfab   to itab_zycit003-paisfab   .

           modify itab_zycit003.

        endloop.

    endif.

endmodule.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI003O01

...

                screen-input = '1'.

              ELSEIF ( screen-name = '/PWS/ZYCIE006-DESCFAB' ) AND

                     ( /pws/zycie006-flagfabr = 'S'            OR

                       /pws/zycie006-flagfabr = space ).

                CLEAR:

                       lfa1.

                SELECT SINGLE *

                  FROM lfa1

                  WHERE lifnr = /pws/zycie006-lifnrfabr.

                IF sy-subrc EQ 0.

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

                  /pws/zycie006-descfab = lfa1-name1.

                  IF /pws/zycie006-paisfab IS INITIAL.

                    /pws/zycie006-paisfab = lfa1-land1.

                  ENDIF.

* << Fim da exclusão

                  screen-input = '0'.

                ELSE.

                  screen-input = '1'.

                ENDIF.

              ELSEIF  screen-name = '/PWS/ZYCIE006-PAISFAB'.

                IF sy-tcode NE '/PWS/ZYCIE003_E' .

                  screen-input = '1'.

                ELSE.

                  screen-input = '0'.

                ENDIF.

...

...

      ENDIF.

  ENDCASE.

ENDMODULE.

MODULE carrega_zycie003 OUTPUT.

 CHECK ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11'

                                     ) OR /pws/zycie006-tpfatura = '  '.

  CHECK NOT itab_zycit003 IS INITIAL.

  MOVE: itab_zycit003 TO /pws/zycie003.

  MOVE: itab_zycit003-total TO /pws/zycie036-vldif.

  MOVE: /pws/zycie001-waers TO /pws/zycie036-waers_dif.

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

  SELECT SINGLE *

     FROM lfa1

      WHERE lifnr = /pws/zycie003-lifnrfabr.

  IF sy-subrc EQ 0.

    /pws/zycie003-descfab = lfa1-name1.

    IF /pws/zycie003-paisfab IS INITIAL.

      /pws/zycie003-paisfab = lfa1-land1.

    ENDIF.

  ENDIF.

* << Fim da exclusão

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

/PWS/ZYCIE003-LIFNRFABR = itab_zycit003-LIFNRFABR.

  IF v_paisfab EQ 'X' .

    CLEAR :

       /pws/zycie003-descfab,

       /pws/zycie003-paisfab,

       /pws/zycie003-lifnrfabr .

     clear v_paisfab.

  ENDIF.

* << Fim da inclusão

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

  SELECT SINGLE * FROM tcurx WHERE currkey = /pws/zycie001-waers.

  IF sy-subrc <> 0.

    tcurx-currdec = 2.

  ENDIF.

* << Fim da exclusão

  tc_itens-lines = tc_itens-lines + 10.

ENDMODULE.

MODULE set_screen_tc_0106 OUTPUT.

  CHECK ( /pws/zycie006-tpfatura = '01'

  OR /pws/zycie006-tpfatura = '11' ) OR /pws/zycie006-tpfatura = '  '.

  LOOP AT SCREEN.

    IF ( /pws/zycie006-ratval = 2 OR /pws/zycie006-ratval = 1 OR

      itab_zycit003-livre NE 'S' OR v_status_s = 0  OR

      /pws/zycie006-ratval = 3 ) AND

      screen-name NE 'ITAB_ZYCIT003-MARC' AND

...

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

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

* >> Início da inclusão:

data: v_paisfab.

* << Fim da inclusão

data: vsubrc type sy-subrc.

  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,

...

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

Modificações efetuadas em TABD /PWS/ZYCIE003

* Inserida a tabela de verificação T005 no campo PAISFAB

 Nome de campo      PAISFAB

 Tabela verificação T005

 Tabela verificação *

 Grau dependência

 Cardinalidade

 Sem verificação

 Descrição breve

 Área funcional

 Mensagem

Tabela chave externa Cpo.chave externa Tab.verif.    Nome de campo

/PWS/ZYCIE003        MANDT             T005          MANDT

/PWS/ZYCIE003        PAISFAB           T005          LAND1

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

Modificações efetuadas em TABD /PWS/ZYCIT003

* Inserida a tabela de verificação T005 no campo PAISFAB

 Nome de campo      PAISFAB

 Tabela verificação T005

 Grau dependência

 Cardinalidade

 Sem verificação

 Descrição breve

 Área funcional

 Mensagem

  Tabela chave externa Cpo.chave externa Tab.verif.    Nome de campo

  /PWS/ZYCIT003        MANDT             T005          MANDT

  /PWS/ZYCIT003        PAISFAB           T005          LAND1