CE PLUS - Nota 005225
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Dados Adicionais
Data/Hora da Publicação: 14/11/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 10:17:16
Descrição da Nota: AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA DADOS ADICIONAIS.
Sintoma
Programa com instruções obsoletas ou que apresentam erros/alertas ao executar a verificação ampliada
do programa ou o Code Inspector.
Solução
Implementação de ajustes no código do programa de forma a eliminar os erros e alertas encontrados na
verificação ampliada e ao executar o Code Inspector.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05225 Data: 14/11/2007 Hora: 10:50:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05225
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00021
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03499 - 00001 - 7.0 - 00001 - INCLUSÃO DE OBJETO NO INCLUDE DE COMPARTILHAMENTO
----------------------------------------------------------------------------------------------------
AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA DADOS ADICIONAIS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
CÓDIGO, CODE INSPECTOR, MENSAGENS, VERIFICAÇÃO, DADOS ADICIONAIS
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOCU NA/PWS/ZYCEM112
REPS /PWS/MZYCE038F01
REPS /PWS/MZYCE038I01
REPS /PWS/MZYCE038O01
REPS /PWS/MZYCE038TOP
REPS /PWS/MZYCE038X01
REPT /PWS/SAPMZYCE038
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM112
Classe de Mensagem: /PWS/ZYCEM.
Mensagem: 112.
Marcar opção "Auto-Explicat.".
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE038F01
...
WHERE nrseq = wa_zycee001-nrseq.
SELECT * FROM /pws/zycet008 INTO TABLE itab_zycet008
WHERE nrseq = wa_zycee001-nrseq.
CALL FUNCTION '/PWS/ZYCE_SEPARA_ITENS_EMB'
EXPORTING
nrseq = wa_zycee001-nrseq
TABLES
tab_saida = itab_saida
EXCEPTIONS
itens_nao_encontrados = 1.
* >> Início da inclusão: FORM SELECIONA_DADOS
IF sy-subrc EQ 0.
ELSE.
ENDIF.
* << Fim da inclusão
APPEND LINES OF itab_saida[] TO itab_zycet002_102[].
ENDIF.
ELSE.
IMPORT wa_zycee001 FROM MEMORY ID 'ID_ADIC_001'.
IF sy-subrc = 0.
MOVE-CORRESPONDING wa_zycee001 TO /pws/zycee001.
IMPORT itab_zycet002 FROM MEMORY ID 'ID_ADIC_002'.
IMPORT itab_zycet002_102 FROM MEMORY ID 'ID_ADIC_002_102'.
IMPORT itab_zycet008 FROM MEMORY ID 'ID_ADIC_008'.
FREE MEMORY ID: 'ID_ADIC_001',
...
* Seleciona dados da RV.
IF NOT itab_zycet002[] IS INITIAL.
SELECT b~nrseqrv a~nrrv
b~vbeln_va b~posnr
FROM /pws/zycet112 AS a "#EC CI_BUFFJOIN
INNER JOIN /pws/zycet113 AS b "#EC CI_BUFFJOIN
ON a~nrseqrv = b~nrseqrv
INTO TABLE itab_rv
FOR ALL ENTRIES IN itab_zycet002
WHERE b~vbeln_va = itab_zycet002-vbeln_va
AND b~posnr = itab_zycet002-aupos.
...
*Seleção das tabelas de parâmetro
SELECT * FROM /pws/zycet259 INTO TABLE itab_zycet259. "#EC CI_NOWHERE
SELECT * FROM /pws/zycet076 INTO TABLE itab_zycet076. "#EC CI_NOWHERE
...
EXPORTING
i_codmod = 'X'
i_func = '/PWS/SAPMZYCE038'
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM LOAD_EXIT
IF sy-subrc EQ 0.
ELSE.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM busca_dados_saqueexp.
CLEAR: /pws/zycet069,
itab_zycet049.
IF NOT /pws/zycee046-avista IS INITIAL AND NOT /pws/zycee046-cobranca
IS INITIAL.
CLEAR: /pws/zycee046-avista,
/pws/zycee046-cobranca.
ENDIF.
IF /pws/zycee046-avista IS INITIAL AND /pws/zycee046-cobranca IS
...
...
IF NOT itab_zyglt100-formulario IS INITIAL AND
NOT itab_zyglt100-programa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
IF FOUND.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM busca_frete.
* >> Início da inclusão: FORM BUSCA_FRETE
REFRESH itab_zycet008ax.
LOOP AT itab_zycet008.
MOVE-CORRESPONDING itab_zycet008 TO itab_zycet008ax.
APPEND itab_zycet008ax.
ENDLOOP.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCE_CALC_VALOR_CONDITION'
IMPORTING
/pws/zycee313 = /pws/zycee313
TABLES
* >> Início da exclusão: FORM BUSCA_FRETE
itab_zycet008 = itab_zycet008.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_FRETE
itab_zycet008 = itab_zycet008ax.
* << Fim da inclusão
* >> Início da exclusão: FORM BUSCA_FRETE
IF sy-subrc EQ 0 AND
/pws/zycee313-vlme_frt GT 0.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_FRETE
LOOP AT itab_zycet008ax.
MOVE-CORRESPONDING itab_zycet008ax TO itab_zycet008.
MODIFY itab_zycet008 INDEX sy-tabix.
ENDLOOP.
IF /pws/zycee313-vlme_frt GT 0.
* << Fim da inclusão
IF /pws/zycee046-vlfrete IS INITIAL
OR /pws/zycee313-vlme_frt NE /pws/zycee046-vlfrete.
CLEAR /pws/zycee046-vlfrete.
LOOP AT itab_zycet002.
READ TABLE itab_zycet023 WITH KEY fkart = itab_zycet002-fkart
frete = 'X'
bukrs = itab_zycet002-bukrs.
IF sy-subrc = 0.
ADD itab_zycet002-vlme TO /pws/zycee046-vlfrete.
CONTINUE.
...
...
nrrota_tr_tela = /pws/zycee046-nrrota_tr.
nrseqno_tela = /pws/zycee046-nrseqno.
nrseqcg_tela = /pws/zycee046-nrseqcg.
READ TABLE itab_zycet002_102 INDEX 1.
IF /pws/zycee001-tipo_emb <> 'D'.
IF NOT itab_zycet002_102[] IS INITIAL.
CLEAR v_vinc.
LOOP AT itab_zycet002_102.
CHECK NOT itab_zycet002_102-vbeln_va IS INITIAL AND
NOT v_vinc = 'X'.
* >> Início da exclusão: FORM BUSCA_ROTA
SELECT SINGLE nrseqtr
nrrota_tr
nrseqno
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ROTA
SELECT nrseqtr nrrota_tr nrseqno
* << Fim da inclusão
FROM /pws/zycet108
* >> Início da inclusão: FORM BUSCA_ROTA
UP TO 1 ROWS
* << Fim da inclusão
INTO (/pws/zycee046-nrseqtr,
/pws/zycee046-nrrota_tr,
/pws/zycee046-nrseqno)
WHERE vbeln_va = itab_zycet002_102-vbeln_va
AND posnr = itab_zycet002_102-aupos.
* >> Início da inclusão: FORM BUSCA_ROTA
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0.
v_vinc ='X'.
ENDIF.
ENDLOOP.
* >> Início da exclusão: FORM BUSCA_ROTA
SELECT SINGLE nrseqcg
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ROTA
SELECT nrseqcg
* << Fim da inclusão
FROM /pws/zycet054
* >> Início da inclusão: FORM BUSCA_ROTA
UP TO 1 ROWS
* << Fim da inclusão
INTO /pws/zycee046-nrseqcg
WHERE nrseq = /pws/zycee001-nrseq.
* >> Início da inclusão: FORM BUSCA_ROTA
ENDSELECT.
* << Fim da inclusão
IF /pws/zycee046-nrseqno IS INITIAL.
* >> Início da exclusão: FORM BUSCA_ROTA
SELECT SINGLE nrseqno
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ROTA
SELECT nrseqno
* << Fim da inclusão
FROM /pws/zycet108
* >> Início da inclusão: FORM BUSCA_ROTA
UP TO 1 ROWS
* << Fim da inclusão
INTO (/pws/zycee046-nrseqno)
WHERE vbeln_va = itab_zycet002_102-vbeln_va AND
posnr = itab_zycet002_102-aupos.
* >> Início da inclusão: FORM BUSCA_ROTA
ENDSELECT.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSEIF /pws/zycee001-tipo_emb = 'D'.
IF NOT itab_zycet002_102-ebeln IS INITIAL.
* >> Início da exclusão: FORM BUSCA_ROTA
SELECT SINGLE * FROM /pws/zycet135 INTO /pws/zycet135
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ROTA
SELECT *
FROM /pws/zycet135
UP TO 1 ROWS
INTO /pws/zycet135
* << Fim da inclusão
WHERE ebeln = itab_zycet002_102-ebeln.
* >> Início da inclusão: FORM BUSCA_ROTA
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0.
MOVE /pws/zycet135-nrseqno TO /pws/zycee046-nrseqno.
SELECT SINGLE * FROM /pws/zycet106 INTO /pws/zycet106
WHERE nrseqno = /pws/zycet135-nrseqno.
IF sy-subrc = 0.
MOVE: /pws/zycet106-nrseqtr TO /pws/zycee046-nrseqtr,
...
...
OR nrrota_tr_tela <> /pws/zycee046-nrrota_tr
OR nrseqno_tela <> /pws/zycee046-nrseqno
OR nrseqcg_tela <> /pws/zycee046-nrseqcg.
v_datar = 'X'.
ENDIF.
ENDFORM.
FORM busca_banco.
READ TABLE itab_zycet002_102 INDEX 1.
IF /pws/zycee046-bco1 IS INITIAL AND
NOT itab_zycet002_102-vbeln_va IS INITIAL.
* >> Início da exclusão: FORM BUSCA_BANCO
SELECT SINGLE lifnr FROM vbpa
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_BANCO
SELECT lifnr
FROM vbpa
UP TO 1 ROWS
* << Fim da inclusão
INTO /pws/zycee046-bco1
WHERE vbeln = itab_zycet002_102-vbeln_va AND
parvw = 'ZP'.
* >> Início da inclusão: FORM BUSCA_BANCO
ENDSELECT.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM busca_armador.
READ TABLE itab_zycet002_102 INDEX 1.
...
...
WHERE lifnr = /pws/zycee046-codarmad.
ENDIF.
ENDIF.
IF NOT /pws/zycee046-nrseqtr IS INITIAL AND
/pws/zycee046-codarmad IS INITIAL.
SELECT SINGLE armador FROM /pws/zycet101
INTO (/pws/zycee046-codarmad)
WHERE nrseqtr = /pws/zycee046-nrseqtr.
ENDIF.
IF NOT /pws/zycee046-codarmad IS INITIAL.
* >> Início da exclusão: FORM BUSCA_ARMADOR
SELECT SINGLE armador FROM /pws/zycet133
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ARMADOR
SELECT armador
FROM /pws/zycet133
UP TO 1 ROWS
* << Fim da inclusão
INTO (d_armador)
WHERE codarmad = /pws/zycee046-codarmad.
* >> Início da inclusão: FORM BUSCA_ARMADOR
ENDSELECT.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM busca_descr_cli_cambio.
IF NOT /pws/zycee100-cli_cambio IS INITIAL.
SELECT SINGLE name1 FROM kna1
INTO d_cli_cambio
WHERE kunnr = /pws/zycee100-cli_cambio.
ENDIF.
ENDFORM.
FORM busca_agente.
CLEAR: /pws/zycet108, /pws/zycet107.
READ TABLE itab_zycet002_102 INDEX 1.
* >> Início da exclusão: FORM BUSCA_AGENTE
SELECT SINGLE * FROM /pws/zycet108 INTO /pws/zycet108
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_AGENTE
SELECT *
FROM /pws/zycet108
UP TO 1 ROWS
INTO /pws/zycet108
* << Fim da inclusão
WHERE vbeln_va = itab_zycet002_102-vbeln_va.
* >> Início da inclusão: FORM BUSCA_AGENTE
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0.
* >> Início da exclusão: FORM BUSCA_AGENTE
SELECT SINGLE * FROM /pws/zycet107 INTO /pws/zycet107
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_AGENTE
SELECT *
FROM /pws/zycet107
UP TO 1 ROWS
INTO /pws/zycet107
* << Fim da inclusão
WHERE nrseqtr = /pws/zycet108-nrseqtr.
* >> Início da inclusão: FORM BUSCA_AGENTE
ENDSELECT.
* << Fim da inclusão
MOVE /pws/zycet107-agente TO /pws/zycee046-agentp.
* >> Início da exclusão: FORM BUSCA_AGENTE
MOVE /pws/zycet107-descagente TO d_descri.
* << Fim da exclusão
ENDIF.
ENDFORM.
FORM descricao_sif.
DATA: v_sif(7) TYPE c.
CONCATENATE 'SIF' /pws/zycee100-nsif INTO v_sif.
CLEAR: /pws/zycee100-descentr.
IF NOT /pws/zycee100-nsif IS INITIAL.
* >> Início da exclusão: FORM DESCRICAO_SIF
SELECT SINGLE name1 FROM kna1
* << Fim da exclusão
* >> Início da inclusão: FORM DESCRICAO_SIF
SELECT name1
FROM kna1
UP TO 1 ROWS
* << Fim da inclusão
INTO /pws/zycee100-descentr
WHERE sortl LIKE v_sif.
* >> Início da inclusão: FORM DESCRICAO_SIF
ENDSELECT.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM nome_pais.
IF NOT /pws/zycee046-land1 IS INITIAL.
SELECT SINGLE landx FROM t005t INTO /pws/zycee046-pais
WHERE land1 = /pws/zycee046-land1
AND spras = 'PT'.
ENDIF.
ENDFORM.
FORM busca_outras.
IF /pws/zycee046-kunnr IS INITIAL OR /pws/zycee046-name1 IS INITIAL.
IF /pws/zycee001-tipo_emb <> 'D'.
READ TABLE itab_zycet076 WITH KEY codigo_ce = 'CF'
codigo_r3 = 'AG'.
IF sy-subrc <> 0.
* >> Início da exclusão: FORM BUSCA_OUTRAS
SELECT SINGLE kunnr FROM vbpa
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_OUTRAS
SELECT kunnr
FROM vbpa
UP TO 1 ROWS
* << Fim da inclusão
INTO (/pws/zycee046-kunnr)
WHERE vbeln = itab_zycet002-vbeln_va
AND parvw = 'WE'.
* >> Início da inclusão: FORM BUSCA_OUTRAS
ENDSELECT.
* << Fim da inclusão
SELECT SINGLE name1 FROM kna1
INTO (/pws/zycee046-name1)
WHERE kunnr = /pws/zycee046-kunnr.
ELSE.
SELECT SINGLE kunnr FROM vbak
INTO (/pws/zycee046-kunnr)
WHERE vbeln = itab_zycet002-vbeln_va.
SELECT SINGLE name1 FROM kna1
INTO (/pws/zycee046-name1)
WHERE kunnr = /pws/zycee046-kunnr.
ENDIF.
ELSE.
* >> Início da exclusão: FORM BUSCA_OUTRAS
SELECT SINGLE kunnr FROM vbpa
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_OUTRAS
SELECT kunnr
FROM vbpa
UP TO 1 ROWS
* << Fim da inclusão
INTO (/pws/zycee046-kunnr)
WHERE vbeln = itab_zycet002-vbeln_vl
AND parvw = 'WE'.
* >> Início da inclusão: FORM BUSCA_OUTRAS
ENDSELECT.
* << Fim da inclusão
SELECT SINGLE name1 FROM kna1
INTO (/pws/zycee046-name1)
WHERE kunnr = /pws/zycee046-kunnr.
ENDIF.
...
...
lines = itab_tline4
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
* >> Início da inclusão: FORM PREENCHE_NOTIFY
IF sy-subrc EQ 0.
ELSE.
ENDIF.
* << Fim da inclusão
PERFORM salva_notify2.
CALL FUNCTION 'EDIT_TEXT'
EXPORTING
header = wa_thead4
TABLES
lines = itab_tline4
EXCEPTIONS
id = 1
language = 2
linesize = 3
name = 4
object = 5
textformat = 6
communication = 7
OTHERS = 8.
* >> Início da inclusão: FORM PREENCHE_NOTIFY
IF sy-subrc EQ 0.
ELSE.
ENDIF.
* << Fim da inclusão
PERFORM salva_notify.
READ TABLE itab_tline4 INDEX 1.
IF sy-subrc = 0.
READ TABLE itab_zycet047 INDEX v_line.
itab_zycet047-notify = itab_tline4-tdline.
MODIFY itab_zycet047 INDEX v_line.
IF sy-subrc = 4.
APPEND itab_zycet047.
ENDIF.
ELSE.
...
...
IMPORTING
newheader = wa_thead4
TABLES
lines = itab_tline4
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
* >> Início da inclusão: FORM SALVA_NOTIFY2
IF sy-subrc EQ 0.
ELSE.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SALVA_NOTIFY2
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM salva_notify.
IF wa_thead4 IS INITIAL.
PERFORM preenche_thead USING wa_thead4 'CE03'.
ENDIF.
READ TABLE itab_tline4 INDEX 1.
...
...
IMPORTING
newheader = wa_thead4
TABLES
lines = itab_tline4
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
* >> Início da inclusão: FORM SALVA_NOTIFY
IF sy-subrc EQ 0.
ELSE.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM preenche_consignee.
CLEAR: wa_thead5,
itab_zycet047.
READ TABLE itab_zycet047 INDEX v_line.
CHECK NOT itab_zycet047-nrbl IS INITIAL.
PERFORM preenche_thead USING wa_thead5 'CE04'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
...
...
lines = itab_tline5
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
* >> Início da inclusão: FORM PREENCHE_CONSIGNEE
IF sy-subrc EQ 0.
ELSE.
ENDIF.
* << Fim da inclusão
PERFORM salva_consignee2.
CALL FUNCTION 'EDIT_TEXT'
EXPORTING
header = wa_thead5
TABLES
lines = itab_tline5
EXCEPTIONS
id = 1
language = 2
linesize = 3
name = 4
object = 5
textformat = 6
communication = 7
OTHERS = 8.
* >> Início da inclusão: FORM PREENCHE_CONSIGNEE
IF sy-subrc EQ 0.
ELSE.
ENDIF.
* << Fim da inclusão
PERFORM salva_consignee.
READ TABLE itab_tline5 INDEX 1.
IF sy-subrc = 0.
READ TABLE itab_zycet047 INDEX v_line.
itab_zycet047-consignee = itab_tline5-tdline.
MODIFY itab_zycet047 INDEX v_line.
IF sy-subrc = 4.
APPEND itab_zycet047.
ENDIF.
ELSE.
...
...
IMPORTING
newheader = wa_thead5
TABLES
lines = itab_tline5
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
* >> Início da inclusão: FORM SALVA_CONSIGNEE2
IF sy-subrc EQ 0.
ELSE.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM salva_consignee.
IF wa_thead5 IS INITIAL.
PERFORM preenche_thead USING wa_thead5 'CE04'.
ENDIF.
READ TABLE itab_tline5 INDEX 1.
IF itab_tline5-tdline <> itab_zycet047-consignee.
itab_zycet047-consignee = itab_tline5-tdline.
MODIFY itab_tline5 INDEX 1.
...
...
IMPORTING
newheader = wa_thead5
TABLES
lines = itab_tline5
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
* >> Início da inclusão: FORM SALVA_CONSIGNEE
IF sy-subrc EQ 0.
ELSE.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM save_adic.
CLEAR itab_problema. REFRESH itab_problema.
CALL METHOD edit_p->get_text_as_r3table
IMPORTING table = itab_problema[].
DELETE FROM /pws/zycet056 WHERE nrseq = /pws/zycee001-nrseq.
itab_zycet056-nrseq = /pws/zycee001-nrseq.
MODIFY itab_zycet056 TRANSPORTING nrseq WHERE nrseq = ' '.
MODIFY /pws/zycet056 FROM TABLE itab_zycet056.
...
...
IF v_datar = 'X'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-019
text_question = text-020
IMPORTING
answer = v_resp
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM CONFIRMA_SAIDA
IF sy-subrc EQ 0.
ELSE.
ENDIF.
* << Fim da inclusão
IF v_resp EQ '1'.
LOOP AT itab_problema.
IF itab_problema-lines IS INITIAL.
DELETE itab_problema.
ENDIF.
ENDLOOP.
DESCRIBE TABLE itab_problema LINES v_line.
IF v_line GT 10.
MESSAGE i016 WITH text-037 text-038.
CALL SCREEN 0100.
...
...
IF screen-name = '/PWS/ZYCEE046-BCO1'.
screen-invisible = '1'.
screen-active = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
WHEN '.'.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCEE046-BCO1'.
IF v_subrc3 = 'X'.
* >> Início da exclusão: FORM CONFIGURACOES_TELA
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM CONFIGURACOES_TELA
SELECT *
* << Fim da inclusão
FROM /pws/zycbt017
* >> Início da inclusão: FORM CONFIGURACOES_TELA
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrinvoic = /pws/zycee001-nrseq.
* >> Início da inclusão: FORM CONFIGURACOES_TELA
ENDSELECT.
* << Fim da inclusão
IF sy-subrc IS INITIAL.
IF /pws/zycbt017-bconegoc IS INITIAL.
...
...
MODIFY SCREEN.
ELSEIF itab_zyglt320-flag EQ text-027.
IF sy-tcode EQ '/PWS/ZYCE101_A'.
screen-input = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM okcode_spec.
* >> Início da exclusão: FORM OKCODE_SPEC
DATA: v_transacao LIKE /pws/zycet079-transacao.
* << Fim da exclusão
IF NOT v_tcodebotao IS INITIAL.
EXPORT itab_zycet002_102[] TO MEMORY ID 'T002'.
EXPORT okcode TO MEMORY ID 'OK02'.
SUBMIT (v_tcodebotao) AND RETURN.
ENDIF.
ENDFORM.
FORM trata_subscreen.
READ TABLE itab_zycet259 INDEX 1.
IF sy-subrc EQ 0.
IF itab_zycet259-tela = '0101'.
...
...
lines = itab_tline4
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
* >> Início da inclusão: FORM READ_TEXTA
IF sy-subrc EQ 0.
ELSE.
ENDIF.
* << Fim da inclusão
CASE okcode.
WHEN 'B_READA'.
PERFORM atualiza_reada.
WHEN 'B_READB'.
PERFORM atualiza_readb.
WHEN 'B_READC'.
PERFORM atualiza_readc.
WHEN 'B_READD'.
PERFORM atualiza_readd.
WHEN 'B_READE'.
...
...
IMPORTING
newheader = wa_thead4
TABLES
lines = itab_tline4
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
* >> Início da inclusão: FORM READ_TEXTA
IF sy-subrc EQ 0.
ELSE.
ENDIF.
* << Fim da inclusão
CALL FUNCTION 'EDIT_TEXT'
EXPORTING
header = wa_thead4
display = v_display
TABLES
lines = itab_tline4
EXCEPTIONS
id = 1
language = 2
linesize = 3
...
...
IMPORTING
newheader = wa_thead4
TABLES
lines = itab_tline4
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
* >> Início da inclusão: FORM READ_TEXTA
IF sy-subrc EQ 0.
ELSE.
ENDIF.
* << Fim da inclusão
CASE okcode.
WHEN 'B_READA'.
READ TABLE itab_tline4 INDEX 1.
IF sy-subrc = 0.
/pws/zycee264-readtexta = itab_tline4-tdline.
ENDIF.
WHEN 'B_READB'.
READ TABLE itab_tline4 INDEX 1.
IF sy-subrc = 0.
/pws/zycee264-readtextb = itab_tline4-tdline.
...
...
CHANGING: readtexte.
PERFORM busca_descricao
USING: '/PWS/ZYCEE264-READTEXTF'
CHANGING: readtextf.
ENDFORM.
FORM move_descricao_0102.
PERFORM busca_descricao
USING: '/PWS/ZYCEE046-BCO2'
CHANGING: bco2.
ENDFORM.
...
FORM set_screen_desembaraco. "#EC CALLED
LOOP AT SCREEN.
IF sy-tcode = '/PWS/ZYCE102_A' OR sy-tcode = '/PWS/ZYCE102_C'.
IF screen-name = '/PWS/ZYCEE102-DTDESEMBARACO'.
screen-input = 1.
ENDIF.
ELSE.
IF screen-name = '/PWS/ZYCEE102-DTDESEMBARACO'.
screen-input = 0.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM. " set_screen_desembaraco
...
* >> Início da exclusão: MODULE SET_SCREEN_ADIC
MODULE set_screen_adic OUTPUT.
ENDMODULE.
* << Fim da exclusão
FORM load_home_page.
DATA: doc_url(80).
PERFORM load_graphics.
CALL METHOD html_control->load_html_document
EXPORTING
document_id = '/PWS/ZYCEH038_001'
IMPORTING
assigned_url = doc_url
EXCEPTIONS
OTHERS = 1.
...
...
ENDFORM.
FORM load_graphics.
CALL METHOD html_control->load_mime_object
EXPORTING
object_id = 'CATSXT_START_IMAGE'
object_url = 'CATSXT_START_IMAGE'
EXCEPTIONS
OTHERS = 1.
ENDFORM.
FORM determina_tabstrip.
* >> Início da exclusão: FORM DETERMINA_TABSTRIP
DATA: BEGIN OF itab_zyglt370_tabs OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt370.
DATA: END OF itab_zyglt370_tabs.
DATA: v_indice(2) TYPE n,
v_cmapo LIKE /pws/zyglt370-campo.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_TABSTRIP
DATA: v_indice(2) TYPE n.
* << Fim da inclusão
IF NOT taxi_tabstrip_captions-tab01 IS INITIAL.
EXIT.
ENDIF.
PERFORM define_itab_tabstrip.
FIELD-SYMBOLS: <field>.
* >> Início da exclusão: FORM DETERMINA_TABSTRIP
SELECT * FROM /pws/zyglt370
INTO TABLE itab_zyglt370_tabs
WHERE grupo = 'DE' AND
programa = sy-repid AND
spras = sy-langu.
* << Fim da exclusão
CLEAR v_indice.
DO 12 TIMES.
MOVE sy-index TO v_indice.
CONCATENATE 'TAXI_TABSTRIP_CAPTIONS-TAB' v_indice INTO v_campo.
ASSIGN COMPONENT v_indice
OF STRUCTURE taxi_tabstrip_captions
TO <field>.
READ TABLE itab_zyglt370
WITH KEY campo = v_campo.
IF sy-subrc EQ 0.
...
...
itab_tabstrip-descr = text-048.
WHEN '11'.
itab_tabstrip-descr = text-049.
WHEN '12'.
itab_tabstrip-descr = text-050.
ENDCASE.
APPEND itab_tabstrip.
ENDDO.
ENDFORM.
FORM okcode_sele.
* >> Início da exclusão: FORM OKCODE_SELE
DATA: v_nrseqtr LIKE /pws/zycee101-nrseqtr,
v_nrrota_tr LIKE /pws/zycee102-nrrota_tr,
v_nrseqno LIKE /pws/zycee106-nrseqno,
v_nrseqcg LIKE /pws/zycet046-nrseqcg,
* << Fim da exclusão
* >> Início da inclusão: FORM OKCODE_SELE
DATA: v_nrseqcg LIKE /pws/zycet046-nrseqcg,
* << Fim da inclusão
v_flag_emb(1) TYPE c,
v_nrseq_carga LIKE /pws/zycet002-nrseq,
gnrseqtr LIKE /pws/zycee101-nrseqtr,
gnrrota_tr LIKE /pws/zycee102-nrrota_tr,
gnrseqno LIKE /pws/zycee106-nrseqno,
pnrseqtr LIKE indx-srtfd VALUE 'NRSEQTR',
pnrrota_tr LIKE indx-srtfd VALUE 'NRROTA_TR',
pnrseqno LIKE indx-srtfd VALUE 'NRSEQNO'.
IF NOT /pws/zycee046-nrseqtr IS INITIAL.
gnrseqtr = /pws/zycee046-nrseqtr.
...
...
CALL TRANSACTION '/PWS/ZYCE103_E' AND SKIP FIRST SCREEN.
ELSE.
MESSAGE e261(sf) WITH '/PWS/ZYCE103_E'.
ENDIF.
ENDIF.
CLEAR: v_flag_emb,
v_nrseqcg,
v_nrseq_carga,
v_valor,
v_campo,
* >> Início da exclusão: FORM OKCODE_SELE
v_nrseqtr,
v_nrrota_tr,
v_nrseqno,
* << Fim da exclusão
okcode.
ENDFORM.
FORM okcode_enter.
CLEAR header_lfa1.
MOVE-CORRESPONDING lfa1 TO header_lfa1.
SELECT SINGLE * FROM lfa1 WHERE lifnr = /pws/zycee262-transpl.
IF sy-subrc = 0.
MOVE lfa1-name1 TO /pws/zycee262-ntranspl.
ELSE.
CLEAR /pws/zycee262-ntranspl.
ENDIF.
SELECT SINGLE * FROM lfa1 WHERE lifnr = /pws/zycee262-opertk.
IF sy-subrc = 0.
MOVE lfa1-name1 TO /pws/zycee262-nopertk.
ELSE.
CLEAR /pws/zycee262-nopertk.
ENDIF.
MOVE-CORRESPONDING header_lfa1 TO lfa1.
ENDFORM.
* >> Início da exclusão: FORM EXPANDE_TELA
FORM expande_tela USING v_botao_1
* << Fim da exclusão
* >> Início da inclusão: FORM EXPANDE_TELA
FORM expande_tela USING v_botao_1 TYPE n
* << Fim da inclusão
v_botao_2.
DATA: v_botao TYPE i.
FIELD-SYMBOLS <estrutura>.
IF v_botao_1+01(2) LT 10.
MOVE v_botao_1+02(1) TO v_botao.
ELSE.
MOVE v_botao_1+01(2) TO v_botao.
ENDIF.
ASSIGN COMPONENT v_botao
OF STRUCTURE wa_tabstrip
...
...
screen-active = '1'.
ELSE.
screen-invisible = '1'.
screen-input = '0'.
screen-output = '0'.
screen-active = '0'.
ENDIF.
ENDIF.
ENDFORM.
FORM salva_certificado USING p_index.
* >> Início da exclusão: FORM SALVA_CERTIFICADO
FIELD-SYMBOLS <campo>.
* << Fim da exclusão
READ TABLE itab_problema INDEX p_index.
IF sy-subrc EQ 0.
CASE p_index.
WHEN 1.
MOVE itab_problema-lines(75) TO /pws/zycee151-linha1.
WHEN 2.
MOVE itab_problema-lines(75) TO /pws/zycee151-linha2.
WHEN 3.
MOVE itab_problema-lines(75) TO /pws/zycee151-linha3.
WHEN 4.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE038I01
MODULE user_command INPUT.
SET LOCALE LANGUAGE sy-langu.
TRANSLATE /pws/zycee046-dados TO LOWER CASE.
* >> Início da exclusão: MODULE USER_COMMAND
DATA: e_subrc LIKE sy-subrc,
e_exec_okcode.
CLEAR: r_okcode, e_exec_okcode.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND
CLEAR: r_okcode .
* << Fim da inclusão
CALL METHOD cl_gui_cfw=>dispatch.
IF NOT r_okcode IS INITIAL.
okcode = r_okcode.
ENDIF.
clear sy-subrc.
perform exit_okcode.
check sy-subrc = 0.
CASE sy-dynnr.
WHEN '0001'.
PERFORM: load_exit,
...
* Seleciona descrição dos campos
* perform move_descricao_0102.
*
WHEN 'FC_ADIC2'.
pressed_tab = okcode.
dynpronr = '0103'.
sy-dynnr = '0103'. "#EC *
...
FREE edit_p.
ENDIF.
IF NOT container_p IS INITIAL.
CALL METHOD container_p->free.
FREE container_p.
ENDIF.
LEAVE PROGRAM.
WHEN 'SAVE'.
IF NOT /pws/zycee100-proforma IS INITIAL AND
/pws/zycee100-envioprof IS INITIAL.
* >> Início da exclusão: MODULE USER_COMMAND
MESSAGE w111.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND
message w001 with text-111.
* << Fim da inclusão
IF /pws/zycee225-pesobruto < /pws/zycee225-tara.
* >> Início da exclusão: MODULE USER_COMMAND
MESSAGE w112 WITH /pws/zycee225-ntfiscal.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND
MESSAGE w112 with /pws/zycee225-ntfiscal.
* << Fim da inclusão
ENDIF.
ELSE.
loop at itab_problema.
...
...
MODULE user_command_exit INPUT.
IF sy-dynnr = '0100' AND sy-tcode <> '/PWS/ZYCE038_E'.
PERFORM confirma_saida.
ENDIF.
LEAVE PROGRAM.
ENDMODULE.
MODULE modify_line INPUT.
CASE sy-dynnr.
WHEN '0105'.
IF v_subrc1 = 'X'.
* >> Início da exclusão: MODULE MODIFY_LINE
READ TABLE itab_zycet047 INTO wa_zycet047
WITH KEY nrseq = /pws/zycee001-nrseq
matnr = /pws/zycee047-matnr.
* << Fim da exclusão
IF sy-subrc = 0 AND NOT /pws/zycee047-matnr IS INITIAL.
itab_zycet047-nrseq = /pws/zycee047-nrseq =
/pws/zycee001-nrseq.
MOVE-CORRESPONDING /pws/zycee047 TO itab_zycet047.
MODIFY itab_zycet047 INDEX tc_bl-current_line.
ELSE.
itab_zycet047-nrseq = /pws/zycee047-nrseq =
/pws/zycee001-nrseq.
MOVE-CORRESPONDING /pws/zycee047 TO itab_zycet047.
APPEND itab_zycet047.
ENDIF.
ELSE.
itab_zycet047-nrseq = /pws/zycee047-nrseq = /pws/zycee001-nrseq.
MOVE d_check TO itab_zycet047-mark.
* >> Início da exclusão: MODULE MODIFY_LINE
READ TABLE itab_zycet047 INTO wa_zycet047
WITH KEY nrseq = /pws/zycee047-nrseq
matnr = /pws/zycee047-matnr.
* << Fim da exclusão
IF sy-subrc = 0 AND NOT /pws/zycee047-matnr IS INITIAL.
MOVE-CORRESPONDING /pws/zycee047 TO itab_zycet047.
MODIFY itab_zycet047 INDEX tc_bl-current_line.
ELSE.
* >> Início da exclusão: MODULE MODIFY_LINE
READ TABLE itab_zycet047 INTO wa_zycet047
WITH KEY nrseq = /pws/zycee047-nrseq
nrbl = /pws/zycee047-nrbl.
* << Fim da exclusão
IF sy-subrc = 0 AND NOT /pws/zycee047-nrbl IS INITIAL.
...
...
IF NOT /pws/zycee047-nrbl IS INITIAL.
MOVE-CORRESPONDING /pws/zycee047 TO itab_zycet047.
APPEND itab_zycet047.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
WHEN '0101'.
itab_zycet049-nrseq = /pws/zycee049-nrseq = /pws/zycee001-nrseq.
MOVE d_check TO itab_zycet049-mark.
* >> Início da exclusão: MODULE MODIFY_LINE
READ TABLE itab_zycet049 INTO wa_zycet049
WITH KEY nrseq = /pws/zycee049-nrseq
nrseqrv = /pws/zycee049-nrseqrv.
* << Fim da exclusão
IF sy-subrc = 0.
MODIFY itab_zycet049 INDEX tc_rv-current_line.
ELSE.
MOVE-CORRESPONDING /pws/zycee049 TO itab_zycet049.
APPEND itab_zycet049.
ENDIF.
WHEN '0107'.
MOVE /pws/zycee001-nrseq TO /pws/zycee056-nrseq.
* >> Início da exclusão: MODULE MODIFY_LINE
READ TABLE itab_zycet056 INTO wa_zycet056
WITH KEY nrseq = /pws/zycee056-nrseq
aupos = /pws/zycee056-aupos.
* << Fim da exclusão
IF sy-subrc = 0.
MOVE d_check TO itab_zycet056-mark.
MOVE-CORRESPONDING /pws/zycee056 TO itab_zycet056.
MODIFY itab_zycet056 INDEX tc_normas-current_line.
ELSE.
MOVE d_check TO itab_zycet056-mark.
MOVE-CORRESPONDING /pws/zycee056 TO itab_zycet056.
APPEND itab_zycet056.
ENDIF.
WHEN '0109'.
MOVE /pws/zycee001-nrseq TO /pws/zycee225-nrseq.
* >> Início da exclusão: MODULE MODIFY_LINE
READ TABLE itab_zycet225 INTO wa_zycet225
WITH KEY ntfiscal = /pws/zycee225-ntfiscal.
* << Fim da exclusão
IF sy-subrc = 0.
MOVE d_check TO itab_zycet225-mark.
IF /pws/zycee225-pesobruto < /pws/zycee225-tara.
MESSAGE w112 WITH /pws/zycee225-ntfiscal.
okcode = '0109'.
ENDIF.
MOVE-CORRESPONDING /pws/zycee225 TO itab_zycet225.
MODIFY itab_zycet225 INDEX tc_pt-current_line.
ELSEIF NOT /pws/zycee225-ntfiscal IS INITIAL.
MOVE d_check TO itab_zycet225-mark.
...
...
MESSAGE i016 WITH text-265 text-264.
CLEAR okcode.
ELSEIF NOT itab_zycet506-vltot IS INITIAL AND
itab_zycet506-waers IS INITIAL.
MESSAGE i016 WITH text-266.
CLEAR okcode.
ENDIF.
ENDLOOP.
ENDIF.
ENDMODULE.
* >> Início da exclusão: MODULE MODIFY_LINE_ADIC
MODULE modify_line_adic INPUT.
ENDMODULE.
* << Fim da exclusão
MODULE user_command_0112 INPUT.
CASE okcode.
WHEN 'P-'.
IF tc_op-top_line > 1.
tc_op-top_line = tc_op-top_line - 14.
ENDIF.
CLEAR okcode.
WHEN 'P--'.
tc_op-top_line = tc_op-top_line - tc_op-lines.
CLEAR okcode.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE038O01
...
EXPORTING
grupp = 'DE'
program = v_syrepid
dynnumb = v_sydynnr
button = 'SPEC'
IMPORTING
visivel = v_visivel
tcode = v_tcodebotao
EXCEPTIONS
OTHERS = 1.
* >> Início da inclusão: MODULE STATUS
if sy-subrc eq 0.
else.
endif.
* << Fim da inclusão
IF v_visivel IS INITIAL.
itab_botao-function = 'SPEC'.
APPEND itab_botao.
ENDIF.
IF v_modify = 'S'.
SET PF-STATUS '0100' EXCLUDING itab_botao.
v_msg = text-013.
ELSE.
itab_botao-function = 'SAVE'.
APPEND itab_botao.
...
...
MODULE load_html_help OUTPUT.
IF my_container IS INITIAL.
CREATE OBJECT my_container
EXPORTING
container_name = 'CC_HTML_HELP'
EXCEPTIONS
others = 1.
CASE sy-subrc.
WHEN 0.
WHEN OTHERS.
* >> Início da exclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error.
* << Fim da exclusão
ENDCASE.
ENDIF.
IF html_control IS INITIAL.
CREATE OBJECT html_control
EXPORTING
parent = my_container.
IF sy-subrc NE 0.
* >> Início da exclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error.
* << Fim da exclusão
ENDIF.
alignment = html_control->align_at_left +
html_control->align_at_right +
html_control->align_at_top +
html_control->align_at_bottom.
CALL METHOD html_control->set_alignment
EXPORTING
alignment = alignment.
myevent-eventid = html_control->m_id_sapevent.
myevent-appl_event = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE038TOP
PROGRAM /pws/sapmzyce038 MESSAGE-ID /pws/zycem.
INCLUDE /pws/zygli100.
INCLUDE /pws/zygli101.
*DATA: v_tela_help LIKE sy-dynnr VALUE '0052'.
DATA: v_tela_help LIKE sy-dynnr VALUE '0052'. "#EC NEEDED
DATA: BEGIN OF itab_problema OCCURS 0,
lines(100) TYPE c,
END OF itab_problema.
INCLUDE /pws/mzyce038x01.
DATA: s_check .
TABLES: /pws/zycee001,
* >> Início da exclusão:
/pws/zycet049,
* << Fim da exclusão
/pws/zycee049,
/pws/zycet046,
/pws/zycet100,
* >> Início da exclusão:
/pws/zycet047,
/pws/zycet056,
* << Fim da exclusão
/pws/zycee056,
* >> Início da exclusão:
/pws/zycet054,
/pws/zycee054,
* << Fim da exclusão
/pws/zycet151,
/pws/zycee151,
* >> Início da exclusão:
/pws/zycet225,
* << Fim da exclusão
/pws/zycee225,
/pws/zycet069,
/pws/zycet135,
/pws/zycet106,
* >> Início da exclusão:
/pws/zycee102,
/pws/zycet102,
* << Fim da exclusão
/pws/zycet108,
* >> Início da exclusão:
/pws/zycee108,
* << Fim da exclusão
/pws/zycet107,
/pws/zycet262,
/pws/zycee262,
/pws/zycet264,
/pws/zycee264,
* >> Início da exclusão:
/pws/zycet506,
* << Fim da exclusão
/pws/zycee506,
* >> Início da exclusão:
/pws/zyglt320,
/pws/zyglt100,
* << Fim da exclusão
/pws/zycbt017,
* >> Início da exclusão:
/pws/zycet079,
* << Fim da exclusão
j_1bnfnad,
lfa1,
* >> Início da exclusão:
ttxit,
ttxob,
ttxid,
t005,
* << Fim da exclusão
/pws/zycee313.
CONTROLS:
ts_adic TYPE TABSTRIP,
tc_bl TYPE TABLEVIEW USING SCREEN 0105,
tc_rv TYPE TABLEVIEW USING SCREEN 0101,
tc_normas TYPE TABLEVIEW USING SCREEN 0107,
tc_pt TYPE TABLEVIEW USING SCREEN 0109,
tc_op TYPE TABLEVIEW USING SCREEN 0112.
DATA: BEGIN OF itab_zycet049 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet049.
...
DATA: header_lfa1 LIKE lfa1 OCCURS 0 WITH HEADER LINE. "#EC *
...
END OF itab_dd03l_aux.
DATA: itab_zycet225_aux LIKE /pws/zycet225 OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF itab_tabstrip OCCURS 0,
indice(2) TYPE n,
tabname LIKE feld-name,
dynnr LIKE sy-dynnr,
descr(40) TYPE c.
DATA: END OF itab_tabstrip .
DATA: wa_zycee001 LIKE /pws/zycee001,
wa_cols TYPE cxtab_column,
* >> Início da exclusão:
wa_zycet047 LIKE itab_zycet047,
wa_zycet049 LIKE itab_zycet049,
wa_zycet056 LIKE itab_zycet056,
wa_zycet225 LIKE itab_zycet225,
wa_zycet008 LIKE itab_zycet008,
* << Fim da exclusão
wa_thead4 LIKE thead,
wa_thead5 LIKE thead,
* >> Início da exclusão:
wa_zycet262 LIKE /pws/zycet262,
* << Fim da exclusão
wa_t005 LIKE t005.
DATA: okcode LIKE sy-ucomm,
pressed_tab LIKE sy-ucomm VALUE 'FC_ADIC',
dynpronr(4) TYPE c VALUE '0102',
v_tabix LIKE sy-tabix,
v_subrc1 TYPE c,
v_subrc3 TYPE c,
v_modify TYPE c,
v_msg(25) TYPE c,
* >> Início da exclusão:
v_vlme LIKE /pws/zycet008-vlme_f,
* << Fim da exclusão
v_campo(50),
v_valor(50),
v_line LIKE sy-lilli,
v_tdname(30) TYPE c,
v_resp TYPE c,
v_datar LIKE sy-datar.
DATA: d_check,
d_cli_cambio(35) TYPE c,
d_armador LIKE /pws/zycet133-armador,
* >> Início da exclusão:
d_descri LIKE /pws/zycet107-descagente,
* << Fim da exclusão
dataa LIKE /pws/zyglt370-descr,
datab LIKE /pws/zyglt370-descr,
datac LIKE /pws/zyglt370-descr,
datad LIKE /pws/zyglt370-descr,
datae LIKE /pws/zyglt370-descr,
dataf LIKE /pws/zyglt370-descr,
descricaoa LIKE /pws/zyglt370-descr,
descricaob LIKE /pws/zyglt370-descr,
descricaoc LIKE /pws/zyglt370-descr,
descricaod LIKE /pws/zyglt370-descr,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE038X01
...
/pws/zycee100,
/pws/zycee047.
DATA: BEGIN OF COMMON PART c.
DATA: BEGIN OF itab_zycet002_102 OCCURS 20 .
INCLUDE STRUCTURE /pws/zycet002.
DATA: mark(1).
DATA: icoblo TYPE icons-text.
DATA: icotp TYPE icons-text.
DATA: icoapr TYPE icons-text.
DATA: END OF itab_zycet002_102.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet108 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet108.
DATA: mark.
DATA: END OF itab_zycet108.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet047 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet047.
DATA: mark,
END OF itab_zycet047.
DATA: BEGIN OF itab_zycet008 OCCURS 20.
INCLUDE STRUCTURE /pws/zycet008 .
DATA: kschl LIKE konv-kschl,
fator LIKE /pws/zycet156-fator,
vtext LIKE /pws/zycet156-vtext.
DATA: END OF itab_zycet008.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycet008ax OCCURS 0.
INCLUDE STRUCTURE /pws/zycet008.
DATA: END OF itab_zycet008ax.
* << Fim da inclusão
DATA: BEGIN OF wa_tabstrip,
bt001,
bt002,
bt003,
bt004,
bt005,
bt006,
bt007,
bt008,
bt009,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE038
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 015
Texto: (44 caracteres)
"Para incluir dados da Nomeação nesta Pasta é"
Comprimento máximo: 44
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 016
Texto: (37 caracteres)
"necessário marcar um nº de nomeação !"
Comprimento máximo: 37
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 031
Texto: (45 caracteres)
"País de destino exige Inspeção Governamental."
Comprimento máximo: 45
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 032
Texto: (44 caracteres)
"País de destino exige Licença de Importação."
Comprimento máximo: 44
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 033
Texto: (46 caracteres)
"País de destino exige Inspeção Governamental e"
Comprimento máximo: 46
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 034
Texto: (22 caracteres)
"Licença de Importação."
Comprimento máximo: 22
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 035
Texto: (24 caracteres)
"Verificar a necessidade."
Comprimento máximo: 24
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 036
Texto: (4 caracteres)
"0112"
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 111
Texto: (33 caracteres)
"Preencha a Data de Envio Proforma"
Comprimento máximo: 33
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 267
Texto: (46 caracteres)
"Existe item sem faturamento, embarque não será"
Comprimento máximo: 46
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 268
Texto: (30 caracteres)
"gravado nas tabelas de câmbio!"
Comprimento máximo: 30
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 269
Texto: (44 caracteres)
"Data FCR deve ser no máximo 30 dias anterior"
Comprimento máximo: 44
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 270
Texto: (31 caracteres)
"à data de inclusão do embarque."
Comprimento máximo: 31