CE PLUS - Nota 005264
Módulo: DRAWBACK
Funcionalidade: Request
Data/Hora da Publicação: 21/11/2007 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:16:51
Descrição da Nota: CODE INSPECTOR
Sintoma
Code Inspector: /PWS/SAPMZYCI068, /PWS/SAPMZYCI043, /PWS/SAPMZYCI052, /PWS/SAPMZYCI067,
/PWS/SAPMZYCI062, /PWS/SAPMZYCI065, /PWS/ZYCIR342, /PWS/ZYCIR330, /PWS/ZYCIR254,
/PWS/ZYCIR217,/PWS/ZYCIR325.
Solução
Code Inspector: /PWS/SAPMZYCI068, /PWS/SAPMZYCI043, /PWS/SAPMZYCI052, /PWS/SAPMZYCI067,
/PWS/SAPMZYCI062, /PWS/SAPMZYCI065, /PWS/ZYCIR342, /PWS/ZYCIR330, /PWS/ZYCIR254,
/PWS/ZYCIR217,/PWS/ZYCIR325.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05264 Data: 21/11/2007 Hora: 11:32:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05264
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00979 - 00001 - 6.0 - 00022 - CONVERSÃO DE UNIDADES QUE NÃO NECESSITAM SER CADASTRADAS
01373 - 00002 - 6.0 - 00023 - DESENVOLVIMENTO DA APROPRIAÇÃO/DESAP. COMUM/INTERMEDIARIO POR NCM
01960 - 00003 - 6.0 - 00024 - DESENVOLVIMENTO DO PROGRAMA INSUMOS ALTERNATIVOS
02501 - 00004 - 6.0 - 00025 - AJUSTE NO TRATAMENTO DE INSUMOS ALTERNATIVOS.
02618 - 00005 - 6.0 - 00025 - AJUSTADO TRATAMENTO DO INSUMO ALTERNATIVO
02798 - 00006 - 6.0 - 00026 - AJUSTE NO TRATAMENTO DE ENTRADA DE NOTA FISCAL COM E SEM ICMS.
03245 - 00007 - 6.0 - 00026 - VALOR FOB PARA VINCULAÇÃO DO PEDIDO DE ACORDO COM PARAMET. /PWS/Z
----------------------------------------------------------------------------------------------------
CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR /PWS/SAPMZYCI068 /PWS/SAPMZYCI043 /PWS/SAPMZYCI052
/PWS/SAPMZYCI067 /PWS/SAPMZYCI062 /PWS/SAPMZYCI065 /PWS/ZYCIR342
----------------------------------------------------------------------------------------------------
Objetos da nota:
RELE F6DK954714 20071121 095905 PWSCI
RELE F6DK954715 20071121 095857 PWSCI
REPS /PWS/MZYCI043F03
REPS /PWS/MZYCI052F01
REPS /PWS/MZYCI052I01
REPS /PWS/MZYCI062F01
REPS /PWS/MZYCI062O01
REPS /PWS/MZYCI065F01
REPS /PWS/MZYCI065I01
REPS /PWS/MZYCI067O01
REPS /PWS/MZYCI068F01
REPS /PWS/ZYCIR217F01
REPS /PWS/ZYCIR254F01
REPS /PWS/ZYCIR325F01
REPS /PWS/ZYCIR330O01
REPS /PWS/ZYCIR342F01
REPS /PWS/ZYCIR342O01
TABD /PWS/ZYCIE433
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK954714 20071121 095905 PWSCI
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK954715 20071121 095857 PWSCI
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI043F03
...
clear : itab_zycit285, /pws/zycie285.
free : itab_zycit285, /pws/zycie285.
refresh : itab_zycit285.
select * from /pws/zycit285 into table itab_zycit285
where tp_doc in s_tp_do
and nrseqd in s_nrseq
and uname in s_user
and stasis in s_stasi
and dtenvf in s_dtenvf
and dtlog in s_dtlog.
* >> Início da exclusão: FORM SELECIONAR_ITENS
select * from /pws/zycet184 into table itab_zycet184.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
select * from /pws/zycet184 into
table itab_zycet184."#EC CI_NOWHERE
* << Fim da inclusão
clear: sy-ucomm, okcode.
if sy-subrc = 0.
sort itab_zycit285 by tp_doc nrseqd.
call screen '0100'.
else.
message i015 with text-015 text-016.
endif.
endform.
form data_select.
clear : itab_zycit285,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI052F01
...
ENDIF.
/pws/zycie329-vltot_me = itab_zycit329-vltot_me.
/pws/zycie329-vluni_me = itab_zycit329-vluni_me.
ENDIF.
IF sy-subrc EQ 0 AND NOT v_tcode = '/PWS/ZYCI052_C'.
SELECT * FROM /pws/zycit330 INTO TABLE itab_zycit330
WHERE docnum = /pws/zycie329-docnum.
MOVE /pws/zycie329 TO wa_zycie329.
MOVE itab_zycit330[] TO itab_zycit330_aux[].
IF NOT itab_zycit330[] IS INITIAL.
* >> Início da exclusão: FORM SELECIONA_DADOS
SELECT * FROM /pws/zycit279 INTO TABLE itab_zycit279
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
SELECT * FROM /pws/zycit279 INTO
TABLE itab_zycit279 "#EC CI_NOFIRST
* << Fim da inclusão
FOR ALL ENTRIES IN itab_zycit330
WHERE ebeln = itab_zycit330-ebeln
AND ebelp = itab_zycit330-ebelp
AND docnum = itab_zycit330-docnum
AND buzei = itab_zycit330-buzei.
ENDIF.
ELSEIF sy-subrc EQ 0 AND v_tcode = '/PWS/ZYCI052_C'.
MESSAGE i017 WITH text-013.
LEAVE TO SCREEN 0001.
ELSEIF sy-subrc NE 0 AND v_tcode = '/PWS/ZYCI052_C'.
...
...
itab_zycit330-netpr TO /pws/zycit279-netpr ,
itab_zycit329-nfnum TO /pws/zycit279-nfnum ,
itab_zycit329-series TO /pws/zycit279-serie ,
itab_zycit329-docdat TO /pws/zycit279-dtnf ,
itab_zycit330-buzei TO /pws/zycit279-itmnum .
/pws/zycit279-um_base = /pws/zycit279-meins.
PERFORM converte_um_base USING /pws/zycit279-matnr
CHANGING /pws/zycit279-um_base
/pws/zycit279-qtd_iten.
DELETE FROM /pws/zycit279 WHERE docnum EQ itab_zycit330-docnum
* >> Início da exclusão: FORM SALVAR_DADOS
AND buzei EQ itab_zycit330-buzei.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
AND buzei EQ itab_zycit330-buzei."#EC CI_NOFIRST
* << Fim da inclusão
MODIFY /pws/zycit279 FROM /pws/zycit279.
APPEND /pws/zycit279 TO itab_zycit279.
CLEAR: itab_zycit330_des.
READ TABLE itab_zycit330_des WITH KEY
docnum = itab_zycit330-docnum
buzei = itab_zycit330-buzei .
IF sy-subrc EQ 0 AND
itab_zycit330_des-nrseqd EQ itab_zycit330-nrseqd.
CONTINUE.
ELSE.
...
...
ENDFORM.
FORM unlock_record.
CALL FUNCTION '/PWS/ZYCI_DEQUEUE_ZYCIT329'
EXPORTING
nrseq = /pws/zycie329-docnum.
ENDFORM.
FORM limpa_dados.
FREE: itab_zycit330, itab_zycit330_aux.
CLEAR: /pws/zycie329, wa_zycie329.
ENDFORM.
* >> Início da exclusão: FORM POPUP_MESSAGE
FORM popup_message USING value(p_textline1)
value(p_title).
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
FORM popup_message USING p_textline1
p_title.
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = p_textline1
titel = p_title
IMPORTING
answer = v_answer
EXCEPTIONS
OTHERS = 1.
ENDFORM.
...
...
IMPORTING
answer = v_answer.
IF v_answer = '1'.
IF NOT itab_zycit279[] IS INITIAL.
CLEAR itab_zycit245_des. REFRESH itab_zycit245_des.
SELECT * FROM /pws/zycit245 INTO TABLE itab_zycit245_des
FOR ALL ENTRIES IN itab_zycit279
WHERE nrseqd = itab_zycit279-nrseqd
AND j_1bnbm = itab_zycit279-j_1bnbm.
CLEAR itab_zycit282. REFRESH itab_zycit282.
* >> Início da exclusão: FORM EXCLUIR_REGISTRO
SELECT * FROM /pws/zycit282 INTO TABLE itab_zycit282
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_REGISTRO
SELECT * FROM /pws/zycit282 INTO
TABLE itab_zycit282 "#EC CI_NOFIRST
* << Fim da inclusão
FOR ALL ENTRIES IN itab_zycit279
WHERE nrseqimp = itab_zycit279-nrseq
AND ebeln = itab_zycit279-ebeln
AND ebelp = itab_zycit279-ebelp
AND docnumimp = itab_zycit279-docnum.
IF sy-subrc NE 0.
DELETE FROM /pws/zycit330 WHERE docnum = /pws/zycie329-docnum.
LOOP AT itab_zycit279.
* >> Início da exclusão: FORM EXCLUIR_REGISTRO
DELETE FROM /pws/zycit279 WHERE ebeln = itab_zycit279-ebeln
AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_REGISTRO
DELETE FROM /pws/zycit279 WHERE
ebeln = itab_zycit279-ebeln AND
* << Fim da inclusão
ebelp = itab_zycit279-ebelp AND
* >> Início da exclusão: FORM EXCLUIR_REGISTRO
docnum = itab_zycit279-docnum.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_REGISTRO
docnum = itab_zycit279-docnum. "#EC CI_NOFIRST
* << Fim da inclusão
READ TABLE itab_zycit245_des WITH KEY
nrseqd = itab_zycit279-nrseqd
j_1bnbm = itab_zycit279-j_1bnbm.
...
...
MESSAGE i013 WITH text-007 /pws/zycie329-docnum.
PERFORM limpa_dados.
COMMIT WORK.
LEAVE PROGRAM.
ELSE.
MESSAGE i013 WITH text-014 space text-015.
ENDIF.
ELSE.
DELETE FROM /pws/zycit330 WHERE docnum = /pws/zycie329-docnum.
LOOP AT itab_zycit279.
* >> Início da exclusão: FORM EXCLUIR_REGISTRO
DELETE FROM /pws/zycit279 WHERE ebeln = itab_zycit279-ebeln AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_REGISTRO
DELETE FROM /pws/zycit279 WHERE
ebeln = itab_zycit279-ebeln AND
* << Fim da inclusão
ebelp = itab_zycit279-ebelp AND
* >> Início da exclusão: FORM EXCLUIR_REGISTRO
docnum = itab_zycit279-docnum.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_REGISTRO
docnum = itab_zycit279-docnum. "#EC CI_NOFIRST
* << Fim da inclusão
ENDLOOP.
DELETE /pws/zycit329 FROM /pws/zycie329.
MESSAGE i013 WITH text-007 /pws/zycie329-docnum.
...
...
ekpo-gewei TO itab_zycit330-gewei,
ekpo-ntgew TO itab_zycit330-ntgew,
/pws/zycie329-waerk TO itab_zycit330-waerk.
MOVE: itab_rseg-buzei TO itab_zycit330-buzei,
itab_rseg-ebeln TO itab_zycit330-ebeln,
itab_rseg-ebelp TO itab_zycit330-ebelp.
IF /pws/zycit321-lote NE space.
REFRESH: itab_mseg.
CLEAR: itab_mseg.
SELECT mblnr mjahr zeile charg FROM mseg
* >> Início da exclusão: FORM CARREGA_DADOS
INTO TABLE itab_mseg
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS
INTO TABLE itab_mseg "#EC CI_NOFIELD
* << Fim da inclusão
WHERE ebeln = itab_rseg-ebeln
AND ebelp = itab_rseg-ebelp.
SORT itab_mseg DESCENDING BY mblnr.
READ TABLE itab_mseg INDEX 1.
IF /pws/zycit321-lote EQ '1'.
itab_zycit330-lote = itab_mseg-charg.
ELSE.
SELECT SINGLE licha FROM chvw INTO itab_zycit330-lote
WHERE mblnr = itab_mseg-mblnr
AND mjahr = itab_mseg-mjahr
...
...
MESSAGE i015 WITH text-289 j_1bnflin-werks.
LEAVE TO TRANSACTION sy-tcode.
ENDIF.
itab_zycit330-netwr = j_1bnflin-netwr.
IF /pws/zycie329-cicms IS INITIAL.
itab_zycit330-netpr = itab_zycit330-netwr / j_1bnflin-menge.
ELSE.
SELECT SINGLE j_1bnfstx~taxval
FROM ( j_1bnfstx INNER JOIN j_1baj
ON j_1bnfstx~taxtyp = j_1baj~taxtyp )
* >> Início da exclusão: FORM CARREGA_DADOS
INTO v_othbas
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS
INTO v_othbas "#EC CI_BUFFJOIN
* << Fim da inclusão
WHERE j_1bnfstx~docnum EQ j_1bnflin-docnum
AND j_1bnfstx~itmnum EQ j_1bnflin-itmnum
AND j_1baj~taxgrp EQ 'ICMS'.
itab_zycit330-netwr = itab_zycit330-netwr + v_othbas.
itab_zycit330-netpr = itab_zycit330-netwr / j_1bnflin-menge.
ENDIF.
APPEND itab_zycit330.
ENDLOOP.
ENDIF.
ENDIF.
...
...
DATA: v_icon(4) TYPE c VALUE '@5C@' .
CLEAR: ekko, j_1bnflin.
REFRESH: itab_zycit245, itab_zycit279_aux, itab_zycit244, itab_vinc.
SELECT SINGLE * FROM ekko
WHERE ebeln EQ itab_zycit330-ebeln.
SELECT SINGLE * FROM j_1bnflin
WHERE docnum EQ itab_zycit330-docnum
AND itmnum EQ itab_zycit330-buzei .
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit245 INTO TABLE itab_zycit245
* >> Início da exclusão: FORM VINCULA_ATO
WHERE tipo EQ 'F'
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULA_ATO
WHERE tipo EQ 'F' "#EC CI_NOFIELD
* << Fim da inclusão
AND j_1bnbm EQ itab_zycit330-ncm.
IF NOT itab_zycit245[] IS INITIAL.
SELECT * FROM /pws/zycit244 INTO TABLE itab_zycit244
FOR ALL ENTRIES IN itab_zycit245
WHERE nrseqd EQ itab_zycit245-nrseqd
AND status EQ 'D'
AND tipo EQ 'F'
AND cicms EQ /pws/zycie329-cicms
AND vcto_fn >= sy-datum
AND lifnr EQ ekko-lifnr.
IF NOT itab_zycit244[] IS INITIAL.
* >> Início da exclusão: FORM VINCULA_ATO
SELECT * FROM /pws/zycit279 INTO TABLE itab_zycit279_aux
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULA_ATO
SELECT * FROM /pws/zycit279 INTO
TABLE itab_zycit279_aux "#EC CI_NOFIRST
* << Fim da inclusão
FOR ALL ENTRIES IN itab_zycit244
WHERE nrseqd EQ itab_zycit244-nrseqd
AND matnr EQ j_1bnflin-matnr.
ENDIF.
ENDIF.
PERFORM converte_um_ncm USING j_1bnflin-matnr
CHANGING itab_zycit330-meins
j_1bnflin-werks
itab_zycit330-menge.
ENDIF.
...
...
CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm.
IF p_werks IS INITIAL.
CLEAR p_qtd.
EXIT.
ENDIF.
CLEAR v_cod_umncm.
SELECT SINGLE steuc FROM marc INTO v_j_1bnbm
WHERE matnr EQ p_matnr
AND werks EQ p_werks.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE land1 /pws/zum
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE land1 /pws/zum "#EC CI_GENBUFF
* << Fim da inclusão
FROM t604f INTO (v_codpais, v_cod_umncm)
WHERE steuc = v_j_1bnbm.
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE msehi
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE msehi "#EC CI_NOFIELD
* << Fim da inclusão
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-027 text-028 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
v_conv1 = 1.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE_OLD'
EXPORTING
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI052I01
...
MESSAGE i015 WITH text-023.
EXIT.
ENDIF.
PERFORM vincula_ato.
WHEN 'DESV'.
READ TABLE itab_zycit330 WITH KEY mark = 'X'.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-022.
EXIT.
ENDIF.
* >> Início da exclusão: MODULE USER_COMMAND_0100
SELECT SINGLE * FROM /pws/zycit282
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
SELECT SINGLE * FROM /pws/zycit282 "#EC CI_NOFIRST
* << Fim da inclusão
WHERE docnumimp EQ itab_zycit330-docnum.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-024.
EXIT.
ENDIF.
CLEAR itab_zycit330.
MODIFY itab_zycit330 TRANSPORTING nrseqd nratoc
WHERE mark EQ 'X'.
WHEN 'CLI'.
CLEAR: v_campo, v_valor, v_index.
GET CURSOR FIELD v_campo VALUE v_valor LINE v_index.
v_pos = tc_itens-top_line + v_index - 1.
IF v_campo = '/PWS/ZYCIE330-EBELN' AND NOT v_valor IS INITIAL.
READ TABLE itab_zycit330 INDEX v_pos.
SET PARAMETER ID 'BES' FIELD itab_zycit330-ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME23N'.
IF sy-subrc = 0.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ELSEIF v_campo = '/PWS/ZYCIE330-NRSEQD' AND NOT v_valor IS
INITIAL.
SET PARAMETER ID '/PWS/ZYCIP435' FIELD v_valor.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION '/PWS/ZYCI040_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION '/PWS/ZYCI040_E'
AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ELSEIF v_campo = '/PWS/ZYCIE329-DOCNUM' AND NOT v_valor IS
INITIAL.
MOVE v_valor TO v_docnum.
SET PARAMETER ID 'JEF' FIELD v_docnum.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'J1B3'.
IF sy-subrc = 0.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'J1B3' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'J1B3' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'J1B3'.
ENDIF.
ENDIF.
WHEN 'P-'.
CLEAR nextline.
DESCRIBE TABLE itab_zycit330 LINES v_ilinhas.
PERFORM blaettern
USING tc_itens-current_line 9 v_ilinhas okcode
CHANGING nextline.
...
...
WHEN 'VINC'.
READ TABLE itab_vinc WITH KEY mark = 'X'.
IF sy-subrc EQ 0
AND itab_vinc-icon EQ '@5B@'.
itab_zycit330-nrseqd = itab_vinc-nrseqd.
itab_zycit330-nratoc = itab_vinc-nratoc.
MODIFY itab_zycit330 TRANSPORTING nrseqd nratoc
WHERE docnum EQ itab_zycit330-docnum
AND buzei EQ itab_zycit330-buzei.
delete from /pws/zycit279 where docnum eq itab_zycit330-docnum
* >> Início da exclusão: MODULE USER_COMMAND_0200
and buzei eq itab_zycit330-buzei.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
and buzei eq itab_zycit330-buzei."#EC CI_NOFIRST
* << Fim da inclusão
LEAVE TO SCREEN 100.
ELSE.
MESSAGE i015 WITH text-022.
ENDIF.
ENDCASE.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI062F01
...
MODIFY /pws/zycit420 FROM TABLE itab_grupmat.
IF NOT ok_code = 'TS_CADASTRO_FC3'.
IF sy-subrc EQ 0.
MESSAGE s015 WITH text-004.
ENDIF.
ENDIF.
ENDFORM.
FORM f_seleciona_listas.
CLEAR: itab_ltcab.
REFRESH: itab_ltcab.
* >> Início da exclusão: FORM F_SELECIONA_LISTAS
SELECT * FROM /pws/zycit421 INTO TABLE itab_ltcab.
* << Fim da exclusão
* >> Início da inclusão: FORM F_SELECIONA_LISTAS
SELECT * FROM /pws/zycit421 INTO TABLE itab_ltcab."#EC CI_NOWHERE
* << Fim da inclusão
loop at itab_ltcab.
AUTHORITY-CHECK OBJECT 'C_PPBD'
ID 'AKTTYP' FIELD 'V'
ID 'WERKS' FIELD itab_ltcab-Werks.
if sy-subrc ne 0.
delete itab_ltcab where werks eq itab_ltcab-werks.
endif.
endloop.
IF NOT /pws/zycit421-agrup IS INITIAL.
DELETE itab_ltcab WHERE agrup NE /pws/zycit421-agrup.
...
...
ENDIF.
ENDFORM.
FORM f_valida_agrup USING p_agrup TYPE /pws/zycit419-agrup.
SELECT COUNT( * ) FROM /pws/zycit419
WHERE agrup EQ p_agrup.
IF sy-subrc NE 0.
MESSAGE e015 WITH text-e05.
ENDIF.
ENDFORM.
FORM f_valida_mvgr1 USING p_mvgr1 TYPE mvke-mvgr1.
* >> Início da exclusão: FORM F_VALIDA_MVGR1
SELECT COUNT( * ) FROM tvm1
* << Fim da exclusão
* >> Início da inclusão: FORM F_VALIDA_MVGR1
SELECT COUNT( * ) FROM tvm1 "#EC CI_BYPASS
* << Fim da inclusão
WHERE mvgr1 EQ p_mvgr1.
IF sy-subrc NE 0.
MESSAGE e015 WITH text-e03.
ENDIF.
ENDFORM.
FORM f_valida_werks USING p_werks TYPE t001w-werks.
* >> Início da exclusão: FORM F_VALIDA_WERKS
SELECT COUNT( * ) FROM t001w
* << Fim da exclusão
* >> Início da inclusão: FORM F_VALIDA_WERKS
SELECT COUNT( * ) FROM t001w "#EC CI_BYPASS
* << Fim da inclusão
WHERE werks EQ p_werks.
IF sy-subrc NE 0.
MESSAGE e015 WITH text-e02.
ENDIF.
ENDFORM.
FORM f_eliminar_0103.
DATA: vl_answer TYPE c.
READ TABLE itab_ltcab WITH KEY mark = 'X'.
IF sy-subrc NE 0.
MESSAGE i085.
...
...
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-005
text_button_1 = 'Sim'(001)
text_button_2 = 'Não'(002)
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = vl_answer.
IF vl_answer EQ '1'.
* >> Início da exclusão: FORM F_ELIMINAR_0103
SELECT COUNT( * ) FROM /pws/zycit247
* << Fim da exclusão
* >> Início da inclusão: FORM F_ELIMINAR_0103
SELECT COUNT( * ) FROM /pws/zycit247 "#EC CI_NOFIELD
* << Fim da inclusão
WHERE stlal EQ itab_ltcab.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-e11.
EXIT.
ENDIF.
LOOP AT itab_ltcab WHERE mark EQ 'X'.
DELETE FROM /pws/zycit421 WHERE agrup = itab_ltcab-agrup AND
werks = itab_ltcab-werks AND
stlal = itab_ltcab-stlal.
DELETE FROM /pws/zycit422 WHERE agrup = itab_ltcab-agrup AND
...
...
input = p_meins
language = sy-langu
EXCEPTIONS
unit_not_found = 1
OTHERS = 2.
IF sy-subrc NE 0.
MESSAGE e015 WITH text-e10.
ENDIF.
ENDFORM.
FORM f_valida_stlal USING p_stlal TYPE mast-stlal.
* >> Início da exclusão: FORM F_VALIDA_STLAL
SELECT COUNT( * ) FROM mast
* << Fim da exclusão
* >> Início da inclusão: FORM F_VALIDA_STLAL
SELECT COUNT( * ) FROM mast "#EC CI_NOFIRST
* << Fim da inclusão
WHERE stlal EQ p_stlal.
IF sy-subrc NE 0.
MESSAGE e015 WITH text-e08.
ENDIF.
ENDFORM.
FORM f_criar_novo.
CLEAR: /pws/zycit421, v_conitn.
READ TABLE itab_agrup WITH KEY mark = 'X'.
MOVE itab_agrup-agrup TO /pws/zycit421-agrup.
REFRESH itab_ltcab.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI062O01
...
WHEN c_ts_cadastro-tab3.
g_ts_cadastro-subscreen = '0103'.
PERFORM f_seleciona_listas.
WHEN c_ts_cadastro-tab4.
g_ts_cadastro-subscreen = '0105'.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
MODULE carrega_agrup OUTPUT.
IF itab_agrup[] IS INITIAL.
* >> Início da exclusão: MODULE CARREGA_AGRUP
SELECT * FROM /pws/zycit419 INTO TABLE itab_agrup.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_AGRUP
SELECT * FROM /pws/zycit419 INTO TABLE itab_agrup."#EC CI_NOWHERE
* << Fim da inclusão
ENDIF.
DESCRIBE TABLE itab_agrup LINES tc_agrup-lines.
ADD 10 TO tc_agrup-lines.
SORT itab_agrup BY agrup.
CLEAR itab_grupmat. REFRESH itab_grupmat.
ENDMODULE.
MODULE carrega_grupmat OUTPUT.
IF itab_grupmat[] IS INITIAL.
IF NOT itab_agrup IS INITIAL.
LOOP AT itab_agrup WHERE mark EQ 'X'.
...
...
screen-input = space.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDCASE.
ENDMODULE.
MODULE carrega_itab_ltitem OUTPUT.
ENDMODULE.
MODULE status_0105 OUTPUT.
IF itab_zycit423_aux[] IS INITIAL AND itab_zycit423[] IS INITIAL.
* >> Início da exclusão: MODULE STATUS_0105
SELECT * FROM /pws/zycit423 INTO TABLE itab_zycit423_aux.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0105
SELECT * FROM /pws/zycit423 INTO
TABLE itab_zycit423_aux."#EC CI_NOWHERE
* << Fim da inclusão
itab_zycit423[] = itab_zycit423_aux[].
READ TABLE itab_grupmat WITH KEY mark = 'X'.
DELETE itab_zycit423 WHERE mvgr1 NE itab_grupmat-mvgr1
OR agrup NE itab_grupmat-agrup.
itab_zycit423_save[] = itab_zycit423[].
ENDIF.
DESCRIBE TABLE itab_zycit423 LINES tc_ncm-lines.
tc_ncm-lines = tc_ncm-lines + 17.
ENDMODULE.
MODULE preenche_tela105 OUTPUT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI065F01
...
itab_zycit368_ini[] = itab_zycit368_aux[].
ENDIF.
ENDIF.
IF v_cancel IS INITIAL.
g_ts_cadastro-subscreen = '0102'.
ts_princ-activetab = 'FC_PA'.
ENDIF.
ENDFORM.
FORM dados_iniciais.
IF itab_zycit368[] IS INITIAL.
* >> Início da exclusão: FORM DADOS_INICIAIS
SELECT * FROM /pws/zycit368 INTO TABLE itab_zycit368.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_INICIAIS
SELECT * FROM /pws/zycit368 INTO TABLE itab_zycit368."#EC CI_NOWHERE
* << Fim da inclusão
IF NOT itab_zycit368[] IS INITIAL.
SELECT kunnr name1 stcd1 FROM kna1 INTO TABLE itab_kna1
FOR ALL ENTRIES IN itab_zycit368
WHERE kunnr EQ itab_zycit368-kunnr.
SORT itab_kna1 BY kunnr.
ENDIF.
ENDIF.
ENDFORM.
FORM salva_dados.
CLEAR: v_modif, v_modif2.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI065I01
...
WHEN 'DELE'.
CASE ts_princ-activetab.
WHEN 'FC_IND'.
READ TABLE itab_kna1 WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
PERFORM confirma CHANGING v_resp.
IF v_resp EQ '1'.
DELETE itab_kna1 WHERE mark EQ 'X'.
DELETE itab_zycit368 WHERE kunnr EQ itab_kna1-kunnr.
DELETE itab_zycit368_aux WHERE kunnr EQ itab_kna1-kunnr.
* >> Início da exclusão: MODULE USER_COMMAND_SUB
DELETE FROM /pws/zycit368 WHERE kunnr EQ itab_kna1-kunnr.
DELETE FROM /pws/zycit369 WHERE kunnr EQ itab_kna1-kunnr.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_SUB
DELETE FROM /pws/zycit368 WHERE
kunnr EQ itab_kna1-kunnr."#EC CI_NOFIRST
DELETE FROM /pws/zycit369 WHERE
kunnr EQ itab_kna1-kunnr."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDIF.
WHEN 'FC_PA'.
READ TABLE itab_zycit368_aux WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
PERFORM confirma CHANGING v_resp.
IF v_resp EQ '1'.
DELETE itab_zycit368_aux WHERE
kunnr EQ itab_zycit368_aux-kunnr
and nrseq eq itab_zycit368_aux-nrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI067O01
MODULE status_0100 OUTPUT.
SET PF-STATUS 'ST0100'.
SET TITLEBAR '0100'.
IF v_ini IS INITIAL.
v_ini = 'X'.
SORT itab_zycit475 BY codagrup werks.
* >> Início da exclusão: MODULE STATUS_0100
SELECT * FROM /pws/zycit475 INTO TABLE itab_zycit475.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0100
SELECT * FROM /pws/zycit475 INTO
TABLE itab_zycit475."#EC CI_NOWHERE
* << Fim da inclusão
LOOP AT itab_zycit475.
itab_dados-codagrup = itab_zycit475-codagrup .
itab_dados-descr = itab_zycit475-descr.
APPEND itab_dados.
ENDLOOP.
DELETE itab_dados WHERE codagrup EQ space.
SORT itab_dados BY codagrup.
ENDIF.
ts_controle-activetab = v_pasta.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI068F01
...
REFRESH: itab_zycit376,
itab_ekpo,
itab_ekko,
itab_eket,
itab_lfa1,
itab_zycit100,
itab_zycit079,
itab_zycit433,
itab_zycit078.
SELECT SINGLE * FROM /pws/zycit321.
* >> Início da exclusão: FORM SELEC_APR
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_APR
SELECT * FROM /pws/zycit433
INTO TABLE itab_zycit433 "#EC CI_NOFIELD
* << Fim da inclusão
WHERE dtde <= sy-datum
AND dtate >= sy-datum.
PERFORM selec_atos.
IF NOT itab_atos[] IS INITIAL.
SELECT * FROM ekpo INTO TABLE itab_ekpo
WHERE ebeln IN s_ebeln
AND werks IN s_werks
AND aedat IN s_data.
IF NOT itab_ekpo[] IS INITIAL.
SELECT * FROM ekko INTO TABLE itab_ekko
...
...
WHERE ebeln EQ itab_ekpo-ebeln.
IF NOT itab_ekko[] IS INITIAL.
SELECT * FROM lfa1 INTO TABLE itab_lfa1
FOR ALL ENTRIES IN itab_ekko
WHERE lifnr EQ itab_ekko-lifnr.
ENDIF.
SELECT * FROM eket INTO TABLE itab_eket
FOR ALL ENTRIES IN itab_ekpo
WHERE ebeln EQ itab_ekpo-ebeln
AND ebelp EQ itab_ekpo-ebelp.
* >> Início da exclusão: FORM SELEC_APR
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_APR
SELECT * FROM /pws/zycit100
INTO TABLE itab_zycit100 "#EC CI_NOFIRST
* << Fim da inclusão
FOR ALL ENTRIES IN itab_ekpo
WHERE ebeln EQ itab_ekpo-ebeln
AND ebelp EQ itab_ekpo-ebelp.
* >> Início da exclusão: FORM SELEC_APR
SELECT * FROM /pws/zycit376 INTO TABLE itab_zycit376
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_APR
SELECT * FROM /pws/zycit376
INTO TABLE itab_zycit376 "#EC CI_NOFIRST
* << Fim da inclusão
FOR ALL ENTRIES IN itab_ekpo
WHERE ebeln EQ itab_ekpo-ebeln
AND ebelp EQ itab_ekpo-ebelp.
* >> Início da exclusão: FORM SELEC_APR
SELECT * FROM /pws/zycit079 INTO TABLE itab_zycit079
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_APR
SELECT * FROM /pws/zycit079
INTO TABLE itab_zycit079 "#EC CI_NOFIRST
* << Fim da inclusão
FOR ALL ENTRIES IN itab_ekpo
WHERE ebeln EQ itab_ekpo-ebeln
AND ebelp EQ itab_ekpo-ebelp.
IF NOT itab_zycit079[] IS INITIAL.
SELECT * FROM /pws/zycit078 INTO TABLE itab_zycit078
FOR ALL ENTRIES IN itab_zycit079
WHERE nrseqli EQ itab_zycit079-nrseqli
AND nrseqd NE space.
ENDIF.
ENDIF.
SELECT * FROM /pws/zycit030 INTO TABLE itab_zycit030
* >> Início da exclusão: FORM SELEC_APR
WHERE codigo EQ 'FOB'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_APR
WHERE codigo EQ 'FOB'. "#EC CI_NOFIRST
* << Fim da inclusão
PERFORM monta_376_apr.
IF NOT itab_zycit376_t[] IS INITIAL.
CALL SCREEN 0100.
ENDIF.
ELSE.
ENDIF.
ENDFORM.
FORM monta_376_apr.
DATA: v_grupo TYPE /pws/zycit433-grupo,
v_flag TYPE c .
...
...
i_dtbase_nao_encontrada = 5
taxa_nao_encontrada = 6
i_montante_nao_encontrado = 7.
p_paravlme = v_paravlme.
ENDIF.
ENDFORM.
FORM selec_atos.
REFRESH: itab_zycit245,
itab_zycit244.
SELECT * FROM /pws/zycit244 INTO TABLE itab_zycit244
* >> Início da exclusão: FORM SELEC_ATOS
WHERE status EQ 'D'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_ATOS
WHERE status EQ 'D'. "#EC CI_NOFIELD
* << Fim da inclusão
IF /pws/zycit321-apr_imp EQ 'X'.
DELETE itab_zycit244
WHERE tipo NE 'G'.
ELSE.
DELETE itab_zycit244
WHERE tipo NE 'C'
AND tipo NE 'N'.
DELETE itab_zycit244
WHERE modalidade EQ 'I'
AND tipo NE 'C'.
...
...
v_um_rez2, v_um_ren2.
IF p_werks IS INITIAL.
CLEAR p_qtd.
EXIT.
ENDIF.
CLEAR v_cod_umncm.
SELECT SINGLE steuc FROM marc INTO v_j_1bnbm
WHERE matnr EQ p_matnr
AND werks EQ p_werks.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE land1 /pws/zum
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE land1 /pws/zum "#EC CI_GENBUFF
* << Fim da inclusão
FROM t604f INTO (v_codpais, v_cod_umncm)
WHERE steuc = v_j_1bnbm.
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE msehi
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE msehi "#EC CI_NOFIELD
* << Fim da inclusão
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-016 text-017 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
v_conv1 = 1.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE_OLD'
EXPORTING
...
...
IMPORTING
answer = p_resposta
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
ENDFORM.
FORM selec_des.
DATA: itab_zycit279 LIKE /pws/zycit279 OCCURS 0 WITH HEADER LINE.
REFRESH: itab_zycit376_t, itab_zycit376,
itab_zycit244 , itab_zycit245.
* >> Início da exclusão: FORM SELEC_DES
SELECT * FROM /pws/zycit376 INTO TABLE itab_zycit376
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_DES
SELECT * FROM /pws/zycit376
INTO TABLE itab_zycit376 "#EC CI_NOFIRST
* << Fim da inclusão
WHERE ebeln IN s_ebeln
AND werks IN s_werks
AND datac IN s_data.
IF NOT itab_zycit376[] IS INITIAL.
* >> Início da exclusão: FORM SELEC_DES
SELECT * FROM /pws/zycit279 INTO TABLE itab_zycit279
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_DES
SELECT * FROM /pws/zycit279
INTO TABLE itab_zycit279 "#EC CI_NOFIRST
* << Fim da inclusão
FOR ALL ENTRIES IN itab_zycit376
WHERE ebeln EQ itab_zycit376-ebeln
AND ebelp EQ itab_zycit376-ebelp.
SELECT * FROM /pws/zycit244 INTO TABLE itab_zycit244
FOR ALL ENTRIES IN itab_zycit376
WHERE nrseqd EQ itab_zycit376-nrseqd
AND status EQ 'D'.
IF NOT itab_zycit244[] IS INITIAL.
SELECT * FROM /pws/zycit245 INTO TABLE itab_zycit245
FOR ALL ENTRIES IN itab_zycit244
...
...
ENDIF.
MODIFY itab_zycit245 TRANSPORTING vinculado vlvinc
WHERE nrseqd = itab_zycit376_t-nrseqd
AND nritem = itab_zycit376_t-nritem.
UPDATE /pws/zycit245 SET
vinculado = itab_zycit245-vinculado
vlvinc = itab_zycit245-vlvinc
WHERE nrseqd EQ itab_zycit245-nrseqd
AND nritem EQ itab_zycit245-nritem.
ENDIF.
* >> Início da exclusão: FORM DESVINCULA_PEDIDO
DELETE FROM /pws/zycit376
* << Fim da exclusão
* >> Início da inclusão: FORM DESVINCULA_PEDIDO
DELETE FROM /pws/zycit376 "#EC CI_NOFIRST
* << Fim da inclusão
WHERE ebeln EQ itab_zycit376_t-ebeln
AND ebelp EQ itab_zycit376_t-ebelp.
DELETE itab_zycit376_t.
ENDLOOP.
ENDFORM.
FORM lock_registro USING p_mode.
DATA: __seqta_tab LIKE seqta OCCURS 1 WITH HEADER LINE,
__scope LIKE ddenq_like-scope,
_collect LIKE ddenq_like-collect,
__wait LIKE ddenq_like-waitflag.
DATA: BEGIN OF %a_tcode,
mandt LIKE /pws/zycit244-mandt,
tcode LIKE sy-tcode,
END OF %a_tcode.
* >> Início da exclusão: FORM LOCK_REGISTRO
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_tcode.
* << Fim da exclusão
* >> Início da inclusão: FORM LOCK_REGISTRO
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_tcode."#EC CI_CCALL
* << Fim da inclusão
MOVE sy-mandt TO:
%a_tcode-mandt.
MOVE sy-tcode TO:
%a_tcode-tcode.
__seqta_tab-gname = 'SY-TCODE'.
__seqta_tab-gmode = p_mode.
__seqta_tab-garg = %a_tcode.
APPEND __seqta_tab.
PERFORM send_enqueue IN PROGRAM saplsena
TABLES __seqta_tab
...
...
CLEAR: v_campo, v_valor.
GET CURSOR FIELD v_campo VALUE v_valor.
CASE v_campo.
WHEN '/PWS/ZYCIE376-EBELN'.
IF NOT v_valor IS INITIAL.
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.
* >> Início da exclusão: FORM TRATA_DRILL-DOWN
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_DRILL-DOWN
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
ENDIF.
CLEAR: v_campo, v_valor.
GET CURSOR FIELD v_campo VALUE v_valor.
WHEN '/PWS/ZYCIE376-NRSEQD' OR '/PWS/ZYCIE244-NRSEQD'.
IF NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCIP435' FIELD v_valor.
* >> Início da exclusão: FORM TRATA_DRILL-DOWN
CALL TRANSACTION '/PWS/ZYCI040_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_DRILL-DOWN
CALL TRANSACTION '/PWS/ZYCI040_E' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
ENDCASE.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR217F01
...
CALL SCREEN 0002.
ELSE.
MESSAGE s015 WITH text-002 text-003.
ENDIF.
ENDFORM.
FORM run_appropriation_exportation.
DATA: v_ncm_temp(10),
v_ncm_b LIKE it_zycet002_grp-steuc.
IF v_tptrans EQ 'N'.
SELECT SINGLE * FROM /pws/zycit321.
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
REFRESH itab_zycit439.
SELECT * FROM /pws/zycit439 INTO TABLE itab_zycit439
WHERE dtde <= sy-datum AND
dtate >= sy-datum.
* << Fim da exclusão
IF /pws/zycit321-ltopc NE '1'.
MESSAGE e015 WITH text-035.
LEAVE PROGRAM.
ENDIF.
IF NOT it_zycet002[] IS INITIAL.
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
REFRESH itab_zycit439.
SELECT * FROM /pws/zycit439 INTO TABLE itab_zycit439
FOR ALL ENTRIES IN it_zycet002
WHERE matnr EQ it_zycet002-matnr and
dtde <= sy-datum AND
dtate >= sy-datum.
* << Fim da inclusão
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.
CLEAR it_agrup. REFRESH it_agrup.
SELECT * FROM mvke INTO TABLE it_agrup
FOR ALL ENTRIES IN it_zycet002
WHERE matnr EQ it_zycet002-matnr
AND vkorg EQ it_zycet002-vkorg_auft
AND vtweg EQ it_zycet002-vtweg_auft.
...
...
READ TABLE it_agrup WITH KEY matnr = it_zycet002_grp-matnr.
IF sy-subrc EQ 0.
IF /pws/zycit321-ncm_list EQ 'X'.
v_ncm_temp = it_zycet002_grp-steuc.
IF v_ncm_temp+4(1) EQ '.'.
v_ncm_temp+4 = it_zycet002_grp-steuc+5(1) .
ENDIF.
ELSE.
v_ncm_temp = it_zycet002_grp-steuc.
ENDIF.
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
SELECT SINGLE agrup FROM /pws/zycit423
* << Fim da exclusão
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
SELECT SINGLE agrup FROM /pws/zycit423 "#EC CI_NOFIELD
* << Fim da inclusão
INTO it_zycet002_grp-grp
WHERE mvgr1 = it_agrup-mvgr1
AND ncm = v_ncm_temp.
IF sy-subrc EQ 0.
MODIFY it_zycet002_grp TRANSPORTING grp.
SELECT * FROM /pws/zycit247 APPENDING TABLE it_zycit247
WHERE j_1bnbm EQ it_zycet002_grp-steuc
AND agrup EQ it_zycet002_grp-grp
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
AND esgotado EQ space.
* << Fim da exclusão
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
AND esgotado EQ space. "#EC CI_NOFIELD
* << Fim da inclusão
ELSE.
CLEAR: v_errolog, it_log_erro.
CONCATENATE text-038 it_zycet002_grp-grp '/'
it_zycet002-steuc text-039
INTO v_errolog SEPARATED BY space.
MOVE v_errolog TO it_log_erro.
APPEND it_log_erro.
DELETE it_zycet002_grp WHERE matnr EQ it_zycet002-matnr
AND vkorg EQ it_zycet002-vkorg_auft
AND vtweg EQ it_zycet002-vtweg_auft
...
...
AND dtatoc NE '00000000'
AND modalidade EQ 'S'.
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.
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
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
AND esgotado EQ space.
* << Fim da exclusão
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
AND esgotado EQ space. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
PERFORM sort_records_zycit247.
PERFORM lock_record_receb.
PERFORM lock_record_ato.
SORT it_zycit279 BY nrseq ebeln ebelp matnr.
LOOP AT it_zycet002.
CLEAR: v_mdias.
READ TABLE it_zycet002_grp WITH KEY
nrseq = it_zycet002-nrseq
vbeln_va = it_zycet002-vbeln_va
...
...
ELSE.
IF NOT it_zycet002[] IS INITIAL.
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.
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
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
AND esgotado EQ space.
* << Fim da exclusão
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
AND esgotado EQ space. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
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 dtatoc NE '00000000'
AND modalidade EQ 'S'.
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.
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
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
AND esgotado EQ space.
* << Fim da exclusão
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
AND esgotado EQ space. "#EC CI_NOFIRST
* << Fim da inclusão
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.
PERFORM sort_records_zycit247.
PERFORM lock_record_receb.
PERFORM lock_record_ato.
...
...
ENDIF.
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.
EXPORT it_materiais TO MEMORY ID idmemory1.
* >> Início da exclusão: FORM GET_BOM_OF_MATERIALS
SUBMIT (v_trans) AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_BOM_OF_MATERIALS
SUBMIT (v_trans) AND RETURN."#EC CI_SUBMIT
* << Fim da inclusão
IMPORT i_final FROM MEMORY ID idmemory2.
IF sy-subrc NE 0 OR i_final[] IS INITIAL.
p_erro = 'S'.
ELSE.
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
...
...
ENDFORM.
FORM get_pct USING p_qtdtmp p_qtdebase CHANGING p_menorpct.
DATA: p_pct_aux TYPE p DECIMALS 5,
v_qtdtot LIKE /pws/zycit279-slqtde,
v_qttmp LIKE /pws/zycee002-fkimg,
v_tabix LIKE sy-tabix,
v_tabix_245 LIKE sy-tabix,
c_pct_dec TYPE p DECIMALS 2.
LOOP AT it_zycit422.
IF itab_zycit433[] IS INITIAL.
* >> Início da exclusão: FORM GET_PCT
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PCT
SELECT * FROM /pws/zycit433 INTO
TABLE itab_zycit433."#EC CI_NOWHERE
* << Fim da inclusão
ENDIF.
CLEAR: itab_zycit433, it_zycit279.
MODIFY it_zycit279 TRANSPORTING matnr_alt
WHERE matnr NE space.
READ TABLE itab_zycit433 WITH KEY matnr = it_zycit422-idnrk.
v_grupo = itab_zycit433-grupo.
it_zycit279-matnr_alt = it_zycit422-idnrk.
MODIFY it_zycit279 TRANSPORTING matnr_alt
WHERE matnr EQ it_zycit279-matnr_alt
AND nrseqd EQ it_zycit247-nrseqd.
...
...
FORM execute_loger_button2.
CALL SCREEN '0003' STARTING AT 3 4.
ENDFORM.
FORM sort_records_zycit247.
CLEAR it_zycit247_aux. REFRESH it_zycit247_aux.
SORT it_zycit244 BY dtatoc ASCENDING.
it_zycit247_aux[] = it_zycit247[].
CLEAR it_zycit247. REFRESH it_zycit247.
LOOP AT it_zycit244.
AUTHORITY-CHECK OBJECT 'C_PPBD'
* >> Início da inclusão: FORM SORT_RECORDS_ZYCIT247
ID 'AKTTYP' FIELD 'V'
* << Fim da inclusão
ID 'WERKS' FIELD it_zycit244-werks.
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.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS' FIELD it_zycit244-bukrs
...
...
p_error = 'S'.
EXIT.
ENDIF.
CLEAR: v_apcomp.
CLEAR it_apr_final_aux. REFRESH it_apr_final_aux.
LOOP AT it_zycit422.
v_bxreceb = v_bxreceb2 = v_qtdtmp * it_zycit422-menge *
( wa_perc-qtdtot /
( wa_perc-menge * wa_perc-qtdexp ) ) .
IF itab_zycit433[] IS INITIAL.
* >> Início da exclusão: FORM APPROPRIATE_TNG
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433.
* << Fim da exclusão
* >> Início da inclusão: FORM APPROPRIATE_TNG
SELECT * FROM /pws/zycit433 INTO
TABLE itab_zycit433."#EC CI_NOWHERE
* << Fim da inclusão
ENDIF.
CLEAR: itab_zycit433, it_zycit279.
MODIFY it_zycit279 TRANSPORTING matnr_alt
WHERE matnr NE space.
READ TABLE itab_zycit433 WITH KEY matnr = it_zycit422-idnrk.
v_grupo = itab_zycit433-grupo.
it_zycit279-matnr_alt = it_zycit422-idnrk.
MODIFY it_zycit279 TRANSPORTING matnr_alt
WHERE matnr EQ it_zycit279-matnr_alt
AND nrseqd EQ it_zycit247-nrseqd.
...
...
LOOP AT it_zycit247.
CALL FUNCTION '/PWS/ZYCI_DEQUEUE_ZYCIT247'
EXPORTING
nrseqd = it_zycit247-nrseqd.
ENDLOOP.
ENDFORM.
FORM trata_ordem_venda.
DATA: nrseq LIKE /pws/zycee085-nrseq,
itab_zycit428 LIKE /pws/zycit428 OCCURS 0 WITH HEADER LINE.
CLEAR itab_zycee085. REFRESH itab_zycee085.
* >> Início da exclusão: FORM TRATA_ORDEM_VENDA
SELECT * FROM /pws/zycit428 INTO TABLE itab_zycit428
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ORDEM_VENDA
SELECT * FROM /pws/zycit428 INTO TABLE itab_zycit428 "#EC CI_NOFIELD
* << Fim da inclusão
WHERE export EQ 'X'.
LOOP AT it_zycet002.
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.
...
...
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'.
IF NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCEP001' FIELD v_valor.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCE003_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCE003_E' AND
SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
WHEN '/PWS/ZYCEE002-VBELN_VA'.
IF NOT v_valor IS INITIAL.
v_vbeln_va = v_valor.
SET PARAMETER ID 'AUN' FIELD v_vbeln_va.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
WHEN '/PWS/ZYCEE002-VBELN_VF'.
IF NOT v_valor IS INITIAL.
v_vbeln_vf = v_valor.
SET PARAMETER ID 'VF' FIELD v_vbeln_vf.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
WHEN '/PWS/ZYCEE002-VBELN_VL'.
IF NOT v_valor IS INITIAL.
v_vbeln_vl = v_valor.
SET PARAMETER ID 'VL' FIELD v_vbeln_vl.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
WHEN '/PWS/ZYCEE002-DOCNUM'.
IF NOT v_valor IS INITIAL.
v_docnum = v_valor.
SET PARAMETER ID 'JEF' FIELD v_docnum.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'J1B3' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'J1B3' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
WHEN '/PWS/ZYCIE282-EBELN'.
IF NOT v_valor IS INITIAL.
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.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
ENDIF.
WHEN '/PWS/ZYCIE282-NRSEQIMP'.
IF NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCIP001' FIELD v_valor.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI001_E' AND
SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
WHEN '/PWS/ZYCIE282-NRSEQD'.
IF NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCIP435' FIELD v_valor.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI040_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI040_E' AND
SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
ENDCASE.
ENDFORM.
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.
...
...
CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm,
v_um_rez2, v_um_ren2.
IF p_werks IS INITIAL.
CLEAR p_qtd.
EXIT.
ENDIF.
CLEAR v_cod_umncm.
IF t001 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ it_zycet002-bukrs.
ENDIF.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE a~steuc INTO v_j_1bnbm
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE a~steuc INTO v_j_1bnbm "#EC CI_BUFFJOIN
* << Fim da inclusão
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space
AND b~land1 EQ t001-land1.
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE msehi
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE msehi "#EC CI_NOFIELD
* << Fim da inclusão
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254F01
...
IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycit321-lote NE space.
PERFORM aprop_lote.
PERFORM busca_lote_e.
ELSE.
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
IF NOT it_zycet002[] IS INITIAL.
* << Fim da inclusão
REFRESH itab_zycit439.
SELECT * FROM /pws/zycit439 INTO TABLE itab_zycit439
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
WHERE dtde <= sy-datum AND
* << Fim da exclusão
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
FOR ALL ENTRIES IN it_zycet002
WHERE matnr EQ it_zycet002-matnr and
dtde <= sy-datum AND
* << Fim da inclusão
dtate >= sy-datum.
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
IF NOT it_zycet002[] IS INITIAL.
* << Fim da exclusão
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.
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.
CLEAR it_zycit247. REFRESH it_zycit247.
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
SELECT * FROM /pws/zycit247 INTO TABLE it_zycit247
* << Fim da exclusão
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
SELECT * FROM /pws/zycit247 INTO TABLE it_zycit247 "#EC CI_NOFIELD
* << Fim da inclusão
FOR ALL ENTRIES IN it_zycet002
WHERE j_1bnbm EQ it_zycet002-steuc
AND esgotado EQ space.
IF sy-subrc EQ 0.
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' OR tipo EQ 'G' )
AND vcto_fn >= sy-datum
AND dtatoc NE '00000000'
AND modalidade EQ 'S'.
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.
CLEAR it_zycit279. REFRESH it_zycit279.
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
SELECT * FROM /pws/zycit279 INTO TABLE it_zycit279
* << Fim da exclusão
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
SELECT * FROM /pws/zycit279 INTO
TABLE it_zycit279 "#EC CI_NOFIRST
* << Fim da inclusão
FOR ALL ENTRIES IN it_zycit247
WHERE nrseqd EQ it_zycit247-nrseqd
AND esgotado EQ space.
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.
...
...
werks = it_zycet002-werks.
IF sy-subrc NE 0.
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
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
AND a~beskz EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
AND a~beskz EQ 'F'. "#EC CI_BUFFJOIN
* << Fim da inclusão
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.
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
...
...
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.
EXPORT it_materiais TO MEMORY ID idmemory1.
* >> Início da exclusão: FORM GET_BOM_OF_MATERIALS
SUBMIT (v_trans) AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_BOM_OF_MATERIALS
SUBMIT (v_trans) AND RETURN."#EC CI_SUBMIT
* << Fim da inclusão
IMPORT i_final FROM MEMORY ID idmemory2.
IF sy-subrc NE 0 OR i_final[] IS INITIAL.
p_erro = 'S'.
ELSE.
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
...
...
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.
IF itab_zycit433[] IS INITIAL.
* >> Início da exclusão: FORM GET_PCT
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PCT
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433."#EC CI_NOWHERE
* << Fim da inclusão
ENDIF.
LOOP AT itab_lista.
REFRESH itab_zycit433t.
itab_zycit433t[] = itab_zycit433[].
CLEAR: itab_zycit433.
READ TABLE itab_zycit433 WITH KEY matnr = itab_lista-matnr.
DELETE itab_zycit433t WHERE grupo NE itab_zycit433-grupo.
it_zycit279-matnr_alt = itab_lista-matnr.
MODIFY it_zycit279 TRANSPORTING matnr_alt
WHERE matnr EQ itab_lista-matnr
...
...
( 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 .
it_apr_final-qtd_perda =
( it_apr_final-qtd_mimp + it_apr_final-qtd_perda_e )
* ( it_apr_final-perda / 100 ).
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.
* >> Início da exclusão: FORM APPROPRIATE_TNG
SELECT SINGLE * FROM /pws/zycit094
* << Fim da exclusão
* >> Início da inclusão: FORM APPROPRIATE_TNG
SELECT SINGLE * FROM /pws/zycit094 "#EC CI_NOFIRST
* << Fim da inclusão
INTO /pws/zycit094
WHERE nrseq EQ it_apr_final-nrseqimp.
IF sy-subrc = 0.
* >> Início da exclusão: FORM APPROPRIATE_TNG
SELECT SINGLE nrdi dtreg dttax
* << Fim da exclusão
* >> Início da inclusão: FORM APPROPRIATE_TNG
SELECT SINGLE nrdi dtreg dttax "#EC CI_NOFIELD
* << Fim da inclusão
FROM /pws/zycit085
...
...
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'.
IF NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCEP001' FIELD v_valor.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCE003_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCE003_E' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
WHEN '/PWS/ZYCEE002-VBELN_VA'.
IF NOT v_valor IS INITIAL.
v_vbeln_va = v_valor.
SET PARAMETER ID 'AUN' FIELD v_vbeln_va.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
WHEN '/PWS/ZYCEE002-VBELN_VF'.
IF NOT v_valor IS INITIAL.
v_vbeln_vf = v_valor.
SET PARAMETER ID 'VF' FIELD v_vbeln_vf.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
WHEN '/PWS/ZYCEE002-VBELN_VL'.
IF NOT v_valor IS INITIAL.
v_vbeln_vl = v_valor.
SET PARAMETER ID 'VL' FIELD v_vbeln_vl.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
WHEN '/PWS/ZYCEE002-DOCNUM'.
IF NOT v_valor IS INITIAL.
v_docnum = v_valor.
SET PARAMETER ID 'JEF' FIELD v_docnum.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'J1B3' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'J1B3' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
WHEN 'WA_REAL_MERC-DOCNUM'.
IF NOT v_valor IS INITIAL.
v_docnum = v_valor.
SET PARAMETER ID 'JEF' FIELD v_docnum.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'J1B3' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'J1B3' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
WHEN '/PWS/ZYCIE282-EBELN'.
IF NOT v_valor IS INITIAL.
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.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
ENDIF.
WHEN 'WA_REAL_MERC-EBELN'.
IF NOT v_valor IS INITIAL.
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.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
ENDIF.
WHEN '/PWS/ZYCIE282-NRSEQIMP'.
IF NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCIP001' FIELD v_valor.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI001_E' AND
SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
WHEN 'WA_REAL_MERC-NRSEQD'.
IF NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCIP435' FIELD v_valor.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI040_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI040_E' AND
SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
WHEN '/PWS/ZYCIE282-NRSEQD'.
IF NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCIP435' FIELD v_valor.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI040_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI040_E' AND
SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
ENDCASE.
ENDFORM.
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.
...
...
v_destino LIKE tcurc-/pws/codmo,
v_taxa LIKE /pws/zycit174-txconver,
v_taxa2 LIKE /pws/zycit174-txconver.
SELECT SINGLE /pws/codmo FROM tcurc INTO v_origem WHERE
waers = p_waersde.
IF sy-subrc EQ 0.
CLEAR v_taxa.
SELECT SINGLE txconver FROM /pws/zycit174 INTO v_taxa WHERE
codconver = v_origem AND
vigen_inicio <= p_data AND
* >> Início da exclusão: FORM VALOR_CONVERTE_IMP
vigen_fim >= p_data .
* << Fim da exclusão
* >> Início da inclusão: FORM VALOR_CONVERTE_IMP
vigen_fim >= p_data . "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0 AND p_waersde EQ 'BRL'.
v_taxa = 1.
ENDIF.
ENDIF.
SELECT SINGLE /pws/codmo FROM tcurc INTO v_destino WHERE
waers = p_waerspara.
IF sy-subrc EQ 0.
CLEAR v_taxa2.
SELECT SINGLE txconver FROM /pws/zycit174 INTO v_taxa2 WHERE
codconver = v_destino AND
vigen_inicio <= p_data AND
* >> Início da exclusão: FORM VALOR_CONVERTE_IMP
vigen_fim >= p_data.
* << Fim da exclusão
* >> Início da inclusão: FORM VALOR_CONVERTE_IMP
vigen_fim >= p_data. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT v_taxa IS INITIAL AND NOT v_taxa2 IS INITIAL.
p_valor = ( p_valor * v_taxa ) / v_taxa2.
ENDIF.
ENDFORM.
FORM converte_um_ncm USING p_matnr
CHANGING p_meins
p_werks
p_qtd.
DATA: v_cod_umncm LIKE /pws/zyglt204-zum ,
...
...
IF p_werks IS INITIAL.
CLEAR p_qtd.
EXIT.
ENDIF.
CLEAR v_cod_umncm.
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space
* >> Início da exclusão: FORM CONVERTE_UM_NCM
AND b~land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
AND b~land1 EQ t001-land1. "#EC CI_BUFFJOIN
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE msehi
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE msehi "#EC CI_NOFIELD
* << Fim da inclusão
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-072 text-073 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
v_conv1 = 1.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE_OLD'
EXPORTING
...
...
DATA: v_conv1 TYPE /pws/zycit245-qtd_ncm,
v_conv2 TYPE /pws/zycit245-qtd_ncm.
CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm,
v_um_rez2, v_um_ren2.
CLEAR v_cod_umncm.
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space
* >> Início da exclusão: FORM CONVERTE_UNIDADE
AND b~land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UNIDADE
AND b~land1 EQ t001-land1. "#EC CI_BUFFJOIN
* << Fim da inclusão
v_conv1 = 1.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE_OLD'
EXPORTING
input = v_conv1
no_type_check = 'X'
round_sign = 'X'
unit_in = p_de
unit_out = p_para
IMPORTING
denominator = v_um_ren
...
...
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
ENDFORM.
FORM aprop_lote.
IF itab_zycit468[] IS INITIAL.
EXIT.
ENDIF.
* >> Início da exclusão: FORM APROP_LOTE
SELECT * FROM /pws/zycit439 INTO TABLE itab_zycit439.
* << Fim da exclusão
* >> Início da inclusão: FORM APROP_LOTE
SELECT * FROM /pws/zycit439 INTO TABLE itab_zycit439."#EC CI_NOWHERE
* << Fim da inclusão
SELECT * FROM /pws/zycit279 INTO TABLE it_zycit279
FOR ALL ENTRIES IN itab_zycit468
WHERE nrseq EQ itab_zycit468-nrseqimp
AND ebeln EQ itab_zycit468-ebeln
AND ebelp EQ itab_zycit468-ebelp
AND docnum EQ itab_zycit468-docnumimp
AND buzei EQ itab_zycit468-buzei
AND lote EQ itab_zycit468-lote_i.
IF NOT it_zycit279[] IS INITIAL.
SELECT * FROM /pws/zycit247 INTO TABLE it_zycit247
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR325F01
...
itab_zycit085,
itab_zycit244,
itab_zycit247,
itab_zycit248,
itab_zycit279,
itab_zycit281,
itab_zycit282,
itab_zycit428,
itab_zycit429,
itab_zycit430.
* >> Início da exclusão: FORM SELECIONA_DADOS_APR
SELECT * FROM /pws/zycit281 INTO TABLE itab_zycit281.
SELECT * FROM /pws/zycit428 INTO TABLE itab_zycit428.
SELECT * FROM /pws/zycit429 INTO TABLE itab_zycit429.
SELECT * FROM /pws/zycit430 INTO TABLE itab_zycit430.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_APR
SELECT * FROM /pws/zycit281 INTO TABLE itab_zycit281."#EC CI_NOWHERE
SELECT * FROM /pws/zycit428 INTO TABLE itab_zycit428."#EC CI_NOWHERE
SELECT * FROM /pws/zycit429 INTO TABLE itab_zycit429."#EC CI_NOWHERE
SELECT * FROM /pws/zycit430 INTO TABLE itab_zycit430."#EC CI_NOWHERE
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit321.
SELECT vbelv vbeln posnn posnv vbtyp_v vbtyp_n
FROM vbfa APPENDING TABLE itab_vbfa
WHERE vbeln IN s_fat
AND posnn IN s_itfat
AND vbelv IN s_fornec
AND posnv IN s_itforn
AND vbtyp_v EQ 'J'.
SELECT vbelv vbeln posnn posnv vbtyp_v vbtyp_n
FROM vbfa APPENDING TABLE itab_vbfa
WHERE vbeln IN s_fornec
AND posnn IN s_itforn
* >> Início da exclusão: FORM SELECIONA_DADOS_APR
AND vbtyp_n EQ 'J'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_APR
AND vbtyp_n EQ 'J'."#EC CI_NOFIRST
* << Fim da inclusão
IF itab_vbfa[] IS INITIAL.
MESSAGE i015 WITH text-e01.
EXIT.
ELSE.
LOOP AT itab_vbfa WHERE vbtyp_n EQ 'J'
OR vbtyp_v EQ 'J'.
IF itab_vbfa-vbtyp_v EQ 'J'.
itab_vbfa-vbeln = itab_vbfa-vbelv.
itab_vbfa-posnn = itab_vbfa-posnv.
ENDIF.
...
...
ENDIF.
ENDIF.
ENDLOOP.
IF NOT itab_lips[] IS INITIAL.
SELECT vbelv vbeln posnn posnv vbtyp_v vbtyp_n
FROM vbfa APPENDING TABLE itab_vbfa
FOR ALL ENTRIES IN itab_lips
WHERE vbeln EQ itab_lips-vbeln
AND posnn EQ itab_lips-posnr
AND vbtyp_n EQ 'J'
* >> Início da exclusão: FORM SELECIONA_DADOS_APR
AND vbtyp_v EQ 'C'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_APR
AND vbtyp_v EQ 'C'."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
LOOP AT itab_vbfa WHERE vbtyp_v EQ 'C'.
SELECT * FROM vbap APPENDING TABLE itab_vbap
WHERE vbeln EQ itab_vbfa-vbelv
AND posnr EQ itab_vbfa-posnv.
ENDLOOP.
IF NOT itab_vbap[] IS INITIAL.
SELECT * FROM vbak INTO TABLE itab_vbak
FOR ALL ENTRIES IN itab_vbap
WHERE vbeln EQ itab_vbap-vbeln.
...
...
FOR ALL ENTRIES IN itab_j_1bnflin
WHERE docnum EQ itab_j_1bnflin-docnum.
ENDIF.
ENDIF.
REFRESH itab_zycit427.
IF NOT itab_lips[] IS INITIAL.
IF /pws/zycit321-c_comum EQ 'X'.
SELECT * FROM /pws/zycit427 INTO TABLE itab_zycit427
FOR ALL ENTRIES IN itab_lips
WHERE ncm EQ itab_lips-steuc
* >> Início da exclusão: FORM SELECIONA_DADOS_APR
AND esgotado EQ space.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_APR
AND esgotado EQ space."#EC CI_NOFIELD
* << Fim da inclusão
ELSE.
SELECT * FROM /pws/zycit427 INTO TABLE itab_zycit427
FOR ALL ENTRIES IN itab_lips
WHERE matnr EQ itab_lips-matnr
* >> Início da exclusão: FORM SELECIONA_DADOS_APR
AND esgotado EQ space.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_APR
AND esgotado EQ space."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit427[] IS INITIAL.
SELECT * FROM /pws/zycit244 INTO TABLE itab_zycit244
FOR ALL ENTRIES IN itab_zycit427
WHERE nratoc IN s_nratoc
AND nrseqd EQ itab_zycit427-nrseqd
AND kunnr IN s_kunnr
AND vcto_fn >= sy-datum
AND status EQ 'D'
AND modalidade EQ 'S'
AND tipo EQ 'N'.
ENDIF.
REFRESH itab_zycit247.
SELECT * FROM /pws/zycit247 INTO TABLE itab_zycit247
FOR ALL ENTRIES IN itab_lips
WHERE esgotado EQ space
AND ( codmat EQ itab_lips-matnr
* >> Início da exclusão: FORM SELECIONA_DADOS_APR
OR j_1bnbm EQ itab_lips-steuc ).
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_APR
OR j_1bnbm EQ itab_lips-steuc )."#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit247[] IS INITIAL.
SELECT * FROM /pws/zycit244 APPENDING TABLE itab_zycit244
FOR ALL ENTRIES IN itab_zycit247
WHERE nrseqd EQ itab_zycit247-nrseqd
AND status EQ 'D'
AND modalidade EQ 'S'
AND ( tipo EQ 'C' OR tipo EQ 'G' ).
ENDIF.
IF NOT itab_zycit244[] IS INITIAL.
SORT itab_zycit244 BY dtatoc.
SELECT * FROM /pws/zycit279 INTO TABLE itab_zycit279
FOR ALL ENTRIES IN itab_zycit244
* >> Início da exclusão: FORM SELECIONA_DADOS_APR
WHERE nrseqd EQ itab_zycit244-nrseqd.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_APR
WHERE nrseqd EQ itab_zycit244-nrseqd."#EC CI_NOFIRST
* << Fim da inclusão
PERFORM lock_record_receb.
IF NOT itab_zycit279[] IS INITIAL.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
FOR ALL ENTRIES IN itab_zycit279
WHERE nrseq EQ itab_zycit279-nrseq
AND ebeln EQ itab_zycit279-ebeln
* >> Início da exclusão: FORM SELECIONA_DADOS_APR
AND ebelp EQ itab_zycit279-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_APR
AND ebelp EQ itab_zycit279-ebelp."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit100[] IS INITIAL.
SELECT * FROM /pws/zycit085 INTO TABLE itab_zycit085
FOR ALL ENTRIES IN itab_zycit100
WHERE nrseqdi EQ itab_zycit100-nrseqdi.
ENDIF.
ELSEIF NOT s_nratoc IS INITIAL.
v_erro = 'S'.
ENDIF.
IF v_erro IS INITIAL.
...
...
ENDIF.
ENDFORM.
FORM monta_fornec_apr.
DATA: v_auart LIKE vbak-auart,
v_difer.
CLEAR /pws/zycit321.
SELECT SINGLE * FROM /pws/zycit321.
REFRESH itab_zycit439.
SELECT * FROM /pws/zycit439 INTO TABLE itab_zycit439
WHERE dtde <= sy-datum AND
* >> Início da exclusão: FORM MONTA_FORNEC_APR
dtate >= sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_FORNEC_APR
dtate >= sy-datum."#EC CI_NOFIELD
* << Fim da inclusão
LOOP AT itab_lips.
CLEAR: itab_j_1bnfdoc, itab_j_1bnfdoc, itab_vbfa, itab_likp,
itab_vbrk, itab_vbrp, itab_vbap, itab_fornec.
SELECT SINGLE * FROM /pws/zycit282
WHERE vbeln_vl = itab_lips-vbeln
* >> Início da exclusão: FORM MONTA_FORNEC_APR
AND posnl = itab_lips-posnr.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_FORNEC_APR
AND posnl = itab_lips-posnr."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
CONTINUE.
ENDIF.
READ TABLE itab_likp WITH KEY vbeln = itab_lips-vbeln.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
CLEAR v_difer.
IF NOT itab_zycit244[] IS INITIAL.
READ TABLE itab_zycit244 WITH KEY kunnr = itab_likp-kunnr.
IF sy-subrc NE 0.
v_difer = 'X'.
ELSE.
AUTHORITY-CHECK OBJECT 'C_PPBD'
* >> Início da inclusão: FORM MONTA_FORNEC_APR
ID 'AKTTYP' FIELD 'V'
* << Fim da inclusão
ID 'WERKS' FIELD itab_zycit244-werks.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-289 itab_zycit244-werks.
CLEAR itab_zycit244-werks.
ENDIF.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS' FIELD itab_zycit244-bukrs
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-291 itab_zycit244-bukrs.
...
...
ENDIF.
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.
EXPORT it_materiais TO MEMORY ID idmemory1.
* >> Início da exclusão: FORM GET_BOM_OF_MATERIALS
SUBMIT (v_trans) AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_BOM_OF_MATERIALS
SUBMIT (v_trans) AND RETURN."#EC CI_SUBMIT
* << Fim da inclusão
IMPORT i_final FROM MEMORY ID idmemory2.
IF sy-subrc NE 0 OR i_final[] IS INITIAL.
p_erro = 'S'.
ELSE.
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
...
...
DATA: v_erro_apr ,
v_exe248 ,
v_qtd_apr_exp LIKE /pws/zycit279-slqtde ,
v_qtd_apr LIKE /pws/zycit279-slqtde ,
itab_lista2 LIKE itab_lista OCCURS 0 WITH HEADER LINE,
v_qtd_apr2 LIKE /pws/zycit279-slqtde ,
v_dtnf LIKE sy-datum ,
v_ndprod LIKE /pws/zycit281-nrdprod ,
v_qtdtmp2 LIKE /pws/zycit282-qtd_iorg.
IF itab_zycit433[] IS INITIAL.
* >> Início da exclusão: FORM APROPRIA_IMP
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433.
* << Fim da exclusão
* >> Início da inclusão: FORM APROPRIA_IMP
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433."#EC CI_NOWHERE
* << Fim da inclusão
ENDIF.
CLEAR: v_qtd_apr, v_qtd_apr2.
v_erro_apr = 'S'.
READ TABLE itab_lista INDEX 1.
v_qtd_apr2 = itab_lista-qtd_tot / itab_lista-menge.
IF itab_fornec-tipo EQ 'C'.
LOOP AT itab_zycit244 WHERE tipo EQ 'C' OR tipo EQ 'G'.
IF itab_zycit244-tipo EQ 'G' OR
( /pws/zycit321-c_comum EQ 'X' AND
itab_zycit244-tipo EQ 'C' ).
...
...
v_destino LIKE tcurc-/pws/codmo,
v_taxa LIKE /pws/zycit174-txconver,
v_taxa2 LIKE /pws/zycit174-txconver.
SELECT SINGLE /pws/codmo FROM tcurc INTO v_origem WHERE
waers = p_waersde.
IF sy-subrc EQ 0.
CLEAR v_taxa.
SELECT SINGLE txconver FROM /pws/zycit174 INTO v_taxa WHERE
codconver = v_origem AND
vigen_inicio <= p_data AND
* >> Início da exclusão: FORM VALOR_CONVERTE_IMP
vigen_fim >= p_data .
* << Fim da exclusão
* >> Início da inclusão: FORM VALOR_CONVERTE_IMP
vigen_fim >= p_data ."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0 AND p_waersde EQ 'BRL'.
v_taxa = 1.
ENDIF.
ENDIF.
SELECT SINGLE /pws/codmo FROM tcurc INTO v_destino WHERE
waers = p_waerspara.
IF sy-subrc EQ 0.
CLEAR v_taxa2.
SELECT SINGLE txconver FROM /pws/zycit174 INTO v_taxa2 WHERE
codconver = v_destino AND
vigen_inicio <= p_data AND
* >> Início da exclusão: FORM VALOR_CONVERTE_IMP
vigen_fim >= p_data.
* << Fim da exclusão
* >> Início da inclusão: FORM VALOR_CONVERTE_IMP
vigen_fim >= p_data."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT v_taxa IS INITIAL AND NOT v_taxa2 IS INITIAL.
p_valor = ( p_valor * v_taxa ) / v_taxa2.
ENDIF.
ENDFORM.
FORM aprova_apr.
DATA: v_confirm.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-004
...
...
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'.
IF NOT v_valor IS INITIAL.
v_nrseqdi = v_valor.
SET PARAMETER ID '/PWS/ZYCIP085' FIELD v_nrseqdi.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI058_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI058_E' AND
SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR okcode.
ENDIF.
WHEN 'ITAB_FORNEC-ORDEM'.
IF NOT v_valor IS INITIAL.
v_vbeln_va = v_valor.
SET PARAMETER ID 'AUN' FIELD v_vbeln_va.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR okcode.
ENDIF.
WHEN 'ITAB_FORNEC-FATURA'.
IF NOT v_valor IS INITIAL.
v_vbeln_vf = v_valor.
SET PARAMETER ID 'VF' FIELD v_vbeln_vf.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
WHEN 'ITAB_FORNEC-FORNEC'.
IF NOT v_valor IS INITIAL.
v_vbeln_vl = v_valor.
SET PARAMETER ID 'VL' FIELD v_vbeln_vl.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR okcode.
ENDIF.
WHEN 'ITAB_FORNEC-DOCNUM'.
IF NOT v_valor IS INITIAL.
v_docnum = v_valor.
SET PARAMETER ID 'JEF' FIELD v_docnum.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'J1B3' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'J1B3' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR okcode.
ENDIF.
WHEN '/PWS/ZYCIE282-EBELN'.
IF NOT v_valor IS INITIAL.
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.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
ENDIF.
WHEN '/PWS/ZYCIE282-NRSEQIMP'.
IF NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCIP001' FIELD v_valor.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI001_E' AND
SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR okcode.
ENDIF.
WHEN '/PWS/ZYCIE282-NRSEQD'.
IF NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCIP435' FIELD v_valor.
* >> Início da exclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI040_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CALL TRANSACTION '/PWS/ZYCI040_E' AND
SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
CLEAR okcode.
ENDIF.
ENDCASE.
ENDFORM.
FORM carrega_ato_real_mi.
FREE: itab_zycit432.
DATA: v_vbeln_vl LIKE itab_zycit282-vbeln_vl,
v_posnl LIKE itab_zycit282-posnl.
CLEAR: v_vbeln_vl,
v_posnl.
...
...
v_conv2 TYPE /pws/zycit245-qtd_ncm.
CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm,
v_um_rez2, v_um_ren2.
CLEAR v_cod_umncm.
IF t001 IS INITIAL.
ENDIF.
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
* >> Início da exclusão: FORM CONVERTE_UM_NCM
AND a~steuc NE space.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
AND a~steuc NE space."#EC CI_BUFFJOIN
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm."#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi
FROM /pws/zyglt204 INTO (v_umncm)
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE zum = v_cod_umncm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE zum = v_cod_umncm."#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE i015 WITH text-240 text-241 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
v_conv1 = 1.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE_OLD'
EXPORTING
input = v_conv1
no_type_check = 'X'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR330O01
...
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE439-MATNR'
AND NOT /pws/zycie439-matnr IS INITIAL.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDMODULE.
MODULE status_0100 OUTPUT.
IF itab_zycit439 IS INITIAL.
* >> Início da exclusão: MODULE STATUS_0100
SELECT * FROM /pws/zycit439 INTO TABLE itab_zycit439.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0100
SELECT * FROM /pws/zycit439 INTO
TABLE itab_zycit439."#EC CI_NOWHERE
* << Fim da inclusão
LOOP AT itab_zycit439.
itab_mat-matnr = itab_zycit439-matnr.
itab_mat-werks = itab_zycit439-werks.
COLLECT itab_mat.
ENDLOOP.
ENDIF.
SET PF-STATUS 'ST0100'.
SET TITLEBAR '0100'.
ts_princ-activetab = v_pasta.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR342F01
...
DELETE itab_insumo WHERE grupo NE itab_grupo-grupo.
SORT itab_insumo BY matnr dtde.
MOVE: itab_grupo-grupo TO /pws/zycie433-grupo ,
itab_grupo-desc_g TO /pws/zycie433-desc_g ,
itab_grupo-j_1bnbm TO /pws/zycie433-j_1bnbm,
itab_grupo-meins TO /pws/zycie433-meins .
ENDFORM.
FORM deleta_insumo.
DATA: v_matnr_d TYPE mara-matnr.
CLEAR: v_matnr_d.
* >> Início da exclusão: FORM DELETA_INSUMO
SELECT SINGLE matnr
* << Fim da exclusão
* >> Início da inclusão: FORM DELETA_INSUMO
SELECT SINGLE matnr "#EC CI_NOFIELD
* << Fim da inclusão
FROM /pws/zycit279
INTO v_matnr_d
WHERE matnr EQ itab_insumo-matnr.
* >> Início da exclusão: FORM DELETA_INSUMO
SELECT SINGLE codcomp
* << Fim da exclusão
* >> Início da inclusão: FORM DELETA_INSUMO
SELECT SINGLE codcomp "#EC CI_NOFIRST
* << Fim da inclusão
FROM /pws/zycit260
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR342O01
...
ENDLOOP.
ENDIF.
ENDIF.
ENDMODULE.
MODULE status_0100 OUTPUT.
SET PF-STATUS 'ST0100'.
SET TITLEBAR '0100'.
IF v_ini IS INITIAL.
v_ini = 'X'.
SORT itab_zycit433 BY grupo matnr.
* >> Início da exclusão: MODULE STATUS_0100
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0100
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433."#EC CI_NOWHERE
* << Fim da inclusão
itab_zycit433_s[] = itab_zycit433[].
LOOP AT itab_zycit433.
itab_grupo-grupo = itab_zycit433-grupo .
itab_grupo-desc_g = itab_zycit433-desc_g .
itab_grupo-j_1bnbm = itab_zycit433-j_1bnbm.
itab_grupo-meins = itab_zycit433-meins .
COLLECT itab_grupo.
ENDLOOP.
DELETE itab_grupo WHERE grupo EQ space.
SORT itab_grupo BY grupo.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE433
* >> Início da exclusão
.INCLUDE /PWS/ZYCIT433 0 0 CI - Insumos Alternativos - Drawback
* << Fim da exclusão
* >> Início da inclusão
MANDT MANDT CLNT 3 0 Mandante
MATNR MATNR CHAR 18 0 Nº material
MATNR_ALT MATNR CHAR 18 0 Nº material
GRUPO CHAR4 CHAR 4 0 Área definida imprecisamnt.,evtl.utilizável p/níveis patch
ITEM NUMC4 NUMC 4 0 Parâmetro de numerador
DESC_G MAKTX CHAR 40 0 Texto breve de material
J_1BNBM J_1BNBMCO1 CHAR 16 0 Code NBM brasileiro
MEINS MEINS UNIT 3 0 Unidade de medida básica
MAKTX MAKTX CHAR 40 0 Texto breve de material
DTDE DATUM DATS 8 0 Data
DTATE DATUM DATS 8 0 Data
* << Fim da inclusão
* << Fim da inclusão
* << Fim da inclusão
* << Fim da inclusão