CE PLUS - Nota 007940
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 20/01/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:57:30
Descrição da Nota: VINCULAÇÃO- DEVOLUÇÃO - PASTA DEVOLUÇÃO - ABRIR CAMPO BANCO
Sintoma
Na aba de devolução o campo banco tem que estar aberto para alterar a conta contabil.
Solução
abrir o campo banco ,alterar a conta contabil, e fazer as consistencias apos essa alteração
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07940 Data: 20/01/2009 Hora: 16:24:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07940
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00082
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01219 - 00003 - 6.0 - 00023 - INSERÇÃO DOS PONTOS DE EXIT NOS PROGRAMAS DO PRODUTO
03752 - 00002 - 7.0 - 00001 - VINCULAÇÃO - ESTORNO AUTOMATICO POR ERRO NA CONTABILIZAÇÃO
07892 - 00001 - 7.0 - 00008 - DESENVOLVIMENTO ADICIONAL - FLEXIBILIZAR CONTA BANCO NA DEVOLUÇÃO
----------------------------------------------------------------------------------------------------
VINCULAÇÃO- DEVOLUÇÃO - PASTA DEVOLUÇÃO - ABRIR CAMPO BANCO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO- DEVOLUÇÃO - PASTA DEVOLUÇÃO - ABRIR CAMPO BANCO
E ALTERAR CONTA CONTABIL.
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB009 0401
REPS /PWS/MZYCB009F06
REPS /PWS/MZYCB009F10
REPS /PWS/MZYCB009I01
REPS /PWS/MZYCB009O01
REPS /PWS/MZYCB009TOP
REPT /PWS/SAPMZYCB009
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB009 0401
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0401
process before output.
module set_screen_0401.
* >> Início da inclusão:
module: carrega_0401.
* << Fim da inclusão
process after input.
* >> Início da inclusão:
module: altera_0401.
* << Fim da inclusão
module: user_command_0401.
* >> Início da inclusão:
PROCESS ON VALUE-REQUEST.
FIELD: /PWS/ZYCBE050-BANCO MODULE ajuda_pesquisa.
* << Fim da inclusão
-----------------------------------------------------------
FAVOR PEDIR ARQUIVO COM A TELA 0401 PARA UPLOAD NO PROGRAMA
-----------------------------------------------------------
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F06
...
IF itab_zycbt005-slpagar NE 0.
IF /pws/zycbe050-nrseqc IS INITIAL.
IF NOT itab_zycbt005-belnr IS INITIAL.
MOVE-CORRESPONDING itab_zycbt005 TO /pws/zycbe050.
/pws/zycbe050-waers = itab_zycbt005-waers_c.
/pws/zycbe050-waers_fat = itab_zycbt005-waers.
/pws/zycbe050-parid = itab_zycbt005-parid.
/pws/zycbe050-txcamb = /pws/zycbe001-txcneg.
/pws/zycbe050-sldevol = /pws/zycbe050-slpagar.
/pws/zycbe050-banco = itab_zycbt005-bcofinan.
* >> Início da inclusão: FORM CRIA_DEVOLUCAO
if /pws/zycbe050-conta_contab is initial.
* << Fim da inclusão
/pws/zycbe050-conta_contab = /pws/zycbe001-conta_contab.
* >> Início da inclusão: FORM CRIA_DEVOLUCAO
endif.
* << Fim da inclusão
/pws/zycbe050-status_dev = 'I'.
CLEAR: /pws/zycbe050-vldev,
/pws/zycbe050-vldev_fat,
/pws/zycbe050-vljur,
/pws/zycbe050-tptxjur,
/pws/zycbe050-txjdev.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
rules_not_found = 2
OTHERS = 3.
READ TABLE itab_zyglt316 INDEX 1 INTO wa_zyglt316.
IF sy-subrc = 0.
MOVE wa_zyglt316-konth TO p_conta.
ELSE.
CLEAR p_conta.
MESSAGE i015 WITH text-498.
ENDIF.
endform.
* >> Início da inclusão:
form altera_conta_contabil_0401.
CHECK NOT /PWS/ZYCBE050-BANCO IS INITIAL.
SHIFT /PWS/ZYCBE050-BANCO LEFT DELETING LEADING '0'.
CHECK /PWS/ZYCBE050-CONTA_CONTAB IS INITIAL OR
( NOT /PWS/ZYCBE050-CONTA_CONTAB IS INITIAL AND
/PWS/ZYCBE050-BANCO NE v_bco_cab ).
v_codaux1 = /PWS/ZYCBE050-BANCO.
SHIFT v_codaux1 LEFT DELETING LEADING '0'.
IF /pws/zycbt007-cont_disp EQ 'X'.
PERFORM busca_conta_contabil
USING 'C'
itab_zycbt005-bukrs
'FBK'
v_codaux1
v_codaux2
v_codaux3
CHANGING
/PWS/ZYCBE050-CONTA_CONTAB.
ELSE.
PERFORM busca_conta_contabil
USING 'C'
itab_zycbt005-bukrs
'FBK'
v_codaux1
v_codaux2
space
CHANGING
/PWS/ZYCBE050-CONTA_CONTAB.
ENDIF.
v_bco_cab = /PWS/ZYCBE050-BANCO.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009I01
...
WHEN 'PB_HELP'.
v_tela_help = '0051'.
EXIT.
WHEN 'CLOSE'.
v_tela_help = '0052'.
EXIT.
WHEN 'SAVE'.
IF NOT wa_zycbt089-bx_cli_vinc IS INITIAL.
PERFORM verifica_liq_and.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0400
If /pws/zycbe001-BCOCRED ne /pws/zycbe050-banco.
v_erro_bc = 'X'.
MESSAGE i015 WITH text-501 text-502.
exit.
endif.
* << Fim da inclusão
IF wa_zycbt089-est_variacao IS INITIAL.
PERFORM grava_devolucao.
ELSE.
PERFORM desmembra_dev.
IF v_subrc EQ 0.
PERFORM grava_devolucao_var.
ENDIF.
ENDIF.
WHEN 'DEL1'.
IF NOT wa_zycbt089-bx_cli_vinc IS INITIAL.
...
...
PERFORM determina_per_aberto USING itab_zycbt051-dtpdd.
v_codeven_dev = '014PV'.
IF v_periodo_aberto EQ 'X'.
PERFORM estorna_dp_2 USING itab_zycbt051-motivo_pdd.
ELSE.
PERFORM estorna_dp_3 USING itab_zycbt051-belnr_pdd2
itab_zycbt051-dtbx_cl.
ENDIF.
ENDLOOP.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0400
WHEN 'ENTE'.
* << Fim da inclusão
ENDCASE.
PERFORM executa_exit USING 'VNC013'.
CLEAR: ok_code.
ENDMODULE.
MODULE altera_itab_zycbt051 INPUT.
IF itab_zycbt051-status_rp NE 'I' AND
itab_zycbt051-status_rd NE 'I' AND
itab_zycbt051-status_pdd NE 'I' AND
itab_zycbt051-status_apr NE 'I'.
EXIT.
...
...
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'.
* >> Início da inclusão: MODULE AJUDA_PESQUISA
if sy-dynnr eq '0401'.
READ TABLE record_tab INDEX 1.
CHECK sy-subrc EQ 0 .
IF record_tab(3) = sy-mandt.
/PWS/ZYCBE050-BANCO = record_tab+3(10).
/PWS/ZYCBE050-conta_contab = record_tab+58(10).
ELSE.
/PWS/ZYCBE050-BANCO = record_tab+0(10).
/PWS/ZYCBE050-conta_contab = record_tab+55(10).
ENDIF.
v_bco_cab = /PWS/ZYCBE050-BANCO.
tdynpread-fieldname = '/PWS/ZYCBE050-CONTA_CONTAB' .
IF /PWS/ZYCBE050-CONTA_CONTAB NE '00'.
tdynpread-fieldvalue = /PWS/ZYCBE050-CONTA_CONTAB .
APPEND tdynpread .
ENDIF.
tdynpread-fieldname = '/PWS/ZYCBE050-BANCO' .
IF /PWS/ZYCBE050-BANCO NE '00'.
tdynpread-fieldvalue = /PWS/ZYCBE050-BANCO .
APPEND tdynpread .
ENDIF.
else.
* << Fim da inclusão
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/ZYCBE051-BANCO = record_tab+3(10).
/PWS/ZYCBE051-conta_contab = record_tab+58(10).
...
...
USING
'/PWS/ZYCBE051-BANCO' /PWS/ZYCBE051-BANCO v_line
CHANGING
tdynpread[],
USING
'/PWS/ZYCBE051-CONTA_CONTAB' /PWS/ZYCBE051-conta_contab v_line
CHANGING
tdynpread[].
IF /PWS/ZYCBE051-BANCO EQ '00'.
/PWS/ZYCBE051-BANCO = ' ' .
* >> Início da inclusão: MODULE AJUDA_PESQUISA
ENDIF.
* << Fim da inclusão
ENDIF.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-cprog
dynumb = '0301'
TABLES
dynpfields = tdynpread
EXCEPTIONS
OTHERS = 8.
endmodule.
* >> Início da inclusão:
module altera_0401 input.
PERFORM altera_conta_contabil_0401.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009O01
...
MODULE carrega_itab_pre OUTPUT.
IF sy-tcode EQ c_transacao_a.
IF itab_zycbt006_pre[] IS INITIAL.
SELECT *
FROM /pws/zycbt006
INTO TABLE itab_zycbt006_pre
WHERE nrseqc EQ /pws/zycbe005-nrseqc.
ENDIF.
ENDIF.
ENDMODULE.
* >> Início da inclusão:
module carrega_0401 output.
if /pws/zycbe050-banco is initial.
clear : /pws/zycbe050-conta_contab.
endif.
if not v_erro_bc is initial .
/pws/zycbe050-banco = /pws/zycbe001-BCOCRED.
/pws/zycbe050-conta_contab = /pws/zycbe001-conta_contab.
clear v_erro_bc.
endif.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009TOP
...
v_vl_estornado TYPE /pws/zycbt001-slpagar.
DATA: v_belnr6 LIKE /pws/zycbt030-belnr,
v_kursf6 LIKE bkpf-kursf,
v_erro_estorno TYPE c,
v_cp_ok TYPE c.
DATA: wa_cols TYPE cxtab_column.
data: v_bco_cab type /pws/zycbe134-bcocred,
v_codaux2 LIKE /pws/zyglt316-codaux1,
v_codaux3 LIKE /pws/zyglt316-codaux1,
v_conta_contab(10) type n,
* >> Início da inclusão:
v_erro_bc type c,
* << Fim da inclusão
v_er type c.
DATA:
wa_zycbe050 LIKE /pws/zycbe050,
wa_zycbe050_classifcont LIKE /pws/zycbe050,
wa_zycbe050_objres LIKE /pws/zycbe050,
wa_zycbt051_sbu LIKE /pws/zycbt051,
wa_zycbe051_aux LIKE /pws/zycbe051,
wa_zycbe005_aux LIKE /pws/zycbe005,
wa_log TYPE char4000,
wa_zycbt005_log LIKE /pws/zycbt005,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB009
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 501
Texto: (37 caracteres)
"O código do fornecedor Banco deve ser"
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 502
Texto: (26 caracteres)
"o mesmo vindo da Captação."
Comprimento máximo: 26