CE PLUS - Nota 001758

Módulo: DRAWBACK

Funcionalidade: Composição

Data/Hora da Publicação: 18/07/2006 00:00:00

Data/Hora Última Alteração: 17/02/2011 13:55:44

Descrição da Nota: AJUSTE PARA TRATAMENTO DO CENTRO EXPORTADOR/IMPORTADOR NA COMPOSIÇÃO

Sintoma

Ajuste para tratamento do centro Exportador/Importador na Composição.

 

 

Solução

Ajuste para tratamento do centro Exportador/Importador na Composição.

 

Versões Tratadas

6.0


Pré-Requisitos

Produto:

Nota

Descrição

AJUSTES REFERENTES A RASTREIO DE LOTE EFETUADO NOS PROGRAMAS DE DRAWBACK

AJUSTE NA SELEÇÃO DOS EMBARQUES DE EXPORTAÇÃO.

Informações Complementares

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

Nota Número 01758 Data: 18/07/2006 Hora: 09:24:00

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

 

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

Nota Número              : 01758

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00122

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

Referência às notas relacionadas:

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

 

01553  - 00001 - 6.0    - 00023  - AJUSTE NA SELEÇÃO DOS EMBARQUES DE EXPORTAÇÃO.

01691  - 00002 - 6.0    - 00024  - AJUSTES REFERENTES A RASTREIO DE LOTE EFETUADO NOS PROGRAMAS DE D

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

AJUSTE PARA TRATAMENTO DO CENTRO EXPORTADOR/IMPORTADOR NA COMPOSIÇÃO

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

Palavras Chave:

COMPOSIÇÃO - CENTRO - EXPORTADOR - IMPORTADOR

/PWS/SAPMZYCI064

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

Objetos da nota:

CUAD /PWS/SAPMZYCI064

DOMD /PWS/ZYGLD560

DTED /PWS/ZYCIL841

DYNP /PWS/SAPMZYCI064                        0301

DYNP /PWS/SAPMZYCI064                        0304

DYNP /PWS/SAPMZYCI064                        0308

DYNP /PWS/SAPMZYCI064                        0320

REPS /PWS/MZYCI064F03

REPS /PWS/MZYCI064I01

REPS /PWS/MZYCI064O01

REPS /PWS/MZYCI064TOP3

REPT /PWS/SAPMZYCI064

TABD /PWS/ZYCIE258

TABD /PWS/ZYCIE259

TABD /PWS/ZYCIE259C

TABD /PWS/ZYCIE259D

TABD /PWS/ZYCIE260

TABD /PWS/ZYCIE260C

TABD /PWS/ZYCIE260D

TABD /PWS/ZYCIE279

TABD /PWS/ZYCIT258

TABD /PWS/ZYCIT259

TABD /PWS/ZYCIT260

TABD /PWS/ZYCIT279

TABD /PWS/ZYCIT279B

 

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

Modificações efetuadas em CUAD /PWS/SAPMZYCI064

 

 

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

Modificações efetuadas em DOMD /PWS/ZYGLD560

 

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

Domínio incluído: /PWS/ZYGLD560

Descrição breve incluída (33 caracteres), idioma: PT

"GL - Opções (Com, Sem, Com e Sem)"

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Categoria de dados: CHAR

Número de posições: 1

Comprimento de saída: 1

Rotina de conversão:

Letras minúsculas: NÃO

-Valores individuais

Incluído valor fixo "X"

Texto incluído, idioma: PT (16 caracteres):

"Com Cob. Cambial"

Incluído valor fixo ""

Texto incluído, idioma: PT (16 caracteres):

"Sem Cob. Cambial"

Incluído valor fixo "2"

Texto incluído, idioma: PT (22 caracteres):

"Com e Sem Cob. Cambial"

Incluída tabela de valores:

 

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

Modificações efetuadas em DTED /PWS/ZYCIL841

Criar elmento de dados: /PWS/ZYCIL841

 

