Sintoma

Desenvolvimento do programa de apropriação/desapropriação Comum/Intermediario por ncm

Solução

Desenvolvimento do programa de apropriação/desapropriação Comum/Intermediario por ncm

Informações Complementares

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

Nota Número 01373 Data: 19/05/2006 Hora: 08:32:11

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

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

Nota Número              : 01373

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00114

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DESENVOLVIMENTO DA APROPRIAÇÃO/DESAP. COMUM/INTERMEDIARIO POR NCM

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

Palavras Chave:

APROPRIAÇÃO - DESAPROPRIAÇÃO - COMUM - INTERMEDIARIO

/PWS/ZYCIR254

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

Objetos da nota:

DOMD /PWS/ZYCID170

DTED /PWS/ZYCIL817

PROG /PWS/ZYCIR254

PROG /PWS/ZYCIR254F01

PROG /PWS/ZYCIR254I01

PROG /PWS/ZYCIR254O01

REPS /PWS/ZYCIR254

REPS /PWS/ZYCIR254F01

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

Modificações efetuadas em DOMD /PWS/ZYCID170

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

Domínio modificado: /PWS/ZYCID170

-Valores individuais

Modificado valor fixo "G"

Texto modificado, idioma: PT (38 caracteres):

"Base dos saldos dos insumos importados"

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

Modificações efetuadas em DTED /PWS/ZYCIL817

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

Elemento de dados modificado: /PWS/ZYCIL817

Descrição breve modificada (49 caracteres), idioma: PT

"GL - Método de Apropriação insumos intermediarios"

Denominador breve modificado (10 caracteres), idioma: PT

"Apr interm"

Denominador médio modificado (14 caracteres), idioma: PT

"Método Apr int"

Denominador longo modificado (28 caracteres), idioma: PT

"Método Apropr. Intermediario"

Título modificado (28 caracteres), idioma: PT

"Método Apropr. Intermediario"

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

Modificações efetuadas em PROG /PWS/ZYCIR254

****************************Status GUI: 0003

*Definição das teclas de funções:

Código de função        CANCE

Categoria de função        Função de aplicação

Texto de função      Cancelar

Nome de ícone        ICON_CANCEL

****************************Status GUI: ST0001

*Teclas de função:

F2                             SELE       Selecionar

F5                             APROP      Apropriar

F6                             MALL       Marcar

F7                             DALL       Desmarcar

F8                             APROV      Aprovar

Shift-F1                       LOGER      Log

Ctrl-F1                        FIRST      First

Ctrl-F2                        PRIOR      Prior

Ctrl-F3                        NEXT       Next

Ctrl-F4                        LAST       Last

*Definição das teclas de funções:

Código de função        ENTE

Categoria de função        Função de aplicação

Texto de função      ENTE

Código de função        BACK

Categoria de função        Função de aplicação

Texto de função      Voltar

Código de função        ABORT

Categoria de função     E  Comando exit

Texto de função      Encerrar

Código de função        P--

Categoria de função        Função de aplicação

Texto de função      1ª página

Nome de ícone        ICON_FIRST_PAGE

Código de função        P-

Categoria de função        Função de aplicação

Texto de função      Página anterior

Nome de ícone        ICON_PREVIOUS_PAGE

Código de função        P+

Categoria de função        Função de aplicação

Texto de função      Página seguinte

Nome de ícone        ICON_NEXT_PAGE

Código de função        P++

Categoria de função        Função de aplicação

Texto de função      Última página

Nome de ícone        ICON_LAST_PAGE

Código de função        SELE

Categoria de função        Função de aplicação

Texto de função      Selecionar

Nome de ícone        ICON_SELECT_DETAIL

Código de função        APROP

Categoria de função        Função de aplicação

Texto de função      Apropriar

Nome de ícone        ICON_TREE

Texto informativo    Apropriar Exportaçõe

Código de função        MALL

Categoria de função        Função de aplicação

Texto de função      Marcar

Nome de ícone        ICON_SELECT_ALL

Texto informativo    Marcar Todos

Código de função        DALL

Categoria de função        Função de aplicação

Texto de função      Desmarcar

Nome de ícone        ICON_DESELECT_ALL

Texto informativo    Desmarcar Todos

Código de função        APROV

Categoria de função        Função de aplicação

Texto de função      Aprovar

Nome de ícone        ICON_ALLOW

Texto de ícones      Aprovar

Texto informativo    Aprovar Apropriação

Código de função        LOGER

Categoria de função        Função de aplicação

Texto de função      Log

Nome de ícone        ICON_ERROR_PROTOCOL

Texto informativo    Log de Processamento

Código de função        FIRST

Categoria de função        Função de aplicação

Texto de função      First

Nome de ícone        ICON_TOTAL_LEFT

Texto informativo    Primeiro Item

Código de função        PRIOR

Categoria de função        Função de aplicaç

Texto de função      Prior

Nome de ícone        ICON_COLUMN_LEFT

Texto informativo    Item Anterior

Código de função        NEXT

Categoria de função        Função de aplicaç

Texto de função      Next

Nome de ícone        ICON_COLUMN_RIGHT

Texto informativo    Próximo Item

Código de função        LAST

Categoria de função        Função de aplicação

Texto de função      Last

Nome de ícone        ICON_TOTAL_RIGHT

Texto informativo    Último Item

****************************Status GUI: ST0004

*Teclas de função:

 F2                             SELE       Selecionar

 F5                             DESAPR     Desapropriar

 F6                             MALL       Marcar

 F7                             DALL       Desmarcar

*Definição das teclas de funções:

Código de função        ENTE

Categoria de função        Função de aplicação

Texto de função      ENTE

Código de função        BACK

Categoria de função        Função de aplicação

Texto de função      Voltar

Código de função        ABORT

Categoria de função     E  Comando exit

Texto de função      Encerrar

Código de função        MALL

Categoria de função        Função de aplicação

Texto de função      Marcar

Nome de ícone        ICON_SELECT_ALL

Texto informativo    Marcar Todos

Código de função        DALL

Categoria de função        Função de aplicação

Texto de função      Desmarcar

Nome de ícone        ICON_DESELECT_ALL

Texto informativo    Desmarcar Todos

Código de função        DESAPR

Categoria de função        Função de aplicação

Texto de função      Desapropriar

Nome de ícone        ICON_TREE

Código de função        SELE

Categoria de função        Função de aplicação

Texto de função      Selecionar

Nome de ícone        ICON_SELECT_DETAIL

****Codigo fonte:

*---------------------------------------------------------------------*

* Report /PWS/ZYCIR070

*                                                                     *

*---------------------------------------------------------------------*

* ProcWork SoftWare

* Produto:   Pw.CE

* Módulo    : MM

* DESCRIÇÃ0 : CI - Apropriação/Desapropriação - Seleção de Dados

*

* Help Desk: 11-5504-0270

*----------------------------------------------------------------------*

* ESTE PROGRAMA NÃO DEVE SER ALTERADO SEM PRÉVIA CONSULTA

*----------------------------------------------------------------------*

* Nome                      Data         Descrição

*-----------------------------------------------------------------------

REPORT /pws/zycir070 MESSAGE-ID /pws/zycim.

* Controles de Tela

CONTROLS: tc_exp      TYPE TABLEVIEW USING SCREEN '0001',

          tc_exp_ap   TYPE TABLEVIEW USING SCREEN '0002',

          tc_imp_ap   TYPE TABLEVIEW USING SCREEN '0002',

          tc_log      TYPE TABLEVIEW USING SCREEN '0003',

          tc_exp_desa TYPE TABLEVIEW USING SCREEN '0004'.

* Tabela transparentes

TABLES: ekko    ,

        t001         ,

        /pws/zycee002,

        /pws/zycet002,

        /pws/zycit244,

        /pws/zycit245,

        /pws/zycit279,

        /pws/zycie282,

        /pws/zycit282,

        /pws/zycit321,

        /pws/zycit283,

        /pws/zycit094,

        /pws/zycit100,

        /pws/zycie100,

        /pws/zycet117,

        /pws/zycit327,

*PWS245742 - Início ----------------------------------------------------

        /pws/zycit439,

*PWS245742 - Fim -------------------------------------------------------

*PWS243757 - Início ----------------------------------------------------

        vbap.

*PWS243757 - Fim -------------------------------------------------------

.

* Tabelas Internas

* Controla exportações selecionadas.

DATA: BEGIN OF it_zycet002 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet002.

DATA: qtdbx   LIKE /pws/zycet002-fkimg,

      mexp(1) TYPE c                  .

DATA: END OF it_zycet002.

*Cabeçario de exportação

DATA: BEGIN OF it_zycet001 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet001.

DATA: END OF it_zycet001.

*Itens da DI

DATA: BEGIN OF itab_zycit246 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit246.

DATA: END OF itab_zycit246.

* grupo da exportação.

DATA: BEGIN OF it_zycet002_grp OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet002.

DATA: qtdbx   LIKE /pws/zycet002-fkimg,

      mexp(1) TYPE c             ,

      grp     LIKE mvke-mvgr1   .

DATA: END OF it_zycet002_grp.

***  PWS171210 - Inicio

* Controla exportações com itens estornados

DATA: BEGIN OF it_zycet002_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet002.

DATA: END OF it_zycet002_aux.

***  PWS171210 - Fim

* Controla as Desapropriações.

DATA: BEGIN OF it_zycet002_desa OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet002.

DATA: qtdapr  LIKE /pws/zycit283-qtd_apr,

      mexp(1) TYPE c.

DATA: END OF it_zycet002_desa.

* Controla Apropriações (Importações)

DATA: BEGIN OF it_apr OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit282.

data: un_ncm  like /pws/zycit245-meins,

      perc(10).

DATA: END OF it_apr.

DATA: BEGIN OF it_apr_final OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit282.

data: un_ncm  like /pws/zycit245-meins,

      perc(10).

DATA: END OF it_apr_final.

DATA: BEGIN OF it_apr_final_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit282.

DATA: END OF it_apr_final_aux.

DATA: BEGIN OF it_zycit283 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit283.

DATA: END OF it_zycit283.

DATA: BEGIN OF it_zycit282_des OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit282.

DATA: END OF it_zycit282_des.

DATA: BEGIN OF it_zycit282_est OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit282.

DATA: END OF it_zycit282_est.

DATA: BEGIN OF it_zycit283_des OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit283.

DATA: END OF it_zycit283_des.

DATA: BEGIN OF it_zycit283_est OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit283.

DATA: END OF it_zycit283_est.

DATA: BEGIN OF it_agrup OCCURS 0.

        INCLUDE STRUCTURE mvke.

DATA: END OF it_agrup.

* Fornecedores utilizados

DATA: BEGIN OF itab_fornec OCCURS 0.

DATA: lifnr  LIKE /pws/zycie244-lifnr,

      nrseqd LIKE /pws/zycie244-nrseqd.

DATA: END OF itab_fornec.

DATA: BEGIN OF it_zycit422 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit422.

DATA: END OF it_zycit422.

DATA: BEGIN OF itab_zycet117 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet117.

DATA: END OF itab_zycet117.

* Tabela de parâmetros de lista técnica de material.

DATA: BEGIN OF it_zycit281 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit281.

DATA: END OF it_zycit281.

* Tabela de Importações Recebidas

DATA: BEGIN OF it_zycit279 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit279.

data: matnr_alt like /pws/zycit279-matnr.

DATA: END OF it_zycit279.

DATA: BEGIN OF it_zycit279_save OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit279.

data: matnr_alt like /pws/zycit279-matnr.

DATA: END OF it_zycit279_save.

* Tabela de Insumos alternativos

DATA: BEGIN OF itab_zycit433 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit433.

DATA: END OF itab_zycit433.

* Cabeçalho dos Ato Concessórios

DATA: BEGIN OF it_zycit244 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit244.

DATA: END OF it_zycit244.

* Tabela de Ato Concessórios - Importações

DATA: BEGIN OF it_zycit245 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit245.

DATA: END OF it_zycit245.

* Tabela de Importações Realizadas

DATA: BEGIN OF it_zycit282 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit282.

DATA: END OF it_zycit282.

* Tabela de Ato Concessórios - Exportações

DATA: BEGIN OF it_zycit247 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit247.

DATA: END OF it_zycit247.

DATA: BEGIN OF it_zycit247_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit247.

DATA: END OF it_zycit247_aux.

DATA: BEGIN OF it_zycit247_save OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit247.

DATA: END OF it_zycit247_save.

DATA: itab_stko LIKE stko   OCCURS 0 WITH HEADER LINE.

DATA: it_stpox2 LIKE stpox  OCCURS 0 WITH HEADER LINE.

DATA: it_matcat LIKE cscmat OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF it_stpox OCCURS 0.

        INCLUDE STRUCTURE stpox.

DATA: mngko2 LIKE /pws/zycie240d-mngko.

DATA: END OF it_stpox.

* Tabela de Ato Concessórios - Exportações

DATA: BEGIN OF it_zycit247f OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit247.

DATA: END OF it_zycit247f.

* Controla Botões da barra de ferramentas.

DATA: BEGIN OF it_buttons OCCURS 0.

DATA:   bname(35) TYPE c.

DATA: END OF it_buttons.

* Controla a exibição do log de processamento.

DATA: BEGIN OF it_log_erro OCCURS 0.

DATA:   ltext(135) TYPE c.

DATA: END OF it_log_erro.

* Trata Ordem de Venda.

DATA : BEGIN OF itab_zycee085 OCCURS 10.

        INCLUDE STRUCTURE /pws/zycee085.

DATA : END   OF itab_zycee085.

DATA : BEGIN OF itab_saida OCCURS 10.

        INCLUDE STRUCTURE /pws/zycee085.

DATA : END OF itab_saida.

*  Lista tecnica

  DATA: BEGIN OF it_materiais OCCURS 0,

        matnr LIKE mara-matnr,

        werks LIKE marc-werks,

        stlan LIKE stpox-stlan,

        stlnr LIKE stpo-stlnr,

        stlal LIKE stpox-stlal,

        capid LIKE tc04-capid.

  DATA: END OF it_materiais.

  DATA: BEGIN OF i_final OCCURS 0,

        insumo  LIKE mara-matnr,

        produto LIKE stpox-idnrk,

        centro  LIKE stpox-werks,

        ncm     LIKE marc-steuc,

        qtunit  TYPE p DECIMALS 5,

        meins   LIKE stpox-meins.

  DATA: END OF i_final.

  DATA: BEGIN OF itab_lista OCCURS 0,

        matnr   LIKE mara-matnr,

        ncm     LIKE marc-steuc,

        usagem  TYPE p DECIMALS 5,

        qtd     like /pws/zycit282-qtd_mimp,

        meins   LIKE stpox-meins,

        perc(10)                 .

  DATA: END OF itab_lista.

data: itab_lista_aux like itab_lista occurs 0 with header line.

data: itab_lista_f like itab_lista occurs 0 with header line.

data: itab_zycit439 like /pws/zycit439 occurs 0 with header line.

*PWs245742 - Início ----------------------------------------------------

* PERDAS POR MATERIAL X INSUMO

*data: begin of it_zycit439 occurs 0.

*        include structure /pws/zycit439.

*data: end of it_zycit439.

*PWS245742 - Fim -------------------------------------------------------

*PWS243757 - Início ----------------------------------------------------

* Documento de vendas: dados de item

data: begin of it_vbap occurs 0,

        vbeln like vbap-vbeln,

        netpr like vbap-netpr,

      end of it_vbap.

*PWS243757 - Fim ------------------------------------------------------

* Work Área

DATA: wa_cols TYPE cxtab_column.

* Declaração de variáveis.

DATA: v_erro(1)        TYPE c VALUE 'N'                ,

      v_errolt(1)      TYPE c                          ,

      v_dias           type i                          ,

      v_dtforn         LIKE sy-datum                   ,

      ok_code          LIKE sy-ucomm                   ,

      mexp(1)          TYPE c                          ,

      v_ilinhas        TYPE i                          ,

      v_mtxt1_0001(40) TYPE c                          ,

      v_mtxt1_0002(40) TYPE c                          ,

      v_ctxt1_0002(40) TYPE c                          ,

      nextline         TYPE sy-tabix                   ,

      v_menorpct       TYPE p DECIMALS 5               ,

      v_pct_com        TYPE p DECIMALS 5               ,

      rimc1            LIKE indx-srtfd VALUE 'R070PAR1',

      v_import(1)      TYPE c VALUE 'N'                ,

      v_campo(35)      TYPE c                          ,

      v_valor(35)      TYPE c                          ,

      v_linha          TYPE i                          ,

      v_pos            TYPE i                          ,

      v_idx            LIKE sy-tabix                   ,

      v_indic1         LIKE icon-id                    ,

      v_indic2         LIKE icon-id                    ,

      v_indicatu       LIKE sy-tabix                   ,

      v_aprov(1)       TYPE c VALUE 'N'                ,

      v_index          TYPE sy-tabix                   ,

      v_errolog(135)   TYPE c                          ,

      v_qtdbx          LIKE /pws/zycet002-fkimg        ,

      v_exapr                                          ,

      v_apcomp(1)      TYPE c                          ,

      v_perc(10)       TYPE c                          ,

      v_tptrans(1)     TYPE c                          ,

      v_un_ncm         LIKE /pws/zycit245-meins        ,

      v_apr            LIKE /pws/zycit283-qtd_apr      ,

      v_saldo_mat      TYPE p DECIMALS 3               ,

      v_perc_di        TYPE p DECIMALS 2               ,

      v_saldo_di       TYPE p DECIMALS 3               ,

      v_qtd_apropriada type p decimals 3               ,

*PWS243757 - Início ----------------------------------------------------

      v_valor_imp  like /pws/zycit282-imp_s_cob_camb    ,

      v_exp_camb       like /pws/zycit282-exp_c_cob_camb,

      v_ebelp          like /pws/zycit282-ebelp         ,

      v_ebelp2         like /pws/zycit282-ebelp         ,

      v_imp_camb       like /pws/zycit282-imp_s_cob_camb,

*PWS243757 - Fim -------------------------------------------------------

*PWS251144 - Início ----------------------------------------------------

      v_exit.

*PWS251144 - Fim -------------------------------------------------------

* Seleção de Dados (Tela: Critério de Seleção) -------------------------

selection-screen BEGIN OF block scr1 WITH frame title text-000.

SELECT-OPTIONS: nrseqexp FOR /pws/zycee002-nrseq   ,

                vbeln_va FOR /pws/zycee002-vbeln_va,

                aupos    FOR /pws/zycee002-aupos   ,

                vbeln_vf FOR /pws/zycee002-vbeln_vf,

                posnr    FOR /pws/zycee002-posnr   ,

                docnum   FOR /pws/zycee002-docnum  ,

                vbeln_vl FOR /pws/zycee002-vbeln_vl,

                posnl    FOR /pws/zycee002-posnl   ,

                eebeln   FOR /pws/zycee002-ebeln   ,

                eebelp   FOR /pws/zycee002-ebelp   ,

                matnr    FOR /pws/zycee002-matnr   .

SELECTION-SCREEN END OF BLOCK scr1.

* ----------------------------------------------------------------------

INITIALIZATION.

*Authority-check   Transação

    authority-check object 'S_TCODE' id 'TCD' field sy-tcode.

    if sy-subrc ne 0.

      message i015 with text-290 sy-tcode.

      leave program.

    endif.

START-OF-SELECTION.

* Checa o tipo de transação chamada (manual ou automática) para trata-

* mento da apropriação.

  CASE sy-tcode.

    WHEN '/PWS/ZYCIR254'.

      v_tptrans = 'A'.

    WHEN '/PWS/ZYCIR254_D'.

      v_tptrans = 'D'.

  ENDCASE.

  CLEAR v_exapr.

* Importa dados das exportações direto do embarque.

  IMPORT it_zycet002 FROM MEMORY ID rimc1.

* Caso o relatório seja executado diretamente pelo embarque, efetua a

* apropriação direto sem exigir seleção de dados ou filtro de exporta-

* ções na tela 0001.

  IF sy-subrc NE 0.

*   Checa se foi preenchido algum valor como parâmetro.

    PERFORM check_minimum_selection CHANGING v_erro.

    CASE v_erro.

      WHEN 'N'.

        PERFORM select_data CHANGING v_erro.

        CASE v_erro.

          WHEN 'N'.

            IF v_tptrans NE 'D'.

              PERFORM execute_process.

            ELSE.

              PERFORM execute_process_desa.

            ENDIF.

          WHEN 'S'.

            IF v_exapr IS INITIAL.

              MESSAGE s015 WITH text-001.

            ELSE.

              MESSAGE s015 WITH text-040 text-041.

            ENDIF.

        ENDCASE.

      WHEN 'S'.

        MESSAGE s015 WITH text-033 text-034.

    ENDCASE.

  ELSE.

***  PWS171210 - Inicio

    IF NOT it_zycet002[] IS INITIAL.

      DELETE it_zycet002 WHERE fksto = 'X'

                         OR    shkzg = 'X'.

    ENDIF.

***  PWS171210 - Fim

*** 07/07/04 - Inicio.

