CE PLUS - Nota 006092
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Request
Data/Hora da Publicação: 03/03/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:45:16
Descrição da Nota: AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO GRUPO DE FUNÇÕES /PWS/ZYCEGF6
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 06092 Data: 03/03/2008 Hora: 15:14:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06092
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00037
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05079 - 00001 - 7.0 - 00003 - ALTERAÇÃO DA RE PARA ATENDER CENÁRIOS DE EMBARQUES SEM ORDEM DE V
05080 - 00002 - 7.0 - 00003 - DECLARAÇÃO EM INCLUDE DE COMPARTILHAMENTO DE OBJETO DA RE
05117 - 00003 - 7.0 - 00003 - CONVERSAO DE MONTANTE E MELHORIA DE PERFORMANCE RELATORIO KPI
05261 - 00004 - 7.0 - 00003 - TRATAMENTO CO-PA EXPORTAÇÃO
05292 - 00005 - 7.0 - 00003 - SUBSTITUIÇÃO DE FUNÇÃO PARA CÁLCULO DE MONTANTE
05379 - 00006 - 7.0 - 00003 - CORREÇÃO NA RECUPERAÇÃO DE DATA NO AGRUPAMENTO DE OV DO RE
05440 - 00007 - 7.0 - 00003 - DESCRIÇÃO DA MERCADORIA INCORRETA
05442 - 00008 - 7.0 - 00003 - BUSCA CONTA PARAMETRIZADA NA VKOA
05905 - 00009 - 7.0 - 00004 - REFATORAÇÃO DO PROGRAMA DE LANÇAMENTOS EM CO-PA
----------------------------------------------------------------------------------------------------
AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO GRUPO DE FUNÇÕES /PWS/ZYCEGF6
----------------------------------------------------------------------------------------------------
Palavras Chave:
CÓDIGO, CODE INSPECTOR, MENSAGENS, VERIFICAÇÃO,
GRUPO, FUNÇÕES, /PWS/ZYCEGF6
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUGR /PWS/ZYCEGF6
FUNC /PWS/ZYCE_CAMPOS_EXP_CO_PA
REPS /PWS/MZYCE001F01B
REPS /PWS/MZYCE041F01
REPS /PWS/MZYCE045F01
REPS /PWS/MZYCE105F01
REPS /PWS/MZYCE105X01
REPS /PWS/MZYCE400F02
REPS /PWS/ZYCEI135
REPS /PWS/ZYCER135
REPS /PWS/ZYCER306
REPS /PWS/ZYCER314
REPS /PWS/ZYCER401
TTYP /PWS/ZYCEL727
TTYP /PWS/ZYCEL728
TTYP /PWS/ZYCEL729
TTYP /PWS/ZYCEL730
TTYP /PWS/ZYCEL731
TTYP /PWS/ZYCEL732
TTYP /PWS/ZYCEL733
TTYP /PWS/ZYCEL734
TTYP /PWS/ZYCEL735
TTYP /PWS/ZYCEL736
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUGR /PWS/ZYCEGF6
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_AGRUPA_RE_ITEM
...
v_montante TYPE /pws/zycet002-vlme,
v_repid TYPE sy-repid.
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_RE_ITEM
DATA: v_nrseq(3) TYPE n,
v_totmax(3) TYPE n.
* << Fim da inclusão
* Tabelas Internas
DATA: itab_zycet118 LIKE itab_zycet118_aux
...
...
* Início do processamento
MOVE-CORRESPONDING itab_zycee118_i TO itab_zycet118.
APPEND itab_zycet118.
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_RE_ITEM
SELECT ownpr
FROM mbew
UP TO 1 ROWS
INTO itab_zycet118-ownpr
WHERE matnr EQ itab_zycet118-matnr
AND bwkey EQ werks.
ENDSELECT.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_RE_ITEM
SELECT SINGLE ownpr
FROM mbew
INTO itab_zycet118-ownpr
WHERE matnr EQ itab_zycet118-matnr
AND bwkey EQ werks.
* << Fim da exclusão
SELECT vbeln posnr netpr
FROM vbap
INTO TABLE itab_vbap
WHERE vbeln EQ itab_zycet118-vbeln_va
AND posnr EQ itab_zycet118-aupos.
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_RE_ITEM
READ TABLE itab_zycet118 WITH KEY vbeln_vf = space.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_RE_ITEM
READ TABLE itab_zycet118 WITH KEY vbeln_vf = space
posnr = space.
* << Fim da exclusão
IF sy-subrc = 4.
SELECT vbeln fkdat bukrs FROM vbrk INTO TABLE itab_vbrk
FOR ALL ENTRIES IN itab_zycet118
WHERE vbeln = itab_zycet118-vbeln_vf.
ENDIF.
...
...
* Busca Moeda Americana.
PERFORM busca_moeda_americana
USING
itab_vbrk-bukrs
CHANGING
v_waersa.
* Busca Tipo de Taxa de Câmbio do Valor Limite do DSE.
PERFORM busca_taxa_cambio_valor_dse
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_RE_ITEM
USING
itab_vbrk-bukrs
* << Fim da exclusão
CHANGING
v_kurst_dse.
PERFORM busca_taxa USING '1'
itab_zycet118_aux1-waers
v_waersa
v_kurst_dse
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_RE_ITEM
v_vbrk_fkdat
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_RE_ITEM
v_vbrk-fkdat
* << Fim da exclusão
CHANGING v_montante
v_taxa.
IF sy-subrc = 0.
itab_zycet118-preuni = itab_zycet118-preuni *
v_taxa.
ENDIF.
ENDIF.
ENDIF.
...
...
SORT itab_zycet092 BY codnrseq.
DESCRIBE TABLE itab_zycet092 LINES v_anexos.
READ TABLE itab_zycet092 INDEX v_anexos.
* A tabela itab_zycet092 não contem os anexos cancelados, por isso
* é necessário verificar a quantidade de anexos da RE para não correr
* o risco de gerar um novo anexo com o sequencial de um já existente.
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_RE_ITEM
MOVE: itab_zycet092-codnrseq TO v_nrseq,
tot_max TO v_totmax.
* << Fim da inclusão
IF sy-subrc IS INITIAL.
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_RE_ITEM
IF v_nrseq LT v_totmax.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_RE_ITEM
IF itab_zycet092-codnrseq LT tot_max.
* << Fim da exclusão
v_codnrseq = tot_max + 1.
ELSE.
v_codnrseq = itab_zycet092-codnrseq + 1.
ENDIF.
ENDIF.
itab_seq-codnrseq = v_codnrseq.
SHIFT itab_seq-codnrseq RIGHT DELETING TRAILING space.
UNPACK itab_seq-codnrseq TO itab_seq-codnrseq.
READ TABLE itab_zycet092 WITH KEY codnrseq = itab_seq-codnrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_RATEIO_EMBARQUE.
Excluir parâmetro WERKS
Interface local:
IMPORTING
REFERENCE(TPCALC) LIKE /PWS/ZYCEE001-TPCALC OPTIONAL
* >> Início da exclusão: FUNC /PWS/ZYCE_RATEIO_EMBARQUE
REFERENCE(WERKS) LIKE /PWS/ZYCEE001-WERKS OPTIONAL
* << Fim da exclusão
REFERENCE(BUKRS) LIKE /PWS/ZYCEE001-BUKRS OPTIONAL
TABLES
ITAB_ZYCET002 STRUCTURE /PWS/ZYCET002
ITAB_ZYCET008 STRUCTURE /PWS/ZYCEE008
...
* Tabelas Internas
DATA : BEGIN OF itab_zycet065 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet065.
DATA : END OF itab_zycet065.
* >> Início da exclusão: FUNC /PWS/ZYCE_RATEIO_EMBARQUE
DATA : BEGIN OF itab_zycee085 OCCURS 0.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_zycee085.
DATA : BEGIN OF itab_saida OCCURS 0.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_saida.
DATA : BEGIN OF itab_embalagem OCCURS 0.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_embalagem.
DATA : BEGIN OF itab_zycet156 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet156.
DATA : END OF itab_zycet156.
* << Fim da exclusão
DATA : BEGIN OF itab_final OCCURS 0,
vlme LIKE /pws/zycee008-vlme,
ntgew LIKE /pws/zycee002-ntgew_r,
brgew LIKE /pws/zycee002-brgew_r,
fkimg LIKE /pws/zycee002-fkimg,
inco1 LIKE /pws/zycee002-inco1,
outras_desp LIKE /pws/zycee065-outras_desp,
vlod LIKE /pws/zycee002-vlod,
vlfob LIKE /pws/zycee002-vlfob,
vlfrete LIKE /pws/zycee002-vlfrete,
vlagente LIKE /pws/zycee002-vlagente,
...
...
SELECT * FROM /pws/zycet065 INTO TABLE itab_zycet065
WHERE inco1 EQ itab_final-inco1.
LOOP AT itab_final.
v_index = sy-tabix.
CLEAR: wa_zycee313_real,
wa_zycee313_prov.
* >> Início da inclusão: FUNC /PWS/ZYCE_RATEIO_EMBARQUE
PERFORM trata_despesas TABLES itab_zycet008
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_RATEIO_EMBARQUE
PERFORM trata_despesas TABLES itab_final
itab_zycet008
* << Fim da exclusão
itab_zycet065
itab_total
USING tpcalc
* >> Início da inclusão: FUNC /PWS/ZYCE_RATEIO_EMBARQUE
bukrs.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_RATEIO_EMBARQUE
bukrs
werks.
* << Fim da exclusão
MODIFY itab_final INDEX v_index.
CLEAR: itemfre, itemdesp, itemseg, itemdesc, itemacre,
v_fob, v_comissao, v_fkimgtot, v_brgewtot.
ENDLOOP.
PERFORM ajusta_rateio TABLES itab_final
itab_zycet008
itab_zycet065
USING tpcalc.
PERFORM carrega_itab_zycet002 TABLES itab_final itab_zycet002.
ENDIF.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_DESCRICAO_MATERIAL.
Excluir parâmetro NCM:
Interface local:
IMPORTING
REFERENCE(BUKRS) LIKE /PWS/ZYCET001-BUKRS OPTIONAL
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
REFERENCE(NCM) LIKE /PWS/ZYCET118-NCM OPTIONAL
* << Fim da exclusão
REFERENCE(WERKS) LIKE /PWS/ZYCET116-WERKS OPTIONAL
REFERENCE(AGRUPADO) LIKE /PWS/ZYCEE116-AGRUPADO OPTIONAL
TABLES
ITAB_ZYCET002 STRUCTURE /PWS/ZYCET002
ITAB_ZYCET118 STRUCTURE /PWS/ZYCET118
ITAB_ZYCET092 STRUCTURE /PWS/ZYCET092 OPTIONAL
ITAB_ZYCET078 STRUCTURE /PWS/ZYCET078
...
DATA: v_index LIKE sy-tabix,
v_tabix LIKE sy-tabix,
v_dsmerc LIKE /pws/zycet118-dsmerc,
v_tdname(24) TYPE c,
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
v_qtd(18) TYPE c,
v_volum(15) TYPE c,
* << Fim da exclusão
branch LIKE /pws/zycet145-branch,
v_repid LIKE sy-repid.
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
DATA: itab_mara TYPE STANDARD TABLE OF mara.
* << Fim da inclusão
* Tabelas Internas
DATA: BEGIN OF itab_makt OCCURS 10.
INCLUDE STRUCTURE makt.
DATA: END OF itab_makt.
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
DATA: BEGIN OF itab_mara OCCURS 10.
INCLUDE STRUCTURE mara.
DATA: END OF itab_mara.
* << Fim da exclusão
DATA: BEGIN OF itab_tline OCCURS 10.
INCLUDE STRUCTURE tline.
DATA: END OF itab_tline.
DATA: BEGIN OF itab_tline_aux OCCURS 10.
INCLUDE STRUCTURE tline.
...
DATA : BEGIN OF itab_t604f OCCURS 10,
steuc LIKE t604f-steuc,
codnaladi LIKE t604f-/pws/codnaladi,
percentagem LIKE t604f-/pws/percentagem,
zzum LIKE t604f-/pws/zum,
codncmre LIKE t604f-/pws/codncmre,
unit LIKE j_1btxip1-unit,
text1 LIKE t604n-text1,
text2 LIKE t604n-text2,
text3 LIKE t604n-text3,
text4 LIKE t604n-text4,
text5 LIKE t604n-text5,
END OF itab_t604f,
BEGIN OF itab_vbak OCCURS 50,
vbeln LIKE vbak-vbeln,
vkorg LIKE vbak-vkorg,
vtweg LIKE vbak-vtweg,
END OF itab_vbak,
BEGIN OF itab_totmaterial OCCURS 10,
codnrseq LIKE /pws/zycet092-codnrseq,
matnr LIKE /pws/zycet092-matnr,
fkimg LIKE /pws/zycet092-fkimg,
vrkme LIKE /pws/zycet092-vrkme,
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
END OF itab_totmaterial.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
END OF itab_totmaterial,
BEGIN OF itab_vbrp OCCURS 50,
vbeln LIKE vbrp-vbeln,
posnr LIKE vbrp-posnr,
volum LIKE vbrp-volum,
voleh LIKE vbrp-voleh,
END OF itab_vbrp,
BEGIN OF itvolum OCCURS 10,
codnrseq LIKE /pws/zycet092-codnrseq,
volum LIKE vbrp-volum,
voleh LIKE vbrp-voleh,
END OF itvolum.
* << Fim da exclusão
*Work-Areas
DATA: wa_zycet145 LIKE /pws/zycet145,
wa_thead LIKE thead.
DATA linha LIKE itab_zycet078-linha1.
...
* Verifica se existe Parametro Com chave completa Empresa e Filial
SELECT SINGLE *
FROM /pws/zycet145
INTO wa_zycet145
WHERE bukrs = bukrs
AND branch = branch.
IF sy-subrc = 4.
* Somente parametro por Empresa
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
SELECT *
FROM /pws/zycet145
UP TO 1 ROWS
INTO wa_zycet145
WHERE bukrs = bukrs.
ENDSELECT.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
SELECT SINGLE *
FROM /pws/zycet145
INTO wa_zycet145
WHERE bukrs = bukrs.
* << Fim da exclusão
ENDIF.
* Carrega Exits ativas
v_repid = sy-repid.
...
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'X'
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100.
IF NOT wa_zycet145 IS INITIAL.
SELECT a~steuc a~/pws/codnaladi a~/pws/percentagem a~/pws/zum
a~/pws/codncmre b~unit c~text1 c~text2 c~text3 c~text4
c~text5
FROM t604f AS a
INNER JOIN j_1btxip1 AS b
ON a~steuc = b~nbmcode
INNER JOIN t604n AS c
ON a~steuc = c~steuc
INTO TABLE itab_t604f
FOR ALL ENTRIES IN itab_zycet002
WHERE a~steuc EQ itab_zycet002-steuc
AND a~land1 EQ 'BR'
AND c~land1 EQ 'BR'
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
AND c~spras EQ sy-langu. "#EC CI_BUFFJOIN
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
AND c~spras EQ sy-langu.
* << Fim da exclusão
ENDIF.
SELECT *
FROM makt
INTO TABLE itab_makt
FOR ALL ENTRIES IN itab_zycet002
WHERE matnr = itab_zycet002-matnr
AND spras = sy-langu.
...
...
WHEN '02'. " Descrição do NCM (T604N-TEXT1, 2...)
CASE agrupado.
WHEN 'S'. " RE Agrupada.
SORT itab_zycet092 BY codnrseq ncm.
LOOP AT itab_zycet092.
v_index = sy-tabix.
READ TABLE itab_t604f WITH KEY
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
codncmre = itab_zycet092-ncm.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
codncmre = itab_zycet092-ncm(11).
* << Fim da inclusão
IF sy-subrc NE 0.
READ TABLE itab_t604f WITH KEY
steuc = itab_zycet092-ncm.
ENDIF.
READ TABLE itab_zycet078 WITH KEY
codnrseq = itab_zycet092-codnrseq
nrseqre = itab_zycet092-nrseqre.
IF NOT sy-subrc IS INITIAL.
MOVE: itab_zycet092-codnrseq TO itab_zycet078-codnrseq,
itab_zycet092-nrseqre TO itab_zycet078-nrseqre.
PERFORM preenche_078_02 USING itab_t604f
CHANGING itab_zycet078.
APPEND itab_zycet078.
ELSE.
v_index = sy-tabix.
...
WHEN 'S'. " RE Agrupada
SELECT matnr bismt
FROM mara
INTO TABLE itab_mara
FOR ALL ENTRIES IN itab_zycet002
WHERE matnr = itab_zycet002-matnr.
SORT itab_zycet118 BY ncm vrkme matnr seqagrupado.
LOOP AT itab_zycet118.
MOVE : itab_zycet118-seqagrupado TO itab_totmaterial-codnrseq,
itab_zycet118-matnr TO itab_totmaterial-matnr,
itab_zycet118-fkimg TO itab_totmaterial-fkimg,
itab_zycet118-vrkme TO itab_totmaterial-vrkme.
COLLECT itab_totmaterial.
ENDLOOP.
SORT itab_zycet118 BY seqagrupado matnr dsmerc.
CASE bukrs.
WHEN text-059.
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
PERFORM preenche_078_06a TABLES itab_zycet092
itab_zycet118
itab_zycet078
itab_mara
itab_totmaterial.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
PERFORM preenche_078_06a CHANGING itab_zycet092[]
itab_zycet118[]
itab_zycet078[]
itab_mara[]
itab_totmaterial[].
* << Fim da inclusão
WHEN text-069. "Empresa MH01
IF werks EQ text-070.
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
PERFORM preenche_078_06a TABLES itab_zycet092
itab_zycet118
itab_zycet078
itab_mara
itab_totmaterial.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
PERFORM preenche_078_06a CHANGING itab_zycet092[]
itab_zycet118[]
itab_zycet078[]
itab_mara[]
itab_totmaterial[].
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
PERFORM preenche_078_06d TABLES itab_zycet092
itab_zycet118
itab_zycet078
itab_makt
itab_totmaterial.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
PERFORM preenche_078_06d CHANGING itab_zycet092[]
itab_zycet118[]
itab_zycet078[]
itab_makt[]
itab_totmaterial[].
* << Fim da inclusão
ENDIF.
WHEN OTHERS. " RE não agrupada
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
PERFORM preenche_078_06d TABLES itab_zycet092
itab_zycet118
itab_zycet078
itab_makt
itab_totmaterial.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
PERFORM preenche_078_06d CHANGING itab_zycet092[]
itab_zycet118[]
itab_zycet078[]
itab_makt[]
itab_totmaterial[].
* << Fim da exclusão
ENDCASE.
WHEN OTHERS. " RE não agrupada
SELECT matnr bismt
FROM mara
INTO TABLE itab_mara
FOR ALL ENTRIES IN itab_zycet002
WHERE matnr = itab_zycet002-matnr.
SORT itab_zycet118 BY ncm vrkme matnr seqagrupado.
LOOP AT itab_zycet118.
MOVE : itab_zycet118-codnrseq TO itab_totmaterial-codnrseq,
itab_zycet118-matnr TO itab_totmaterial-matnr,
itab_zycet118-fkimg TO itab_totmaterial-fkimg,
itab_zycet118-vrkme TO itab_totmaterial-vrkme.
COLLECT itab_totmaterial.
ENDLOOP.
SORT itab_zycet118 BY seqagrupado matnr dsmerc.
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
PERFORM preenche_078_06d TABLES itab_zycet092
itab_zycet118
itab_zycet078
itab_makt
itab_totmaterial.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
PERFORM preenche_078_06d CHANGING itab_zycet092[]
itab_zycet118[]
itab_zycet078[]
itab_makt[]
itab_totmaterial[].
* << Fim da inclusão
ENDCASE.
WHEN '07'. "Descrição do NCM da RV
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_ENQFAB_RE
Alterar definição de interface local:
Interface local:
IMPORTING
* >> Início da exclusão: FUNC /PWS/ZYCE_ENQFAB_RE
REFERENCE(AGRUPADO) LIKE /PWS/ZYCEE116-AGRUPADO OPTIONAL
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_ENQFAB_RE
REFERENCE(AGRUPADO) TYPE /PWS/ZYCEE116-AGRUPADO OPTIONAL
* << Fim da inclusão
REFERENCE(TIPO) TYPE CHAR3
* >> Início da exclusão: FUNC /PWS/ZYCE_ENQFAB_RE
REFERENCE(ITAB_ZYCET092_AUX) LIKE /PWS/ZYCEE092 STRUCTURE
/PWS/ZYCEE092 OPTIONAL
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_ENQFAB_RE
REFERENCE(ITAB_ZYCET092_AUX) TYPE /PWS/ZYCEE092 OPTIONAL
REFERENCE(ITAB_ZYCET002) TYPE /PWS/ZYCEL727 OPTIONAL
REFERENCE(ITAB_ZYCET092) TYPE /PWS/ZYCEL730 OPTIONAL
REFERENCE(ITAB_ZYCET118) TYPE /PWS/ZYCEL732
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_ENQFAB_RE
TABLES
ITAB_ZYCET118 STRUCTURE /PWS/ZYCET118
ITAB_ZYCET078 STRUCTURE /PWS/ZYCET078
ITAB_ZYCET092 STRUCTURE /PWS/ZYCET092 OPTIONAL
ITAB_ZYCET116 STRUCTURE /PWS/ZYCET116 OPTIONAL
ITAB_ZYCET119 STRUCTURE /PWS/ZYCET119 OPTIONAL
ITAB_ZYCET066 STRUCTURE /PWS/ZYCET066 OPTIONAL
ITAB_ZYCET002 STRUCTURE /PWS/ZYCET002 OPTIONAL
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_ENQFAB_RE
CHANGING
REFERENCE(ITAB_ZYCET066) TYPE /PWS/ZYCEL728 OPTIONAL
REFERENCE(ITAB_ZYCET078) TYPE /PWS/ZYCEL729
REFERENCE(ITAB_ZYCET116) TYPE /PWS/ZYCEL731 OPTIONAL
REFERENCE(ITAB_ZYCET119) TYPE /PWS/ZYCEL733 OPTIONAL
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_ENQFAB_RE
APPEND itab_zycet116.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_ENQFAB_RE
DATA wa_dados_fabricante TYPE /pws/zycet119.
CLEAR wa_zycet116.
APPEND wa_zycet116 TO itab_zycet116.
* << Fim da inclusão
MOVE: itab_zycet002[] TO itab_zycet002a[],
itab_zycet118[] TO itab_zycet118a[],
itab_zycet078[] TO itab_zycet078a[],
itab_zycet116[] TO itab_zycet116a[],
itab_zycet066[] TO itab_zycet066a[],
itab_zycet092[] TO itab_zycet092a[],
itab_zycet119[] TO itab_zycet119a[].
REFRESH: itab_zycet092a.
MOVE: itab_zycet092_aux TO itab_zycet092a.
APPEND itab_zycet092a.
EXPORT: itab_zycet002a[] TO MEMORY ID 'T002',
itab_zycet118a[] TO MEMORY ID 'T118',
itab_zycet078a[] TO MEMORY ID 'T078',
itab_zycet092a[] TO MEMORY ID 'T092',
wa_zycet116 TO MEMORY ID 'T116',
itab_zycet066a[] TO MEMORY ID 'T066',
itab_zycet119a[] TO MEMORY ID 'T119',
...
...
IMPORT: itab_zycet119a[] FROM MEMORY ID 'T119',
itab_zycet066a[] FROM MEMORY ID 'T066',
itab_zycet078a[] FROM MEMORY ID 'T078',
wa_zycet116 FROM MEMORY ID 'T116'.
MOVE-CORRESPONDING wa_zycet116 TO itab_zycet116a.
MODIFY itab_zycet116a INDEX 1.
REFRESH itab_zycet119.
LOOP AT itab_zycet119a.
* >> Início da inclusão: FUNC /PWS/ZYCE_ENQFAB_RE
MOVE-CORRESPONDING itab_zycet119a TO wa_dados_fabricante.
APPEND wa_dados_fabricante TO itab_zycet119.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_ENQFAB_RE
MOVE-CORRESPONDING itab_zycet119a TO itab_zycet119.
APPEND itab_zycet119.
* << Fim da exclusão
ENDLOOP.
Ajustar o campo FKIMG para trazer valores em KG.
PERFORM ajusta_fkimg TABLES itab_zycet119a.
FREE itab_zycet116.
MOVE: itab_zycet078a[] TO itab_zycet078[],
itab_zycet116a[] TO itab_zycet116[],
itab_zycet066a[] TO itab_zycet066[],
itab_zycet119a[] TO itab_zycet119[].
FREE MEMORY ID: 'T002',
'T118',
'T078',
'T092',
'T116',
'T066',
'T119',
'T282',
'T244'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_AGRUPA_OV_RE
Alterar Interface Local:
Interface local:
IMPORTING
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
REFERENCE(WERKS) LIKE /PWS/ZYCEE001-WERKS OPTIONAL
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
REFERENCE(WERKS) TYPE /PWS/ZYCEE001-WERKS OPTIONAL
REFERENCE(ITAB_ZYCET002) TYPE /PWS/ZYCEL727 OPTIONAL
REFERENCE(ITAB_ZYCET090) TYPE /PWS/ZYCEL734
EXPORTING
REFERENCE(itab_zycet092) TYPE /PWS/ZYCEL730
CHANGING
REFERENCE(ITAB_ZYCET118) TYPE /PWS/ZYCEL732
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
TABLES
ITAB_ZYCET092 STRUCTURE /PWS/ZYCET092
ITAB_ZYCET118 STRUCTURE /PWS/ZYCET118
ITAB_ZYCET090 STRUCTURE /PWS/ZYCET090
ITAB_ZYCET002 STRUCTURE /PWS/ZYCET002 OPTIONAL
* << Fim da exclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
DATA: v_index LIKE sy-tabix,
v_taxa LIKE /pws/zycee033-kurrf,
v_montante LIKE /pws/zycet002-vlme,
branch LIKE /pws/zycet145-branch,
v_repid LIKE sy-repid.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
DATA: v_index TYPE sy-tabix,
v_taxa TYPE /pws/zycee033-kurrf,
v_montante TYPE /pws/zycet002-vlme,
branch TYPE /pws/zycet145-branch,
v_repid TYPE sy-repid,
wa_item_embarque TYPE /pws/zycet002,
wa_descr_campo_agrup TYPE /pws/zycet090,
wa_item_marc_re TYPE /pws/zycet118.
* << Fim da inclusão
DATA: BEGIN OF itab_mbew OCCURS 10,
matnr LIKE mbew-matnr,
bwkey LIKE mbew-bwkey,
ownpr LIKE mbew-ownpr,
END OF itab_mbew,
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
BEGIN OF itab_vbap OCCURS 10,
vbeln_va LIKE vbap-vbeln,
posnr LIKE vbap-posnr,
netpr LIKE vbap-netpr,
END OF itab_vbap,
* << Fim da exclusão
BEGIN OF itab_docfat OCCURS 10,
vbeln_vf LIKE /pws/zycet118-vbeln_vf,
END OF itab_docfat,
BEGIN OF itab_vbrk OCCURS 10,
vbeln_vf LIKE vbrk-vbeln,
fkdat LIKE vbrk-fkdat,
END OF itab_vbrk.
SELECT SINGLE j_1bbranch FROM t001w
INTO branch
WHERE werks = werks.
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
READ TABLE itab_zycet002 INTO wa_item_embarque INDEX 1.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycet145 INTO wa_zycet145
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
WHERE bukrs = itab_zycet002-bukrs
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
WHERE bukrs = wa_item_embarque-bukrs
* << Fim da inclusão
AND branch = branch.
IF sy-subrc = 4.
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
SELECT SINGLE * FROM /pws/zycet145 INTO wa_zycet145
WHERE bukrs = itab_zycet002-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
SELECT *
FROM /pws/zycet145
UP TO 1 ROWS
INTO wa_zycet145
WHERE bukrs = wa_item_embarque-bukrs.
ENDSELECT.
* << Fim da inclusão
ENDIF.
v_repid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'X'
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100.
CLEAR itab_zycet118_aux1. REFRESH itab_zycet118_aux1.
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
READ TABLE itab_zycet090 WITH KEY mark = text-001. "X
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
READ TABLE itab_zycet090 INTO wa_descr_campo_agrup
WITH KEY mark = text-001. "X
* << Fim da inclusão
IF sy-subrc = 0.
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
v_limite = wa_descr_campo_agrup-itmagrup.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
v_limite = itab_zycet090-itmagrup.
* << Fim da exclusão
IF v_limite IS INITIAL AND wa_zycet145-txtdesc NE '02'.
v_limite = '00009'.
ENDIF.
IF NOT itab_zycet118[] IS INITIAL.
SELECT matnr bwkey ownpr FROM mbew INTO TABLE itab_mbew
FOR ALL ENTRIES IN itab_zycet118
WHERE matnr EQ itab_zycet118-matnr
AND bwkey EQ werks.
ENDIF.
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
LOOP AT itab_zycet118.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
LOOP AT itab_zycet118 INTO wa_item_marc_re.
* << Fim da inclusão
CLEAR itab_zycet118_aux1.
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
MOVE-CORRESPONDING itab_zycet118 TO itab_zycet118_aux1.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
MOVE-CORRESPONDING wa_item_marc_re TO itab_zycet118_aux1.
* << Fim da inclusão
APPEND itab_zycet118_aux1.
ENDLOOP.
LOOP AT itab_mbew.
LOOP AT itab_zycet118_aux1 WHERE matnr = itab_mbew-matnr.
MOVE itab_mbew-ownpr TO itab_zycet118_aux1-ownpr.
MODIFY itab_zycet118_aux1 INDEX sy-tabix.
ENDLOOP.
ENDLOOP.
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
IF NOT itab_zycet118_aux1[] IS INITIAL.
SELECT vbeln posnr netpr FROM vbap INTO TABLE itab_vbap
FOR ALL ENTRIES IN itab_zycet118_aux1
WHERE vbeln = itab_zycet118_aux1-vbeln_va
AND posnr = itab_zycet118_aux1-aupos.
ENDIF.
* << Fim da exclusão
LOOP AT itab_zycet118_aux1.
IF NOT itab_zycet118_aux1-vbeln_vf IS INITIAL.
MOVE itab_zycet118_aux1-vbeln_vf TO
itab_docfat-vbeln_vf.
APPEND itab_docfat.
ENDIF.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM itab_docfat COMPARING vbeln_vf.
IF NOT itab_docfat[] IS INITIAL.
SELECT vbeln fkdat FROM vbrk INTO TABLE itab_vbrk
FOR ALL ENTRIES IN itab_docfat
WHERE vbeln = itab_docfat-vbeln_vf.
ENDIF.
PERFORM busca_moeda_americana
USING
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
wa_item_embarque-bukrs
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
itab_zycet002-bukrs
* << Fim da exclusão
CHANGING
v_waersa.
PERFORM busca_taxa_cambio_valor_dse
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
USING
itab_zycet002-bukrs
* << Fim da exclusão
CHANGING
v_kurst_dse.
PERFORM busca_data_conversao
USING
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
itab_zycet002
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
wa_item_embarque
* << Fim da inclusão
CHANGING
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
v_vbrk-fkdat.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
v_vbrk_fkdat.
* << Fim da inclusão
LOOP AT itab_zycet118_aux1.
v_index = sy-tabix.
itab_zycet118_aux1-preuni = itab_zycet118_aux1-netpr /
itab_zycet118_aux1-fkimg.
itab_zycet118_aux1-preunifob = itab_zycet118_aux1-vfob /
itab_zycet118_aux1-fkimg.
READ TABLE itab_vbrk WITH KEY vbeln_vf =
itab_zycet118_aux1-vbeln_vf.
IF sy-subrc = 0.
IF itab_zycet118_aux1-waers NE v_waersa.
PERFORM busca_taxa USING '1'
itab_zycet118_aux1-waers
v_waersa
v_kurst_dse
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
v_vbrk-fkdat
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
v_vbrk_fkdat
* << Fim da inclusão
CHANGING v_montante
v_taxa.
IF sy-subrc = 0.
itab_zycet118_aux1-preuni = itab_zycet118_aux1-preuni *
v_taxa.
ENDIF.
ENDIF.
ENDIF.
MODIFY itab_zycet118_aux1 INDEX v_index.
ENDLOOP.
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
CASE itab_zycet090-codint.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
CASE wa_descr_campo_agrup-codint.
* << Fim da inclusão
WHEN '000001'. "000001
PERFORM preenche_092_000001 TABLES itab_zycet092.
WHEN '000002'. "000002
PERFORM preenche_092_000002 TABLES itab_zycet092.
WHEN '000003'. "000003
...
...
WHEN '000016'. "000016
PERFORM preenche_092_000016 TABLES itab_zycet092.
ENDCASE.
REFRESH itab_zycet118. CLEAR itab_zycet118. FREE itab_zycet118.
LOOP AT itab_zycet118_aux1.
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
MOVE-CORRESPONDING itab_zycet118_aux1 TO itab_zycet118.
APPEND itab_zycet118.
CLEAR itab_zycet118.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_OV_RE
MOVE-CORRESPONDING itab_zycet118_aux1 TO wa_item_marc_re.
APPEND wa_item_marc_re TO itab_zycet118.
CLEAR wa_item_marc_re.
* << Fim da inclusão
ENDLOOP.
CLEAR v_index.
ENDIF.
ENDFUNCTION.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_CAMPOS_EXP_CO_PA
Eliminar Módulo de Função /PWS/ZYCE_CAMPOS_EXP_CO_PA.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_AGRUPA_PERMISO
Alterar Interface Local:
Interface local:
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_PERMISO
IMPORTING
REFERENCE(WERKS) LIKE /PWS/ZYCEE001-WERKS OPTIONAL
* << Fim da exclusão
TABLES
ITAB_ZYCET296 STRUCTURE /PWS/ZYCET296
ITAB_ZYCET301 STRUCTURE /PWS/ZYCET301
ITAB_ZYCET300 STRUCTURE /PWS/ZYCET300
...
DATA : BEGIN OF itab_codigo OCCURS 0,
codigo LIKE /pws/zycet300-codint,
END OF itab_codigo,
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_PERMISO
BEGIN OF itab_mbew OCCURS 10,
matnr LIKE mbew-matnr,
bwkey LIKE mbew-bwkey,
ownpr LIKE mbew-ownpr,
END OF itab_mbew,
* << Fim da exclusão
BEGIN OF itab_vbap OCCURS 10,
vbeln_va LIKE vbap-vbeln,
posnr LIKE vbap-posnr,
netpr LIKE vbap-netpr,
END OF itab_vbap,
BEGIN OF itab_docfat OCCURS 10,
vbeln_vf LIKE /pws/zycet118-vbeln_vf,
END OF itab_docfat,
BEGIN OF itab_vbrk OCCURS 10,
vbeln_vf LIKE vbrk-vbeln,
fkdat LIKE vbrk-fkdat,
bukrs like vbrk-bukrs,
END OF itab_vbrk.
...
READ TABLE itab_zycet300 WITH KEY codint = '000001'
mark = 'X'.
IF sy-subrc = 0.
MOVE: itab_zycet300-codint TO itab_codigo-codigo.
ENDIF.
APPEND itab_codigo.
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_PERMISO
SELECT matnr bwkey ownpr
FROM mbew
INTO TABLE itab_mbew
FOR ALL ENTRIES IN itab_zycet301
WHERE matnr EQ itab_zycet301-matnr
AND bwkey EQ werks.
* << Fim da exclusão
LOOP AT itab_zycet301.
CLEAR itab_zycet301_aux1.
MOVE-CORRESPONDING itab_zycet301 TO itab_zycet301_aux1.
APPEND itab_zycet301_aux1.
ENDLOOP.
SELECT vbeln posnr netpr
FROM vbap
INTO TABLE itab_vbap
FOR ALL ENTRIES IN itab_zycet301_aux1
WHERE vbeln EQ itab_zycet301_aux1-vbeln_va
AND posnr EQ itab_zycet301_aux1-aupos.
...
IF sy-subrc = 0.
IF itab_zycet301_aux1-waers NE 'USD'.
PERFORM busca_moeda_americana
USING
itab_vbrk-bukrs
CHANGING
v_waersa.
PERFORM busca_taxa_cambio_valor_dse
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_PERMISO
USING
itab_vbrk-bukrs
* << Fim da exclusão
CHANGING
v_kurst_dse.
PERFORM busca_taxa USING '1'
itab_zycet118_aux1-waers
v_waersa
v_kurst_dse
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPA_PERMISO
v_vbrk_fkdat
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPA_PERMISO
v_vbrk-fkdat
* << Fim da exclusão
CHANGING v_montante
v_taxa.
IF sy-subrc = 0.
itab_zycet301_aux1-preuni = itab_zycet301_aux1-preuni
* v_taxa.
ENDIF.
ENDIF.
ENDIF.
MODIFY itab_zycet301_aux1 INDEX v_index.
ENDIF.
ENDLOOP.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_CALC_VALOR_CONDITION
...
DATA: v_bukrs LIKE /pws/zycet001-bukrs.
DATA: BEGIN OF itab_zycet156 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet156.
DATA: END OF itab_zycet156.
* >> Início da inclusão: FUNC /PWS/ZYCE_CALC_VALOR_CONDITION
DATA: itab_zycet008_aux TYPE STANDARD TABLE OF /pws/zycet008.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_CALC_VALOR_CONDITION
DATA: BEGIN OF itab_zycet008_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycet008.
DATA: END OF itab_zycet008_aux.
* << Fim da exclusão
CLEAR: /pws/zycee313.
IF nrseq IS INITIAL.
READ TABLE itab_zycet008 INDEX 1.
SELECT SINGLE bukrs
FROM /pws/zycet001
INTO v_bukrs
WHERE nrseq EQ itab_zycet008-nrseq.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_DETERMINA_LIMITE_DSE
* >> Início da inclusão: FUNC /PWS/ZYCE_DETERMINA_LIMITE_DSE
TYPES: BEGIN OF t_zycet156,
codigo LIKE /pws/zycet156-codigo,
END OF t_zycet156.
DATA: it_zycet156 TYPE STANDARD TABLE OF t_zycet156.
* << Fim da inclusão
DATA: it_zycet008 TYPE TABLE OF /pws/zycet008 WITH HEADER LINE.
* >> Início da exclusão: FUNC /PWS/ZYCE_DETERMINA_LIMITE_DSE
DATA: BEGIN OF it_zycet156 OCCURS 0,
codigo LIKE /pws/zycet156-codigo,
END OF it_zycet156.
* << Fim da exclusão
DATA: v_vlme LIKE /pws/zycet008-vlme,
v_waers LIKE /pws/zycet008-waers,
v_waers_empresa TYPE t001-waers,
v_inco1 LIKE /pws/zycet001-inco1.
DATA: BEGIN OF wa_zycet001,
bukrs TYPE /pws/zycet001-bukrs,
inco1 TYPE /pws/zycet001-inco1,
dtemb TYPE /pws/zycet001-dtemb,
tpcalc TYPE /pws/zycet001-tpcalc,
END OF wa_zycet001.
DATA: BEGIN OF wa_zycet312,
wrbtr_dse TYPE /pws/zycet312-wrbtr_dse,
waers_dse TYPE /pws/zycet312-waers_dse,
kurst_dse TYPE /pws/zycet312-kurst_dse,
END OF wa_zycet312.
DATA: wa_zycet065 TYPE /pws/zycet065,
wa_zycee313 TYPE /pws/zycee313.
p_dse = space.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_AGRUPAMENTO_RE
Interface local:
IMPORTING
REFERENCE(COD_AGRUP) TYPE ANY
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
REFERENCE(BUKRS) LIKE /PWS/ZYCEE001-BUKRS
REFERENCE(WERKS) LIKE /PWS/ZYCEE001-WERKS OPTIONAL
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
REFERENCE(BUKRS) TYPE /PWS/ZYCEE001-BUKRS
REFERENCE(WERKS) TYPE /PWS/ZYCEE001-WERKS OPTIONAL
REFERENCE(ITAB_ZYCET090) TYPE /PWS/ZYCEL734
EXPORTING
REFERENCE(ITAB_ZYCET092) TYPE /PWS/ZYCEL730
CHANGING
REFERENCE(ITAB_ZYCET118) TYPE /PWS/ZYCEL732
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
TABLES
ITAB_ZYCET092 STRUCTURE /PWS/ZYCET092
ITAB_ZYCET118 STRUCTURE /PWS/ZYCET118
ITAB_ZYCET090 STRUCTURE /PWS/ZYCET090
ITAB_ZYCET002 STRUCTURE /PWS/ZYCET002 OPTIONAL
* << Fim da exclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
DATA: v_index LIKE sy-tabix,
v_taxa LIKE /pws/zycee033-kurrf,
v_montante LIKE /pws/zycet002-vlme,
branch LIKE /pws/zycet145-branch,
v_repid LIKE sy-repid.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
DATA: v_index TYPE sy-tabix,
v_taxa TYPE /pws/zycee033-kurrf,
v_montante TYPE /pws/zycet002-vlme,
branch TYPE /pws/zycet145-branch,
v_repid TYPE sy-repid,
wa_param_campo_agrup TYPE /pws/zycet090,
wa_item_marc_re TYPE /pws/zycet118.
* << Fim da inclusão
DATA: BEGIN OF itab_mbew OCCURS 10,
matnr LIKE mbew-matnr,
bwkey LIKE mbew-bwkey,
ownpr LIKE mbew-ownpr,
END OF itab_mbew,
BEGIN OF itab_vbap OCCURS 10,
vbeln_va LIKE vbap-vbeln,
posnr LIKE vbap-posnr,
netpr LIKE vbap-netpr,
END OF itab_vbap,
...
...
SELECT SINGLE j_1bbranch FROM t001w
INTO branch
WHERE werks = werks.
SELECT SINGLE * FROM /pws/zycet145 INTO wa_zycet145
WHERE bukrs = bukrs
AND branch = branch.
IF sy-subrc = 4.
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
SELECT SINGLE * FROM /pws/zycet145 INTO wa_zycet145
WHERE bukrs = bukrs.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
SELECT *
FROM /pws/zycet145
UP TO 1 ROWS
INTO wa_zycet145
WHERE bukrs = bukrs.
ENDSELECT.
* << Fim da inclusão
ENDIF.
v_repid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'X'
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100.
CLEAR itab_zycet118_aux1. REFRESH itab_zycet118_aux1.
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
READ TABLE itab_zycet090 WITH KEY codint = cod_agrup. "X
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
READ TABLE itab_zycet090 INTO wa_param_campo_agrup
WITH KEY codint = cod_agrup. "X
* << Fim da inclusão
IF sy-subrc = 0.
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
v_limite = itab_zycet090-itmagrup.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
v_limite = wa_param_campo_agrup-itmagrup.
* << Fim da inclusão
IF v_limite IS INITIAL AND wa_zycet145-txtdesc NE '02'.
v_limite = '00009'.
ENDIF.
IF NOT itab_zycet118[] IS INITIAL.
SELECT matnr bwkey ownpr FROM mbew INTO TABLE itab_mbew
FOR ALL ENTRIES IN itab_zycet118
WHERE matnr EQ itab_zycet118-matnr
AND bwkey EQ werks.
ENDIF.
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
LOOP AT itab_zycet118 INTO wa_item_marc_re.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
LOOP AT itab_zycet118.
* << Fim da exclusão
CLEAR itab_zycet118_aux1.
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
MOVE-CORRESPONDING wa_item_marc_re TO itab_zycet118_aux1.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
MOVE-CORRESPONDING itab_zycet118 TO itab_zycet118_aux1.
* << Fim da exclusão
APPEND itab_zycet118_aux1.
ENDLOOP.
LOOP AT itab_mbew.
LOOP AT itab_zycet118_aux1 WHERE matnr = itab_mbew-matnr.
MOVE itab_mbew-ownpr TO itab_zycet118_aux1-ownpr.
MODIFY itab_zycet118_aux1 INDEX sy-tabix.
ENDLOOP.
ENDLOOP.
...
IF sy-subrc = 0.
itab_zycet118_aux1-preuni = itab_zycet118_aux1-preuni *
v_taxa.
ENDIF.
ENDIF.
ENDIF.
MODIFY itab_zycet118_aux1 INDEX v_index.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
CASE wa_param_campo_agrup-codint.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
CASE itab_zycet090-codint.
* << Fim da exclusão
WHEN '000001'. "000001
PERFORM preenche_092_000001 TABLES itab_zycet092.
WHEN '000002'. "000002
PERFORM preenche_092_000002 TABLES itab_zycet092.
WHEN '000003'. "000003
...
WHEN '000016'. "000016
PERFORM preenche_092_000016 TABLES itab_zycet092.
ENDCASE.
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
REFRESH itab_zycet118. CLEAR itab_zycet118. FREE itab_zycet118.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
CLEAR itab_zycet118.
* << Fim da inclusão
LOOP AT itab_zycet118_aux1.
* >> Início da inclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
CLEAR wa_item_marc_re.
MOVE-CORRESPONDING itab_zycet118_aux1 TO wa_item_marc_re.
APPEND wa_item_marc_re TO itab_zycet118.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_AGRUPAMENTO_RE
MOVE-CORRESPONDING itab_zycet118_aux1 TO itab_zycet118.
APPEND itab_zycet118.
CLEAR itab_zycet118.
* << Fim da exclusão
ENDLOOP.
CLEAR v_index.
ENDIF.
ENDFUNCTION.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
Alterar Interface Local:
Interface local:
IMPORTING
REFERENCE(TXTDESC) LIKE /PWS/ZYCET145-TXTDESC
REFERENCE(BUKRS) LIKE /PWS/ZYCET001-BUKRS OPTIONAL
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
REFERENCE(NCM) LIKE /PWS/ZYCET118-NCM OPTIONAL
* << Fim da exclusão
REFERENCE(WERKS) LIKE /PWS/ZYCET116-WERKS OPTIONAL
REFERENCE(AGRUPADO) LIKE /PWS/ZYCEE116-AGRUPADO OPTIONAL
TABLES
ITAB_ZYCET118 STRUCTURE /PWS/ZYCET118
ITAB_ZYCET092 STRUCTURE /PWS/ZYCET092 OPTIONAL
ITAB_ZYCET078 STRUCTURE /PWS/ZYCET078
...
DATA: v_index LIKE sy-tabix,
v_index_aux TYPE sy-tabix,
v_tabix LIKE sy-tabix,
v_dsmerc LIKE /pws/zycet118-dsmerc,
v_tdname(24) TYPE c,
v_qtd(18) TYPE c,
v_volum(15) TYPE c,
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
branch LIKE /pws/zycet145-branch,
* << Fim da exclusão
v_repid LIKE sy-repid.
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
DATA: itab_mara TYPE STANDARD TABLE OF mara.
* << Fim da inclusão
DATA: BEGIN OF itab_makt OCCURS 10.
INCLUDE STRUCTURE makt.
DATA: END OF itab_makt.
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
DATA: BEGIN OF itab_mara OCCURS 10.
INCLUDE STRUCTURE mara.
DATA: END OF itab_mara.
* << Fim da exclusão
DATA: BEGIN OF itab_tline OCCURS 10.
INCLUDE STRUCTURE tline.
DATA: END OF itab_tline.
DATA: BEGIN OF itab_tline_aux OCCURS 10.
INCLUDE STRUCTURE tline.
DATA: matnr LIKE /pws/zycet118-matnr,
END OF itab_tline_aux.
DATA: BEGIN OF itab_zycet136 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet136.
DATA: END OF itab_zycet136.
DATA : BEGIN OF itab_t604f OCCURS 10,
steuc LIKE t604f-steuc,
codnaladi LIKE t604f-/pws/codnaladi,
percentagem LIKE t604f-/pws/percentagem,
...
...
BEGIN OF itvolum OCCURS 10,
codnrseq LIKE /pws/zycet092-codnrseq,
volum LIKE vbrp-volum,
voleh LIKE vbrp-voleh,
END OF itvolum.
DATA: wa_thead LIKE thead.
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
DATA linha LIKE itab_zycet078-linha1.
* << Fim da exclusão
v_repid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'X'
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100.
SELECT a~steuc a~/pws/codnaladi a~/pws/percentagem a~/pws/zum
a~/pws/codncmre b~unit c~text1 c~text2 c~text3 c~text4
c~text5
FROM t604f AS a
INNER JOIN j_1btxip1 AS b
ON a~steuc = b~nbmcode
INNER JOIN t604n AS c
ON a~steuc = c~steuc
INTO TABLE itab_t604f
FOR ALL ENTRIES IN itab_zycet118
WHERE a~steuc EQ itab_zycet118-ncm
AND a~land1 EQ 'BR'
AND c~land1 EQ 'BR'
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
AND c~spras EQ sy-langu.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
AND c~spras EQ sy-langu. "#EC CI_BUFFJOIN
* << Fim da inclusão
...
...
LOOP AT itab_zycet118.
MOVE : itab_zycet118-seqagrupado TO itab_totmaterial-codnrseq,
itab_zycet118-matnr TO itab_totmaterial-matnr,
itab_zycet118-fkimg TO itab_totmaterial-fkimg,
itab_zycet118-vrkme TO itab_totmaterial-vrkme.
COLLECT itab_totmaterial.
ENDLOOP.
CASE bukrs.
WHEN text-059. "Empresa MH07
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
PERFORM preenche_078_06a TABLES itab_zycet092
itab_zycet118
itab_zycet078
itab_mara
itab_totmaterial.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
PERFORM preenche_078_06a CHANGING itab_zycet092[]
itab_zycet118[]
itab_zycet078[]
itab_mara[]
itab_totmaterial[].
* << Fim da inclusão
WHEN text-069. "Empresa MH01
IF werks EQ text-070. " Centro 1026
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
PERFORM preenche_078_06a TABLES itab_zycet092
itab_zycet118
itab_zycet078
itab_mara
itab_totmaterial.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
PERFORM preenche_078_06a CHANGING itab_zycet092[]
itab_zycet118[]
itab_zycet078[]
itab_mara[]
itab_totmaterial[].
* << Fim da inclusão
ELSE. "Centro diferente de 1026
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
PERFORM preenche_078_06d TABLES itab_zycet092
itab_zycet118
itab_zycet078
itab_makt
itab_totmaterial.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
PERFORM preenche_078_06d CHANGING itab_zycet092[]
itab_zycet118[]
itab_zycet078[]
itab_makt[]
itab_totmaterial[].
* << Fim da inclusão
ENDIF.
WHEN OTHERS. " RE não agrupada
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
PERFORM preenche_078_06d TABLES itab_zycet092
itab_zycet118
itab_zycet078
itab_makt
itab_totmaterial.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
PERFORM preenche_078_06d CHANGING itab_zycet092[]
itab_zycet118[]
itab_zycet078[]
itab_makt[]
itab_totmaterial[].
* << Fim da inclusão
ENDCASE.
WHEN OTHERS. " RE não agrupada
SELECT matnr bismt
FROM mara
INTO TABLE itab_mara
FOR ALL ENTRIES IN itab_zycet002
WHERE matnr = itab_zycet002-matnr.
SORT itab_zycet118 BY ncm vrkme matnr seqagrupado.
LOOP AT itab_zycet118.
MOVE : itab_zycet118-codnrseq TO itab_totmaterial-codnrseq,
itab_zycet118-matnr TO itab_totmaterial-matnr,
itab_zycet118-fkimg TO itab_totmaterial-fkimg,
itab_zycet118-vrkme TO itab_totmaterial-vrkme.
COLLECT itab_totmaterial.
ENDLOOP.
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
PERFORM preenche_078_06d TABLES itab_zycet092
itab_zycet118
itab_zycet078
itab_makt
itab_totmaterial.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
PERFORM preenche_078_06d CHANGING itab_zycet092[]
itab_zycet118[]
itab_zycet078[]
itab_makt[]
itab_totmaterial[].
* << Fim da inclusão
ENDCASE.
WHEN '07'.
...
...
CLEAR wa_thead.
wa_thead-tdobject = 'MVKE'.
wa_thead-tdname = v_tdname.
wa_thead-tdid = '0001'.
wa_thead-tdspras = sy-langu.
wa_thead-tdlinesize = 075.
PERFORM chama_editortxt TABLES itab_tline
USING wa_thead.
CLEAR itab_zycet078.
* >> Início da exclusão: FUNC /PWS/ZYCE_DESCRICAO_MERCADORIA
DO 9 TIMES VARYING linha FROM itab_zycet078-linha1
NEXT itab_zycet078-linha2.
READ TABLE itab_tline INDEX sy-index
TRANSPORTING tdline.
IF sy-subrc = 0.
linha = itab_tline-tdline.
ENDIF.
ENDDO.
* << Fim da exclusão
READ TABLE itab_zycet078
WITH KEY nrseqre = itab_zycet118-nrseqre
codnrseq = itab_zycet118-codnrseq.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_CHECA_PERIODO_FISCAL
* >> Início da exclusão: FUNC /PWS/ZYCE_CHECA_PERIODO_FISCAL
TABLES : t001.
DATA: v_burks TYPE t001-bukrs, "EMPRESA
v_periv TYPE t001-periv. "VERSÃO
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_CHECA_PERIODO_FISCAL
DATA v_periv TYPE t001-periv.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_SELECT_DOC_CONTABIL
Alterar Interface Local:
Interface local:
IMPORTING
REFERENCE(P_AWKEY) TYPE BKPF-AWKEY
REFERENCE(P_BUKRS) TYPE BKPF-BUKRS
REFERENCE(P_DATE) TYPE BKPF-BLDAT
* >> Início da exclusão: FUNC /PWS/ZYCE_SELECT_DOC_CONTABIL
TABLES
ITAB_BSEG STRUCTURE BSEG
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_SELECT_DOC_CONTABIL
EXPORTING
REFERENCE(ITAB_BSEG) TYPE BSEG_T
* << Fim da inclusão
EXCEPTIONS
DOCUMENTO_NAO_ENCONTRADO
ITENS_NAO_ENCONTRADOS
VARIANTE_DE_EXERCICIO
DATA_NAO_ENCONTRADA
EMPRESA_NAO_ENCONTRADA
ERRO_PERIODO
...
...
SELECT * FROM bseg
INTO TABLE it_bseg[]
FOR ALL ENTRIES IN it_bkpf[]
WHERE belnr = it_bkpf-belnr AND
bukrs = p_bukrs AND
gjahr = v_gjahr.
IF sy-subrc NE 0.
RAISE itens_nao_encontrados.
EXIT.
ELSE.
* >> Início da exclusão: FUNC /PWS/ZYCE_SELECT_DOC_CONTABIL
itab_bseg[] = it_bseg[].
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_SELECT_DOC_CONTABIL
itab_bseg = it_bseg[].
* << Fim da inclusão
ENDIF.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_VLR_CONV_VERIF_MOEDA
* >> Início da exclusão: FUNC /PWS/ZYCE_VLR_CONV_VERIF_MOEDA
TABLES tcurr.
* << Fim da exclusão
DATA:
v_existe_conversao(1) TYPE c,
v_preco_base TYPE /pws/zycet002-vlme,
v_taxac1 TYPE /pws/zycee002-kurrf,
v_taxac2 TYPE /pws/zycee002-kurrf,
v_moeda TYPE waers,
v_defator1 TYPE tcurr-ffact,
v_parafator1 TYPE tcurr-tfact,
v_defator2 TYPE tcurr-ffact,
v_parafator2 TYPE tcurr-tfact.
PERFORM verifica_conversao_cadastrada
USING
i_ctmoeda
i_dtbase
i_demoeda
i_paramoeda
CHANGING
v_existe_conversao.
IF v_existe_conversao IS INITIAL.
...
...
FORM verifica_conversao_cadastrada
USING p_categ_moeda
p_data
p_moeda_de
p_moeda_para
* >> Início da inclusão: FUNC /PWS/ZYCE_VLR_CONV_VERIF_MOEDA
CHANGING p_existe_conversao TYPE char1.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_VLR_CONV_VERIF_MOEDA
CHANGING p_existe_conversao.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_VLR_CONV_VERIF_MOEDA
DATA v_cat_moeda.
CLEAR v_cat_moeda.
SELECT SINGLE kurst FROM tcurr
INTO v_cat_moeda
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_VLR_CONV_VERIF_MOEDA
SELECT SINGLE * FROM tcurr
INTO tcurr
* << Fim da exclusão
WHERE
kurst = p_categ_moeda AND
fcurr = p_moeda_de AND
tcurr = p_moeda_para AND
gdatu = p_data.
* >> Início da inclusão: FUNC /PWS/ZYCE_VLR_CONV_VERIF_MOEDA
IF NOT v_cat_moeda IS INITIAL.
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_VLR_CONV_VERIF_MOEDA
IF sy-subrc = 0.
* << Fim da exclusão
p_existe_conversao = 'X'.
ELSE.
CLEAR p_existe_conversao.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_RET_CAMPOS_CO_PA
* >> Início da exclusão: FUNC /PWS/ZYCE_RET_CAMPOS_CO_PA
TYPES:
BEGIN OF t_campo_co_pa,
fienm TYPE fieldname,
reptext TYPE reptext,
END OF t_campo_co_pa,
* << Fim da exclusão
BEGIN OF t_campo_area_result,
fienm TYPE fieldname,
rolnm TYPE rollname,
END OF t_campo_area_result,
BEGIN OF t_campo_descricao,
rolnm TYPE rollname,
reptext TYPE reptext,
END OF t_campo_descricao.
DATA:
* >> Início da exclusão: FUNC /PWS/ZYCE_RET_CAMPOS_CO_PA
it_campos_co_pa TYPE STANDARD TABLE OF t_campo_co_pa,
* << Fim da exclusão
it_campos_area_result TYPE STANDARD TABLE OF t_campo_area_result,
it_campos_descricao TYPE STANDARD TABLE OF t_campo_descricao,
wa_campo_area_result TYPE t_campo_area_result,
wa_campo_descricao TYPE t_campo_descricao.
IF i_area_resultado IS INITIAL.
...
SELECT *
FROM /pws/zycet401
INTO TABLE t_campos_lct
WHERE erkrs = i_area_resultado.
ELSE.
SELECT a~fienm b~rolnm
FROM tkefe AS a
INNER JOIN tkef AS b
ON a~fienm = b~fienm
INTO TABLE it_campos_area_result
* >> Início da exclusão: FUNC /PWS/ZYCE_RET_CAMPOS_CO_PA
WHERE a~erkrs = i_area_resultado.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_RET_CAMPOS_CO_PA
WHERE a~erkrs = i_area_resultado. "#EC CI_BUFFJOIN
* << Fim da inclusão
SELECT rollname scrtext_l
FROM dd04t
INTO TABLE it_campos_descricao
FOR ALL ENTRIES IN it_campos_area_result
WHERE
rollname = it_campos_area_result-rolnm AND
ddlanguage = sy-langu.
CLEAR t_campos_lct.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_MOD_CAMPOS_CO_PA
Altearar Interface Local:
Interface local:
IMPORTING
REFERENCE(I_PARAM_AREA_RESULTADO) TYPE /PWS/ZYCEE400
REFERENCE(I_MODO) TYPE CHAR1
TABLES
T_CAMPOS_LCT STRUCTURE /PWS/ZYCET401 OPTIONAL
EXCEPTIONS
ERRO_GRAVACAO_CAMPOS_CAB
* >> Início da exclusão: FUNC /PWS/ZYCE_MOD_CAMPOS_CO_PA
ERRO_GRAVACAO_CAMPOS_LCT
* << Fim da exclusão
...
CONSTANTS:
c_cr(1) TYPE c VALUE 'C',
c_md(1) TYPE c VALUE 'M',
c_rm(1) TYPE c VALUE 'R'.
* >> Início da exclusão: FUNC /PWS/ZYCE_MOD_CAMPOS_CO_PA
DATA wa_cab_campos TYPE /pws/zycet400.
* << Fim da exclusão
IF i_modo = c_cr OR i_modo = c_md.
LOOP AT t_campos_lct.
t_campos_lct-erkrs = i_param_area_resultado-erkrs.
MODIFY t_campos_lct.
ENDLOOP.
ENDIF.
CASE i_modo.
WHEN c_cr.
INSERT INTO /pws/zycet400 VALUES i_param_area_result
IF sy-subrc NE 0.
RAISE erro_gravacao_campos_cab.
ENDIF.
INSERT /pws/zycet401 FROM TABLE t_campos_lct.
IF sy-subrc NE 0.
ROLLBACK WORK.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_DESC_PARAM_CO_PA
DATA:
it_tipos_moedas TYPE TABLE OF t_tipo_moeda,
it_tipos_operacoes TYPE TABLE OF t_tipo_operacao,
wa_tipo_moeda TYPE t_tipo_moeda,
wa_tipo_operacao TYPE t_tipo_operacao.
* recupera descrições
SELECT paledger ledbo_bz
FROM tkelt
INTO TABLE it_tipos_moedas
WHERE spras = sy-langu.
SELECT a~vrgar b~vrgarx
FROM tvga AS a
INNER JOIN tvgat AS b
ON a~vrgar = b~vrgar
INTO TABLE it_tipos_operacoes
* >> Início da exclusão: FUNC /PWS/ZYCE_DESC_PARAM_CO_PA
WHERE b~spras = sy-langu.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_DESC_PARAM_CO_PA
WHERE b~spras = sy-langu. "#EC CI_BUFFJOIN
* << Fim da inclusão
CLEAR t_descr_param.
* adiciona descrições de moedas
LOOP AT it_tipos_moedas INTO wa_tipo_moeda.
t_descr_param-tpdsc = 'TM'.
t_descr_param-tipo = wa_tipo_moeda-paledger.
t_descr_param-descr = wa_tipo_moeda-ledbo_bz.
APPEND t_descr_param.
ENDLOOP.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
Alterar Interface Local:
Interface local:
IMPORTING
REFERENCE(I_RETORNA_PARCEIROS) TYPE CHAR1 OPTIONAL
* >> Início da inclusão: FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
REFERENCE(I_ITENS_EMBARQUE) TYPE /PWS/ZYCEL727
EXPORTING
REFERENCE(E_ITENS_CO_PA) TYPE /PWS/ZYCEL735
CHANGING
REFERENCE(I_PARCEIROS) TYPE TAB1_VBPA OPTIONAL
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
TABLES
T_ITENS_EMBARQUE STRUCTURE /PWS/ZYCEE002
T_ITENS_CO_PA STRUCTURE /PWS/ZYCET403 OPTIONAL
T_PARCEIROS STRUCTURE VBPA OPTIONAL
* << Fim da exclusão
EXCEPTIONS
ITENS_EMBARQUE_INVALIDOS
...
DATA:
it_itens_parceiro TYPE STANDARD TABLE OF t_item_parceiro,
it_itens_embarque TYPE STANDARD TABLE OF /pws/zycet002,
it_faturamentos TYPE STANDARD TABLE OF /pws/zycet002-vbeln_vf,
wa_item_embarque TYPE /pws/zycet002,
wa_item_parceiro TYPE t_item_parceiro,
wa_parceiro TYPE vbpa.
* >> Início da exclusão: FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
MOVE t_itens_embarque[] TO it_itens_embarque.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
MOVE i_itens_embarque TO it_itens_embarque.
* << Fim da inclusão
IF it_itens_embarque IS INITIAL.
RAISE itens_embarque_invalidos.
ENDIF.
SORT it_itens_embarque ASCENDING BY nrseq.
DELETE ADJACENT DUPLICATES FROM it_itens_embarque.
DELETE it_itens_embarque WHERE vbeln_vf = space.
* >> Início da exclusão: FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
CHECK NOT it_itens_embarque[] IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
CHECK NOT it_itens_embarque IS INITIAL.
* << Fim da inclusão
SELECT vbeln_vf posnr_vf
FROM /pws/zycet403
* >> Início da inclusão: FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
INTO TABLE e_itens_co_pa
* << Fim da inclusão
* >> Início da exclusão: FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
INTO TABLE t_itens_co_pa
* << Fim da exclusão
FOR ALL ENTRIES IN it_itens_embarque
WHERE
vbeln_vf = it_itens_embarque-vbeln_vf AND
posnr_vf = it_itens_embarque-posnr.
CHECK NOT i_retorna_parceiros IS INITIAL.
LOOP AT it_itens_embarque INTO wa_item_embarque.
APPEND wa_item_embarque-vbeln_vf TO it_faturamentos.
ENDLOOP.
...
SORT it_faturamentos.
DELETE ADJACENT DUPLICATES FROM it_faturamentos.
SELECT vbeln posnr parvw kunnr lifnr
FROM vbpa
INTO TABLE it_itens_parceiro
FOR ALL ENTRIES IN it_faturamentos
WHERE vbeln = it_faturamentos-table_line AND
posnr = 0.
* >> Início da exclusão: FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
CLEAR t_parceiros[].
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
CLEAR i_parceiros.
* << Fim da inclusão
LOOP AT it_itens_parceiro INTO wa_item_parceiro.
MOVE-CORRESPONDING wa_item_parceiro TO wa_parceiro.
* >> Início da exclusão: FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
APPEND wa_parceiro TO t_parceiros.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
APPEND wa_parceiro TO i_parceiros.
* << Fim da inclusão
ENDLOOP.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_RET_CAMPOS_EXP
Alterar Interface Local:
Interface local:
TABLES
* >> Início da exclusão: FUNC /PWS/ZYCE_RET_CAMPOS_EXP
T_CAMPOS_EXP STRUCTURE /PWS/ZYCET323
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_RET_CAMPOS_EXP
REFERENCE(E_CAMPOS_EXP) TYPE /PWS/ZYCEL736
* << Fim da inclusão
EXCEPTIONS
CAMPOS_NAO_DEFINIDOS
* >> Início da exclusão: FUNC /PWS/ZYCE_RET_CAMPOS_EXP
SELECT * FROM /pws/zycet323
INTO TABLE t_campos_exp.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_RET_CAMPOS_EXP
SELECT * FROM /pws/zycet323 CLIENT SPECIFIED
INTO TABLE e_campos_exp
WHERE mandt = sy-mandt.
* << Fim da inclusão
CHECK sy-subrc NE 0.
RAISE campos_nao_definidos.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_BUSCA_CONTA_VKOA
DATA: v_mtpos_mara LIKE mara-mtpos_mara,
v_ktopl LIKE t001-ktopl,
v_fkart LIKE tvak-fkarv,
v_kalsmc LIKE tvfk-kalsmc,
v_kalsm LIKE t683v-kalsm,
v_kvsl1 LIKE t683s-kvsl1,
v_kalvg LIKE tvfk-kalvg.
TABLES: dd03l. " Campos tabela
* >> Início da inclusão: FUNC /PWS/ZYCE_BUSCA_CONTA_VKOA
TYPES: BEGIN OF t_campos,
kappl TYPE t683s-kappl, "Aplicação
p_kschl TYPE t685-kschl, "Tipo de Condição
ktopl TYPE t001-ktopl, "Plano de Contas
werks TYPE t001w-werks, "Centro
kunnr TYPE kna1-kunnr, "Código do Cliente
vkorg TYPE tvko-vkorg, "Organização Vendas
vtweg TYPE tvtw-vtweg, "Canal Distribuição
spart TYPE tspa-spart, "Setor Atividade
kschl TYPE t683s-kschl, "Código da Condition
kalsmc TYPE tvfk-kalsmc, "Código Det.ContaRazão
ktgrm TYPE mvke-ktgrm, "Grp Cls.Cont.Material
kalks TYPE knvv-kalks, "Esquema de Clientes
kvsl1 TYPE t683s-kvsl1, "Chave de Conta
bzirk TYPE knvv-bzirk, "Região de Vendas
vkbur TYPE knvv-vkbur, "Escritório de Vendas
vkgrp TYPE knvv-vkgrp, "Grupo de Vendedores
kdgrp TYPE knvv-kdgrp, "Grupo de Clientes
ktgrd TYPE knvv-ktgrd, "Grp Clas.Fisc Cliente
versg TYPE mvke-versg, "Grupo Estat. Material
kondm TYPE mvke-kondm, "Grupo de Material
bonus TYPE mvke-bonus, "Grupo de Bônus
mtpos_mara TYPE mara-mtpos_mara,"Grupo Cat. Item Geral
mtpos TYPE mvke-mtpos, "GrpCat.MestreMaterial
provg TYPE mvke-provg, "Grupo de Comissão
END OF t_campos.
* << Fim da inclusão
DATA:
itab_where LIKE abapsource OCCURS 100 WITH HEADER LINE,
BEGIN OF itab_knvv OCCURS 0,
bzirk LIKE knvv-bzirk,
vkbur LIKE knvv-vkbur,
vkgrp LIKE knvv-vkgrp,
kdgrp LIKE knvv-kdgrp,
kalks LIKE knvv-kalks,
ktgrd LIKE knvv-ktgrd,
END OF itab_knvv,
...
BEGIN OF itab_tables OCCURS 0,
tabela LIKE dd03l-tabname,
END OF itab_tables,
* >> Início da exclusão: FUNC /PWS/ZYCE_BUSCA_CONTA_VKOA
BEGIN OF itab_campos OCCURS 0,
kappl LIKE t683s-kappl, "Aplicação
p_kschl LIKE t685-kschl, "Tipo de Condição
ktopl LIKE t001-ktopl, "Plano de Contas
werks LIKE t001w-werks, "Centro
kunnr LIKE kna1-kunnr, "Código do Cliente
vkorg LIKE tvko-vkorg, "Organização Vendas
vtweg LIKE tvtw-vtweg, "Canal Distribuição
spart LIKE tspa-spart, "Setor Atividade
kschl LIKE t683s-kschl, "Código da Condition
kalsmc LIKE tvfk-kalsmc, "Código Det.ContaRazão
ktgrm LIKE mvke-ktgrm, "Grp Cls.Cont.Material
kalks LIKE knvv-kalks, "Esquema de Clientes
kvsl1 LIKE t683s-kvsl1, "Chave de Conta
bzirk LIKE knvv-bzirk, "Região de Vendas
vkbur LIKE knvv-vkbur, "Escritório de Vendas
vkgrp LIKE knvv-vkgrp, "Grupo de Vendedores
kdgrp LIKE knvv-kdgrp, "Grupo de Clientes
ktgrd LIKE knvv-ktgrd, "Grp Clas.Fisc Cliente
versg LIKE mvke-versg, "Grupo Estat. Material
kondm LIKE mvke-kondm, "Grupo de Material
bonus LIKE mvke-bonus, "Grupo de Bônus
mtpos_mara LIKE mara-mtpos_mara,"Grupo Cat. Item Geral
mtpos LIKE mvke-mtpos, "GrpCat.MestreMaterial
provg LIKE mvke-provg, "Grupo de Comissão
END OF itab_campos.
DATA: wa_itab_campos LIKE LINE OF itab_campos.
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCE_BUSCA_CONTA_VKOA
DATA: wa_itab_campos TYPE t_campos.
* << Fim da inclusão
FIELD-SYMBOLS <valor>.
SELECT bzirk vkbur vkgrp kdgrp kalks ktgrd FROM knvv
INTO TABLE itab_knvv
WHERE kunnr = kunnr
AND vkorg = vkorg
AND vtweg = vtweg
AND spart = spart.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCEGF6F01
...
FORM preenche_078_06a
* >> Início da exclusão: FORM preenche_078_06a
TABLES itab_zycet092t STRUCTURE /pws/zycet092
itab_zycet118t STRUCTURE /pws/zycet118
itab_zycet078t STRUCTURE itab_zycet078
itab_marat STRUCTURE mara
itab_totmaterialt STRUCTURE itab_totmaterial.
* << Fim da exclusão
* >> Início da inclusão: FORM preenche_078_06a
CHANGING itab_zycet092t LIKE itab_zycet092[]
itab_zycet118t LIKE itab_zycet118[]
itab_zycet078t LIKE itab_zycet078[]
itab_marat LIKE it_mara[]
itab_totmaterialt LIKE itab_totmaterial[].
DATA: wa_mara LIKE LINE OF itab_mara[].
* << Fim da inclusão
itab_zycet092[] = itab_zycet092t[].
itab_zycet118[] = itab_zycet118t[].
REFRESH itab_mara.
* >> Início da inclusão: FORM preenche_078_06a
LOOP AT itab_marat INTO wa_mara.
MOVE-CORRESPONDING wa_mara TO itab_mara.
* << Fim da inclusão
* >> Início da exclusão: FORM preenche_078_06a
LOOP AT itab_marat.
MOVE-CORRESPONDING itab_marat TO itab_mara.
* << Fim da exclusão
APPEND itab_mara.
ENDLOOP.
itab_totmaterial[] = itab_totmaterialt[].
itab_zycet078[] = itab_zycet078t[].
LOOP AT itab_zycet092.
...
...
IF sy-subrc = 0.
PERFORM preenche_078_06b.
ENDIF.
READ TABLE itab_zycet078 WITH KEY
nrseqre = itab_zycet092-nrseqre
codnrseq = itab_zycet092-codnrseq.
IF sy-subrc = 4.
CLEAR itab_zycet078.
MOVE: itab_zycet092-codnrseq TO itab_zycet078-codnrseq,
itab_zycet092-nrseqre TO itab_zycet078-nrseqre,
itab_zycet092-dsmerc TO itab_zycet078-linha1.
APPEND itab_zycet078.
ELSE.
v_index = sy-tabix.
PERFORM preenche_078_06c USING itab_zycet118
v_dsmerc
* >> Início da inclusão: FORM preenche_078_06a
CHANGING itab_zycet078[].
* << Fim da inclusão
* >> Início da exclusão: FORM preenche_078_06a
CHANGING itab_zycet078.
* << Fim da exclusão
ENDIF.
v_dsmerc = itab_zycet118-dsmerc.
ENDLOOP.
ENDLOOP.
itab_zycet092t[] = itab_zycet092[].
itab_zycet118t[] = itab_zycet118[].
REFRESH itab_marat.
LOOP AT itab_mara.
* >> Início da inclusão: FORM preenche_078_06a
MOVE-CORRESPONDING itab_mara TO wa_mara.
APPEND wa_mara TO itab_marat.
* << Fim da inclusão
* >> Início da exclusão: FORM preenche_078_06a
MOVE-CORRESPONDING itab_mara TO itab_marat.
APPEND itab_marat.
* << Fim da exclusão
ENDLOOP.
itab_totmaterialt[] = itab_totmaterial[].
itab_zycet078t[] = itab_zycet078[].
ENDFORM. " preenche_078_06a
...
...
FORM preenche_078_06c USING p_itab_zycet118 LIKE itab_zycet118
p_v_dsmerc LIKE v_dsmerc
* >> Início da exclusão: FORM preenche_078_06c
CHANGING p_itab_zycet078 LIKE itab_zycet078.
* << Fim da exclusão
* >> Início da inclusão: FORM preenche_078_06c
CHANGING p_itab_zycet078 LIKE itab_zycet078[].
DATA: wa_zycet078 LIKE LINE OF p_itab_zycet078.
* << Fim da inclusão
* >> Início da exclusão: FORM preenche_078_06c
IF p_itab_zycet118-dsmerc NE p_v_dsmerc.
IF p_itab_zycet078-linha2 IS INITIAL.
p_itab_zycet078-linha2 = p_itab_zycet118-dsmerc.
ELSEIF p_itab_zycet078-linha3 IS INITIAL.
p_itab_zycet078-linha3 = p_itab_zycet118-dsmerc.
ELSEIF p_itab_zycet078-linha4 IS INITIAL.
p_itab_zycet078-linha4 = p_itab_zycet118-dsmerc.
ELSEIF p_itab_zycet078-linha5 IS INITIAL.
p_itab_zycet078-linha5 = p_itab_zycet118-dsmerc.
ELSEIF p_itab_zycet078-linha6 IS INITIAL.
p_itab_zycet078-linha6 = p_itab_zycet118-dsmerc.
ELSEIF p_itab_zycet078-linha7 IS INITIAL.
p_itab_zycet078-linha7 = p_itab_zycet118-dsmerc.
ELSEIF p_itab_zycet078-linha8 IS INITIAL.
p_itab_zycet078-linha8 = p_itab_zycet118-dsmerc.
ELSEIF p_itab_zycet078-linha9 IS INITIAL.
p_itab_zycet078-linha9 = p_itab_zycet118-dsmerc.
ENDIF.
MODIFY p_itab_zycet078 INDEX v_index.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM preenche_078_06c
READ TABLE p_itab_zycet078 INTO wa_zycet078
INDEX v_index.
IF p_itab_zycet118-dsmerc NE p_v_dsmerc.
IF wa_zycet078-linha2 IS INITIAL.
wa_zycet078-linha2 = p_itab_zycet118-dsmerc.
ELSEIF wa_zycet078-linha3 IS INITIAL.
wa_zycet078-linha3 = p_itab_zycet118-dsmerc.
ELSEIF wa_zycet078-linha4 IS INITIAL.
wa_zycet078-linha4 = p_itab_zycet118-dsmerc.
ELSEIF wa_zycet078-linha5 IS INITIAL.
wa_zycet078-linha5 = p_itab_zycet118-dsmerc.
ELSEIF wa_zycet078-linha6 IS INITIAL.
wa_zycet078-linha6 = p_itab_zycet118-dsmerc.
ELSEIF wa_zycet078-linha7 IS INITIAL.
wa_zycet078-linha7 = p_itab_zycet118-dsmerc.
ELSEIF wa_zycet078-linha8 IS INITIAL.
wa_zycet078-linha8 = p_itab_zycet118-dsmerc.
ELSEIF wa_zycet078-linha9 IS INITIAL.
wa_zycet078-linha9 = p_itab_zycet118-dsmerc.
ENDIF.
MODIFY p_itab_zycet078 FROM wa_zycet078 INDEX v_index.
ENDIF.
* << Fim da inclusão
FORM preenche_078_06d
* >> Início da exclusão: FORM preenche_078_06d
TABLES itab_zycet092t STRUCTURE /pws/zycet092
itab_zycet118t STRUCTURE /pws/zycet118
itab_zycet078t STRUCTURE itab_zycet078
itab_maktt STRUCTURE makt
itab_totmaterialt STRUCTURE itab_totmaterial.
* << Fim da exclusão
* >> Início da inclusão: FORM preenche_078_06d
CHANGING itab_zycet092t LIKE itab_zycet092[]
itab_zycet118t LIKE itab_zycet118[]
itab_zycet078t LIKE itab_zycet078[]
itab_maktt LIKE itab_makt[]
itab_totmaterialt LIKE itab_totmaterial[].
* << Fim da inclusão
DATA: v_matnr_sem_zero LIKE mara-matnr.
itab_zycet092[] = itab_zycet092t[].
itab_zycet118[] = itab_zycet118t[].
itab_makt[] = itab_maktt[].
itab_totmaterial[] = itab_totmaterialt[].
itab_zycet078[] = itab_zycet078t[].
IF NOT itab_zycet092[] IS INITIAL.
LOOP AT itab_zycet092.
v_index = sy-tabix.
LOOP AT itab_zycet118 WHERE
seqagrupado = itab_zycet092-codnrseq.
...
...
FORM chama_editortxt TABLES itab_tline STRUCTURE itab_tline
USING wa_thead LIKE wa_thead.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = wa_thead-tdid
language = wa_thead-tdspras
name = wa_thead-tdname
object = wa_thead-tdobject
IMPORTING
header = wa_thead
TABLES
lines = itab_tline
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
* >> Início da inclusão: FORM chama_editortxt
CHECK sy-subrc IS INITIAL.
* << Fim da inclusão
ENDFORM. " chama_editortxt
...
* >> Início da exclusão: FORM trata_despesas
FORM trata_despesas TABLES itab_final STRUCTURE itab_final
itab_zycet008 STRUCTURE itab_zycet008
* << Fim da exclusão
* >> Início da inclusão: FORM trata_despesas
FORM trata_despesas TABLES itab_zycet008 STRUCTURE itab_zycet008
* << Fim da inclusão
itab_zycet065 STRUCTURE itab_zycet065
itab_total STRUCTURE itab_final
* >> Início da exclusão: FORM trata_despesas
USING tpcalc bukrs werks.
* << Fim da exclusão
* >> Início da inclusão: FORM trata_despesas
USING tpcalc bukrs.
* << Fim da inclusão
DATA: v_vlme LIKE /pws/zycet008-vlme.
LOOP AT itab_total.
v_fkimgtot = v_fkimgtot + itab_total-fkimg. "Qtde total faturada
v_brgewtot = v_brgewtot + itab_total-brgew. "Peso bruto total
ENDLOOP.
SELECT * FROM /pws/zycet156 INTO TABLE itab_zycet156
WHERE codmod = 'X'
AND bukrs = bukrs.
CLEAR: itemfre,
itemseg,
itemdesc,
itemacre,
itemcomi,
itemdesp,
/pws/zycee313,
wa_zycee313_prov,
wa_zycee313_real.
...
FORM busca_enq_agru.
* >> Início da exclusão: FORM busca_enq_agru
DATA: itab_zycet130 LIKE /pws/zycet130 OCCURS 0 WITH HEADER L
* << Fim da exclusão
DATA: itab_enquadramento TYPE t_enquadramento.
DATA: itab_enquad_especial TYPE t_enquad_especial.
DATA: itab_enquad_anexo TYPE t_enquadramento.
DATA: itab_enquad_esp_anexo TYPE t_enquad_especial.
DATA: wa_enquad_especial LIKE LINE OF itab_enquad_especial.
it_zycet078[] = itab_zycet078a[].
SORT itab_zycet118a BY seqagrupado tipo.
DELETE ADJACENT DUPLICATES FROM itab_zycet118a COMPARING
seqagrupado tipo.
LOOP AT itab_zycet118a.
REFRESH: itab_enquad_anexo,
itab_enquad_esp_anexo.
...
ELSE.
PERFORM busca_enquadramento
USING
itab_zycet002a[]
itab_zycet118a
CHANGING
itab_enquad_anexo[]
itab_enquad_esp_anexo[].
APPEND LINES OF itab_enquad_anexo TO itab_enquadramento.
APPEND LINES OF itab_enquad_esp_anexo TO itab_enquad_especial.
ENDIF.
* Atualizar a tabela de anexos, de acordo com o enquadramento encontrado
* para o anexo.
PERFORM atualiza_enquad_anexo
USING
* >> Início da exclusão: FORM busca_enq_agru
itab_zycet118a-nrseqre
* << Fim da exclusão
itab_zycet118a-seqagrupado
itab_enquad_anexo[]
itab_enquad_esp_anexo[]
CHANGING
it_zycet078[].
ENDLOOP.
...
FORM preenche_092_000007 TABLES it_zycet092 STRUCTURE /pws/zycet092.
DATA: v_ncm LIKE /pws/zycet118-ncm,
v_nrato LIKE /pws/zycet118-nrato,
v_tipo LIKE /pws/zycet118-tipo,
* >> Início da exclusão: FORM preenche_092_000007
v_preuni_ant LIKE /pws/zycet118-netpr,
v_ownpr LIKE mbew-ownpr,
* << Fim da exclusão
v_codnrseq TYPE i,
v_cont_lim LIKE /pws/zycet090-itmagrup,
v_fornecedor TYPE /pws/zycet118-lifnr.
SORT itab_zycet118_aux1 BY ncm nrato tipo preuni.
LOOP AT itab_zycet118_aux1.
* Verifica a parametrização do número máximo de itens para agrupament
* através do campo /PWS/ZYCET090-ITMAGRUP
IF NOT v_limite IS INITIAL.
ON CHANGE OF itab_zycet118_aux1-matnr.
v_cont_lim = v_cont_lim + 1.
ENDON.
ENDIF.
v_index = sy-tabix.
IF ( v_ncm NE itab_zycet118_aux1-ncm OR v_ncm IS INITIAL )
OR ( v_nrato NE itab_zycet118_aux1-nrato )
OR ( v_tipo NE itab_zycet118_aux1-tipo )
OR ( ( v_fornecedor EQ itab_zycet118_aux1-lifnr )
AND NOT v_fornecedor IS INITIAL ).
...
MOVE: itab_zycet118_aux1-ntgew TO it_zycet092-ntgew,
itab_zycet118_aux1-brgew TO it_zycet092-brgew,
itab_zycet118_aux1-fkimg TO it_zycet092-fkimg,
itab_zycet118_aux1-vfob TO it_zycet092-vfob,
itab_zycet118_aux1-netpr TO it_zycet092-netpr,
itab_zycet118_aux1-qtd_eorg TO it_zycet092-qtd_eorg,
itab_zycet118_aux1-vlagente TO it_zycet092-vlagente.
COLLECT it_zycet092.
v_ncm = itab_zycet118_aux1-ncm.
* >> Início da exclusão: FORM preenche_092_000007
v_ownpr = itab_zycet118_aux1-ownpr.
* << Fim da exclusão
v_nrato = itab_zycet118_aux1-nrato.
v_tipo = itab_zycet118_aux1-tipo.
* >> Início da exclusão: FORM preenche_092_000007
v_preuni_ant = itab_zycet118_aux1-preuni.
* << Fim da exclusão
v_fornecedor = itab_zycet118_aux1-lifnr.
MOVE: it_zycet092-codnrseq TO itab_zycet118_aux1-seqagrupado.
MODIFY itab_zycet118_aux1 INDEX v_index.
ENDLOOP.
ENDFORM. " preenche_092_000007
...
FORM preenche_092_000016 TABLES it_zycet092 STRUCTURE /pws/zycet092.
DATA: v_ncm LIKE /pws/zycet118-ncm,
* >> Início da exclusão: FORM preenche_092_000016
v_vrkme LIKE /pws/zycet118-vrkme,
* << Fim da exclusão
v_codnrseq TYPE i,
v_cont_lim LIKE /pws/zycet090-itmagrup.
SORT itab_zycet118_aux1 BY ncm vrkme matnr preuni.
LOOP AT itab_zycet118_aux1.
* Verifica a parametrização do número máximo de itens para agrupamento
* através do campo /PWS/ZYCET090-ITMAGRUP
IF NOT v_limite IS INITIAL.
ON CHANGE OF itab_zycet118_aux1-matnr.
v_cont_lim = v_cont_lim + 1.
ENDON.
ENDIF.
v_index = sy-tabix.
IF ( v_ncm NE itab_zycet118_aux1-ncm OR v_ncm IS INITIAL ).
v_cont_lim = 1.
...
FORM busca_taxa_cambio_valor_dse
* >> Início da exclusão: FORM busca_taxa_cambio_valor_dse
USING
p_bukrs TYPE /pws/zycee001-bukrs
* << Fim da exclusão
CHANGING
p_kurst_dse TYPE /pws/zycet312-kurst_dse.
SELECT SINGLE kurst_dse
FROM /pws/zycet312
INTO p_kurst_dse.
IF sy-subrc <> 0.
CLEAR p_kurst_dse.
ENDIF.
ENDFORM. " busca_taxa_cambio_valor_dse
...
IF NOT item_embarque-vbeln_vf IS INITIAL.
SELECT SINGLE fkdat
FROM vbrk
INTO p_data
WHERE vbeln = item_embarque-vbeln_vf.
EXIT.
ENDIF.
IF NOT item_embarque-vbeln_vl IS INITIAL.
SELECT SINGLE bldat
FROM likp
INTO p_data
WHERE vbeln = item_embarque-vbeln_vl.
EXIT.
ENDIF.
IF NOT item_embarque-vbeln_va IS INITIAL.
* >> Início da exclusão: FORM busca_data_conversao
SELECT SINGLE prsdt
FROM vbkd
INTO p_data
WHERE vbeln = item_embarque-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: FORM busca_data_conversao
SELECT prsdt
FROM vbkd
UP TO 1 ROWS
INTO p_data
WHERE vbeln = item_embarque-vbeln_va.
ENDSELECT.
* << Fim da inclusão
ENDIF.
ENDFORM. " busca_data_conversao
...
FORM atualiza_enquad_anexo
USING
* >> Início da exclusão: FORM atualiza_enquad_anexo
p_nrseqre TYPE /pws/zycet118-nrseqre
* << Fim da exclusão
p_seqagrupado TYPE /pws/zycet118-seqagrupado
p_enquadramento TYPE t_enquadramento
p_enquad_especial TYPE t_enquad_especial
CHANGING
p_zycet078 LIKE it_zycet078[].
DATA: wa_enquad_especial LIKE LINE OF p_enquad_especial,
wa_enquadramento LIKE LINE OF p_enquadramento.
FIELD-SYMBOLS: <fs_zycet078> LIKE LINE OF p_zycet078.
DATA: wa_zycet078 LIKE LINE OF p_zycet078.
LOOP AT p_enquadramento INTO wa_enquadramento.
READ TABLE p_zycet078[] ASSIGNING <fs_zycet078>
WITH KEY codnrseq = p_seqagrupado.
IF sy-subrc EQ 0.
CHECK wa_enquadramento NE <fs_zycet078>-codenq1 AND
wa_enquadramento NE <fs_zycet078>-codenq2 AND
wa_enquadramento NE <fs_zycet078>-codenq3 AND
wa_enquadramento NE <fs_zycet078>-codenq4 AND
wa_enquadramento NE <fs_zycet078>-codenq5 AND
wa_enquadramento NE <fs_zycet078>-codenq6.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCEGF6TOP
DATA: BEGIN OF itab_zycet118_aux OCCURS 10.
INCLUDE STRUCTURE /pws/zycet118.
DATA: ownpr LIKE mbew-ownpr,
preco LIKE /pws/zycet118-netpr,
charg LIKE lips-charg,
preuni LIKE /pws/zycet118-netpr,
index LIKE sy-tabix,
preunifob LIKE /pws/zycet118-netpr.
DATA: END OF itab_zycet118_aux.
DATA: itab_zycet118_aux1 LIKE itab_zycet118_aux
OCCURS 10 WITH HEADER LINE.
* >> Início da inclusão: REPS /PWS/LZYCEGF6TOP
DATA: it_mara TYPE STANDARD TABLE OF mara.
* << Fim da inclusão
DATA: BEGIN OF itab_zycet092_aux OCCURS 10.
INCLUDE STRUCTURE /pws/zycet092.
DATA: preco1 LIKE /pws/zycet092-netpr,
preuni LIKE /pws/zycet092-netpr,
agr(1) TYPE c.
DATA: END OF itab_zycet092_aux.
...
v_volum(15) TYPE c,
v_taxa LIKE tcurr-ukurs,
v_waersa TYPE /pws/zycbt007-waersa,
v_kurst_dse TYPE /pws/zycet312-kurst_dse,
* >> Início da inclusão: REPS /PWS/LZYCEGF6TOP
v_vbrk_fkdat TYPE vbrk-fkdat,
* << Fim da inclusão
* >> Início da exclusão: REPS /PWS/LZYCEGF6TOP
v_vbrk-fkdat TYPE vbrk-fkdat,
* << Fim da exclusão
itemdesc TYPE p DECIMALS 4,
itemdesp TYPE p DECIMALS 4,
itemfre TYPE p DECIMALS 4,
itemseg TYPE p DECIMALS 4,
itemacre TYPE p DECIMALS 4,
itemcomi TYPE p DECIMALS 4,
itemdesc_t TYPE p DECIMALS 4,
itemdesp_t TYPE p DECIMALS 4,
itemfre_t TYPE p DECIMALS 4,
itemseg_t TYPE p DECIMALS 4,
itemacre_t TYPE p DECIMALS 4,
itemcomi_t TYPE p DECIMALS 4,
tpcalc LIKE /pws/zycee001-tpcalc,
bukrs LIKE /pws/zycee001-bukrs,
werks LIKE /pws/zycee001-werks,
v_tipo LIKE /pws/zycet130-tipo.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE001F01B
...
WHERE bukrs = /pws/zycee001-bukrs
AND belnr = itab_bkpf-belnr
AND gjahr = itab_bkpf-gjahr.
IF /pws/zycet037-agrupa_t30 EQ 'X'.
DELETE itab_bseg WHERE augbl IS initial OR
koart NE 'D'.
ELSE.
DELETE itab_bseg WHERE koart NE 'D'.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_VALORES_CAMBIO
SORT itab_zycet002 BY nrseq vbeln_va vbeln_vl vbeln_vf.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_VALORES_CAMBIO
SORT itab_zycet002[] BY vbeln_vf.
* << Fim da inclusão
LOOP AT itab_zycet002.
IF v_vbeln_vf NE itab_zycet002-vbeln_vf.
READ TABLE itab_bkpf WITH KEY awkey = itab_zycet002-vbeln_vf.
IF sy-subrc = 0.
LOOP AT itab_bseg WHERE belnr = itab_bkpf-belnr.
MOVE: sy-mandt TO itab_zycet093-mandt,
itab_zycet002-nrseq TO itab_zycet093-nrseq,
itab_zycet002-gsber TO itab_zycet093-gsber,
itab_bseg-buzei TO itab_zycet093-nrparcf,
itab_zycet002-waers TO itab_zycet093-waers.
...
...
ELSE.
MOVE: itab_bkpf-belnr TO itab_zycet093-belnr_i.
ENDIF.
COLLECT itab_zycet093.
CLEAR itab_zycet093.
ENDLOOP.
ENDIF.
ENDIF.
v_vbeln_vf = itab_zycet002-vbeln_vf.
ENDLOOP.
* >> Início da inclusão: FORM SELECIONA_VALORES_CAMBIO
SORT itab_zycet002 BY nrseq vbeln_va vbeln_vl vbeln_vf.
* << Fim da inclusão
DELETE itab_zycet093 WHERE vlme = 0.
ELSE.
SELECT * FROM /pws/zycet093
INTO TABLE itab_zycet093
WHERE nrseq = /pws/zycee001-nrseq.
IF sy-subrc = 0.
v_imp = 3.
v_result = 'Y'.
ENDIF.
ENDIF.
...
...
PERFORM seleciona_vbfa.
PERFORM trata_ordem_2.
PERFORM identifica_status_item.
PERFORM monta_doc_rel.
MOVE itab_zycet002_rat[] TO itab_zycet002_rat_aux[].
itab_002[] = itab_zycet002_rat[].
CALL FUNCTION '/PWS/ZYCE_RATEIO_EMBARQUE'
EXPORTING
tpcalc = /pws/zycee001-tpcalc
bukrs = /pws/zycee001-bukrs
* >> Início da exclusão: FORM TRATA_RATEIO
werks = /pws/zycee001-werks
* << Fim da exclusão
TABLES
itab_zycet002 = itab_zycet002_rat
itab_zycet008 = itab_zycet008.
IF sy-subrc EQ 0.
MESSAGE s001 WITH text-130.
ENDIF.
IF NOT itab_zycet002_rat[] IS INITIAL.
LOOP AT itab_zycet002_102 .
v_ind = sy-tabix.
READ TABLE itab_zycet002_rat WITH KEY
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE041F01
...
SELECT a~nrseq
b~nrseqre b~vbeln_va b~vbeln_vl b~vbeln_vf
b~aupos b~posnl b~posnr
FROM /pws/zycev117 AS a
INNER JOIN /pws/zycet118 AS b
ON b~nrseqre = a~nrseqre
INTO TABLE itab_itemre
WHERE a~nrseq = /pws/zycee001-nrseq. "#EC CI_BUFFJOIN
IF NOT itab_itemre[] IS INITIAL.
LOOP AT itab_itemre.
* >> Início da exclusão: FORM RV_VERIFICA_OV
SELECT vbeln_va vbeln_vl posnl AVG( totvinc ) AVG( ntgew )
* << Fim da exclusão
* >> Início da inclusão: FORM RV_VERIFICA_OV
SELECT vbeln_va vbeln_vl posnl "#EC CI_NOFIRST
AVG( totvinc ) AVG( ntgew )
* << Fim da inclusão
SUM( vincular ) MIN( saldordem )
FROM /pws/zycet118
APPENDING TABLE itab_zycet118_saldo
WHERE vbeln_va = itab_itemre-vbeln_va
AND vbeln_vl = itab_itemre-vbeln_vl
AND posnl = itab_itemre-posnl
* >> Início da exclusão: FORM RV_VERIFICA_OV
GROUP by vbeln_va vbeln_vl posnl totvinc ntgew vincular.
"#EC CI_BYPASS
* << Fim da exclusão
* >> Início da inclusão: FORM RV_VERIFICA_OV
GROUP by vbeln_va vbeln_vl posnl
totvinc ntgew vincular. "#EC CI_BYPASS
* << Fim da inclusão
ENDLOOP.
LOOP AT itab_zycet118_saldo WHERE saldordem EQ space.
DELETE itab_zycet002
WHERE vbeln_va = itab_zycet118_saldo-vbeln_va
AND vbeln_vl = itab_zycet118_saldo-vbeln_vl
AND posnl = itab_zycet118_saldo-posnl.
ENDLOOP.
DELETE itab_zycet118_saldo WHERE saldordem EQ space.
LOOP AT itab_zycet118_saldo WHERE vincular EQ space.
DELETE itab_zycet002
...
...
DATA: v_nrseqre LIKE /pws/zycet116-nrseqre,
v_count(7) TYPE n,
v_ano(4).
CONCATENATE '%' 'X' sy-datlo+2(2) INTO v_ano.
SELECT MAX( nrseqre ) INTO (v_nrseqre) FROM /pws/zycet116
WHERE nrseqre LIKE v_ano. "#EC CI_BYPASS
v_count = v_nrseqre+0(7) + 1.
CONCATENATE v_count 'X' sy-datlo+2(2) INTO nrseqre.
ENDFORM.
FORM trata_descricao.
* >> Início da exclusão: FORM TRATA_DESCRICAO
DATA: ncm LIKE /pws/zycet118-ncm.
* << Fim da exclusão
MOVE itab_zycet002-bukrs TO itab_zycet116-bukrs.
IF itab_zycet116-werks IS INITIAL AND refresh IS INITIAL.
itab_zycet116-werks = /pws/zycee001-werks.
ENDIF.
LOOP AT itab_zycet118 WHERE nrseqre EQ space.
MOVE nrseqre TO itab_zycet118-nrseqre.
MODIFY itab_zycet118.
ENDLOOP.
CALL FUNCTION '/PWS/ZYCE_DESCRICAO_MATERIAL'
EXPORTING
bukrs = itab_zycet116-bukrs
* >> Início da exclusão: FORM TRATA_DESCRICAO
ncm = ncm
* << Fim da exclusão
werks = itab_zycet116-werks
agrupado = itab_zycet116-agrupado
TABLES
itab_zycet002 = itab_zycet002
itab_zycet118 = itab_zycet118
itab_zycet092 = itab_zycet092
itab_zycet078 = itab_zycet078aux.
SORT itab_zycet118 BY nrseqre codnrseq.
SORT itab_zycet092 BY nrseqre codnrseq.
IF NOT itab_zycet078aux IS INITIAL.
...
...
APPEND itab_zycet118.
ENDLOOP.
ENDIF.
ENDFORM.
FORM rc_agrupa_re.
CLEAR itab_zycet002.
READ TABLE itab_zycet002 INDEX 1.
CALL FUNCTION '/PWS/ZYCE_AGRUPA_OV_RE'
EXPORTING
werks = itab_zycet002-werks
* >> Início da exclusão: FORM RC_AGRUPA_RE
TABLES
itab_zycet092 = itab_zycet092
itab_zycet118 = itab_zycet118
itab_zycet090 = itab_zycet090
itab_zycet002 = itab_zycet002.
* << Fim da exclusão
* >> Início da inclusão: FORM RC_AGRUPA_RE
itab_zycet002 = itab_zycet002[]
itab_zycet090 = itab_zycet090[]
IMPORTING
itab_zycet092 = itab_zycet092[]
CHANGING
itab_zycet118 = itab_zycet118[].
* << Fim da inclusão
CLEAR v_codnrseq.
SORT itab_zycet118 BY nrseqre codnrseq.
SORT itab_zycet092 BY nrseqre codnrseq.
ENDFORM.
FORM rc_verifica_re.
IF NOT itab_zycet092[] IS INITIAL.
SELECT a~nrseqrc a~nrrc b~codnrseq b~steuc a~kunnr
a~name1 a~ort01 a~paisimp a~paisdest a~inco1
a~dtval b~vltot a~vlcond a~vlemb a~waers
FROM /pws/zycet235 AS a
...
...
b~aupos b~posnl b~posnr b~nrato b~tipo
FROM /pws/zycev117 AS a
INNER JOIN /pws/zycet118 AS b
ON b~nrseqre = a~nrseqre
INTO TABLE itab_itemre
WHERE a~nrseq EQ /pws/zycee001-nrseq
AND a~nrseqre NE nrseqre. "#EC CI_BUFFJOIN
ENDIF.
IF NOT itab_itemre[] IS INITIAL.
LOOP AT itab_itemre.
* >> Início da exclusão: FORM DB_VERIFICA_OV
SELECT vbeln_va vbeln_vl vbeln_vf aupos posnl posnr
* << Fim da exclusão
* >> Início da inclusão: FORM DB_VERIFICA_OV
SELECT vbeln_va vbeln_vl vbeln_vf
aupos posnl posnr "#EC CI_NOFIRST
* << Fim da inclusão
AVG( fkimg ) MIN( saldordem ) nrato tipo ebeln ebelp nrseqd
FROM /pws/zycet118
APPENDING TABLE itab_zycet118_saldo_d
WHERE vbeln_va = itab_itemre-vbeln_va
AND vbeln_vl = itab_itemre-vbeln_vl
AND vbeln_vf = itab_itemre-vbeln_vf
AND posnr = itab_itemre-posnr
AND aupos = itab_itemre-aupos
AND posnl = itab_itemre-posnl
AND nrato = itab_itemre-nrato
AND tipo = itab_itemre-tipo
AND ebeln = itab_itemre-ebeln
AND ebelp = itab_itemre-ebelp
* >> Início da exclusão: FORM DB_VERIFICA_OV
GROUP by vbeln_va vbeln_vl vbeln_vf posnr aupos posnl
fkimg nrato tipo ebeln ebelp nrseqd."#EC CI_BYPASS
* << Fim da exclusão
* >> Início da inclusão: FORM DB_VERIFICA_OV
GROUP by vbeln_va vbeln_vl vbeln_vf
posnr aupos posnl
fkimg nrato tipo
ebeln ebelp nrseqd. "#EC CI_BYPASS
* << Fim da inclusão
ENDLOOP.
LOOP AT itab_zycet118_saldo_d WHERE saldordem EQ space.
DELETE itab_zycet002
WHERE vbeln_va = itab_zycet118_saldo_d-vbeln_va
AND vbeln_vl = itab_zycet118_saldo_d-vbeln_vl
AND vbeln_vf = itab_zycet118_saldo_d-vbeln_vf
AND aupos = itab_zycet118_saldo_d-aupos
AND posnl = itab_zycet118_saldo_d-posnl
AND posnr = itab_zycet118_saldo_d-posnr
AND ebeln = itab_zycet118_saldo_d-ebeln
...
...
IF NOT itab_zycet092[] IS INITIAL.
PERFORM move_agrupados.
ELSE.
LEAVE PROGRAM.
ENDIF.
ENDFORM.
FORM funcao_agrupamento.
CALL FUNCTION '/PWS/ZYCE_AGRUPA_OV_RE'
EXPORTING
werks = itab_zycet116-werks
* >> Início da exclusão: FORM FUNCAO_AGRUPAMENTO
TABLES
itab_zycet092 = itab_zycet092
itab_zycet118 = itab_zycet118
itab_zycet090 = itab_zycet090
itab_zycet002 = itab_zycet002.
* << Fim da exclusão
* >> Início da inclusão: FORM FUNCAO_AGRUPAMENTO
itab_zycet002 = itab_zycet002[]
itab_zycet090 = itab_zycet090[]
IMPORTING
itab_zycet092 = itab_zycet092[]
CHANGING
itab_zycet118 = itab_zycet118[].
* << Fim da inclusão
ENDFORM.
FORM move_agrupados.
LOOP AT itab_zycet118.
CLEAR: itab_zycet118-status,
itab_zycet118-nrseqre.
itab_zycet118-nrseqre = itab_zycet116-nrseqre.
itab_zycet118-status = 'S'.
MODIFY itab_zycet118 INDEX sy-tabix.
ENDLOOP.
LOOP AT itab_zycet092.
...
...
ENDIF.
ENDIF.
ENDFORM.
FORM determina_enquad.
IF itab_zycet116-tpre EQ '05'.
CALL FUNCTION '/PWS/ZYCE_ENQFAB_RE'
EXPORTING
agrupado = itab_zycet116-agrupado
tipo = 'ENQ'
itab_zycet092_aux = itab_zycet092_aux
* >> Início da exclusão: FORM DETERMINA_ENQUAD
TABLES
itab_zycet002 = itab_zycet002
itab_zycet118 = itab_zycet118
itab_zycet078 = itab_zycet078aux
itab_zycet092 = itab_zycet092
itab_zycet116 = itab_zycet116
itab_zycet066 = itab_zycet066
itab_zycet119 = itab_zycet119.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_ENQUAD
itab_zycet002 = itab_zycet002[]
itab_zycet092 = itab_zycet092[]
itab_zycet118 = itab_zycet118[]
CHANGING
itab_zycet066 = itab_zycet066[]
itab_zycet078 = itab_zycet078aux[]
itab_zycet116 = itab_zycet116[]
itab_zycet119 = itab_zycet119[].
* << Fim da inclusão
LOOP AT itab_zycet078aux.
MOVE-CORRESPONDING itab_zycet078aux TO itab_zycet078.
MODIFY itab_zycet078 INDEX sy-tabix.
ENDLOOP.
ELSE.
APPEND itab_zycet116.
ENDIF.
READ TABLE itab_zycet116 INDEX 1.
IF v_ato NE 'X' AND
( itab_zycet116-codagrup EQ '000007' OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE045F01
...
CALL SCREEN '0600' STARTING AT 2 3.
ENDIF.
ENDFORM.
FORM agrup_total.
PERFORM funcao_agrupamento.
ENDFORM.
FORM funcao_agrupamento.
SELECT SINGLE werks FROM /pws/zycet001 INTO /pws/zycee116-werks
WHERE nrseq = gnrseq.
CALL FUNCTION '/PWS/ZYCE_AGRUPA_PERMISO'
* >> Início da exclusão: FORM FUNCAO_AGRUPAMENTO
EXPORTING
werks = /pws/zycee116-werks
* << Fim da exclusão
TABLES
itab_zycet296 = itab_zycet296 "#EC *
itab_zycet301 = itab_zycet301
itab_zycet300 = itab_zycet300.
ENDFORM.
FORM rot_check_permiso.
CLEAR v_resp.
SELECT nrseqper
FROM /pws/zycet292
UP TO 1 ROWS
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE105F01
...
itab_118 = itab_118.
MOVE: /pws/zycee116 TO itab_zycet116.
READ TABLE itab_066 INDEX 1.
IF sy-subrc EQ 0.
itab_zycet116-regio = itab_066-regio.
ENDIF.
MODIFY itab_zycet116 INDEX 1.
CALL FUNCTION '/PWS/ZYCE_ENQFAB_RE'
EXPORTING
agrupado = /pws/zycee116-agrupado
* >> Início da inclusão: FORM TRAT_PESO
tipo = 'FAB'
* << Fim da inclusão
itab_zycet092_aux = /pws/zycee092
* >> Início da exclusão: FORM TRAT_PESO
tipo = 'FAB'
TABLES
itab_zycet116 = itab_zycet116
itab_zycet118 = it_zycet118_aux
itab_zycet078 = it_zycet078_aux
itab_zycet119 = itab_119
itab_zycet066 = itab_066
itab_zycet002 = itab_zycet002.
* << Fim da exclusão
* >> Início da inclusão: FORM TRAT_PESO
itab_zycet002 = itab_zycet002[]
itab_zycet118 = it_zycet118_aux[]
CHANGING
itab_zycet116 = itab_zycet116[]
itab_zycet078 = it_zycet078_aux[]
itab_zycet119 = itab_119[]
itab_zycet066 = itab_066[].
* << Fim da inclusão
MOVE: it_zycet078_aux[] TO itab_zycet078[],
it_zycet118_aux[] TO itab_118[].
IF NOT itab_066[] IS INITIAL.
CLEAR itab_zycet066.
LOOP AT itab_066.
IF itab_066-percentual > 100.
CLEAR itab_066-percentual.
MESSAGE s016 WITH text-110.
ENDIF.
IF NOT itab_066-ntgew IS INITIAL.
...
...
itab_118 = itab_118.
MOVE: /pws/zycee116 TO itab_zycet116.
READ TABLE itab_066 INDEX 1.
IF sy-subrc EQ 0.
itab_zycet116-regio = itab_066-regio.
ENDIF.
MODIFY itab_zycet116 INDEX 1.
CALL FUNCTION '/PWS/ZYCE_ENQFAB_RE'
EXPORTING
agrupado = /pws/zycee116-agrupado
* >> Início da inclusão: FORM DADOS_FATURAMENTO
tipo = 'FAB'
* << Fim da inclusão
itab_zycet092_aux = /pws/zycee092
* >> Início da exclusão: FORM DADOS_FATURAMENTO
tipo = 'FAB'
TABLES
itab_zycet092 = it_zycet092_aux
itab_zycet116 = itab_zycet116
itab_zycet118 = it_zycet118_aux
itab_zycet078 = it_zycet078_aux
itab_zycet119 = itab_119
itab_zycet066 = itab_066
itab_zycet002 = itab_zycet002.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_FATURAMENTO
itab_zycet002 = itab_zycet002[]
itab_zycet092 = it_zycet092_aux[]
itab_zycet118 = it_zycet118_aux[]
CHANGING
itab_zycet116 = itab_zycet116[]
itab_zycet078 = it_zycet078_aux[]
itab_zycet119 = itab_119[]
itab_zycet066 = itab_066[].
* << Fim da inclusão
MOVE: it_zycet078_aux[] TO itab_zycet078[],
it_zycet118_aux[] TO itab_118[],
it_zycet092_aux[] TO itab_zycet092[].
IF NOT itab_066[] IS INITIAL.
CLEAR itab_zycet066.
LOOP AT itab_066.
IF itab_066-percentual > 100.
CLEAR itab_066-percentual.
MESSAGE s016 WITH text-110.
ENDIF.
...
...
itab_zycet119 = itab_119.
MOVE: /pws/zycee116 TO itab_zycet116.
READ TABLE itab_066 INDEX 1.
IF sy-subrc EQ 0.
itab_zycet116-regio = itab_066-regio.
ENDIF.
MODIFY itab_zycet116 INDEX 1.
CALL FUNCTION '/PWS/ZYCE_ENQFAB_RE'
EXPORTING
agrupado = /pws/zycee116-agrupado
* >> Início da inclusão: FORM ATUA_FAT
tipo = 'FAB'
* << Fim da inclusão
itab_zycet092_aux = /pws/zycee092
* >> Início da exclusão: FORM ATUA_FAT
tipo = 'FAB'
TABLES
itab_zycet116 = itab_zycet116
itab_zycet078 = it_zycet078_aux
itab_zycet118 = it_zycet118_aux
itab_zycet092 = it_zycet092_aux
itab_zycet119 = itab_119
itab_zycet066 = itab_066
itab_zycet002 = itab_zycet002.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUA_FAT
itab_zycet002 = itab_zycet002[]
itab_zycet092 = it_zycet092_aux[]
itab_zycet118 = it_zycet118_aux[]
CHANGING
itab_zycet078 = it_zycet078_aux[]
itab_zycet119 = itab_119[]
itab_zycet066 = itab_066[].
* << Fim da inclusão
IF NOT itab_066[] IS INITIAL.
CLEAR itab_zycet066.
LOOP AT itab_066.
IF itab_066-percentual > 100.
CLEAR itab_066-percentual.
MESSAGE s016 WITH text-110.
ENDIF.
MOVE-CORRESPONDING itab_066 TO itab_zycet066.
DELETE itab_atufat WHERE codnrseq EQ itab_zycet066-codnrseq.
APPEND itab_zycet066.
...
...
MOVE: /pws/zycee116 TO itab_zycet116.
READ TABLE itab_066 INDEX 1.
IF sy-subrc EQ 0.
itab_zycet116-regio = itab_066-regio.
ENDIF.
MODIFY itab_zycet116 INDEX 1.
CALL FUNCTION '/PWS/ZYCE_ENQFAB_RE'
EXPORTING
agrupado = /pws/zycee116-agrupado
tipo = 'FAB'
* >> Início da exclusão: FORM ATUA_FAT
TABLES
itab_zycet118 = it_zycet118_aux
itab_zycet078 = it_zycet078_aux
itab_zycet119 = itab_119
itab_zycet066 = itab_066
itab_zycet002 = itab_zycet002.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUA_FAT
itab_zycet002 = itab_zycet002[]
itab_zycet118 = it_zycet118_aux[]
CHANGING
itab_zycet078 = it_zycet078_aux[]
itab_zycet119 = itab_119[]
itab_zycet066 = itab_066[].
* << Fim da inclusão
IF NOT itab_066[] IS INITIAL.
CLEAR itab_zycet066.
LOOP AT itab_066.
IF itab_066-percentual > 100.
CLEAR itab_066-percentual.
MESSAGE s016 WITH text-110.
ENDIF.
MOVE-CORRESPONDING itab_066 TO itab_zycet066.
DELETE itab_atufat WHERE codnrseq EQ itab_zycet066-codnrseq.
APPEND itab_zycet066.
...
...
rb2_sim = 'X'.
ENDIF.
ENDIF.
MOVE /pws/zycee066-obsexp1 TO itab_zycet066-obsexp1.
MODIFY itab_zycet066 TRANSPORTING obsexp1
WHERE nrseqre = /pws/zycee066-nrseqre
AND codnrseq = /pws/zycee066-codnrseq.
ENDIF.
ENDFORM.
FORM comm_fabri.
* >> Início da inclusão: FORM COMM_FABRI
DATA:
it_itens_marc_re TYPE /pws/zycel732,
it_descr_materiais_re TYPE /pws/zycel729.
* << Fim da inclusão
IF rb_sim = 'X'.
READ TABLE itab_zyglt100 WITH KEY zexit = 'REX002'.
IF sy-subrc NE 0 OR
itab_zyglt100-programa IS INITIAL OR
itab_zyglt100-formulario IS INITIAL.
/pws/zycee066-expfab = 'S'.
CLEAR: rb_nao.
READ TABLE itab_zycet119 WITH KEY nrseqre = /pws/zycee066-nrseqre
codnrseq = /pws/zycee066-codnrseq.
IF sy-subrc = 0.
...
...
LOOP AT itab_zycet119 WHERE nrseqre = /pws/zycee066-nrseqre
AND codnrseq = /pws/zycee066-codnrseq.
IF itab_zycet119-vlme NE 0.
MOVE-CORRESPONDING itab_zycet119 TO itab_fabricante.
APPEND itab_fabricante.
ENDIF.
CLEAR itab_fabricante.
ENDLOOP.
ELSE.
MOVE-CORRESPONDING itab_zycet092 TO /pws/zycee092.
* >> Início da inclusão: FORM COMM_FABRI
PERFORM:
insere_itens_marc_re
USING itab_zycet118[] CHANGING it_itens_marc_re,
insere_descr_materiais_re
USING itab_zycet078[] CHANGING it_descr_materiais_re.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCE_ENQFAB_RE'
EXPORTING
agrupado = /pws/zycee116-agrupado
* >> Início da inclusão: FORM COMM_FABRI
tipo = 'FAB'
* << Fim da inclusão
itab_zycet092_aux = /pws/zycee092
* >> Início da exclusão: FORM COMM_FABRI
tipo = 'FAB'
TABLES
itab_zycet116 = itab_zycet116
itab_zycet118 = itab_zycet118
itab_zycet078 = itab_zycet078
itab_zycet119 = itab_zycet119
itab_zycet066 = itab_zycet066
itab_zycet002 = itab_zycet002. "#EC *
IF sy-subrc = 0.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_FABRI
itab_zycet002 = itab_zycet002[]
itab_zycet118 = it_itens_marc_re
CHANGING
itab_zycet078 = it_descr_materiais_re
itab_zycet066 = itab_zycet066[]
itab_zycet116 = itab_zycet116[]
itab_zycet119 = itab_zycet119[].
PERFORM:
recupera_itens_marc_re
USING it_itens_marc_re CHANGING itab_zycet118[],
recupera_descr_materiais_re
USING it_descr_materiais_re CHANGING itab_zycet078[].
* << Fim da inclusão
LOOP AT itab_zycet119 WHERE nrseqre = /pws/zycee066-nrseqre
AND codnrseq = /pws/zycee066-codnrseq.
IF itab_zycet119-vlme NE 0.
MOVE-CORRESPONDING itab_zycet119 TO itab_fabricante.
APPEND itab_fabricante.
ENDIF.
CLEAR itab_fabricante.
ENDLOOP.
* >> Início da exclusão: FORM COMM_FABRI
ENDIF.
* << Fim da exclusão
ENDIF.
READ TABLE itab_zycet090 WITH KEY codint = '000005'
mark = 'X'.
IF sy-subrc = 0.
READ TABLE itab_zycet119 WITH KEY nrseqre = /pws/zycee066-nrseqre
codnrseq = /pws/zycee066-codnrseq
stcd1 = /pws/zycee116-stcd1.
IF sy-subrc <> 0.
MOVE: sy-mandt TO itab_fabricante-mandt,
/pws/zycee066-nrseqre TO itab_fabricante-nrseqre,
...
...
paisdest
matnr.
DELETE ADJACENT DUPLICATES FROM p_zycet081
COMPARING
steuc
codnaladi
land1
paisdest
matnr.
ENDFORM.
* >> Início da inclusão:
FORM insere_itens_marc_re
USING p_zycet118 TYPE t_itens_marc_re
CHANGING p_itens_marc_re TYPE /pws/zycel732.
DATA:
wa_zycet118 TYPE t_item_marc_re,
wa_item_marc_re TYPE LINE OF /pws/zycel732.
CLEAR p_itens_marc_re.
LOOP AT p_zycet118 INTO wa_zycet118.
MOVE-CORRESPONDING wa_zycet118 TO wa_item_marc_re.
APPEND wa_item_marc_re TO p_itens_marc_re.
ENDLOOP.
ENDFORM.
FORM recupera_itens_marc_re
USING p_itens_marc_re TYPE /pws/zycel732
CHANGING p_zycet118 TYPE t_itens_marc_re.
DATA:
wa_zycet118 TYPE t_item_marc_re,
wa_item_marc_re TYPE LINE OF /pws/zycel732.
CLEAR p_zycet118[].
LOOP AT p_itens_marc_re INTO wa_item_marc_re.
MOVE-CORRESPONDING wa_item_marc_re TO wa_zycet118.
APPEND wa_zycet118 TO p_zycet118.
ENDLOOP.
ENDFORM.
FORM insere_descr_materiais_re
USING p_zycet078 TYPE t_descr_materiais_re
CHANGING p_descr_materiais_re TYPE /pws/zycel729.
DATA:
wa_zycet078 TYPE t_descr_material_re,
wa_descr_material_re TYPE LINE OF /pws/zycel729.
CLEAR p_descr_materiais_re.
LOOP AT p_zycet078 INTO wa_zycet078.
MOVE-CORRESPONDING wa_zycet078 TO wa_descr_material_re.
APPEND wa_descr_material_re TO p_descr_materiais_re.
ENDLOOP.
ENDFORM.
FORM recupera_descr_materiais_re
USING p_descr_materiais_re TYPE /pws/zycel729
CHANGING p_zycet078 TYPE t_descr_materiais_re.
DATA:
wa_zycet078 TYPE t_descr_material_re,
wa_descr_material_re TYPE LINE OF /pws/zycel729.
CLEAR p_zycet078[].
LOOP AT p_descr_materiais_re INTO wa_descr_material_re.
MOVE-CORRESPONDING wa_descr_material_re TO wa_zycet078.
APPEND wa_zycet078 TO p_zycet078.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE105X01
TABLES: /pws/zycee001,
/pws/zycee116.
* >> Início da inclusão:
TYPES:
BEGIN OF t_item_marc_re.
INCLUDE STRUCTURE /pws/zycet118.
TYPES:
mark(1) TYPE c,
END OF t_item_marc_re,
t_itens_marc_re TYPE STANDARD TABLE OF t_item_marc_re.
TYPES:
BEGIN OF t_descr_material_re.
INCLUDE STRUCTURE /pws/zycet078.
TYPES:
codnrseq_ant TYPE /pws/zycet078-codnrseq,
retif(1) TYPE c,
END OF t_descr_material_re,
t_descr_materiais_re TYPE STANDARD TABLE OF t_descr_material_re.
* << Fim da inclusão
DATA: BEGIN OF COMMON PART c.
DATA: BEGIN OF itab_zycet116 OCCURS 1.
INCLUDE STRUCTURE /pws/zycet116.
DATA: END OF itab_zycet116.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet118 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet118.
DATA: mark,
END OF itab_zycet118.
* << Fim da exclusão
* >> Início da inclusão:
DATA: itab_zycet118 TYPE t_itens_marc_re WITH HEADER LINE.
* << Fim da inclusão
DATA: BEGIN OF itab_zycet092 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet092.
DATA: mark,
END OF itab_zycet092.
DATA: BEGIN OF itab_zycet003 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet003.
DATA: END OF itab_zycet003.
DATA: BEGIN OF itab_zycet066 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet066.
DATA: END OF itab_zycet066.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet078 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet078.
DATA: codnrseq_ant LIKE /pws/zycet078-codnrseq,
retif TYPE c.
DATA: END OF itab_zycet078.
DATA: BEGIN OF itab_zycet119 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet119.
DATA: END OF itab_zycet119.
* << Fim da exclusão
* >> Início da inclusão:
DATA: itab_zycet078 TYPE t_descr_materiais_re WITH HEADER LINE.
DATA: itab_zycet119 TYPE STANDARD TABLE OF /pws/zycet119
WITH HEADER LINE.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE400F02
...
CASE sy-subrc.
WHEN 1.
MESSAGE e200(/pws/zycem) WITH p_area_resultado.
WHEN 2.
MESSAGE e203(/pws/zycem).
ENDCASE.
IF p_modo = c_md.
PERFORM bloqueia_registro
USING /pws/zycee400-erkrs CHANGING v_modo.
ENDIF.
* >> Início da exclusão: FORM SELECIONAR_DADOS
CALL FUNCTION '/PWS/ZYCE_CAMPOS_EXP_CO_PA'
TABLES
t_campos_exp_co_pa = it_campos_exp.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_DADOS
CALL FUNCTION '/PWS/ZYCE_RET_CAMPOS_EXP'
IMPORTING
e_campos_exp = it_campos_exp
EXCEPTIONS
campos_nao_definidos = 1.
IF sy-subrc NE 0.
MESSAGE e195(/pws/zycem).
LEAVE PROGRAM.
ENDIF.
* << Fim da inclusão
CHECK p_modo = c_md OR p_modo = c_ex.
PERFORM atualiza_descricoes
USING /pws/zycee400-paledger /pws/zycee400-vrgar
CHANGING tkelt-ledbo_bz tvgat-vrgarx.
ENDFORM.
FORM grava_dados USING p_modo TYPE char1.
CALL FUNCTION '/PWS/ZYCE_MOD_CAMPOS_CO_PA'
EXPORTING
i_param_area_resultado = /pws/zycee400
i_modo = p_modo
TABLES
t_campos_lct = it_campos_lct
EXCEPTIONS
* >> Início da exclusão: FORM GRAVA_DADOS
erro_gravacao_campos_cab = 1
erro_gravacao_campos_lct = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DADOS
erro_gravacao_campos_cab = 1.
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE e201(/pws/zycem).
ELSE.
v_modo = c_md.
MESSAGE s208(/pws/zycem) WITH /pws/zycee400-erkrs.
ENDIF.
ENDFORM.
FORM bloqueia_registro
USING p_area_resultado TYPE /pws/zycee400-erkrs
CHANGING p_modo TYPE char1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCEI135
* >> Início da inclusão:
TYPES:
BEGIN OF t_item_embarque.
INCLUDE STRUCTURE /pws/zycet002.
TYPES:
nrinvoic TYPE /pws/zycbt030-nrinvoic,
END OF t_item_embarque,
t_zycet002 TYPE STANDARD TABLE OF /pws/zycet002,
t_itens_embarque TYPE STANDARD TABLE OF t_item_embarque.
* << Fim da inclusão
data: begin of itab_mensagem occurs 0,
nrseq like /pws/zycet002-nrseq,
vbeln_vf like /pws/zycet002-vbeln_vf,
belnr_i like /pws/zycet002-belnr_i,
belnr_ii like /pws/zycet002-belnr_ii,
belnr_iii like /pws/zycet002-belnr_iii,
end of itab_mensagem.
* >> Início da exclusão:
data: begin of itab_zycet002 occurs 0.
include structure /pws/zycet002.
data: nrinvoic like /pws/zycbt030-nrinvoic.
data: end of itab_zycet002.
* << Fim da exclusão
* >> Início da inclusão:
DATA: itab_zycet002 TYPE t_itens_embarque WITH HEADER LINE.
* << Fim da inclusão
data: begin of itab_zycet002_aux2 occurs 0.
include structure /pws/zycet002.
data: end of itab_zycet002_aux2.
data: begin of itab_t001 occurs 0,
bukrs like t001-bukrs,
butxt like t001-butxt,
end of itab_t001.
data: begin of itab_likp occurs 0,
kunnr like likp-kunnr,
vbeln like likp-vbeln,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER135
...
itab_zycet005,
itab_zycee005.
REFRESH:
itab_zycbt034_aux,
itab_zycbe033_aux,
itab_zycbt032_aux,
itab_zycet005,
itab_zycee005.
ENDFORM.
FORM estornar.
* >> Início da exclusão: FORM ESTORNAR
DATA: v_belnr_i LIKE /pws/zycet002-belnr_i,
it_status_lct TYPE STANDARD TABLE OF /pws/zycet403.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNAR
DATA:
v_belnr_i TYPE /pws/zycet002-belnr_i,
it_status_lct TYPE STANDARD TABLE OF /pws/zycet403,
it_itens_embarque TYPE STANDARD TABLE OF /pws/zycet002.
PERFORM converte_itens_embarque
USING itab_zycet002[] CHANGING it_itens_embarque.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCE_ITENS_EMBARQUE_CO_PA'
EXPORTING
i_retorna_parceiros = space
* >> Início da exclusão: FORM ESTORNAR
TABLES
t_itens_embarque = itab_zycet002
t_itens_co_pa = it_status_lct
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNAR
i_itens_embarque = it_itens_embarque
IMPORTING
e_itens_co_pa = it_status_lct
* << Fim da inclusão
EXCEPTIONS
* >> Início da exclusão: FORM ESTORNAR
itens_embarque_invalidos = 1. "#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNAR
itens_embarque_invalidos = 1
OTHERS = 2.
* << Fim da inclusão
IF sy-subrc = 0 AND NOT it_status_lct IS INITIAL.
MESSAGE e194.
...
...
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
MESSAGE i083(f5) WITH wa_bukrs.
STOP.
ENDIF.
ENDLOOP.
ENDFORM.
FORM executa_shiftf9.
CLEAR : /pws/zycbt039, itab_modo.
REFRESH : itab_modo.
* >> Início da exclusão: FORM EXECUTA_SHIFTF9
SELECT * FROM /pws/zycbt039."#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_SHIFTF9
SELECT * FROM /pws/zycbt039. "#EC CI_NOWHERE
* << Fim da inclusão
itab_modo-selflag = /pws/zycbt039-modo.
itab_modo-varoption = /pws/zycbt039-descr.
APPEND itab_modo.
ENDSELECT.
SORT itab_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-006
textline2 = text-007
titel = text-008
...
...
too_much_marks = 3
OTHERS = 4. "#EC *
IF v_mode EQ '3'.
v_mode = 'A'.
ELSEIF v_mode EQ '2'.
v_mode = 'E'.
ELSEIF v_mode EQ '1'.
v_mode = 'N'.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM converte_itens_embarque
USING p_zycet002 TYPE t_itens_embarque
CHANGING p_itens_embarque TYPE t_zycet002.
DATA:
wa_zycet002 TYPE t_item_embarque,
wa_item_embarque TYPE /pws/zycet002.
CLEAR p_itens_embarque.
LOOP AT p_zycet002 INTO wa_zycet002.
MOVE-CORRESPONDING wa_zycet002 TO wa_item_embarque.
APPEND wa_item_embarque TO p_itens_embarque.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER306
REPORT /pws/zycer306 MESSAGE-ID /pws/zycem.
TABLES: /pws/zycet037.
* >> Início da exclusão:
DATA: v_cpochv LIKE /pws/zycbe033-cpochv,
v_mode(1) TYPE c,
* << Fim da exclusão
* >> Início da inclusão:
DATA: v_mode(1) TYPE c,
* << Fim da inclusão
v_result(1) TYPE c,
v_vlme_a LIKE /pws/zycet062-vlme_a,
v_kunrg LIKE /pws/zycet002-kunrg,
v_subrc LIKE sy-subrc,
v_ok(1) TYPE c.
CONSTANTS: c_x(1) TYPE c VALUE 'X'.
TYPES: BEGIN OF ty_zycet156,
codigo TYPE /pws/zycet156-codigo,
kschl TYPE /pws/zycet156-kschl,
proccond TYPE /pws/zycet156-proccond,
...
...
MESSAGE i008.
STOP.
ELSE.
APPEND LINES OF itab_zycet002_sc[] TO itab_zycet002[].
APPEND LINES OF itab_zycet002_d[] TO itab_zycet002[].
SELECT SINGLE * FROM /pws/zycet037
WHERE bukrs EQ wa_zycet001-bukrs.
ENDIF.
IF p_flag = 'X'.
IF /pws/zycet037-agrup_sem_rec NE '1'.
LOOP AT itab_zycet002 WHERE status NE 'C'.
ENDLOOP.
IF sy-subrc = 0.
MESSAGE i001 WITH text-002 text-009.
v_result = 'N'.
EXPORT v_result TO MEMORY ID '031'.
STOP.
ENDIF.
ENDIF.
SORT itab_zycet002 BY vbeln_va posnr.
LOOP AT itab_zycet002.
...
...
ENDIF.
LOOP AT it_zycet002 INTO wa_zycet002.
REFRESH it_bseg.
CLEAR v_awkey.
MOVE wa_zycet002-vbeln_vf TO v_awkey.
CALL FUNCTION '/PWS/ZYCE_SELECT_DOC_CONTABIL'
EXPORTING
p_awkey = v_awkey
p_bukrs = wa_zycet002-bukrs
p_date = wa_zycet002-fkdat
* >> Início da exclusão: FORM PREENCHE_VALOR_MI
TABLES
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_VALOR_MI
IMPORTING
* << Fim da inclusão
itab_bseg = it_bseg
EXCEPTIONS
documento_nao_encontrado = 1
itens_nao_encontrados = 2
OTHERS = 4.
IF sy-subrc EQ 0.
DELETE it_bseg[] WHERE koart <> 'D' OR
kunnr <> v_kunnr.
IF p_tipo NE space.
DELETE it_bseg[] WHERE zterm <> p_zterm.
...
...
v_dmbtr.
ENDIF.
p_wrbtr = v_wrbtr.
p_dmbtr = v_dmbtr.
ENDFORM.
FORM calcula_variacao
USING
p_wrbtr TYPE bseg-wrbtr
CHANGING
p_dmbtr TYPE bseg-dmbtr.
* >> Início da exclusão: FORM CALCULA_VARIACAO
DATA: wa_zycit054 LIKE /pws/zycit054,
wa_zycet048 LIKE /pws/zycet048.
DATA: v_data_conv TYPE /pws/zycet001-dtemb.
DATA: v_moeda_destino TYPE t001-waers,
v_categoria TYPE /pws/zycbt011-ctmoed.
DATA: v_taxa TYPE /pws/zycbe033-kursf.
SELECT SINGLE * FROM /pws/zycit054
INTO wa_zycit054
WHERE vktra_ci = wa_zycet001-viatrans.
IF sy-subrc IS INITIAL.
SELECT SINGLE * FROM /pws/zycet048
INTO wa_zycet048
WHERE vktrt = wa_zycit054-vktra.
ENDIF.
IF NOT wa_zycet048-dtvrc IS INITIAL.
CASE wa_zycet048-dtvrc.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_VARIACAO
DATA:
v_dtvrc TYPE /pws/zycet048-dtvrc,
v_data_conv TYPE /pws/zycet001-dtemb,
v_moeda_destino TYPE t001-waers,
v_categoria TYPE /pws/zycbt011-ctmoed,
v_taxa TYPE /pws/zycbe033-kursf.
SELECT SINGLE a~dtvrc
FROM /pws/zycet048 AS a
INNER JOIN /pws/zycit054 AS b
ON a~vktrt = b~vktra
INTO v_dtvrc
WHERE b~vktra_ci = wa_zycet001-viatrans. "#EC *
IF NOT v_dtvrc IS INITIAL.
CASE v_dtvrc.
* << Fim da inclusão
WHEN 'DTEMB'.
v_data_conv = wa_zycet001-dtemb.
WHEN 'DTBL'.
SELECT SINGLE dtbl
FROM /pws/zycet047
INTO v_data_conv
WHERE nrseq = wa_zycet001-nrseq. "#EC *
WHEN 'DTAVERB'.
v_data_conv = wa_zycet001-dtaverb.
WHEN 'DTCRUZE'.
v_data_conv = wa_zycet001-dtcruze.
ENDCASE.
ELSE.
MESSAGE i016 WITH text-023
text-024
wa_zycet001-viatrans.
STOP.
ENDIF.
IF v_data_conv IS INITIAL.
* >> Início da exclusão: FORM CALCULA_VARIACAO
CASE wa_zycet048-dtvrc.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_VARIACAO
CASE v_dtvrc.
* << Fim da inclusão
WHEN 'DTEMB'.
MESSAGE i295 WITH text-019.
WHEN 'DTBL'.
MESSAGE i295 WITH text-020.
WHEN 'DTAVERB'.
MESSAGE i295 WITH text-021.
WHEN 'DTCRUZE'.
MESSAGE i295 WITH text-022.
ENDCASE.
STOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER314
...
wa_valores-zterm = wa_t052s-ratzt.
CLEAR: wa_valores-montante_md,
wa_valores-montante_mi.
LOOP AT it_zycet002[] INTO wa_zycet002.
awkey = wa_zycet002-vbeln_vf.
CALL FUNCTION '/PWS/ZYCE_SELECT_DOC_CONTABIL'
EXPORTING
p_awkey = awkey
p_bukrs = wa_zycet002-bukrs
p_date = wa_zycet002-fkdat
* >> Início da exclusão: FORM DETERMINA_VALORES_DOCUMENTO
TABLES
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_VALORES_DOCUMENTO
IMPORTING
* << Fim da inclusão
itab_bseg = it_bseg[]
EXCEPTIONS
documento_nao_encontrado = 1
itens_nao_encontrados = 2
variante_de_exercicio = 3
data_nao_encontrada = 4
empresa_nao_encontrada = 5
erro_periodo = 6
OTHERS = 7.
IF sy-subrc = 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER401
...
tab_saida = it_itens_embarque
EXCEPTIONS
itens_nao_encontrados = 1.
IF sy-subrc NE 0.
MESSAGE e120(/pws/zycem).
LEAVE PROGRAM.
ENDIF.
CALL FUNCTION '/PWS/ZYCE_ITENS_EMBARQUE_CO_PA'
EXPORTING
i_retorna_parceiros = 'X'
* >> Início da exclusão: FORM SELECIONA_DADOS
TABLES
t_itens_embarque = it_itens_embarque
t_itens_co_pa = p_status_lcts
t_parceiros = it_parceiros
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
i_itens_embarque = it_itens_embarque
IMPORTING
e_itens_co_pa = p_status_lcts
CHANGING
i_parceiros = it_parceiros
* << Fim da inclusão
EXCEPTIONS
itens_embarque_invalidos = 1.
IF sy-subrc = 0.
it_itens_emb = it_itens_embarque.
LOOP AT p_status_lcts INTO wa_status_lct.
DELETE it_itens_emb WHERE
vbeln_vf = wa_status_lct-vbeln_vf AND
posnr = wa_status_lct-posnr_vf.
ENDLOOP.
IF it_itens_emb IS INITIAL.
...
...
i_area_resultado = wa_param_cmpcab-area_resultado
TABLES
t_mensagens = it_mensagens
EXCEPTIONS
modo_nao_especificado = 1.
IF sy-subrc NE 0.
MESSAGE e206(/pws/zycem) WITH wa_param_cmpcab-area_resultado.
LEAVE PROGRAM.
ENDIF.
CALL FUNCTION '/PWS/ZYCE_RET_CAMPOS_EXP'
* >> Início da exclusão: FORM SELECIONA_DADOS
TABLES
t_campos_exp = it_param_cmpsexp
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
IMPORTING
e_campos_exp = it_param_cmpsexp
* << Fim da inclusão
EXCEPTIONS
campos_nao_definidos = 1.
CHECK sy-subrc NE 0.
MESSAGE e195(/pws/zycem).
LEAVE PROGRAM.
ENDFORM.
FORM recupera_parametros.
GET PARAMETER ID '/PWS/ZYCEP001' FIELD v_seqemb.
IF v_seqemb IS INITIAL.
MESSAGE e003(/pws/zycem).
...
...
p_param_cmpsexp TYPE t_param_cmpsexp
USING
p_item_embarque TYPE t_item_embarque
p_param_cmpcab TYPE t_param_cmpcab
p_record_id TYPE bapi_copa_data-record_id
p_modo TYPE char1
CHANGING
p_dados TYPE t_dados.
CONSTANTS:
c_item_embarque(15) TYPE c VALUE 'P_ITEM_EMBARQUE',
* >> Início da exclusão: FORM PREPARA_ITEM_CO_PA
c_parceiros(15) TYPE c VALUE 'WA_PARCEIRO',
* << Fim da exclusão
c_vlagente_r TYPE fieldname VALUE 'VLAGENTE_R',
c_vlod_r TYPE fieldname VALUE 'VLOD_R',
c_vlacrescimo_r TYPE fieldname VALUE 'VLACRESCIMO_R',
c_vldesconto_r TYPE fieldname VALUE 'VLDESCONTO_R',
c_vlfrete_r TYPE fieldname VALUE 'VLFRETE_R',
c_vlseguro_r TYPE fieldname VALUE 'VLSEGURO_R',
c_vlemb TYPE fieldname VALUE 'VLEMB',
c_vlme TYPE fieldname VALUE 'VLME',
c_vlme_r TYPE fieldname VALUE 'VLME_R',
c_parvw TYPE fieldname VALUE 'PARVW',
...
...
EXPORTING
erkrs = p_area_resultado
date = p_data
IMPORTING
perio = p_periodo
EXCEPTIONS
i_erkrs_notfound = 1
i_error = 2
i_periv_notedited = 3
i_perspec_invalid = 4.
* >> Início da exclusão: FORM TRANSFORMA_DATA_EM_PERIODO
.
* << Fim da exclusão
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
LEAVE PROGRAM.
ENDIF.
wa_data_em_periodo-erkrs = p_area_resultado.
wa_data_em_periodo-data = p_data.
wa_data_em_periodo-perio = p_periodo.
APPEND wa_data_em_periodo TO it_data_em_periodo.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TTYP /PWS/ZYCEL727
Criar Categoria de Tabela: /PWS/ZYCEL727
Descrição Breve: "CE - Tabela Interna Itens do Embarque"
Classe Desenvolvimento: /PWS/ZYCE
Ctg.Linhas e Acesso:
TIPO DE LINHA: /PWS/ZYCET002
TIPO DE ACESSO: Tabela Standard
DEFINIÇÃO DE CHAVE: Chave Standard
TIPO DE CHAVE: nonunique
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TTYP /PWS/ZYCEL728
Criar Categoria de Tabela: /PWS/ZYCEL728
Descrição Breve: "CE - Tabela Interna Faturamento de Anexo de RE"
Classe Desenvolvimento: /PWS/ZYCE
Ctg.Linhas e Acesso:
TIPO DE LINHA: /PWS/ZYCET066
TIPO DE ACESSO: Tabela Standard
DEFINIÇÃO DE CHAVE: Chave Standard
TIPO DE CHAVE: nonunique
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TTYP /PWS/ZYCEL729
Criar Categoria de Tabela: /PWS/ZYCEL729
Descrição Breve: "DE - Descrição de Material de RE"
Classe Desenvolvimento: /PWS/ZYCE
Ctg.Linhas e Acesso:
TIPO DE LINHA: /PWS/ZYCET078
TIPO DE ACESSO: Tabela Standard
DEFINIÇÃO DE CHAVE: Chave Standard
TIPO DE CHAVE: nonunique
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TTYP /PWS/ZYCEL730
Criar Categoria de Tabela: /PWS/ZYCEL730
Descrição Breve: "DE - Anexo de RE Agrupado"
Classe Desenvolvimento: /PWS/ZYCE
Ctg.Linhas e Acesso:
TIPO DE LINHA: /PWS/ZYCET092
TIPO DE ACESSO: Tabela Standard
DEFINIÇÃO DE CHAVE: Chave Standard
TIPO DE CHAVE: nonunique
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TTYP /PWS/ZYCEL731
Criar Categoria de Tabela: /PWS/ZYCEL731
Descrição Breve: "DE - Cabeçalho do Registro de Exportação (RE)"
Classe Desenvolvimento: /PWS/ZYCE
Ctg.Linhas e Acesso:
TIPO DE LINHA: /PWS/ZYCET116
TIPO DE ACESSO: Tabela Standard
DEFINIÇÃO DE CHAVE: Chave Standard
TIPO DE CHAVE: nonunique
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TTYP /PWS/ZYCEL732
Criar Categoria de Tabela: /PWS/ZYCEL732
Descrição Breve: "DE - Itens da Marcação no RE"
Classe Desenvolvimento: /PWS/ZYCE
Ctg.Linhas e Acesso:
TIPO DE LINHA: /PWS/ZYCET118
TIPO DE ACESSO: Tabela Standard
DEFINIÇÃO DE CHAVE: Chave Standard
TIPO DE CHAVE: nonunique
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TTYP /PWS/ZYCEL733
Criar Categoria de Tabela:/PWS/ZYCEL733
Descrição Breve: "DE - Dados do Fabricante"
Classe Desenvolvimento: /PWS/ZYCE
Ctg.Linhas e Acesso:
TIPO DE LINHA: /PWS/ZYCET119
TIPO DE ACESSO: Tabela Standard
DEFINIÇÃO DE CHAVE: Chave Standard
TIPO DE CHAVE: nonunique
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TTYP /PWS/ZYCEL734
Criar Categoria de Tabela: /PWS/ZYCEL734
Descrição Breve: "DE - Parâmetros Descrição de Campo Agrupamento"
Classe Desenvolvimento: /PWS/ZYCE
Ctg.Linhas e Acesso:
TIPO DE LINHA: /PWS/ZYCET090
TIPO DE ACESSO: Tabela Standard
DEFINIÇÃO DE CHAVE: Chave Standard
TIPO DE CHAVE: nonunique
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TTYP /PWS/ZYCEL735
Criar Categoria de Tabela: /PWS/ZYCEL735
Descrição Breve: "DE - CO-PA: Lançamentos efetivados"
Classe Desenvolvimento: /PWS/ZYCE
Ctg.Linhas e Acesso:
TIPO DE LINHA: /PWS/ZYCET403
TIPO DE ACESSO: Tabela Standard
DEFINIÇÃO DE CHAVE: Chave Standard
TIPO DE CHAVE: nonunique
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TTYP /PWS/ZYCEL736
Criar Categoria de Tabela: /PWS/ZYCEL736
Descrição Breve: "DE - CO-PA: Campos permitidos por área de resultado."
Classe Desenvolvimento: /PWS/ZYCE
Ctg.Linhas e Acesso:
TIPO DE LINHA: /PWS/ZYCET323
TIPO DE ACESSO: Tabela Standard
DEFINIÇÃO DE CHAVE: Chave Standard
TIPO DE CHAVE: nonunique