Elemento de dados:  /PWS/ZYCIL841

Descrição breve  :  GL - Cobertura cambia

Dominio: /PWS/ZYGLD560

Denominação do campo:

                  Comprim Denominador de campo

Breve             10      Cob.Camb.

Médio             15      Cob. Cambial

longa             20      Cobertura Cambial

Título            17      Cobertura Cambial

 

 

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI064                        0301

 

 

   Nome

      Ctg.      Linha   Coluna  CmprDf  CmVis   Altura  Format Dict  Modif At.Des.Só At

      Gr1 Gr2 Gr3 Gr4  SPA GPA ID parâm             Cód.F                TCmp   TpoLoopExbLoop

      Outros atributos

 

*Inicio da exclusão

   /PWS/ZYCIE258-GSBER

      Texto      8        5      15      15       1     CHAR      X    2

                               GSB

      Chave externa

 

   /PWS/ZYCIE258-GSBER

      I/O        8       21       4       4       1     CHAR   X           Ent Off

                               GSB

      Chave externa, Botão EntrsPoss.stand.

*Fim da exclusão

*Inicio da Inclusão

   /PWS/ZYCIE258-CODAGRUP

      Texto      8        5      15      15       1     CHAR      X    F

      Chave externa

 

   /PWS/ZYCIE258-CODAGRUP

      I/O        8       22       3       3       1     CHAR   X           Ent Off

      Chave externa, Botão EntrsPoss.stand.

*Fim da Inclusão

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI064                        0304

 

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI064                        0308

 

   Nome

      Ctg.      Linha   Coluna  CmprDf  CmVis   Altura  Format Dict  Modif At.Des.Só At

      Gr1 Gr2 Gr3 Gr4  SPA GPA ID parâm             Cód.F                TCmp   TpoLoopExbLoop

      Outros atributos

 

+  TC_DET_IMP3

      Tabel      4        1     112     112      10

      Seleção linha=Nenh., Seleção coluna=Nenh.

      TabEntr., Com título, Configurável, RedimVertic., RedimHoriz., LnhSep.vert.

 

*Inicio da Inclusão

 - /PWS/ZYCIE260C-WERKS

      Texto      1        6      17       5       1     CHAR      X    F

                               WRK

      Título de coluna TC

 

 - /PWS/ZYCIE260C-WERKS

      I/O        1        6       4       5       1     CHAR   X               Off

      NEX                      WRK

      Elem.TC

*Fim da Inclusão

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI064                        0320

 

Criar tela: 0320

 

   Nome

      Ctg.      Linha   Coluna  CmprDf  CmVis   Altura  Format Dict  Modif At.Des.Só At

      Gr1 Gr2 Gr3 Gr4  SPA GPA ID parâm             Cód.F                TCmp   TpoLoopExbLoop

      Outros atributos

 

+  TC_CE_EI

      Tabel      1        1       9       9      20

      Seleção linha=Simples, Seleção coluna=Simples

      TabEntr., Com título, Configurável

 - ITAB_CENT_EI-WERKS

      Texto      1        1       6       6       1     CHAR

      Título de coluna TC

 - ITAB_CENT_EI-WERKS

      I/O        1        1       4       6       1     CHAR                   Off

      NEX

      Elem.TC

   OK_CODE3

      OK

 

*Codigo Fonte:

 

 

PROCESS BEFORE OUTPUT.

 

  MODULE status_0320.

*

  LOOP AT itab_cent_ei WITH CONTROL tc_ce_ei

                                     CURSOR tc_centros3-current_line.

    module monta_0320.

  ENDLOOP.

 

PROCESS AFTER INPUT.

 

  LOOP AT itab_cent_ei.

 

  ENDLOOP.

 

  MODULE user_command_0320.

 

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI064F03

 