* Se estiver executando a apropriação remove itens já apropriados.

    IF NOT it_zycet002[] IS INITIAL AND v_tptrans NE 'D'.

      LOOP AT it_zycet002.

        SELECT SINGLE * FROM /pws/zycit282

               WHERE nrseqexp = it_zycet002-nrseq

                 AND vbeln_va = it_zycet002-vbeln_va

                 AND aupos    = it_zycet002-aupos

*                 and vbeln_vf = it_zycet002-vbeln_vf

*                 and posnr    = it_zycet002-posnr

*                 and docnum   = it_zycet002-docnum

                 AND vbeln_vl = it_zycet002-vbeln_vl

                 AND posnl    = it_zycet002-posnl

                 AND eebeln   = it_zycet002-ebeln

                 AND eebelp   = it_zycet002-ebelp.

        IF sy-subrc EQ 0 .

          v_exapr = 'S'.

          DELETE it_zycet002.

        ENDIF.

      ENDLOOP.

      IF it_zycet002[] IS INITIAL.

        IF v_exapr IS INITIAL.

          MESSAGE s015 WITH text-001.

        ELSE.

          MESSAGE s015 WITH text-040 text-041.

        ENDIF.

      ELSE.

*   Trata Ordem de Venda, Devoluções, Etc.

        PERFORM trata_ordem_venda.

*   Ordena a tabela interna de exportações.

        SORT it_zycet002 BY nrseq vbeln_va vbeln_vf posnr ASCENDING.

*   Executa a apropriação das exportações.

        PERFORM run_appropriation_exportation.

        v_import = 'S'.

*   Posiciona a tabela interna de exportações vinda do embarque no

*   registro hum com 'X'.

        MOVE 1 TO v_indicatu.

        READ TABLE it_zycet002 INDEX v_indicatu.

        IF sy-subrc EQ 0.

          it_zycet002-mexp = 'X'.

          MODIFY it_zycet002 INDEX v_indicatu.

        ENDIF.

*   Posiciona as importações de acordo com os registros de exportações.

        PERFORM locate_record_appropriation.

*   Chama a tela de apropriações processadas.

        CALL SCREEN 0002.

*   Limpa endereço de memória com os dados da exportação.

        FREE MEMORY ID rimc1.

      ENDIF.

    ENDIF.

*** 07/07/04 - Fim.

  ENDIF.

END-OF-SELECTION.

*&---------------------------------------------------------------------*

*&      Form  select_data

*&---------------------------------------------------------------------*

FORM select_data CHANGING v_erro.

* itens já apropriados

  DATA: it_zycit282_temp LIKE /pws/zycit282.

* Seleciona dados das exportações.

  CLEAR: it_zycet002    ,

         it_zycet002_aux.

  REFRESH: it_zycet002    ,

           it_zycet002_aux.

  SELECT * FROM /pws/zycet002 INTO TABLE it_zycet002

         WHERE nrseq IN nrseqexp

           AND vbeln_va IN vbeln_va

           AND aupos    IN aupos

*           AND vbeln_vf IN vbeln_vf

*           AND posnr    IN posnr

*           AND docnum   IN docnum

           AND vbeln_vl IN vbeln_vl

           AND posnl    IN posnl

           AND ebeln    IN eebeln

           AND ebelp    IN eebelp

           AND matnr    IN matnr

           AND fkimg    >  0

***  PWS171210 - Inicio

           AND shkzg    NE 'X'

           AND fksto    NE 'X'.

***  PWS171210 - Fim

  IF sy-subrc NE 0.

    v_erro = 'S'.

  ENDIF.

*** 07/07/04 - Inicio.

* Se estiver executando a apropriação remove itens já apropriados.

  IF NOT it_zycet002[] IS INITIAL AND v_tptrans NE 'D'.

    LOOP AT it_zycet002.

      SELECT SINGLE * FROM /pws/zycit282 INTO it_zycit282_temp

             WHERE nrseqexp = it_zycet002-nrseq

               AND vbeln_va = it_zycet002-vbeln_va

               AND aupos    = it_zycet002-aupos

               AND vbeln_vl = it_zycet002-vbeln_vl

               AND posnl    = it_zycet002-posnl

               AND eebeln   = it_zycet002-ebeln

               AND eebelp   = it_zycet002-ebelp.

      IF sy-subrc EQ 0 .

        v_exapr = 'S'.

        DELETE it_zycet002.

      ENDIF.

    ENDLOOP.

    IF it_zycet002[] IS INITIAL.

      v_erro = 'S'.

    ENDIF.

  ENDIF.

*** 07/07/04 - Fim.

ENDFORM.                    " select_data

*&---------------------------------------------------------------------*

*&      Form  executa_processo

*&---------------------------------------------------------------------*

FORM execute_process.

* Trata Ordem de Venda, Devoluções, Etc.

  PERFORM trata_ordem_venda.

* Ordena a tabela interna de exportações.

  SORT it_zycet002 BY nrseq vbeln_va vbeln_vf posnr ASCENDING.

* Posiciona a table control com as exportações na primeira linha.

  tc_exp-top_line = 1.

* Chama a tela com as exportações selecionadas para executar a apropria-

* ção.

  CALL SCREEN 0001.

ENDFORM.                    " execute_process

INCLUDE /PWS/ZYCIR254I01.

*INCLUDE /pws/zycir070i01.

INCLUDE /PWS/ZYCIR254F01.

*INCLUDE /pws/zycir070f01.

INCLUDE /PWS/ZYCIR254O01.

*INCLUDE /pws/zycir070o01.

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

Modificações efetuadas em PROG /PWS/ZYCIR254F01

*----------------------------------------------------------------------*

***INCLUDE /PWS/ZYCIR070F01 .

*----------------------------------------------------------------------*

*&---------------------------------------------------------------------*

*& Form execute_back_button                                            *

*&---------------------------------------------------------------------*

FORM execute_back_button.

  LEAVE TO SCREEN 0.

ENDFORM. " execute_back_button

*&---------------------------------------------------------------------*

*& Form execute_mall_button                                            *

*&---------------------------------------------------------------------*

FORM execute_mall_button.

  LOOP AT it_zycet002.

    it_zycet002-mexp = 'X'.

    MODIFY it_zycet002.

  ENDLOOP.

ENDFORM. " execute_mall_button

*&---------------------------------------------------------------------*

*& Form execute_dall_button                                            *

*&---------------------------------------------------------------------*

FORM execute_dall_button.

  LOOP AT it_zycet002.

    it_zycet002-mexp = ' '.

    MODIFY it_zycet002.

  ENDLOOP.

ENDFORM. " execute_dall_button

*&---------------------------------------------------------------------*

*& Form blaettern                                                      *

*&---------------------------------------------------------------------*

FORM blaettern USING p_tccurr p_tclins p_itlin p_okcode

               CHANGING nextline.

  DATA: b_overlapping(1) TYPE c VALUE 'X'.

  IF p_itlin EQ 0.

    EXIT.

  ENDIF.

  CALL FUNCTION 'SCROLLING_IN_TABLE'

       EXPORTING

            entry_to       = p_itlin  "Nº de linha da tabela

            loops          = p_tclins  "Número de linha da TC na tela

            ok_code        = p_okcode

            entry_act      = p_tccurr

            last_page_full = ' '

            overlapping    = b_overlapping

       IMPORTING

            entry_new      = nextline.

ENDFORM. " blaettern

*&---------------------------------------------------------------------*

*& Form execute_aprop_button                                           *

*&---------------------------------------------------------------------*

FORM execute_aprop_button.

* Checa se foi marcado uma linha da table control.

* Caso tenha alguma exportação marcada, prossegue com a apro-

* priação.

  READ TABLE it_zycet002 WITH KEY mexp = 'X'.

  IF sy-subrc EQ 0.

*   Elimina as exportações não selecionadas.

    DELETE it_zycet002 WHERE mexp NE 'X'.

*   Retira o 'X' da marcação dos registros de exportação.

    LOOP AT it_zycet002.

      IF sy-tabix EQ 1.

        MOVE sy-tabix TO v_indicatu.

        it_zycet002-mexp = 'X'.

      ELSE.

        it_zycet002-mexp = ' '.

      ENDIF.

      MODIFY it_zycet002.

    ENDLOOP.

*   Ordena a tabela interna de exportações.

    SORT it_zycet002 BY nrseq vbeln_va vbeln_vf posnr ASCENDING.

*   Executa a apropriação das exportações.

    PERFORM run_appropriation_exportation.

*   Posiciona as importações de acordo com os registros de exportações.

    PERFORM locate_record_appropriation.

*   Chama a tela de apropriações processadas.

    CALL SCREEN 0002.

  ELSE.

    MESSAGE s015 WITH text-002 text-003.

  ENDIF.

ENDFORM. " execute_aprop_button

*&---------------------------------------------------------------------*

*& Form run_appropriation_exportation                                  *

*&---------------------------------------------------------------------*

FORM run_appropriation_exportation.

  DATA: v_ncm_temp(5),

        v_ncm_b LIKE it_zycet002_grp-steuc.

  SELECT SINGLE * FROM /pws/zycit321.

  REFRESH itab_zycit439.

  SELECT * FROM /pws/zycit439 INTO TABLE itab_zycit439

      WHERE dtde <= sy-datum AND

            dtate >= sy-datum.

  IF NOT it_zycet002[] IS INITIAL.

    CLEAR it_zycet001. REFRESH it_zycet001.

    SELECT * FROM /pws/zycet001 INTO TABLE it_zycet001

        FOR ALL ENTRIES IN it_zycet002

        WHERE nrseq EQ it_zycet002-nrseq.

* Seleciona na Tabela de parâmetros a lista técnica de materiais de

* cada exportação.

    CLEAR it_zycit281.

    REFRESH it_zycit281.

    SELECT * FROM /pws/zycit281 INTO TABLE it_zycit281

           FOR ALL ENTRIES IN it_zycet002

           WHERE matnr EQ it_zycet002-matnr.

*Seleciona Atos Comuns.

* Seleciona os Atos Concessórios com saldo para efetuar as

* apropriações.

    CLEAR it_zycit247. REFRESH it_zycit247.

    SELECT * FROM /pws/zycit247 INTO TABLE it_zycit247

           FOR ALL ENTRIES IN it_zycet002

*             WHERE codmat   EQ it_zycet002-matnr

           WHERE j_1bnbm  EQ it_zycet002-steuc

             AND esgotado EQ space.

    IF sy-subrc EQ 0.

*   Seleciona o cabeçalho dos Atos Concessórios.

      CLEAR it_zycit244. REFRESH it_zycit244.

      SELECT * FROM /pws/zycit244 INTO TABLE it_zycit244

             FOR ALL ENTRIES IN it_zycit247

             WHERE nrseqd     EQ it_zycit247-nrseqd

               AND status     EQ 'D'

               AND ( tipo     EQ 'C' OR tipo EQ 'F' )

               AND vcto_fn    >= sy-datum

               AND dtatoc     NE '00000000'

               AND modalidade EQ 'S'.

*   Seleciona os componentes importados dos Atos Concessórios.

      CLEAR it_zycit245. REFRESH it_zycit245.

      SELECT * FROM /pws/zycit245 INTO TABLE it_zycit245

             FOR ALL ENTRIES IN it_zycit247

             WHERE nrseqd EQ it_zycit247-nrseqd.

*   Seleciona os componentes importados recebidos efetivamente.

      CLEAR it_zycit279. REFRESH it_zycit279.

      SELECT * FROM /pws/zycit279 INTO TABLE it_zycit279

               FOR ALL ENTRIES IN it_zycit247

               WHERE nrseqd   EQ it_zycit247-nrseqd

                 AND esgotado EQ space.

*   Seleciona dados do cabeçalho da lista técnica, para busca da

*   quantidade base do material exportado.

      CLEAR itab_stko. REFRESH itab_stko.

      SELECT * FROM stko INTO TABLE itab_stko

             FOR ALL ENTRIES IN it_zycit247

             WHERE stlty EQ 'M'

               AND stlnr EQ it_zycit247-stlnr

               AND stlal EQ it_zycit247-stlal.

    ENDIF.

* Ordena tabela interna de materiais.

    PERFORM sort_records_zycit247.

* Trava os registros de recebimento.

    PERFORM lock_record_receb.

* Trava os registros do ato concessório.

    PERFORM lock_record_ato.

* Ordena a tabela interna de recebimentos (importações)

    SORT it_zycit279 BY nrseq ebeln ebelp matnr.

    LOOP AT it_zycet002.

      IF t001-bukrs NE it_zycet002-bukrs.

        SELECT SINGLE * FROM t001 WHERE bukrs EQ it_zycet002-bukrs.

      ENDIF.

*        READ TABLE it_zycit281 WITH KEY matnr = it_zycet002-matnr

*                                        werks = it_zycet002-werks.

      PERFORM converte_um_base USING    it_zycet002-matnr

                            CHANGING it_zycet002-vrkme

                                     it_zycet002-fkimg.

      IF it_zycet002-fkimg IS INITIAL.

        CONTINUE.

      ENDIF.

*Seleciona lista tecnica para explosão

      READ TABLE it_zycit281 WITH KEY matnr = it_zycet002-matnr

                                      werks = it_zycet002-werks.

      IF sy-subrc NE 0.

*Se o material não possui lista para o centro informado busca o centro

*  produtor para selecionar a lista tecnica.

        SELECT SINGLE a~wrk02

          FROM ( t460a AS a INNER JOIN marc AS b ON

            a~werks EQ b~werks AND

            a~sobsl EQ b~sobsl AND

            a~beskz EQ b~beskz )

        INTO it_zycet002-werks

        WHERE b~matnr EQ it_zycet002-matnr

          AND b~werks EQ it_zycet002-werks

          AND a~beskz EQ 'F'.

        IF sy-subrc EQ 0.

          READ TABLE it_zycit281 WITH KEY matnr = it_zycet002-matnr

                                          werks = it_zycet002-werks.

        ENDIF.

      ENDIF.

      IF sy-subrc EQ 0.

*     Puxa lista técnica de materiais.

        CLEAR: it_stpox, it_stpox2, it_matcat.

        REFRESH: it_stpox, it_stpox2, it_matcat. v_errolt = 'N'.

        PERFORM get_bom_of_materials TABLES it_stpox2

                                            it_matcat

                                     USING it_zycit281-matnr

                                           it_zycit281-capid

                                           it_zycit281-werks

                                           it_zycit281-stlan

                                           it_zycit281-stlnr

                                           it_zycit281-stlal

                                  CHANGING v_errolt.

        IF v_errolt EQ 'N'.

*       Trata recursividade dos componentes.

          PERFORM collect_materials TABLES it_stpox it_stpox2 it_matcat.

*  Monta tabela com os insumos e quantidades para a apropriação.

          REFRESH itab_lista. CLEAR itab_lista.

          LOOP AT i_final.

            itab_lista-matnr  = i_final-insumo.

            itab_lista-usagem = i_final-qtunit.

            itab_lista-ncm    = i_final-ncm.

            itab_lista-meins  = i_final-meins.

            itab_lista-qtd    = itab_lista-usagem * it_zycet002-fkimg.

            APPEND itab_lista.

          ENDLOOP.

*        Seleciona data de remessa.

          SELECT SINGLE bldat FROM likp INTO v_dtforn

              WHERE vbeln EQ it_zycet002-vbeln_vl.

*       Apropria o material vigente.

          PERFORM appropriate_current_record.

        ELSE.

*       Trata log erro (Lista técnica materiais não processada).

          CLEAR: v_errolog, it_log_erro.

          CONCATENATE text-015 it_zycet002-matnr

                                  INTO v_errolog SEPARATED BY space.

          MOVE v_errolog TO it_log_erro.

          APPEND it_log_erro.

        ENDIF.

      ELSE.

*     Trata log erro (Não há lista técnica de mat. parametrizada).

        CLEAR: v_errolog, it_log_erro.

        CONCATENATE text-016 it_zycet002-matnr

                                  INTO v_errolog SEPARATED BY space.

        MOVE v_errolog TO it_log_erro.

        APPEND it_log_erro.

      ENDIF.

    ENDLOOP.

  ENDIF.

* Remove as mensagem repedidas no Log de Erros.

  SORT it_log_erro BY ltext.

  DELETE ADJACENT DUPLICATES FROM it_log_erro .

ENDFORM. " run_appropriation_exportation

*&---------------------------------------------------------------------*

*& Form check_buttons_screen                                           *

*&---------------------------------------------------------------------*

FORM check_buttons_screen.

  REFRESH it_buttons.

  CASE sy-dynnr.

    WHEN '0001'.

      CLEAR it_buttons.

      it_buttons-bname = 'APROV'.    "Oculta Botão Aprovar Apropriação.

      APPEND it_buttons.

      CLEAR it_buttons.

      it_buttons-bname = 'FIRST'.    "Oculta Botão Primeiro Item.

      APPEND it_buttons.

      CLEAR it_buttons.

      it_buttons-bname = 'PRIOR'.    "Oculta Botão Item Anterior.

      APPEND it_buttons.

      CLEAR it_buttons.

      it_buttons-bname = 'NEXT'.    "Oculta Botão Próximo Item.

      APPEND it_buttons.

      CLEAR it_buttons.

      it_buttons-bname = 'LAST'.    "Oculta Botão Último Item.

      APPEND it_buttons.

      CLEAR it_buttons.

      it_buttons-bname = 'LOGER'.    "Oculta Botão Log de Processamento.

      APPEND it_buttons.

    WHEN '0002'.

      CLEAR it_buttons.

      it_buttons-bname = 'MALL'.    "Oculta Botão Marcar Todos.

      APPEND it_buttons.

      CLEAR it_buttons.

      it_buttons-bname = 'DALL'.    "Oculta Botão Desmarcar Todos.

      APPEND it_buttons.

      CLEAR it_buttons.

      it_buttons-bname = 'APROP'.   "Oculta Botão de Apropriação.

      APPEND it_buttons.

      CLEAR it_buttons.

      it_buttons-bname = 'P++'.   "Oculta Botão de Apropriação.

      APPEND it_buttons.

      CLEAR it_buttons.

      it_buttons-bname = 'P+'.   "Oculta Botão de Apropriação.

      APPEND it_buttons.

      CLEAR it_buttons.

      it_buttons-bname = 'P-'.   "Oculta Botão de Apropriação.

      APPEND it_buttons.

      CLEAR it_buttons.

      it_buttons-bname = 'P--'.   "Oculta Botão de Apropriação.

      APPEND it_buttons.

      IF it_log_erro[] IS INITIAL.

        CLEAR it_buttons.

        it_buttons-bname = 'LOGER'.  "Oculta Botão Log de Processamento.

        APPEND it_buttons.

      ENDIF.

      IF it_apr_final[] IS INITIAL.

        CLEAR it_buttons.

        it_buttons-bname = 'APROV'.  "Oculta Botão de Aprovação.

        APPEND it_buttons.

      ENDIF.

  ENDCASE.

ENDFORM. " check_buttons_screen

*&---------------------------------------------------------------------*

*& Form execute_back_button2                                           *

*&---------------------------------------------------------------------*

FORM execute_back_button2.

* Desbloqueia os registros de recebimento.

  PERFORM unlock_record_receb.

* Desbloqueia os registros do ato concessório.

  PERFORM unlock_record_ato.

*** INICIO MODIFICAÇÃO - Victor Neves 07/06/2004 - Request: F6DK907010

*** Caso tenha sido execuado ela transação de embarque de Exportação

*** voltar para a tela de Exportação.

  IF sy-tcode EQ '/PWS/ZYCE003_A'.

    v_import = 'E'.

  ENDIF.

*** FIM MODIFICAÇÃO - Victor Neves 07/06/2004 - Request: F6DK907010

* Se o relatório foi executado através do embarque exportação,

* volta direto ao embarque exportação. Se foi executado direto através

* da transação, retorna a tela de critério de seleção.

  CASE v_import.

    WHEN 'S'.

      LEAVE PROGRAM.

    WHEN 'N'.

      LEAVE TO TRANSACTION sy-tcode.

*** INICIO MODIFICAÇÃO - Victor Neves 07/06/2004 - Request: F6DK907010

    WHEN 'E'.

      LEAVE TO TRANSACTION sy-tcode AND SKIP FIRST SCREEN.

*** FIM MODIFICAÇÃO - Victor Neves 07/06/2004 - Request: F6DK907010

  ENDCASE.

ENDFORM. " execute_back_button2

*&---------------------------------------------------------------------*

*& Form execute_aprov_button2                                          *

*&---------------------------------------------------------------------*

FORM execute_aprov_button2.

  DATA: v_confirm(1) TYPE c.

  IF it_apr_final[] IS INITIAL.

    MESSAGE s015 WITH text-012 text-013.

    EXIT.

  ENDIF.

  IF v_aprov EQ 'S'.

    MESSAGE s015 WITH text-010.

  ELSE.

    CALL FUNCTION 'POPUP_TO_CONFIRM'

         EXPORTING

            titlebar                    = text-006

*           DIAGNOSE_OBJECT             = ' '

            text_question               = text-007

            text_button_1               = text-008

