CE PLUS - Nota 005807
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Fluxo de Exportação
Data/Hora da Publicação: 31/01/2008 00:00:00
Data/Hora Última Alteração: 05/03/2010 09:18:53
Descrição da Nota: AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA FOLLOW UP EXPORTACAO
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
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05807 Data: 31/01/2008 Hora: 09:50:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05807
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA FOLLOW UP EXPORTACAO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CÓDIGO, CODE INSPECTOR, MENSAGENS, VERIFICAÇÃO,
FOLLOW UP, EXPORTACAO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCER213
REPT /PWS/ZYCER213
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER213
REPORT /pws/zycer213
LINE-SIZE 214
LINE-COUNT 65
MESSAGE-ID /pws/zycem
NO STANDARD PAGE HEADING.
INCLUDE /pws/z_rel_alv.
TABLES: /pws/zycet001,
* >> Início da exclusão:
/pws/zycet002,
* << Fim da exclusão
/pws/zycet003,
/pws/zycet047,
adrc,
j_1bnfdoc,
vbak,
vbap,
vbpa,
vbkd,
ekko.
TYPES:
...
...
END OF itab_vbkd.
DATA: BEGIN OF itab_import OCCURS 0,
vbeln LIKE vbpa-vbeln,
kunnr LIKE vbpa-kunnr,
parvw LIKE vbpa-parvw,
adrnr LIKE vbpa-adrnr,
country LIKE adrc-country,
name1 LIKE kna1-name1,
ebeln LIKE ekko-ebeln,
END OF itab_import.
* >> Início da exclusão:
DATA: BEGIN OF itab_import1 OCCURS 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_import1 OCCURS 0, "#EC *
* << Fim da inclusão
ebeln TYPE ekpo-ebeln ,
kunnr TYPE ekpo-kunnr,
adrnr TYPE ekpo-adrnr,
country TYPE adrc-country,
name1 TYPE kna1-name1,
END OF itab_import1.
DATA: BEGIN OF itab_receb OCCURS 0,
kunnr TYPE kna1-kunnr,
name1 TYPE kna1-name1,
END OF itab_receb.
...
...
aland LIKE eikp-aland,
zolla LIKE eikp-zolla,
bezei LIKE t615t-bezei,
END OF itab_eikp.
DATA: BEGIN OF itab_eikp1 OCCURS 0,
exnum LIKE eikp-exnum,
aland LIKE eikp-aland,
zolla LIKE eikp-zolla,
bezei LIKE t615t-bezei,
END OF itab_eikp1.
* >> Início da exclusão:
DATA: BEGIN OF itab_lips OCCURS 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_lips OCCURS 0, "#EC *
* << Fim da inclusão
vbeln LIKE lips-vbeln,
posnr LIKE lips-posnr,
lfimg LIKE lips-lfimg,
vrkme LIKE lips-vrkme,
brgew LIKE lips-brgew,
gewei LIKE lips-gewei,
END OF itab_lips.
* >> Início da exclusão:
DATA: BEGIN OF itab_lips1 OCCURS 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_lips1 OCCURS 0, "#EC *
* << Fim da inclusão
vbeln LIKE lips-vbeln,
posnr LIKE lips-posnr,
lfimg LIKE lips-lfimg,
vrkme LIKE lips-vrkme,
brgew LIKE lips-brgew,
gewei LIKE lips-gewei,
END OF itab_lips1.
DATA: BEGIN OF itab_vbep OCCURS 0,
vbeln LIKE vbep-vbeln,
posnr LIKE vbep-posnr,
...
...
END OF itab_zycet102.
DATA: BEGIN OF itab_zycet103 OCCURS 0,
nrseqtr LIKE /pws/zycet103-nrseqtr,
nrrota_tr LIKE /pws/zycet103-nrrota_tr,
readtexta LIKE /pws/zycet103-readtexta,
END OF itab_zycet103.
DATA: BEGIN OF itab_zycet124 OCCURS 0,
nrseq LIKE /pws/zycet124-nrseq,
categoria LIKE /pws/zycet124-categoria,
END OF itab_zycet124.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet217 OCCURS 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycet217 OCCURS 0, "#EC *
* << Fim da inclusão
nrseqno LIKE /pws/zycet217-nrseqno,
dtinspecao LIKE /pws/zycet217-dtinspecao,
END OF itab_zycet217.
DATA: BEGIN OF itab_zycet100 OCCURS 0,
nrseq LIKE /pws/zycet100-nrseq,
dtleg LIKE /pws/zycet100-dtleg,
analista LIKE /pws/zycet100-analista,
nrinsp LIKE /pws/zycet100-nrinsp,
empinsp LIKE /pws/zycet100-empinsp,
dtconemb LIKE /pws/zycet100-dtconemb,
data_insp LIKE /pws/zycet100-data_insp,
END OF itab_zycet100.
DATA: BEGIN OF itab_zycet262 OCCURS 0,
nrseq LIKE /pws/zycet262-nrseq,
dtchegf LIKE /pws/zycet262-dtchegf,
END OF itab_zycet262.
DATA: BEGIN OF itab_zycet265 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet265.
DATA: END OF itab_zycet265.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet225 OCCURS 0,
nrseq LIKE /pws/zycet225-nrseq,
ntfiscal LIKE /pws/zycet225-ntfiscal,
emptrans LIKE /pws/zycet225-emptrans,
END OF itab_zycet225.
* << Fim da exclusão
DATA: BEGIN OF itab_armador OCCURS 0,
nrseqcg LIKE /pws/zycet054-nrseqcg,
nrseq LIKE /pws/zycet054-nrseq,
nome_tr LIKE /pws/zycet053-nome_tr,
armador LIKE /pws/zycet053-armador,
dt_dead_line LIKE /pws/zycet053-dt_dead_line,
dtconsolida LIKE /pws/zycet053-dtconsolida,
dtfumigacao LIKE /pws/zycet053-dtfumigacao,
END OF itab_armador.
DATA: BEGIN OF itab_lfa1 OCCURS 0,
...
...
icon_8(10) TYPE c,
dtdoc LIKE /pws/zycet001-dtdoc,
nrcour LIKE /pws/zycet046-nrcour,
icon_9(10) TYPE c,
dtenvcamb LIKE /pws/zycet001-dtenvcamb,
dtrec LIKE /pws/zycet046-dtrec,
dpch LIKE /pws/zycet046-dpch,
analista LIKE /pws/zycet100-analista,
ebeln LIKE /pws/zycet002-ebeln,
END OF itab_relat.
* >> Início da exclusão:
DATA : BEGIN OF itab_zycee085 OCCURS 10.
* << Fim da exclusão
* >> Início da inclusão:
DATA : BEGIN OF itab_zycee085 OCCURS 10. "#EC *
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_zycee085.
* >> Início da exclusão:
DATA : BEGIN OF itab_saida OCCURS 10.
* << Fim da exclusão
* >> Início da inclusão:
DATA : BEGIN OF itab_saida OCCURS 10. "#EC *
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_saida.
* >> Início da exclusão:
DATA : wa_vbco6 LIKE vbco6 OCCURS 1 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
DATA : wa_vbco6 LIKE vbco6 OCCURS 1 WITH HEADER LINE. "#EC *
* << Fim da inclusão
DATA : BEGIN OF itab_vbfa_aux OCCURS 20.
INCLUDE STRUCTURE vbfa.
DATA : END OF itab_vbfa_aux.
DATA: BEGIN OF itab_nast OCCURS 0,
objky LIKE nast-objky,
datvr LIKE nast-datvr,
END OF itab_nast.
DATA: v_index LIKE sy-tabix,
* >> Início da exclusão:
v_f24 ,
nrseq LIKE /pws/zycee085-nrseq.
* << Fim da exclusão
* >> Início da inclusão:
v_f24 .
* << Fim da inclusão
DATA: v_icon(4) TYPE c VALUE '@5C@'.
CONSTANTS:
c_ma LIKE /pws/zycet001-viatrans VALUE 'MA',
c_rd LIKE /pws/zycet001-viatrans VALUE 'RD',
c_ta LIKE /pws/zycet001-viatrans VALUE 'TA'.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_nrseq FOR /pws/zycet001-nrseq
MATCHCODE OBJECT /pws/zycea286,
s_nremb FOR /pws/zycet001-nremb
MATCHCODE OBJECT /pws/zygla009,
...
...
itab_ordem-posnr TO wa_vbco6-posnr.
CALL FUNCTION 'RV_ORDER_FLOW_INFORMATION'
EXPORTING
comwa = wa_vbco6
TABLES
vbfa_tab = itab_vbfa_aux
EXCEPTIONS
no_vbfa = 1
no_vbuk_found = 2
OTHERS = 3.
* >> Início da inclusão: FORM SELECIONA_ORDEM
IF sy-subrc <> 0.
ELSE.
ENDIF.
* << Fim da inclusão
READ TABLE itab_vbfa_aux WITH KEY vbtyp_n = 'J'.
MOVE: itab_vbfa_aux-vbeln TO itab_ordem-vbeln_vl,
itab_vbfa_aux-posnn TO itab_ordem-posnl,
itab_vbfa_aux-vbeln TO itab_ordem-objky.
CLEAR itab_vbfa_aux.
READ TABLE itab_vbfa_aux WITH KEY vbtyp_n = 'M'.
MOVE: itab_vbfa_aux-vbeln TO itab_ordem-vbeln_vf,
itab_vbfa_aux-posnn TO itab_ordem-posnf,
itab_vbfa_aux-vbeln TO itab_ordem-refkey.
MODIFY itab_ordem INDEX v_index.
...
...
CALL FUNCTION 'RV_ORDER_FLOW_INFORMATION'
EXPORTING
comwa = wa_vbco6
TABLES
vbfa_tab = itab_vbfa_aux
EXCEPTIONS
no_vbfa = 1
no_vbuk_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
* >> Início da inclusão: FORM SELECIONA_NOTA
ELSE.
* << Fim da inclusão
ENDIF.
READ TABLE itab_vbfa_aux WITH KEY vbtyp_n = 'J'.
MOVE: itab_vbfa_aux-vbeln TO itab_notas-vbeln_vl,
itab_vbfa_aux-posnn TO itab_notas-posnl.
MODIFY itab_notas INDEX v_index.
CLEAR itab_vbfa_aux.
REFRESH itab_vbfa_aux.
ENDLOOP.
SELECT
a~nrseq
...
...
CHECK NOT itab_embarque[] IS INITIAL.
PERFORM seleciona_ordem_emb.
PERFORM seleciona_pedido_compra.
ENDFORM.
FORM seleciona_dados_ordem.
SELECT *
FROM /pws/zycet265
INTO TABLE itab_zycet265
FOR ALL ENTRIES IN itab_ordem
WHERE vbeln_va EQ itab_ordem-vbeln
* >> Início da exclusão: FORM SELECIONA_DADOS_ORDEM
AND vbeln_vl EQ itab_ordem-vbeln_vl.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ORDEM
AND vbeln_vl EQ itab_ordem-vbeln_vl. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT vbpa~vbeln vbpa~kunnr vbpa~parvw kna1~name1
FROM vbpa INNER JOIN kna1
ON vbpa~kunnr = kna1~kunnr
INTO TABLE itab_vbpa
FOR ALL ENTRIES IN itab_ordem
WHERE vbpa~vbeln EQ itab_ordem-vbeln
AND ( vbpa~parvw EQ 'WE' OR
vbpa~parvw EQ 'SH' ).
SELECT vbeln bldat btgew gewei exnum
FROM likp
...
...
FOR ALL ENTRIES IN itab_ordem
WHERE vbeln EQ itab_ordem-vbeln_vl.
IF NOT itab_likp[] IS INITIAL.
SELECT a~exnum a~aland a~zolla b~bezei
FROM eikp AS a
INNER JOIN t615t AS b
ON b~land1 = a~aland AND
b~zolla = a~zolla
INTO TABLE itab_eikp
FOR ALL ENTRIES IN itab_likp
* >> Início da exclusão: FORM SELECIONA_DADOS_ORDEM
WHERE exnum EQ itab_likp-exnum.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ORDEM
WHERE exnum EQ itab_likp-exnum. "#EC CI_BUFFJOIN
* << Fim da inclusão
SELECT vbeln posnr lfimg vrkme brgew gewei
FROM lips
INTO TABLE itab_lips
FOR ALL ENTRIES IN itab_likp
WHERE vbeln EQ itab_likp-vbeln.
ENDIF.
IF NOT v_f24 IS INITIAL.
SELECT vbeln posnr etenr edatu
FROM vbep
INTO TABLE itab_vbep
...
...
INTO TABLE itab_zycet183
FOR ALL ENTRIES IN itab_embarque
WHERE nremb EQ itab_embarque-nrseq
AND tp_doc IN (text-011 ,
text-012 ,
text-013).
SELECT land1 steuc /pws/anuencia
FROM t604f
INTO TABLE itab_t604f
FOR ALL ENTRIES IN itab_embarque
* >> Início da exclusão: FORM SELECIONA_DADOS_EMBARQUE
WHERE steuc EQ itab_embarque-steuc.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_EMBARQUE
WHERE steuc EQ itab_embarque-steuc. "#EC CI_SGLSELECT
* << Fim da inclusão
SELECT nrseq categoria
FROM /pws/zycet124
INTO TABLE itab_zycet124
FOR ALL ENTRIES IN itab_embarque
WHERE nrseq EQ itab_embarque-nrseq.
IF NOT itab_zycet124[] IS INITIAL.
DELETE itab_zycet124 WHERE categoria EQ ' '.
ENDIF.
ENDFORM.
FORM processa_dados.
...
...
IF sy-subrc EQ 0.
MOVE: itab_nast-datvr TO itab_relat-dt_analise.
ENDIF.
IF NOT itab_ordem[] IS INITIAL.
READ TABLE itab_ordem WITH KEY
vbeln = itab_embarque-vbeln_va
posnr = itab_embarque-aupos
vbeln_vl = itab_embarque-vbeln_vl
posnl = itab_embarque-posnl.
PERFORM atribui_dados_ov
* >> Início da exclusão: FORM PROCESSA_DADOS
USING itab_ordem itab_embarque CHANGING itab_relat.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_DADOS
USING itab_ordem CHANGING itab_relat.
* << Fim da inclusão
ENDIF.
IF NOT itab_pedido[] IS INITIAL.
READ TABLE itab_pedido WITH KEY
ebeln = itab_embarque-ebeln
ebelp = itab_embarque-ebelp
vbeln_vl = itab_embarque-vbeln_vl
posnl = itab_embarque-posnl.
PERFORM atribui_dados_pc
* >> Início da exclusão: FORM PROCESSA_DADOS
USING itab_pedido itab_embarque CHANGING itab_relat.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_DADOS
USING itab_pedido CHANGING itab_relat.
* << Fim da inclusão
ENDIF.
PERFORM red_flags.
COLLECT itab_relat.
ENDLOOP.
SORT itab_relat BY nrseq
vbeln_vl
werks.
DELETE ADJACENT DUPLICATES FROM itab_relat.
itab_zycet003_aux[] = itab_zycet003[].
LOOP AT itab_relat.
...
...
v_user_command = 'USER_COMMAND_ALV'
v_top_of_page = 'TOP_OF_PAGE_ALV'
v_variant = g_variant
v_selinfo = 'X'
v_zebra = p_zebra
v_otimizado = p_otim
TABLES
i_fieldcat = i_fieldcat
t_data = itab_relat.
ENDFORM.
* >> Início da exclusão: FORM PF_STATUS_ALV
FORM pf_status_alv USING extab TYPE kkblo_t_extab.
* << Fim da exclusão
* >> Início da inclusão: FORM PF_STATUS_ALV
FORM pf_status_alv USING extab TYPE kkblo_t_extab. "#EC * "#EC CALLED
* << Fim da inclusão
SET PF-STATUS 'ALV'.
ENDFORM.
FORM user_command_alv USING ucomm LIKE sy-ucomm
* >> Início da exclusão: FORM USER_COMMAND_ALV
selfield TYPE slis_selfield.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_ALV
selfield TYPE slis_selfield. "#EC CALLED
* << Fim da inclusão
* >> Início da exclusão: FORM USER_COMMAND_ALV
DATA: v_campo(20),
v_valor(20),
v_export(15).
* << Fim da exclusão
DATA: wa_relatorio LIKE itab_relat.
IF ucomm = 'BEAN'.
CASE selfield-fieldname.
WHEN 'NRSEQ'.
wa_relatorio-nrseq = selfield-value.
CHECK NOT wa_relatorio-nrseq IS INITIAL.
CALL FUNCTION '/PWS/ZYCE_DRILL_DOWN_EMBARQUE'
EXPORTING
nrseq = wa_relatorio-nrseq.
WHEN 'EBELN'.
...
...
ebeln = wa_relatorio-ebeln.
WHEN 'VBELN_VA'.
wa_relatorio-vbeln_va = selfield-value.
CHECK NOT wa_relatorio-vbeln_va IS INITIAL.
CALL FUNCTION '/PWS/ZYCE_DRILL_DOWN_ORDEM'
EXPORTING
vbeln = wa_relatorio-vbeln_va.
ENDCASE.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM TOP_OF_PAGE_ALV
FORM top_of_page_alv.
* << Fim da exclusão
* >> Início da inclusão: FORM TOP_OF_PAGE_ALV
FORM top_of_page_alv. "#EC CALLED
* << Fim da inclusão
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = gt_list_top_of_page.
ENDFORM.
FORM red_flags.
DATA: v_data LIKE sy-datum.
CASE itab_relat-viatrans.
WHEN c_ma OR c_rd OR c_ta.
CLEAR v_data.
IF itab_relat-bldat IS INITIAL.
...
...
itab_vbpa,
itab_import,
itab_likp,
itab_eikp,
itab_lips,
itab_zycet265,
itab_embarque,
itab_zycet003,
itab_zycet100,
itab_zycet262,
* >> Início da exclusão: FORM REFRESH_TABELAS
itab_zycet225,
* << Fim da exclusão
itab_zycet015,
itab_zycet047,
itab_zycet046,
itab_zycet102,
itab_zycet217,
itab_zycet068,
itab_zycet183.
ENDFORM.
FORM verifica_exit.
CALL CUSTOMER-FUNCTION '002'
...
...
DELETE itab_zycet047 WHERE dtbl EQ '00000000' AND
dtlibconemb EQ '00000000' AND
tipcar EQ ' ' .
ENDIF.
ENDFORM.
FORM seleciona_dtbl.
DATA it_seq_embarque TYPE t_seq_embarques.
SELECT nrseq matnr nrbl dtbl house dtlibconemb tipcar
FROM /pws/zycet047
INTO TABLE itab_zycet047
* >> Início da exclusão: FORM SELECIONA_DTBL
WHERE dtbl IN s_dtbl.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DTBL
WHERE dtbl IN s_dtbl. "#EC CI_NOFIELD
* << Fim da inclusão
IF NOT itab_zycet047[] IS INITIAL.
SELECT
nrseq
nremb
navio
viatrans
portdest
nrsd
canal
dtprev
...
...
INTO TABLE itab_receb
FOR ALL ENTRIES IN itab_likp1
WHERE kunnr EQ itab_likp1-kunnr.
SELECT a~exnum a~aland a~zolla b~bezei
FROM eikp AS a
INNER JOIN t615t AS b
ON b~land1 = a~aland AND
b~zolla = a~zolla
INTO TABLE itab_eikp1
FOR ALL ENTRIES IN itab_likp1
* >> Início da exclusão: FORM SELECIONA_PEDIDO_COMPRA
WHERE exnum EQ itab_likp1-exnum.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PEDIDO_COMPRA
WHERE exnum EQ itab_likp1-exnum. "#EC CI_BUFFJOIN
* << Fim da inclusão
SELECT vbeln posnr lfimg vrkme brgew gewei
FROM lips
INTO TABLE itab_lips1
FOR ALL ENTRIES IN itab_likp1
WHERE vbeln EQ itab_likp1-vbeln.
ENDIF.
IF NOT itab_embarque[] IS INITIAL.
SELECT nrseq nrre dtlibanu
FROM /pws/zycet003
INTO TABLE itab_zycet003
...
...
FROM /pws/zycet120 AS a
INNER JOIN /pws/zycet001 AS b
ON a~nrseq = b~nrseq
INTO TABLE it_seq_embarque
WHERE
a~nrsd IN s_dtdde AND
a~nrseq IN s_nrseq AND
b~nremb IN s_nremb AND
b~dtprev IN s_dtprev AND
b~dtemb IN s_dtemb AND
* >> Início da exclusão: FORM SELECIONA_DDE
b~werks IN s_werks.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DDE
b~werks IN s_werks. "#EC CI_BUFFJOIN
* << Fim da inclusão
CHECK sy-subrc = 0.
PERFORM recupera_itens_embarque
TABLES itab_embarque[]
USING it_seq_embarque.
IF NOT itab_embarque[] IS INITIAL.
SELECT nrseq matnr nrbl dtbl house dtlibconemb tipcar
FROM /pws/zycet047
INTO TABLE itab_zycet047
FOR ALL ENTRIES IN itab_embarque
WHERE nrseq EQ itab_embarque-nrseq
...
...
ENDIF.
READ TABLE itab_zycet068 WITH KEY nrseq = p_embarque-nrseq
repid = text-009.
IF sy-subrc EQ 0.
MOVE: itab_zycet068-data_emis TO p_relat-dt_seg.
ENDIF.
ENDFORM.
FORM atribui_dados_ov_r3
USING
p_ordem LIKE itab_ordem
* >> Início da exclusão: FORM ATRIBUI_DADOS_OV_R3
p_embarque LIKE itab_embarque
* << Fim da exclusão
CHANGING p_relat LIKE itab_relat.
READ TABLE itab_vbpa WITH KEY vbeln = p_ordem-vbeln.
IF sy-subrc EQ 0.
MOVE: itab_vbpa-name1 TO p_relat-recebedor.
ENDIF.
READ TABLE itab_import WITH KEY vbeln = p_ordem-vbeln.
IF sy-subrc EQ 0.
MOVE: itab_import-name1 TO p_relat-importador,
itab_import-country TO p_relat-country.
ENDIF.
...
...
p_embarque-brgew TO p_relat-btgew,
p_embarque-gewei TO p_relat-gewei,
p_embarque-vbeln_va TO p_relat-vbeln_va,
p_embarque-vbeln_vl TO p_relat-vbeln_vl,
p_embarque-ebeln TO p_relat-ebeln,
p_embarque-werks TO p_relat-werks,
p_embarque-fkimg TO p_relat-lfimg,
p_embarque-vrkme TO p_relat-vrkme.
CASE p_embarque-canal.
WHEN 'VD'.
* >> Início da exclusão: FORM ATRIBUI_DADOS_COMUNS
p_relat-canal = 'Verde'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATRIBUI_DADOS_COMUNS
p_relat-canal = text-074.
* << Fim da inclusão
WHEN 'AM'.
* >> Início da exclusão: FORM ATRIBUI_DADOS_COMUNS
p_relat-canal = 'Amarelo'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATRIBUI_DADOS_COMUNS
p_relat-canal = text-075.
* << Fim da inclusão
WHEN 'VM'.
* >> Início da exclusão: FORM ATRIBUI_DADOS_COMUNS
p_relat-canal = 'Vermelho'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATRIBUI_DADOS_COMUNS
p_relat-canal = text-076.
* << Fim da inclusão
WHEN 'CZ'.
* >> Início da exclusão: FORM ATRIBUI_DADOS_COMUNS
p_relat-canal = 'Cinza'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATRIBUI_DADOS_COMUNS
p_relat-canal = text-077.
* << Fim da inclusão
ENDCASE.
ENDFORM.
FORM atribui_dados_ov
USING
p_ordem LIKE itab_ordem
* >> Início da exclusão: FORM ATRIBUI_DADOS_OV
p_embarque LIKE itab_embarque
* << Fim da exclusão
CHANGING p_relat LIKE itab_relat.
READ TABLE itab_zycet265 WITH KEY vbeln_va = p_ordem-vbeln
vbeln_vl = p_ordem-vbeln_vl
.
IF sy-subrc EQ 0.
MOVE: itab_zycet265-dtrecped TO p_relat-dtrecped,
itab_zycet265-dtembsol TO p_relat-dtembsol,
itab_zycet265-dtsolov TO p_relat-dtsolov,
itab_zycet265-dtlibven TO p_relat-dtlibven,
itab_zycet265-dtsolrem TO p_relat-dtsolrem,
...
...
p_relat-vlnota = itab_fatura-netwr.
ENDIF.
ENDIF.
READ TABLE itab_notas WITH KEY refkey = p_ordem-refkey
refitm = p_ordem-posnf.
IF sy-subrc EQ 0.
MOVE: itab_notas-nfnum TO p_relat-nfnum,
itab_notas-docdat TO p_relat-docdat.
ENDIF.
PERFORM atribui_dados_ov_r3
* >> Início da exclusão: FORM ATRIBUI_DADOS_OV
USING p_ordem p_embarque CHANGING p_relat.
* << Fim da exclusão
* >> Início da inclusão: FORM ATRIBUI_DADOS_OV
USING p_ordem CHANGING p_relat.
* << Fim da inclusão
ENDFORM.
FORM atribui_dados_pc
USING
p_pedido LIKE itab_pedido
* >> Início da exclusão: FORM ATRIBUI_DADOS_PC
p_embarque LIKE itab_embarque
* << Fim da exclusão
CHANGING p_relat LIKE itab_relat.
MOVE:
itab_pedido-aedat TO itab_relat-erdat.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCER213
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 003
Texto: (30 caracteres)
"Escolha um Critério de Seleção"
Comprimento máximo: 30
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 015
Texto: (5 caracteres)
"Hora:"
Comprimento máximo: 5
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 017
Texto: (10 caracteres)
"Nº da Pág."
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 018
Texto: (16 caracteres)
"Pedido de Compra"
Comprimento máximo: 16
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 019
Texto: (21 caracteres)
"Data Pedido de Compra"
Comprimento máximo: 21
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 020
Texto: (10 caracteres)
"Importador"
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 021
Texto: (9 caracteres)
"Recebedor"
Comprimento máximo: 9
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 022
Texto: (11 caracteres)
"Despachante"
Comprimento máximo: 11
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 023
Texto: (14 caracteres)
"Ordem de Venda"
Comprimento máximo: 14
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 024
Texto: (19 caracteres)
"Data Ordem de Venda"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 025
Texto: (7 caracteres)
"Remessa"
Comprimento máximo: 7
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 026
Texto: (15 caracteres)
"Data da Remessa"
Comprimento máximo: 15
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 027
Texto: (16 caracteres)
"Peso Bruto Total"
Comprimento máximo: 16
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 028
Texto: (11 caracteres)
"Valor da NF"
Comprimento máximo: 11
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 029
Texto: (21 caracteres)
"Data da Emissão da NF"
Comprimento máximo: 21
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 030
Texto: (8 caracteres)
"Embarque"
Comprimento máximo: 8
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 031
Texto: (19 caracteres)
"N. Fatura Comercial"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 032
Texto: (5 caracteres)
"Modal"
Comprimento máximo: 5
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 033
Texto: (16 caracteres)
"Local de Destino"
Comprimento máximo: 16
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 034
Texto: (26 caracteres)
"Data Instrução de Embarque"
Comprimento máximo: 26
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 035
Texto: (26 caracteres)
"Data Certificado de Origem"
Comprimento máximo: 26
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 036
Texto: (11 caracteres)
"Data Form A"
Comprimento máximo: 11
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 037
Texto: (17 caracteres)
"Data Packing List"
Comprimento máximo: 17
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 038
Texto: (29 caracteres)
"Data do Certificado de Seguro"
Comprimento máximo: 29
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 039
Texto: (10 caracteres)
"Data de RE"
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 040
Texto: (26 caracteres)
"Data Liberação de Anuência"
Comprimento máximo: 26
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 041
Texto: (10 caracteres)
"Data de SD"
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 042
Texto: (5 caracteres)
"Canal"
Comprimento máximo: 5
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 043
Texto: (14 caracteres)
"Nº da Inspeção"
Comprimento máximo: 14
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 044
Texto: (16 caracteres)
"Data de Inspeção"
Comprimento máximo: 16
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 045
Texto: (16 caracteres)
"Data Legalização"
Comprimento máximo: 16
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 046
Texto: (14 caracteres)
"Data Fumigação"
Comprimento máximo: 14
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 047
Texto: (13 caracteres)
"Transportador"
Comprimento máximo: 13
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 048
Texto: (20 caracteres)
"Data de Consolidação"
Comprimento máximo: 20
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 049
Texto: (16 caracteres)
"Tipo de Caminhão"
Comprimento máximo: 16
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 050
Texto: (15 caracteres)
"Dead Line Navio"
Comprimento máximo: 15
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 051
Texto: (19 caracteres)
"Data de Desembaraço"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 052
Texto: (31 caracteres)
"Data de Confirmação de Embarque"
Comprimento máximo: 31
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 053
Texto: (24 caracteres)
"Data Efetiva de Embarque"
Comprimento máximo: 24
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 054
Texto: (30 caracteres)
"Nº do Conhecimento de Embarque"
Comprimento máximo: 30
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 055
Texto: (45 caracteres)
"Data da Liberação do Conhecimento de Embarque"
Comprimento máximo: 45
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 056
Texto: (32 caracteres)
"Data do Conhecimento de Embarque"
Comprimento máximo: 32
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 057
Texto: (9 caracteres)
"Fronteira"
Comprimento máximo: 9
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 058
Texto: (25 caracteres)
"Data Chegada na Fronteira"
Comprimento máximo: 25
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 059
Texto: (23 caracteres)
"Data de Envio ao Câmbio"
Comprimento máximo: 23
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 060
Texto: (38 caracteres)
"Data de Chegada dos Doctos. ao Cliente"
Comprimento máximo: 38
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 061
Texto: (40 caracteres)
"Data de Chegada da Mercadoria no Cliente"
Comprimento máximo: 40
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 062
Texto: (19 caracteres)
"Data ETA Solicitada"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 063
Texto: (27 caracteres)
"Data Certificado de Análise"
Comprimento máximo: 27
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 064
Texto: (22 caracteres)
"Total Fatura Comercial"
Comprimento máximo: 22
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 065
Texto: (18 caracteres)
"Comissão de Agente"
Comprimento máximo: 18
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 066
Texto: (8 caracteres)
"Desconto"
Comprimento máximo: 8
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 067
Texto: (24 caracteres)
"Data da Fatura Comercial"
Comprimento máximo: 24
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 068
Texto: (31 caracteres)
"Data Solicitação de Faturamento"
Comprimento máximo: 31
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 069
Texto: (14 caracteres)
"Data Averbação"
Comprimento máximo: 14
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 070
Texto: (31 caracteres)
"Data Envio do Doctos. Originais"
Comprimento máximo: 31
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 072
Texto: (22 caracteres)
"Seqüencial de Embarque"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 074
Texto: (5 caracteres)
"Verde"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 075
Texto: (7 caracteres)
"Amarelo"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 076
Texto: (8 caracteres)
"Vermelho"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 077
Texto: (5 caracteres)
"Cinza"
Comprimento máximo: 5