...

    SELECT name1 UP TO 1 ROWS FROM t001w INTO v_ncentro3

       WHERE werks EQ /pws/zycie258-werks.

    ENDSELECT.

  ENDIF.

  CLEAR: v_ndivisao3.

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

  IF NOT /pws/zycie258-gsber IS INITIAL.

    SELECT gtext UP TO 1 ROWS FROM tgsbt INTO v_ndivisao3

       WHERE gsber EQ /pws/zycie258-gsber

         AND spras EQ sy-langu.

    ENDSELECT.

* << Fim da exclusão

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

  IF NOT /pws/zycie258-CODAGRUP IS INITIAL.

    SELECT single agrupamento FROM /PWS/ZYCIT395 INTO v_ndivisao3

       WHERE CODAGRUP EQ /pws/zycie258-CODAGRUP.

* << Fim da inclusão

  ENDIF.

  CLEAR: v_norgcpra3.

  IF NOT /pws/zycie258-ekorg IS INITIAL.

    SELECT ekotx UP TO 1 ROWS FROM t024e INTO v_norgcpra3

       WHERE ekorg EQ /pws/zycie258-ekorg.

...

 

...

               LEFT OUTER JOIN /pws/zycit282 AS d

                ON c~nrseq    EQ d~nrseqexp

               AND c~vbeln_va EQ d~vbeln_va

               AND c~vbeln_vl EQ d~vbeln_vl

               AND c~posnl    EQ d~posnl

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

             FOR ALL ENTRIES IN itab_zycit434

* << Fim da exclusão

             WHERE a~dtincl >= p_dtexp1 AND

                   a~dtincl <= p_dtexp2 AND

                   b~nrato  EQ space    AND

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

                   c~werks  EQ itab_zycit434-werks AND

* << Fim da exclusão

                   c~bukrs  EQ /pws/zycie258-bukrs AND

                   b~matnr  IN p_matnr.

      DELETE itab_re_final WHERE nrseqexp NE space.

      SELECT * FROM /pws/zycet130 INTO TABLE itab_zycet130

               WHERE codenq = '80000'

...

 

...

      IF NOT itab_re_final[] IS INITIAL.

        IF /pws/zycit321-ltopc NE '1'.

          SELECT * FROM /pws/zycit281 INTO TABLE itab_zycit281

                 FOR ALL ENTRIES IN itab_re_final

                 WHERE matnr EQ itab_re_final-matnr.

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

          LOOP AT itab_zycit281.

            READ TABLE itab_zycit434 WITH KEY

                                     werks = itab_zycit281-werks.

            IF sy-subrc NE 0.

              DELETE itab_zycit281 WHERE werks EQ itab_zycit281-werks.

            ENDIF.

          ENDLOOP.

* << Fim da inclusão

        ELSE.

          CLEAR: itab_mvke, itab_zycit423.

          REFRESH: itab_mvke, itab_zycit423.

          SELECT * FROM mvke INTO TABLE itab_mvke

              FOR ALL ENTRIES IN itab_re_final

...

 

...

                          INTO v_nrre_temp.

              ENDIF.

              MOVE:

                /pws/zycie258-nrseqd    TO itab_det_exp_final-nrseqd  ,

                /pws/zycie258-lifnr     TO itab_det_exp_final-lifnr   ,

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

                itab_zycit281-werks     TO itab_det_exp_final-werks   ,

* << Fim da exclusão

                itab_zycit281-werks     TO itab_det_exp_final-werks   ,

                itab_zycit281-stlnr     TO itab_det_exp_final-stlnr   ,

                itab_zycit281-stlal     TO itab_det_exp_final-stlal   ,

                itab_zycit281-stlan     TO itab_det_exp_final-stlan   ,

                itab_re_final-matnr     TO itab_det_exp_final-codmat  ,

                itab_re_final-vbeln_va  TO itab_det_exp_final-vbeln_va,

                itab_re_final-vbeln_vf  TO itab_det_exp_final-vbeln_vf,

                itab_re_final-posnr     TO itab_det_exp_final-posnr   ,

                itab_zycet002-vbeln_vl  TO itab_det_exp_final-vbeln_vl,

                itab_zycet002-posnl     TO itab_det_exp_final-posnl   ,

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

                itab_zycet002-werks     TO itab_det_exp_final-werks_e ,

