CE PLUS - Nota 008326
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: BL
Data/Hora da Publicação: 20/04/2009 00:00:00
Data/Hora Última Alteração: 08/09/2010 16:36:53
Descrição da Nota: VERIFICAÇÃO AMPLIADA NO PROGRAMA DO BL
Sintoma
Verificação ampliada no programa do BL
Solução
Corrigido erros indicados pela verificação ampliada.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08326 Data: 20/04/2009 Hora: 15:13:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08326
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00094
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VERIFICAÇÃO AMPLIADA NO PROGRAMA DO BL
----------------------------------------------------------------------------------------------------
Palavras Chave:
VERIFICAÇÃO AMPLIADA - BL - CORREÇÃO - MELHORIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI002F02
REPS /PWS/MZYCI002I01
REPS /PWS/MZYCI002O01
REPS /PWS/MZYCI002OO
REPS /PWS/MZYCI002TOP
REPS /PWS/MZYCI002X01
REPS /PWS/SAPMZYCI002
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002F02
...
IF v_tcode NE '/PWS/ZYCI002_E'.
IF v_proc EQ 'S'.
CLEAR: itab_zycit094a, itab_zycit014a, itab_zycit055a,
itab_zycit094s, itab_zycit014 , itab_zycit055 .
IF ( wa_zycie093 NE /pws/zycie093 OR
itab_zycit094a[] NE itab_zycit094s[] OR
itab_zycit014a[] NE itab_zycit014[] OR
itab_zycit055a[] NE itab_zycit055[] ).
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
* >> Início da exclusão: FORM TRATA_BOTAO_BACK
titlebar = text-027
text_question = text-036
text_button_1 = text-029
text_button_2 = text-030
default_button = '1'
display_cancel_button = 'X'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO_BACK
titlebar = text-027
text_question = text-036
text_button_1 = text-029
text_button_2 = text-030
default_button = '1'
display_cancel_button = 'X'
* << Fim da inclusão
IMPORTING
* >> Início da exclusão: FORM TRATA_BOTAO_BACK
answer = v_confirm
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO_BACK
answer = v_confirm
* << Fim da inclusão
EXCEPTIONS
* >> Início da exclusão: FORM TRATA_BOTAO_BACK
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO_BACK
text_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM TRATA_BOTAO_BACK
ENDIF.
* << Fim da inclusão
IF ( v_confirm IS INITIAL OR v_confirm EQ '2' ).
FREE MEMORY ID rimc3.
FREE MEMORY ID rimc5.
IF v_nrbl IS INITIAL.
...
...
lines = rtext
EXCEPTIONS
id = 1
language = 2
linesize = 3
name = 4
object = 5
textformat = 6
communication = 7
OTHERS = 8.
* >> Início da inclusão: FORM TRATA_BOTAO_OBSE
IF sy-subrc <> 0.
ENDIF.
* << Fim da inclusão
ELSE.
CLEAR: v_txtdisp, itab_tline2.
REFRESH: itab_tline2.
CONCATENATE text-014 /pws/zycie093-nrseqce INTO v_txtdisp
SEPARATED BY space.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = xthead-tdid
language = sy-langu
...
...
lines = rtext
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 TRATA_BOTAO_OBSE
IF sy-subrc <> 0.
ENDIF.
* << Fim da inclusão
LOOP AT rtext.
MOVE: rtext-tdline TO itab_tline2-tdline.
APPEND itab_tline2.
ENDLOOP.
CALL FUNCTION 'EDITOR_APPLICATION'
EXPORTING
application = 'TT'
display = 'X'
name = v_txtdisp
TABLES
content = itab_tline2
EXCEPTIONS
line = 1
linenumbers = 2
offset = 3
OTHERS = 4.
* >> Início da inclusão: FORM TRATA_BOTAO_OBSE
IF sy-subrc <> 0.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM salvar_texto.
xthead-tdobject = '/PWS/CIBL'.
xthead-tdname = /pws/zycie093-nrseqce.
xthead-tdid = 'ZBLC'.
xthead-tdspras = sy-langu.
xthead-tdlinesize = 070.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
...
...
savemode_direct = 'X '
owner_specified = 'X'
TABLES
lines = rtext
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
* >> Início da inclusão: FORM SALVAR_TEXTO
IF sy-subrc <> 0.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM limpa_variaveis.
CLEAR: v_st ,
wa_zycie093 ,
/pws/zycie093 ,
v_id_texto ,
v_numchave ,
v_descr_emp ,
itab_zycit014 ,
itab_zycit094s,
...
...
v_mt = v_me.
CLEAR: /pws/zycie093-cityppae,
v_descr_po .
IF ( NOT /pws/zycie093-paemb IS INITIAL AND
NOT /pws/zycie093-paispae IS INITIAL ).
SELECT /pws/localidade UP TO 1 ROWS FROM t615
INTO /pws/zycie093-cityppae
WHERE zolla EQ /pws/zycie093-paemb
AND land1 EQ /pws/zycie093-paispae.
ENDSELECT.
* >> Início da inclusão: FORM LOAD_TEXT
READ TABLE t615.
* << Fim da inclusão
SELECT bezei UP TO 1 ROWS FROM t615t
INTO v_descr_po
WHERE zolla EQ /pws/zycie093-paemb
AND land1 EQ /pws/zycie093-paispae
AND spras EQ sy-langu.
ENDSELECT.
* >> Início da inclusão: FORM LOAD_TEXT
READ TABLE t615t .
* << Fim da inclusão
CONCATENATE v_descr_po /pws/zycie093-cityppae
...
...
lines = rtext
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 LOAD_OBSERVACOES
IF sy-subrc <> 0.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM trata_botao_modi.
IF v_st EQ 'TRA'.
MESSAGE s015 WITH text-023 text-024.
EXIT.
ENDIF.
IF v_status EQ 0.
v_status = 1.
v_tcode = '/PWS/ZYCI002_A'.
ENDIF.
...
...
SELECT SINGLE * FROM /pws/zycit006
WHERE nrseqce = /pws/zycie093-nrseqce AND
eliminado = space
AND tpfatura NE '11'. "#EC CI_NOFIELD
IF sy-subrc = 0.
MESSAGE s061 WITH text-025 text-102.
EXIT.
ELSE.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
* >> Início da exclusão: FORM TRATA_BOTAO_DELE
titlebar = text-027
text_question = text-028
text_button_1 = text-029
text_button_2 = text-030
default_button = '2'
display_cancel_button = 'X'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO_DELE
titlebar = text-027
text_question = text-028
text_button_1 = text-029
text_button_2 = text-030
default_button = '2'
display_cancel_button = 'X'
* << Fim da inclusão
IMPORTING
* >> Início da exclusão: FORM TRATA_BOTAO_DELE
answer = v_confirm
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO_DELE
answer = v_confirm
* << Fim da inclusão
EXCEPTIONS
* >> Início da exclusão: FORM TRATA_BOTAO_DELE
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO_DELE
text_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
* << Fim da inclusão
IF v_confirm EQ '1'.
DELETE FROM /pws/zycit014 WHERE nrseq = /pws/zycie093-nrseqce.
DELETE FROM /pws/zycit094 WHERE nrseqce = /pws/zycie093-nrseqce.
DELETE FROM /pws/zycit093 WHERE nrseqce = /pws/zycie093-nrseqce
AND identify = /pws/zycie093-identify.
DELETE itab_zycit093s WHERE nrseqce = /pws/zycie093-nrseqce.
COMMIT WORK.
IF sy-subrc EQ 0.
MESSAGE s061 WITH text-031 /pws/zycie093-nrseqce text-032.
PERFORM limpa_variaveis.
...
...
FORM ver_prov_frete.
READ TABLE itab_zycit094s INDEX 1.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
WHERE nrseq = itab_zycit094s-nrseq. "#EC CI_NOFIRST
IF sy-subrc = 0.
* >> Início da exclusão: FORM VER_PROV_FRETE
IF NOT itab_zycit100[] IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM VER_PROV_FRETE
READ TABLE itab_zycit100 INDEX 1.
IF sy-subrc EQ 0.
* << Fim da inclusão
SELECT * FROM /pws/zycit041 INTO TABLE itab_zycit041
FOR ALL ENTRIES IN itab_zycit100
WHERE nrseq = itab_zycit100-nrseqdi.
READ TABLE itab_zycit041 INDEX 1.
IF NOT itab_zycit041-belnrf02fre IS INITIAL.
v_provseg = 'X' .
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
...
...
FORM trata_botao200_save.
CLEAR itab_salva.
REFRESH itab_salva.
SELECT * FROM /pws/zycit383
INTO CORRESPONDING FIELDS OF TABLE itab_zycit383aux
WHERE identify = /pws/zycie383-identify AND
nrseqce = /pws/zycie383-nrseqce AND
bukrs = /pws/zycie383-bukrs AND
nrcontainer = /pws/zycie383-nrcontainer.
* >> Início da exclusão: FORM TRATA_BOTAO200_SAVE
IF NOT itab_zycit383aux[] IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO200_SAVE
read table itab_zycit383aux index 1.
if sy-subrc eq 0.
* << Fim da inclusão
DELETE FROM /pws/zycit383
WHERE identify = /pws/zycie383-identify AND
nrseqce = /pws/zycie383-nrseqce AND
bukrs = /pws/zycie383-bukrs AND
nrcontainer = /pws/zycie383-nrcontainer.
ENDIF.
...
...
IF v_tcode NE '/PWS/ZYCI002_E'.
IF v_proc EQ 'S'.
CLEAR: itab_zycit094a, itab_zycit014a, itab_zycit055a,
itab_zycit094s, itab_zycit014 , itab_zycit055 .
IF ( wa_zycie093 NE /pws/zycie093 OR
itab_zycit094a[] NE itab_zycit094s[] OR
itab_zycit014a[] NE itab_zycit014[] OR
itab_zycit055a[] NE itab_zycit055[] ).
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
* >> Início da exclusão: FORM TRATA_BOTAO200_BACK
titlebar = text-027
text_question = text-036
text_button_1 = text-029
text_button_2 = text-030
default_button = '1'
display_cancel_button = 'X'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO200_BACK
titlebar = text-027
text_question = text-036
text_button_1 = text-029
text_button_2 = text-030
default_button = '1'
display_cancel_button = 'X'
* << Fim da inclusão
IMPORTING
* >> Início da exclusão: FORM TRATA_BOTAO200_BACK
answer = v_confirm
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO200_BACK
answer = v_confirm
* << Fim da inclusão
EXCEPTIONS
* >> Início da exclusão: FORM TRATA_BOTAO200_BACK
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO200_BACK
text_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM TRATA_BOTAO200_BACK
ENDIF.
* << Fim da inclusão
IF ( v_confirm IS INITIAL OR v_confirm EQ '2' ).
FREE MEMORY ID rimc3.
FREE MEMORY ID rimc5.
IF v_nrbl IS INITIAL.
...
...
FORM trata_dados201.
SELECT * FROM /pws/zycit055
INTO TABLE itab_zycit055c
WHERE nrcontainer = /pws/zycie383-nrcontainer
AND nrseq = /pws/zycie383-nrseqce.
* >> Início da exclusão: FORM TRATA_DADOS201
IF NOT itab_zycit055c[] IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_DADOS201
READ TABLE itab_zycit055c INDEX 1.
IF sy-subrc EQ 0.
* << Fim da inclusão
SELECT * FROM /pws/zycit094
INTO TABLE itab_zycit094
FOR ALL ENTRIES IN itab_zycit055c
WHERE nrseqce = itab_zycit055c-nrseq.
* >> Início da exclusão: FORM TRATA_DADOS201
IF NOT itab_zycit094[] IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_DADOS201
read table itab_zycit094 index 1.
if sy-subrc eq 0.
* << Fim da inclusão
SELECT * FROM /pws/zycit003
INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_zycit094
WHERE nrseq = itab_zycit094-nrseq.
ENDIF.
ENDIF.
ENDFORM.
FORM move_dados201.
* >> Início da exclusão: FORM MOVE_DADOS201
DATA: ln TYPE i.
* << Fim da exclusão
DATA: itab_zycit383_temp TYPE /pws/zycit383 OCCURS 0 WITH HEADER LINE.
marc = ' '.
IF NOT itab_zycit003 IS INITIAL.
LOOP AT itab_zycit003.
MOVE: itab_zycit003-nrseq TO itab_zycit383c-nrseq,
itab_zycit003-ebeln TO itab_zycit383c-ebeln,
itab_zycit003-ebelp TO itab_zycit383c-ebelp,
itab_zycit003-matnr TO itab_zycit383c-matnr,
itab_zycit003-descr TO itab_zycit383c-descr,
itab_zycit003-werks TO itab_zycit383c-werks,
...
...
i_codmod = p_modulo
i_func = p_func
i_zexit = p_exit
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 VERIFICA_EXIT
IF sy-subrc <> 0.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
...
* >> Início da exclusão: FORM VERIFICA_ZYGLT100
FORM verifica_zyglt100.
SELECT SINGLE * FROM /pws/zyglt100
WHERE codmod = 'D'
AND zexit = 'DBL003'.
ENDFORM.
* << Fim da exclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002I01
...
* >> Início da exclusão: MODULE USER_COMMAND_0100
MODULE user_command_0100 INPUT.
CASE ok_code.
WHEN 'SAVE'.
PERFORM trata_botao_save.
WHEN 'BACK'.
PERFORM trata_botao_back.
WHEN 'SEMB'.
PERFORM trata_botao_semb.
WHEN 'OBSE'.
PERFORM trata_botao_obse.
WHEN 'MALL'.
PERFORM trata_botao_mall.
WHEN 'DALL'.
PERFORM trata_botao_dall.
WHEN 'DELM'.
PERFORM trata_botao_delm.
WHEN 'MODI'.
PERFORM trata_botao_modi.
WHEN 'DDSI'.
PERFORM trata_botao_ddsi.
WHEN 'DELE'.
PERFORM trata_botao_dele.
WHEN 'DITEM'.
PERFORM trata_botao_ditem.
ENDCASE.
CLEAR: ok_code.
ENDMODULE.
* << Fim da exclusão
MODULE atualiza_itab INPUT.
* >> Início da exclusão: MODULE ATUALIZA_ITAB
DATA: v_embarca LIKE /pws/zycie094-embarca.
* << Fim da exclusão
...
...
MODULE atualiza_tabctrl1 INPUT.
* >> Início da exclusão: MODULE ATUALIZA_TABCTRL1
DATA: v_tamcont TYPE i ,
v_inicio LIKE /pws/zycie055-nrcontainer,
v_meio LIKE /pws/zycie055-nrcontainer,
v_fim LIKE /pws/zycie055-nrcontainer,
v_container LIKE /pws/zycie055-nrcontainer,
v_separa1(1) TYPE c ,
v_separa2(1) TYPE c ,
v_separador(1) TYPE c VALUE '-' ,
v_periodo(2) TYPE n,
v_int TYPE p DECIMALS 2,
v_mod TYPE p DECIMALS 2.
* << Fim da exclusão
...
...
* >> Início da exclusão: MODULE VERIFICA_OBRIGATORIOS
MODULE verifica_obrigatorios INPUT.
IF v_status EQ 1.
IF v_meio_emb EQ /pws/zycie093-meiotransp.
IF /pws/zycie093-meiotransp EQ 'TA'.
IF ( /pws/zycie093-multimod IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-MULTIMOD'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-058 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-tpdoccheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-TPDOCCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-055 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-identdcheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-IDENTDCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-057 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-tpconh IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-TPCONH'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-056 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSEIF /pws/zycie093-meiotransp EQ 'MA'.
IF ( /pws/zycie093-multimod IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-MULTIMOD'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-058 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-idemissor IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-IDEMISSOR'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-059 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-tpdoccheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-TPDOCCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-055 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-tpconh IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-TPCONH'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-056 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-embarca IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-EMBARCA'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-064 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSEIF /pws/zycie093-meiotransp EQ 'RD'.
IF ( /pws/zycie093-multimod IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-MULTIMOD'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-058 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-placa IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-PLACA'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-060 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-tpdoccheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-TPDOCCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-055 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-identdcheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-IDENTDCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-057 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSEIF /pws/zycie093-meiotransp EQ 'FR'.
IF ( /pws/zycie093-multimod IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-MULTIMOD'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-058 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-tpdoccheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-TPDOCCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-055 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-identdcheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-IDENTDCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-057 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-tpconh IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-TPCONH'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-056 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSEIF /pws/zycie093-meiotransp EQ 'FL'.
IF ( /pws/zycie093-multimod IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-MULTIMOD'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-058 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-tpdoccheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-TPDOCCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-055 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-identdcheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-IDENTDCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-057 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-tpconh IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-TPCONH'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-056 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-embarca IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-EMBARCA'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-064 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSEIF /pws/zycie093-meiotransp EQ 'LC'.
IF ( /pws/zycie093-multimod IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-MULTIMOD'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-058 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-tpdoccheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-TPDOCCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-055 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-identdcheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-IDENTDCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-057 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF ( /pws/zycie093-tpconh IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-TPCONH'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-056 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
* << Fim da exclusão
MODULE verifica_frete INPUT.
* >> Início da exclusão: MODULE VERIFICA_FRETE
DATA: v_calc1 LIKE /pws/zycie093-prepaid VALUE 0.
* << Fim da exclusão
...
...
* >> Início da exclusão: MODULE VERIFICA_IDENTDCHEG
MODULE verifica_identdcheg INPUT.
IF ok_code NE 'SAVE'.
EXIT.
ENDIF.
IF v_status EQ 1.
IF v_meio_emb EQ /pws/zycie093-meiotransp.
IF /pws/zycie093-meiotransp EQ 'TA'.
IF ( /pws/zycie093-identdcheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-IDENTDCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-057 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSEIF /pws/zycie093-meiotransp EQ 'MA'.
IF ( /pws/zycie093-identdcheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-IDENTDCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-057 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSEIF /pws/zycie093-meiotransp EQ 'RD'.
IF ( /pws/zycie093-identdcheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-IDENTDCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-057 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSEIF /pws/zycie093-meiotransp EQ 'FR'.
IF ( /pws/zycie093-identdcheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-IDENTDCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-057 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSEIF /pws/zycie093-meiotransp EQ 'FL'.
IF ( /pws/zycie093-identdcheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-IDENTDCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-057 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSEIF /pws/zycie093-meiotransp EQ 'LC'.
IF ( /pws/zycie093-identdcheg IS INITIAL ).
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE093-IDENTDCHEG'.
IF screen-invisible EQ '0'.
MESSAGE e061 WITH text-053 text-057 text-054.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
* << Fim da exclusão
...
...
* >> Início da exclusão: MODULE ATUALIZA_CONTAINER
MODULE atualiza_container INPUT.
itab_zycit055-dtatrac = /pws/zycie055-dtatrac.
ENDMODULE.
MODULE user_command_exit200 INPUT.
LEAVE PROGRAM.
ENDMODULE.
* << Fim da exclusão
...
...
MODULE carrega_itab_zycit383 INPUT.
* >> Início da exclusão: MODULE CARREGA_ITAB_ZYCIT383
DATA: v_qtd LIKE /pws/zycie003-qtd_iten,
v_qtd_tot LIKE /pws/zycie003-qtd_iten.
* << Fim da exclusão
...
...
MODULE verifica_peso INPUT.
* >> Início da exclusão: MODULE VERIFICA_PESO
DATA: BEGIN OF itab_peso OCCURS 0,
ntgewd LIKE /pws/zycit003-ntgewd.
DATA: END OF itab_peso.
DATA: v_ntgewd LIKE /pws/zycit003-ntgewd.
* << Fim da exclusão
...
...
* >> Início da inclusão:
module exit_tela input.
v_tela = 'PAI'.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI002'
'BL003'.
CLEAR itab_zyglt100.
READ TABLE itab_zyglt100 WITH KEY zexit = 'BL003' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa).
ENDIF.
ENDIF.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002O01
...
* >> Início da exclusão: MODULE STATUS_0100
MODULE status_0100 OUTPUT.
CLEAR: itab_botoes. REFRESH: itab_botoes.
IF v_tcode EQ '/PWS/ZYCI002_E'.
itab_botoes-button_name = 'SAVE'.
APPEND itab_botoes.
itab_botoes-button_name = 'DELE'.
APPEND itab_botoes.
itab_botoes-button_name = 'SEMB'.
APPEND itab_botoes.
itab_botoes-button_name = 'MALL'.
APPEND itab_botoes.
itab_botoes-button_name = 'DALL'.
APPEND itab_botoes.
itab_botoes-button_name = 'DELM'.
APPEND itab_botoes.
itab_botoes-button_name = 'INCL'.
APPEND itab_botoes.
itab_botoes-button_name = 'MODI'.
APPEND itab_botoes.
ELSEIF v_tcode EQ '/PWS/ZYCI002_C'.
itab_botoes-button_name = 'DELE'.
APPEND itab_botoes.
itab_botoes-button_name = 'MODI'.
APPEND itab_botoes.
ELSEIF v_tcode EQ '/PWS/ZYCI002_A'.
itab_botoes-button_name = 'MODI'.
APPEND itab_botoes.
ENDIF.
SET PF-STATUS '0100' EXCLUDING itab_botoes.
IF v_tcode EQ '/PWS/ZYCI002_C'.
SET TITLEBAR '100'.
ELSEIF v_tcode EQ '/PWS/ZYCI002_A'.
IF ( NOT v_st IS INITIAL AND v_st NE 'TRA' ).
SET TITLEBAR 'TITLE100AM'.
ELSE.
SET TITLEBAR 'TITLE100A'.
ENDIF.
ELSEIF v_tcode EQ '/PWS/ZYCI002_E'.
SET TITLEBAR 'TITLE100E'.
ENDIF.
ENDMODULE.
* << Fim da exclusão
...
...
* >> Início da exclusão: MODULE STATUS_0101
MODULE status_0101 OUTPUT.
ENDMODULE.
* << Fim da exclusão
...
...
MODULE exit_tela OUTPUT.
* >> Início da inclusão: MODULE EXIT_TELA
v_tela = 'PBO'.
* << Fim da inclusão
* >> Início da inclusão:
MODULE status_0005 OUTPUT.
SET PF-STATUS '0005'.
SET TITLEBAR '0005' WITH text-225.
CLEAR /pws/zycie055-nrcontainer.
ENDMODULE.
MODULE atualiza_posicao OUTPUT.
DESCRIBE TABLE itab_zycit055 LINES v_linha.
CLEAR itab_zycit055.
LOOP AT itab_zycit055.
WRITE itab_zycit055-nrcontainer TO itab_zycit055-nrcontainer
RIGHT-JUSTIFIED.
MODIFY itab_zycit055.
ENDLOOP.
SORT itab_zycit055 BY nrcontainer.
LOOP AT itab_zycit055.
CONDENSE itab_zycit055-nrcontainer NO-GAPS.
MODIFY itab_zycit055.
ENDLOOP.
IF itab_zycit055[] IS INITIAL.
CLEAR: v_linha,
nextline.
ELSE.
IF nextline = 0.
nextline = 1.
ENDIF.
ENDIF.
READ TABLE itab_zycit055 INTO wa_zycit055 INDEX nextline.
IF sy-subrc NE 0.
nextline = v_linha.
ENDIF.
MOVE: nextline TO currentline,
v_linha TO totalline .
CONCATENATE text-226 currentline text-227 totalline
INTO v_posi SEPARATED BY space.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002OO
DATA: html_control TYPE REF TO cl_gui_html_viewer,
my_container TYPE REF TO cl_gui_custom_container,
* >> Início da exclusão:
fcode LIKE sy-ucomm,
* << Fim da exclusão
myevent_tab TYPE cntl_simple_events,
myevent TYPE cntl_simple_event,
* >> Início da exclusão:
edurl(2048) ,
* << Fim da exclusão
alignment TYPE i.
* >> Início da exclusão:
DATA: edframe(255),
edaction(256),
* << Fim da exclusão
* >> Início da inclusão:
DATA: edframe(255),"#EC NEEDED
edaction(256),"#EC NEEDED
* << Fim da inclusão
edgetdata(2048),
* >> Início da exclusão:
edpostdataline(1024),
postdata_tab TYPE cnht_post_data_tab,
edquery_table TYPE cnht_query_table,
v_tam TYPE i.
* << Fim da exclusão
* >> Início da inclusão:
edpostdataline(1024),"#EC NEEDED
postdata_tab TYPE cnht_post_data_tab."#EC NEEDED
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002TOP
...
* >> Início da exclusão:
TABLES : j_1bbranch ,
indx ,
lfa1 ,
* << Fim da exclusão
* >> Início da inclusão:
TABLES :
* << Fim da inclusão
t001 ,
t615 ,
* >> Início da exclusão:
t615t ,
thead ,
/pws/zyglt100.
* << Fim da exclusão
* >> Início da inclusão:
t615t .
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002X01
...
* >> Início da exclusão:
/pws/zycit003 ,
/pws/zycit006 ,
/pws/zycit105 ,
/pws/zycit014 ,
* << Fim da exclusão
...
* >> Início da exclusão:
/pws/zycit055 ,
/pws/zycie085 ,
/pws/zycit085 ,
* << Fim da exclusão
...
* >> Início da exclusão:
/pws/zycit094 ,
/pws/zycit100 ,
/pws/zycit117 ,
/pws/zycie383 ,
/pws/zycie100 ,
/pws/zycit383 .
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycie383 .
* << Fim da inclusão
DATA: BEGIN OF COMMON PART a.
DATA: BEGIN OF itab_zycit055s OCCURS 0.
* >> Início da exclusão:
INCLUDE STRUCTURE /pws/zycit055.
* << Fim da exclusão
* >> Início da inclusão:
INCLUDE STRUCTURE /pws/zycit055."#EC NEEDED
* << Fim da inclusão
DATA: END OF itab_zycit055s.
DATA: BEGIN OF itab_zycit093s OCCURS 0.
INCLUDE STRUCTURE /pws/zycit093.
DATA: END OF itab_zycit093s.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycit001 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit001.
DATA: END OF itab_zycit001.
* << Fim da exclusão
DATA: BEGIN OF itab_zycit117 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit117.
DATA: END OF itab_zycit117.
DATA: BEGIN OF itab_zycit477 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit477.
DATA: END OF itab_zycit477.
DATA: BEGIN OF itab_zycit094s OCCURS 0.
INCLUDE STRUCTURE /pws/zycie094.
DATA: marc(1) TYPE c.
DATA: END OF itab_zycit094s.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycit094a OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycit094a OCCURS 0."#EC NEEDED
* << Fim da inclusão
...
...
DATA: BEGIN OF itab_zycit014a OCCURS 0.
* >> Início da exclusão:
INCLUDE STRUCTURE /pws/zycie014.
* << Fim da exclusão
* >> Início da inclusão:
INCLUDE STRUCTURE /pws/zycie014."#EC NEEDED
* << Fim da inclusão
...
...
DATA: BEGIN OF itab_zycit055a OCCURS 10.
* >> Início da exclusão:
INCLUDE STRUCTURE /pws/zycit055.
* << Fim da exclusão
* >> Início da inclusão:
INCLUDE STRUCTURE /pws/zycit055."#EC NEEDED
* << Fim da inclusão
DATA: marc(1) TYPE c.
DATA: END OF itab_zycit055a.
...
...
* >> Início da exclusão:
DATA: BEGIN OF it_ekpo OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
werks LIKE ekpo-werks,
END OF it_ekpo.
DATA: BEGIN OF it_ekpo_aux OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
idnlf LIKE ekpo-idnlf,
END OF it_ekpo_aux.
DATA: BEGIN OF itab_zycit013 OCCURS 0.
INCLUDE STRUCTURE /pws/zycie013.
DATA: END OF itab_zycit013.
* << Fim da exclusão
...
...
* >> Início da inclusão:
DATA: BEGIN OF itab_peso OCCURS 0,
ntgewd LIKE /pws/zycit003-ntgewd.
DATA: END OF itab_peso.
* << Fim da inclusão
DATA: wa_zycie093 LIKE /pws/zycie093 ,
wa_zycie085_del LIKE /pws/zycie085 ,
* >> Início da exclusão:
wa_limpinv LIKE /pws/zycie093 ,
* << Fim da exclusão
wa_sel LIKE /pws/zycie094 ,
* >> Início da exclusão:
wa_zycie003 LIKE /pws/zycie003 ,
* << Fim da exclusão
wa_zycie085 LIKE /pws/zycie085 ,
* >> Início da exclusão:
wa_zycit055 LIKE itab_zycit055 .
DATA: v_codbarra LIKE /pws/zycie093-identconh ,
v_dtemb LIKE /pws/zycie093-dtemb ,
v_lpost LIKE /pws/zycit093-localemb ,
v_aux_id LIKE /pws/zycie093-identify ,
v_aux_mt LIKE /pws/zycie093-meiotransp ,
v_aux_dt LIKE /pws/zycie093-dtemiss ,
* << Fim da exclusão
* >> Início da inclusão:
wa_zycit055 LIKE itab_zycit055 ."#EC NEEDED
DATA:
* << Fim da inclusão
v_campo(20) ,
v_valor(20) ,
v_linha TYPE i ,
v_pos TYPE i ,
ok_code LIKE sy-ucomm ,
v_msg(92) TYPE c ,
v_changed(1) ,
* >> Início da exclusão:
v_at ,
* << Fim da exclusão
v_me LIKE /pws/zycit054-bezei ,
* >> Início da exclusão:
v_tran2 ,
v_tran ,
* << Fim da exclusão
v_mt LIKE /pws/zycit054-bezei ,
v_meio_emb LIKE /pws/zycie093-meiotransp ,
v_pais_agente LIKE lfa1-land1 ,
v_descr_emp LIKE t001-butxt ,
v_tp_dcc LIKE /pws/zycit105-descricao ,
* >> Início da exclusão:
v_tp_ct LIKE /pws/zycit117-descr ,
* << Fim da exclusão
* >> Início da inclusão:
v_tp_ct LIKE /pws/zycit117-descr ,"#EC NEEDED
* << Fim da inclusão
v_id_texto LIKE thead-tdid ,
* >> Início da exclusão:
v_numchave LIKE thead-tdname ,
* << Fim da exclusão
* >> Início da inclusão:
v_numchave LIKE thead-tdname ,"#EC NEEDED
* << Fim da inclusão
v_status TYPE i VALUE 1 ,
v_status_s TYPE i VALUE 1 ,
v_msg_ficta1(50) TYPE c VALUE space ,
v_freetime LIKE /pws/zycet133-free_time,
v_msg_ficta2(50) TYPE c VALUE space ,
marc(1) TYPE c VALUE space ,
marc2(1) TYPE c VALUE space ,
marc3(1) TYPE c VALUE space ,
v_txtdisp(30) TYPE c VALUE space ,
v_gewei LIKE /pws/zycie093-gewei_b ,
v_cviaemb(1) TYPE c VALUE 'N' ,
v_tcode LIKE sy-tcode VALUE '/PWS/ZYCI002_C',
* >> Início da exclusão:
v_tcode_s LIKE sy-tcode VALUE '/PWS/ZYCI002_A',
vl_ok_code LIKE sscrfields-ucomm ,
* << Fim da exclusão
* >> Início da inclusão:
v_tcode_s LIKE sy-tcode VALUE '/PWS/ZYCI002_A',"#EC NEEDED
* << Fim da inclusão
rimc1 LIKE indx-srtfd VALUE 'NRSEQDI',
rimc2 LIKE indx-srtfd VALUE 'NRBL',
rimc3 LIKE indx-srtfd VALUE 'ITABEMB',
rimc4 LIKE indx-srtfd VALUE 'WA085',
rimc5 LIKE indx-srtfd VALUE 'WA093',
v_nrbl LIKE /pws/zycie093-nrseqce,
v_st LIKE /pws/zycie085-status VALUE space,
v_proc(1) TYPE c VALUE 'N',
v_descr_po(50) TYPE c VALUE space,
v_descr_po2(50) TYPE c VALUE space,
v_utilizacao(30) TYPE c,
v_descr_pd(50) TYPE c VALUE space,
v_linhas TYPE i,
id21(12),
le2(17),
de21(17),
v_salvo(1),
v_sug,
* >> Início da exclusão:
v_provseg,
* << Fim da exclusão
* >> Início da inclusão:
v_provseg, "#EC NEEDED
* << Fim da inclusão
v_inco1 LIKE /pws/zycit001-inco1,
nrcontainera LIKE /pws/zycit055-nrcontainer,
v_armador(20) TYPE c,
v_pesobruto LIKE /pws/zycie055-pesobruto VALUE 0,
v_flag_qtd TYPE c,
* >> Início da exclusão:
v_answer ,
text(100) ,
* << Fim da exclusão
nextline TYPE i ,
v_posi(40) ,
* >> Início da exclusão:
v_copy TYPE c ,
* << Fim da exclusão
v_dtemiss .
* >> Início da exclusão:
DATA: gv_subscreen_0050 TYPE sy-dynnr VALUE '0051',
gv_subscreen_0100_1 TYPE sy-dynnr,
gv_subscreen_0300_2 TYPE sy-dynnr.
* << Fim da exclusão
* >> Início da inclusão:
DATA: gv_subscreen_0050 TYPE sy-dynnr VALUE '0051', "#EC NEEDED
gv_subscreen_0100_1 TYPE sy-dynnr, "#EC NEEDED
gv_subscreen_0300_2 TYPE sy-dynnr. "#EC NEEDED
* << Fim da inclusão
CONSTANTS: BEGIN OF gc_subscreen,
prog TYPE sy-dynnr VALUE '0100',
help TYPE sy-dynnr VALUE '0053',
END OF gc_subscreen.
* >> Início da exclusão:
DATA: gv_html_help TYPE REF TO cl_gui_html_viewer.
* << Fim da exclusão
DATA: gv_help_show TYPE boolean VALUE ' '.
DATA: v_tpdi TYPE /pws/zycit085-tpdi.
* >> Início da inclusão:
DATA: v_tela(3). "#EC NEEDED
DATA: v_ntgewd LIKE /pws/zycit003-ntgewd.
DATA: v_qtd LIKE /pws/zycie003-qtd_iten,
v_qtd_tot LIKE /pws/zycie003-qtd_iten.
DATA: v_calc1 LIKE /pws/zycie093-prepaid VALUE 0.
DATA: v_tamcont TYPE i ,
v_inicio LIKE /pws/zycie055-nrcontainer,
v_meio LIKE /pws/zycie055-nrcontainer,
v_fim LIKE /pws/zycie055-nrcontainer,
v_container LIKE /pws/zycie055-nrcontainer,
v_separa1(1) TYPE c ,
v_separa2(1) TYPE c ,
v_separador(1) TYPE c VALUE '-' ,
v_periodo(2) TYPE n,
v_int TYPE p DECIMALS 2,
v_mod TYPE p DECIMALS 2.
DATA: v_embarca LIKE /pws/zycie094-embarca.
DATA: currentline(5),
totalline(5).
* << Fim da inclusão
DATA: END OF COMMON PART a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI002
* >> Início da exclusão: MODULE STATUS_0005
MODULE status_0005 OUTPUT.
SET PF-STATUS '0005'.
SET TITLEBAR '0005' WITH text-225.
CLEAR /pws/zycie055-nrcontainer.
ENDMODULE.
MODULE atualiza_posicao OUTPUT.
DATA: currentline(5),
totalline(5).
DESCRIBE TABLE itab_zycit055 LINES v_linha.
CLEAR itab_zycit055.
LOOP AT itab_zycit055.
WRITE itab_zycit055-nrcontainer TO itab_zycit055-nrcontainer
RIGHT-JUSTIFIED.
MODIFY itab_zycit055.
ENDLOOP.
SORT itab_zycit055 BY nrcontainer.
LOOP AT itab_zycit055.
CONDENSE itab_zycit055-nrcontainer NO-GAPS.
MODIFY itab_zycit055.
ENDLOOP.
IF itab_zycit055[] IS INITIAL.
CLEAR: v_linha,
nextline.
ELSE.
IF nextline = 0.
nextline = 1.
ENDIF.
ENDIF.
READ TABLE itab_zycit055 INTO wa_zycit055 INDEX nextline.
IF sy-subrc NE 0.
nextline = v_linha.
ENDIF.
MOVE: nextline TO currentline,
v_linha TO totalline .
CONCATENATE text-226 currentline text-227 totalline
INTO v_posi SEPARATED BY space.
ENDMODULE.
* << Fim da exclusão