CE PLUS - Nota 014077
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: SISCOSERV
Data/Hora da Publicação: 22/07/2014 13:58:50
Data/Hora Última Alteração: 22/07/2014 13:58:50
Descrição da Nota: SISCOSERV - INCOTERM EMBARQUE EXPORTAÇÃO, DRILL DOWNINCOTERM EMBARQUE EX
Sintoma
1) Para criação de RVS de Frete de Embarque de Exportação, está sendo considerados Incoterms fixos;
2) Para alguns processos com origem, o campo Moeda não está sendo carregado na Operação;
3) Não existe possibilidade de navegação para os processos de origem na criação individual;
4) Criação Automática com Origem não verifica a autorização para a empresa;
5) A criação individual com origem em Pedido de compra não verifica a inclusão de novos itens no
pedido quando da alteração da RAS criada inicialmente;
Solução
1) Foi incluída a possibilidade de parametrização do incoterm para ser considerado na criação de
processos individuais com origem em frete de exportação;
2) O programa foia ajustado para trazer a informção corretamente já existente no cabeçalho;
3) Foi incluída a possibilidade de visualização dos processos de origem utilizados para criação
individual de RAS/RVS;
4) Foi incluída a rotina para verificar a permissão ou não do usuário para processamento pela
empresa;
5) Foi incluída a verificação da inclusão de novos itens para os pedidos utilizados na criação
individual com origem e criação de novas operações com base nestes novos itens do pedido
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 14077 Data: 15/07/2014 Hora: 15:25:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 14077
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00008
Agrupamento : 00173
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
13542 - 00001 - 9.0 - 00006 - SISCOSERV, RAS/RVS DE COMISSÃO DE AGENTE E PRESTAÇÃO DE CONTAS
13583 - 00002 - 9.0 - 00007 - CADASTRO DE MOEDAS NA PRODUÇÃO
13874 - 00004 - 9.0 - 00007 - SISCOSERV - CRIAÇÃO AUTOMÁTICA DE RAS/RVS
13919 - 00005 - 9.0 - 00007 - SISCOSERV - CRIAÇÃO COM ORIGEM EM FRETE E SEGURO DE PEDIDO DE COM
13949 - 00007 - 9.0 - 00007 - SISCOSERV - CARGA SISCOSERV - NÚMERO RC
14033 - 00009 - 9.0 - 00007 - SISCOSERV - ASSOCIAÇÃO
----------------------------------------------------------------------------------------------------
SISCOSERV - INCOTERM EMBARQUE EXPORTAÇÃO, DRILL DOWNINCOTERM EMBARQUE EX
----------------------------------------------------------------------------------------------------
Palavras Chave:
SISCOSERV - INCOTERM EMBARQUE EXPORTAÇÃO - DRILL DOWN - MOEDA
MODIFICAR PEDIDO DE COMPRA
----------------------------------------------------------------------------------------------------
Objetos da nota:
TABD /PWS/ZYCET065
DYNP /PWS/SAPMZYCA011 0101
REPS /PWS/MZYCA011F01
REPS /PWS/MZYCA014F01
REPS /PWS/MZYCA014O01
REPS /PWS/MZYCA014TOP
REPT /PWS/SAPMZYCA011
REPT /PWS/SAPMZYCA014
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET065
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
SISCOSERV /PWS/ZYCEL914 ' ' ' ' ' ' ' ' ' '
Inserir este campo entre os campos COMISSÃO e USERNAMEC já existentes
Após a inclusão do campo, re-gerar a Visão de Atualização já criada para a tabela.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCA011 0101
Efetuar download da(s) tela(s) no Portal de Produtos, caminho:
Aplicativos -> pw.CE > Notas > NOTAS - TELAS > CAMBIO > 14077_TELAS.ZIP
Descompactar e efetuar upload no programa e tela correspondente, transação SE80.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA011F01
...
append wa_zycat033 to itab_zycat033t.
endloop.
endif.
if sy-tcode = '/PWS/ZYCA011_A'.
if /pws/zycat030-tp_origem = 'PT'.
perform verifica_alteracao_prestacao.
elseif /pws/zycat030-tp_origem = 'CA'.
perform verifica_alteracao_comissao.
elseif /pws/zycat030-tp_origem = 'DI'.
perform verifica_alteracao_despesas.
* >> Início da inclusão: FORM SELECIONA_DADOS
ELSEIF /pws/zycat030-tp_origem = 'PC'.
PERFORM verifica_alteracao_pc.
* << Fim da inclusão
endif.
endif.
perform inicializa_texto.
itab_tline_ant[] = itab_tline[].
if sy-tcode = '/PWS/ZYCA011_E' or
( sy-tcode ne '/PWS/ZYCA011_E' and
( /pws/zycat030-status = 'EP' or
/pws/zycat030-status = 'ES' or
/pws/zycat030-status = '01' or
/pws/zycat030-status = '02' or
...
...
clear v_okcode.
exit.
endif.
shift v_operacao right deleting trailing space.
while sy-subrc eq 0.
replace space with '0' into v_operacao.
endwhile.
set parameter id '/PWS/ZYCAP005' field v_nrseq.
set parameter id '/PWS/ZYCAP006' field v_operacao.
call transaction '/PWS/ZYCA012_E' and skip first screen.
* >> Início da inclusão: FORM DRILL_DOWN
ELSEIF v_field = '/PWS/ZYCAT031-NRSEQ_ORIGEM'.
PERFORM drill_down_origem USING v_value.
* << Fim da inclusão
endif.
clear v_okcode.
endform.
form busca_parametros_campos.
clear v_proces.
if /pws/zycat030-tp_origem = 'FI' or
/pws/zycat030-tp_origem = 'SI' or
/pws/zycat030-tp_origem = 'EI' or
/pws/zycat030-tp_origem = 'DI'.
v_proces = 'FI'.
...
...
v_valor_aux = itab_zycit047-vldp.
move:
v_count to wa_zycat031-operacao,
/pws/zycat030-cod_pais to wa_zycat031-cod_pais,
v_valor_aux to wa_zycat031-valor,
v_valor_aux to wa_zycat031-saldo,
itab_zycit094-nrseq to wa_zycat031-nrseq_origem,
wa_zycit006-nrseq to wa_zycat031-despach,
itab_zycit047-tpdesp to wa_zycat031-tpdesp,
itab_zycit019-nbs to wa_zycat031-nbs,
* >> Início da inclusão: FORM BUSCA_DESPESAS_IMP
wa_zycit006-waers TO wa_zycat031-waers,
* << Fim da inclusão
itab_zycit019-modo_prest to wa_zycat031-modo_prest.
clear: wa_zycit001_aux,
wa_zycit006_aux,
wa_zycit085_aux,
wa_zycit093_aux.
move-corresponding: wa_zycit001 to wa_zycit001_aux,
wa_zycit006 to wa_zycit006_aux,
wa_zycit085 to wa_zycit085_aux,
wa_zycit093 to wa_zycit093_aux.
perform busca_parametros_campos.
...
...
with key ebeln = wa_ekpo-ebeln
ebelp = wa_ekpo-ebelp.
move:
v_operacao to wa_zycat031-operacao,
wa_zycat046-nbs to wa_zycat031-nbs,
wa_zycat046-modo_prest to wa_zycat031-modo_prest,
wa_ekpo-netwr to wa_zycat031-valor,
wa_ekpo-netwr to wa_zycat031-saldo,
/pws/zycat030-cod_pais to wa_zycat031-cod_pais,
wa_ekpo-ebeln to wa_zycat031-nrseq_origem,
* >> Início da inclusão: FORM BUSCA_PEDIDO_COMPRA_2
wa_ekko-waers TO wa_zycat031-waers,
* << Fim da inclusão
wa_ekpo-ebelp to wa_zycat031-ebelp.
v_valor_total = v_valor_total + wa_ekpo-netwr.
move-corresponding: wa_ekko to wa_ekko_aux,
wa_eket to wa_eket_aux.
perform busca_parametros_campos.
append wa_zycat031 to itab_zycat031t.
endloop.
endloop.
move: v_valor_total to /pws/zycat030-valor.
clear: r_centro, r_pcompr, r_item, r_fornpc, r_pmoeda.
...
...
v_valor_aux = v_valor_aux * -1.
endif.
move:
v_operacao to wa_zycat031-operacao,
/pws/zycat030-cod_pais to wa_zycat031-cod_pais,
v_valor_aux to wa_zycat031-valor,
v_valor_aux to wa_zycat031-saldo,
wa_vbak-vbeln to wa_zycat031-nrseq_origem,
wa_vbap-posnr to wa_zycat031-despach,
wa_zycat046-nbs to wa_zycat031-nbs,
* >> Início da inclusão: FORM BUSCA_ORDEM_VENDA
wa_vbak-waerk TO wa_zycat031-waers,
* << Fim da inclusão
wa_zycat046-modo_prest to wa_zycat031-modo_prest.
perform busca_parametros_campos.
append wa_zycat031 to itab_zycat031t.
v_valor_total = v_valor_total + v_valor_aux.
endloop.
endloop.
move: v_valor_total to /pws/zycat030-valor,
v_valor_total to /pws/zycat030-saldo.
clear: r_vlocal, r_ordem, r_client, r_vmoeda.
refresh: r_vlocal, r_ordem, r_client, r_vmoeda.
...
...
with key bukrs_ext = /pws/zycat030-bukrs_ext.
endif.
endif.
move:
v_count to wa_zycat031-operacao,
/pws/zycat030-cod_pais to wa_zycat031-cod_pais,
v_vlme_f to wa_zycat031-valor,
v_vlme_f to wa_zycat031-saldo,
itab_zycet001-nrseq to wa_zycat031-nrseq_origem,
wa_zycat046-nbs to wa_zycat031-nbs,
* >> Início da inclusão: FORM BUSCA_EMB_EXP_3
wa_zycet008-waers TO wa_zycat031-waers,
* << Fim da inclusão
wa_zycat046-modo_prest to wa_zycat031-modo_prest.
clear: wa_zycet001_aux,
wa_zycet003_aux,
wa_zycet046_aux,
wa_zycet047_aux.
select single *
from /pws/zycet003
into wa_zycet003_aux
where nrseq = itab_zycet001-nrseq.
select single *
...
...
continue.
endif.
endif.
move:
v_count to wa_zycat031-operacao,
/pws/zycat030-cod_pais to wa_zycat031-cod_pais,
wa_zycit006-vltotal to wa_zycat031-valor,
wa_zycit006-vltotal to wa_zycat031-saldo,
itab_zycit001-nrseq to wa_zycat031-nrseq_origem,
wa_zycat046-nbs to wa_zycat031-nbs,
* >> Início da inclusão: FORM BUSCA_EMB_IMP_3
itab_zycit001-waers TO wa_zycat031-waers,
* << Fim da inclusão
wa_zycat046-modo_prest to wa_zycat031-modo_prest.
clear: wa_zycit001_aux,
wa_zycit006_aux,
wa_zycit085_aux,
wa_zycit093_aux.
select single nrseqdi
from /pws/zycit100
into v_nrseqdi
where nrseq = itab_zycit001-nrseq.
if sy-subrc eq 0.
...
...
end of itab_t001w.
data: begin of itab_zycet156 occurs 0.
include structure /pws/zycet156.
data: end of itab_zycet156.
data: begin of itab_zycet001_del occurs 0.
include structure itab_zycet001.
data: end of itab_zycet001_del.
data: begin of itab_zycet008_del occurs 0.
include structure itab_zycet008.
data: end of itab_zycet008_del.
* >> Início da inclusão: FORM BUSCA_FRETE_SEG_EXP_3
DATA: itab_zycet065 TYPE STANDARD TABLE OF /pws/zycet065,
wa_zycet065 TYPE /pws/zycet065.
* << Fim da inclusão
if not v_freteexp is initial.
v_tp_origem = 'FE'.
v_kschl = 'ZFTE'.
v_matnr = 'FRT'.
elseif not v_segexp is initial.
v_tp_origem = 'SE'.
v_kschl = 'ZSEG'.
v_matnr = 'SEG'.
endif.
select nrseq bukrs dtemb codportd
...
...
v_tabix = sy-tabix.
read table itab_zycat031t
with key nrseq_origem = itab_zycet001-nrseq.
if sy-subrc eq 0.
message i061 with text-i30 itab_zycet001-nrseq text-i32.
delete itab_zycet001 index v_tabix.
endif.
endloop.
endif.
delete itab_zycet001 where dtemb <= '20120731'.
* >> Início da exclusão: FORM BUSCA_FRETE_SEG_EXP_3
if v_tp_origem = 'FE'.
delete itab_zycet001 where inco1 ne 'EXW'
and inco1 ne 'FOB'.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_FRETE_SEG_EXP_3
SELECT * FROM /pws/zycet065
INTO TABLE itab_zycet065.
DELETE itab_zycet065 WHERE siscoserv = ' '.
LOOP AT itab_zycet001.
v_tabix = sy-tabix.
READ TABLE itab_zycet065 INTO wa_zycet065
WITH KEY inco1 = itab_zycet001-inco1.
IF sy-subrc NE 0.
DELETE itab_zycet001 INDEX v_tabix.
* << Fim da inclusão
endif.
* >> Início da inclusão: FORM BUSCA_FRETE_SEG_EXP_3
ENDLOOP.
* << Fim da inclusão
if itab_zycet001[] is initial.
p_erro = 'X'.
message i015 with text-i25 text-i26.
exit.
endif.
select werks j_1bbranch
...
...
continue.
endif.
endif.
move:
v_count to wa_zycat031-operacao,
/pws/zycat030-cod_pais to wa_zycat031-cod_pais,
v_vlme_f to wa_zycat031-valor,
v_vlme_f to wa_zycat031-saldo,
itab_zycet001-nrseq to wa_zycat031-nrseq_origem,
wa_zycat046-nbs to wa_zycat031-nbs,
* >> Início da inclusão: FORM BUSCA_FRETE_SEG_EXP_3
wa_zycet008-waers TO wa_zycat031-waers,
* << Fim da inclusão
wa_zycat046-modo_prest to wa_zycat031-modo_prest.
clear: wa_zycet001_aux,
wa_zycet046_aux,
wa_zycet047_aux.
select single *
from /pws/zycet046
into wa_zycet046_aux
where nrseq = itab_zycet001-nrseq.
select single *
from /pws/zycet047
...
...
endif.
endif.
v_valor_aux = itab_zycit094-valor.
move:
v_count to wa_zycat031-operacao,
/pws/zycat030-cod_pais to wa_zycat031-cod_pais,
v_valor_aux to wa_zycat031-valor,
v_valor_aux to wa_zycat031-saldo,
itab_zycit094-nrseq to wa_zycat031-nrseq_origem,
wa_zycat046-nbs to wa_zycat031-nbs,
* >> Início da inclusão: FORM BUSCA_FRETE_SEG_IMP_3
wa_zycit006-waers TO wa_zycat031-waers,
* << Fim da inclusão
wa_zycat046-modo_prest to wa_zycat031-modo_prest.
clear: wa_zycit001_aux,
wa_zycit006_aux,
wa_zycit085_aux,
wa_zycit093_aux.
move-corresponding: wa_zycit001 to wa_zycit001_aux,
wa_zycit006 to wa_zycit006_aux,
wa_zycit085 to wa_zycit085_aux,
wa_zycit093 to wa_zycit093_aux.
perform busca_parametros_campos.
...
...
/pws/zycat030-valor = /pws/zycat030-valor + wa_zycat031-valor.
/pws/zycat030-saldo = /pws/zycat030-valor.
perform informacoes_cabecalho.
check v_land1 ne 'BR'.
read table itab_zycat046 into wa_zycat046
with key matnr = 'FRT'.
move:
v_operacao to wa_zycat031-operacao,
wa_zycat046-nbs to wa_zycat031-nbs,
wa_zycat046-modo_prest to wa_zycat031-modo_prest,
wa_zycat031-valor TO wa_zycat031-saldo,
/pws/zycat030-cod_pais to wa_zycat031-cod_pais,
* >> Início da inclusão: FORM BUSCA_FRETE_PC
wa_ekko-waers TO wa_zycat031-waers,
* << Fim da inclusão
wa_ekpo-ebeln to wa_zycat031-nrseq_origem.
move-corresponding wa_ekko to wa_ekko_aux.
perform busca_parametros_campos.
append wa_zycat031 to itab_zycat031t.
endloop.
if itab_zycat031t[] is initial.
...
...
/pws/zycat030-valor = /pws/zycat030-valor + wa_zycat031-valor.
/pws/zycat030-saldo = /pws/zycat030-valor.
perform informacoes_cabecalho.
check v_land1 ne 'BR'.
read table itab_zycat046 into wa_zycat046
with key matnr = 'SEG'.
move:
v_operacao to wa_zycat031-operacao,
wa_zycat046-nbs to wa_zycat031-nbs,
wa_zycat046-modo_prest to wa_zycat031-modo_prest,
wa_zycat031-valor TO wa_zycat031-saldo,
/pws/zycat030-cod_pais to wa_zycat031-cod_pais,
* >> Início da inclusão: FORM BUSCA_SEGURO_PC
wa_ekko-waers TO wa_zycat031-waers,
* << Fim da inclusão
wa_ekpo-ebeln to wa_zycat031-nrseq_origem.
move-corresponding wa_ekko to wa_ekko_aux.
perform busca_parametros_campos.
append wa_zycat031 to itab_zycat031t.
endloop.
if itab_zycat031t[] is initial.
...
...
modify screen.
endif.
endloop.
if not /pws/zycat032-numero_rc is initial.
clear: itab_zycat032t-numero_rc, /pws/zycat032-numero_rc.
modify itab_zycat032t index tc_enq-current_line.
message w061 with text-i57 /pws/zycat032-cod_enquad text-i58.
endif.
endif.
endform.
* >> Início da inclusão:
FORM drill_down_origem USING p_value.
CASE /pws/zycat030-tp_origem.
WHEN 'FI' OR 'SI' OR 'EI' OR 'DI'.
SET PARAMETER ID '/PWS/ZYCIP001' FIELD p_value.
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
WHEN 'FE' OR 'SE' OR 'EE' OR 'CA'.
SET PARAMETER ID '/PWS/ZYCEP001' FIELD p_value.
CALL TRANSACTION '/PWS/ZYCE003_E' AND SKIP FIRST SCREEN.
WHEN 'PT'.
SET PARAMETER ID '/PWS/ZYGLP163' FIELD p_value.
CALL TRANSACTION '/PWS/ZYCE013_E' AND SKIP FIRST SCREEN.
WHEN 'PC' OR 'FP' OR 'SP'.
SET PARAMETER ID 'BES' FIELD p_value.
CALL TRANSACTION 'ME23N'.
WHEN 'OV'.
SET PARAMETER ID 'AUN' FIELD p_value.
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
WHEN 'DC'.
ENDCASE.
ENDFORM.
FORM verifica_alteracao_pc.
DATA: itab_ekko TYPE TABLE OF ty_ekko,
itab_ekpo TYPE TABLE OF ty_ekpo,
itab_eket TYPE TABLE OF ty_eket,
itab_zycat046 TYPE TABLE OF /pws/zycat046,
wa_zycat046 TYPE /pws/zycat046,
wa_ekko TYPE ty_ekko,
wa_ekpo TYPE ty_ekpo,
wa_eket TYPE ty_eket,
v_msg,
v_operacao TYPE /pws/zycat031-operacao.
IF NOT itab_zycat031_ant[] IS INITIAL.
SELECT ebeln bukrs lifnr
waers kdate bedat
FROM ekko
INTO TABLE itab_ekko
FOR ALL ENTRIES IN itab_zycat031_ant
WHERE ebeln = itab_zycat031_ant-nrseq_origem.
IF sy-subrc EQ 0.
SELECT ebeln ebelp matnr werks netwr pstyp j_1bmatuse
FROM ekpo
INTO TABLE itab_ekpo
FOR ALL ENTRIES IN itab_ekko
WHERE ebeln = itab_ekko-ebeln.
IF NOT itab_ekpo[] IS INITIAL.
SELECT ebeln ebelp etenr eindt
FROM eket
INTO TABLE itab_eket
FOR ALL ENTRIES IN itab_ekpo
WHERE ebeln = itab_ekpo-ebeln
AND ebelp = itab_ekpo-ebelp.
ENDIF.
ENDIF.
ENDIF.
SELECT *
FROM /pws/zycat046
INTO TABLE itab_zycat046
WHERE tpprocesso = 'A'.
DESCRIBE TABLE itab_zycat031_ant LINES v_operacao.
LOOP AT itab_ekpo INTO wa_ekpo.
READ TABLE itab_zycat031_ant INTO wa_zycat031_ant
WITH KEY nrseq_origem = wa_ekpo-ebeln
ebelp = wa_ekpo-ebelp.
IF sy-subrc NE 0.
IF wa_ekpo-pstyp NE '9' OR
NOT wa_ekpo-j_1bmatuse IS INITIAL.
READ TABLE itab_zycat046 INTO wa_zycat046
WITH KEY matnr = wa_ekpo-matnr.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
ENDIF.
CLEAR wa_zycat046.
READ TABLE itab_zycat046 INTO wa_zycat046
WITH KEY matnr = wa_ekpo-matnr.
READ TABLE itab_ekko INTO wa_ekko
WITH KEY ebeln = wa_ekpo-ebeln.
READ TABLE itab_eket INTO wa_eket
WITH KEY ebeln = wa_ekpo-ebeln
ebelp = wa_ekpo-ebelp.
v_operacao = v_operacao + 1.
CLEAR wa_zycat031.
MOVE:
v_operacao TO wa_zycat031-operacao,
wa_zycat046-nbs TO wa_zycat031-nbs,
wa_zycat046-modo_prest TO wa_zycat031-modo_prest,
wa_ekpo-netwr TO wa_zycat031-valor,
wa_ekpo-netwr TO wa_zycat031-saldo,
/pws/zycat030-cod_pais TO wa_zycat031-cod_pais,
wa_ekpo-ebeln TO wa_zycat031-nrseq_origem,
/pws/zycat030-waers TO wa_zycat031-waers,
wa_ekpo-ebelp TO wa_zycat031-ebelp.
/pws/zycat030-valor = /pws/zycat030-valor + wa_ekpo-netwr.
/pws/zycat030-saldo = /pws/zycat030-saldo + wa_ekpo-netwr.
MOVE-CORRESPONDING: wa_ekko TO wa_ekko_aux,
wa_eket TO wa_eket_aux.
PERFORM busca_parametros_campos.
APPEND wa_zycat031 TO itab_zycat031t.
IF v_msg IS INITIAL.
v_msg = 'X'.
MESSAGE i015 WITH text-i59 text-i60.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA014F01
...
v_tabix = sy-tabix.
read table itab_zycbt007 into wa_zycbt007
with key bukrs = wa_dados-bukrs.
if sy-subrc ne 0.
read table itab_zycbt007 into wa_zycbt007
index 1.
endif.
if wa_dados-waers = wa_zycbt007-waersb.
delete itab_dados index v_tabix.
endif.
* >> Início da inclusão: FORM BUSCA_PROCESSOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS'
DUMMY
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD
wa_dados-bukrs
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
DELETE itab_dados INDEX v_tabix.
ENDIF.
ELSE.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD
wa_dados-bukrs
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
DELETE itab_dados INDEX v_tabix.
ENDIF.
ENDIF.
* << Fim da inclusão
endloop.
if not itab_dados[] is initial.
refresh itab_dados_ant.
itab_dados_ant[] = itab_dados[].
tc_origens-top_line = 1.
if not v_message_store is initial.
perform message_show.
endif.
set screen 0100.
leave screen.
...
...
endform.
form trata_emb_exp.
data: v_tabix type sy-tabix,
itab_zycet043_aux type table of /pws/zycet043,
wa_zycet043_aux type /pws/zycet043.
perform progress_indicator using text-006.
refresh: itab_zycet001, itab_zycet003, itab_zycet156,
itab_zycet008, itab_zycet116, itab_zycet046,
itab_zycet047, itab_zycet002, itab_zycet037,
itab_zycet033, itab_zycet043, itab_zycet021,
* >> Início da exclusão: FORM TRATA_EMB_EXP
itab_zycet016, itab_zycet010, itab_zycet013.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EMB_EXP
itab_zycet016, itab_zycet010, itab_zycet013,
itab_zycet065.
* << Fim da inclusão
select * from /pws/zycet001
into table itab_zycet001
where nrseq in r_embexp
and bukrs in r_bukrs
and dtincl in r_data.
loop at itab_zycet001 into wa_zycet001.
v_tabix = sy-tabix.
read table itab_t001w into wa_t001w
with key werks = wa_zycet001-werks.
if sy-subrc ne 0.
...
...
move:
wa_zycet043_aux-nrseq to wa_zycet043-nrseq,
wa_zycet043_aux-nrpres to wa_zycet043-nrpres,
wa_zycet043_aux-despach to wa_zycet043-despach,
wa_zycet033-waers to wa_zycet043-waers,
wa_zycet043_aux-tpdesp to wa_zycet043-tpdesp,
wa_zycet043_aux-vldp to wa_zycet043-vldp.
collect wa_zycet043 into itab_zycet043.
endloop.
endif.
* >> Início da inclusão: FORM TRATA_EMB_EXP
SELECT * FROM /pws/zycet065
INTO TABLE itab_zycet065.
DELETE itab_zycet065 WHERE siscoserv = ' '.
* << Fim da inclusão
perform trata_frete_exp.
perform trata_seguro_exp.
perform trata_serv_exp.
perform trata_comissao.
perform trata_prest_contas.
endform.
form trata_frete_exp.
data: v_ok,
v_land1 type lfa1-land1.
perform progress_indicator using text-007.
loop at itab_zycet001 into wa_zycet001.
* >> Início da exclusão: FORM TRATA_FRETE_EXP
if wa_zycet001-inco1 ne 'FOB' and
wa_zycet001-inco1 ne 'EXW'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_FRETE_EXP
READ TABLE itab_zycet065 INTO wa_zycet065
WITH KEY inco1 = wa_zycet001-inco1.
IF sy-subrc NE 0.
* << Fim da inclusão
continue.
endif.
if wa_zycet001-dtemb <= '20120731'.
continue.
endif.
if not wa_zycet001-codportd in r_kunnr.
continue.
endif.
clear: wa_dados, wa_zycet003, wa_zycet116, wa_t001w,
wa_zycet046, wa_zycet047.
...
...
wa_dados-cod_pais
wa_dados-tp_processo.
append wa_dados to itab_dados.
endloop.
endform.
form trata_seguro_exp.
data: v_ok,
v_land1 type lfa1-land1.
perform progress_indicator using text-008.
loop at itab_zycet001 into wa_zycet001.
* >> Início da exclusão: FORM TRATA_SEGURO_EXP
if wa_zycet001-inco1 ne 'FOB' and
wa_zycet001-inco1 ne 'EXW'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_SEGURO_EXP
READ TABLE itab_zycet065 INTO wa_zycet065
WITH KEY inco1 = wa_zycet001-inco1.
IF sy-subrc NE 0.
* << Fim da inclusão
continue.
endif.
if wa_zycet001-dtemb <= '20120731'.
continue.
endif.
if not wa_zycet001-codportd in r_kunnr.
continue.
endif.
clear: wa_dados, wa_zycet003, wa_zycet116, wa_t001w,
wa_zycet046, wa_zycet047.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA014O01
MODULE status_0001 OUTPUT.
SET PF-STATUS '0001'.
SET TITLEBAR '001'.
* >> Início da inclusão: MODULE STATUS_0001
authority-check object 'S_TCODE' id 'TCD' field sy-tcode.
if sy-subrc ne 0.
message e015 with text-e13.
endif.
* << Fim da inclusão
ENDMODULE.
MODULE status_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '100'.
LOOP AT tc_origens-cols INTO wa_cols.
IF wa_cols-screen-name = '/PWS/ZYCAT031-DESPACH' OR
wa_cols-screen-name = '/PWS/ZYCAT031-EBELP' OR
wa_cols-screen-name = '/PWS/ZYCAT031-TPDESP' or
wa_cols-screen-name = 'BKPF-GJAHR'.
wa_cols-invisible = '1'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA014TOP
...
itab_zycet008 type table of /pws/zycet008,
itab_zycet010 type table of /pws/zycet010,
itab_zycet013 type table of /pws/zycet013,
itab_zycet016 type table of /pws/zycet016,
itab_zycet021 type table of /pws/zycet021,
itab_zycet033 type table of /pws/zycet033,
itab_zycet037 type table of /pws/zycet037,
itab_zycet043 type table of /pws/zycet043,
itab_zycet046 type table of /pws/zycet046,
itab_zycet047 type table of /pws/zycet047,
* >> Início da inclusão:
itab_zycet065 type table of /pws/zycet065,
* << Fim da inclusão
itab_zycet116 type table of /pws/zycet116,
itab_zycet156 type table of /pws/zycet156,
itab_zycat031 type table of /pws/zycat031,
itab_zycat032 type table of /pws/zycat032,
itab_zycat032t type table of ty_zycat032t,
itab_zycat043 type table of /pws/zycat043,
itab_zycat045 type table of /pws/zycat045,
itab_zycat046 type table of /pws/zycat046,
itab_zycat048 type table of /pws/zycat048,
itab_zycat049 type table of /pws/zycat049,
...
...
wa_zycet010 type /pws/zycet010,
wa_zycet013 type /pws/zycet013,
wa_zycet008 type /pws/zycet008,
wa_zycet016 type /pws/zycet016,
wa_zycet021 type /pws/zycet021,
wa_zycet033 type /pws/zycet033,
wa_zycet037 type /pws/zycet037,
wa_zycet043 type /pws/zycet043,
wa_zycet046 type /pws/zycet046,
wa_zycet047 type /pws/zycet047,
* >> Início da inclusão:
wa_zycet065 type /pws/zycet065,
* << Fim da inclusão
wa_zycet116 type /pws/zycet116,
wa_zycet156 type /pws/zycet156,
wa_zycat032 type /pws/zycat032,
wa_zycat032t type ty_zycat032t,
wa_zycat043 type /pws/zycat043,
wa_zycat045 type /pws/zycat045,
wa_zycat046 type /pws/zycat046,
wa_zycat048 type /pws/zycat048,
wa_zycat049 type /pws/zycat049,
wa_zycat050 type /pws/zycat050,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCA011
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: EN
Símbolo: I03
Texto: (5 caracteres)
"Quit?"
Comprimento máximo: 23
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: I59
Texto: (45 caracteres)
"New operations will be automatically included"
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: I59
Texto: (47 caracteres)
"Novas operações serão incluídas automaticamente"
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: I59
Texto: (47 caracteres)
"Las nuevas operaciones se incluirán de forma au"
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: I60
Texto: (36 caracteres)
"because of additions made in the pur"
Comprimento máximo: 36
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: I60
Texto: (36 caracteres)
"devido a inclusões feitas no pedido."
Comprimento máximo: 36
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: I60
Texto: (35 caracteres)
"debido a las adiciones hechas en el"
Comprimento máximo: 36
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCA014
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: EN
Símbolo: E09
Texto: (23 caracteres)
"Error in generating XML"
Comprimento máximo: 23
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: ES
Símbolo: E09
Texto: (23 caracteres)
"Error en generación XML"
Comprimento máximo: 23
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: EN
Símbolo: E10
Texto: (31 caracteres)
"Check the process individually."
Comprimento máximo: 37
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: ES
Símbolo: E10
Texto: (37 caracteres)
"Compruebe el proceso de forma individ"
Comprimento máximo: 37
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: EN
Símbolo: E11
Texto: (26 caracteres)
"Error in generating RAS/RV"
Comprimento máximo: 26
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: ES
Símbolo: E11
Texto: (26 caracteres)
"Error en la gen.de RAS/RVS"
Comprimento máximo: 26
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E13
Texto: (44 caracteres)
"User does not authorization for the trasctio"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E13
Texto: (44 caracteres)
"Usuário não tem autorização para a transação"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E13
Texto: (44 caracteres)
"El usuario no tiene autorización para la tra"
Comprimento máximo: 44
------------------------------------------------------------------------
Modificado texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): R_DATA
Texto: (14 caracteres)
"Fecha:"
Referência ao Dictionary: NÃO