* << Fim da inclusão

                itab_zycet002-steuc     TO itab_det_exp_final-j_1bnbm ,

               itab_zycet002-vbeln_vl  TO itab_det_exp_final-fornec    ,

               itab_zycet002-posnl     TO itab_det_exp_final-it_fornec ,

                itab_j_1bnfdoc-nfnum    TO itab_det_exp_final-nfnum   ,

                itab_j_1bnfdoc-series   TO itab_det_exp_final-serie   ,

...

 

...

      ENDLOOP.

      CALL SCREEN 0600 STARTING  AT 5 5.

    ENDIF.

    PERFORM carrega_resumo_exportacao3.

  ENDIF.

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

  if itab_det_exp_final[] is initial.

    message s015 with text-267 text-268.

  endif.

* << Fim da inclusão

ENDFORM.

FORM trata_button_selexp.

  IF /pws/zycie258-tipo EQ 'I'.

    CALL SCREEN 0314 STARTING AT 03 05 .

  ELSE.

...

 

...

      IF sy-subrc EQ 0.

        CLEAR itab_zycit003.

        READ TABLE itab_zycit003 WITH KEY nrseq = itab_zycit100-nrseq

                                          ebeln = itab_zycit100-ebeln

                                          ebelp = itab_zycit100-ebelp.

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

        IF sy-subrc EQ 0.

          READ TABLE itab_zycit434 WITH KEY

                                   werks = itab_zycit003-werks.

        ENDIF.

* << Fim da exclusão

        IF sy-subrc NE 0.

          CONTINUE.

        ENDIF.

      ELSE.

        CONTINUE.

...

 

...

          itab_zycit003-qtd_iten        TO itab_di_final-qtd_di      ,

          itab_zycit003-qtd_iten        TO itab_di_final-sdo_qtd     ,

          itab_zycit003-j_1bnbm         TO itab_di_final-j_1bnbm     ,

          itab_zycit085-dtdesemb        TO itab_di_final-dtdesemb    ,

          itab_zycit003-gewei           TO itab_di_final-gewei       ,

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

          itab_zycit003-werks           TO itab_di_final-werks       ,

* << Fim da inclusão

          itab_zycit003-ntgew           TO itab_di_final-ntgew       ,

          itab_zycit003-waers           TO itab_di_final-waers       ,

          itab_zycit003-netpr           TO itab_di_final-netpr       ,

          itab_zycit003-advalii         TO itab_di_final-i_txii      ,

          itab_zycit100-advalpis        TO itab_di_final-pis         ,

...

 

...

          itab_di_final_aux-sdo_qtd     TO itab_di_final-sdo_qtd     ,

          itab_zycit003-j_1bnbm         TO itab_di_final-j_1bnbm     ,

          itab_zycit085-dtdesemb        TO itab_di_final-dtdesemb    ,

          itab_zycit003-gewei           TO itab_di_final-gewei       ,

          itab_zycit003-ntgew           TO itab_di_final-ntgew       ,

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

          itab_zycit003-werks           TO itab_di_final-werks       ,

* << Fim da inclusão

          itab_zycit003-waers           TO itab_di_final-waers       ,

          itab_zycit003-netpr           TO itab_di_final-netpr       ,

          itab_zycit100-advalpis        TO itab_di_final-pis         ,

          itab_zycit100-advalcofins     TO itab_di_final-cofins      ,

          itab_zycit003-advalii         TO itab_di_final-i_txii      ,

...

 

...

            ( p_qtd / v_um_rez ) * v_um_ren.

    p_un_ncm = v_umncm.

  ENDIF.

