CE PLUS - Nota 010219
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Despesas
Data/Hora da Publicação: 28/05/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:28:02
Descrição da Nota: SOCIEDADE PARCEIRA DESPESAS
Sintoma
Necessidade de tratamento sociedade parceira na funcionalidade de despesas.
Solução
Tratamento sociedade parceira na funcionalidade de despesas.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10219 Data: 28/05/2010 Hora: 17:18:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10219
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00023
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01433 - 00001 - 6.0 - 00023 - PADRONIZAÇÃO E TRADUÇÃO DA CLASSE /PWS/ZYGL.
01909 - 00002 - 6.0 - 00024 - DESPESAS - PERMISSÃO BOLETO
06077 - 00003 - 7.0 - 00004 - DESPESAS DE EXPORTAÇÃO
06087 - 00004 - 7.0 - 00004 - CODE INSPECTOR, VERIFICAÇÃO AMPLIADA - CAMBIO
09651 - 00005 - 8.0 - 00002 - CONTABILIZAÇÃO DE DESPESAS E REMESSAS CAMPO CONDIÇÃO DE PAGAMENTO
09923 - 00006 - 8.0 - 00002 - VERIFICAÇÃO PERÍODO ABERTO/FECHADO NÃO FUNCIONA - IMPACTO PELO NE
10188 - 00007 - 8.0 - 00003 - MAPEAMENTO SOCIEDADE PARCEIRA NAS CONTABILIZAÇÕES
10210 - 00008 - 8.0 - 00003 - SOCIEDADE PARCEIRA FINANCIAMENTO
10215 - 00009 - 8.0 - 00003 - REMESSA FINANCEIRA, CONTABILIZAÇÃO SOCIEDADE PARCEIRA
10218 - 00010 - 8.0 - 00003 - SOCIEDADE PARCEIRA EMPRÉSTIMO
----------------------------------------------------------------------------------------------------
SOCIEDADE PARCEIRA DESPESAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
SOCIEDADE PARCEIRA DESPESA
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB105 0102
REPS /PWS/MZYCB105F01
REPS /PWS/MZYCB105O01
REPS /PWS/MZYCB105TOP
TABD /PWS/ZYCBE118
TABD /PWS/ZYCBT118
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB105 0102
"Favor solicitar a equipe de produto - pw.CE - Câmbio, arquivo para efetuar upload das alterações
desta tela. Tel.: 11 5504 0170."
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105F01
...
endif.
endif.
else.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
endif.
endif.
endform.
form verifica_ateracoes.
* >> Início da inclusão: FORM VERIFICA_ATERACOES
CLEAR /pws/zyglt009.
SELECT SINGLE *
FROM /pws/zyglt009
WHERE bukrs EQ /pws/zycbe118-bukrs.
IF /pws/zyglt009-flag_soc_parceir NE 'X'.
CLEAR: /pws/zycbe118-vbund,
wa_zycbt118-vbund.
ENDIF.
* << Fim da inclusão
if v_status_s = '1' or v_status_s is initial.
if sy-tcode eq '/PWS/ZYCB105_A' and v_excluido = 'N'
or sy-tcode eq '/PWS/ZYCB105_C'.
if /pws/zycbe118 = wa_zycbt118.
v_answer = 'N'.
else.
perform popup_message using text-001 text-002.
endif.
if v_answer = 'J'.
perform salvar_dados.
...
...
itab_zycbe033-d_kostl = itab_zycbe033-c_kostl.
else.
itab_zycbe033-d_kostl = /pws/zycbe118-kostl.
itab_zycbe033-c_kostl = /pws/zycbe118-kostl.
endif.
itab_zycbe033-d_prctr = /pws/zycbe118-prctr.
itab_zycbe033-d_fipos = /pws/zycbe118-fipos.
itab_zycbe033-c_prctr = /pws/zycbe118-prctr.
itab_zycbe033-c_fipos = /pws/zycbe118-fipos.
itab_zycbe033-c_gsber = /pws/zycbe118-gsber.
* >> Início da inclusão: FORM CONTABILIZA_F-63
itab_zycbe033-vbund = /pws/zycbe118-vbund.
* << Fim da inclusão
if not /pws/zycbe118-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe118-bukrs
/pws/zycbe118-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe118-j_1bbranch.
else.
select single * from t001w where werks = /pws/zycbe118-werks.
if sy-subrc = 0 and not t001w-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe118-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
...
...
up to 1 rows
into adrc-country
where addrnumber = j_1bbranch-adrnr.
endselect.
if sy-subrc = 0 and
adrc-country ne 'BR' and adrc-country ne 'TW'.
clear p_brnch.
endif.
endif.
endform.
* >> Início da inclusão:
FORM propoe_sociedade.
IF /pws/zycbe118-vbund IS INITIAL
AND v_propoe_sociedade IS INITIAL
AND sy-tcode EQ '/PWS/ZYCB105_C'.
CASE /pws/zycbe118-codmodul.
WHEN 'FI'.
SELECT SINGLE vbund
FROM /pws/zycbt112
INTO /pws/zycbe118-vbund
WHERE nrseq EQ /pws/zycbe118-nrref.
IF sy-subrc EQ 0.
MOVE 'X' TO v_propoe_sociedade.
ENDIF.
WHEN 'F'.
SELECT SINGLE vbund
FROM /pws/zycbt124
INTO /pws/zycbe118-vbund
WHERE nrseq EQ /pws/zycbe118-nrref.
IF sy-subrc EQ 0.
MOVE 'X' TO v_propoe_sociedade.
ENDIF.
WHEN 'FR'.
SELECT SINGLE vbund
FROM /pws/zycbt128
INTO /pws/zycbe118-vbund
WHERE nrseq EQ /pws/zycbe118-nrref.
IF sy-subrc EQ 0.
MOVE 'X' TO v_propoe_sociedade.
ENDIF.
ENDCASE.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105O01
...
v_empresa,
v_divisao,
v_txtinf,
v_werks,
v_codmod.
IMPORT v_assoc v_numero v_empresa v_divisao v_txtinf v_codmod v_werks
v_remessa FROM MEMORY ID '001'.
SELECT * FROM /pws/zycbt118
INTO TABLE itab_zycbt118
WHERE codmodul = v_assoc
* >> Início da exclusão: MODULE LOAD_DATA_0001
AND nrref = v_numero."#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_0001
and nrref = v_numero. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
LOOP AT itab_zycbt118.
MOVE: itab_zycbt118-nrref TO /pws/zycbe118-nrref,
itab_zycbt118-j_1bbranch TO
/pws/zycbe118-j_1bbranch,
itab_zycbt118-werks TO /pws/zycbe118-werks,
itab_zycbt118-bukrs TO /pws/zycbe118-bukrs,
itab_zycbt118-gsber TO /pws/zycbe118-gsber,
itab_zycbt118-nrseq TO /pws/zycbe118-nrseq,
itab_zycbt118-nrdesp TO /pws/zycbe118-nrdesp,
...
...
ELSE.
LOOP AT SCREEN.
screen-input = 1.
IF /pws/zycbe118-fcambio EQ 'N'
AND NOT /pws/zycbe118-belnr_p IS INITIAL
AND v_estorno IS INITIAL.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
* >> Início da inclusão: MODULE FECHA_CAMPOS
clear /pws/zyglt009.
select single *
from /pws/zyglt009
where bukrs eq /pws/zycbe118-bukrs.
if /pws/zyglt009-flag_soc_parceir ne 'X'.
loop at screen.
if screen-name eq '/PWS/ZYCBE118-VBUND'.
screen-input = 0.
modify screen.
clear: /pws/zycbe118-vbund,
/pws/zycbt118-vbund.
endif.
endloop.
else.
perform propoe_sociedade.
endif.
* << Fim da inclusão
ENDIF.
ENDMODULE.
MODULE trata_campos OUTPUT.
CLEAR: itab_t320[],
itab_nome_campo[],
v_nome_campo,
v_comp.
IF sy-dynnr EQ '0102' .
v_cod_grupo = 'CCO'.
ELSEIF sy-dynnr EQ '0103'.
v_cod_grupo = 'CCR'.
ENDIF.
SELECT campo flag
FROM /pws/zyglt320
INTO TABLE itab_t320
WHERE programa = sy-repid AND
tela = sy-dynnr AND
* >> Início da exclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo."#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo. "#EC CI_NOFIRST
* << Fim da inclusão
SORT itab_t320 BY campo.
LOOP AT SCREEN.
itab_nome_campo-nome_campo_tela = screen-name.
APPEND itab_nome_campo.
ENDLOOP.
SORT itab_nome_campo.
LOOP AT itab_t320.
CONCATENATE '.' itab_t320-campo '.' INTO v_comp.
SEARCH itab_nome_campo FOR v_comp STARTING AT 1.
IF sy-subrc EQ 0.
...
...
MODULE load_html_help OUTPUT.
IF my_container IS INITIAL.
CREATE OBJECT my_container
EXPORTING
container_name = 'CC_HTML_HELP'
EXCEPTIONS
others = 1.
CASE sy-subrc.
WHEN 0.
WHEN OTHERS.
* >> Início da exclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error."#EC *
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_HTML_HELP
raise cntl_error. "#EC *
* << Fim da inclusão
ENDCASE.
ENDIF.
IF html_control IS INITIAL.
CREATE OBJECT html_control
EXPORTING
parent = my_container.
IF sy-subrc NE 0.
* >> Início da exclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error."#EC *
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_HTML_HELP
raise cntl_error. "#EC *
* << Fim da inclusão
ENDIF.
alignment = html_control->align_at_left +
html_control->align_at_right +
html_control->align_at_top +
html_control->align_at_bottom.
CALL METHOD html_control->set_alignment
EXPORTING
alignment = alignment.
myevent-eventid = html_control->m_id_sapevent.
myevent-appl_event = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105TOP
...
DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.
TABLES:
/pws/zyglt364,
/pws/zyglt214,
/pws/zycbt011,
/pws/zycbt031,
/pws/zycbt134,
/pws/zycbt039,
/pws/zycbt007,
/pws/zycbt015,
* >> Início da exclusão:
/pws/zycbt064,"#EC *
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt064, "#EC *
* << Fim da inclusão
/pws/zyglt209,
/pws/zygle209,
/pws/zyglt009,
/pws/zyglt340,
/pws/zyglt343,
rm06b,
t16fe,
bkpf,
tcurt,
t001w,
j_1bbranch,
adrc.
CONTROLS: ts_despesas TYPE TABSTRIP.
INCLUDE /pws/zygli101.
* >> Início da exclusão:
DATA v_tela_help LIKE sy-dynnr VALUE '0052'."#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão:
data v_tela_help like sy-dynnr value '0052'. "#EC NEEDED
* << Fim da inclusão
DATA:
wa_zycbt031a LIKE /pws/zycbe031,
wa_zycbt064a LIKE /pws/zycbe064.
DATA: BEGIN OF itab_result OCCURS 0.
INCLUDE STRUCTURE ddshretval.
DATA: END OF itab_result.
DATA: BEGIN OF itab_pf_status OCCURS 10,
fcode LIKE rsmpe-func,
END OF itab_pf_status.
DATA: BEGIN OF itab_zyglt209 OCCURS 0.
...
...
DATA: BEGIN OF itab_zycbt034_est OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt034.
DATA: END OF itab_zycbt034_est.
DATA: BEGIN OF itab_zyglt321 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt321.
DATA: END OF itab_zyglt321.
DATA: BEGIN OF itab_modo OCCURS 0.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
DATA: itab_zycbt032 LIKE /pws/zycbt032 OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão:
DATA: BEGIN OF itab_thead OCCURS 50."#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão:
data: begin of itab_thead occurs 50. "#EC NEEDED
* << Fim da inclusão
INCLUDE STRUCTURE thead.
DATA: END OF itab_thead.
DATA: BEGIN OF itab_tline OCCURS 50.
INCLUDE STRUCTURE tline.
DATA: END OF itab_tline.
DATA: BEGIN OF it_erro OCCURS 0,
nrseq LIKE /pws/zycbt118-nrseq,
msg(100) TYPE c,
END OF it_erro.
DATA: BEGIN OF itab_zyglt316 OCCURS 10.
...
...
v_erro_fbra(1) TYPE c,
v_lock VALUE 0,
norma LIKE /pws/zyglt214-norma,
v_display,
v_ano LIKE t009b-bdatj,
v_area LIKE /pws/zycbt119-cod_area,
v_txest LIKE /pws/zycbe033-kursf,
v_syrepid LIKE sy-repid,
v_sydynnr LIKE sy-dynnr,
v_visivel LIKE /pws/zyglt319-visivel,
* >> Início da exclusão:
v_tcodebotao LIKE /pws/zyglt319-tcode,"#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão:
v_tcodebotao like /pws/zyglt319-tcode, "#EC NEEDED
* << Fim da inclusão
erro_bi(1) TYPE c,
v_ms(5) TYPE c,
v_flag TYPE c,
* >> Início da inclusão:
v_propoe_sociedade type c,
* << Fim da inclusão
v_nome_campo(35) TYPE c,
v_comp(35) TYPE c,
v_cod_grupo LIKE /pws/zyglt320-cod_grupo,
wa_zycbe118_aux LIKE /pws/zycbe118,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBE118
Campos novos
VBUND RASSC CHAR 6 0 Nº sociedade parceira
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT118
Campos novos
VBUND RASSC CHAR 6 0 Nº sociedade parceira
VBUND RASSC CHAR 6 0 Nº sociedade parceira
VBUND RASSC CHAR 6 0 Nº sociedade parceira