*           ICON_BUTTON_1               = ' '

            text_button_2               = text-009

*           ICON_BUTTON_2               = ' '

            default_button              = '1'

            display_cancel_button       = 'X'

*           USERDEFINED_F1_HELP         = ' '

*           START_COLUMN                = 25

*           START_ROW                   = 6

*           POPUP_TYPE                  =

         IMPORTING

            answer                      = v_confirm

*        TABLES

*           PARAMETER                   =

         EXCEPTIONS

            text_not_found              = 1

            OTHERS                      = 2.

    IF v_confirm EQ '1'.

      PERFORM save_appropriations.

    ENDIF.

  ENDIF.

ENDFORM. " execute_aprov_button2

*&---------------------------------------------------------------------*

*& Form execute_first_button2                                          *

*&---------------------------------------------------------------------*

FORM execute_first_button2.

  MOVE 1 TO v_indicatu.

  tc_exp_ap-top_line = v_indicatu.

  LOOP AT it_zycet002 WHERE mexp = 'X'.

    it_zycet002-mexp = ' '.

    MODIFY it_zycet002.

  ENDLOOP.

  READ TABLE it_zycet002 INDEX v_indicatu.

  IF sy-subrc EQ 0.

    it_zycet002-mexp = 'X'.

    MODIFY it_zycet002 INDEX v_indicatu.

*   Posiciona as importações de acordo com os registros de exportações.

    PERFORM locate_record_appropriation.

  ENDIF.

ENDFORM. " execute_first_button2

*&---------------------------------------------------------------------*

*& Form execute_prior_button2                                          *

*&---------------------------------------------------------------------*

FORM execute_prior_button2.

  IF v_indicatu > 1.

    v_indicatu = v_indicatu - 1.

  ENDIF.

  tc_exp_ap-top_line = v_indicatu.

  LOOP AT it_zycet002 WHERE mexp = 'X'.

    it_zycet002-mexp = ' '.

    MODIFY it_zycet002.

  ENDLOOP.

  READ TABLE it_zycet002 INDEX v_indicatu.

  IF sy-subrc EQ 0.

    it_zycet002-mexp = 'X'.

    MODIFY it_zycet002 INDEX v_indicatu.

*   Posiciona as importações de acordo com os registros de exportações.

    PERFORM locate_record_appropriation.

  ENDIF.

ENDFORM.                    " execute_prior_button2

*&---------------------------------------------------------------------*

*&      Form  execute_next_button2

*&---------------------------------------------------------------------*

FORM execute_next_button2.

  DESCRIBE TABLE it_zycet002 LINES v_ilinhas.

  IF v_indicatu < v_ilinhas.

    v_indicatu = v_indicatu + 1.

  ENDIF.

  IF v_indicatu > 4.

    IF v_indicatu NE tc_exp_ap-top_line.

      tc_exp_ap-top_line = tc_exp_ap-top_line + 1.

    ENDIF.

  ENDIF.

  LOOP AT it_zycet002 WHERE mexp = 'X'.

    it_zycet002-mexp = ' '.

    MODIFY it_zycet002.

  ENDLOOP.

  READ TABLE it_zycet002 INDEX v_indicatu.

  IF sy-subrc EQ 0.

    it_zycet002-mexp = 'X'.

    MODIFY it_zycet002 INDEX v_indicatu.

*   Posiciona as importações de acordo com os registros de exportações.

    PERFORM locate_record_appropriation.

  ENDIF.

ENDFORM. " execute_next_button2

*&---------------------------------------------------------------------*

*& Form execute_last_button2                                           *

*&---------------------------------------------------------------------*

FORM execute_last_button2.

  DESCRIBE TABLE it_zycet002 LINES v_ilinhas.

  v_indicatu = v_ilinhas.

  tc_exp_ap-top_line = v_indicatu.

  LOOP AT it_zycet002 WHERE mexp = 'X'.

    it_zycet002-mexp = ' '.

    MODIFY it_zycet002.

  ENDLOOP.

  READ TABLE it_zycet002 INDEX v_indicatu.

  IF sy-subrc EQ 0.

    it_zycet002-mexp = 'X'.

    MODIFY it_zycet002 INDEX v_indicatu.

*   Posiciona as importações de acordo com os registros de exportações.

    PERFORM locate_record_appropriation.

  ENDIF.

ENDFORM. " execute_last_button2

*&---------------------------------------------------------------------*

*& Form execute_sele_button2                                           *

*&---------------------------------------------------------------------*

FORM execute_sele_button2.

  CLEAR: v_campo, v_valor, v_linha.

  GET CURSOR FIELD v_campo VALUE v_valor LINE v_linha.

  CASE v_campo.

    WHEN 'V_INDIC1'.

      IF v_linha > 0.

        v_pos = tc_exp_ap-top_line + v_linha - 1.

        MOVE v_pos TO v_indicatu.

        LOOP AT it_zycet002 WHERE mexp EQ 'X'.

          it_zycet002-mexp = ' '.

          MODIFY it_zycet002.

        ENDLOOP.

        READ TABLE it_zycet002 INDEX v_indicatu.

        IF sy-subrc EQ 0.

          it_zycet002-mexp = 'X'.

          MODIFY it_zycet002 INDEX v_indicatu.

*         Posiciona as importações de acordo com os registros de

*         exportações.

          PERFORM locate_record_appropriation.

        ENDIF.

      ENDIF.

  ENDCASE.

ENDFORM. " execute_sele_button2

*&---------------------------------------------------------------------*

*& Form locate_record_appropriation                                    *

*&---------------------------------------------------------------------*

FORM locate_record_appropriation.

* Posiciona a tabela de importações de acordo com o registro

* selecionado nas exportações.

  CLEAR it_apr. REFRESH it_apr.

  LOOP AT it_zycet002 WHERE mexp EQ 'X'.

    LOOP AT it_apr_final WHERE nrseqexp = it_zycet002-nrseq

                           AND vbeln_va = it_zycet002-vbeln_va

                           AND aupos    = it_zycet002-aupos

                           AND vbeln_vf = it_zycet002-vbeln_vf

                           AND posnr    = it_zycet002-posnr

                           AND docnum   = it_zycet002-docnum

                           AND vbeln_vl = it_zycet002-vbeln_vl

                           AND posnl    = it_zycet002-posnl

                           AND eebeln   = it_zycet002-ebeln

                           AND eebelp   = it_zycet002-ebelp.

      MOVE-CORRESPONDING it_apr_final TO it_apr.

      APPEND it_apr.

    ENDLOOP.

  ENDLOOP.

ENDFORM. " locate_record_appropriation

*&---------------------------------------------------------------------*

*& Form get_bom_of_materials                                           *

*&---------------------------------------------------------------------*

* Objetivo: Pega lista tecnica do material

*&---------------------------------------------------------------------*

* Parâmetros:   ( --> Entrada ) ( <-- Saída ) ( <-> Tabelas )

*&---------------------------------------------------------------------*

* --> p_matnr

* --> p_capid

* --> p_werks

* --> p_stlan

* --> p_stlnr

* --> p_stlal

* <-- p_erro

* <-> p_list

* <-> p_list2

*&---------------------------------------------------------------------*

* Chamado     Data            Descrição

*&---------------------------------------------------------------------*

* 230434      04/05/2005      Iclucão da parte para gravar na tabela

*                             /pws/zycit327

*&---------------------------------------------------------------------*

FORM get_bom_of_materials TABLES p_list  LIKE it_stpox2[]

                                 p_list2 LIKE it_matcat[]

                           USING p_matnr

                                 p_capid

                                 p_werks

                                 p_stlan

                                 p_stlnr

                                 p_stlal

                        CHANGING p_erro.

  CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'

       EXPORTING

            capid                 = p_capid

            datuv                 = sy-datum

            mktls                 = 'X'

            mehrs                 = 'X'

            mtnrv                 = p_matnr

            stlal                 = p_stlal

            stlan                 = p_stlan

            svwvo                 = 'X'

            werks                 = p_werks

            vrsvo                 = 'X'

       TABLES

            stb                   = p_list

            matcat                = p_list2

       EXCEPTIONS

            alt_not_found         = 1

            call_invalid          = 2

            material_not_found    = 3

            missing_authorization = 4

            no_bom_found          = 5

            no_plant_data         = 6

            no_suitable_bom_found = 7

            conversion_error      = 8

            OTHERS                = 9.

  IF sy-subrc NE 0.

    p_erro = 'S'.

  ENDIF.

* Chamado 230434 - Inicio

  DATA: v_datum     LIKE sy-datum,

        v_trans(20) TYPE c       ,

        idmemory1        LIKE indx-srtfd VALUE 'ITMAT'   ,

        idmemory2        LIKE indx-srtfd VALUE 'ITINS'   .

  DATA: BEGIN OF itab_zycit327 OCCURS 0.

          INCLUDE STRUCTURE /pws/zycit327.

  DATA: END OF itab_zycit327.

* Seleciona o nome da transação (REPORT) de explosão de lista técnica.

  SELECT SINGLE transacao FROM /pws/zycet079 INTO v_trans

         WHERE codmod EQ 'D'

           AND func   EQ 'LTM'.

  IF sy-subrc NE 0 OR v_trans IS INITIAL.

    MESSAGE i015 WITH text-052 text-053.

    LEAVE PROGRAM.

    EXIT.

  ENDIF.

  CLEAR i_final. REFRESH i_final.

  CLEAR it_materiais. REFRESH it_materiais.

  it_materiais-matnr = p_matnr.

  it_materiais-werks = p_werks.

  it_materiais-stlan = p_stlan.

  it_materiais-stlnr = p_stlnr.

  it_materiais-stlal = p_stlal.

  it_materiais-capid = p_capid.

  APPEND it_materiais.

* Exporta a tabela com o material a ser explodida a lista técnica.

  EXPORT it_materiais TO MEMORY ID idmemory1.

* Chama programa de explosão de lista técnica.

  SUBMIT (v_trans) AND RETURN.

* Importa a tabela final com os insumos explodidos.

  IMPORT i_final FROM MEMORY ID idmemory2.

  IF sy-subrc NE 0 OR i_final[] IS INITIAL.

    p_erro = 'S'.

  ELSE.

*   Tratamento de laudo técnico

    SELECT * FROM /pws/zycit327 INTO TABLE itab_zycit327

           FOR ALL ENTRIES IN i_final

           WHERE produto EQ i_final-produto

             AND centro  EQ i_final-centro.

    LOOP AT i_final.

      READ TABLE itab_zycit327 WITH KEY produto = i_final-produto

                                        insumo  = i_final-insumo

                                        centro  = i_final-centro

                                        usagem  = i_final-qtunit.

      READ TABLE p_list WITH KEY idnrk =   i_final-insumo.

      IF sy-subrc EQ 0.

        IF sy-datum < itab_zycit327-data_de OR

           sy-datum > itab_zycit327-data_ate.

          MOVE: i_final-produto TO /pws/zycit327-produto,

                i_final-centro  TO /pws/zycit327-centro,

                i_final-insumo  TO /pws/zycit327-insumo,

                i_final-qtunit  TO /pws/zycit327-usagem,

                i_final-meins   TO /pws/zycit327-meins,

*                sy-datum        TO /pws/zycit327-data_de,

                p_list-datuv  TO /pws/zycit327-data_de,

*                '99991231'      TO /pws/zycit327-data_ate.

                p_list-datub   TO /pws/zycit327-data_ate.

          MODIFY /pws/zycit327 FROM /pws/zycit327.

        ENDIF.

      ELSE.

        READ TABLE itab_zycit327 WITH KEY produto = i_final-produto

                                          insumo  = i_final-insumo

                                          centro  = i_final-centro.

        IF sy-subrc EQ 0.

          MOVE: i_final-produto TO /pws/zycit327-produto ,

                i_final-centro  TO /pws/zycit327-centro  ,

                i_final-insumo  TO /pws/zycit327-insumo  ,

                i_final-qtunit  TO /pws/zycit327-usagem  ,

                i_final-meins   TO /pws/zycit327-meins   ,

*                sy-datum        TO /pws/zycit327-data_de,

                p_list-datuv  TO /pws/zycit327-data_de,

*                '99991231'      TO /pws/zycit327-data_ate.

                p_list-datub   TO /pws/zycit327-data_ate.

          MODIFY /pws/zycit327 FROM /pws/zycit327.

          CLEAR v_datum.

          v_datum = sy-datum - 1.

          MOVE v_datum TO itab_zycit327-data_ate.

          MODIFY /pws/zycit327 FROM itab_zycit327.

        ELSE.

          MOVE: i_final-produto TO /pws/zycit327-produto ,

                i_final-centro  TO /pws/zycit327-centro  ,

                i_final-insumo  TO /pws/zycit327-insumo  ,

                i_final-qtunit  TO /pws/zycit327-usagem  ,

                i_final-meins   TO /pws/zycit327-meins   ,

*                sy-datum        TO /pws/zycit327-data_de,

                p_list-datuv  TO /pws/zycit327-data_de,

*                '99991231'      TO /pws/zycit327-data_ate.

                p_list-datub   TO /pws/zycit327-data_ate.

          MODIFY /pws/zycit327 FROM /pws/zycit327.

        ENDIF.

      ENDIF.

    ENDLOOP.

    LOOP AT itab_zycit327.

      READ TABLE i_final WITH KEY produto = itab_zycit327-produto

                                  insumo  = itab_zycit327-insumo

                                  centro  = itab_zycit327-centro

                                  qtunit  = itab_zycit327-usagem.

      IF sy-subrc NE 0.

        CLEAR v_datum.

        v_datum = sy-datum - 1.

        MOVE: v_datum TO itab_zycit327-data_ate.

        MODIFY /pws/zycit327 FROM itab_zycit327.

      ENDIF.

    ENDLOOP.

*    p_list[] = i_final[].

  ENDIF.

* Limpa o endereço de memória e seu conteúdo.

  FREE MEMORY ID idmemory2.

* Chamado 230434 - Fim

ENDFORM. " get_bom_of_materials

*&---------------------------------------------------------------------*

*& Form appropriate_current_record                                     *

*&---------------------------------------------------------------------*

FORM appropriate_current_record.

  DATA: v_apmat(1) TYPE c              ,

        v_diasv TYPE /pws/zycit321-dia_ant ,

        v_qtdaprop LIKE /pws/zycet002-fkimg ,

        v_qtdbase  LIKE itab_stko-bmeng,

        v_error(1) TYPE c              .

  v_apmat = 'N'.

*** Inicio Modificação - Victor Neves 02/06/2004 - F6DK906822

*** Ordena para pegar apartir do ato concessório mais antigo.

  SORT it_zycit247 BY nrseqd.

*** Fim Modificação - Victor Neves 02/06/2004 - F6DK906822

  CLEAR: it_zycet001, v_pct_com.

  READ TABLE it_zycet001 WITH KEY nrseq = it_zycet002-nrseq.

  IF it_zycet001-dtprev IS INITIAL.

    CLEAR: v_errolog, it_log_erro.

    CONCATENATE text-075 it_zycet002-nrseq text-077

                                    INTO v_errolog SEPARATED BY space.

    MOVE v_errolog TO it_log_erro.

    APPEND it_log_erro.

    EXIT.

  ENDIF.

  REFRESH itab_lista_f.

  itab_lista_f[] = itab_lista[].

*    LOOP AT it_zycit247 WHERE codmat   EQ it_zycet002-matnr

  LOOP AT it_zycit247 WHERE j_1bnbm  EQ it_zycet002-steuc

                        AND esgotado EQ ' '

                        AND werks EQ it_zycet002-werks.

    READ TABLE itab_stko WITH KEY stlnr = it_zycit247-stlnr

                                  stlal = it_zycit247-stlal.

    IF sy-subrc NE 0.

      v_qtdbase = 1.

    ELSE.

      v_qtdbase = itab_stko-bmeng.

    ENDIF.

    CLEAR it_zycit244.

    READ TABLE it_zycit244 WITH KEY nrseqd = it_zycit247-nrseqd.

    IF sy-subrc NE 0.

      CONTINUE.

    ENDIF.

*     Verifica dias de antecedencia ao vencimento do ato

    IF it_zycit244-vcto_vg IS INITIAL.

      CLEAR: v_errolog, it_log_erro.

      CONCATENATE text-031 it_zycit244-nrseqd text-076

                                    INTO v_errolog SEPARATED BY space.

      MOVE v_errolog TO it_log_erro.

      APPEND it_log_erro.

      CONTINUE.

    ENDIF.

    v_diasv = it_zycit244-vcto_vg - it_zycet001-dtprev.

    IF v_diasv < /pws/zycit321-dia_ant.

      CONTINUE.

    ENDIF.

    v_pct_com = v_qtdaprop / it_zycet002-fkimg .

    IF v_qtdaprop >= it_zycet002-fkimg.

      EXIT.

    ENDIF.

    v_apmat = 'S'.

    v_error = 'N'.

*   Se o tipo de ato concessório não for genérico, executa uma rotina

*   de apropriação não genérica, senão, executa uma rotina específica

*   para genérico.

    IF it_zycit244-tipo NE 'G'.

      PERFORM appropriate_tng CHANGING v_qtdaprop v_qtdbase v_error.

    ELSE.

      PERFORM appropriate_tg CHANGING v_qtdaprop v_qtdbase v_error.

    ENDIF.

*    IF NOT v_apcomp IS INITIAL.

*      EXIT.

*    ENDIF.

    IF v_error EQ 'S'.

      CONTINUE.

    ENDIF.

  ENDLOOP.

  REFRESH: itab_lista.

*  IF v_apcomp IS INITIAL.

  itab_lista[] = itab_lista_f[].

*  ENDIF.

*****************************************

  IF NOT itab_lista_f[] IS INITIAL.

    IF /pws/zycit321-apr_gen EQ 'G'.

      LOOP AT itab_lista_f.

        itab_lista_f-qtd = itab_lista_f-usagem *

          ( it_zycet002-fkimg * v_pct_com  ).

        MODIFY itab_lista_f.

      ENDLOOP.

    ELSE.

      LOOP AT itab_lista_f.

        itab_lista_f-qtd = itab_lista_f-usagem * it_zycet002-fkimg.

        MODIFY itab_lista_f.

      ENDLOOP.

    ENDIF.

    REFRESH itab_lista_aux.

    itab_lista_aux[] = itab_lista_f[].

    REFRESH: itab_fornec.

    LOOP AT it_zycit247f WHERE j_1bnbm  EQ it_zycet002-steuc

                           AND esgotado EQ ' '

                           AND werks EQ it_zycet002-werks.

      CLEAR it_zycit244.

      READ TABLE it_zycit244 WITH KEY nrseqd = it_zycit247f-nrseqd.

      IF sy-subrc NE 0.

        CONTINUE.

      ENDIF.

      READ TABLE itab_fornec WITH KEY lifnr = it_zycit244-lifnr.

      IF sy-subrc EQ 0 AND

        itab_fornec-nrseqd NE it_zycit244-nrseqd.

        CONTINUE.

      ENDIF.

*     Verifica dias de antecedencia ao vencimento do ato

      IF it_zycit244-vcto_vg IS INITIAL.

        CLEAR: v_errolog, it_log_erro.

        CONCATENATE text-031 it_zycit244-nrseqd text-076

                                      INTO v_errolog SEPARATED BY space.

        MOVE v_errolog TO it_log_erro.

        APPEND it_log_erro.

        CONTINUE.

      ENDIF.

      v_diasv = it_zycit244-vcto_vg - it_zycet001-dtprev.

      IF v_diasv < /pws/zycit321-dia_ant.

        CONTINUE.

      ENDIF.

      PERFORM apr_tf .

      DELETE itab_lista_aux WHERE qtd <= 0.

*    Verifica se ainda existem insumos a serem apropriados

      IF itab_lista_aux[] IS INITIAL.

        EXIT.

      ENDIF.

*   v_menorpct

    ENDLOOP.

  ENDIF.

****************************************************

* Atualiza Log de Erro (Não há Atos Concessórios com Saldo).

  IF v_apmat = 'N'.

    CLEAR: v_errolog, it_log_erro.

    CONCATENATE text-021 it_zycet002-matnr '/' it_zycet002-werks

                                      INTO v_errolog SEPARATED BY space.

    MOVE v_errolog TO it_log_erro.

    APPEND it_log_erro.

  ENDIF.

  IF v_apmat = 'N'.

    CLEAR v_qtdaprop.

  ENDIF.

  MOVE v_qtdaprop TO it_zycet002-qtdbx.

  MODIFY it_zycet002.

ENDFORM. " appropriate_current_record

*&---------------------------------------------------------------------*

*& Form get_pct                                                        *

*&---------------------------------------------------------------------*