ENDFORM.

FORM adiciona_centro3.

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

  sort itab_zycit434 by werks.

* << Fim da inclusão

  CALL SCREEN '0315' STARTING AT 3 4.

ENDFORM.

FORM seleciona_tipo3.

  DATA: v_descricao(20) TYPE c.

  CONCATENATE /pws/zycie258-tipo2(19) '%' INTO v_descricao.

...

 

...

      IF sy-subrc EQ 0.

        CLEAR itab_zycit003.

        READ TABLE itab_zycit003 WITH KEY nrseq = itab_zycit100-nrseq

                                          ebeln = itab_zycit100-ebeln

                                          ebelp = itab_zycit100-ebelp.

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

        IF sy-subrc EQ 0.

          READ TABLE itab_zycit434 WITH KEY

                                   werks = itab_zycit003-werks.

        ENDIF.

* << Fim da exclusão

        IF sy-subrc NE 0.

          CONTINUE.

        ENDIF.

      ELSE.

        CONTINUE.

...

 

...

      itab_zycit003-qtd_iten        TO itab_di_final-sdo_qtd     ,

      itab_zycit003-j_1bnbm         TO itab_di_final-j_1bnbm     ,

      itab_zycit085-dtdesemb        TO itab_di_final-dtdesemb    ,

      itab_zycit003-gewei           TO itab_di_final-gewei       ,

      itab_zycit003-ntgew           TO itab_di_final-ntgew       ,

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

      itab_zycit003-werks           TO itab_di_final-werks       ,

* << Fim da inclusão

      itab_zycit003-waers           TO itab_di_final-waers       ,

      itab_zycit003-netpr           TO itab_di_final-netpr       ,

      itab_zycit003-advalii         TO itab_di_final-i_txii      ,

      itab_zycit100-advalpis        TO itab_di_final-pis         ,

      itab_zycit100-advalcofins     TO itab_di_final-cofins      ,

...

 

...

      MODIFY itab_comp_vinc_final.

    ENDLOOP.

  ENDLOOP.

ENDFORM.

FORM seleciona_di_l.

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

  DATA: itab_zycit244 TYPE /pws/zycit279 OCCURS 0 WITH HEADER LINE.

* << Fim da exclusão

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

  DATA: itab_zycit244 TYPE /pws/zycit244 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  IF itab_di_final[] IS INITIAL.

    EXIT.

  ENDIF.

  REFRESH: itab_zycit279.

  SELECT * FROM /pws/zycit279 INTO TABLE itab_zycit279

...

 

...

FORM seleciona_nf_l.

  IF itab_di_final[] IS INITIAL.

    EXIT.

  ENDIF.

ENDFORM.

* >> Início da inclusão:

FORM exibe_centro_ei3.

  REFRESH itab_cent_ei.

  LOOP AT itab_det_exp_final.

    itab_cent_ei = itab_det_exp_final-werks_e.

    COLLECT itab_cent_ei.

  ENDLOOP.

  LOOP AT itab_di_final.

    itab_cent_ei = itab_di_final-werks.

    COLLECT itab_cent_ei.

  ENDLOOP.

  delete itab_cent_ei where werks eq space.

  sort itab_cent_ei by werks.

  CALL SCREEN '0320' STARTING AT 30 4.

ENDFORM.

* << Fim da inclusão

 

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

Modificações efetuadas em REPS /PWS/MZYCI064I01

 

...

  CASE ok_code3.

    WHEN 'SELE'.

      PERFORM trata_sele_0301.

    WHEN 'ADDCENTRO'.

      PERFORM adiciona_centro3.

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

    WHEN 'EXBCE'.

      PERFORM exibe_centro_ei3.

* << Fim da inclusão

    WHEN 'TPCOMP'.

      PERFORM seleciona_tipo3.

  ENDCASE.

ENDMODULE.

MODULE preenche_itab_det_remat INPUT.

...

 

