CE PLUS - Nota 007820
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 19/12/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:41:22
Descrição da Nota: FLEXIBILIZAR AS CONTAS DE BANCO NO PROGRAMA DE VALORES MANTIDOS EXTERIOR
Sintoma
desenvolvimento Adicional
Solução
desenvolvimento Adicional
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07820 Data: 19/12/2008 Hora: 19:06:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07820
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00077
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05482 - 00004 - 7.0 - 00003 - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO
06218 - 00003 - 7.0 - 00005 - VALORES MANTIDOS NO EXTERIOR - DISPONIBILIDADE NO EXTERIOR
07117 - 00002 - 7.0 - 00006 - BOTÕES "VINCULAR TOTAL" E "SELECIONAR FATURAS" - VME
07188 - 00001 - 7.0 - 00006 - VALORES MANTIDOS NO EXTERIOR - SALDO DISPONIBILIDADE - VLSLF NEGA
----------------------------------------------------------------------------------------------------
FLEXIBILIZAR AS CONTAS DE BANCO NO PROGRAMA DE VALORES MANTIDOS EXTERIOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
FLEXIBILIZAR AS CONTAS DE BANCO NO PROGRAMA DE VALORES MANTIDOS EXTERIOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB034 0110
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB034I01
REPS /PWS/MZYCB034TOP
TABD /PWS/ZYCBE226
TABD /PWS/ZYCBT226
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB034 0110
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0110
...
MODULE: verifica_vlr_exterior,
verifica_dt_limite,
verifica_periodo_contabil,
atualiza_tc_op.
ENDLOOP.
module preenche_table_control.
MODULE: user_command,
user_command_exit AT EXIT-COMMAND.
PROCESS ON VALUE-REQUEST.
FIELD /pws/zycbe226-nrinvoic MODULE get_invoice.
* >> Início da inclusão:
FIELD: /PWS/ZYCBE226-BCO_ME MODULE ajuda_pesquisa.
* << Fim da inclusão
******************************************************************
FAVOR PEDIR O ARQUIVO DA TELA 0110 PARA UPLOAD
******************************************************************
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
ENDIF.
ELSEIF sy-tcode EQ c_transacao_c AND
opt_origem_embarque EQ 'X' AND
/pws/zycbe226-tipo_op NE 'E'.
/pws/zycbe226-tipo_op = 'E'.
ENDIF.
MOVE-CORRESPONDING /pws/zycbe226 TO wa_zycbt226.
IF NOT wa_zycbt226-belnr_op2 IS INITIAL.
MOVE wa_zycbt226-belnr_op2 TO /pws/zycbe226-belnr_op.
ENDIF.
* >> Início da inclusão: FORM ATUALIZA_TC_OP
if /pws/zycbe226-belnr_op is initial.
PERFORM altera_conta_contabil .
endif.
if v_conta is initial.
wa_zycbt226-conta_contab = /pws/zycbe226-conta_contab .
else.
wa_zycbt226-conta_contab = v_conta.
endif.
* << Fim da inclusão
wa_zycbt226-mark = v_mark.
MODIFY itab_zycbt226 FROM wa_zycbt226 INDEX tc_op-current_line.
IF sy-subrc NE 0.
APPEND wa_zycbt226 TO itab_zycbt226.
ENDIF.
wa_controle-tc_linhas = sy-loopc.
v_check = ' ' .
ENDFORM.
FORM marcar_estorno
USING value(p_valor)
...
...
ENDIF.
IF p_estorno IS INITIAL.
p_wa_zycbe033-newbs = '40'.
ELSE.
p_wa_zycbe033-newbs = '50'.
ENDIF.
p_wa_zycbe033-agkoa = 'S'.
CLEAR p_wa_zycbe033-umskz.
v_banco = <fs_op>-bco_me.
SHIFT v_banco LEFT DELETING LEADING '0'.
* >> Início da inclusão: FORM BUSCA_CONTA
if <fs_op>-CONTA_CONTAB is initial.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = <fs_op>-bukrs
ktosl = 'FBK'
codaux1 = v_banco
codaux2 = <fs_op>-waers
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
IF sy-subrc = 0.
ELSE.
ENDIF.
READ TABLE itab_zyglt316 INTO wa_zyglt316 INDEX 1.
IF sy-subrc = 0.
p_wa_zycbe033-d_newko = wa_zyglt316-konts.
* >> Início da inclusão: FORM BUSCA_CONTA
ENDIF.
else.
p_wa_zycbe033-d_newko = <fs_op>-CONTA_CONTAB.
* << Fim da inclusão
ENDIF.
IF p_estorno IS INITIAL.
atualiza_cmps_contabeis_op 'S'
p_wa_zycbe033-d_newko
' ' .
ENDIF.
PERFORM preenche_contas_bloqueio USING sy-mandt
<fs_op>-bukrs
p_wa_zycbe033-agkoa
p_wa_zycbe033-d_newko
...
...
IF v_nlin IS INITIAL.
MESSAGE w015 WITH text-m48.
ELSE.
v_select = 'X'.
v_check = 'X'.
SET SCREEN '0100'.
LEAVE TO SCREEN '0100'.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM adiciona_linha_tc
USING
value(p_fieldname) TYPE dynpread-fieldname
value(p_fieldvalue)
value(p_stepl) TYPE dynpread-stepl
CHANGING
tdynpread TYPE t_itab_dynpread.
DATA:
wa_dynpread TYPE dynpread.
IF /PWS/ZYCBE226-BCO_ME NE '00'.
wa_dynpread-fieldname = p_fieldname.
wa_dynpread-fieldvalue = p_fieldvalue.
wa_dynpread-stepl = p_stepl.
APPEND wa_dynpread TO tdynpread.
ENDIF.
ENDFORM.
form altera_conta_contabil.
CHECK NOT /pws/zycbe226-BCO_ME IS INITIAL.
SHIFT /pws/zycbe226-BCO_ME LEFT DELETING LEADING '0'.
if /pws/zycbe226-conta_contab IS INITIAL OR
( NOT /pws/zycbe226-conta_contab IS INITIAL AND
/pws/zycbe226-BCO_ME NE v_bco_cab ).
v_codaux1 = /pws/zycbe226-BCO_ME.
SHIFT v_codaux1 LEFT DELETING LEADING '0'.
PERFORM busca_conta_contabil
USING 'C'
/pws/zycbe226-bukrs
'FBK'
v_codaux1
v_codaux2
v_codaux3
CHANGING
v_conta.
v_bco_cab = /pws/zycbe226-BCO_ME .
else.
clear: v_conta.
endif.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034I01
...
wa_zycbt226-nremb = wa_zycbt017-nremb.
ENDIF.
READ TABLE itab_kna1 WITH KEY kunnr = wa_zycbt226-kunag
INTO wa_kna1.
IF sy-subrc = 0.
wa_zycbt226-descr_kunag = wa_kna1-name1.
ENDIF.
MODIFY itab_zycbt226 FROM wa_zycbt226 .
ENDLOOP.
ENDMODULE.
* >> Início da inclusão:
module ajuda_pesquisa input.
DATA: v_line TYPE i.
DATA: BEGIN OF itab_result OCCURS 0.
INCLUDE STRUCTURE ddshretval.
DATA: END OF itab_result.
DATA: BEGIN OF record_tab OCCURS 0.
INCLUDE STRUCTURE seahlpres.
DATA: END OF record_tab.
DATA: l_display(1) TYPE c,
v_searchhelp TYPE shlpname,
v_field type c,
tdynpread LIKE dynpread OCCURS 0 WITH HEADER LINE.
FIELD-SYMBOLS <fs_zycbt226_help> TYPE t_s_zycbe226.
CLEAR: tdynpread, record_tab.
REFRESH: tdynpread, record_tab.
EXPORT record_tab TO MEMORY ID 'contrazao'.
CALL FUNCTION 'DYNP_GET_STEPL'
IMPORTING
povstepl = v_line.
READ TABLE itab_zycbt226 INDEX v_line
ASSIGNING <fs_zycbt226_help>.
if sy-subrc ne 0.
UNASSIGN <fs_zycbt226_help>.
v_field = 'X'.
else.
SET PARAMETER ID '/PWS/ZYCBP019' FIELD <fs_zycbt226_help>-nrseq.
endif.
SET PARAMETER ID 'BUK' FIELD /PWS/ZYCBE226-bukrs.
v_searchhelp = '/PWS/ZYCBA287'.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = '/PWS/ZYCBV223'
fieldname = 'CODAUX1'
searchhelp = v_searchhelp
shlpparam = 'CODAUX1'
display = l_display
TABLES
return_tab = itab_result
EXCEPTIONS
OTHERS = 5.
CHECK sy-subrc EQ 0 .
IMPORT record_tab FROM MEMORY ID 'contrazao'.
CALL FUNCTION 'DYNP_GET_STEPL'
IMPORTING
povstepl = v_line.
CLEAR tdynpread.
REFRESH tdynpread.
READ TABLE record_tab INDEX 1.
CHECK sy-subrc EQ 0 .
IF record_tab(3) = sy-mandt.
/PWS/ZYCBE226-BCO_ME = record_tab+3(10).
/PWS/ZYCBE226-conta_contab = record_tab+58(10).
ELSE.
/PWS/ZYCBE226-BCO_ME = record_tab+0(10).
/PWS/ZYCBE226-conta_contab = record_tab+55(10).
ENDIF.
v_bco_cab = /PWS/ZYCBE226-BCO_ME.
PERFORM adiciona_linha_tc:
USING
'/PWS/ZYCBE226-BCO_ME' /PWS/ZYCBE226-BCO_ME v_line
CHANGING
tdynpread[],
USING
'/PWS/ZYCBE226-CONTA_CONTAB' /PWS/ZYCBE226-conta_contab v_line
CHANGING
tdynpread[].
IF /PWS/ZYCBE226-BCO_ME EQ '00'.
/PWS/ZYCBE226-BCO_ME = ' ' .
ENDIF.
if v_field ne 'X'.
<fs_zycbt226_help>-bco_tc = /PWS/ZYCBE226-BCO_ME.
<fs_zycbt226_help>-conta_contab = /PWS/ZYCBE226-conta_contab.
endif.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-cprog
dynumb = '0301'
TABLES
dynpfields = tdynpread
EXCEPTIONS
OTHERS = 8.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034TOP
...
INCLUDE STRUCTURE /pws/zycbt226.
TYPES:
END OF t_s_tab_op,
BEGIN OF t_s_zycbe226.
INCLUDE STRUCTURE /pws/zycbe226.
TYPES: mark(1) TYPE c,
operacao(1) TYPE c,
bloqueado(1) TYPE c,
acesso_emp(1) TYPE c,
drilldown(1) TYPE c,
* >> Início da inclusão:
bco_tc TYPE /pws/zycbe134-bcocred,
* << Fim da inclusão
END OF t_s_zycbe226,
BEGIN OF t_s_zycbt225.
INCLUDE STRUCTURE /pws/zycbt225.
TYPES:
END OF t_s_zycbt225,
BEGIN OF t_s_zycbt017.
INCLUDE STRUCTURE /pws/zycbt017.
TYPES:
END OF t_s_zycbt017,
BEGIN OF t_s_zycbt030.
...
...
t_t_zycbt226 TYPE TABLE OF t_s_zycbe226 WITH DEFAULT KEY,
t_t_zycbt017 TYPE TABLE OF t_s_zycbt017 WITH DEFAULT KEY,
t_t_zycbt030 TYPE TABLE OF t_s_zycbt030 WITH DEFAULT KEY,
t_t_zycbt209 TYPE TABLE OF t_s_zycbt209 WITH DEFAULT KEY,
t_t_zycet001 TYPE TABLE OF t_s_zycet001 WITH DEFAULT KEY,
t_t_zycet047 TYPE TABLE OF t_s_zycet047 WITH DEFAULT KEY,
t_t_zycet048 TYPE TABLE OF t_s_zycet048 WITH DEFAULT KEY,
t_t_zycit054 TYPE TABLE OF t_s_zycit054 WITH DEFAULT KEY,
t_t_bkpf TYPE TABLE OF t_s_bkpf WITH DEFAULT KEY,
t_t_erro TYPE TABLE OF t_s_erro WITH DEFAULT KEY,
* >> Início da inclusão:
t_itab_dynpread TYPE TABLE OF dynpread,
* << Fim da inclusão
t_t_zycbe224 TYPE TABLE OF t_s_zycbe224 WITH DEFAULT KEY.
DATA: itab_zycbt007 TYPE t_t_zycbt007,
itab_zyglt009 TYPE t_t_zyglt009,
itab_zycbt089 TYPE t_t_zycbt089,
itab_zycbt009 TYPE t_t_zycbt009,
itab_zycbt039 TYPE t_t_zycbt039,
itab_zycbt226 TYPE t_t_zycbt226,
itab_zycbt225 TYPE t_t_zycbt225,
itab_zycbt226_ant TYPE t_t_zycbt226,
itab_zycbt017 TYPE t_t_zycbt017,
...
...
opt_origem_pagantec(1) TYPE c,
opt_destino_30(1) TYPE c,
opt_destino_70(1) TYPE c,
v_mark(1) TYPE c,
v_icone TYPE icons-text,
v_tela_help TYPE sy-dynnr VALUE '0052'. "#EC NEEDED
DATA: v_adm(1) TYPE c.
DATA:
v_codaux TYPE /pws/zygle316-codaux1,
v_codaux1 TYPE /pws/zygle316-codaux1,
* >> Início da exclusão:
v_codaux2 TYPE /pws/zygle316-codaux2.
* << Fim da exclusão
* >> Início da inclusão:
v_codaux2 TYPE /pws/zygle316-codaux2,
v_codaux3 TYPE /pws/zygle316-codaux3,
v_conta type /pws/zycbe226-conta_contab,
v_bco_cab type /pws/zycbe134-bcocred.
* << Fim da inclusão
DATA: v_nrinvoic VALUE space,
v_gsberf VALUE space,
v_fkdat VALUE space,
v_kunag VALUE space,
v_dtvencto VALUE space,
v_dtbl VALUE space,
v_inco1 VALUE space,
v_re VALUE space,
v_sd VALUE space,
v_nrre_ate LIKE /pws/zycbe017-nrre,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBE226
DESCRIÇÃO BREVE:CB - Valores Mantidos no Exterior
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
CONTA_CONTAB SAKNR CHAR 10 0 Nº conta do Razão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT226
DESCRIÇÃO BREVE: CB - Valores Mantidos no Exterior
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
CONTA_CONTAB SAKNR CHAR 10 0 Nº conta do Razão