FORM get_pct USING p_qtdtmp p_qtdebase CHANGING p_menorpct.

  DATA: p_pct_aux TYPE p DECIMALS 5  ,

        v_qtdtot  LIKE /pws/zycee002-fkimg,

        v_qttmp   LIKE /pws/zycee002-fkimg,

        v_tabix   LIKE sy-tabix,

        v_perda   LIKE /pws/zycie245-perda,

        v_qtd_perda   LIKE /pws/zycee002-fkimg,

        v_tabix_245   LIKE sy-tabix,

        c_pct_dec TYPE p DECIMALS 2.

  CLEAR it_zycit279.

  MODIFY it_zycit279 TRANSPORTING matnr_alt

    WHERE matnr_alt NE space.

  LOOP AT itab_lista.

    REFRESH itab_zycit433.

    SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433

          WHERE matnr EQ itab_lista-matnr.

    itab_zycit433-matnr = itab_lista-matnr.

    itab_zycit433-matnr_alt = itab_lista-matnr.

    APPEND itab_zycit433.

    LOOP AT itab_zycit433.

      it_zycit279-matnr_alt = itab_zycit433-matnr.

      MODIFY it_zycit279 TRANSPORTING matnr_alt

        WHERE matnr  EQ itab_zycit433-matnr_alt

          AND nrseqd EQ it_zycit247-nrseqd.

    ENDLOOP.

**************************

    CLEAR: v_qtdtot, v_qtd_perda, v_perda, it_zycit245.

    LOOP AT it_zycit279 WHERE matnr_alt EQ itab_lista-matnr

                          AND esgotado = space

                          AND nrseqd   = it_zycit247-nrseqd    .

*      v_dtforn

      CLEAR: v_perda, v_dias.

      v_dias = v_dtforn - it_zycit279-dtnf.

      IF it_zycit281-nrdprod > v_dias.

        CONTINUE.

      ENDIF.

      READ TABLE itab_zycit439 WITH KEY

          insumo = it_zycit279-matnr

          matnr  = it_zycet002-matnr.

      IF sy-subrc NE 0 OR

          itab_zycit439-perda_e IS INITIAL.

        READ TABLE it_zycit245 WITH KEY

                               nrseqd  = it_zycit247-nrseqd

*                               codcomp = it_zycit279-matnr.

                               j_1bnbm = it_zycit279-j_1bnbm.

        IF sy-subrc EQ 0.

          v_perda = it_zycit245-perda_e.

        ENDIF.

      ELSE.

        v_perda = itab_zycit439-perda_e.

      ENDIF.

      v_qtd_perda = ( it_zycit279-slqtde * v_perda ) /

                    ( 100 - v_perda ).

      v_qtdtot = v_qtdtot + it_zycit279-slqtde + v_qtd_perda.

    ENDLOOP.

    p_pct_aux = ( v_qtdtot / itab_lista-qtd ) * 100.

*  Menor percentual

    IF /pws/zycit321-percent EQ 'N'.

      IF ( p_menorpct IS INITIAL

        OR p_menorpct > p_pct_aux ) AND

        NOT p_pct_aux IS INITIAL.

        p_menorpct = p_pct_aux.

      ENDIF.

*  Maior percentual

    ELSEIF /pws/zycit321-percent EQ 'M'.

      IF p_menorpct IS INITIAL

        OR p_menorpct < p_pct_aux.

        p_menorpct = p_pct_aux.

      ENDIF.

    ENDIF.

    IF p_pct_aux > 100.

      p_pct_aux = 100.

    ENDIF.

    c_pct_dec = p_pct_aux.

    MOVE c_pct_dec TO itab_lista-perc.

    CONCATENATE itab_lista-perc '%' INTO itab_lista-perc.

    MODIFY itab_lista.

  ENDLOOP.

  IF p_menorpct > 100.

    p_menorpct = 100.

  ENDIF.

ENDFORM. " get_pct

*&---------------------------------------------------------------------*

*& Form verify_receive_all_components                                  *

*&---------------------------------------------------------------------*

FORM verify_receive_all_components CHANGING p_allcomp p_totit.

* Verifica se todos os componentes do ato concessório atual foram

* recebidos efetivamente.

  p_allcomp = 'S'.

  LOOP AT it_zycit245 WHERE nrseqd EQ it_zycit247-nrseqd.

    READ TABLE it_zycit279 WITH KEY matnr  = it_zycit245-codcomp

                                    nrseqd = it_zycit245-nrseqd.

    IF sy-subrc NE 0.

      p_allcomp = 'N'.

      EXIT.

    ENDIF.

*   Apura quantos itens têem que ser apropriados no total.

    p_totit = p_totit + 1.

  ENDLOOP.

ENDFORM. " verify_receive_all_components

*&---------------------------------------------------------------------*

*& Form save_appropriations                                            *

*&---------------------------------------------------------------------*

FORM save_appropriations.

* Elimina as exportações não apropriadas.

  LOOP AT it_zycet002.

    v_index = sy-tabix.

    READ TABLE it_apr_final WITH KEY nrseqexp = it_zycet002-nrseq

                                     vbeln_va = it_zycet002-vbeln_va

                                     aupos    = it_zycet002-aupos

                                     vbeln_vf = it_zycet002-vbeln_vf

                                     posnr    = it_zycet002-posnr

                                     docnum   = it_zycet002-docnum

                                     vbeln_vl = it_zycet002-vbeln_vl

                                     posnl    = it_zycet002-posnl

                                     eebeln   = it_zycet002-ebeln

                                     eebelp   = it_zycet002-ebelp.

    IF sy-subrc NE 0.

      DELETE it_zycet002 INDEX v_index.

      UPDATE /pws/zycet002 SET staprop = 'E'

                     WHERE nrseq    = it_zycet002-nrseq

                       AND vbeln_va = it_zycet002-vbeln_va

                       AND aupos    = it_zycet002-aupos

                       AND vbeln_vl = it_zycet002-vbeln_vl

                       AND posnl    = it_zycet002-posnl.

    ELSE.

      UPDATE /pws/zycet002 SET staprop = 'A'

                   WHERE nrseq    = it_zycet002-nrseq

                     AND vbeln_va = it_zycet002-vbeln_va

                     AND aupos    = it_zycet002-aupos

                     AND vbeln_vl = it_zycet002-vbeln_vl

                     AND posnl    = it_zycet002-posnl.

    ENDIF.

  ENDLOOP.

  MODIFY /pws/zycit282 FROM TABLE it_apr_final.

  MODIFY /pws/zycit283 FROM TABLE it_zycit283.

  MODIFY /pws/zycit247 FROM TABLE it_zycit247_save.

  MODIFY /pws/zycit245 FROM TABLE it_zycit245.

  MODIFY /pws/zycit279 FROM TABLE it_zycit279_save.

  COMMIT WORK.

  IF sy-subrc EQ 0.

    v_aprov = 'S'.

    MESSAGE s015 WITH text-011.

    CLEAR it_log_erro. REFRESH it_log_erro.

*   Desbloqueia os registros de recebimento.

    PERFORM unlock_record_receb.

*   Desbloqueia os registros do ato concessório.

    PERFORM unlock_record_ato.

  ENDIF.

ENDFORM. " save_appropriations

*&---------------------------------------------------------------------*

*& Form execute_loger_button2                                          *

*&---------------------------------------------------------------------*

FORM execute_loger_button2.

  CALL SCREEN '0003' STARTING AT 3 4. " ending at 89 12.

ENDFORM. " execute_loger_button2

*&---------------------------------------------------------------------*

*& Form sort_records_zycit247                                          *

*&---------------------------------------------------------------------*

FORM sort_records_zycit247.

  CLEAR it_zycit247_aux. REFRESH it_zycit247_aux.

* Ordena a tabela interna de cabeçalho dos atos concessórios.

  SORT it_zycit244 BY dtatoc ASCENDING.

  it_zycit247_aux[] = it_zycit247[].

  CLEAR it_zycit247. REFRESH it_zycit247.

* Realimenta a tabela interna de materiais (exportação) em ordem de

* data, de acordo com o cabeçalho do ato concessório.

  LOOP AT it_zycit244.

*Authority-check   Centro

    AUTHORITY-CHECK OBJECT 'C_PPBD'

                       ID 'AKTTYP' FIELD 'V'

          ID 'WERKS' FIELD it_zycit244-werks.

    IF sy-subrc NE 0.

*      message i015 with text-289 it_zycit244-werks.

      DELETE it_zycit244.

      DELETE it_zycit247 WHERE nrseqd EQ it_zycit244-nrseqd.

      DELETE it_zycit245 WHERE nrseqd EQ it_zycit244-nrseqd.

      DELETE it_zycit279 WHERE nrseqd EQ it_zycit244-nrseqd.

      CONTINUE.

    ENDIF.

*Authority-check   Empresa

    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'

                          ID 'BUKRS' FIELD it_zycit244-bukrs "Empresa

                                      ID 'ACTVT' FIELD '01'.

    IF sy-subrc NE 0.

      DELETE it_zycit244.

      DELETE it_zycit247 WHERE nrseqd EQ it_zycit244-nrseqd.

      DELETE it_zycit245 WHERE nrseqd EQ it_zycit244-nrseqd.

      DELETE it_zycit279 WHERE nrseqd EQ it_zycit244-nrseqd.

      CONTINUE.

    ENDIF.

    LOOP AT it_zycit247_aux WHERE nrseqd = it_zycit244-nrseqd.

      CLEAR it_zycit247.

      IF it_zycit244-tipo EQ 'C' .

        MOVE-CORRESPONDING it_zycit247_aux TO it_zycit247.

        READ TABLE it_zycit279 WITH KEY nrseqd = it_zycit247_aux-nrseqd.

        IF sy-subrc EQ 0.

          APPEND it_zycit247.

        ENDIF.

      ELSE.

        MOVE-CORRESPONDING it_zycit247_aux TO it_zycit247f.

        READ TABLE it_zycit279 WITH KEY nrseqd = it_zycit247_aux-nrseqd.

        IF sy-subrc EQ 0.

          APPEND it_zycit247f.

        ENDIF.

      ENDIF.

    ENDLOOP.

  ENDLOOP.

ENDFORM. " sort_records_zycit247

*&---------------------------------------------------------------------*

*& Form appropriate_tng                                                *

*&---------------------------------------------------------------------*

* Chamado     Data            Descrição

* ----------------------------------------------------------------------

* 220218      02/05/2005      Alterado calculo da quantidade a ser

*                             apropriada para utilizar o campo

*                             it_stpox-MNGKO2 como usagem do componente.

* ----------------------------------------------------------------------

FORM appropriate_tng CHANGING p_qtdaprop p_qtdebase p_error.

  DATA: "v_menorpct   TYPE p DECIMALS 5          ,

        v_allcomp(1) TYPE c                     ,

        v_totit      TYPE i                     ,

        v_totit_tmp  TYPE i                     ,

        v_qtdtmp     LIKE /pws/zycet002-fkimg   ,

        v_qtdtmp2    LIKE /pws/zycet002-fkimg   ,

        v_bxreceb    LIKE /pws/zycit279-slqtde  ,

        v_bxatoc     LIKE /pws/zycit247-sdomat_e,

        v_bxatoc_tmp LIKE /pws/zycit247-sdomat_e,

        v_saldo_e    LIKE /pws/zycit247-sdomat_e,

        v_meins_e    LIKE /pws/zycit247-meins   ,

        v_dtnf       LIKE sy-datum              ,

*        v_dias       LIKE /pws/zycit281-nrdprod ,

        v_mdias                                 ,

        v_aprcomum                              ,

        v_dttax      LIKE sy-datum              .

*  DATA: itab_zycit433 LIKE /pws/zycit433 OCCURS 0 WITH HEADER LINE.

* Apura a quantidade a ser usada do Ato concessório para os cálculos.

  v_qtdtmp  = it_zycet002-fkimg - p_qtdaprop.

  v_meins_e = it_zycit247-meins.

  v_saldo_e = it_zycit247-sdomat_e.

  PERFORM converte_um_base USING    it_zycet002-matnr

                        CHANGING v_meins_e

                                 v_saldo_e.

  IF v_saldo_e >= v_qtdtmp.

    v_qtdtmp = v_qtdtmp.

  ELSE.

    v_qtdtmp = v_saldo_e.

  ENDIF.

  LOOP AT itab_lista.

    itab_lista-qtd = itab_lista-usagem * v_qtdtmp.

    MODIFY itab_lista.

  ENDLOOP.

  CLEAR: v_menorpct, v_allcomp, v_totit, v_totit_tmp, v_mdias.

* Apura a menor porcentagem usada entre todos os componentes do Ato.

  PERFORM get_pct USING v_qtdtmp p_qtdebase CHANGING v_menorpct.

* Verifica se todos os componentes do ato foram recebidos efetivamente

*  PERFORM verify_receive_all_components CHANGING v_allcomp v_totit.

  IF v_menorpct > 0. " AND v_allcomp EQ 'S'.

    REFRESH: itab_lista_aux.

    LOOP AT itab_lista.

      itab_lista_aux = itab_lista.

      itab_lista_aux-qtd = ( itab_lista-qtd * v_menorpct ) / 100.

      itab_lista-qtd = itab_lista-qtd - itab_lista_aux-qtd.

      APPEND itab_lista_aux.

      MODIFY itab_lista.

    ENDLOOP.

    v_bxatoc = itab_lista_aux-qtd / itab_lista_aux-usagem.

*    v_bxatoc  = ( v_qtdtmp * v_menorpct ) / 100.

*   Se o que for apropriado deste ato for maior do que a quantidade a

*   ser exportada, vai para o próximo ato.

    v_bxatoc_tmp = ( p_qtdaprop + v_bxatoc ).

    IF v_bxatoc_tmp > it_zycet002-fkimg.

      v_bxatoc = it_zycet002-fkimg - p_qtdaprop .

*      p_error = 'S'.

*      EXIT.

    ENDIF.

    CLEAR: v_apcomp.

    CLEAR it_apr_final_aux. REFRESH it_apr_final_aux.

    IF p_qtdebase IS INITIAL.

      p_qtdebase = 1.

    ENDIF.

    LOOP AT itab_lista_aux.

      v_qtdtmp2 = itab_lista_aux-usagem *

          ( it_zycet002-fkimg - p_qtdaprop ) .

      CLEAR it_zycit279.

      MODIFY it_zycit279 TRANSPORTING matnr_alt

        WHERE matnr_alt NE space.

      REFRESH itab_zycit433.

      SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433

            WHERE matnr EQ itab_lista_aux-matnr.

      itab_zycit433-matnr = itab_lista_aux-matnr.

      itab_zycit433-matnr_alt = itab_lista_aux-matnr.

      APPEND itab_zycit433.

      LOOP AT itab_zycit433.

        it_zycit279-matnr_alt = itab_zycit433-matnr.

        MODIFY it_zycit279 TRANSPORTING matnr_alt

          WHERE matnr  EQ itab_zycit433-matnr_alt

            AND nrseqd EQ it_zycit247-nrseqd.

      ENDLOOP.

      CLEAR: v_aprcomum.

      LOOP AT it_zycit279 WHERE nrseqd   = it_zycit247-nrseqd

                            AND esgotado = space

                            AND matnr_alt EQ itab_lista_aux-matnr.

        CLEAR v_dias.

        v_dias = v_dtforn - it_zycit279-dtnf.

        IF it_zycit281-nrdprod > v_dias.

          CONTINUE.

        ENDIF.

        CLEAR it_apr_final.

        MOVE: it_zycet002-nrseq    TO it_apr_final-nrseqexp  ,

              it_zycet002-vbeln_va TO it_apr_final-vbeln_va  ,

              it_zycet002-aupos    TO it_apr_final-aupos     ,

              it_zycet002-vbeln_vf TO it_apr_final-vbeln_vf  ,

              it_zycet002-posnr    TO it_apr_final-posnr     ,

              it_zycet002-docnum   TO it_apr_final-docnum    ,

              it_zycet002-vbeln_vl TO it_apr_final-vbeln_vl  ,

              it_zycet002-posnl    TO it_apr_final-posnl     ,

              it_zycet002-ebeln    TO it_apr_final-eebeln    ,

              it_zycet002-ebelp    TO it_apr_final-eebelp    ,

              it_zycet002-steuc    TO it_apr_final-j_1bnbmexp,

              it_zycit279-nrseq    TO it_apr_final-nrseqimp  ,

              it_zycit279-ebeln    TO it_apr_final-ebeln     ,

              it_zycit279-ebelp    TO it_apr_final-ebelp     ,

              it_zycit279-nrseqd   TO it_apr_final-nrseqd    ,

              it_zycet002-matnr    TO it_apr_final-matnr_exp ,

              it_zycet002-vrkme    TO it_apr_final-meins_e   ,

              it_zycet002-fkimg    TO it_apr_final-qtd_eorg  ,

              itab_lista_aux-perc  TO it_apr_final-perc      ,

              v_bxatoc             TO it_apr_final-qtd_mexp  ,

              v_bxatoc             TO it_apr_final-qtd_ncm   ,

              it_zycet002-vrkme    TO it_apr_final-um_ncm    ,

              it_zycit247-nritem   TO it_apr_final-nritem    ,

              it_zycit279-matnr    TO it_apr_final-matnr_imp ,

              itab_lista-meins     TO it_apr_final-un_ncm    ,

              it_zycit279-meins    TO it_apr_final-meins_i   .

        PERFORM converte_um_ncm USING it_apr_final-matnr_exp

                          CHANGING it_apr_final-um_ncm

                                   it_zycet002-werks

                                   it_apr_final-qtd_ncm.

        it_apr_final-mengecom = it_zycit279-slqtde.

* Trata perda e Perda excedente

        READ TABLE itab_zycit439 WITH KEY

                 insumo = it_apr_final-matnr_imp

                 matnr  = it_zycet002-matnr.

        IF sy-subrc EQ 0.

          IF itab_zycit439-perda IS INITIAL.

            READ TABLE it_zycit245 WITH KEY

                                   nrseqd  = it_apr_final-nrseqd

                                   j_1bnbm = it_zycit279-j_1bnbm.

            IF sy-subrc EQ 0.

              it_apr_final-perda = it_zycit245-perda.

            ENDIF.

          ELSE.

            it_apr_final-perda = itab_zycit439-perda.

          ENDIF.

          IF itab_zycit439-perda_e IS INITIAL.

            READ TABLE it_zycit245 WITH KEY

                                   nrseqd  = it_apr_final-nrseqd

                                   j_1bnbm = it_zycit279-j_1bnbm.

            IF sy-subrc EQ 0.

              it_apr_final-perda_e = it_zycit245-perda_e.

            ENDIF.

          ELSE.

            it_apr_final-perda_e = itab_zycit439-perda_e.

          ENDIF.

        ELSE.

          READ TABLE it_zycit245 WITH KEY

                                 nrseqd  = it_apr_final-nrseqd

                                 j_1bnbm = it_zycit279-j_1bnbm.

          IF sy-subrc EQ 0.

            it_apr_final-perda = it_zycit245-perda.

            it_apr_final-perda_e = it_zycit245-perda_e.

          ENDIF.

        ENDIF.

        it_apr_final-qtd_iorg = itab_lista_aux-qtd.

************************* ajusta quantidade a apropriar .

        itab_lista_aux-qtd = itab_lista_aux-qtd -

         ( itab_lista_aux-qtd * ( it_apr_final-perda_e / 100 ) ) .

*************************

        IF it_zycit279-slqtde < itab_lista_aux-qtd.

          it_apr_final-qtd_mimp = it_zycit279-slqtde.

        ELSE.

          it_apr_final-qtd_mimp = itab_lista_aux-qtd.

        ENDIF.

        itab_lista_aux-qtd = it_apr_final-qtd_iorg .

        it_apr_final-qtd_iorg = v_qtdtmp2.

************************* calcula quantidade de perda excesiva.

        it_apr_final-qtd_perda_e =

               ( it_apr_final-qtd_mimp * it_apr_final-perda_e )

                           / ( 100 - it_apr_final-perda_e ) .

        it_apr_final-qtd_iorg = it_apr_final-qtd_iorg -

         ( it_apr_final-qtd_iorg * ( it_apr_final-perda_e / 100 ) ).

*************************

        v_qtdtmp2 = v_qtdtmp2 - it_apr_final-qtd_mimp -

                                it_apr_final-qtd_perda_e .

*     Calcula perda

        it_apr_final-qtd_perda =

              ( it_apr_final-qtd_mimp + it_apr_final-qtd_perda_e )

                        * ( it_apr_final-perda / 100 ).

*    Atualiza saldos

        itab_lista_aux-qtd = itab_lista_aux-qtd -

                 it_apr_final-qtd_mimp - it_apr_final-qtd_perda_e.

        DATA: v_nrseqdi LIKE /pws/zycit085-nrseqdi.

        FREE itab_zycit246.

        SELECT SINGLE * FROM /pws/zycit094

        INTO /pws/zycit094

        WHERE nrseq EQ it_apr_final-nrseqimp.

        IF sy-subrc = 0.

          SELECT SINGLE nrdi dtreg dttax

          FROM /pws/zycit085

          INTO (it_apr_final-nrdi,it_apr_final-dtreg,v_dttax)

          WHERE nrbl EQ /pws/zycit094-nrseqce.

        ENDIF.