...

  CASE ok_code3.

    WHEN 'SELE'.

      PERFORM trata_selecao3.

  ENDCASE.

endmodule.

* >> Início da inclusão:

module USER_COMMAND_0320 input.

  CASE ok_code3.

    WHEN 'EXIT'.

      CLEAR ok_code3.

      LEAVE TO SCREEN 0.

  ENDCASE.

endmodule.

* << Fim da inclusão

 

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

Modificações efetuadas em REPS /PWS/MZYCI064O01

 

...

      message i015 with text-290 sy-tcode.

      leave program.

    endif.

    select single * from /pws/zycit321.

  endif.

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

  read table itab_det_exp_final index 1.

  v_cent_ei = itab_det_exp_final-werks_e.

* << Fim da inclusão

  PERFORM move_dados_iniciais3.

  PERFORM gera_numero_seq3.

  PERFORM set_page3.

  PERFORM trata_botoes3.

  PERFORM carrega_icone3.

...

 

...

  /pws/zycie259c-posnr    = itab_det_exp-posnr   .

  /pws/zycie259c-vbeln_vl = itab_det_exp-vbeln_vl.

  /pws/zycie259c-posnl    = itab_det_exp-posnl   .

  /pws/zycie259c-dtre     = itab_det_exp-dtre    .

  /pws/zycie259c-nrseq    = itab_det_exp-nrseq   .

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

  /pws/zycie259c-werks_e  = itab_det_exp-werks_e   .

* << Fim da inclusão

  /pws/zycie259c-dtemb    = itab_det_exp-dtemb   .

  /pws/zycie259c-dtaverb  = itab_det_exp-dtaverb .

  /pws/zycie259c-gewei    = itab_det_exp-gewei   .

  /pws/zycie259c-lote     = itab_det_exp-lote    .

  /pws/zycie259c-brgew    = itab_det_exp-brgew   .

...

 

...

  /pws/zycie260c-ebelp        = itab_det_imp-ebelp       .

  /pws/zycie260c-adicao       = itab_det_imp-adicao      .

  /pws/zycie260c-j_1bnbm      = itab_det_imp-j_1bnbm     .

  /pws/zycie260c-nfnum        = itab_det_imp-nfnum       .

  /pws/zycie260c-serie        = itab_det_imp-serie       .

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

  /pws/zycie260c-werks        = itab_det_imp-werks       .

* << Fim da inclusão

  /pws/zycie260c-dtnf         = itab_det_imp-dtnf        .

  /pws/zycie260c-dtdi         = itab_det_imp-dtdi        .

  /pws/zycie260c-dtdesemb     = itab_det_imp-dtdesemb    .

  /pws/zycie260c-gewei        = itab_det_imp-gewei       .

  /pws/zycie260c-brgew        = itab_det_imp-brgew       .

...

 

...

  /pws/zycie260c-meins    = itab_det_nf-meins   .

  /pws/zycie260c-qtd_di   = itab_det_nf-qtd_di  .

  /pws/zycie260c-sdo_qtd  = itab_det_nf-sdo_qtd .

  /pws/zycie260c-qtd_vinc = itab_det_nf-qtd_vinc.

endmodule.

* >> Início da inclusão:

module STATUS_0320 output.

  SET PF-STATUS 'ST0320'.

endmodule.

module monta_0320 output.

endmodule.

* << Fim da inclusão

 

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

Modificações efetuadas em REPS /PWS/MZYCI064TOP3

 

...

        /pws/zycit036 .

CONTROLS: ts_cabec3   TYPE TABSTRIP                     ,

          ts_exp3     TYPE TABSTRIP                     ,

          tc_resumo3  TYPE TABLEVIEW USING SCREEN '0303',

          tc_centros3 TYPE TABLEVIEW USING SCREEN '0315',

* >> Início da inclusão:

          tc_ce_ei    TYPE TABLEVIEW USING SCREEN '0320',

