CE PLUS - Nota 005658
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 16/01/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:55:21
Descrição da Nota: PADRONIZAÇÃO - CODE INSPECTOR RECEBIMENTO
Sintoma
Padronização - Code Inspector Recebimento
Solução
Padronização - Code Inspector Recebimento
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05658 Data: 16/01/2008 Hora: 14:58:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05658
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00031
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04074 - 00001 - 7.0 - 00002 - EXIT NA SELEÇÃO DE NF GLOBAL OU REMESSA NO RECEBIMENTO OU ENCERRA
04738 - 00002 - 7.0 - 00002 - RECEBIMENTO
05352 - 00003 - 7.0 - 00003 - CRIADA A EXIT RCB017 NO RECEBIMENTO
----------------------------------------------------------------------------------------------------
PADRONIZAÇÃO - CODE INSPECTOR RECEBIMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PADRONIZAÇÃO - CODE INSPECTOR RECEBIMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
REPS /PWS/MZYCI017F02
REPS /PWS/MZYCI017F03
REPS /PWS/MZYCI017I01
REPS /PWS/MZYCI017O01
REPS /PWS/MZYCI017OO
REPS /PWS/MZYCI017TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
SELECT SINGLE nrseqdi
FROM /pws/zycit085
INTO v_nrseqdi
* >> Início da exclusão: FORM SELECIONA_ITENS_NF
WHERE nrdi = /pws/zycie085-nrdi.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NF
WHERE nrdi = /pws/zycie085-nrdi. "#EC CI_NOFIELD
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM CHAMAR_NFREMESSA
SUBMIT /pws/zycir006 AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMAR_NFREMESSA
SUBMIT /pws/zycir006 AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM CHAMAR_NFGLOBAL
SUBMIT /pws/zycir006 AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMAR_NFGLOBAL
SUBMIT /pws/zycir006 AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
...
...
SELECT nrseq ebeln ebelp qtd_item INTO TABLE itab_qtd
FROM /pws/zycit044
WHERE nrseq = itab_itens_nf-nrseq AND
ebeln = itab_itens_nf-ebeln AND
* >> Início da exclusão: FORM FILL_DATE_MR1M
ebelp = itab_itens_nf-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_MR1M
ebelp = itab_itens_nf-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_zycit263 WHERE
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
nrseq_pgfat = itab_zycit263-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
nrseq_pgfat = itab_zycit263-nrseq_pgfat. "#EC CI_NOFIELD
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit042
INTO TABLE itab_zycit042_aux
FOR ALL ENTRIES IN itab_itens_nf
WHERE nrseq = itab_itens_nf-nrseq
AND ebeln = itab_itens_nf-ebeln
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
AND ebelp = itab_itens_nf-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
AND ebelp = itab_itens_nf-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit029
INTO TABLE itab_zycit029_estat
WHERE estatistico = 'X'
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
AND land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
AND land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM MODO_BATCH_INPUT
SELECT * FROM /pws/zycbt039.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
SELECT * FROM /pws/zycbt039. "#EC CI_NOWHERE
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit223 INTO TABLE itab_zycit223
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq
AND ebelp = itab_zycit003-ebelp
* >> Início da exclusão: FORM EXECUTA_BATCH_INPUT
AND ebeln = itab_zycit003-ebeln.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
AND ebeln = itab_zycit003-ebeln. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit042
INTO CORRESPONDING FIELDS OF TABLE itab_zycit042
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
* >> Início da exclusão: FORM ESTORNA_RECEBIMENTO
AND docnum = /pws/zycie041-docnum .
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_RECEBIMENTO
AND docnum = /pws/zycie041-docnum . "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit044 INTO TABLE it_zycit044
FOR ALL ENTRIES IN itab_zycit036
WHERE
ebeln = itab_zycit036-ebeln AND
ebelp = itab_zycit036-ebelp AND
nrseq = itab_zycit036-nrseq AND
nfglobal = /pws/zycie043-nfglobal AND
* >> Início da exclusão: FORM ESTORNA_RECEBIMENTO
nfremessa NE /pws/zycie043-nfremessa.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_RECEBIMENTO
nfremessa NE /pws/zycie043-nfremessa. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM REVERSE_DOCUMENT_MR8M
CALL CUSTOMER-FUNCTION '002'
EXPORTING
v_sist = 'X'
TABLES
itab_itens = itab_itens_002.
* << Fim da exclusão
...
...
* >> Início da exclusão: FORM REVERSE_DOCUMENT_MR8M
CALL CUSTOMER-FUNCTION '002'
EXPORTING
v_sist = 'X'
TABLES
itab_itens = itab_itens_002.
* << Fim da exclusão
...
...
* >> Início da exclusão: FORM FILL_DATE_F_51
CALL CUSTOMER-FUNCTION '001'
EXPORTING
v_parametro = '01'
IMPORTING
v_subrc = v_subrc
TABLES
itab_itens_nf = itab_itens_nf_aux
itab_zycbt035 = itab_zycbt035
itab_param_classe = itab_param_classe
itab_custo_item = itab_custo_item.
* << Fim da exclusão
...
...
* >> Início da exclusão: FORM FILL_DATE_F_51
CALL CUSTOMER-FUNCTION '001'
EXPORTING
v_parametro = '05'
v_modo_bi = v_modo_bi
v_belnr = v_belnr
v_totline = v_totline
IMPORTING
v_subrc = v_subrc
v_bi_ok = v_bi_ok
TABLES
itab_zycbe033 = itab_zycbe033
itab_zycbt034 = itab_zycbt034
itab_zycbt032 = itab_zycbt032
itab_contas = itab_contas.
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_zycit263 WHERE
* >> Início da exclusão: FORM MULTIPLOS_LANCAMENTOS_F_51
nrseq_pgfat = itab_zycit263-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS_F_51
nrseq_pgfat = itab_zycit263-nrseq_pgfat. "#EC CI_NOFIELD
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM VERIFY_NULL_FIELD
FORM verify_null_field USING value(p_field)
value(p_fieldname)
value(p_description).
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_NULL_FIELD
FORM verify_null_field USING p_field
p_fieldname
p_description.
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM FILL_DATE_F_02
CALL CUSTOMER-FUNCTION '001'
EXPORTING
v_parametro = '02'
wa_global = wa_global
wa_nf = wa_nf_aux
IMPORTING
v_subrc = v_subrc
TABLES
itab_itens_nf = itab_itens_nf
itab_zycbt035 = itab_zycbt035
itab_param_classe = itab_param_classe
itab_custo_item = itab_custo_item
itab_j_1baj = itab_j_1baj.
* << Fim da exclusão
...
...
SELECT * FROM /pws/zycit050
INTO TABLE itab_zycit050
WHERE nrdi EQ /pws/zycie050-nrdi
AND nfnum EQ /pws/zycie050-nfnum
AND series IN itab_series
* >> Início da exclusão: FORM SELECIONAR_NF_ESTORNO
AND subser IN itab_subser.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_NF_ESTORNO
AND subser IN itab_subser. "#EC CI_NOFIELD
* << Fim da inclusão
...
...
SELECT SINGLE bukrs FROM /pws/zycit085
INTO /pws/zycie001-bukrs
* >> Início da exclusão: FORM SELECIONAR_NF_ESTORNO
WHERE nrdi EQ /pws/zycit050-nrdi.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_NF_ESTORNO
WHERE nrdi EQ /pws/zycit050-nrdi. "#EC CI_NOFIELD
* << Fim da inclusão
...
...
FORM drill_down_documentos.
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
DATA v_transacao(4) TYPE c.
* << Fim da inclusão
...
...
SET PARAMETER ID 'RBN' FIELD v_belnr2.
SET PARAMETER ID 'GJR' FIELD v_ano.
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
CLEAR v_transacao.
* << Fim da inclusão
IF sy-saprl = '46B'.
* >> Início da exclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'MR3M' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
v_transacao = 'MR3M'.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
v_transacao = 'MIR4'.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION v_transacao AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
...
...
* >> Início da exclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'MB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'MB03' AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
...
...
ebeln = itab_zycit036-ebeln AND
ebelp = itab_zycit036-ebelp AND
nrseq = itab_zycit036-nrseq AND
nfglobal = /pws/zycie043-nfglobal AND
* >> Início da exclusão: FORM ESTORNA_IMPOSTO
nfremessa NE /pws/zycie043-nfremessa.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_IMPOSTO
nfremessa NE /pws/zycie043-nfremessa. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
IF NOT itab_zycit036_estorno[] IS INITIAL.
SELECT * FROM /pws/zycit044 INTO TABLE it_zycit044
FOR ALL ENTRIES IN itab_zycit036_estorno
WHERE
ebeln = itab_zycit036_estorno-ebeln AND
ebelp = itab_zycit036_estorno-ebelp AND
nrseq = itab_zycit036_estorno-nrseq AND
nfglobal = /pws/zycie043-nfglobal AND
* >> Início da exclusão: FORM ESTORNA_IMPOSTO
nfremessa NE /pws/zycie043-nfremessa.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_IMPOSTO
nfremessa NE /pws/zycie043-nfremessa."#EC CI_NOFIRST
* << Fim da inclusão
...
...
LOOP AT itab_itens_nf.
CLEAR: v_nrseqdid.
SELECT SINGLE nrseqdi INTO v_nrseqdid FROM /pws/zycit100
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_FATURA_MR8M
WHERE nrseq = itab_itens_nf-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_FATURA_MR8M
WHERE nrseq = itab_itens_nf-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT SINGLE nrseqdi INTO v_nrseqdid FROM /pws/zycit100
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_FATURA_MR8M
WHERE nrseq = itab_itens_nf-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_FATURA_MR8M
WHERE nrseq = itab_itens_nf-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_FATURA_MR8M
CALL CUSTOMER-FUNCTION '002'
EXPORTING
v_sist = 'X'
TABLES
itab_itens = itab_itens_002.
* << Fim da exclusão
...
...
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_FATURA_MR8M
CALL CUSTOMER-FUNCTION '002'
EXPORTING
v_sist = 'X'
TABLES
itab_itens = itab_itens_002.
* << Fim da exclusão
...
...
* >> Início da exclusão: FORM FILL_DATE_F_02B
CALL CUSTOMER-FUNCTION '001'
EXPORTING
v_parametro = '03'
wa_global = wa_global
wa_nf = wa_nf_aux
IMPORTING
v_subrc = v_subrc
TABLES
itab_itens_nf = itab_itens_nf
itab_zycbt035 = itab_zycbt035
itab_param_classe = itab_param_classe
itab_custo_item = itab_custo_item.
* << Fim da exclusão
...
...
* >> Início da exclusão: FORM FILL_DATE_F_02FRE
CALL CUSTOMER-FUNCTION '001'
EXPORTING
v_parametro = '04'
wa_global = wa_global
wa_nf = wa_nf_aux
IMPORTING
v_subrc = v_subrc
TABLES
itab_itens_nf = itab_itens_nf
itab_zycbt035 = itab_zycbt035
itab_param_classe = itab_param_classe
itab_custo_item = itab_custo_item.
* << Fim da exclusão
...
...
SELECT * FROM /pws/zycit042
INTO TABLE itab_zycit042
FOR ALL ENTRIES IN itab_itens_nf
WHERE nrseq = itab_itens_nf-nrseq
AND ebeln = itab_itens_nf-ebeln
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
AND ebelp = itab_itens_nf-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
AND ebelp = itab_itens_nf-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit376 INTO TABLE itab_zycit376
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
AND nrseqd NE space.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
AND nrseqd NE space. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit282 INTO TABLE itab_zycit282
FOR ALL ENTRIES IN itab_itens_nf
WHERE nrseqimp = itab_itens_nf-nrseq
AND ebeln = itab_itens_nf-ebeln
* >> Início da exclusão: FORM VERIFICA_SALDO_ATO
AND ebelp = itab_itens_nf-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_SALDO_ATO
AND ebelp = itab_itens_nf-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit223 INTO TABLE itab_zycit223
* >> Início da exclusão: FORM ESTORNA_SALDO_ATO
WHERE nrseq EQ /pws/zycie001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_SALDO_ATO
WHERE nrseq EQ /pws/zycie001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit376 INTO TABLE itab_zycit376d
FOR ALL ENTRIES IN itab_itens_nf
WHERE ebeln EQ itab_itens_nf-ebeln
AND ebelp EQ itab_itens_nf-ebelp
* >> Início da exclusão: FORM ESTORNA_SALDO_ATO
AND nrseqd NE space.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_SALDO_ATO
AND nrseqd NE space. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
UPDATE /pws/zycit042 SET nfnum = wa_nf-nfnum
series = wa_nf-series
subser = wa_nf-subser
WHERE nrseq = wa_nf-nrseq
AND nfglobal = wa_nf-nfglobal
* >> Início da exclusão: FORM FILL_DATE_J1B3_SAIDA
AND docnum = wa_nf-docnum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_J1B3_SAIDA
AND docnum = wa_nf-docnum."#EC CI_NOFIRST
* << Fim da inclusão
...
...
WHERE nrseq = wa_nf-nrseq
AND nfglobal = wa_nf-nfglobal
AND nfremessa = wa_nf-nfremessa
* >> Início da exclusão: FORM FILL_DATE_J1B3_SAIDA
AND docnum = wa_nf-docnum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_J1B3_SAIDA
AND docnum = wa_nf-docnum."#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT SINGLE * FROM /pws/zycit100
* >> Início da exclusão: FORM VERIFICA_TAXA_DOLAR
WHERE nrseq = itab_zycit003-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_TAXA_DOLAR
WHERE nrseq = itab_zycit003-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
* >> Início da exclusão: FORM RECLASSIFICACAO_IA
WHERE nrseq = /pws/zycie001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICACAO_IA
WHERE nrseq = /pws/zycie001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit094 INTO TABLE itab_zycit094
FOR ALL ENTRIES IN itab_zycit003
* >> Início da exclusão: FORM RECLASSIFICACAO_IA
WHERE nrseq = itab_zycit003-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICACAO_IA
WHERE nrseq = itab_zycit003-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
WHERE nrseqce = itab_zycit094-nrseqce AND
* >> Início da exclusão: FORM RECLASSIFICACAO_IA
eliminado = space.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICACAO_IA
eliminado = space. "#EC CI_NOFIELD
* << Fim da inclusão
...
...
SELECT SINGLE * FROM /pws/zycit202
INTO /pws/zycit202
WHERE nrseq EQ itab_zycit044-nrseq
AND ( belnr_mr22 NE space
OR belnr_f_02 NE space
OR belnr_f51_mt0 NE space
OR belnr_f51_mt1 NE space
OR belnr_f51_mt2 NE space
* >> Início da exclusão: FORM VERIFICA_ENCERRAMENTO
OR belnr_f51_mt3 NE space ).
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ENCERRAMENTO
OR belnr_f51_mt3 NE space ). "#EC CI_NOFIELD
* << Fim da inclusão
...
...
SELECT SINGLE * FROM /pws/zycit202
INTO /pws/zycit202
WHERE nrseq EQ itab_zycit042-nrseq
AND ( belnr_mr22 NE space
OR belnr_f_02 NE space
OR belnr_f51_mt0 NE space
OR belnr_f51_mt1 NE space
OR belnr_f51_mt2 NE space
* >> Início da exclusão: FORM VERIFICA_ENCERRAMENTO
OR belnr_f51_mt3 NE space ).
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ENCERRAMENTO
OR belnr_f51_mt3 NE space ). "#EC CI_NOFIELD
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit042
INTO TABLE itab_zycit042_aux
FOR ALL ENTRIES IN itab_itens_nf
WHERE nrseq = itab_itens_nf-nrseq
AND ebeln = itab_itens_nf-ebeln
* >> Início da exclusão: FORM VER_RATEIO
AND ebelp = itab_itens_nf-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM VER_RATEIO
AND ebelp = itab_itens_nf-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit029
INTO TABLE itab_zycit029_estat
WHERE estatistico = 'X'
* >> Início da exclusão: FORM VER_RATEIO
AND land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM VER_RATEIO
AND land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM FILL_DATE_F_02_ANA
CALL CUSTOMER-FUNCTION '001'
EXPORTING
v_parametro = '02'
wa_global = wa_global
wa_nf = wa_nf_aux
IMPORTING
v_subrc = v_subrc
TABLES
itab_itens_nf = itab_itens_nf
itab_zycbt035 = itab_zycbt035
itab_param_classe = itab_param_classe
itab_custo_item = itab_custo_item
itab_j_1baj = itab_j_1baj.
* << Fim da exclusão
...
...
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
FOR ALL ENTRIES IN itab_global
WHERE nrseq = itab_global-nrseq
AND ebeln = itab_global-ebeln
* >> Início da exclusão: FORM ADICIONA_OUTROS_IMPOSTOS
AND ebelp = itab_global-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
AND ebelp = itab_global-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
CALL TRANSACTION 'FB02' USING it_bdc
MODE p_modo_bi
UPDATE 'S'
* >> Início da exclusão: FORM PREENCHE_ATRIBUICAO_F51
MESSAGES INTO it_msg.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ATRIBUICAO_F51
MESSAGES INTO it_msg. "#EC CI_CALLTA
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit223
INTO TABLE itab_zycit223_aux2
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp
* >> Início da exclusão: FORM VERIFICACAO_LOTE
AND nfremessa EQ wa_nf-nfremessa.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICACAO_LOTE
AND nfremessa EQ wa_nf-nfremessa. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM VALIDA_TRANS
CALL TRANSACTION p_transacao AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM VALIDA_TRANS
CALL TRANSACTION p_transacao AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM VALIDA_TRANS
CALL TRANSACTION p_transacao.
* << Fim da exclusão
* >> Início da inclusão: FORM VALIDA_TRANS
CALL TRANSACTION p_transacao. "#EC CI_CALLTA
* << Fim da inclusão
...
...
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 CARREGA_UMNCM_REAL
AND b~land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
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 CARREGA_UMNCM_REAL
WHERE steuc = v_j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
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 CARREGA_UMNCM_REAL
WHERE zum = v_cod_umncm.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
WHERE zum = v_cod_umncm. "#EC CI_NOFIELD
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F03
...
* >> Início da exclusão: FORM ATUALIZA_DADOS_MIRO
CALL CUSTOMER-FUNCTION '002'
EXPORTING
v_sist = ' '
TABLES
itab_itens = itab_itens_002.
* << Fim da exclusão
...
...
SELECT * FROM /pws/zycit442
INTO TABLE itab_zycit442
* >> Início da exclusão: FORM SELECT_TABLES
WHERE nrdi EQ /pws/zycie442-nrdi.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
WHERE nrdi EQ /pws/zycie442-nrdi. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
...
...
IF NOT /pws/zycie085-nrdi IS INITIAL.
SELECT * FROM /pws/zycit085
INTO TABLE itab_zycit085
* >> Início da exclusão: FORM SELECT_TABLES
WHERE nrdi EQ /pws/zycie085-nrdi.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
WHERE nrdi EQ /pws/zycie085-nrdi. "#EC CI_NOFIELD
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit041
INTO CORRESPONDING FIELDS OF TABLE itab_nfg
WHERE nfnum IN itab_nfnum
AND series IN itab_series
AND subser IN itab_subser
* >> Início da exclusão: FORM SELECT_TABLES
AND cancel EQ ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
AND cancel EQ ' '. "#EC CI_NOFIELD
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017I01
...
* >> Início da exclusão: MODULE USER_COMMAND_0010
CALL TRANSACTION 'J1B2' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0010
CALL TRANSACTION 'J1B2' AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
...
...
SELECT SINGLE * FROM /pws/zycit042
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
* >> Início da exclusão: MODULE ALTERA_ITAB_ZYCIT042
AND ebelp = itab_zycit042-ebelp.
* << Fim da exclusão
* >> Início da inclusão: MODULE ALTERA_ITAB_ZYCIT042
AND ebelp = itab_zycit042-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT SINGLE * FROM /pws/zycit044
WHERE nrseq = itab_zycit044-nrseq
AND ebeln = itab_zycit044-ebeln
* >> Início da exclusão: MODULE ALTERA_ITAB_ZYCIT044
AND ebelp = itab_zycit044-ebelp.
* << Fim da exclusão
* >> Início da inclusão: MODULE ALTERA_ITAB_ZYCIT044
AND ebelp = itab_zycit044-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT SINGLE * FROM /pws/zycit044 INTO wa_zycie044
WHERE nrseq = wa_zycie042-nrseq
AND ebeln = wa_zycie042-ebeln
* >> Início da exclusão: MODULE LIMPA_LINHAS
AND ebelp = wa_zycie042-ebelp.
* << Fim da exclusão
* >> Início da inclusão: MODULE LIMPA_LINHAS
AND ebelp = wa_zycie042-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT SINGLE * FROM /pws/zycit044 INTO wa_zycie044
WHERE nrseq = wa_zycie044-nrseq
AND nfglobal = /pws/zycie043-nfglobal
AND nfremessa = /pws/zycie043-nfremessa
AND ebeln = wa_zycie044-ebeln
* >> Início da exclusão: MODULE LIMPA_LINHAS
AND ebelp = wa_zycie044-ebelp.
* << Fim da exclusão
* >> Início da inclusão: MODULE LIMPA_LINHAS
AND ebelp = wa_zycie044-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT SINGLE nrseqdi identify
FROM /pws/zycit085
INTO (v_nrseqdi, v_identify)
* >> Início da exclusão: MODULE TRATA_AJUDA
WHERE nrdi = /pws/zycie085-nrdi.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_AJUDA
WHERE nrdi = /pws/zycie085-nrdi. "#EC CI_NOFIELD
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017O01
...
SELECT SINGLE * FROM /pws/zycit031
WHERE inco1 = /pws/zycie001-inco1
* >> Início da exclusão: MODULE SET_SCREEN
AND land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
AND land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT SINGLE * FROM /pws/zycit031
WHERE inco1 = /pws/zycie001-inco1
* >> Início da exclusão: MODULE SET_SCREEN
AND land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
AND land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
...
...
SELECT * FROM /pws/zycit085
INTO TABLE itab_zycit085
* >> Início da exclusão: MODULE CARREGA_NF
WHERE nrdi EQ /pws/zycie085-nrdi.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_NF
WHERE nrdi EQ /pws/zycie085-nrdi. "#EC CI_NOFIELD
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017OO
...
CLEAR edaction.
CLEAR edframe.
CLEAR edgetdata.
CLEAR edpostdataline.
edaction = action.
edframe = frame.
edgetdata = getdata.
postdata_tab = postdata.
IF NOT edgetdata IS INITIAL.
AUTHORITY-CHECK OBJECT 'S_TCODE'
* >> Início da exclusão:
ID 'TCD' FIELD edgetdata.
* << Fim da exclusão
* >> Início da inclusão:
ID 'TCD' FIELD edgetdata(40).
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE i122 WITH edgetdata.
ELSE.
* >> Início da exclusão:
CALL TRANSACTION edgetdata.
* << Fim da exclusão
* >> Início da inclusão:
CALL TRANSACTION edgetdata. "#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017TOP
...
* >> Início da exclusão:
DATA:
BEGIN OF wa_cols,
screen LIKE screen,
index TYPE i,
selected(1) TYPE c,
vislength LIKE icon-oleng,
invisible(1) TYPE c,
END OF wa_cols.
* << Fim da exclusão
CONTROLS:
tc_lista_nf TYPE TABLEVIEW USING SCREEN '0010',
tc_itens_nfg TYPE TABLEVIEW USING SCREEN '0100',
tc_itens_nfr TYPE TABLEVIEW USING SCREEN '0200',
tc_estorno TYPE TABLEVIEW USING SCREEN '0020',
tc_lote TYPE TABLEVIEW USING SCREEN '0110',
tcontrol_log TYPE TABLEVIEW USING SCREEN '0111'.
* >> Início da inclusão:
DATA wa_cols TYPE cxtab_column.
* << Fim da inclusão
...