* Verifica o saldo para Export/Import C/S Cobertura Cambial.

        IF it_zycit244-importacao NE 'X'.

          it_apr_final-exp_c_cob_camb =

              it_zycet002-fkimg * it_zycit247-tolling.

          CLEAR v_valor_imp.

          v_valor_imp = it_zycit279-valor.

          PERFORM valor_converte_imp USING   'BRL'

                                             'USD'

                                             v_dttax

                                    CHANGING v_valor_imp.

          it_apr_final-imp_s_cob_camb =

              it_apr_final-qtd_mimp  * v_valor_imp.

        ELSE.

          SELECT vbeln netpr FROM vbap

            INTO TABLE it_vbap

            WHERE vbeln EQ it_apr_final-vbeln_va.

          READ TABLE it_vbap WITH KEY vbeln = it_apr_final-vbeln_va.

          IF sy-subrc EQ 0.

            it_apr_final-exp_c_cob_camb =

                it_apr_final-qtd_mexp * it_vbap-netpr.

          ENDIF.

        ENDIF.

*----------------------------------------------------------------------*

*-Calcular Campo QTD equivalente mat.de export.------------------------*

        DATA: v_usagem TYPE p DECIMALS 5.

        v_usagem = ( it_apr_final-qtd_mimp + it_apr_final-qtd_perda_e )

                    / itab_lista_aux-usagem.

        MOVE v_usagem TO it_apr_final-qtd_eq_mexp.

        CLEAR it_apr_final_aux.

        MOVE it_apr_final TO it_apr_final_aux.

        APPEND it_apr_final_aux.

        APPEND it_apr_final.

*Remove insumo da lista técnica do intermediario caso tenha sido

* apropriado em ato comum.

        DELETE itab_lista_f WHERE matnr = itab_lista_aux-matnr.

        it_zycit279-slqtde = it_zycit279-slqtde -

                             it_apr_final-qtd_mimp.

        IF it_zycit279-slqtde <= 0.

          it_zycit279-esgotado = 'X'.

        ENDIF.

        MODIFY it_zycit279.

*         Atualiza a tabela de importações realizadas e seus saldos.

        READ TABLE it_zycit279_save WITH KEY

                                    nrseq  = it_zycit279-nrseq

                                    ebeln  = it_zycit279-ebeln

                                    ebelp  = it_zycit279-ebelp

                                    nrseqd = it_zycit279-nrseqd

                                    matnr  = it_zycit279-matnr.

        IF sy-subrc NE 0.

          CLEAR it_zycit279_save.

          MOVE-CORRESPONDING it_zycit279 TO it_zycit279_save.

          APPEND it_zycit279_save.

        ELSE.

          it_zycit279_save-slqtde =

                      it_zycit279_save-slqtde - it_apr_final-qtd_mimp.

          IF it_zycit279_save-slqtde <= 0.

            it_zycit279_save-esgotado = 'X'.

          ENDIF.

          MODIFY it_zycit279_save TRANSPORTING slqtde esgotado

                                  WHERE nrseq  = it_zycit279-nrseq

                                    AND ebeln  = it_zycit279-ebeln

                                    AND ebelp  = it_zycit279-ebelp

                                    AND nrseqd = it_zycit279-nrseqd

                                    AND matnr  = it_zycit279-matnr.

        ENDIF.

        DELETE itab_lista_f WHERE matnr EQ itab_lista_aux-matnr.

        v_aprcomum = 'X'.

        IF v_apcomp IS INITIAL.

          v_apcomp = 'S'.

        ENDIF.

        IF itab_lista_aux-qtd <= 0.

          EXIT.

        ENDIF.

      ENDLOOP.

*      IF v_aprcomum IS INITIAL.

**        read table it_apr_final with key

*        itab_lista_f = itab_lista_aux.

*        APPEND itab_lista_f.

*      ENDIF.

    ENDLOOP.

*   Checa se foi efetuada as apropriações dos componentes.

    IF v_apcomp IS INITIAL.

      IF NOT v_mdias IS INITIAL.

        CONCATENATE text-066 it_zycit281-nrdprod

                    text-067 it_zycit281-matnr

          INTO v_errolog SEPARATED BY space.

        MOVE v_errolog TO it_log_erro.

        APPEND it_log_erro.

      ENDIF.

      p_error = 'S'.

      EXIT.

*    ELSE.

    ENDIF.

    v_saldo_e = v_bxatoc .

    PERFORM converte_unidade  USING it_zycet002-matnr

                                    it_zycet002-vrkme

                                    it_zycit247-meins

                           CHANGING v_saldo_e.

    it_zycit247-sdomat_e = it_zycit247-sdomat_e - v_saldo_e.

    IF it_zycit247-sdomat_e <= 0.

      it_zycit247-esgotado = 'X'.

    ENDIF.

    MODIFY it_zycit247.

*   Atualiza a tabela de exportações e seus saldos.

    READ TABLE it_zycit247_save WITH KEY

                                      nrseqd = it_zycit247-nrseqd

                                      nritem = it_zycit247-nritem.

    IF sy-subrc NE 0.

      CLEAR it_zycit247_save.

      MOVE-CORRESPONDING it_zycit247 TO it_zycit247_save.

      APPEND it_zycit247_save.

    ELSE.

      it_zycit247_save-sdomat_e =

                                 it_zycit247_save-sdomat_e - v_saldo_e.

      IF it_zycit247_save-sdomat_e <= 0.

        it_zycit247_save-esgotado = 'X'.

      ENDIF.

      MODIFY it_zycit247_save TRANSPORTING sdomat_e esgotado

                              WHERE nrseqd  = it_zycit247-nrseqd

                                AND nritem  = it_zycit247-nritem.

    ENDIF.

    p_qtdaprop = p_qtdaprop + v_bxatoc.

  ELSE.

*   Atualiza Log de Erro.

    IF v_menorpct <= 0.

      CLEAR: v_errolog, it_log_erro.

      CONCATENATE text-031 it_zycit247-nrseqd text-018

                                    INTO v_errolog SEPARATED BY space.

      MOVE v_errolog TO it_log_erro.

      APPEND it_log_erro.

    ELSEIF v_allcomp EQ 'N'.

      CLEAR: v_errolog, it_log_erro.

      CONCATENATE

      text-017 it_zycet002-matnr text-019 it_zycit247-nrseqd text-020

                                    INTO v_errolog SEPARATED BY space.

      MOVE v_errolog TO it_log_erro.

      APPEND it_log_erro.

    ENDIF.

  ENDIF.

ENDFORM. " appropriate_tng

*&---------------------------------------------------------------------*

*& Form appropriate_tg                                                 *

*&---------------------------------------------------------------------*

FORM appropriate_tg CHANGING p_qtdaprop

                             p_qtdebase

                             p_error.

  DATA: v_menorpct   TYPE p DECIMALS 5     ,

        v_qtdtmp     LIKE /pws/zycet002-fkimg   ,

        v_bxreceb    LIKE /pws/zycit279-slqtde  ,

        v_bxatoc     LIKE /pws/zycit247-sdomat_e,

        v_bxatoc_tmp LIKE /pws/zycit247-sdomat_e,

        v_valor_imp  LIKE /pws/zycit282-imp_s_cob_camb.

* Apura a quantidade a ser usada do Ato concessório para os cálculos.

  IF it_zycit247-sdomat_e >= it_zycet002-fkimg.

    v_qtdtmp = it_zycet002-fkimg.

  ELSE.

    v_qtdtmp = it_zycit247-sdomat_e.

  ENDIF.

  IF v_qtdtmp > p_qtdaprop.

    v_qtdtmp = v_qtdtmp - p_qtdaprop.

  ELSE.

    v_qtdtmp = p_qtdaprop - v_qtdtmp.

  ENDIF.

  CLEAR v_menorpct.

* Apura a menor porcentagem usada entre todos os componentes do Ato.

  PERFORM get_pct_tg USING v_qtdtmp p_qtdebase CHANGING v_menorpct.

  IF v_menorpct > 0.

    v_bxatoc = ( v_qtdtmp * v_menorpct ) / 100.

*   Se o que for apropriado deste ato for maior do que a quantidade a

*   ser exportada, vai para o próximo ato.

    v_bxatoc_tmp = ( p_qtdaprop + v_bxatoc ).

    IF v_bxatoc_tmp > it_zycet002-fkimg.

      p_error = 'S'.

      EXIT.

    ENDIF.

    CLEAR it_apr_final_aux. REFRESH it_apr_final_aux.

    LOOP AT it_zycit279 WHERE nrseqd   = it_zycit247-nrseqd

                          AND esgotado = ' '.

      READ TABLE it_stpox WITH KEY idnrk = it_zycit279-matnr.

      IF sy-subrc EQ 0.

        v_bxreceb = ( ( v_qtdtmp *

                ( it_stpox-mngko2 / p_qtdebase ) ) * v_menorpct ) / 100.

*       Verifica se o item recebido tem saldo suficiente. Caso não

*       tenha, vai para o próximo item do recebimento.

        IF it_zycit279-slqtde < v_bxreceb.

          CONTINUE.

        ENDIF.

        CLEAR it_apr_final.

        MOVE: it_zycet002-nrseq    TO it_apr_final-nrseqexp ,

              it_zycet002-vbeln_va TO it_apr_final-vbeln_va ,

              it_zycet002-aupos    TO it_apr_final-aupos    ,

              it_zycet002-vbeln_vf TO it_apr_final-vbeln_vf ,

              it_zycet002-posnr    TO it_apr_final-posnr    ,

              it_zycet002-docnum   TO it_apr_final-docnum   ,

              it_zycet002-vbeln_vl TO it_apr_final-vbeln_vl ,

              it_zycet002-posnl    TO it_apr_final-posnl    ,

              it_zycet002-ebeln    TO it_apr_final-eebeln   ,

              it_zycet002-ebelp    TO it_apr_final-eebelp   ,

              it_zycet002-steuc    TO it_apr_final-j_1bnbmexp,

              it_zycit279-nrseq    TO it_apr_final-nrseqimp ,

              it_zycit279-ebeln    TO it_apr_final-ebeln    ,

              it_zycit279-ebelp    TO it_apr_final-ebelp    ,

              it_zycit279-nrseqd   TO it_apr_final-nrseqd   ,

              it_zycet002-matnr    TO it_apr_final-matnr_exp,

              it_zycet002-vrkme    TO it_apr_final-meins_e  ,

              it_zycet002-fkimg    TO it_apr_final-qtd_eorg ,

              v_bxatoc             TO it_apr_final-qtd_mexp ,

              it_zycit279-matnr    TO it_apr_final-matnr_imp,

              it_zycit279-meins    TO it_apr_final-meins_i  ,

              v_bxreceb            TO it_apr_final-qtd_mimp .

        it_apr_final-qtd_iorg =

                        ( v_qtdtmp * ( it_stpox-mngko2 / p_qtdebase ) ).

*PWS243757 - Início ---------------------------------------------------

* Verifica o saldo para Export/Import C/S Cobertura Cambial.

        IF it_zycit244-importacao NE 'X'.

          it_apr_final-exp_c_cob_camb =

              it_zycet002-fkimg * it_zycit247-tolling.

          CLEAR v_valor_imp.

          v_valor_imp = it_zycit279-valor.

          PERFORM valor_converte_imp USING   'BRL'

                                             'USD'

                                             it_apr_final-dtreg

                                    CHANGING v_valor_imp.

          it_apr_final-imp_s_cob_camb =

              it_apr_final-qtd_mimp  * v_valor_imp.

        ELSE.

          SELECT vbeln netpr FROM vbap

            INTO TABLE it_vbap

            WHERE vbeln EQ it_apr_final-vbeln_va.

          READ TABLE it_vbap WITH KEY vbeln = it_apr_final-vbeln_va.

          IF sy-subrc EQ 0.

            it_apr_final-exp_c_cob_camb =

                it_apr_final-qtd_mexp * it_vbap-netpr.

          ENDIF.

        ENDIF.

*PWS243757 - Fim ------------------------------------------------------

*PWS245742 - Início ----------------------------------------------------

        SELECT * FROM /pws/zycit439

               WHERE insumo EQ it_apr_final-matnr_imp

                 AND matnr  EQ it_zycet002-matnr.

        ENDSELECT.

        IF sy-subrc EQ 0.

          IF /pws/zycit439-dtde > sy-datum AND

             /pws/zycit439-dtate <= sy-datum.

            it_apr_final-perda = /pws/zycit439-perda.

            it_apr_final-qtd_perda =

            ( it_apr_final-qtd_mimp * it_apr_final-perda ) / 100.

          ELSE.

            READ TABLE it_zycit245 WITH KEY

                                   nrseqd  = it_apr_final-nrseqd

                                   codcomp = it_apr_final-matnr_imp.

            IF sy-subrc EQ 0.

              it_apr_final-perda = it_zycit245-perda.

              it_apr_final-qtd_perda =

              ( it_apr_final-qtd_mimp * it_apr_final-perda ) / 100.

            ENDIF.

          ENDIF.

        ELSE.

          READ TABLE it_zycit245 WITH KEY nrseqd = it_apr_final-nrseqd.

          IF sy-subrc EQ 0.

            it_apr_final-perda = it_zycit245-perda.

            it_apr_final-qtd_perda =

            ( it_apr_final-qtd_mimp * it_apr_final-perda ) / 100.

          ENDIF.

        ENDIF.

*PWS245742 - Fim -------------------------------------------------------

        CLEAR it_apr_final_aux.

        MOVE-CORRESPONDING it_apr_final TO it_apr_final_aux.

        APPEND it_apr_final_aux.

        APPEND it_apr_final.

        it_zycit279-slqtde = it_zycit279-slqtde - v_bxreceb.

        IF it_zycit279-slqtde <= 0.

          it_zycit279-esgotado = 'X'.

        ENDIF.

        MODIFY it_zycit279.

*       Atualiza a tabela de importações realizadas e seus saldos.

        READ TABLE it_zycit279_save WITH KEY

                                    nrseq  = it_zycit279-nrseq

                                    ebeln  = it_zycit279-ebeln

                                    ebelp  = it_zycit279-ebelp

                                    nrseqd = it_zycit279-nrseqd

                                    matnr  = it_zycit279-matnr.

        IF sy-subrc NE 0.

          CLEAR it_zycit279_save.

          MOVE-CORRESPONDING it_zycit279 TO it_zycit279_save.

          APPEND it_zycit279_save.

        ELSE.

          it_zycit279_save-slqtde =

                                  it_zycit279_save-slqtde - v_bxreceb.

          IF it_zycit279_save-slqtde <= 0.

            it_zycit279_save-esgotado = 'X'.

          ENDIF.

          MODIFY it_zycit279_save TRANSPORTING slqtde esgotado

                                    WHERE nrseq  = it_zycit279-nrseq

                                      AND ebeln  = it_zycit279-ebeln

                                      AND ebelp  = it_zycit279-ebelp

                                      AND nrseqd = it_zycit279-nrseqd

                                      AND matnr  = it_zycit279-matnr.

        ENDIF.

      ENDIF.

    ENDLOOP.

    CLEAR it_zycit283.

    MOVE: it_zycet002-nrseq    TO it_zycit283-nrseqexp,

          it_zycet002-vbeln_va TO it_zycit283-vbeln_va,

          it_zycet002-aupos    TO it_zycit283-aupos   ,

          it_zycet002-vbeln_vf TO it_zycit283-vbeln_vf,

          it_zycet002-posnr    TO it_zycit283-posnr   ,

          it_zycet002-docnum   TO it_zycit283-docnum  ,

          it_zycet002-vbeln_vl TO it_zycit283-vbeln_vl,

          it_zycet002-posnl    TO it_zycit283-posnl   ,

          it_zycet002-ebeln    TO it_zycit283-eebeln  ,

          it_zycet002-ebelp    TO it_zycit283-eebelp  ,

          it_zycit247-codmat   TO it_zycit283-matnr   ,

          it_zycit247-nrseqd   TO it_zycit283-nrseqd  ,

          it_zycit247-meins    TO it_zycit283-meins   ,

          v_bxatoc             TO it_zycit283-qtd_apr .

    APPEND it_zycit283.

    it_zycit247-sdomat_e = it_zycit247-sdomat_e - v_bxatoc.

    IF it_zycit247-sdomat_e <= 0.

      it_zycit247-esgotado = 'X'.

    ENDIF.

    MODIFY it_zycit247.

*   Atualiza a tabela de exportações e seus saldos.

    READ TABLE it_zycit247_save WITH KEY

                                      nrseqd = it_zycit247-nrseqd

                                      codmat = it_zycit247-codmat

                                      werks  = it_zycit247-werks

                                      stlan  = it_zycit247-stlan

                                      stlnr  = it_zycit247-stlnr

                                      stlal  = it_zycit247-stlal.

    IF sy-subrc NE 0.

      CLEAR it_zycit247_save.

      MOVE-CORRESPONDING it_zycit247 TO it_zycit247_save.

      APPEND it_zycit247_save.

    ELSE.

      it_zycit247_save-sdomat_e =

                                 it_zycit247_save-sdomat_e - v_bxatoc.

      IF it_zycit247_save-sdomat_e <= 0.

        it_zycit247_save-esgotado = 'X'.

      ENDIF.

      MODIFY it_zycit247_save TRANSPORTING sdomat_e esgotado

                              WHERE nrseqd  = it_zycit247-nrseqd

                                AND codmat  = it_zycit247-codmat

                                AND werks   = it_zycit247-werks

                                AND stlan   = it_zycit247-stlan

                                AND stlnr   = it_zycit247-stlnr

                                AND stlal   = it_zycit247-stlal.

    ENDIF.

    p_qtdaprop = p_qtdaprop + v_bxatoc.

  ELSE.

*   Atualiza Log de Erro.

    IF v_menorpct <= 0.

      CLEAR: v_errolog, it_log_erro.

      CONCATENATE text-017 it_zycet002-matnr text-018

                                    INTO v_errolog SEPARATED BY space.

      MOVE v_errolog TO it_log_erro.

      APPEND it_log_erro.

    ENDIF.

  ENDIF.

ENDFORM. " appropriate_tg

*&---------------------------------------------------------------------*

*& Form get_pct_tg                                                     *

*&---------------------------------------------------------------------*

FORM get_pct_tg USING    p_qtdtmp

                         p_qtdebase

                CHANGING p_menorpct.

  DATA: p_pct_aux TYPE p DECIMALS 5.

  LOOP AT it_zycit279 WHERE nrseqd = it_zycit247-nrseqd.

    READ TABLE it_stpox WITH KEY idnrk = it_zycit279-matnr.

    IF sy-subrc EQ 0.

      p_pct_aux =

        ( it_zycit279-slqtde / ( p_qtdtmp *

                             ( it_stpox-mngko2 / p_qtdebase ) ) ) * 100.

      IF p_pct_aux < p_menorpct OR p_menorpct IS INITIAL.

        p_menorpct = p_pct_aux.

      ENDIF.

    ENDIF.

  ENDLOOP.

  IF p_menorpct > 100.

    p_menorpct = 100.

  ENDIF.

ENDFORM. " get_pct_tg

*&---------------------------------------------------------------------*

*& Form appropriate_tng_mod                                            *

*&---------------------------------------------------------------------*

FORM appropriate_tng_mod CHANGING p_qtdaprop

                                  p_qtdebase

                                  p_error

                                  p_pctapr.

  DATA: v_allcomp(1) TYPE c                ,

        v_totit      TYPE i                ,

        v_totit_tmp  TYPE i                ,

        v_qtdtmp     LIKE /pws/zycet002-fkimg   ,

        v_apcomp(1)  TYPE c                ,

        v_bxreceb    LIKE /pws/zycit279-slqtde  ,

        v_bxatoc     LIKE /pws/zycit247-sdomat_e,

        v_bxatoc_tmp LIKE /pws/zycit247-sdomat_e,

        v_valor_imp  LIKE /pws/zycit282-imp_s_cob_camb,

        v_dttax      LIKE sy-datum.

* Apura a quantidade a ser usada do Ato concessório para os cálculos.

  IF it_zycit247-sdomat_e >= it_zycet002-fkimg.

    v_qtdtmp = it_zycet002-fkimg.

  ELSE.

    v_qtdtmp = it_zycit247-sdomat_e.

  ENDIF.

  IF v_qtdtmp > p_qtdaprop.

    v_qtdtmp = v_qtdtmp - p_qtdaprop.

  ELSE.

    v_qtdtmp = p_qtdaprop - v_qtdtmp.

  ENDIF.

  CLEAR: v_allcomp, v_totit, v_totit_tmp.

* Verifica se todos os componentes do ato foram recebidos efetivamente

  PERFORM verify_receive_all_components CHANGING v_allcomp v_totit.

  IF p_pctapr > 0 AND v_allcomp EQ 'S'.

    v_bxatoc  = ( v_qtdtmp * p_pctapr ) / 100.

*   Se o que for apropriado deste ato for maior do que a quantidade a