* << Fim da inclusão

          tc_detalhe3 TYPE TABLEVIEW USING SCREEN '0304',

          ts_imp3     TYPE TABSTRIP                     ,

          ts_nfc3     TYPE TABSTRIP                     ,

          tc_res_imp3 TYPE TABLEVIEW USING SCREEN '0307',

          tc_det_imp3 TYPE TABLEVIEW USING SCREEN '0308',

...

 

...

      v_descr_0308(40)  TYPE c                           ,

      v_tiires_0303     LIKE /pws/zycie260d-i_vlii            ,

      v_tipires_0303    LIKE /pws/zycie260d-i_vlipi           ,

      v_tbenef_0303     LIKE /pws/zycie260d-t_benef           ,

      v_errolog3(135)   TYPE c                                ,

* >> Início da exclusão:

      v_tabix           LIKE sy-tabix                         .

* << Fim da exclusão

* >> Início da inclusão:

      v_tabix           LIKE sy-tabix                         ,

      v_cent_ei         TYPE /pws/zycit260-werks              .

DATA: BEGIN OF itab_cent_ei OCCURS 0.

DATA: werks TYPE /pws/zycit260-werks.

DATA: END OF itab_cent_ei .

* << Fim da inclusão

DATA: BEGIN OF itab_botoes3 OCCURS 0.

DATA: bname(20) TYPE c        .

DATA: END OF itab_botoes3           .

DATA: BEGIN OF itab_res_imp OCCURS 0,

        codcomp   LIKE /pws/zycie260-codcomp ,

...

 

 

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

Modificações efetuadas em REPT /PWS/SAPMZYCI064

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 267

 

Texto: (38 caracteres)

"Não foram encontradas exportações para"

 

Comprimento máximo: 38

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 268

 

Texto: (42 caracteres)

"o(s) centro(s) produtivo(s)  informado(s)."

 

Comprimento máximo: 42

 

 

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

Modificações efetuadas em TABD /PWS/ZYCIE258

 

Campos:

 

     Nome campo Elem.dados     Tab.verif. N CtDt Comp. Grupo

     ...

     BUKRS      BUKRS         T001            CHAR     4

     LIFNR      ELIFN         LFA1            CHAR    10

*Inicio da Inclusão

     CODAGRUP       /PWS/ZYCIL613              CHAR     3

*Fim da inclusão

 

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

Modificações efetuadas em TABD /PWS/ZYCIE259

 

Campos:

 

     Nome campo Elem.dados     Tab.verif. N CtDt Comp. Grupo

     ...

     AGRUP      /PWS/ZYGLL1072              CHAR     3

     LOTE       CHARG_D                     CHAR    10

*Inicio da Inclusão

     WERKS_E    WERKS_D                     CHAR     4

*Fim da Inclusão

 

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

Modificações efetuadas em TABD /PWS/ZYCIE259C

 

Campos:

 

     Nome campo Elem.dados     Tab.verif. N CtDt Comp. Grupo

     ...

     AGRUP      /PWS/ZYGLL1072              CHAR     3

     LOTE       CHARG_D                     CHAR    10

*Inicio da Inclusão

     WERKS_E    WERKS_D                     CHAR     4

*Fim da Inclusão

 

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

Modificações efetuadas em TABD /PWS/ZYCIE259D

 

Campos:

 

     Nome campo Elem.dados     Tab.verif. N CtDt Comp. Grupo

     ...

     AGRUP      /PWS/ZYGLL1072              CHAR     3

     LOTE       CHARG_D                     CHAR    10

*Inicio da Inclusão

     WERKS_E    WERKS_D                     CHAR     4

*Fim da Inclusão

 

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

Modificações efetuadas em TABD /PWS/ZYCIE260

 

Campos:

 

     Nome campo   Elem.dados    Tab.verif. N CtDt Comp. Grupo

     ...

     NRRE         /PWS/ZYCEL018              CHAR    14

     VALOR_U      /PWS/ZYCIL128              DEC     20

