CE PLUS - Nota 008421
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 20/05/2009 00:00:00
Data/Hora Última Alteração: 08/09/2010 16:37:05
Descrição da Nota: AJUSTES DE VERIFICAÇÃO AMPLIADA DA LI
Sintoma
Ajustes de verificação ampliada da LI
Solução
Corrigido erros indicados pela verificação ampliada.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08421 Data: 20/05/2009 Hora: 13:46:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08421
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00098
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTES DE VERIFICAÇÃO AMPLIADA DA LI
----------------------------------------------------------------------------------------------------
Palavras Chave:
VERIFICAÇÃO AMPLIADA - CORREÇÃO - MELHORIA - LI
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI020 0113
DYNP /PWS/SAPMZYCI020 0114
DYNP /PWS/SAPMZYCI020 0115
DYNP /PWS/SAPMZYCI020 0810
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020O01
REPS /PWS/MZYCI020TOP
REPS /PWS/MZYCI020X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0113
EXCLUIR CAMPO TEXTO "ITAB_ITC-MATNR" em tbl.contr./tabstr.
EXCLUIR TEXTO "T_MATNR" em tbl.contr./tabstr.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0114
EXCLUIR CAMPO TEXTO "ITAB_ITCI-MATNR" em tbl.contr./tabstr.
EXCLUIR TEXTO "T_MATNR" em tbl.contr./tabstr.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0115
EXCLUIR CAMPO TEXTO "ITAB_ITCIP-MATNR" em tbl.contr./tabstr.
EXCLUIR TEXTO "T_MATNR" em tbl.contr./tabstr.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0810
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0810
PROCESS BEFORE OUTPUT.
MODULE status_0810.
module ordena_lista.
loop at itab_atos2 with control tc_vinculato
cursor tc_vinculato-current_line.
* >> Início da exclusão:
module carrega_it_vinculato.
* << Fim da exclusão
endloop.
PROCESS AFTER INPUT.
loop at itab_atos2.
module modifica_it_vinculato.
endloop.
MODULE user_command_0810.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
FORM find_nrseqc.
DATA:
v_nrseqc LIKE /pws/zycit078-nrseqli,
v_count(7) TYPE n,
* >> Início da exclusão: FORM FIND_NRSEQC
v_ano(4),
v_tpli LIKE /pws/zycit078-tpli.
* << Fim da exclusão
* >> Início da inclusão: FORM FIND_NRSEQC
v_ano(4).
* << Fim da inclusão
IF v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_I'.
* >> Início da exclusão: FORM FIND_NRSEQC
v_tpli = 'N'.
* << Fim da exclusão
wa_zycit078-tpli = 'N'.
/pws/zycie078-tpli = 'N'.
ELSEIF v_tcode EQ '/PWS/ZYCI020_P'.
* >> Início da exclusão: FORM FIND_NRSEQC
v_tpli = 'S'.
wa_zycit078-tpli = 'S'.
/pws/zycie078-tpli = 'S'.
* << Fim da exclusão
* >> Início da inclusão: FORM FIND_NRSEQC
wa_zycit078-tpli = /pws/zycie078-tpli = 'S'.
* << Fim da inclusão
ENDIF.
CONCATENATE '%' 'I' sy-datum+2(2) INTO v_ano.
...
...
FORM save.
...
* >> Início da exclusão: FORM SAVE
v_erro,
* << Fim da exclusão
...
PERFORM: verifica_saldo ,
verifica_saldo_pexpam.
IF v_erro_pexpam EQ 'S' OR
v_erro_drawback EQ 'S'.
EXIT.
ENDIF.
PERFORM save_drawback.
* >> Início da exclusão: FORM SAVE
CLEAR: v_ncm,
v_erro.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE
CLEAR: v_ncm.
* << Fim da inclusão
READ TABLE it_zycit079 INDEX 1.
...
...
FORM load_cnpj.
* >> Início da exclusão: FORM LOAD_CNPJ
DATA: v_branch LIKE t001w-j_1bbranch.
DATA: v_burks LIKE t001-bukrs.
* << Fim da exclusão
...
...
* >> Início da exclusão: FORM LOAD_MOTIVO
FORM load_motivo.
IF NOT /pws/zycie078-motivo IS INITIAL.
SELECT SINGLE descricao
FROM /pws/zycit141
INTO v_descmotivo
WHERE codfunleg = /pws/zycie078-codfunleg
AND motivo = /pws/zycie078-motivo.
ELSE.
CLEAR v_descmotivo.
ENDIF.
ENDFORM.
* << Fim da exclusão
...
...
FORM find_nrseqc_pli.
...
* >> Início da exclusão: FORM FIND_NRSEQC_PLI
v_tpli LIKE /pws/zycit078-tpli,
* << Fim da exclusão
...
...
* >> Início da exclusão: FORM DESCRAPLICPLI
FORM descraplicpli.
ENDFORM.
* << Fim da exclusão
...
...
FORM load_especificacao.
...
* >> Início da exclusão: FORM LOAD_ESPECIFICACAO
v_esp6,
* << Fim da exclusão
...
...
FORM verifica_vltotal_local_emb.
...
* >> Início da exclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
v_existe_bl ,
* << Fim da exclusão
...
...
FORM verificacao_sub.
...
* >> Início da exclusão: FORM VERIFICACAO_SUB
DATA: v_tabix LIKE sy-tabix,
v_id LIKE /pws/zycit200-id.
* << Fim da exclusão
...
...
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi EQ /pws/zycit100-nrseqdi.
SELECT * FROM /pws/zycit114
INTO TABLE it_zycit114
WHERE nrseqdi EQ /pws/zycit100-nrseqdi
AND adicao EQ /pws/zycit100-adicao.
* >> Início da exclusão: FORM VERIFICACAO_SUB
CLEAR v_id.
* << Fim da exclusão
READ TABLE it_zycit003_aux
WITH KEY ebeln = /pws/zycit100-ebeln
ebelp = /pws/zycit100-ebelp.
IF /pws/zycie078-tpli EQ 'N'.
CLEAR: v_descrlog.
IF /pws/zycie078-fabric NE it_zycit003_aux-fabric.
CONCATENATE text-129 it_zycit079-ebeln text-121
it_zycit079-ebelp text-128 INTO v_descrlog
SEPARATED BY space.
MOVE: it_zycit079-ebeln TO it_log-ebeln,
...
...
* >> Início da exclusão: FORM VERIFICA_SALDO_DRAWBACK
FORM verifica_saldo_drawback.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_SALDO_DRAWBACK
FORM verifica_saldo_drawback. "#EC CALLED
* << Fim da inclusão
CLEAR v_erro_drawback.
IF /pws/zycie078-nrseqd IS INITIAL .
EXIT.
ENDIF.
IF v_verficado IS INITIAL.
MESSAGE s061 WITH text-407 text-402.
v_erro_drawback = 'S'.
EXIT.
ENDIF.
IF it_zycit245[] IS INITIAL.
CLEAR it_zycit245. REFRESH it_zycit245.
SELECT * FROM /pws/zycit245
INTO TABLE it_zycit245
WHERE nrseqd EQ /pws/zycie078-nrseqd.
ENDIF.
* >> Início da exclusão: FORM VERIFICA_SALDO_DRAWBACK
.
* << Fim da exclusão
LOOP AT it_zycit079.
...
...
IF /pws/zycbt007-bukrs NE /pws/zycit078-bukrs.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycit078-bukrs.
ENDIF.
SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078
* >> Início da exclusão: FORM SAVE_DRAWBACK
WHERE nrseqli EQ /pws/zycie078-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DRAWBACK
WHERE nrseqli EQ /pws/zycie078-nrseqli
and tpli eq /pws/zycie078-tpli.
* << Fim da inclusão
IF NOT wa_zycit078-nrseqd IS INITIAL.
SELECT * FROM /pws/zycit245 INTO TABLE it_zycit245
WHERE nrseqd EQ wa_zycit078-nrseqd
...
...
SELECT ebeln ebelp matnr mfrpn FROM ekpo
INTO TABLE it_ekpo_temp
FOR ALL ENTRIES IN it_zycit079
WHERE ebeln EQ it_zycit079-ebeln
AND ebelp EQ it_zycit079-ebelp.
* >> Início da exclusão: FORM COMM_SAVEPLI
SELECT * FROM /pws/zycit219
INTO TABLE it_zycit219
FOR ALL ENTRIES IN it_zycit079
WHERE codigo EQ it_zycit079-codsufra
AND ncm EQ it_zycit079-ncm
AND destaque EQ it_zycit079-destaque.
* << Fim da exclusão
ENDIF.
IF NOT it_ekpo_temp[] IS INITIAL.
SELECT * FROM /pws/zycit338
INTO TABLE it_zycit338
FOR ALL ENTRIES IN it_ekpo_temp
WHERE matnr EQ it_ekpo_temp-matnr.
ENDIF.
...
...
FORM savepli.
* >> Início da exclusão: FORM SAVEPLI
DATA: v_ncm LIKE /pws/zycie078-steuc1,
v_erro,
v_steuc1 LIKE /pws/zycie078-steuc1,
v_fornecedor LIKE /pws/zycit079-lifnr,
it_temp79 LIKE it_zycit079 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVEPLI
DATA:
v_steuc1 LIKE /pws/zycie078-steuc1.
* << Fim da inclusão
...
...
IF /pws/zycie078-classific EQ '2'.
CLEAR: /pws/zycie078-steuc1,
wa_zycit078-steuc1.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SAVEPLI
IF t001-land1 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie078-bukrs.
ENDIF.
* << Fim da inclusão
IF /pws/zycie078-zum IS INITIAL.
SELECT SINGLE /pws/zum
FROM t604f
INTO (/pws/zycie078-zum)
* >> Início da exclusão: FORM SAVEPLI
WHERE steuc EQ /pws/zycie078-steuc1. "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM SAVEPLI
WHERE steuc EQ /pws/zycie078-steuc1 "#EC CI_GENBUFF
and land1 eq t001-land1.
* << Fim da inclusão
ENDIF.
IF v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_P' OR
v_tcode EQ '/PWS/ZYCI020_I'.
PERFORM verifica_nrseq_gravado.
ENDIF.
...
...
IF NOT /pws/zycie078-aplicpli EQ '2'.
SELECT * FROM /pws/zycit219 INTO TABLE itab_zycit219
WHERE codigo = it_zycit079-codsufra
AND ncm = v_steuc2
AND destaque = it_zycit079-destaque.
* >> Início da inclusão: FORM CARREGA_PRE_CRITICA_PLI
READ TABLE itab_zycit219 INDEX 1.
* << Fim da inclusão
IF sy-subrc NE 0.
CONCATENATE text-377 it_zycit079-ebeln '/' it_zycit079-ebelp
text-378 INTO v_texto SEPARATED BY space.
PERFORM monta_it_precritica USING
v_texto '@0A@' '' text-331.
ENDIF.
ENDIF.
ENDLOOP.
...
...
* >> Início da exclusão: FORM CONVERTE_UM_BASE
FORM converte_um_base USING p_matnr
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_BASE
FORM converte_um_base USING p_matnr "#EC CALLED
* << Fim da inclusão
CHANGING p_meins
p_qtd.
...
...
* >> Início da exclusão: FORM CONVERTE_UM_BASE
DATA: v_conv1 TYPE /pws/zycit245-qtd_ncm,
v_conv2 TYPE /pws/zycit245-qtd_ncm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_BASE
DATA: v_conv1 TYPE /pws/zycit245-qtd_ncm.
* << Fim da inclusão
CLEAR: v_um_rez, v_um_ren.
SELECT SINGLE meins FROM mara INTO v_meinsb
WHERE matnr EQ p_matnr.
IF p_meins = v_meinsb.
EXIT.
ENDIF.
v_conv1 = 1.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE_OLD'
EXPORTING
input = v_conv1
no_type_check = 'X'
round_sign = 'X'
unit_in = p_meins
unit_out = v_meinsb
IMPORTING
denominator = v_um_ren
numerator = v_um_rez
* >> Início da exclusão: FORM CONVERTE_UM_BASE
output = v_conv2
* << Fim da exclusão
EXCEPTIONS
conversion_not_found = 1
division_by_zero = 2
input_invalid = 3
output_invalid = 4
overflow = 5
type_invalid = 6
units_missing = 7
unit_in_not_found = 8
unit_out_not_found = 9
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
FORM vinculacao.
* >> Início da exclusão: FORM VINCULACAO
DATA: v_tabix LIKE sy-tabix,
v_id LIKE /pws/zycit200-id.
DATA: BEGIN OF it_zycit200 OCCURS 10.
INCLUDE STRUCTURE /pws/zycit200.
DATA: END OF it_zycit200.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO
DATA: v_tabix LIKE sy-tabix.
* << Fim da inclusão
...
...
ENDIF.
ENDIF.
ELSE.
v_fat = '1'.
ENDIF.
* >> Início da exclusão: FORM VINCULACAO
CLEAR v_di.
* << Fim da exclusão
SELECT SINGLE * FROM /pws/zycit100
WHERE nrseq EQ wa_zycit001-nrseq
AND ebeln EQ it_zycit079-ebeln
AND ebelp EQ it_zycit079-ebelp. "#EC CI_NOFIRST
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi EQ /pws/zycit100-nrseqdi.
SELECT * FROM /pws/zycit114
INTO TABLE it_zycit114
WHERE nrseqdi EQ /pws/zycit100-nrseqdi
AND adicao EQ /pws/zycit100-adicao.
* >> Início da exclusão: FORM VINCULACAO
CLEAR v_id.
* << Fim da exclusão
MOVE: /pws/zycit100-nrseqdi TO /pws/zycie078-nrseqdi,
* >> Início da exclusão: FORM VINCULACAO
/pws/zycit100-nrseqdi TO v_id ,
* << Fim da exclusão
/pws/zycit085-nrdi TO /pws/zycie078-nrdi ,
/pws/zycit100-adicao TO /pws/zycie078-adicao ,
/pws/zycit085-dtreg TO /pws/zycie078-dtregdi.
...
...
PERFORM save.
* >> Início da exclusão: FORM COMM_SAVE
IF v_tcode EQ '/PWS/ZYCI020_C'.
v_salvo = 'S'.
ENDIF.
* << Fim da exclusão
ENDFORM.
...
...
FORM fill_desc.
* >> Início da exclusão: FORM FILL_DESC
DATA: v_matnr LIKE ekpo-matnr,
v_mat(18) TYPE c.
* << Fim da exclusão
...
...
FORM chama_func_cliente.
* >> Início da exclusão: FORM CHAMA_FUNC_CLIENTE
DATA: v_resposta TYPE c.
* << Fim da exclusão
DATA: wa_temp LIKE itab_report_cliente.
READ TABLE itab_report_cliente INDEX v_cur.
MOVE 'X' TO itab_report_cliente-v_mark.
MOVE itab_report_cliente TO wa_temp.
MODIFY itab_report_cliente FROM wa_temp
TRANSPORTING v_mark
WHERE codmod = 'X'
AND repid = wa_temp-repid.
* >> Início da exclusão: FORM CHAMA_FUNC_CLIENTE
CLEAR v_resposta.
* << Fim da exclusão
READ TABLE itab_report_cliente WITH KEY v_mark = 'X'.
IF sy-subrc = 0.
v_repid = itab_report_cliente-repid.
ELSE.
PERFORM chama_zyci_relatorio.
ENDIF.
ENDFORM.
...
...
FORM atual_item.
* >> Início da exclusão: FORM ATUAL_ITEM
DATA: it_zycit079_verif LIKE /pws/zycit079 OCCURS 0 WITH HEADER LINE.
DATA: v_tpli LIKE /pws/zycie078-tpli.
CLEAR : it_zycit079_verif, v_tpli.
REFRESH: it_zycit079_verif.
v_tpli = 'N'.
* << Fim da exclusão
LOOP AT it_zycit079_del.
DELETE FROM /pws/zycit079 WHERE nrseqli = it_zycit079_del-numli
* >> Início da exclusão: FORM ATUAL_ITEM
AND tpli = v_tpli
* << Fim da exclusão
* >> Início da inclusão: FORM ATUAL_ITEM
AND tpli = 'N'
* << Fim da inclusão
AND ebeln = it_zycit079_del-ebeln
AND ebelp = it_zycit079_del-ebelp.
COMMIT WORK.
* >> Início da exclusão: FORM ATUAL_ITEM
SELECT * FROM /pws/zycit079 INTO TABLE it_zycit079_verif
* << Fim da exclusão
* >> Início da inclusão: FORM ATUAL_ITEM
SELECT SINGLE * FROM /pws/zycit079
* << Fim da inclusão
WHERE nrseqli EQ it_zycit079_del-numli.
IF sy-subrc NE 0 .
DELETE FROM /pws/zycit078 WHERE nrseqli = it_zycit079_del-numli.
DELETE FROM /pws/zycit080 WHERE nrseqli = it_zycit079_del-numli.
DELETE FROM /pws/zycit081 WHERE nrseqli = it_zycit079_del-numli.
DELETE FROM /pws/zycit109 WHERE nrseqli = it_zycit079_del-numli
* >> Início da exclusão: FORM ATUAL_ITEM
AND tpli = v_tpli.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUAL_ITEM
AND tpli = 'N'.
* << Fim da inclusão
COMMIT WORK.
ENDIF.
ENDLOOP.
ENDFORM.
FORM save_novoreg.
...
* >> Início da exclusão: FORM SAVE_NOVOREG
v_nrseq LIKE /pws/zycie078-nrseqli,
v_tpli LIKE /pws/zycie078-tpli ,
* << Fim da exclusão
...
CLEAR :it_zycit079_ncm, it_zycit079_ncm2, it_itensli_alt , it_ncm,
* >> Início da exclusão: FORM SAVE_NOVOREG
v_steuc1, v_nrseq , v_tpli, v_lin079, v_linncm.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_NOVOREG
v_steuc1, v_lin079, v_linncm.
* << Fim da inclusão
REFRESH:it_zycit079_ncm, it_zycit079_ncm2, it_itensli_alt , it_ncm.
v_pliorig = /pws/zycie078-nrseqli.
* >> Início da exclusão: FORM SAVE_NOVOREG
v_tpli = 'N'.
* << Fim da exclusão
LOOP AT it_zycit079.
MOVE it_zycit079-steuc1 TO it_ncm-ncm.
MOVE it_zycit079-lifnr TO it_ncm-lifnr.
MOVE it_zycit079-codsufra TO it_ncm-codsufra.
APPEND it_ncm.
...
...
FORM gera_seq_novoreg.
...
* >> Início da exclusão: FORM GERA_SEQ_NOVOREG
v_nrseq_v LIKE /pws/zycie078-nrseqli.
* << Fim da exclusão
...
CONCATENATE '%' 'I' sy-datum+2(2) INTO v_ano2.
SELECT MAX( nrseqli ) INTO (v_nrseqli2) FROM /pws/zycit078
WHERE nrseqli LIKE v_ano2.
v_count2 = v_nrseqli2+0(7) + 1.
CONCATENATE v_count2+0(7) 'I' sy-datum+2(2) INTO
/pws/zycie078c-nrseqli.
* >> Início da exclusão: FORM GERA_SEQ_NOVOREG
MOVE: /pws/zycie078c-nrseqli TO v_nrseq_v.
* << Fim da exclusão
MOVE: /pws/zycie078c TO /pws/zycit078.
INSERT /pws/zycit078.
WHILE sy-subrc NE 0.
CONCATENATE '%' 'I' sy-datum+2(2) INTO v_ano2.
SELECT MAX( nrseqli ) INTO (v_nrseqli2) FROM /pws/zycit078
WHERE nrseqli LIKE v_ano2.
v_count2 = v_nrseqli2+0(7) + 1.
CONCATENATE v_count2+0(7) 'I' sy-datum+2(2) INTO
/pws/zycie078c-nrseqli.
INSERT INTO /pws/zycit078 VALUES /pws/zycie078c.
...
...
DATA: v_steuc1 LIKE /pws/zycie078-steuc1 ,
* >> Início da exclusão: FORM VERIFICA_NOVOREG
v_nrseq LIKE /pws/zycie078-nrseqli,
v_tpli LIKE /pws/zycie078-tpli ,
* << Fim da exclusão
v_linncm(3) TYPE c ,
v_lifnr LIKE /pws/zycit079-lifnr,
v_codsufra LIKE /pws/zycit079-codsufra.
* >> Início da exclusão: FORM VERIFICA_NOVOREG
CLEAR :it_zycit079_verif, it_ncm, v_steuc1, v_nrseq, v_tpli, v_linncm.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NOVOREG
CLEAR :it_zycit079_verif, it_ncm, v_steuc1, v_linncm.
* << Fim da inclusão
REFRESH:it_zycit079_verif, it_ncm.
LOOP AT it_zycit079.
IF it_zycit079-numli IS INITIAL.
MOVE it_zycit079 TO it_zycit079_verif.
APPEND it_zycit079_verif.
ENDIF.
ENDLOOP.
v_pliorig = /pws/zycie078-nrseqli.
* >> Início da exclusão: FORM VERIFICA_NOVOREG
v_tpli = 'N'.
* << Fim da exclusão
LOOP AT it_zycit079_verif.
MOVE it_zycit079_verif-steuc1 TO it_ncm-ncm.
MOVE it_zycit079_verif-lifnr TO it_ncm-lifnr.
MOVE it_zycit079_verif-codsufra TO it_ncm-codsufra.
APPEND it_ncm.
ENDLOOP.
...
...
FORM gera_nrforn.
* >> Início da exclusão: FORM GERA_NRFORN
DATA: v_nrforn LIKE /pws/zycit080-nrforn,
v_forn(1),
v_seq(1).
CLEAR: it_zycit080, v_forn, v_exit.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NRFORN
DATA: v_nrforn LIKE /pws/zycit080-nrforn.
CLEAR: it_zycit080, v_exit.
* << Fim da inclusão
REFRESH: it_zycit080.
...
...
* >> Início da exclusão: FORM LOAD_TEXT
FORM load_text.
FREE rtexti[].
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZTLI'
language = sy-langu
name = v_txtki
object = '/PWS/ITLI'
TABLES
lines = itab_tline
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc NE 0.
IF NOT it_zycit079-codsufra IS INITIAL AND
NOT it_zycit079-steuc1 IS INITIAL AND
NOT it_zycit079-destaque IS INITIAL.
READ TABLE it_zycit219 WITH KEY codigo = it_zycit079-codsufra
ncm = it_zycit079-steuc1
destaque = it_zycit079-destaque.
rtexti-tdline = v_esp.
APPEND rtexti.
ELSE.
CLEAR v_esp.
FREE rtexti[].
ENDIF.
ENDIF.
ENDFORM.
* << Fim da exclusão
...
...
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
FORM pega_descricao_dominio USING p_campo
p_valor
CHANGING v_retorno.
DATA: wa_dd03l LIKE dd03l.
DATA: BEGIN OF itab_dd07t OCCURS 5.
INCLUDE STRUCTURE dd07t.
DATA: END OF itab_dd07t.
DATA: tablename LIKE dd03l-tabname,
fieldname LIKE dd03l-fieldname.
SPLIT p_campo AT '-' INTO tablename fieldname.
IF sy-subrc NE 0.
EXIT.
ENDIF.
SELECT SINGLE *
FROM dd03l
INTO wa_dd03l
WHERE tabname = tablename AND
fieldname = fieldname.
IF sy-subrc EQ 0.
SELECT * FROM dd07t
INTO TABLE itab_dd07t
WHERE domname = wa_dd03l-domname AND
ddlanguage = sy-langu(1).
IF sy-subrc = 0.
READ TABLE itab_dd07t WITH KEY domvalue_l = p_valor.
IF sy-subrc EQ 0.
v_retorno = itab_dd07t-ddtext.
ELSE.
LOOP AT itab_dd07t WHERE domvalue_l IS initial.
IF p_valor GE itab_dd07t-domval_ld AND
p_valor LE itab_dd07t-domval_hd.
v_retorno = itab_dd07t-ddtext.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da exclusão
...
...
* >> Início da exclusão: FORM LOAD_VALOR_FOB_PED
FORM load_valor_fob_ped.
DATA v_netpr LIKE /pws/zycit079-netpr.
LOOP AT it_zycit287.
MOVE-CORRESPONDING it_zycit287 TO it_zycit287_aux.
CLEAR v_kposn_fob.
CONCATENATE '0' it_zycit079-ebelp INTO v_kposn_fob.
LOOP AT itab_komv
WHERE kposn EQ v_kposn_fob
AND kschl EQ it_zycit287-kschl
AND ebeln EQ it_zycit079-ebeln.
it_zycit287_aux-valor = itab_komv-kwert /
it_zycit079-menge.
APPEND it_zycit287_aux.
ENDLOOP.
ENDLOOP.
LOOP AT it_zycit287_aux.
IF it_zycit287_aux-fator EQ '+'.
v_netpr = v_netpr + it_zycit287_aux-valor .
ELSE.
v_netpr = v_netpr - it_zycit287_aux-valor.
ENDIF.
AT END OF codigo.
it_zycit079-netpr = v_netpr.
CLEAR v_netpr.
ENDAT.
ENDLOOP.
FREE it_zycit287_aux.
ENDFORM.
* << Fim da exclusão
FORM seleciona_ppb TABLES p_itab_zycit338 STRUCTURE itab_zycit338
* >> Início da exclusão: FORM SELECIONA_PPB
CHANGING it_zycit079-destaque
it_zycit079-fator
it_zycit079-zum
it_zycit079-codsufra.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PPB
CHANGING p_destaque
p_fator
p_zum
p_codsufra.
* << Fim da inclusão
...
...
ENDIF.
ELSE.
READ TABLE p_itab_zycit338 INDEX 1.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM SELECIONA_PPB
MOVE: p_itab_zycit338-destaque TO it_zycit079-destaque,
p_itab_zycit338-fator TO it_zycit079-fator,
p_itab_zycit338-unit_estat TO it_zycit079-zum,
p_itab_zycit338-codsufra TO it_zycit079-codsufra.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PPB
MOVE: p_itab_zycit338-destaque TO p_destaque,
p_itab_zycit338-fator TO p_fator,
p_itab_zycit338-unit_estat TO p_zum,
p_itab_zycit338-codsufra TO p_codsufra.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM COTA_SUFRAMA
FORM cota_suframa USING it_zycit079-ncm
it_zycit079-destaque
it_zycit079-codsufra.
* << Fim da exclusão
* >> Início da inclusão: FORM COTA_SUFRAMA
FORM cota_suframa USING p_ncm
p_destaque
p_codsufra.
* << Fim da inclusão
DATA v_answer(01) TYPE c.
SELECT SINGLE *
FROM /pws/zycit431
* >> Início da exclusão: FORM COTA_SUFRAMA
WHERE prd_suf EQ it_zycit079-codsufra
AND ncm EQ it_zycit079-ncm
AND det_ncm EQ it_zycit079-destaque.
* << Fim da exclusão
* >> Início da inclusão: FORM COTA_SUFRAMA
WHERE prd_suf EQ p_codsufra
AND ncm EQ p_ncm
AND det_ncm EQ p_destaque.
* << Fim da inclusão
IF sy-subrc EQ 0.
CLEAR v_answer.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
...
...
DATA: v_cod_umncm LIKE /pws/zyglt204-zum ,
v_codpais LIKE /pws/zycev604-land1 ,
v_meinsb LIKE marm-meinh,
v_um_rez TYPE i,
v_um_ren TYPE i,
v_um_rez2 TYPE i,
v_um_ren2 TYPE i,
v_um_rez1 LIKE marm-umrez,
v_um_ren1 LIKE marm-umren,
v_j_1bnbm LIKE /pws/zycit247-j_1bnbm,
* >> Início da exclusão: FORM CONVERTE_UM_NCM
v_umncm LIKE /pws/zyglt204-msehi ,
v_qtd_ncm LIKE /pws/zycit247-qtd_ncm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
v_umncm LIKE /pws/zyglt204-msehi .
* << Fim da inclusão
DATA: v_conv1 TYPE /pws/zycit245-qtd_ncm,
* >> Início da exclusão: FORM CONVERTE_UM_NCM
v_conv2 TYPE /pws/zycit245-qtd_ncm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
v_conv2 TYPE /pws/zycit245-qtd_ncm. "#EC NEEDED
* << Fim da inclusão
CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm,
v_um_rez2, v_um_ren2.
CLEAR v_cod_umncm.
...
...
FORM consiste_aplicacao.
* >> Início da inclusão: FORM CONSISTE_APLICACAO
DATA: v_destaque TYPE /pws/zycit079-destaque,
v_fator TYPE /pws/zycit079-fator ,
v_zum TYPE /pws/zycit079-zum ,
v_codsufra TYPE /pws/zycit079-codsufra.
* << Fim da inclusão
IF /pws/zycie078-tpli EQ 'N'
AND /pws/zycie078-flagpli EQ 'X'.
IF NOT /pws/zycie078-aplicpli EQ '2'.
SELECT *
FROM /pws/zycit338
INTO TABLE itab_zycit338
WHERE matnr EQ itab_itens-matnr.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM CONSISTE_APLICACAO
v_destaque = it_zycit079-destaque.
v_fator = it_zycit079-fator .
v_zum = it_zycit079-zum .
v_codsufra = v_codsufra.
* << Fim da inclusão
PERFORM seleciona_ppb TABLES itab_zycit338
* >> Início da exclusão: FORM CONSISTE_APLICACAO
CHANGING it_zycit079-destaque
it_zycit079-fator
it_zycit079-zum
it_zycit079-codsufra.
IF NOT it_zycit079-codsufra IS INITIAL
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_APLICACAO
CHANGING v_destaque
v_fator
v_zum
v_codsufra.
IF NOT v_codsufra IS INITIAL
* << Fim da inclusão
AND v_incentivo IS INITIAL.
SELECT SINGLE * FROM /pws/zycit218
WHERE incent_zfm EQ 'X'
* >> Início da exclusão: FORM CONSISTE_APLICACAO
AND codigo EQ it_zycit079-codsufra.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_APLICACAO
AND codigo EQ v_codsufra.
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE w061 WITH text-428.
v_incentivo = 'X'.
ENDIF.
ENDIF.
PERFORM cota_suframa USING itab_itens-j_1bnbm
* >> Início da exclusão: FORM CONSISTE_APLICACAO
it_zycit079-destaque
it_zycit079-codsufra.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_APLICACAO
v_destaque
v_codsufra.
* << Fim da exclusão
SELECT SINGLE * FROM /pws/zycit219
WHERE codigo EQ itab_zycit338-codsufra AND
* >> Início da exclusão: FORM CONSISTE_APLICACAO
ncm EQ it_zycit079-ncm
AND destaque EQ it_zycit079-destaque.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_APLICACAO
ncm EQ v_ncm
AND destaque EQ v_destaque.
* << Fim da exclusão
IF sy-subrc EQ 0 AND /pws/zycit219-flagdest EQ 'X'.
MOVE: '999' TO it_anu2-codncm,
/pws/zycie078-nrseqli TO it_anu2-nrseqli,
it_zycit079-ebeln TO it_anu2-ebeln,
it_zycit079-ebelp TO it_anu2-ebelp.
APPEND it_anu2.
ENDIF.
ELSE.
...
...
* >> Início da exclusão: FORM CHECA_NCM
FORM checa_ncm CHANGING p_subrc.
FREE itab_steuc.
LOOP AT it_zycit079.
MOVE it_zycit079-steuc1 TO itab_steuc-steuc.
COLLECT itab_steuc.
ENDLOOP.
DESCRIBE TABLE itab_steuc LINES v_line.
IF v_line GT 1.
MESSAGE i039 WITH text-438.
p_subrc = 4.
ELSE.
p_subrc = 0.
ENDIF.
ENDFORM.
* << Fim da exclusão
...
...
FORM vincular_atoc.
...
* >> Início da exclusão: FORM VINCULAR_ATOC
v_grupo TYPE /pws/zycit433-grupo,
* << Fim da exclusão
v_dele TYPE c.
...
...
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ space.
ENDIF.
SELECT * FROM /pws/zycit244 INTO TABLE it_zycit244
WHERE status EQ 'D'
AND ( tipo EQ 'C' OR tipo EQ 'G' OR tipo EQ 'N' )
AND vcto_vg >= sy-datlo. "#EC CI_NOFIELD
SELECT * FROM /pws/zycit245 INTO TABLE it_zycit245
FOR ALL ENTRIES IN it_zycit244
WHERE nrseqd EQ it_zycit244-nrseqd
* >> Início da exclusão: FORM VINCULAR_ATOC
AND nritem < 90000. "#EC PORTABLE
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULAR_ATOC
AND nritem < 90000. "#EC PORTABLE
* << Fim da inclusão
IF /pws/zycit321-c_comum NE 'X'.
SELECT * FROM /pws/zycit433
INTO TABLE itab_zycit433 "#EC CI_NOFIELD
WHERE dtde <= sy-datlo
AND dtate >= sy-datlo.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
MODULE altera_it_zycit079 INPUT.
* >> Início da exclusão: MODULE ALTERA_IT_ZYCIT079
DATA: v_difpos LIKE ekpo-menge,
v_valor_uebto LIKE ekpo-menge,
v_difneg LIKE /pws/zycit079-menge.
* << Fim da exclusão
...
...
* >> Início da exclusão: MODULE LOAD_REQUIRED
MODULE load_required INPUT.
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE078-STEUC1'.
IF screen-input EQ '1'.
IF /pws/zycie078-classific EQ ' ' OR
/pws/zycie078-classific EQ '1'.
IF /pws/zycie078-steuc1 IS INITIAL.
MESSAGE e015 WITH text-034.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDMODULE.
* << Fim da exclusão
...
...
MODULE load_cnpj INPUT.
* >> Início da exclusão: MODULE LOAD_CNPJ
DATA: v_branch LIKE t001w-j_1bbranch.
DATA: v_burks LIKE t001-bukrs.
* << Fim da exclusão
...
...
* >> Início da exclusão: MODULE MASK2
MODULE mask2 INPUT.
DATA: v_str2 TYPE i,
v_nrdrawback_aux(13).
CLEAR: v_str2,
v_nrdrawback_aux.
v_str2 = strlen( v_nrdrawback ).
CHECK NOT v_str2 IS INITIAL.
IF v_str2 GT 13.
MESSAGE e015 WITH text-102 text-101.
ELSEIF v_str2 LT 13.
/pws/zycie078-nrdrawback = v_nrdrawback.
v_nrdrawback_aux = v_nrdrawback.
WRITE v_nrdrawback_aux TO v_nrdrawback_aux RIGHT-JUSTIFIED.
OVERLAY v_nrdrawback_aux WITH '000000000000'.
CONCATENATE v_nrdrawback_aux+0(04) '-' v_nrdrawback_aux+4(02) '-'
v_nrdrawback_aux+6(06) '-' v_nrdrawback_aux+12(1) INTO
v_nrdrawback.
ELSEIF v_str2 EQ 13.
/pws/zycie078-nrdrawback = v_nrdrawback.
CONCATENATE v_nrdrawback+0(04) '-' v_nrdrawback+4(02) '-'
v_nrdrawback+6(06) '-' v_nrdrawback+12(1) INTO
v_nrdrawback.
ENDIF.
ENDMODULE.
* << Fim da exclusão
...
...
MODULE trata_saldo_pexpam INPUT.
* >> Início da exclusão: MODULE TRATA_SALDO_PEXPAM
DATA: v_saldoant LIKE /pws/zycit079-qtd_iten.
* << Fim da exclusão
...
...
* >> Início da exclusão: MODULE ALTERA_IT_ZYCIT079_500
MODULE altera_it_zycit079_500 INPUT.
MOVE:
/pws/zycie079-ebeln TO it_zycit079-ebeln ,
/pws/zycie079-ebelp TO it_zycit079-ebelp,
/pws/zycie079-descr TO it_zycit079-descr,
/pws/zycie079-bednr TO it_zycit079-bednr,
/pws/zycie079-menge TO it_zycit079-menge,
/pws/zycie079-meins TO it_zycit079-meins,
/pws/zycie079-netpr TO it_zycit079-netpr,
/pws/zycie079-qtd_iten TO it_zycit079-qtd_iten ,
/pws/zycie079-ntgew TO it_zycit079-ntgew ,
/pws/zycie079-gewei TO it_zycit079-gewei,
mark TO it_zycit079-mark.
it_zycit079-nrseqli = /pws/zycie078-nrseqli.
it_zycit079-slqtde = /pws/zycie092-slqtde.
MODIFY it_zycit079 INDEX tc_item_pli-current_line.
IF sy-subrc NE 0.
READ TABLE it_zycit079_aux WITH KEY
ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
IF sy-subrc NE 0.
CLEAR it_zycit092.
READ TABLE it_zycit092 WITH KEY
ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
IF sy-subrc EQ 0.
MOVE: it_zycit092-slqtde TO it_zycit079-qtd_iten,
it_zycit092-menge TO it_zycit079-menge.
ELSE.
MOVE it_zycit079-menge TO it_zycit079-qtd_iten.
ENDIF.
APPEND it_zycit079.
APPEND it_zycit079 TO it_zycit079_aux.
ELSE.
MESSAGE w061 WITH text-006 it_zycit079-ebelp
text-007 it_zycit079-ebeln.
ENDIF.
ENDIF.
ENDMODULE.
* << Fim da exclusão
...
...
* >> Início da exclusão: MODULE CLEAR_CAMPOS_LSI
MODULE clear_campos_lsi INPUT.
CLEAR: /pws/zycie078-codregtri ,
/pws/zycie078-codfunleg ,
/pws/zycie078-motivofunleg,
/pws/zycie078-classific ,
/pws/zycie078-steuc1 ,
/pws/zycie078-codtsp ,
/pws/zycie078-codncm .
ENDMODULE.
* << Fim da exclusão
...
...
* >> Início da exclusão: MODULE USER_COMMAND_0504
MODULE user_command_0504 INPUT.
CASE okcode.
WHEN 'LEAVE' OR 'BACK'.
CLEAR okcode.
LEAVE TO SCREEN '0200'.
ENDCASE.
ENDMODULE.
* << Fim da exclusão
...
...
* >> Início da exclusão: MODULE LOAD_FABRIC_DETITEM
MODULE load_fabric_detitem INPUT.
IF /pws/zycie079a-fabric EQ 2.
SELECT SINGLE * FROM ekpo
WHERE ebeln EQ /pws/zycie079a-ebeln
AND ebelp EQ /pws/zycie079a-ebelp.
IF /pws/zycie079a-lifnr IS INITIAL.
/pws/zycie079a-lifnr = ekpo-mfrnr.
ENDIF.
ENDIF.
ENDMODULE.
* << Fim da exclusão
...
...
MODULE user_command_0810 INPUT.
* >> Início da exclusão: MODULE USER_COMMAND_0810
DATA: BEGIN OF it_zycit244_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit244.
DATA: END OF it_zycit244_aux.
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
MODULE load_item OUTPUT.
v_total = /pws/zycie079a-qtd_iten * /pws/zycie079a-netpr.
* >> Início da exclusão: MODULE LOAD_ITEM
DATA: v_steu LIKE it_zycit079-steuc1.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ITEM
DATA: v_steu LIKE it_zycit079-steuc1."#EC NEEDED
* << Fim da inclusão
...
...
MODULE load_cabec_501 OUTPUT.
IF /pws/zycie078-valday IS INITIAL.
/pws/zycie078-valday = '60'.
wa_zycit078-valday = '60'.
ENDIF.
PERFORM: descrtpli ,
* >> Início da exclusão: MODULE LOAD_CABEC_501
descraplicpli,
* << Fim da exclusão
dexcrativ,
descrfabric.
ENDMODULE.
...
...
* >> Início da exclusão: MODULE CARREGA_ZYCIE079_500
MODULE carrega_zycie079_500 OUTPUT.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079.
MOVE: it_zycit079-mark TO mark,
it_zycit079-slqtde TO /pws/zycie092-slqtde.
REFRESH it_zycit079_aux.
LOOP AT it_zycit079.
MOVE-CORRESPONDING it_zycit079 TO it_zycit079_aux.
APPEND it_zycit079_aux.
ENDLOOP.
tc_item_pli-lines = tc_item_pli-lines + 5.
ENDMODULE.
* << Fim da exclusão
...
...
* >> Início da exclusão: MODULE LOAD_CABEC_506
MODULE load_cabec_506 OUTPUT.
FREE it_zycit081r.
LOOP AT it_zycit081 WHERE
ebeln EQ /pws/zycie079a-ebeln AND
ebelp EQ /pws/zycie079a-ebelp.
MOVE it_zycit081 TO it_zycit081r.
APPEND it_zycit081r.
ENDLOOP.
ENDMODULE.
* << Fim da exclusão
* >> Início da exclusão: MODULE CARREGA_IT_VINCULATO
MODULE carrega_it_vinculato OUTPUT.
ENDMODULE.
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020TOP
...
* >> Início da exclusão:
ts_item TYPE TABSTRIP,
* << Fim da exclusão
...
* >> Início da exclusão:
tc_log3 TYPE TABLEVIEW USING SCREEN 131.
* << Fim da exclusão
* >> Início da inclusão:
tc_log3 TYPE TABLEVIEW USING SCREEN 131."#EC NEEDED
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020X01
..
* >> Início da exclusão:
/pws/zycit080,
* << Fim da exclusão
...
* >> Início da exclusão:
/pws/zycit104,
* << Fim da exclusão
...
* >> Início da exclusão:
/pws/zycie000,
/pws/zycet132,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycie000, "#EC NEEDED
* << Fim da inclusão
/pws/zycbt007,
/pws/zycit031,
/pws/zycit181,
* >> Início da exclusão:
/pws/zycit177,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit177, "#EC NEEDED
* << Fim da inclusão
/pws/zycit100,
/pws/zycit085,
* >> Início da exclusão:
/pws/zycit136,
* << Fim da exclusão
/pws/zycit006,
* >> Início da exclusão:
/pws/zycit172,
* << Fim da exclusão
/pws/zycit093,
/pws/zycit094,
* >> Início da exclusão:
/pws/zycit191,
/pws/zycit197,
/pws/zycit200,
* << Fim da exclusão
/pws/zycit000,
* >> Início da exclusão:
/pws/zycit229,
/pws/zycit257,
* << Fim da exclusão
/pws/zycit244,
* >> Início da exclusão:
/pws/zycie244,
* << Fim da exclusão
/pws/zycit245,
/pws/zycit274,
* >> Início da exclusão:
/pws/zycit218,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit218, "#EC NEEDED
* << Fim da inclusão
/pws/zycit219,
/pws/zycit242,
/pws/zycit338,
* >> Início da exclusão:
/pws/zycit431,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit431, "#EC NEEDED
* << Fim da inclusão
/pws/zycie376,
/pws/zycie085,
/pws/zyglt217,
lfa1,
adrc,
* >> Início da exclusão:
t005,
* << Fim da exclusão
t001,
t002,
* >> Início da exclusão:
t002t,
t005t,
* << Fim da exclusão
t615t,
* >> Início da exclusão:
t604f,
tcurc,
tcurt,
* << Fim da exclusão
ekko,
ekpo,
dd07t,
* >> Início da exclusão:
indx,
* << Fim da exclusão
tcurx.
TABLES: /pws/zycit321.
DATA: BEGIN OF COMMON PART a.
...
...
* >> Início da exclusão:
DATA: BEGIN OF it_zycit219 OCCURS 10.
INCLUDE STRUCTURE /pws/zycit219.
DATA: END OF it_zycit219.
* << Fim da exclusão
* >> Início da exclusão:
DATA: BEGIN OF it_zycit287 OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF it_zycit287 OCCURS 0. "#EC NEEDED
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycit287 .
DATA: END OF it_zycit287 .
* >> Início da exclusão:
DATA: BEGIN OF it_zycit287_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit287.
DATA: valor LIKE /pws/zycit003-netpr.
DATA: END OF it_zycit287_aux.
* << Fim da exclusão
...
...
* >> Início da exclusão:
DATA: BEGIN OF itab_divisao OCCURS 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_divisao OCCURS 0, "#EC NEEDED
* << Fim da inclusão
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
gsber LIKE ekkn-gsber,
END OF itab_divisao.
* >> Início da exclusão:
DATA: BEGIN OF itab_divisao2 OCCURS 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_divisao2 OCCURS 0,"#EC NEEDED
* << Fim da inclusão
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
gsber LIKE ekkn-gsber,
END OF itab_divisao2.
* >> Início da exclusão:
DATA: BEGIN OF itab_tpmat OCCURS 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_tpmat OCCURS 0, "#EC NEEDED
* << Fim da inclusão
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
mtart LIKE mara-mtart,
END OF itab_tpmat.
...
...
END OF it_ekko.
DATA: BEGIN OF it_ekpo OCCURS 20.
INCLUDE STRUCTURE ekpo.
DATA: END OF it_ekpo.
DATA: BEGIN OF it_zycit003 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: END OF it_zycit003.
DATA: BEGIN OF it_zycit003_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: END OF it_zycit003_aux.
* >> Início da exclusão:
DATA: BEGIN OF it_zycit003_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: END OF it_zycit003_aux2.
* << Fim da exclusão
...
...
* >> Início da exclusão:
DATA: BEGIN OF it_zycit322 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit322.
DATA: END OF it_zycit322.
* << Fim da exclusão
...
...
* >> Início da exclusão:
itab_makt LIKE makt OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
xtheadi LIKE thead.
...
editcontainer2 TYPE REF TO cl_gui_custom_container,
menu_static TYPE REF TO cl_ctmenu ,
* >> Início da exclusão:
vrepid LIKE sy-repid ,
* << Fim da exclusão
* >> Início da inclusão:
vrepid LIKE sy-repid ,"#EC NEEDED
* << Fim da inclusão
top_editmode TYPE i .
DATA: BEGIN OF src OCCURS 500,
line(100) ,
END OF src .
DATA: BEGIN OF ittxt1 OCCURS 50,
line(66) ,
END OF ittxt1 .
DATA: ittxt2 LIKE ittxt1 OCCURS 0 WITH HEADER LINE.
DATA BEGIN OF it_zycit114 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit114.
DATA END OF it_zycit114.
* >> Início da exclusão:
DATA BEGIN OF it_zycit198 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit198.
DATA END OF it_zycit198.
* << Fim da exclusão
DATA BEGIN OF it_zycit199 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit199.
DATA END OF it_zycit199.
DATA BEGIN OF it_zycit203 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit203.
DATA END OF it_zycit203.
* >> Início da exclusão:
DATA BEGIN OF it_zycit203_del OCCURS 0.
INCLUDE STRUCTURE /pws/zycit203.
DATA END OF it_zycit203_del.
DATA: itab_zycit229 LIKE /pws/zycit229 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
DATA:
itab_zycit229 LIKE /pws/zycit229 oCCURS 0 WITH HEADER LINE."#EC NEEDED
* << Fim da inclusão
DATA BEGIN OF it_zycit244 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit244.
DATA END OF it_zycit244.
DATA BEGIN OF it_zycit245 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit245.
DATA END OF it_zycit245.
* >> Início da exclusão:
DATA BEGIN OF it_zycit246 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit246.
DATA END OF it_zycit246.
* << Fim da exclusão
DATA BEGIN OF it_zycit191 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit191.
DATA END OF it_zycit191.
DATA BEGIN OF it_zycit177 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit177.
DATA END OF it_zycit177.
DATA: wa_report_cliente LIKE /pws/zycet079.
* >> Início da exclusão:
DATA: wa_report_cliente2 LIKE /pws/zycet079.
* << Fim da exclusão
* >> Início da inclusão:
DATA: wa_report_cliente2 LIKE /pws/zycet079."#EC NEEDED
* << Fim da inclusão
DATA: BEGIN OF itab_report_cliente OCCURS 20.
INCLUDE STRUCTURE /pws/zycet067.
DATA: v_mark(1) TYPE c.
DATA: END OF itab_report_cliente.
* >> Início da exclusão:
DATA: BEGIN OF itab_report_cliente2 OCCURS 20.
INCLUDE STRUCTURE /pws/zycet067.
DATA: v_mark(1) TYPE c.
DATA: END OF itab_report_cliente2.
DATA: BEGIN OF it_zycit172 OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF it_zycit172 OCCURS 0."#EC NEEDED
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycit172.
DATA: END OF it_zycit172.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycit030_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit030.
DATA: END OF itab_zycit030_aux2.
* << Fim da exclusão
DATA: BEGIN OF it_zycit079_ncm OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: uebto LIKE ekpo-uebto,
...
...
* >> Início da exclusão:
DATA: BEGIN OF it_itensli_alt OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF it_itensli_alt OCCURS 0."#EC NEEDED
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycit079.
DATA: uebto LIKE ekpo-uebto,
uebtk LIKE ekpo-uebtk,
noinitial,
mark.
DATA: END OF it_itensli_alt.
...
...
DATA: it_079_del LIKE it_zycit079_del OCCURS 0 WITH HEADER LINE.
DATA BEGIN OF itab_zycit338 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit338.
DATA END OF itab_zycit338.
DATA: BEGIN OF it_precritica OCCURS 0,
campo(60) TYPE c ,
icon(5) TYPE c ,
status(50) TYPE c ,
END OF it_precritica .
DATA: itab_zycit263 LIKE /pws/zycit263 OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão:
DATA: BEGIN OF itab_steuc OCCURS 0,
steuc LIKE /pws/zycit079-steuc1,
END OF itab_steuc.
* << Fim da exclusão
DATA: BEGIN OF itab_ekpo OCCURS 0.
DATA: ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
menge TYPE ekpo-menge,
bstyp TYPE ekpo-bstyp.
DATA: END OF itab_ekpo.
* >> Início da exclusão:
DATA: v_index LIKE sy-tabix .
DATA: value(132) TYPE c,
v_linhe(02) TYPE c,
* << Fim da exclusão
* >> Início da inclusão:
DATA: v_index LIKE sy-tabix."#EC NEEDED
DATA: value(132) TYPE c,"#EC NEEDED
* << Fim da inclusão
BEGIN OF f_tab OCCURS 10.
INCLUDE STRUCTURE help_value.
DATA: END OF f_tab,
BEGIN OF v_tab OCCURS 200,
value(40) TYPE c,
END OF v_tab.
DATA: BEGIN OF return_tab OCCURS 10.
INCLUDE STRUCTURE help_vtab.
DATA: END OF return_tab.
DATA: wa_zycit079 LIKE it_zycit079.
DATA wa_zycit078 LIKE /pws/zycie078.
DATA wa_zycit078_aux2 LIKE /pws/zycie078.
* >> Início da exclusão:
DATA : wa_zycit079a LIKE /pws/zycie079a,
* << Fim da exclusão
* >> Início da inclusão:
DATA :
* << Fim da inclusão
wa_zycit079a_ncm LIKE /pws/zycie079a.
* >> Início da exclusão:
DATA wa_zycit080 LIKE /pws/zycie080.
* << Fim da exclusão
DATA wa_lfa1 LIKE adrc.
DATA wa_lfa12 LIKE adrc.
* >> Início da exclusão:
DATA wa_zycit080_aux LIKE /pws/zycit080.
* << Fim da exclusão
* >> Início da inclusão:
DATA wa_zycit080_aux LIKE /pws/zycit080."#EC NEEDED
* << Fim da inclusão
...
* >> Início da exclusão:
DATA: wa_t001w LIKE t001w.
* << Fim da exclusão
DATA: wa_zycit136 LIKE /pws/zycit136.
DATA wa_zycit001 LIKE /pws/zycit001.
DATA wa_zycit104 LIKE /pws/zycit104.
DATA: wa_zycit197 LIKE /pws/zycit197.
* >> Início da exclusão:
DATA: BEGIN OF wa_ender.
DATA: stras LIKE t001w-spras,
ort01 LIKE t001w-ort01,
regio LIKE t001w-regio.
DATA: END OF wa_ender.
* << Fim da exclusão
DATA: BEGIN OF wa_impress.
DATA: ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
txz01 LIKE ekpo-txz01,
quant LIKE ekpo-menge,
saldo LIKE ekpo-menge,
dtrem LIKE ekko-bedat,
ncm LIKE ekpo-j_1bnbm,
lifnr LIKE ekko-lifnr,
name1 LIKE lfa1-name1,
regio LIKE lfa1-regio,
nrseqli LIKE /pws/zycit078-nrseqli,
dtdef LIKE /pws/zycit078-dtdef,
dtvencto LIKE /pws/zycit078-dtvencto,
END OF wa_impress.
DATA: wa_zycet050 LIKE /pws/zycet050.
DATA: ok_code LIKE sy-ucomm ,
v_answer ,
* >> Início da exclusão:
text(100) ,
* << Fim da exclusão
nextline TYPE i ,
* >> Início da exclusão:
v_posi(40) ,
v_copy TYPE c .
* << Fim da exclusão
* >> Início da inclusão:
v_posi(40) .
* << Fim da inclusão
DATA: v_descr LIKE /pws/zycet132-descdesp,
v_descr2 LIKE /pws/zycet132-descdesp,
...
...
v_descr14 LIKE dd07t-ddtext,
* >> Início da exclusão:
v_descr15 LIKE dd07t-ddtext,
v_descr16 LIKE dd07t-ddtext,
* << Fim da exclusão
v_descr17 LIKE dd07t-ddtext,
v_descr18 LIKE dd07t-ddtext,
v_descr19 LIKE dd07t-ddtext,
* >> Início da exclusão:
v_descr20(2),
* << Fim da exclusão
v_descr21(120),
v_descr22 LIKE t005t-landx,
v_descr23 LIKE tcurc-/pws/codmo,
v_descr24 LIKE tcurt-ktext,
...
...
v_descr30 LIKE t005-/pws/codpa,
v_descr31 LIKE t005-/pws/codpa,
v_descnrseq(17) TYPE c,
v_descrpais LIKE t005t-landx,
v_descrpais2 LIKE t005t-landx,
v_desculdesp LIKE /pws/zycet132-descdesp,
v_descfabric LIKE dd07t-ddtext,
v_desctipimp LIKE dd07t-ddtext,
v_descregtri LIKE /pws/zycit167-descricao,
v_descfunleg LIKE /pws/zycit177-descr,
* >> Início da exclusão:
v_descmotivo LIKE /pws/zycit169-descricao,
* << Fim da exclusão
v_descmotivofunleg LIKE /pws/zycit141-descricao,
v_descrnaladi LIKE /pws/zycet142-descnala,
okcode LIKE sy-ucomm ,
mark ,
v_indice LIKE sy-tabix ,
* >> Início da exclusão:
v_kposn_fob LIKE komv-kposn ,
* << Fim da exclusão
v_cod_pais LIKE t005-/pws/codpa,
v_cod_pais2 LIKE t005-/pws/codpa,
v_codpaisori LIKE t005-/pws/codpa,
v_codpaispro LIKE t005-/pws/codpa,
v_cnpj(18) TYPE c,
v_cgc LIKE j_1bwfield-cgc_number,
v_total LIKE /pws/zycit079-qtd_iten,
v_esp(254) TYPE c,
v_esp2(132) TYPE c,
v_esp3(132) TYPE c,
v_esp4(132) TYPE c,
v_esp5(132) TYPE c,
* >> Início da exclusão:
v_esp6(132) TYPE c,
* << Fim da exclusão
v_txtkey LIKE thead-tdname,
v_txtkey2 LIKE thead-tdname,
v_vlfobli LIKE /pws/zycit078-vltot,
v_field(30),
v_tcode LIKE sy-tcode,
v_tcode2 LIKE sy-tcode,
* >> Início da exclusão:
v_classific(5),
* << Fim da exclusão
* >> Início da inclusão:
v_classific(5), "#EC NEEDED
* << Fim da inclusão
v_flag,
v_flag2,
v_flag3,
v_resp_save TYPE c,
v_resp TYPE c,
v_campo(20),
v_valor(20),
v_cont TYPE i,
i_ebeln LIKE ekko-ebeln,
v_resp2 TYPE c,
v_forn LIKE /pws/zycie080-lifnr,
v_forn2 LIKE /pws/zycie080-lifnr,
v_matnr LIKE ekpo-matnr,
* >> Início da exclusão:
v_mfrpn LIKE mara-mfrpn,
* << Fim da exclusão
v_ip LIKE sy-tabix,
v_line TYPE i,
v_nrcomp(16),
v_nrdrawback(16),
v_descrlog(100),
v_adicao_adi(03) ,
v_nrseqdi_adi LIKE /pws/zycit100-nrseqdi ,
v_ebeln_adi LIKE /pws/zycit100-ebeln ,
v_ebelp_adi LIKE /pws/zycit100-ebelp ,
v_descr_adi LIKE /pws/zycit003-descr ,
v_nrseq_adi LIKE /pws/zycit003-nrseq ,
v_marc_adi ,
v_linha TYPE i ,
v_linhas TYPE i ,
v_linha2 TYPE i ,
v_contador TYPE i ,
v_resposta ,
* >> Início da exclusão:
v_nrseq_vin LIKE /pws/zycit001-nrseq ,
* << Fim da exclusão
v_ebeln_vin LIKE /pws/zycit079-ebeln ,
v_ebelp_vin LIKE /pws/zycit079-ebelp ,
v_descr_vin LIKE /pws/zycit079-descr ,
* >> Início da exclusão:
v_nrseqd_vin LIKE /pws/zycit244-nrseqd ,
v_nratoc_vin LIKE /pws/zycit244-nratoc ,
v_dtatoc_vin LIKE /pws/zycit244-dtatoc ,
v_sdocomp_t_vin LIKE /pws/zycit245-sdocomp_t,
v_qtd_iten_vin LIKE /pws/zycit079-qtd_iten ,
v_modal_vin LIKE /pws/zycit244-desc_modal,
v_tpdraw_vin LIKE /pws/zycit244-desctipo_ac,
v_sdofob_vin LIKE /pws/zycit244-s_realfob ,
v_fobli_vin LIKE /pws/zycit078-vltot ,
v_retorno(30) ,
v_chk_vin ,
* << Fim da exclusão
v_icon_vin LIKE icons-text ,
v_pos TYPE i ,
v_nrseq_pos LIKE /pws/zycit001-nrseq ,
v_ebeln_pos LIKE /pws/zycit079-ebeln ,
v_ebelp_pos LIKE /pws/zycit079-ebelp ,
v_txtcom LIKE thead-tdname ,
v_erro_pexpam ,
v_erro_drawback ,
* >> Início da exclusão:
v_dcompl TYPE i ,
v_tspace TYPE i ,
v_descrativ LIKE /pws/zycit204-descricao,
v_status800 ,
* << Fim da exclusão
* >> Início da inclusão:
v_descrativ LIKE /pws/zycit204-descricao, "#EC NEEDED
v_status800 , "#EC NEEDED
* << Fim da inclusão
v_name LIKE thead-tdname ,
* >> Início da exclusão:
v_texto(255) ,
v_werks LIKE ekpo-werks ,
* << Fim da exclusão
v_txtki LIKE thead-tdname ,
v_fat ,
v_di ,
v_nvinc ,
v_ncmdf ,
v_ncm LIKE /pws/zycit245-j_1bnbm ,
v_bl ,
v_param(550) TYPE c VALUE space ,
v_tabix LIKE sy-tabix ,
v_tpdoc LIKE /pws/zycit136-tp_doc ,
v_lisubst ,
v_string_ex LIKE rlgrap-filename VALUE space,
v_key(70) ,
v_flagcan ,
* >> Início da exclusão:
v_repid LIKE /pws/zycet067-repid ,
* << Fim da exclusão
* >> Início da inclusão:
v_repid LIKE /pws/zycet067-repid , "#EC NEEDED
* << Fim da inclusão
v_respcan ,
v_flagsub ,
v_flagsub1 ,
v_s_idioma(15) ,
v_cur TYPE i ,
v_flag_compl ,
* >> Início da exclusão:
v_descr_ncm LIKE /pws/zycit181-descricao,
* << Fim da exclusão
* >> Início da inclusão:
v_descr_ncm LIKE /pws/zycit181-descricao, "#EC NEEDED
* << Fim da inclusão
v_lin_191 TYPE i ,
v_lin_177 TYPE i ,
v_campanali(60) TYPE c ,
v_statuscam(50) TYPE c ,
v_icon(5) TYPE c ,
* >> Início da exclusão:
v_tpni LIKE /pws/zycit078-tpni ,
v_codsufra LIKE dd07t-ddtext ,
v_codregtri LIKE /pws/zycit078-codregtri,
* << Fim da exclusão
* >> Início da inclusão:
v_codsufra LIKE dd07t-ddtext ,"#EC NEEDED
* << Fim da inclusão
v_nrseqd LIKE /pws/zycit078-nrseqd ,
v_ppb LIKE /pws/zycit219-descricao,
v_exit(01) ,
v_valinic(1) TYPE c,
v_peditem(6) TYPE c VALUE 'PEDIDO',
v_pliorig LIKE /pws/zycit078-nrseqli ,
v_compl(1) TYPE c ,
v_saili TYPE c ,
v_trans TYPE c ,
v_transm(1) ,
v_exit_vlmerc(1) ,
v_bezei LIKE t005u-bezei ,
v_land1 LIKE lfa1-land1 ,
* >> Início da exclusão:
v_matnrd LIKE mara-matnr ,
v_salvo,
* << Fim da exclusão
v_salvo_drawback,
v_verficado,
v_steuc2 LIKE /pws/zycit078-steuc2,
v_steuc_temp1(8),
v_steuc_temp2(8) ,
v_steuc_temp3(8),
v_executou,
v_incentivo,
s_opcb(18),
v_cnpj_findap(18) TYPE c,
v_desc_findap TYPE lfa1-name1,
v_emp LIKE /pws/zycbt007-bukrs.
DATA v_novo_item.
DATA: v_qtdtot TYPE /pws/zycit079-qtd_iten.
DATA v_peso TYPE /pws/zycit079-qtd_iten.
DATA: v_ordena(132) TYPE c.
DATA: v_prog(3) TYPE c.
* >> Início da exclusão:
DATA : wa_itb LIKE it_zycit079,
* << Fim da exclusão
...