*   ser exportada, vai para o próximo ato.

    v_bxatoc_tmp = ( p_qtdaprop + v_bxatoc ).

    IF v_bxatoc_tmp > v_qtdbx.

      p_error = 'S'.

      EXIT.

    ENDIF.

    CLEAR: v_apcomp.

    CLEAR it_apr_final_aux. REFRESH it_apr_final_aux.

    LOOP AT it_zycit279 WHERE nrseqd   = it_zycit247-nrseqd

                          AND esgotado = ' '.

      READ TABLE it_zycit245 WITH KEY codcomp = it_zycit279-matnr

                                      nrseqd  = it_zycit279-nrseqd.

      IF sy-subrc EQ 0.

        READ TABLE it_stpox WITH KEY idnrk = it_zycit279-matnr.

        IF sy-subrc EQ 0.

          v_bxreceb =

          ( ( v_qtdtmp * ( it_stpox-mngko2 / p_qtdebase ) ) *

                                                       p_pctapr ) / 100.

*         Verifica se o item recebido tem saldo suficiente. Caso não

*         tenha, vai para o próximo item do recebimento.

          IF it_zycit279-slqtde < v_bxreceb.

            CONTINUE.

          ENDIF.

*         Apura o total de itens apropriados para confrontar com o que

*         foi recebido totalmente.

          v_totit_tmp = v_totit_tmp + 1.

          CLEAR it_apr_final.

          MOVE: it_zycet002-nrseq    TO it_apr_final-nrseqexp ,

                it_zycet002-vbeln_va TO it_apr_final-vbeln_va ,

                it_zycet002-aupos    TO it_apr_final-aupos    ,

                it_zycet002-vbeln_vf TO it_apr_final-vbeln_vf ,

                it_zycet002-posnr    TO it_apr_final-posnr    ,

                it_zycet002-docnum   TO it_apr_final-docnum   ,

                it_zycet002-vbeln_vl TO it_apr_final-vbeln_vl ,

                it_zycet002-posnl    TO it_apr_final-posnl    ,

                it_zycet002-ebeln    TO it_apr_final-eebeln   ,

                it_zycet002-ebelp    TO it_apr_final-eebelp   ,

               it_zycet002-steuc    TO it_apr_final-j_1bnbmexp,

                it_zycit279-nrseq    TO it_apr_final-nrseqimp ,

                it_zycit279-ebeln    TO it_apr_final-ebeln    ,

                it_zycit279-ebelp    TO it_apr_final-ebelp    ,

                it_zycit279-nrseqd   TO it_apr_final-nrseqd   ,

                it_zycet002-matnr    TO it_apr_final-matnr_exp,

                it_zycet002-vrkme    TO it_apr_final-meins_e  ,

                it_zycet002-fkimg    TO it_apr_final-qtd_eorg ,

                v_bxatoc             TO it_apr_final-qtd_mexp ,

                it_zycit279-matnr    TO it_apr_final-matnr_imp,

                it_zycit279-meins    TO it_apr_final-meins_i  ,

                v_bxreceb            TO it_apr_final-qtd_mimp .

          it_apr_final-qtd_iorg =

                        ( v_qtdtmp * ( it_stpox-mngko2 / p_qtdebase ) ).

*PWS243757 - Início ---------------------------------------------------

* Verifica o saldo para Export/Import C/S Cobertura Cambial.

          IF it_zycit244-importacao NE 'X'.

            it_apr_final-exp_c_cob_camb =

                it_zycet002-fkimg * it_zycit247-tolling.

            CLEAR v_valor_imp.

            v_valor_imp = it_zycit279-valor.

            PERFORM valor_converte_imp USING   'BRL'

                                               'USD'

                                               v_dttax

                                      CHANGING v_valor_imp.

            it_apr_final-imp_s_cob_camb =

                it_apr_final-qtd_mimp  * v_valor_imp.

          ELSE.

            SELECT vbeln netpr FROM vbap

              INTO TABLE it_vbap

              WHERE vbeln EQ it_apr_final-vbeln_va.

            READ TABLE it_vbap WITH KEY vbeln = it_apr_final-vbeln_va.

            IF sy-subrc EQ 0.

              it_apr_final-exp_c_cob_camb =

                  it_apr_final-qtd_mexp * it_vbap-netpr.

            ENDIF.

          ENDIF.

*PWS243757 - Fim ------------------------------------------------------

*PWS245742 - Início ----------------------------------------------------

          SELECT * FROM /pws/zycit439

                 WHERE insumo EQ it_apr_final-matnr_imp

                   AND matnr  EQ it_zycet002-matnr.

          ENDSELECT.

          IF sy-subrc EQ 0.

            it_apr_final-perda = /pws/zycit439-perda.

            it_apr_final-qtd_perda =

            ( it_apr_final-qtd_mimp * it_apr_final-perda ) / 100.

          ELSE.

            READ TABLE it_zycit245 WITH KEY

                                   nrseqd  = it_apr_final-nrseqd

                                   codcomp = it_apr_final-matnr_imp.

            IF sy-subrc EQ 0.

              it_apr_final-perda = it_zycit245-perda.

              it_apr_final-qtd_perda =

              ( it_apr_final-qtd_mimp * it_apr_final-perda ) / 100.

            ENDIF.

          ENDIF.

*PWS245742 - Fim -------------------------------------------------------

          CLEAR it_apr_final_aux.

          MOVE-CORRESPONDING it_apr_final TO it_apr_final_aux.

          APPEND it_apr_final_aux.

          APPEND it_apr_final.

          it_zycit279-slqtde = it_zycit279-slqtde - v_bxreceb.

          IF it_zycit279-slqtde <= 0.

            it_zycit279-esgotado = 'X'.

          ENDIF.

          MODIFY it_zycit279.

*         Atualiza a tabela de importações realizadas e seus saldos.

          READ TABLE it_zycit279_save WITH KEY

                                      nrseq  = it_zycit279-nrseq

                                      ebeln  = it_zycit279-ebeln

                                      ebelp  = it_zycit279-ebelp

                                      nrseqd = it_zycit279-nrseqd

                                      matnr  = it_zycit279-matnr.

          IF sy-subrc NE 0.

            CLEAR it_zycit279_save.

            MOVE-CORRESPONDING it_zycit279 TO it_zycit279_save.

            APPEND it_zycit279_save.

          ELSE.

            it_zycit279_save-slqtde =

                                  it_zycit279_save-slqtde - v_bxreceb.

            IF it_zycit279_save-slqtde <= 0.

              it_zycit279_save-esgotado = 'X'.

            ENDIF.

            MODIFY it_zycit279_save TRANSPORTING slqtde esgotado

                                    WHERE nrseq  = it_zycit279-nrseq

                                      AND ebeln  = it_zycit279-ebeln

                                      AND ebelp  = it_zycit279-ebelp

                                      AND nrseqd = it_zycit279-nrseqd

                                      AND matnr  = it_zycit279-matnr.

          ENDIF.

          IF v_apcomp IS INITIAL.

            v_apcomp = 'S'.

          ENDIF.

        ENDIF.

      ENDIF.

    ENDLOOP.

*   Checa se foi efetuada as apropriações dos componentes.

    IF v_apcomp IS INITIAL.

      p_error = 'S'.

      EXIT.

    ELSE.

*     Estorna os componentes apropriados não salvando-os na tabela

*     transparente caso não tenha sido efetuada a apropriação de todos

*     os componentes do ato concessório em vigência.

      IF v_totit NE v_totit_tmp.

        LOOP AT it_apr_final_aux.

          LOOP AT it_zycit279 WHERE

                                  nrseq  = it_apr_final_aux-nrseqimp

                              AND ebeln  = it_apr_final_aux-ebeln

                              AND ebelp  = it_apr_final_aux-ebelp

                              AND nrseqd = it_apr_final_aux-nrseqd

                              AND matnr  = it_apr_final_aux-matnr_imp.

            it_zycit279-slqtde =

                           it_zycit279-slqtde + it_apr_final-qtd_mimp.

            IF it_zycit279-slqtde > 0.

              it_zycit279-esgotado = ' '.

            ENDIF.

            MODIFY it_zycit279.

            DELETE it_zycit279_save WHERE nrseq  = it_zycit279-nrseq

                                      AND ebeln  = it_zycit279-ebeln

                                      AND ebelp  = it_zycit279-ebelp

                                      AND nrseqd = it_zycit279-nrseqd

                                      AND matnr  = it_zycit279-matnr.

          ENDLOOP.

          DELETE it_apr_final WHERE

                                  nrseqexp = it_apr_final_aux-nrseqexp

                              AND vbeln_va = it_apr_final_aux-vbeln_va

                              AND aupos    = it_apr_final_aux-aupos

                              AND vbeln_vf = it_apr_final_aux-vbeln_vf

                              AND posnr    = it_apr_final_aux-posnr

                              AND docnum   = it_apr_final_aux-docnum

                              AND vbeln_vl = it_apr_final_aux-vbeln_vl

                              AND posnl    = it_apr_final_aux-posnl

                              AND eebeln   = it_apr_final_aux-eebeln

                              AND eebelp   = it_apr_final_aux-eebelp

                              AND nrseqimp = it_apr_final_aux-nrseqimp

                              AND ebeln    = it_apr_final_aux-ebeln

                              AND ebelp    = it_apr_final_aux-ebelp

                              AND nrseqd   = it_apr_final_aux-nrseqd.

        ENDLOOP.

        p_error = 'S'.

        EXIT.

      ENDIF.

    ENDIF.

    CLEAR it_zycit283.

    MOVE: it_zycet002-nrseq    TO it_zycit283-nrseqexp,

          it_zycet002-vbeln_va TO it_zycit283-vbeln_va,

          it_zycet002-aupos    TO it_zycit283-aupos   ,

          it_zycet002-vbeln_vf TO it_zycit283-vbeln_vf,

          it_zycet002-posnr    TO it_zycit283-posnr   ,

          it_zycet002-docnum   TO it_zycit283-docnum  ,

          it_zycet002-vbeln_vl TO it_zycit283-vbeln_vl,

          it_zycet002-posnl    TO it_zycit283-posnl   ,

          it_zycet002-ebeln    TO it_zycit283-eebeln  ,

          it_zycet002-ebelp    TO it_zycit283-eebelp  ,

          it_zycit247-nrseqd   TO it_zycit283-nrseqd  ,

          it_zycit247-meins    TO it_zycit283-meins   ,

          v_bxatoc             TO it_zycit283-qtd_apr .

    APPEND it_zycit283.

    it_zycit247-sdomat_e = it_zycit247-sdomat_e - v_bxatoc.

    IF it_zycit247-sdomat_e <= 0.

      it_zycit247-esgotado = 'X'.

    ENDIF.

    MODIFY it_zycit247.

*   Atualiza a tabela de exportações e seus saldos.

    READ TABLE it_zycit247_save WITH KEY

                                      nrseqd = it_zycit247-nrseqd

                                      codmat = it_zycit247-codmat

                                      werks  = it_zycit247-werks

                                      stlan  = it_zycit247-stlan

                                      stlnr  = it_zycit247-stlnr

                                      stlal  = it_zycit247-stlal.

    IF sy-subrc NE 0.

      CLEAR it_zycit247_save.

      MOVE-CORRESPONDING it_zycit247 TO it_zycit247_save.

      APPEND it_zycit247_save.

    ELSE.

      it_zycit247_save-sdomat_e =

                                 it_zycit247_save-sdomat_e - v_bxatoc.

      IF it_zycit247_save-sdomat_e <= 0.

        it_zycit247_save-esgotado = 'X'.

      ENDIF.

      MODIFY it_zycit247_save TRANSPORTING sdomat_e esgotado

                              WHERE nrseqd  = it_zycit247-nrseqd

                                AND codmat  = it_zycit247-codmat

                                AND werks   = it_zycit247-werks

                                AND stlan   = it_zycit247-stlan

                                AND stlnr   = it_zycit247-stlnr

                                AND stlal   = it_zycit247-stlal.

    ENDIF.

    p_qtdaprop = p_qtdaprop + v_bxatoc.

  ELSE.

*   Atualiza Log de Erro.

    IF p_pctapr <= 0.

      CLEAR: v_errolog, it_log_erro.

      CONCATENATE text-017 it_zycet002-matnr text-018

                                    INTO v_errolog SEPARATED BY space.

      MOVE v_errolog TO it_log_erro.

      APPEND it_log_erro.

    ELSEIF v_allcomp EQ 'N'.

      CLEAR: v_errolog, it_log_erro.

      CONCATENATE

       text-017 it_zycet002-matnr text-019 it_zycit247-nrseqd text-020

                                    INTO v_errolog SEPARATED BY space.

      MOVE v_errolog TO it_log_erro.

      APPEND it_log_erro.

    ENDIF.

  ENDIF.

ENDFORM. " appropriate_tng_mod

*&---------------------------------------------------------------------*

*& Form appropriate_tg_mod                                             *

*&---------------------------------------------------------------------*

FORM appropriate_tg_mod CHANGING p_qtdaprop

                                 p_qtdebase

                                 p_error

                                 p_pctapr.

  DATA: v_qtdtmp     LIKE /pws/zycet002-fkimg   ,

        v_bxreceb    LIKE /pws/zycit279-slqtde  ,

        v_bxatoc     LIKE /pws/zycit247-sdomat_e,

        v_bxatoc_tmp LIKE /pws/zycit247-sdomat_e.

* Apura a quantidade a ser usada do Ato concessório para os cálculos.

  IF it_zycit247-sdomat_e >= v_qtdbx.

    v_qtdtmp = v_qtdbx.

  ELSE.

    v_qtdtmp = it_zycit247-sdomat_e.

  ENDIF.

  IF v_qtdtmp > p_qtdaprop.

    v_qtdtmp = v_qtdtmp - p_qtdaprop.

  ELSE.

    v_qtdtmp = p_qtdaprop - v_qtdtmp.

  ENDIF.

  IF p_pctapr > 0.

    v_bxatoc = ( v_qtdtmp * p_pctapr ) / 100.

*   Se o que for apropriado deste ato for maior do que a quantidade a

*   ser exportada, vai para o próximo ato.

    v_bxatoc_tmp = ( p_qtdaprop + v_bxatoc ).

    IF v_bxatoc_tmp > v_qtdbx.

      p_error = 'S'.

      EXIT.

    ENDIF.

    CLEAR it_apr_final_aux. REFRESH it_apr_final_aux.

    LOOP AT it_zycit279 WHERE nrseqd   = it_zycit247-nrseqd

                          AND esgotado = ' '.

      READ TABLE it_stpox WITH KEY idnrk = it_zycit279-matnr.

      IF sy-subrc EQ 0.

        v_bxreceb = ( ( v_qtdtmp * ( it_stpox-mngko2 / p_qtdebase ) ) *

                                                       p_pctapr ) / 100.

*       Verifica se o item recebido tem saldo suficiente. Caso não

*       tenha, vai para o próximo item do recebimento.

        IF it_zycit279-slqtde < v_bxreceb.

          CONTINUE.

        ENDIF.

        CLEAR it_apr_final.

        MOVE: it_zycet002-nrseq    TO it_apr_final-nrseqexp ,

              it_zycet002-vbeln_va TO it_apr_final-vbeln_va ,

              it_zycet002-aupos    TO it_apr_final-aupos    ,

              it_zycet002-vbeln_vf TO it_apr_final-vbeln_vf ,

              it_zycet002-posnr    TO it_apr_final-posnr    ,

              it_zycet002-docnum   TO it_apr_final-docnum   ,

              it_zycet002-vbeln_vl TO it_apr_final-vbeln_vl ,

              it_zycet002-posnl    TO it_apr_final-posnl    ,

              it_zycet002-ebeln    TO it_apr_final-eebeln   ,

              it_zycet002-ebelp    TO it_apr_final-eebelp   ,

             it_zycet002-steuc    TO it_apr_final-j_1bnbmexp,

              it_zycit279-nrseq    TO it_apr_final-nrseqimp ,

              it_zycit279-ebeln    TO it_apr_final-ebeln    ,

              it_zycit279-ebelp    TO it_apr_final-ebelp    ,

              it_zycit279-nrseqd   TO it_apr_final-nrseqd   ,

              it_zycet002-matnr    TO it_apr_final-matnr_exp,

              it_zycet002-vrkme    TO it_apr_final-meins_e  ,

              it_zycet002-fkimg    TO it_apr_final-qtd_eorg ,

              v_bxatoc             TO it_apr_final-qtd_mexp ,

              it_zycit279-matnr    TO it_apr_final-matnr_imp,

              it_zycit279-meins    TO it_apr_final-meins_i  ,

              v_bxreceb            TO it_apr_final-qtd_mimp .

        it_apr_final-qtd_iorg =

                        ( v_qtdtmp * ( it_stpox-mngko2 / p_qtdebase ) ).

*PWS243757 - Início ---------------------------------------------------

* Verifica o saldo para Export/Import C/S Cobertura Cambial.

        IF it_zycit244-importacao NE 'X'.

          it_apr_final-exp_c_cob_camb =

              it_zycet002-fkimg * it_zycit247-tolling.

          it_apr_final-imp_s_cob_camb =

              it_apr_final-qtd_mimp  * it_zycit279-valor.

        ELSE.

          SELECT vbeln netpr FROM vbap

            INTO TABLE it_vbap

            WHERE vbeln EQ it_apr_final-vbeln_va.

          READ TABLE it_vbap WITH KEY vbeln = it_apr_final-vbeln_va.

          IF sy-subrc EQ 0.

            it_apr_final-exp_c_cob_camb =

                it_apr_final-qtd_mexp * it_vbap-netpr.

          ENDIF.

        ENDIF.

*PWS243757 - Fim ------------------------------------------------------

*PWS245742 - Início ----------------------------------------------------

        SELECT * FROM /pws/zycit439

               WHERE insumo EQ it_apr_final-matnr_imp

                 AND matnr  EQ it_zycet002-matnr.

        ENDSELECT.

        IF sy-subrc EQ 0.

          it_apr_final-perda = /pws/zycit439-perda.

          it_apr_final-qtd_perda =

          ( it_apr_final-qtd_mimp * it_apr_final-perda ) / 100.

        ELSE.

          READ TABLE it_zycit245 WITH KEY

                                 nrseqd  = it_apr_final-nrseqd

                                 codcomp = it_apr_final-matnr_imp.

          IF sy-subrc EQ 0.

            it_apr_final-perda = it_zycit245-perda.

            it_apr_final-qtd_perda =

            ( it_apr_final-qtd_mimp * it_apr_final-perda ) / 100.

          ENDIF.

        ENDIF.

*PWS245742 - Fim -------------------------------------------------------

        CLEAR it_apr_final_aux.

        MOVE-CORRESPONDING it_apr_final TO it_apr_final_aux.

        APPEND it_apr_final_aux.

        APPEND it_apr_final.

        it_zycit279-slqtde = it_zycit279-slqtde - v_bxreceb.

        IF it_zycit279-slqtde <= 0.

          it_zycit279-esgotado = 'X'.

        ENDIF.

        MODIFY it_zycit279.

*       Atualiza a tabela de importações realizadas e seus saldos.

        READ TABLE it_zycit279_save WITH KEY

                                    nrseq  = it_zycit279-nrseq

                                    ebeln  = it_zycit279-ebeln

                                    ebelp  = it_zycit279-ebelp

                                    nrseqd = it_zycit279-nrseqd

                                    matnr  = it_zycit279-matnr.

        IF sy-subrc NE 0.

          CLEAR it_zycit279_save.

          MOVE-CORRESPONDING it_zycit279 TO it_zycit279_save.

          APPEND it_zycit279_save.

        ELSE.

          it_zycit279_save-slqtde =

                                  it_zycit279_save-slqtde - v_bxreceb.

          IF it_zycit279_save-slqtde <= 0.

            it_zycit279_save-esgotado = 'X'.

          ENDIF.

          MODIFY it_zycit279_save TRANSPORTING slqtde esgotado

                                    WHERE nrseq  = it_zycit279-nrseq

                                      AND ebeln  = it_zycit279-ebeln

                                      AND ebelp  = it_zycit279-ebelp

                                      AND nrseqd = it_zycit279-nrseqd

                                      AND matnr  = it_zycit279-matnr.

        ENDIF.

      ENDIF.

    ENDLOOP.

    CLEAR it_zycit283.

    MOVE: it_zycet002-nrseq    TO it_zycit283-nrseqexp,

          it_zycet002-vbeln_va TO it_zycit283-vbeln_va,

          it_zycet002-aupos    TO it_zycit283-aupos   ,

          it_zycet002-vbeln_vf TO it_zycit283-vbeln_vf,

          it_zycet002-posnr    TO it_zycit283-posnr   ,

          it_zycet002-docnum   TO it_zycit283-docnum  ,

          it_zycet002-vbeln_vl TO it_zycit283-vbeln_vl,

          it_zycet002-posnl    TO it_zycit283-posnl   ,

          it_zycet002-ebeln    TO it_zycit283-eebeln  ,

          it_zycet002-ebelp    TO it_zycit283-eebelp  ,

          it_zycit247-nrseqd   TO it_zycit283-nrseqd  ,

          it_zycit247-meins    TO it_zycit283-meins   ,

          v_bxatoc             TO it_zycit283-qtd_apr .

    APPEND it_zycit283.

    it_zycit247-sdomat_e = it_zycit247-sdomat_e - v_bxatoc.

    IF it_zycit247-sdomat_e <= 0.

      it_zycit247-esgotado = 'X'.

    ENDIF.

    MODIFY it_zycit247.

