CE PLUS - Nota 014033
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: SISCOSERV
Data/Hora da Publicação: 07/07/2014 16:02:16
Data/Hora Última Alteração: 07/07/2014 16:02:16
Descrição da Nota: SISCOSERV - ASSOCIAÇÃO
Sintoma
Ajustes Homologação
Solução
Ajustes Homologação
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 14033 Data: 13/06/2014 Hora: 10:05:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 14033
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00171
----------------------------------------------------------------------------------------------------
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
13889 - 00002 - 9.0 - 00007 - SISCOSERV - EXCLUSÃO DE RAS/RVS - STATUS EM PROCESSAMENTO
----------------------------------------------------------------------------------------------------
SISCOSERV - ASSOCIAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
SISCOSERV - ASSOCIAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCA014 0100
REPS /PWS/MZYCA011F01
REPS /PWS/MZYCA012F01
REPS /PWS/MZYCA013F01
REPS /PWS/MZYCA014F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCA014 0100
Efetuar download da(s) tela(s) no Portal de Produtos, caminho:
Aplicativos -> pw.CE > Notas > NOTAS - TELAS > CAMBIO > 97021_TELA.ZIP
Descompactar e efetuar upload no programa e tela correspondente, transação SE80.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA011F01
...
nrseq TYPE /pws/zycit006-nrseq,
tpfatura TYPE /pws/zycit006-tpfatura,
vlmerc TYPE /pws/zycit006-vlmerc,
vlfre TYPE /pws/zycit006-vlfre,
vlseg TYPE /pws/zycit006-vlseg,
vltotal TYPE /pws/zycit006-vltotal,
lifnr TYPE /pws/zycit006-lifnr,
nrseqce TYPE /pws/zycit006-nrseqce,
nrseq_pgfat TYPE /pws/zycit006-nrseq_pgfat,
dtincl TYPE /pws/zycit006-dtincl,
* >> Início da inclusão: FORM BUSCA_FRETE_SEG_IMP_3
waers type /pws/zycit006-waers,
* << Fim da inclusão
END OF itab_zycit006,
BEGIN OF itab_zycit001 OCCURS 0,
nrseq TYPE /pws/zycit001-nrseq,
bukrs TYPE /pws/zycit001-bukrs,
waers TYPE /pws/zycit001-waers,
j_1bbranch TYPE /pws/zycit001-j_1bbranch,
modalidade TYPE /pws/zycit001-modalidade,
dtinicio TYPE /pws/zycit001-dtinicio,
inco1 TYPE /pws/zycit001-inco1,
END OF itab_zycit001,
...
...
END OF itab_zycit085.
DATA: BEGIN OF itab_zycit001_del OCCURS 0.
INCLUDE STRUCTURE itab_zycit001.
DATA: END OF itab_zycit001_del.
DATA: BEGIN OF itab_zycit094_del OCCURS 0.
INCLUDE STRUCTURE itab_zycit094.
DATA: END OF itab_zycit094_del.
DATA: BEGIN OF itab_zycit031 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit031.
DATA: END OF itab_zycit031.
* >> Início da inclusão: FORM BUSCA_FRETE_SEG_IMP_3
data: v_waersb type /pws/zycbt007-waersb.
* << Fim da inclusão
IF NOT v_freteimp IS INITIAL.
v_tp_origem = 'FI'.
v_tp_fatura = '02'.
v_matnr = 'FRT'.
ELSEIF NOT v_segimp IS INITIAL.
v_tp_origem = 'SI'.
v_tp_fatura = '03'.
v_matnr = 'SEG'.
ENDIF.
SELECT nrseqce nrseq
...
...
ENDIF.
ENDIF.
ENDLOOP.
IF itab_zycit094[] IS INITIAL.
p_erro = 'X'.
MESSAGE i015 WITH text-i25 text-i26.
EXIT.
ENDIF.
SELECT nrseq tpfatura vlmerc vlfre
vlseg vltotal lifnr nrseqce
* >> Início da exclusão: FORM BUSCA_FRETE_SEG_IMP_3
nrseq_pgfat dtincl
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_FRETE_SEG_IMP_3
nrseq_pgfat dtincl waers
* << Fim da inclusão
FROM /pws/zycit006
INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_zycit094
WHERE nrseqce = itab_zycit094-nrseqce
AND eliminado = ' '
AND ( tpfatura = '01' OR
tpfatura = '02' OR
tpfatura = '03').
DELETE itab_zycit006 WHERE vlfre IS initial
AND vlseg IS initial.
...
...
v_count = v_count + 1.
READ TABLE itab_zycit001
INTO wa_zycit001 WITH KEY nrseq = itab_zycit094-nrseq.
READ TABLE itab_zycit093
INTO wa_zycit093 WITH KEY nrseqce = itab_zycit094-nrseqce.
READ TABLE itab_zycit085
INTO wa_zycit085 WITH KEY nrbl = itab_zycit094-nrseqce.
READ TABLE itab_zycit006 INTO wa_zycit006
WITH KEY nrseqce = itab_zycit094-nrseqce
tpfatura = itab_zycit094-tpfatura.
* >> Início da inclusão: FORM BUSCA_FRETE_SEG_IMP_3
clear v_waersb.
select single waersb
from /pws/zycbt007
into v_waersb
where bukrs = wa_zycit001-bukrs.
if sy-subrc ne 0.
select waersb up to 1 rows
from /pws/zycbt007
into v_waersb.
endselect.
endif.
if wa_zycit006-waers = v_waersb.
continue.
endif.
* << Fim da inclusão
IF v_count EQ 1.
MOVE:
wa_zycit001-bukrs TO /pws/zycat030-bukrs,
wa_zycit001-j_1bbranch TO /pws/zycat030-j_1bbranch,
* >> Início da exclusão: FORM BUSCA_FRETE_SEG_IMP_3
wa_zycit001-waers TO /pws/zycat030-waers,
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_FRETE_SEG_IMP_3
wa_zycit006-waers to /pws/zycat030-waers,
* << Fim da inclusão
wa_zycit006-lifnr TO /pws/zycat030-bukrs_ext,
'A' TO /pws/zycat030-tp_processo,
v_tp_origem TO /pws/zycat030-tp_origem.
PERFORM informacoes_cabecalho.
ELSE.
IF wa_zycit001-bukrs NE /pws/zycat030-bukrs OR
wa_zycit006-lifnr NE /pws/zycat030-bukrs_ext OR
wa_zycit001-waers NE /pws/zycat030-waers.
MESSAGE i061
WITH text-i30 itab_zycit094-nrseq text-i33 text-i34.
...
...
APPEND wa_src TO itab_src.
CLEAR wa_src.
CALL METHOD editor->set_text_as_r3table
EXPORTING table = itab_src[].
ENDIF.
ENDLOOP.
MOVE: v_valor_soma TO /pws/zycat030-valor,
v_valor_soma TO /pws/zycat030-saldo.
CLEAR: r_filimp, r_embimp, r_forimp, r_moeimp.
REFRESH: r_embimp, r_embimp, r_forimp, r_moeimp.
* >> Início da inclusão: FORM BUSCA_FRETE_SEG_IMP_3
if itab_zycat031t[] is initial.
p_erro = 'X'.
message i015 with text-i25 text-i26.
endif.
* << Fim da inclusão
ENDFORM.
FORM verifica_lote_inclusao.
DATA: itab_zycat034 TYPE TABLE OF /pws/zycat034,
itab_zycat038 TYPE TABLE OF /pws/zycat038,
wa_zycat034 TYPE /pws/zycat034,
wa_zycat038 TYPE /pws/zycat038.
CHECK /pws/zycat030-status = 'EP'.
SELECT * FROM /pws/zycat034
INTO TABLE itab_zycat034
WHERE nrseq = /pws/zycat030-nrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA012F01
...
/pws/zycat030-tp_origem = 'DI'.
wa_zycat039f-fat_imp = wa_zycat030-origem.
perform atualiza_itab tables itab_zycat039_f
using wa_zycat039f
tc_fatimp.
elseif /pws/zycat030-tp_origem = 'FE' or
/pws/zycat030-tp_origem = 'SE' or
/pws/zycat030-tp_origem = 'EE'.
wa_zycat039fe-fat_exp = wa_zycat030-origem.
wa_zycat039fe-moeda = /pws/zycat030-waers.
* >> Início da exclusão: FORM SELECIONA_DADOS_MODIF
wa_zycat039fe-valor = /pws/zycat030-valor.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_MODIF
wa_zycat039fe-valor = /pws/zycat031-valor.
* << Fim da inclusão
perform atualiza_itab tables itab_zycat039_fe
using wa_zycat039fe
tc_fatexp.
elseif /pws/zycat030-tp_origem = 'CA'.
select single dtvencto
into wa_zycat039c-dtvencto
from /pws/zycet010
where nrseq = wa_zycat030-origem
and lifnr = /pws/zycat030-bukrs_ext.
wa_zycat039c-fat_comis = wa_zycat030-origem.
wa_zycat039c-moeda = /pws/zycat030-waers.
* >> Início da exclusão: FORM SELECIONA_DADOS_MODIF
wa_zycat039c-valor = /pws/zycat030-valor.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_MODIF
wa_zycat039c-valor = /pws/zycat031-valor.
* << Fim da inclusão
wa_zycat039c-lifnr = /pws/zycat030-bukrs_ext.
perform atualiza_itab tables itab_zycat039_c
using wa_zycat039c
tc_comag.
elseif /pws/zycat030-tp_origem = 'PT'.
perform verifica_associacao_pt using /pws/zycat039-nrseq
/pws/zycat039-operacao
changing v_tipo_pt
v_dtcredpr
v_nrseqrem
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA013F01
...
PERFORM user_command_0003.
WHEN '0100'.
PERFORM user_command_0100.
ENDCASE.
ENDFORM.
FORM user_command_0001.
CASE sy-ucomm.
WHEN 'CRET'.
PERFORM seleciona_dados.
ENDCASE.
* >> Início da inclusão: FORM USER_COMMAND_0001
IF sy-ucomm(3) NE '%00'.
* << Fim da inclusão
SET SCREEN 0001.
LEAVE SCREEN.
* >> Início da inclusão: FORM USER_COMMAND_0001
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM seleciona_dados.
DATA: wa_zycat034 TYPE /pws/zycat034, "#EC NEEDED
wa_zycat038 TYPE /pws/zycat038,
v_bloq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA014F01
...
screen-input = 0.
REFRESH r_belnr.
ELSE.
screen-input = 1.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM busca_processos.
* >> Início da inclusão: FORM BUSCA_PROCESSOS
data: v_tabix type sy-tabix.
* << Fim da inclusão
CLEAR v_message_store.
REFRESH: itab_dados , itab_lfa1, itab_kna1, itab_t001w,
itab_enquad.
IF p_ebeln IS INITIAL AND
p_vbeln IS INITIAL AND
p_embimp IS INITIAL AND
p_embexp IS INITIAL AND
p_belnr IS INITIAL.
CLEAR v_okcode.
MESSAGE i015 WITH text-e01 text-e02.
...
...
ENDIF.
IF NOT p_ebeln IS INITIAL.
PERFORM trata_pedido_compra.
ENDIF.
IF NOT p_vbeln IS INITIAL.
PERFORM trata_ordem_venda.
ENDIF.
IF NOT p_belnr IS INITIAL.
PERFORM trata_belnr.
ENDIF.
* >> Início da inclusão: FORM BUSCA_PROCESSOS
loop at itab_dados into wa_dados.
clear wa_zycbt007.
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.
endloop.
* << Fim da inclusão
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.
ELSE.
...