CE PLUS - Nota 012255
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Transmissão Siscomex
Data/Hora da Publicação: 24/07/2013 15:11:48
Data/Hora Última Alteração: 24/07/2013 15:11:48
Descrição da Nota: AJUSTES PARA TRANSMISSÃO SUFRAMA PLI
Sintoma
Ajustes para transmissão Suframa PLI
Solução
Tratamento para vários campos transmitidos.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12255 Data: 30/05/2012 Hora: 17:26:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12255
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00116
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03820 - 00001 - 7.0 - 00001 - LI - QUANTIDADE UM ESTATÍSTICA
08676 - 00002 - 7.0 - 00010 - AJUSTES PARA TRATAMENTO DE PLI COM PEDIDO SEM MATERIAL
11761 - 00003 - 8.0 - 00009 - NÃO DEIXAR ALTERAR PESO LÍQUIDO APÓS A CRIAÇÃO DA FATURA VINCULAD
11989 - 00004 - 8.0 - 00010 - CAMPOS ABERTOS E BOTÃO DE SELEÇÃO NA LI EXIBINDO.
12186 - 00005 - 8.0 - 00011 - ERRO AO FAZER PRÉ CRÍTICA NA PLI E VINCULAÇÃO NO EMBARQUE
12190 - 00006 - 8.0 - 00011 - ERRO AO VINCULAR EMBARQUE A LI.
12245 - 00007 - 8.0 - 00011 - NECESSÁRIO AJUSTAR SEQUENCIAL TRANSMITIDO AO SUFRAMA
12247 - 00007 - 8.0 - 00011 - CORREÇÃO DO TRATAMENTO DO TIPO DE FORNECEDOR NA PLI
----------------------------------------------------------------------------------------------------
AJUSTES PARA TRANSMISSÃO SUFRAMA PLI
----------------------------------------------------------------------------------------------------
Palavras Chave:
SUFRAMA - PLI - TRANSMISSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI020 0521
DYNP /PWS/SAPMZYCI020 0522
FUNC /PWS/ZYCI_TRANSFER_PLI
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020O01
REPS /PWS/MZYCI020X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0521
INCLUIR FRAME ""
Altura 4
Comprimento Visível 86
Linha 10
Coluna 3
Formato CHAR
Incluir quadro em volta do campo "V_ESP338"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0522
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE079A-ALADI"
Código função
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE079A-NALADI"
Código função
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0522
PROCESS BEFORE OUTPUT.
module: load_cabec_521.
* >> Início da inclusão:
module: set_screen_sub.
* << Fim da inclusão
loop at it_anu2r cursor tc_dest-current_line.
module: carrega_tc_dest,
set_screen_sub.
endloop.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_PLI
FUNCTION /pws/zyci_transfer_pli.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
DATA: v_seq TYPE /pws/zycit078-seq_sufra,
v_nrseq TYPE /pws/zycit078-nrseqli.
* << Fim da inclusão
...
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
v_obs(300),
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
v_obs(600),
* << Fim da inclusão
...
IF sy-subrc EQ 0.
READ TABLE li_cabec INDEX 1.
MOVE: li_cabec TO wa_078.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
IF li_cabec-naladi IS INITIAL.
li_cabec-naladi = '1'.
ENDIF.
* << Fim da exclusão
PERFORM load_pais(/pws/sapmzyci023):
USING wa_078-land1
CHANGING li_cabec-land1 v_txtpais,
USING wa_078-lando
CHANGING li_cabec-lando v_txtpais.
PERFORM load_waers(/pws/sapmzyci023):
USING wa_078-waers
CHANGING li_cabec-waers v_txtw.
MODIFY li_cabec INDEX 1.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
CLEAR itab_tline.
REFRESH itab_tline.
v_txtkey = li_cabec-nrseqli.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZTLI'
language = sy-langu
name = v_txtkey
object = '/PWS/DTLI'
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 = 0.
CLEAR: v_add, v_obs.
LOOP AT itab_tline.
v_obs+v_add = itab_tline-tdline(65).
v_add = v_add + 66.
IF sy-tabix = 4.
EXIT.
ENDIF.
ENDLOOP.
li_txt-txt_curto = v_obs(253).
APPEND li_txt.
ENDIF.
* << Fim da exclusão
SELECT * FROM /pws/zycit079 INTO TABLE li_itens WHERE
nrseqli = i_nrseqli AND
tpli = i_tpli.
LOOP AT li_itens.
v_idx = sy-tabix.
MOVE: li_itens TO wa_079.
PERFORM load_waers(/pws/sapmzyci023):
USING wa_079-waers
CHANGING li_itens-waers v_txtw.
MODIFY li_itens INDEX v_idx.
MOVE-CORRESPONDING li_itens TO li_itens_add.
CLEAR itab_tline.
REFRESH itab_tline.
CONCATENATE i_nrseqli li_itens-ebeln li_itens-ebelp
INTO v_txtkey.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
id = 'ZTLI'
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
id = '0338'
* << Fim da inclusão
language = sy-langu
name = v_txtkey
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
object = '/PWS/ITLI'
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
object = '/PWS/ZYCI'
* << Fim da inclusão
TABLES
lines = itab_tline
...
...
OTHERS = 8.
IF sy-subrc = 0.
CLEAR: v_add, v_obs.
LOOP AT itab_tline.
v_obs+v_add = itab_tline-tdline(71).
v_add = v_add + 72.
IF sy-tabix >= 3.
EXIT.
ENDIF.
ENDLOOP.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
li_itens_add-txt_curto = v_obs(250).
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
li_itens_add-txt_curto = v_obs(80).
* << Fim da inclusão
APPEND li_itens_add.
ENDIF.
ENDLOOP.
LOOP AT li_itens.
v_tabix = sy-tabix.
READ TABLE li_itens_add WITH KEY nrseqli = li_itens-nrseqli
ebeln = li_itens-ebeln
ebelp = li_itens-ebelp.
IF sy-subrc EQ 0.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
li_itens-txt_curto = li_itens_add-txt_curto.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
li_itens-txt_curto = li_itens-espec_tecnica.
li_itens-espec_tecnica = li_itens_add-txt_curto.
li_itens-umdesc = li_itens-meins .
* << Fim da inclusão
MODIFY li_itens INDEX v_tabix.
ENDIF.
ENDLOOP.
IF NOT li_itens[] IS INITIAL.
SELECT * FROM /pws/zycit080 INTO TABLE it_fornec
FOR ALL ENTRIES IN li_itens
WHERE nrseqli EQ li_itens-nrseqli.
ENDIF.
CLEAR: itab_lfa1[], itab_adrc[], itab_t005u[].
REFRESH: itab_lfa1[], itab_adrc[], itab_t005u[].
...
...
SELECT SINGLE * FROM /pws/zycit219
INTO wa_219
WHERE codigo EQ li_itens-codsufra AND
ncm EQ li_itens-ncm
AND destaque EQ li_itens-destaque.
IF sy-subrc EQ 0 AND wa_219-flagdest EQ 'X'.
MOVE: '999' TO li_destncm-codncm,
wa_078-nrseqli TO li_destncm-nrseqli,
li_itens-tpli TO li_destncm-tpli,
li_itens-ebeln TO li_destncm-ebeln,
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
li_itens-ebelp TO li_destncm-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
li_itens-ebelp TO li_destncm-ebelp,
li_itens-ncm TO li_destncm-ncm.
* << Fim da inclusão
APPEND li_destncm.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
ENDIF.
ENDLOOP.
LOOP AT li_destncm.
READ TABLE li_itens WITH KEY ebeln = li_destncm-ebeln
ebelp = li_destncm-ebelp.
IF sy-subrc EQ 0.
MOVE : li_itens-ncm TO li_destncm-ncm,
li_itens-codsufra TO li_destncm-codsufra.
MODIFY li_destncm.
* << Fim da inclusão
ENDIF.
ENDLOOP.
SORT li_destncm BY nrseqli tpli codncm ebeln ebelp.
DELETE ADJACENT DUPLICATES FROM li_destncm
COMPARING nrseqli tpli codncm ebeln ebelp.
SELECT SINGLE * FROM j_1bbranch WHERE branch = wa_078-j_1bbranch AND
bukrs = wa_078-bukrs.
SELECT SINGLE * FROM adrc WHERE addrnumber = j_1bbranch-adrnr.
SELECT SINGLE * FROM /pws/zycit133 WHERE cpf = wa_078-cpf_repres
.
...
...
ENDIF.
LOOP AT li_mercad.
v_tabix = sy-tabix.
READ TABLE li_txt INDEX 1.
IF sy-subrc EQ 0.
li_mercad-txt_curto = li_txt-txt_curto.
ENDIF.
READ TABLE li_itens WITH KEY nrseqli = li_mercad-nrseqli
steuc1 = li_mercad-steuc1.
IF sy-subrc EQ 0.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
li_mercad-naladi = li_itens-naladi.
li_mercad-codtarif = li_itens-codtarif.
li_mercad-aladi = li_itens-aladi .
li_mercad-matusado = li_itens-matusado .
li_mercad-bemencomenda = li_itens-bemencomenda .
CLEAR itab_tline.
REFRESH itab_tline.
v_txtkey = li_cabec-nrseqli.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZTLI'
language = sy-langu
name = v_txtkey
object = '/PWS/DTLI'
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 = 0.
CLEAR: v_add, v_obs.
LOOP AT itab_tline.
v_obs+v_add = itab_tline-tdline(65).
v_add = v_add + 66.
IF v_add > 508.
EXIT.
ENDIF.
ENDLOOP.
li_mercad-text1 = v_obs+0(253).
li_mercad-text2 = v_obs+253(253).
ENDIF.
li_mercad-codsufra = li_itens-codsufra.
* << Fim da inclusão
li_mercad-fabric = li_itens-fabric.
IF li_mercad-fabric EQ '1'.
READ TABLE li_forn_a WITH KEY nrseqli = li_itens-nrseqli
ebeln = li_itens-ebeln
ebelp = li_itens-ebelp.
IF sy-subrc EQ 0.
li_mercad-cd_fabric = li_forn_a-nrforn.
...
...
IF li_forn_b-nrforn EQ v_nrforn.
v_nrforn = li_forn_b-nrforn.
DELETE li_forn_b INDEX sy-tabix.
ELSE.
v_nrforn = li_forn_b-nrforn.
ENDIF.
ELSE.
v_nrforn = li_forn_b-nrforn.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PLI
IF li_cabec-seq_sufra IS INITIAL.
SELECT MAX( seq_sufra ) INTO (v_seq) FROM /pws/zycit078
WHERE j_1bbranch EQ li_cabec-j_1bbranch.
IF v_seq NE 0 .
v_seq = v_seq + 1 .
ELSE.
SELECT SINGLE seq_sufra INTO v_seq
FROM /pws/zycit242
WHERE plant EQ li_cabec-j_1bbranch.
ENDIF.
li_cabec-seq_sufra = v_seq.
MODIFY li_cabec INDEX 1.
UPDATE /pws/zycit078 SET seq_sufra = v_seq
WHERE nrseqli = i_nrseqli.
MOVE-CORRESPONDING li_cabec TO /pws/zycit078 .
ENDIF.
* << Fim da inclusão
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
ENDIF.
IF /pws/zycie078-fabricante EQ 2.
IF it_zycit079-fabric IS INITIAL.
it_zycit079-fabric = '2'.
ENDIF.
ENDIF.
READ TABLE it_ekpo WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
IF NOT it_zycit079-qtd_iten IS INITIAL AND
NOT it_zycit079-fator IS INITIAL.
* >> Início da exclusão: FORM VERIFICA_ITENS
IF NOT /pws/zycie078-aplicpli EQ '2'.
* << Fim da exclusão
SELECT SINGLE * FROM /pws/zycit338
WHERE matnr EQ it_ekpo-matnr
AND codsufra EQ it_zycit079-codsufra.
IF sy-subrc EQ 0.
REPLACE ',' WITH '.' INTO it_zycit079-fator.
SELECT SINGLE * FROM /pws/zycit219
WHERE codigo EQ /pws/zycit338-codsufra
AND ncm EQ it_zycit079-ncm
AND destaque EQ it_zycit079-destaque.
IF sy-subrc EQ 0.
...
...
it_zycit079-qtd_iten * it_zycit079-fator.
ELSEIF /pws/zycit219-flagppb EQ 'X'.
it_zycit079-qtdest = it_zycit079-ntgew.
MOVE 'KG' TO it_zycit079-zum.
ENDIF.
ELSE.
it_zycit079-qtdest = it_zycit079-qtd_iten * it_zycit079-fator.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM VERIFICA_ITENS
ENDIF.
* << Fim da exclusão
CONCATENATE /pws/zycie079-steuc1(4) /pws/zycie079-steuc1+5(2)
/pws/zycie079-steuc1+8(2) INTO /pws/zycie079-ncm.
PERFORM load_taxa.
MODIFY it_zycit079.
ENDLOOP.
PERFORM verifica_vltotal_local_emb.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI020'
'PLI003'.
CLEAR itab_zyglt100 .
...
...
IF screen-name EQ '/PWS/ZYCIE079-NTGEW'.
IF NOT /pws/zycie079-ebeln IS INITIAL AND
NOT /pws/zycie079-ebelp IS INITIAL.
READ TABLE itab_zycit263 WITH KEY
ebeln = /pws/zycie079-ebeln
ebelp = /pws/zycie079-ebelp.
IF sy-subrc EQ 0.
screen-input = '0' .
ELSE.
screen-input = '1' .
* >> Início da inclusão: FORM MODO_EXIB
ENDIF.
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM MODO_EXIB
ENDIF.
IF ( screen-group1 EQ 'OC1' OR
screen-group1 EQ 'FAB' ) .
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' OR
sy-tcode EQ '/PWS/ZYCI020_C' OR
sy-tcode EQ '/PWS/ZYCI020_A') AND
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
IF ( sy-tcode EQ '/PWS/ZYCI020_C' OR
sy-tcode EQ '/PWS/ZYCI020_A') AND
NOT /pws/zycie078-numpli IS INITIAL.
screen-input = 0 .
ELSE.
screen-input = 0 .
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
* >> Início da inclusão: FORM MODO_EXIB
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ) AND
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
LOOP AT tc_item_pli-cols INTO wa_cols.
wa_cols-screen-input = 0.
MODIFY tc_item_pli-cols FROM wa_cols.
ENDLOOP.
ENDIF.
* << Fim da inclusão
CASE sy-dynnr.
WHEN '0109'.
CLEAR v_ncm.
LOOP AT tc_item-cols INTO wa_cols.
IF wa_cols-screen-name EQ '/PWS/ZYCIE376-NRSEQD'.
IF v_nvinc NE 'X'.
wa_cols-invisible = 1.
ELSE.
wa_cols-invisible = 0.
ENDIF.
MODIFY tc_item-cols FROM wa_cols.
ELSEIF wa_cols-screen-name EQ '/PWS/ZYCIE079-STEUC1'.
IF v_ncmdf NE 'X'.
wa_cols-invisible = 1.
ELSE.
wa_cols-invisible = 0.
* >> Início da inclusão: FORM MODO_EXIB
ENDIF.
MODIFY tc_item-cols FROM wa_cols.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM MODO_EXIB
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ) AND
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
wa_cols-screen-input = 0.
* << Fim da inclusão
MODIFY tc_item-cols FROM wa_cols.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM MODO_EXIB
WHEN '0120' .
IF ( not v_nrpli IS INITIAL AND
not v_dtreg IS INITIAL ) .
top_editmode = '1'.
CALL METHOD editor2->set_readonly_mode EXPORTING
readonly_mode = top_editmode.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDFORM.
...
...
FORM load_desc_fabr.
* >> Início da exclusão: FORM LOAD_DESC_FABR
IF /pws/zycie079a-fabric EQ 1.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DESC_FABR
IF /pws/zycie079a-fabric EQ 1
OR /pws/zycie079a-fabric EQ '2'.
* << Fim da inclusão
SELECT SINGLE * FROM ekko
WHERE ebeln EQ /pws/zycie079a-ebeln.
* >> Início da inclusão: FORM LOAD_DESC_FABR
IF /pws/zycie079a-fabric EQ 1.
* << Fim da inclusão
/pws/zycie079a-lifnr = ekko-lifnr.
ENDIF.
* >> Início da inclusão: FORM LOAD_DESC_FABR
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycie079a-lifnr IS INITIAL.
SELECT SINGLE name1 land1 FROM lfa1
INTO (/pws/zycie079a-descfab,/pws/zycie079a-paisfab)
WHERE lifnr EQ /pws/zycie079a-lifnr.
* >> Início da exclusão: FORM LOAD_DESC_FABR
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DESC_FABR
IF /pws/zycie079a-fabric EQ 2.
CLEAR lfa1.
lfa1-lifnr = ekko-lifnr.
SELECT SINGLE name1 land1 FROM lfa1
INTO (lfa1-name1,lfa1-land1)
WHERE lifnr EQ lfa1-lifnr.
ENDIF.
ELSEIF /pws/zycie079a-fabric NE '3'.
* << Fim da inclusão
CLEAR: /pws/zycie079a-descfab,
/pws/zycie079a-paisfab.
ENDIF.
ENDFORM.
...
...
CLEAR v_texto.
SPLIT it_zycit079-steuc1 AT '.'
INTO v_steuc_temp1 v_steuc_temp2
v_steuc_temp3.
SHIFT v_steuc_temp1 LEFT DELETING LEADING space.
SHIFT v_steuc_temp2 LEFT DELETING LEADING space.
SHIFT v_steuc_temp3 LEFT DELETING LEADING space.
CONCATENATE v_steuc_temp1 v_steuc_temp2 v_steuc_temp3 INTO
v_steuc2.
IF NOT it_zycit079-matnr IS INITIAL.
* >> Início da exclusão: FORM CARREGA_PRE_CRITICA_PLI
IF NOT /pws/zycie078-aplicpli EQ '2'.
* << Fim da exclusão
SELECT * FROM /pws/zycit219 INTO TABLE itab_zycit219
WHERE codigo = it_zycit079-codsufra
AND ncm = it_zycit079-steuc1
AND destaque = it_zycit079-destaque.
READ TABLE itab_zycit219 INDEX 1.
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.
* >> Início da exclusão: FORM CARREGA_PRE_CRITICA_PLI
ENDIF.
* << Fim da exclusão
ENDLOOP.
SORT it_zycit079 BY nrseq ebeln ebelp.
LOOP AT it_zycit079.
AT NEW ebeln.
SELECT SINGLE * FROM ekko
WHERE ebeln EQ it_zycit079-ebeln.
READ TABLE it_lifnr WITH KEY lifnr = ekko-lifnr.
IF sy-subrc NE 0.
MOVE ekko-lifnr TO it_lifnr-lifnr.
APPEND it_lifnr.
...
...
ENDAT.
ENDLOOP.
LOOP AT it_lifnr.
PERFORM verif_forn USING it_lifnr-lifnr.
ENDLOOP.
LOOP AT it_zycit079 WHERE steuc1 IS initial.
PERFORM monta_it_precritica USING
text-337 '' it_zycit079-steuc1 ''.
EXIT.
ENDLOOP.
* >> Início da exclusão: FORM CARREGA_PRE_CRITICA_PLI
IF NOT /pws/zycie078-aplicpli EQ '2'.
* << Fim da exclusão
READ TABLE it_zycit079 WITH KEY zum = ''.
IF sy-subrc = 0.
PERFORM monta_it_precritica USING
text-340 '' it_zycit079-zum ''.
ELSE.
PERFORM monta_it_precritica USING
text-340 '' it_zycit079-zum ''.
ENDIF.
READ TABLE it_zycit079 WITH KEY qtdest = ''.
IF sy-subrc = 0.
PERFORM monta_it_precritica USING
text-341 '' it_zycit079-qtdest ''.
ELSE.
PERFORM monta_it_precritica USING
text-341 '' it_zycit079-qtdest ''.
* >> Início da exclusão: FORM CARREGA_PRE_CRITICA_PLI
ENDIF.
* << Fim da exclusão
ENDIF.
PERFORM monta_it_precritica USING
text-336 '' /pws/zycie078-land1 ''.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
FORM load_descri_suframa.
DATA: v_spras LIKE ekko-spras.
CLEAR v_esp.
CLEAR rtexti.
REFRESH rtexti.
CLEAR v_txtki.
CONCATENATE /pws/zycie079a-nrseqli /pws/zycie079a-ebeln
/pws/zycie079a-ebelp INTO v_txtki.
* >> Início da exclusão: FORM LOAD_DESCRI_SUFRAMA
IF NOT /pws/zycie078-aplicpli EQ '2'.
* << Fim da exclusão
IF NOT /pws/zycie079a-codsufra IS INITIAL AND
NOT /pws/zycie079a-steuc1 IS INITIAL AND
NOT /pws/zycie079a-destaque IS INITIAL.
SELECT SINGLE descricao FROM /pws/zycit219
INTO v_ppb
WHERE codigo EQ /pws/zycie079a-codsufra
AND ncm EQ /pws/zycie079a-steuc1
AND destaque EQ /pws/zycie079a-destaque.
IF sy-subrc = 0.
MOVE v_ppb(127) TO texto_t.
...
...
ENDIF.
IF texto_t2 IS INITIAL.
CLEAR texto_t2.
ENDIF.
ENDIF.
ELSE.
CLEAR v_esp.
CLEAR texto_t.
CLEAR texto_t2.
ENDIF.
* >> Início da exclusão: FORM LOAD_DESCRI_SUFRAMA
ELSE.
CONCATENATE /pws/zycie079a-ebeln /pws/zycie079a-ebelp INTO v_name.
IF NOT v_name IS INITIAL AND v_name NE '00000'.
SELECT SINGLE spras FROM ekko INTO v_spras
WHERE ebeln = /pws/zycie079a-ebeln.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F01' AND
tdspras = v_spras.
IF sy-subrc = 0.
PERFORM read_text_especif CHANGING v_esp.
ELSE.
IF v_executou EQ ' '.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-430
text_button_1 = text-426
text_button_2 = text-427
display_cancel_button = ' '
IMPORTING
answer = v_answer.
v_executou = 'X'.
IF v_answer NE 1.
LEAVE PROGRAM.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* << Fim da exclusão
ENDFORM.
...
...
READ TABLE it_zycit079_ncm INDEX 1.
IF sy-subrc EQ 0.
IF it_zycit079_ncm-bemencomenda EQ 'S'.
/pws/zycie078-condmerc = '1'.
ENDIF.
IF it_zycit079_ncm-matusado EQ 'S'.
/pws/zycie078-condmerc = '2'.
ENDIF.
CLEAR it_zycit079_ncm.
ENDIF.
* >> Início da inclusão: FORM VERIFICA_NOVOREG
/pws/zycie078-fabric = it_zycit079_ncm2-fabric.
* << Fim da inclusão
PERFORM : gera_seq_novoreg,
atual_tabelas ,
gera_novoreg ,
limpa_tabncm .
MOVE it_zycit079_ncm2 TO it_zycit079_ncm.
APPEND it_zycit079_ncm.
v_steuc1 = it_zycit079_ncm2-steuc1.
v_lifnr = it_zycit079_ncm2-lifnr.
v_codsufra = it_zycit079_ncm2-codsufra.
CLEAR v_linha.
...
...
IF NOT it_zycit079_ncm2[] IS INITIAL.
READ TABLE it_zycit079_ncm INDEX 1.
IF sy-subrc EQ 0.
IF it_zycit079_ncm-bemencomenda EQ 'S'.
/pws/zycie078-condmerc = '1'.
ENDIF.
IF it_zycit079_ncm-matusado EQ 'S'.
/pws/zycie078-condmerc = '2'.
ENDIF.
CLEAR it_zycit079_ncm.
* >> Início da inclusão: FORM VERIFICA_NOVOREG
/pws/zycie078-fabric = it_zycit079_ncm-fabric.
* << Fim da inclusão
ENDIF.
PERFORM : gera_seq_novoreg,
atual_tabelas ,
gera_novoreg ,
limpa_tabncm .
ENDIF.
ELSE.
CLEAR v_linha.
READ TABLE it_zycit079_verif INDEX 1.
IF sy-subrc EQ 0.
...
...
/pws/zycie078-condmerc = '2'.
ENDIF.
ENDIF.
LOOP AT it_zycit079_verif.
v_linha = v_linha + 1.
CLEAR it_zycit079_ncm.
MOVE it_zycit079_verif TO it_zycit079_ncm.
APPEND it_zycit079_ncm.
IF v_linha = 80.
IF NOT it_zycit079_ncm[] IS INITIAL.
* >> Início da inclusão: FORM VERIFICA_NOVOREG
READ TABLE it_zycit079_ncm INDEX 1.
/pws/zycie078-fabric = it_zycit079_ncm-fabric.
* << Fim da inclusão
PERFORM: gera_seq_novoreg,
atual_tabelas ,
gera_novoreg ,
limpa_tabncm .
CLEAR v_linha.
ENDIF.
ENDIF.
ENDLOOP.
IF NOT it_zycit079_ncm[] IS INITIAL.
* >> Início da inclusão: FORM VERIFICA_NOVOREG
READ TABLE it_zycit079_ncm INDEX 1.
/pws/zycie078-fabric = it_zycit079_ncm-fabric.
* << Fim da inclusão
PERFORM: gera_seq_novoreg,
atual_tabelas ,
gera_novoreg ,
limpa_tabncm .
ENDIF.
ENDIF.
ENDFORM.
...
...
FORM set_screen_0521.
LOOP AT SCREEN.
* >> Início da exclusão: FORM SET_SCREEN_0521
IF /pws/zycie078-aplicpli EQ '2'.
IF screen-name EQ '/PWS/ZYCIE079A-CODSUFRA'.
/pws/zycie079-codsufra = /pws/zycie079a-codsufra = '0000'.
screen-input = 0.
ELSEIF screen-name EQ '/PWS/ZYCIE079A-DESTAQUE'.
/pws/zycie079a-destaque = '0001'.
screen-input = 0.
ENDIF.
ENDIF.
CASE /pws/zycie078-fabricante.
WHEN '0' OR '1' OR '3'.
IF screen-name EQ '/PWS/ZYCIE079A-LIFNR' OR
screen-name EQ '/PWS/ZYCIE079A-FABRIC' OR
screen-name EQ '/PWS/ZYCIE079A-DESCFAB' OR
screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.
screen-input = 0.
ENDIF.
WHEN '2'.
* << Fim da exclusão
IF screen-name EQ '/PWS/ZYCIE079A-FABRIC'.
screen-input = 1.
ENDIF.
CASE /pws/zycie079a-fabric.
WHEN '1'.
IF screen-name EQ '/PWS/ZYCIE079A-LIFNR' OR
screen-name EQ '/PWS/ZYCIE079A-DESCFAB' OR
screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.
screen-input = 0.
ENDIF.
WHEN '2'.
IF screen-name EQ '/PWS/ZYCIE079A-LIFNR'.
screen-input = 1.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE079A-DESCFAB' OR
screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.
screen-input = 0.
ENDIF.
WHEN '3'.
* >> Início da inclusão: FORM SET_SCREEN_0521
IF screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.
screen-input = 1.
ENDIF.
* << Fim da inclusão
IF screen-name EQ '/PWS/ZYCIE079A-LIFNR' OR
* >> Início da exclusão: FORM SET_SCREEN_0521
screen-name EQ '/PWS/ZYCIE079A-DESCFAB' OR
screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0521
screen-name EQ '/PWS/ZYCIE079A-DESCFAB'.
* << Fim da inclusão
screen-input = 0.
ENDIF.
ENDCASE.
* >> Início da exclusão: FORM SET_SCREEN_0521
ENDCASE.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0521
IF v_tcode EQ '/PWS/ZYCI020_L'.
screen-input = 0.
ENDIF.
IF screen-group1 EQ 'FOR' AND
/pws/zycie079a-fabric NE '2'.
screen-invisible = '1'.
ENDIF.
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ) AND
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
screen-input = 0 .
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
...
...
FORM consiste_aplicacao.
DATA: v_destaque TYPE /pws/zycit079-destaque,
v_zum TYPE /pws/zycit079-zum ,
v_codsufra TYPE /pws/zycit079-codsufra.
IF /pws/zycie078-tpli EQ 'N'
AND /pws/zycie078-flagpli EQ 'X'.
IF NOT itab_itens-matnr IS INITIAL.
* >> Início da exclusão: FORM CONSISTE_APLICACAO
IF NOT /pws/zycie078-aplicpli EQ '2'.
* << Fim da exclusão
SELECT *
FROM /pws/zycit338
INTO TABLE itab_zycit338
WHERE matnr EQ itab_itens-matnr.
IF sy-subrc EQ 0.
READ TABLE itab_zycit338 INDEX 1.
IF sy-subrc EQ 0.
it_zycit079-destaque = v_destaque = itab_zycit338-destaque.
it_zycit079-fator = v_fator = itab_zycit338-fator .
v_zum = it_zycit079-zum = itab_zycit338-unit_estat .
...
...
IF sy-subrc EQ 0.
MESSAGE w061 WITH text-428.
v_incentivo = 'X'.
ENDIF.
ENDIF.
PERFORM cota_suframa USING itab_itens-j_1bnbm
v_destaque
v_codsufra.
SELECT SINGLE * FROM /pws/zycit219
WHERE codigo EQ itab_zycit338-codsufra AND
* >> Início da exclusão: FORM CONSISTE_APLICACAO
ncm EQ v_ncm
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_APLICACAO
ncm EQ it_zycit079-steuc1
* << Fim da inclusão
AND destaque EQ v_destaque.
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.
ENDIF.
ELSE.
MESSAGE w061 WITH text-321
text-320 text-432.
* >> Início da exclusão: FORM CONSISTE_APLICACAO
ENDIF.
ELSE.
it_zycit079-codsufra = '0000'.
it_zycit079-destaque = '0001'.
* << Fim da exclusão
ENDIF.
ELSE.
it_zycit079-codsufra = '0000'.
* >> Início da exclusão: FORM CONSISTE_APLICACAO
it_zycit079-destaque = '0001'.
* << Fim da exclusão
ENDIF.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
LOOP AT it_zycit079.
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-slqtde,
it_zycit092-menge TO it_zycit079-menge.
IF it_zycit079-ncm IS INITIAL.
CONCATENATE it_zycit079-steuc1(4) it_zycit079-steuc1+5(2)
it_zycit079-steuc1+8(2) INTO it_zycit079-ncm.
ENDIF.
* >> Início da exclusão: MODULE USER_COMMAND_0002
IF NOT /pws/zycie078-aplicpli EQ '2'.
* << Fim da exclusão
IF it_zycit079-codsufra EQ '0000'.
SELECT SINGLE matnr INTO v_matnr FROM ekpo
WHERE ebeln EQ it_zycit079-ebeln
AND ebelp EQ it_zycit079-ebelp.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit338
WHERE matnr EQ v_matnr.
IF sy-subrc EQ 0.
it_zycit079-codsufra = /pws/zycit338-codsufra.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE USER_COMMAND_0002
ELSE.
it_zycit079-codsufra = '0000'.
it_zycit079-destaque = '0001'.
ENDIF.
* << Fim da exclusão
MODIFY it_zycit079.
ENDIF.
ENDLOOP.
MOVE it_zycit079[] TO it_zycit079_aux2[].
IF NOT /pws/zycie078-numpexpam IS INITIAL.
MOVE it_zycit079[] TO it_zycit079_aux4[].
ENDIF.
LOOP AT it_zycit079.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079.
ENDLOOP.
...
...
LOOP AT ittxt2.
MOVE ittxt2-line TO ittxt1-line.
APPEND ittxt1.
ENDLOOP.
CALL METHOD editor2->set_text_as_r3table EXPORTING
table = ittxt1[].
CASE sy-tcode.
WHEN '/PWS/ZYCI020_C' OR '/PWS/ZYCI020_A' OR
'/PWS/ZYCI020_P' OR '/PWS/ZYCI020_N' OR
'/PWS/ZYCI020_I' OR '/PWS/ZYCI020_G'.
* >> Início da inclusão: MODULE USER_COMMAND_0002
IF ( v_nrpli IS INITIAL AND
v_dtreg IS INITIAL ) .
* << Fim da inclusão
top_editmode = '0'.
* >> Início da inclusão: MODULE USER_COMMAND_0002
ELSE.
top_editmode = '1'.
ENDIF.
* << Fim da inclusão
WHEN OTHERS.
top_editmode = '1'.
ENDCASE.
CALL METHOD editor2->set_readonly_mode EXPORTING
...
...
IF /pws/zycie079a-fabric EQ '3'.
* >> Início da exclusão: MODULE USER_COMMAND_0521
CLEAR /pws/zycie079a-lifnr.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0521
CLEAR: /pws/zycie079a-lifnr, /pws/zycie079a-descfab.
* << Fim da inclusão
ENDIF.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
MODULE load_data OUTPUT.
DATA v_vlmerc_aux LIKE /pws/zycit003-netpr.
DATA: flag_emp TYPE c.
CHECK sy-ucomm NE 'MKTD'.
CHECK sy-ucomm NE 'DKTD'.
* >> Início da inclusão: MODULE LOAD_DATA
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I') .
SELECT SINGLE nrpli dtreg FROM /pws/zycit078
INTO (v_nrpli, v_dtreg)
WHERE nrseqli = /pws/zycie078-nrseqli.
ELSEIF ( sy-tcode EQ '/PWS/ZYCI020_C' OR
sy-tcode EQ '/PWS/ZYCI020_A') AND
NOT /pws/zycie078-numpli IS INITIAL.
SELECT SINGLE nrpli dtreg FROM /pws/zycit078
INTO (v_nrpli, v_dtreg)
WHERE nrseqli = /pws/zycie078-nrseqli.
ENDIF.
* << Fim da inclusão
IF flag_emp IS INITIAL.
GET PARAMETER ID 'BUK' FIELD v_emp.
flag_emp = 'X'.
ENDIF.
...
...
ELSEIF /pws/zycit000-siscomex IS INITIAL.
IF screen-name EQ '/PWS/ZYCIE078-NRLI' OR
screen-name EQ '/PWS/ZYCIE078-DTREG'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF v_tcode EQ '/PWS/ZYCI020_E'.
* >> Início da inclusão: MODULE SET_SCREEN_0101
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF ( sy-tcode EQ '/PWS/ZYCI020_A' OR
sy-tcode EQ '/PWS/ZYCI020_C' ) AND
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
IF screen-name NE '/PWS/ZYCIE078-NRLI' AND
screen-name NE '/PWS/ZYCIE078-DTREG'.
* << Fim da inclusão
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_0101
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDMODULE.
...
...
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE078-LIFNR'.
IF /pws/zycie078-fabricante EQ '0'.
screen-input = '1'.
ELSEIF /pws/zycie078-fabricante EQ '1' OR
/pws/zycie078-fabricante EQ '2' OR
/pws/zycie078-fabricante EQ '3'.
* >> Início da inclusão: MODULE SET_SCREEN_501
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ) AND
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
IF screen-name NE '/PWS/ZYCIE078-NRPLI' AND
screen-name NE '/PWS/ZYCIE078-DTREG'.
* << Fim da inclusão
screen-input = '0'.
* >> Início da inclusão: MODULE SET_SCREEN_501
ELSE.
screen-input = '1' .
* << Fim da inclusão
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
...
...
MODULE status_0500 OUTPUT.
CLEAR it_code.
REFRESH it_code.
* >> Início da inclusão: MODULE STATUS_0500
SELECT SINGLE nrpli dtreg FROM /pws/zycit078
INTO (v_nrpli, v_dtreg)
WHERE nrseqli = /pws/zycie078-nrseqli.
IF v_nrpli IS INITIAL OR
v_dtreg IS INITIAL.
it_code-fcode = 'SVLI' . APPEND it_code.
ENDIF.
* << Fim da inclusão
...
...
it_code-fcode = 'MKTD' . APPEND it_code.
it_code-fcode = 'DKTD' . APPEND it_code.
it_code-fcode = 'MARCDELE'. APPEND it_code.
it_code-fcode = 'DESVIN' . APPEND it_code.
it_code-fcode = 'ENVIO' . APPEND it_code.
it_code-fcode = 'CANCEL' . APPEND it_code.
it_code-fcode = 'TRANSM' . APPEND it_code.
it_code-fcode = 'SVLI' . APPEND it_code.
it_code-fcode = 'EXCLI' . APPEND it_code.
it_code-fcode = 'VERIFY' . APPEND it_code.
* >> Início da exclusão: MODULE STATUS_0500
SET PF-STATUS '0500' EXCLUDING it_code.
* << Fim da exclusão
ELSEIF v_tcode EQ '/PWS/ZYCI020_G'.
* >> Início da exclusão: MODULE STATUS_0500
SET PF-STATUS '0500' EXCLUDING 'MODI'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0500
it_code-fcode = 'MODI' . APPEND it_code.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE STATUS_0500
SET PF-STATUS '0500' EXCLUDING it_code.
* << Fim da inclusão
IF v_tcode EQ '/PWS/ZYCI020_I'.
SET TITLEBAR '0500'.
ELSEIF v_tcode EQ '/PWS/ZYCI020_G'.
SET TITLEBAR '0500A'.
ELSEIF v_tcode EQ '/PWS/ZYCI020_L'.
SET TITLEBAR '0500E'.
ENDIF.
ENDMODULE.
...
...
( screen-name EQ '/PWS/ZYCIE078-CODREGTRI' OR
screen-name EQ '/PWS/ZYCIE078-CODFUNLEG' OR
screen-name EQ '/PWS/ZYCIE078-CODAGSECEX' OR
screen-name EQ '/PWS/ZYCIE078-MODALIDADE' OR
screen-name EQ '/PWS/ZYCIE078-TIPODB' OR
screen-name EQ '/PWS/ZYCIE078-CODTARIF' OR
screen-name EQ '/PWS/ZYCIE078-REG_DRAWBACK' ) .
screen-input = 1.
ELSE.
ENDIF.
* >> Início da inclusão: MODULE SET_SCRENN_106
IF ( sy-tcode EQ '/PWS/ZYCI020_C' OR
sy-tcode EQ '/PWS/ZYCI020_A' ) AND
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
screen-input = 0.
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
ENDLOOP.
ENDIF.
IF v_descr11 IS INITIAL AND
NOT /pws/zycie078-codagsecex IS INITIAL.
SELECT SINGLE descricao FROM /pws/zycit172 INTO v_descr11
WHERE codagencia EQ /pws/zycie078-codagsecex
AND digito EQ /pws/zycie078-digito.
ENDIF.
ENDMODULE.
...
...
IF /pws/zycie078-codfunleg EQ '16'.
IF screen-group2 EQ 'FL1'.
screen-input = '1'.
MODIFY SCREEN.
ENDIF.
ELSE.
IF screen-group2 EQ 'FL1'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_503
ENDIF.
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ) AND
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
screen-input = 0.
MODIFY SCREEN.
* << Fim da inclusão
ENDIF.
ENDLOOP.
ENDIF.
ENDMODULE.
...
...
IF /pws/zycie078-codcambial EQ '3'.
IF screen-group2 EQ 'CB4'.
screen-input = '1'.
MODIFY SCREEN.
ENDIF.
ELSE.
IF screen-group2 EQ 'CB4'.
CLEAR /pws/zycie078-codinst.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_505
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ) AND
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
screen-input = 0.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
...
...
CALL METHOD editor2->set_text_as_r3table EXPORTING
table = ittxt1[].
CASE sy-tcode.
WHEN '/PWS/ZYCI020_C' OR '/PWS/ZYCI020_A' OR
'/PWS/ZYCI020_P' OR '/PWS/ZYCI020_N' OR
'/PWS/ZYCI020_I' OR '/PWS/ZYCI020_G'.
* >> Início da inclusão: MODULE CARREGA_EDITOR
IF ( v_nrpli IS INITIAL AND
v_dtreg IS INITIAL ) .
* << Fim da inclusão
top_editmode = '0'.
* >> Início da inclusão: MODULE CARREGA_EDITOR
ELSE.
top_editmode = '1'.
ENDIF.
* << Fim da inclusão
WHEN OTHERS.
top_editmode = '1'.
ENDCASE.
CALL METHOD editor2->set_readonly_mode EXPORTING
...
...
MODULE set_screen_110 OUTPUT.
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE078-QTDEST' AND
/pws/zycie078-nrseqd NE space.
screen-input = '0'.
* >> Início da inclusão: MODULE SET_SCREEN_110
MODIFY SCREEN.
ENDIF.
IF ( sy-tcode EQ '/PWS/ZYCI020_C' OR
sy-tcode EQ '/PWS/ZYCI020_A' ) AND
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
screen-input = 0.
* << Fim da inclusão
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020X01
...
* >> Início da inclusão:
DATA: v_nrpli TYPE /pws/zycie078-nrpli,
v_dtreg TYPE /pws/zycie078-dtreg.
* << Fim da inclusão
DATA: END OF COMMON PART.