*   Atualiza a tabela de exportações e seus saldos.

    READ TABLE it_zycit247_save WITH KEY

                                      nrseqd = it_zycit247-nrseqd

                                      codmat = it_zycit247-codmat

                                      werks  = it_zycit247-werks

                                      stlan  = it_zycit247-stlan

                                      stlnr  = it_zycit247-stlnr

                                      stlal  = it_zycit247-stlal.

    IF sy-subrc NE 0.

      CLEAR it_zycit247_save.

      MOVE-CORRESPONDING it_zycit247 TO it_zycit247_save.

      APPEND it_zycit247_save.

    ELSE.

      it_zycit247_save-sdomat_e =

                                 it_zycit247_save-sdomat_e - v_bxatoc.

      IF it_zycit247_save-sdomat_e <= 0.

        it_zycit247_save-esgotado = 'X'.

      ENDIF.

      MODIFY it_zycit247_save TRANSPORTING sdomat_e esgotado

                              WHERE nrseqd  = it_zycit247-nrseqd

                                AND codmat  = it_zycit247-codmat

                                AND werks   = it_zycit247-werks

                                AND stlan   = it_zycit247-stlan

                                AND stlnr   = it_zycit247-stlnr

                                AND stlal   = it_zycit247-stlal.

    ENDIF.

    p_qtdaprop = p_qtdaprop + v_bxatoc.

  ELSE.

*   Atualiza Log de Erro.

    IF p_pctapr <= 0.

      CLEAR: v_errolog, it_log_erro.

      CONCATENATE text-017 it_zycet002-matnr text-018

                                    INTO v_errolog SEPARATED BY space.

      MOVE v_errolog TO it_log_erro.

      APPEND it_log_erro.

    ENDIF.

  ENDIF.

ENDFORM. " appropriate_tg_mod

*&---------------------------------------------------------------------*

*& Form reverse_appropriation_mod                                      *

*&---------------------------------------------------------------------*

FORM reverse_appropriation_mod.

  LOOP AT it_apr_final WHERE nrseqexp  = it_zycet002-nrseq

                         AND vbeln_va  = it_zycet002-vbeln_va

                         AND aupos     = it_zycet002-aupos

                         AND vbeln_vf  = it_zycet002-vbeln_vf

                         AND posnr     = it_zycet002-posnr

                         AND docnum    = it_zycet002-docnum

                         AND vbeln_vl  = it_zycet002-vbeln_vl

                         AND posnl     = it_zycet002-posnl

                         AND eebeln    = it_zycet002-ebeln

                         AND eebelp    = it_zycet002-ebelp

                         AND matnr_exp = it_zycet002-matnr.

    READ TABLE it_zycit279_save WITH KEY

                                      nrseq  = it_apr_final-nrseqimp

                                      ebeln  = it_apr_final-ebeln

                                      ebelp  = it_apr_final-ebelp

                                      nrseqd = it_apr_final-nrseqd

                                      matnr  = it_apr_final-matnr_imp.

    IF sy-subrc EQ 0.

      it_zycit279_save-slqtde =

                        it_zycit279_save-slqtde + it_apr_final-qtd_mimp.

      IF it_zycit279_save-slqtde > 0.

        it_zycit279_save-esgotado = ' '.

      ENDIF.

      MODIFY it_zycit279_save TRANSPORTING slqtde esgotado

                                  WHERE nrseq  = it_apr_final-nrseqimp

                                    AND ebeln  = it_apr_final-ebeln

                                    AND ebelp  = it_apr_final-ebelp

                                    AND nrseqd = it_apr_final-nrseqd

                                    AND matnr  = it_apr_final-matnr_imp.

    ENDIF.

    READ TABLE it_zycit279 WITH KEY nrseq  = it_apr_final-nrseqimp

                                    ebeln  = it_apr_final-ebeln

                                    ebelp  = it_apr_final-ebelp

                                    nrseqd = it_apr_final-nrseqd

                                    matnr  = it_apr_final-matnr_imp.

    IF sy-subrc EQ 0.

      it_zycit279-slqtde = it_zycit279-slqtde + it_apr_final-qtd_mimp.

      IF it_zycit279-slqtde > 0.

        it_zycit279-esgotado = ' '.

      ENDIF.

      MODIFY it_zycit279 TRANSPORTING slqtde esgotado

                                WHERE nrseq  = it_apr_final-nrseqimp

                                  AND ebeln  = it_apr_final-ebeln

                                  AND ebelp  = it_apr_final-ebelp

                                  AND nrseqd = it_apr_final-nrseqd

                                  AND matnr  = it_apr_final-matnr_imp.

    ENDIF.

    DELETE it_apr WHERE nrseqexp = it_apr_final-nrseqexp

                    AND vbeln_va = it_apr_final-vbeln_va

                    AND aupos    = it_apr_final-aupos

                    AND vbeln_vf = it_apr_final-vbeln_vf

                    AND posnr    = it_apr_final-posnr

                    AND docnum   = it_apr_final-docnum

                    AND vbeln_vl = it_apr_final-vbeln_vl

                    AND posnl    = it_apr_final-posnl

                    AND eebeln   = it_apr_final-eebeln

                    AND eebelp   = it_apr_final-eebelp

                    AND nrseqimp = it_apr_final-nrseqimp

                    AND ebeln    = it_apr_final-ebeln

                    AND ebelp    = it_apr_final-ebelp

                    AND nrseqd   = it_apr_final-nrseqd.

    DELETE it_apr_final.

  ENDLOOP.

  LOOP AT it_zycit283 WHERE nrseqexp = it_zycet002-nrseq

                        AND vbeln_va = it_zycet002-vbeln_va

                        AND aupos    = it_zycet002-aupos

                        AND vbeln_vf = it_zycet002-vbeln_vf

                        AND posnr    = it_zycet002-posnr

                        AND docnum   = it_zycet002-docnum

                        AND vbeln_vl = it_zycet002-vbeln_vl

                        AND posnl    = it_zycet002-posnl

                        AND eebeln   = it_zycet002-ebeln

                        AND eebelp   = it_zycet002-ebelp.

    READ TABLE it_zycit247_save WITH KEY

                                      nrseqd = it_zycit283-nrseqd

                                      codmat = it_zycit283-matnr.

    IF sy-subrc EQ 0.

      it_zycit247_save-sdomat_e =

                        it_zycit247_save-sdomat_e + it_zycit283-qtd_apr.

      IF it_zycit247_save-sdomat_e > 0.

        it_zycit247_save-esgotado = ' '.

      ENDIF.

      MODIFY it_zycit247_save TRANSPORTING sdomat_e esgotado

                              WHERE nrseqd  = it_zycit283-nrseqd

                                AND codmat  = it_zycit283-matnr.

    ENDIF.

    READ TABLE it_zycit247 WITH KEY nrseqd = it_zycit283-nrseqd

                                    codmat = it_zycit283-matnr.

    IF sy-subrc EQ 0.

      it_zycit247-sdomat_e = it_zycit247-sdomat_e + it_zycit283-qtd_apr.

      IF it_zycit247-sdomat_e > 0.

        it_zycit247-esgotado = ' '.

      ENDIF.

      MODIFY it_zycit247 TRANSPORTING sdomat_e esgotado

                                WHERE nrseqd  = it_zycit283-nrseqd

                                  AND codmat  = it_zycit283-matnr.

    ENDIF.

  ENDLOOP.

ENDFORM. " reverse_appropriation_mod

*&---------------------------------------------------------------------*

*& Form execute_process_desa                                           *

*&---------------------------------------------------------------------*

FORM execute_process_desa.

* Trata Ordem de Venda, Devoluções, Etc.

  PERFORM trata_ordem_venda.

* filtra somente as exportações com apropriações realizadas.

  PERFORM load_appropriatons.

* Posiciona a table control com as exportações na primeira linha.

  tc_exp_desa-top_line = 1.

* Chama a tela com as exportações selecionadas para executar as

* desapropriações.

*PWS251144 - Início ----------------------------------------------------

  IF v_exit = 'X'.

    EXIT.

  ENDIF.

*PWS251144 - Início ----------------------------------------------------

  IF it_zycet002_desa[] IS INITIAL.

    MESSAGE s015 WITH text-065.

  ELSE.

    CALL SCREEN 0004.

  ENDIF.

ENDFORM. " execute_process_desa

*&---------------------------------------------------------------------*

*& Form execute_desaprop_button_0004                                   *

*&---------------------------------------------------------------------*

FORM execute_desaprop_button_0004.

  DATA: BEGIN OF it_zycit282_aux OCCURS 0.

          INCLUDE STRUCTURE /pws/zycit282.

  DATA:  END OF it_zycit282_aux.

  DATA: v_status LIKE /pws/zycit244-status.

* Checa se foi marcado uma linha da table control.

* Caso tenha alguma exportação marcada, prossegue com a desapro-

* priação.

  READ TABLE it_zycet002_desa WITH KEY mexp = 'X'.

  IF sy-subrc EQ 0.

*** PWS176335 - Inicio

* Se o Ato Concessório foi Encerrado, não permite a desapropriação.

    SELECT * FROM /pws/zycit282 INTO TABLE it_zycit282_aux

             WHERE nrseqexp = it_zycet002_desa-nrseq.

    READ TABLE it_zycit282_aux WITH KEY nrseqexp =

                                       it_zycet002_desa-nrseq.

    SELECT SINGLE status FROM /pws/zycit244 INTO v_status

           WHERE nrseqd = it_zycit282_aux-nrseqd.

    IF v_status NE 'E'.

*     Elimina as exportações não selecionadas.

      DELETE it_zycet002_desa WHERE mexp NE 'X'.

*     Retira o 'X' da marcação dos registros de exportação.

      LOOP AT it_zycet002_desa.

        it_zycet002_desa-mexp = ' '.

        MODIFY it_zycet002_desa.

      ENDLOOP.

*     Ordena a tabela interna de exportações.

      SORT it_zycet002_desa BY nrseq vbeln_va vbeln_vf posnr ASCENDING.

      PERFORM run_dispossession_exportation.

    ELSE.

      MESSAGE s015 WITH text-036 text-037.

    ENDIF.

  ELSE.

    MESSAGE s015 WITH text-002 text-024.

  ENDIF.

*** PWS176335 - Inicio

ENDFORM. " execute_desaprop_button_0004

*&---------------------------------------------------------------------*

*& Form load_appropriatons                                             *

*&---------------------------------------------------------------------*

FORM load_appropriatons.

  CLEAR: it_zycet002_desa,

         it_zycit247     ,

         it_zycit279     ,

         it_zycit282_des ,

         it_zycit283_des .

  REFRESH: it_zycet002_desa,

           it_zycit247     ,

           it_zycit279     ,

           it_zycit282_des ,

           it_zycit283_des .

* Seleciona as apropriações realizadas.

  IF NOT it_zycet002[] IS INITIAL.

    SELECT * FROM /pws/zycit282 INTO TABLE it_zycit282_des

           FOR ALL ENTRIES IN it_zycet002

           WHERE nrseqexp = it_zycet002-nrseq

             AND vbeln_va = it_zycet002-vbeln_va

             AND aupos    = it_zycet002-aupos

             AND vbeln_vl = it_zycet002-vbeln_vl

             AND posnl    = it_zycet002-posnl

             AND eebeln   = it_zycet002-ebeln

             AND eebelp   = it_zycet002-ebelp.

    IF NOT it_zycit282_des[] IS INITIAL.

*     seleciona os materiais do ato concessório.

      SELECT * FROM /pws/zycit247 INTO TABLE it_zycit247

             FOR ALL ENTRIES IN it_zycit282_des

             WHERE nrseqd = it_zycit282_des-nrseqd.

*     seleciona os recebimentos dos componentes.

      SELECT * FROM /pws/zycit279 INTO TABLE it_zycit279

             FOR ALL ENTRIES IN it_zycit282_des

             WHERE nrseq = it_zycit282_des-nrseqimp

               AND ebeln = it_zycit282_des-ebeln

               AND ebelp = it_zycit282_des-ebelp.

    ENDIF.

  ENDIF.

  CLEAR: v_exit.

  LOOP AT it_zycet002.

    READ TABLE it_zycit282_des WITH KEY nrseqexp = it_zycet002-nrseq

                                    vbeln_va = it_zycet002-vbeln_va

                                    aupos    = it_zycet002-aupos

                                    vbeln_vl = it_zycet002-vbeln_vl

                                    posnl    = it_zycet002-posnl

                                    eebeln   = it_zycet002-ebeln

                                    eebelp   = it_zycet002-ebelp.

    IF sy-subrc EQ 0.

      SELECT SINGLE * FROM /pws/zycit244

              WHERE nrseqd EQ it_zycit282_des-nrseqd.

      IF /pws/zycit244-tipo NE 'C'.

        v_exit = 'X'.

        MESSAGE s015 WITH text-068.

        EXIT.

      ENDIF.

      MOVE-CORRESPONDING it_zycet002 TO it_zycet002_desa.

      MOVE it_zycit282_des-qtd_mexp TO it_zycet002_desa-qtdapr.

      APPEND it_zycet002_desa.

    ENDIF.

  ENDLOOP.

ENDFORM. " load_appropriatons

*&---------------------------------------------------------------------*

*& Form run_dispossession_exportation                                  *

*&---------------------------------------------------------------------*

* Objetivo: Desapropriar materiais

*&---------------------------------------------------------------------*

* Parâmetros:   ( --> Entrada ) ( <-- Saída ) ( <-> Tabelas )

*&---------------------------------------------------------------------*

* --> <nonon-nonon>

* <-- <nonon-nonon>

* <-- <nonon-nonon>

* <-> <nonon-nonon>

*&---------------------------------------------------------------------*

* Chamado     Data            Descrição

*&---------------------------------------------------------------------*

* 233207      18/05/2005      Incluído consistencia para verificar se

*                             campo /PWS/ZYCEE116-NRRE está preenchido

*                             Caso estiver preenchido, não deixar

*                             desapropriar.

*&---------------------------------------------------------------------*

FORM run_dispossession_exportation.

  DATA: v_confirm(1) TYPE c,

        v_pct        TYPE i,

        v_cont       TYPE i.

  CALL FUNCTION 'POPUP_TO_CONFIRM'

       EXPORTING

          titlebar                    = text-006

*             DIAGNOSE_OBJECT             = ' '

          text_question               = text-025

          text_button_1               = text-008

*             ICON_BUTTON_1               = ' '

          text_button_2               = text-009

*             ICON_BUTTON_2               = ' '

          default_button              = '1'

          display_cancel_button       = 'X'

*             USERDEFINED_F1_HELP         = ' '

*             START_COLUMN                = 25

*             START_ROW                   = 6

*             POPUP_TYPE                  =

       IMPORTING

          answer                      = v_confirm

*          TABLES

*             PARAMETER                   =

       EXCEPTIONS

          text_not_found              = 1

          OTHERS                      = 2.

  IF v_confirm EQ '2' OR v_confirm EQ 'A'.

    EXIT.

  ELSE."Se RE(/PWS/ZYCEE116-NRRE) estiver preenchido não desapropriar.

    SELECT * FROM /pws/zycet117

     INTO TABLE itab_zycet117

      WHERE nrseq IN nrseqexp.

    IF sy-subrc EQ 0.

      LOOP AT itab_zycet117 WHERE nrre NE space.

        MESSAGE i015 WITH text-063 itab_zycet117-nrseqre '.' text-064.

      ENDLOOP.

      IF sy-subrc = 0.

        EXIT.

      ENDIF.

    ENDIF.

  ENDIF.

  CLEAR: it_zycit247_save,

         it_zycit279_save,

         it_zycit282_est ,

         it_zycit283_est .

  REFRESH: it_zycit247_save,

           it_zycit279_save,

           it_zycit282_est ,

           it_zycit283_est .

  DESCRIBE TABLE it_zycet002_desa LINES v_ilinhas.

  v_cont = 1.

  SORT it_zycet002_desa BY nrseq vbeln_va aupos vbeln_vl posnl.

  DELETE ADJACENT DUPLICATES FROM it_zycet002_desa COMPARING

        nrseq vbeln_va aupos vbeln_vl posnl.

  LOOP AT it_zycet002_desa.

*   Apura a porcentagem total executada e passa como parâmetro para

*   apresentar a ampulheta de execução.

    v_pct = ( 100 * v_cont ) / v_ilinhas.

    IF v_pct > 100.

      v_pct = 100.

    ENDIF.

    CLEAR it_zycet002.

    READ TABLE it_zycet002 WITH KEY

                         nrseq = it_zycet002_desa-nrseq

                         vbeln_va = it_zycet002_desa-vbeln_va

                         aupos    = it_zycet002_desa-aupos

*                              AND vbeln_vf = it_zycet002_desa-vbeln_vf

*                              AND posnr    = it_zycet002_desa-posnr

*                              AND docnum   = it_zycet002_desa-docnum

                         vbeln_vl = it_zycet002_desa-vbeln_vl

                         posnl    = it_zycet002_desa-posnl.

    IF sy-subrc NE 0.

      CONTINUE.

    ENDIF.

    PERFORM show_progress USING v_pct.

*   desapropria as importações (componentes) recebidos.

    LOOP AT it_zycit282_des WHERE nrseqexp = it_zycet002-nrseq

                              AND vbeln_va = it_zycet002-vbeln_va

                              AND aupos    = it_zycet002-aupos

*                              AND vbeln_vf = it_zycet002-vbeln_vf

*                              AND posnr    = it_zycet002-posnr

*                              AND docnum   = it_zycet002-docnum

                              AND vbeln_vl = it_zycet002-vbeln_vl

                              AND posnl    = it_zycet002-posnl

                              AND eebeln   = it_zycet002-ebeln

                              AND eebelp   = it_zycet002-ebelp.

      READ TABLE it_zycit279 WITH KEY

                                    nrseq  = it_zycit282_des-nrseqimp

                                    ebeln  = it_zycit282_des-ebeln

                                    ebelp  = it_zycit282_des-ebelp

                                    nrseqd = it_zycit282_des-nrseqd

                                    matnr  = it_zycit282_des-matnr_imp.

      IF sy-subrc EQ 0.

        it_zycit279-slqtde =

                          it_zycit279-slqtde + it_zycit282_des-qtd_mimp.

        IF it_zycit279-slqtde > it_zycit279-menge.

          it_zycit279-slqtde = it_zycit279-menge.

        ENDIF.

        IF it_zycit279-slqtde > 0.

          it_zycit279-esgotado = ' '.

        ENDIF.

        MODIFY it_zycit279 TRANSPORTING slqtde esgotado

                           WHERE nrseq  = it_zycit282_des-nrseqimp

                             AND ebeln  = it_zycit282_des-ebeln

                             AND ebelp  = it_zycit282_des-ebelp

                             AND nrseqd = it_zycit282_des-nrseqd

                             AND matnr  = it_zycit282_des-matnr_imp.

        READ TABLE it_zycit279_save WITH KEY

                                     nrseq  = it_zycit282_des-nrseqimp

                                     ebeln  = it_zycit282_des-ebeln

                                     ebelp  = it_zycit282_des-ebelp

                                     nrseqd = it_zycit282_des-nrseqd

                                     matnr  = it_zycit282_des-matnr_imp.

        IF sy-subrc EQ 0.

          it_zycit279_save-slqtde =

                     it_zycit279_save-slqtde + it_zycit282_des-qtd_mimp.

          IF it_zycit279_save-slqtde > it_zycit279_save-menge.

            it_zycit279_save-slqtde = it_zycit279_save-menge.

          ENDIF.

          IF it_zycit279_save-slqtde > 0.

            it_zycit279_save-esgotado = ' '.

          ENDIF.

          MODIFY it_zycit279_save

                               TRANSPORTING slqtde esgotado

                               WHERE nrseq  = it_zycit282_des-nrseqimp

                                 AND ebeln  = it_zycit282_des-ebeln

                                 AND ebelp  = it_zycit282_des-ebelp

                                 AND nrseqd = it_zycit282_des-nrseqd

                                 AND matnr  = it_zycit282_des-matnr_imp.

        ELSE.

          MOVE-CORRESPONDING it_zycit279 TO it_zycit279_save.

          APPEND it_zycit279_save.

        ENDIF.

        MOVE-CORRESPONDING it_zycit282_des TO it_zycit282_est.

        APPEND it_zycit282_est.

      ENDIF.

    ENDLOOP.

    v_cont = v_cont + 1.

  ENDLOOP.

** salva nas tabelas transparentes os novos saldos.

*  MODIFY /pws/zycit247 FROM TABLE it_zycit247_save.

  MODIFY /pws/zycit279 FROM TABLE it_zycit279_save.