*Inicio da Inclusão

     WERKS        WERKS_D                    CHAR     4

*Fim da Inclusão

 

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

Modificações efetuadas em TABD /PWS/ZYCIE260C

 

Campos:

 

     Nome campo   Elem.dados    Tab.verif. N CtDt Comp. Grupo

     ...

     NRRE         /PWS/ZYCEL018              CHAR    14

     VALOR_U      /PWS/ZYCIL128              DEC     20

*Inicio da Inclusão

     WERKS        WERKS_D                    CHAR     4

*Fim da Inclusão

 

 

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

Modificações efetuadas em TABD /PWS/ZYCIE260D

 

Campos:

 

     Nome campo   Elem.dados    Tab.verif. N CtDt Comp. Grupo

     ...

     NRRE         /PWS/ZYCEL018              CHAR    14

     VALOR_U      /PWS/ZYCIL128              DEC     20

*Inicio da Inclusão

     WERKS        WERKS_D                    CHAR     4

*Fim da Inclusão

 

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

Modificações efetuadas em TABD /PWS/ZYCIE279

 

Campos:

 

     Nome campo   Elem.dados    Tab.verif. N CtDt Comp. Grupo

     ...

     BASEICMS     WRBTV_FPM                  CURR    23

     ATOCONCES    CHAR13                     CHAR    13

*Inicio da Inclusão

     WERKS        WERKS_D                    CHAR     4

     COB_CAMB     /PWS/ZYCIL841              CHAR     1

*Fim da Inclusão

 

 

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

Modificações efetuadas em TABD /PWS/ZYCIT258

 

Campos:

 

     Nome campo Chv Elem.dados    Tab.verif. N CtDt Comp. Grupo

     ...

     BUKRS          BUKRS                      CHAR     4

     LIFNR          ELIFN                      CHAR    10

*Inicio da Inclusão

     CODAGRUP       /PWS/ZYCIL613              CHAR     3

*Fim da inclusão

 

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

Modificações efetuadas em TABD /PWS/ZYCIT259

 

Campos:

 

     Nome campo Chv Elem.dados    Tab.verif. N CtDt Comp. Grupo

 

     AGRUP          /PWS/ZYGLL1072              CHAR     3

     LOTE           CHARG_D                     CHAR    10

*Inicio da Inclusão

     WERKS_E        WERKS_D                     CHAR     4

*Fim da Inclusão

 

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

Modificações efetuadas em TABD /PWS/ZYCIT260

 

Campos:

 

     Nome campo   Chv Elem.dados    Tab.verif. N CtDt Comp. Grupo

     ...

     NRRE             /PWS/ZYCEL018              CHAR    14

     VALOR_U          /PWS/ZYCIL128              DEC     20

*Inicio da Inclusão

     WERKS            WERKS_D                    CHAR     4

*Fim da Inclusão

 

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

Modificações efetuadas em TABD /PWS/ZYCIT279

 

Campos:

 

     Nome campo   Chv Elem.dados    Tab.verif. N CtDt Comp. Grupo

     ...

     BASEICMS         WRBTV_FPM                  CURR    23

     ATOCONCES        CHAR13                     CHAR    13

*Inicio da Inclusão

     WERKS            WERKS_D                    CHAR     4

     COB_CAMB         /PWS/ZYCIL841              CHAR     1

*Fim da Inclusão

 

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

Modificações efetuadas em TABD /PWS/ZYCIT279B

 

Campos:

 

     Nome campo   Chv Elem.dados    Tab.verif. N CtDt Comp. Grupo

     ...

     BASEICMS         WRBTV_FPM                  CURR    23

     ATOCONCES        CHAR13                     CHAR    13

*Inicio da Inclusão

     WERKS            WERKS_D                    CHAR     4

     COB_CAMB         /PWS/ZYCIL841              CHAR     1

*Fim da Inclusão