* elimina as apropriações estornadas.

  DELETE /pws/zycit282 FROM TABLE it_zycit282_est.

  DELETE /pws/zycit283 FROM TABLE it_zycit283_est.

  SORT it_zycit282_est BY nrseqexp vbeln_va aupos vbeln_vl posnl

                      eebeln eebelp nrseqd.

  DELETE ADJACENT DUPLICATES FROM it_zycit282_est

        COMPARING nrseqexp vbeln_va aupos vbeln_vl posnl

                      eebeln eebelp nrseqd.

  LOOP AT it_zycit282_est.

******

    READ TABLE it_zycit247 WITH KEY nrseqd = it_zycit282_est-nrseqd

                                    nritem = it_zycit282_est-nritem.

    IF sy-subrc EQ 0.

      it_zycit247-sdomat_e = it_zycit247-sdomat_e +

                                             it_zycit282_est-qtd_mexp.

      IF it_zycit247-sdomat_e > it_zycit247-qtd_iten.

        it_zycit247-sdomat_e = it_zycit247-qtd_iten.

      ENDIF.

      IF it_zycit247-sdomat_e > 0.

        it_zycit247-esgotado = ' '.

      ENDIF.

      MODIFY it_zycit247 TRANSPORTING sdomat_e esgotado

                         WHERE nrseqd = it_zycit282_est-nrseqd

                           AND nritem = it_zycit282_est-nritem.

      READ TABLE it_zycit247_save WITH KEY

                                       nrseqd = it_zycit247-nrseqd

                                       nritem = it_zycit247-nritem.

      IF sy-subrc EQ 0.

        it_zycit247_save-sdomat_e = it_zycit247-sdomat_e.

        it_zycit247_save-esgotado = it_zycit247-esgotado.

        MODIFY it_zycit247_save TRANSPORTING sdomat_e esgotado

                                WHERE nrseqd = it_zycit247-nrseqd

                                  AND nritem = it_zycit247-nritem.

      ELSE.

        MOVE-CORRESPONDING it_zycit247 TO it_zycit247_save.

        APPEND it_zycit247_save.

      ENDIF.

*      MOVE-CORRESPONDING it_zycit283_des TO it_zycit283_est.

*      APPEND it_zycit283_est.

    ENDIF.

******

    UPDATE /pws/zycet002 SET staprop = ' '

                   WHERE nrseq    = it_zycit282_est-nrseqexp

                     AND vbeln_va = it_zycit282_est-vbeln_va

                     AND aupos    = it_zycit282_est-aupos

                     AND vbeln_vl = it_zycit282_est-vbeln_vl

                     AND posnl    = it_zycit282_est-posnl.

  ENDLOOP.

  MODIFY /pws/zycit247 FROM TABLE it_zycit247_save.

  COMMIT WORK.

  IF sy-subrc EQ 0.

    MESSAGE s015 WITH text-026.

    LEAVE TO SCREEN 0.

  ENDIF.

ENDFORM. " run_dispossession_exportation

*&---------------------------------------------------------------------*

*& Form show_progress                                                  *

*&---------------------------------------------------------------------*

FORM show_progress USING p_pct.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = p_pct

            text       = ''.

ENDFORM. " show_progress

*&---------------------------------------------------------------------*

*& Form lock_record_receb                                              *

*&---------------------------------------------------------------------*

FORM lock_record_receb.

  LOOP AT it_zycit279.

    CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIT279'

         EXPORTING

              nrseq          = it_zycit279-nrseq

              ebeln          = it_zycit279-ebeln

              ebelp          = it_zycit279-ebelp

         EXCEPTIONS

              foreign_lock   = 1

              system_failure = 2.

    CASE sy-subrc.

      WHEN 1.

*       Trata log erro (Não foi possível travar registro).

        CLEAR: v_errolog, it_log_erro.

        CONCATENATE text-027 it_zycit279-ebeln text-028

                    it_zycit279-ebelp text-029

                                      INTO v_errolog SEPARATED BY space.

        MOVE v_errolog TO it_log_erro.

        APPEND it_log_erro.

        DELETE it_zycit279.

      WHEN 2.

*       Trata log erro (Problemas no bloqueio do registro).

        CLEAR: v_errolog, it_log_erro.

        MOVE text-030 TO v_errolog.

        MOVE v_errolog TO it_log_erro.

        APPEND it_log_erro.

        DELETE it_zycit279.

    ENDCASE.

  ENDLOOP.

ENDFORM. " lock_record_receb

*&---------------------------------------------------------------------*

*& Form lock_record_ato                                                *

*&---------------------------------------------------------------------*

FORM lock_record_ato.

  LOOP AT it_zycit247.

    CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIT247'

         EXPORTING

              nrseqd         = it_zycit247-nrseqd

*              nritem         = it_zycit247-codmat

         EXCEPTIONS

              foreign_lock   = 1

              system_failure = 2.

    CASE sy-subrc.

      WHEN 1.

*       Trata log erro (Não foi possível travar registro).

        MESSAGE i013 WITH text-056 text-057 text-058.

        LEAVE PROGRAM.

      WHEN 2.

*       Trata log erro (Problemas no bloqueio do registro).

        CLEAR: v_errolog, it_log_erro.

        MOVE text-030 TO v_errolog.

        MOVE v_errolog TO it_log_erro.

        APPEND it_log_erro.

        DELETE it_zycit247.

    ENDCASE.

  ENDLOOP.

ENDFORM. " lock_record_ato

*&---------------------------------------------------------------------*

*& Form unlock_record_receb                                            *

*&---------------------------------------------------------------------*

FORM unlock_record_receb.

  LOOP AT it_zycit279.

    CALL FUNCTION '/PWS/ZYCI_DEQUEUE_ZYCIT279'

         EXPORTING

              nrseq = it_zycit279-nrseq

              ebeln = it_zycit279-ebeln

              ebelp = it_zycit279-ebelp.

  ENDLOOP.

ENDFORM. " unlock_record_receb

*&---------------------------------------------------------------------*

*& Form unlock_record_ato                                              *

*&---------------------------------------------------------------------*

FORM unlock_record_ato.

  LOOP AT it_zycit247.

    CALL FUNCTION '/PWS/ZYCI_DEQUEUE_ZYCIT247'

         EXPORTING

              nrseqd = it_zycit247-nrseqd.

*              codmat = it_zycit247-codmat.

  ENDLOOP.

ENDFORM.                    " unlock_record_ato

*&---------------------------------------------------------------------*

*&      Form  trata_ordem_venda

*&---------------------------------------------------------------------*

FORM trata_ordem_venda.

  DATA: nrseq LIKE /pws/zycee085-nrseq, " Sequencial de Agrupamento

        itab_zycit428 LIKE /pws/zycit428 OCCURS 0 WITH HEADER LINE.

  CLEAR itab_zycee085. REFRESH itab_zycee085.

*  SELECT * FROM /pws/zycit428 INTO TABLE itab_zycit428

*                                           WHERE export EQ 'X'.

  LOOP AT it_zycet002.

*Authority-check   Centro

    AUTHORITY-CHECK OBJECT 'C_PPBD'

                       ID 'AKTTYP' FIELD 'V'

          ID 'WERKS' FIELD it_zycet002-werks.

    IF sy-subrc NE 0.

      MESSAGE i015 WITH text-289 it_zycet002-werks.

      DELETE it_zycet002 WHERE werks EQ it_zycet002-werks.

      CONTINUE.

    ENDIF.

*Authority-check   Empresa

    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'

                          ID 'BUKRS' FIELD it_zycet002-bukrs "Empresa

                                      ID 'ACTVT' FIELD '01'.

    IF sy-subrc NE 0.

      MESSAGE i015 WITH text-291 it_zycet002-bukrs.

      DELETE it_zycet002 WHERE bukrs EQ it_zycet002-bukrs.

      CONTINUE.

    ENDIF.

    nrseq = nrseq + 1.

    itab_zycee085-nrseq = nrseq.

    SHIFT itab_zycee085-nrseq RIGHT DELETING TRAILING space.

    UNPACK  itab_zycee085-nrseq   TO itab_zycee085-nrseq.

    MOVE : it_zycet002-mandt    TO itab_zycee085-mandt,

           it_zycet002-vbeln_va TO itab_zycee085-vbeln_va,

           it_zycet002-vbeln_vf TO itab_zycee085-vbeln_vf,

           it_zycet002-vbeln_vl TO itab_zycee085-vbeln_vl,

           it_zycet002-posnl    TO itab_zycee085-posnl,

           it_zycet002-posnr    TO itab_zycee085-posnr,

           it_zycet002-aupos    TO itab_zycee085-aupos,

           it_zycet002-ntgew    TO itab_zycee085-ntgew,

           it_zycet002-brgew    TO itab_zycee085-brgew,

           it_zycet002-shkzg    TO itab_zycee085-shkzg,

           it_zycet002-nfnum    TO itab_zycee085-nfnum,

           it_zycet002-auart    TO itab_zycee085-auart,

           it_zycet002-fkart    TO itab_zycee085-fkart,

           it_zycet002-waers    TO itab_zycee085-waers,

           it_zycet002-gewei    TO itab_zycee085-gewei,

           it_zycet002-inco1    TO itab_zycee085-inco1,

           it_zycet002-fkimg    TO itab_zycee085-fkimg,

           it_zycet002-vrkme    TO itab_zycee085-vrkme,

           it_zycet002-vlme     TO itab_zycee085-vlme .

    APPEND itab_zycee085.

  ENDLOOP.

  EXPORT itab_zycee085 TO MEMORY ID 'ODOC'.

  CALL FUNCTION '/PWS/ZYCE_TRATA_ORDEM'

       TABLES

            t_saida = itab_saida.

  FREE MEMORY ID 'ODOC'.

  LOOP AT itab_saida WHERE vlme = space OR

                  ( ntgew = space AND brgew = space AND fkimg = space ).

    DELETE it_zycet002 WHERE vbeln_va = itab_saida-vbeln_va

                         AND vbeln_vf = itab_saida-vbeln_vf

                         AND vbeln_vl = itab_saida-vbeln_vl

                         AND posnl    = itab_saida-posnl

                         AND posnr    = itab_saida-posnr

                         AND aupos    = itab_saida-aupos.

    DELETE itab_saida.

  ENDLOOP.

ENDFORM. " trata_ordem_venda

*&---------------------------------------------------------------------*

*& Form check_minimum_selection                                        *

*&---------------------------------------------------------------------*

FORM check_minimum_selection CHANGING p_erro.

  IF nrseqexp[] IS INITIAL AND

     vbeln_va[] IS INITIAL AND

     aupos[]    IS INITIAL AND

     vbeln_vf[] IS INITIAL AND

     posnr[]    IS INITIAL AND

     docnum[]   IS INITIAL AND

     vbeln_vl[] IS INITIAL AND

     posnl[]    IS INITIAL AND

     eebeln[]   IS INITIAL AND

     eebelp[]   IS INITIAL AND

     matnr[]    IS INITIAL.

    p_erro = 'S'.

  ENDIF.

ENDFORM. " check_minimum_selection

*&---------------------------------------------------------------------*

*& Form check_field_selection                                          *

*&---------------------------------------------------------------------*

FORM check_field_selection.

  DATA: v_vbeln_va LIKE vbak-vbeln      ,

        v_vbeln_vf LIKE vbrp-vbeln      ,

        v_vbeln_vl LIKE vbrp-vbeln      ,

        v_docnum   LIKE /pws/zycet002-docnum ,

        i_ebeln    LIKE ekko-ebeln      ,

        v_nrseqdi  LIKE /pws/zycie085-nrseqdi,

        v_tpdi     LIKE /pws/zycie085-tpdi   .

  CLEAR: v_campo, v_valor.

  GET CURSOR FIELD v_campo VALUE v_valor.

  CASE v_campo.

    WHEN '/PWS/ZYCEE002-NRSEQ'.

*     Visualiza o Embarque de exportação.

      IF NOT v_valor IS INITIAL.

        SET PARAMETER ID '/PWS/ZYCEP001' FIELD v_valor.

        CALL TRANSACTION '/PWS/ZYCE003_E' AND SKIP FIRST SCREEN.

        CLEAR ok_code.

      ENDIF.

    WHEN '/PWS/ZYCEE002-VBELN_VA'.

*     Visualiza a Ordem de Venda de exportação.

      IF NOT v_valor IS INITIAL.    " Seleção Ordem de Venda

        v_vbeln_va = v_valor.

        SET PARAMETER ID 'AUN' FIELD v_vbeln_va.

        CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

        CLEAR ok_code.

      ENDIF.

    WHEN '/PWS/ZYCEE002-VBELN_VF'.

*     Visualiza Ordem de faturamento de exportação.

      IF NOT v_valor IS INITIAL.    " Seleção Ordem de Faturamento

        v_vbeln_vf = v_valor.

        SET PARAMETER ID 'VF' FIELD v_vbeln_vf.

        CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.

      ENDIF.

    WHEN '/PWS/ZYCEE002-VBELN_VL'.

*     Visualiza Ordem de Fornecimento de exportação.

      IF NOT v_valor IS INITIAL.    "Sel Fornecimento

        v_vbeln_vl = v_valor.

        SET PARAMETER ID 'VL' FIELD v_vbeln_vl.

        CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.

        CLEAR ok_code.

      ENDIF.

    WHEN '/PWS/ZYCEE002-DOCNUM'.

*     Visualiza o documento de venda.

      IF NOT v_valor IS INITIAL.    "Sel Doc. Venda

        v_docnum = v_valor.

        SET PARAMETER ID 'JEF' FIELD v_docnum.

        CALL TRANSACTION 'J1B3' AND SKIP FIRST SCREEN.

        CLEAR ok_code.

      ENDIF.

    WHEN '/PWS/ZYCIE282-EBELN'.

*     Visualiza o Doc. de Compra.

      IF NOT v_valor IS INITIAL.    "Sel Documento de Compra

        SELECT SINGLE ebeln FROM ekko INTO ekko

               WHERE ebeln = v_valor.

        IF sy-subrc EQ 0.

          i_ebeln = v_valor.

          SET PARAMETER ID 'BES' FIELD i_ebeln.

          CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

        ENDIF.

      ENDIF.

    WHEN '/PWS/ZYCIE282-NRSEQIMP'.

*     Visualiza o Embarque Importação.

      IF NOT v_valor IS INITIAL.    "Sel Embarque Importação

        SET PARAMETER ID '/PWS/ZYCIP001' FIELD v_valor.

        CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.

        CLEAR ok_code.

      ENDIF.

    WHEN '/PWS/ZYCIE282-NRSEQD'.

*     Visualiza o Ato Concessório.

      IF NOT v_valor IS INITIAL.

        SET PARAMETER ID '/PWS/ZYCIP435' FIELD v_valor.

        CALL TRANSACTION '/PWS/ZYCI040_E' AND SKIP FIRST SCREEN.

        CLEAR ok_code.

      ENDIF.

  ENDCASE.

ENDFORM. " check_field_selection

*&---------------------------------------------------------------------*

*& Form collect_materials                                              *

*&---------------------------------------------------------------------*

FORM collect_materials TABLES it_stpox  STRUCTURE it_stpox

                              it_stpox2 STRUCTURE it_stpox2

                              it_matcat STRUCTURE it_matcat.

  DATA: v_qtd LIKE it_stpox-mngko.

  SORT it_stpox  BY ttidx ASCENDING.

  SORT it_matcat BY index ASCENDING.

  LOOP AT it_stpox2.

    MOVE-CORRESPONDING it_stpox2 TO it_stpox.

    APPEND it_stpox.

  ENDLOOP.

  LOOP AT it_matcat WHERE index = 1.

    READ TABLE it_stpox WITH KEY idnrk = it_matcat-matnr.

    IF sy-subrc EQ 0.

      v_qtd     = it_stpox-mngko.

      LOOP AT it_stpox WHERE ttidx EQ it_matcat-index.

        CHECK it_stpox-mngko >= 0.

        it_stpox-mngko2 = it_stpox-mngko. " * v_qtd.

        MODIFY it_stpox.

      ENDLOOP.

    ENDIF.

  ENDLOOP.

  LOOP AT it_matcat WHERE index > 1.

    READ TABLE it_stpox WITH KEY idnrk = it_matcat-matnr.

    IF sy-subrc EQ 0.

      v_qtd     = it_stpox-mngko.

      LOOP AT it_stpox WHERE ttidx EQ it_matcat-index.

        CHECK it_stpox-mngko >= 0.

        it_stpox-mngko2 = it_stpox-mngko. " * v_qtd.

        MODIFY it_stpox.

      ENDLOOP.

      IF sy-subrc EQ 0.

        DELETE it_stpox WHERE idnrk EQ it_matcat-matnr.

      ENDIF.

    ENDIF.

  ENDLOOP.

  IF sy-subrc NE 0.

    LOOP AT it_stpox.

      MOVE it_stpox-mngko TO it_stpox-mngko2.

      MODIFY it_stpox.

    ENDLOOP.

  ELSE.

    LOOP AT it_matcat WHERE index = 1.

      LOOP AT it_stpox WHERE ttidx EQ it_matcat-index.

        CHECK it_stpox-mngko >= 0.

        it_stpox-mngko2 = it_stpox-mngko. " * v_qtd.

        MODIFY it_stpox.

      ENDLOOP.

    ENDLOOP.

  ENDIF.

  SORT it_stpox BY idnrk ASCENDING.

ENDFORM. " COLLECT_MATERIALS

*&---------------------------------------------------------------------*

*&      Form  converte_um_base

*&---------------------------------------------------------------------*

* Objetivo: Converte Unidade de Medida Base

*&---------------------------------------------------------------------*

* Parâmetros:   ( --> Entrada ) ( <-- Saída ) ( <-> Tabelas )

*&---------------------------------------------------------------------*

* --> P_MATNR

* <-- P_MEINS

* <-- P_QTD

* <-> <nonon-nonon>

*&---------------------------------------------------------------------*

* Chamado     Data            Descrição

*&---------------------------------------------------------------------*

* 232196      16/05/2005      Alterado a variavel do select(INTO)

*&---------------------------------------------------------------------*

FORM converte_um_base USING    p_matnr

                      CHANGING p_meins

                               p_qtd.

  DATA: v_um_rez TYPE i,

        v_meinsb LIKE marm-meinh,

        v_um_rez1 LIKE marm-umrez,

        v_um_ren1 LIKE marm-umren,

        v_um_ren TYPE i.

  DATA: v_conv1  TYPE /pws/zycit245-qtd_ncm,

        v_conv2  TYPE /pws/zycit245-qtd_ncm.

  SELECT SINGLE meins FROM mara INTO v_meinsb

      WHERE matnr EQ p_matnr.

  IF v_meinsb = p_meins.

    EXIT.

  ENDIF.

  CLEAR: v_um_rez, v_um_ren.

  v_conv1 = 1.

  CALL FUNCTION 'UNIT_CONVERSION_SIMPLE_OLD'

       EXPORTING

            input                = v_conv1

            no_type_check        = 'X'

            round_sign           = 'X'

            unit_in              = p_meins

            unit_out             = v_meinsb

       IMPORTING

            denominator          = v_um_ren

            numerator            = v_um_rez

            output               = v_conv2

       EXCEPTIONS

            conversion_not_found = 1

            division_by_zero     = 2

            input_invalid        = 3

            output_invalid       = 4

            overflow             = 5

            type_invalid         = 6

            units_missing        = 7

            unit_in_not_found    = 8

            unit_out_not_found   = 9

            OTHERS               = 10.

  IF sy-subrc <> 0.

    SELECT SINGLE umrez umren

             FROM marm INTO (v_um_rez1, v_um_ren1)

             WHERE matnr = p_matnr

             AND   meinh = p_meins.

    IF sy-subrc NE 0.

      MESSAGE i015 WITH text-061 p_meins text-062 p_matnr.

      CLEAR p_qtd.

      EXIT.

    ELSE.

      v_um_rez = v_um_rez1.

      v_um_ren = v_um_ren1.

    ENDIF.

  ENDIF.

  IF v_um_rez IS INITIAL

    OR v_um_ren IS INITIAL.

    EXIT.

  ENDIF.

  p_qtd = ( p_qtd / v_um_ren ) * v_um_rez.

  p_meins = v_meinsb.

ENDFORM.                    " converte_um_base

*&---------------------------------------------------------------------*

*&      Form  cob_camb

*&---------------------------------------------------------------------*

FORM cob_camb.

  LOOP AT it_apr_final WHERE nrseqexp EQ it_zycet002-nrseq

                         AND vbeln_va EQ it_zycet002-vbeln_va.

    IF "v_ebelp    ne it_apr_final-ebelp or

       v_exp_camb NE it_apr_final-exp_c_cob_camb.

      v_exp_camb = v_exp_camb + it_apr_final-exp_c_cob_camb.

    ENDIF.

    IF v_ebelp2  NE it_apr_final-ebelp OR

       v_imp_camb NE it_apr_final-imp_s_cob_camb.

      v_ebelp2   = it_apr_final-ebelp.

      v_imp_camb =  v_imp_camb + it_apr_final-imp_s_cob_camb.

    ENDIF.

  ENDLOOP.

ENDFORM.                    " cob_camb

*&---------------------------------------------------------------------*

*&      Form  valor_converte_imp

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*