CE PLUS - Nota 007489
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 28/10/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:53:02
Descrição da Nota: D.A - FLEXIBILIZAR AS CONTAS DE BANCO NA SAÍDA DE PAGAMENTO
Sintoma
D.A - Flexibilizar as contas de banco na saída de pagamento
Solução
D.A - Flexibilizar as contas de banco na saída de pagamento
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07489 Data: 28/10/2008 Hora: 15:37:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07489
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00071
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01210 - 00001 - 6.0 - 00023 - SAÍDA DE PAGAMENTO(ARQ. ELETRÔNICO) ITAU FEBRABAN
01231 - 00002 - 6.0 - 00023 - REMESSA - IMPOSTOS NOVOS
04470 - 00003 - 7.0 - 00002 - SAÍDA DE PAGAMENTO - PONTO DE EXIT SPG002 - INCLUDE X
05469 - 00004 - 7.0 - 00003 - DESENVOLVIMENTO ADICIONAL - SAÍDA DE PAGAMENTO UTILIZANDO CONTA C
05636 - 00005 - 7.0 - 00004 - SAÍDA DE PAGAMENTO - CONTA CRÉDITO - KONTH
05650 - 00006 - 7.0 - 00004 - SAÍDA DE PAGAMENTO - REMESSA COM ORIGEM - DATA DE LANÇAMENTO
06671 - 00007 - 7.0 - 00005 - REPATRIAÇÃO DE REMESSA
----------------------------------------------------------------------------------------------------
D.A - FLEXIBILIZAR AS CONTAS DE BANCO NA SAÍDA DE PAGAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
D.A - FLEXIBILIZAR AS CONTAS DE BANCO NA SAÍDA DE PAGAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB115 0202
DYNP /PWS/SAPMZYCB115 0301
DYNP /PWS/SAPMZYCB115 0302
FUNC /PWS/ZYCBA285
REPS /PWS/LZYCBGF3UXX
REPS /PWS/MZYCB115F01
REPS /PWS/MZYCB115F02
REPS /PWS/MZYCB115I01
REPS /PWS/MZYCB115O01
REPS /PWS/MZYCB115TOP
REPS /PWS/MZYCB115X01
REPT /PWS/SAPMZYCB115
SHLD /PWS/ZYCBA285
SHLP /PWS/ZYCBA285
VIEW /PWS/ZYCBV223
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB115 0202
- Solicitar arquivo do layout da tela para a equipe de desenvolvimento do produto - câmbio.
Efetuar o upload do mesmo no programa e na tela correspondente.
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0202
...
CALL SUBSCREEN ss_ordens.
LOOP AT itab_zycbt134.
FIELD /pws/zycbe134-bcocred MODULE consiste_banco_credito.
FIELD /pws/zycbe134-parid MODULE consiste_paridade.
MODULE altera_itab_zycbt134.
ENDLOOP.
MODULE: user_command,
user_command_exit AT EXIT-COMMAND.
PROCESS ON VALUE-REQUEST.
FIELD v_bvtyp MODULE ajuda_pesquisa_tipo_banco.
* >> Início da inclusão:
FIELD /PWS/ZYCBE134-BCOCRED MODULE ajuda_pesquisa_bancotc.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB115 0301
- Solicitar arquivo do layout da tela para a equipe de desenvolvimento do produto - câmbio.
Efetuar o upload do mesmo no programa e na tela correspondente.
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0301
PROCESS BEFORE OUTPUT.
* >> Início da inclusão:
MODULE: set_screen_301,
carrega_301.
* << Fim da inclusão
PROCESS AFTER INPUT.
* >> Início da inclusão:
FIELD: v_bcocred MODULE consiste_banco_pagamento,
v_dtlanc MODULE consiste_data_lancamento.
MODULE altera_301.
MODULE user_command.
PROCESS ON VALUE-REQUEST.
FIELD: v_bcocred MODULE ajuda_pesquisa.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB115 0302
- Solicitar arquivo do layout da tela para a equipe de desenvolvimento do produto - câmbio.
Efetuar o upload do mesmo no programa e na tela correspondente.
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0302
PROCESS BEFORE OUTPUT.
MODULE: set_screen_302,
carrega_302.
PROCESS AFTER INPUT.
FIELD: v_bcocred MODULE consiste_banco_pagamento,
v_dtlanc MODULE consiste_data_lancamento.
MODULE altera_302.
MODULE user_command.
* >> Início da inclusão:
PROCESS ON VALUE-REQUEST.
FIELD: v_bcocred MODULE ajuda_pesquisa.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA285
MÓDULO DE FUNÇÃO: /PWS/ZYCBA285
CARACTERÍSTICAS
CLASSIFICAÇÃO:
GRUPO DE FUNÇÕES:/PWS/ZYCBGF3 CB - Grupo de Função - Exit
TEXTO BREVE: CB - Tipos - Banco
TIPO DE EXECUÇÃO:
(x) - MÓDULO DE FUNÇÃO NORMAL
(_) - MÓDULO DE ACESSO REMOTO
(_) - MÓDULO DE ATUALIZAÇÃO
(x) - INÍCIO IMEDIATO
(_) - INÍCIO IMEDIATO-SEM ATUAL.POSTER.
(_) - INÍC. RETARDADO
(_) - PROCES. CLOETIVO
DADOS GERAIS:
Responsável PWSCB
Último modificador PWSCB
Data de modificação 24.10.2008
Cl.desenvolvimento /PWS/ZYCB
Nome do programa /PWS/SAPLZYCBGF3
Nome do include /PWS/LZYCBGF3U79
Idioma original PT
Não liberado
(_) - BLOQUEIO PROCESSO
(_) - GLOBAL
IMPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
EXPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA TRANSF. TEXTO BREVE
MODIFIC.:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
SHLP TYPE SHLP_DESCR_T X
CALLCONTROL LIKE DDSHF4CTRL X Estrutura contr.p/exec.
F4 c/exit ajuda p/pesq.
TABELAS:
NOME PARAM. ATRIB. TIPO REFERÊNCIA OPCIONAL TEXTO BREVE
SHLP_TAB TYPE SHLP_DESCR_TAB_T
RECORD_TAB LIKE SEAHLPRES Ajuda pesq.estr.resultado
EXCEÇÕES:
EXCEÇÃO TEXTO BREVE
-----------------------------------------------------
TEXTO FONTE
FUNCTION /PWS/ZYCBA285.
* >> Início da inclusão: FUNCTION /PWS/ZYCBA285
TYPE-POOLS:
shlp.
TYPES:
BEGIN OF t_s_dados,
lifnr TYPE lfa1-lifnr,
sortl TYPE lfa1-sortl,
name1 TYPE lfa1-name1,
konth TYPE /pws/zyglt316-konth,
bukrs TYPE lfb1-bukrs,
ktosl TYPE /pws/zyglt316-ktosl,
codaux1 TYPE /pws/zyglt316-codaux1,
codaux2 TYPE /pws/zyglt316-codaux2,
codaux3 TYPE /pws/zyglt316-codaux3,
END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA:
itab_dados TYPE t_t_dados WITH HEADER LINE,
wa_dados LIKE LINE OF itab_dados,
v_tabix TYPE sy-tabix,
v_nrseqc2 TYPE /pws/zycbt134-nrseq,
v_fieldname TYPE dfies-lfieldname,
v_brasil(1) TYPE c,
v_exterior(1) TYPE c,
v_moeda TYPE /pws/zycbe134-waers.
DATA: BEGIN OF itab_bukrs OCCURS 0,
bukrs LIKE /pws/zycbt001-bukrs,
END OF itab_bukrs.
DATA: BEGIN OF itab_dados_aux OCCURS 0,
lifnr TYPE lfa1-lifnr,
konth TYPE /pws/zyglt316-konth,
codaux1 TYPE /pws/zyglt316-codaux1,
END OF itab_dados_aux.
DATA: BEGIN OF t_konth OCCURS 0,
lifnr TYPE lfa1-lifnr,
sortl TYPE lfa1-sortl,
name1 TYPE lfa1-name1,
konth TYPE /pws/zyglt316-konth,
bukrs TYPE lfb1-bukrs,
ktosl TYPE /pws/zyglt316-ktosl,
codaux1 TYPE /pws/zyglt316-codaux1,
codaux2 TYPE /pws/zyglt316-codaux2,
codaux3 TYPE /pws/zyglt316-codaux3,
END OF t_konth.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> LIKE LINE OF itab_dados.
GET PARAMETER ID '/PWS/ZYCBP019' FIELD v_nrseqc2.
IMPORT v_brasil FROM MEMORY ID 'brasil'.
IMPORT v_exterior FROM MEMORY ID 'exterior'.
IMPORT v_moeda FROM MEMORY ID 'moeda'.
SELECT bukrs FROM /pws/zycbt031
INTO TABLE itab_bukrs
WHERE nrseq = v_nrseqc2.
DELETE itab_bukrs WHERE bukrs IS initial.
IF callcontrol-step EQ 'DISP'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
CHECK: <fs_fielddescr>-fieldname = 'LIFNR' OR
<fs_fielddescr>-fieldname = 'SORTL' OR
<fs_fielddescr>-fieldname = 'NAME1' OR
<fs_fielddescr>-fieldname = 'KONTH' OR
<fs_fielddescr>-fieldname = 'BUKRS' OR
<fs_fielddescr>-fieldname = 'KTOSL' OR
<fs_fielddescr>-fieldname = 'CODAUX1' OR
<fs_fielddescr>-fieldname = 'CODAUX2' OR
<fs_fielddescr>-fieldname = 'CODAUX3' .
v_fieldname = <fs_fielddescr>-fieldname.
CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'
EXPORTING
parameter = <fs_fielddescr>-fieldname
fieldname = v_fieldname
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
results_tab = itab_dados
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
parameter_unknown = 1
OTHERS = 2.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDLOOP.
UNASSIGN: <fs_shlp>, <fs_fielddescr>.
CLEAR: t_konth.
LOOP AT itab_dados ASSIGNING <fs_dados>.
READ TABLE t_konth WITH KEY lifnr = <fs_dados>-lifnr
sortl = <fs_dados>-sortl
name1 = <fs_dados>-name1
konth = <fs_dados>-konth
bukrs = <fs_dados>-bukrs
ktosl = <fs_dados>-ktosl
codaux1 = <fs_dados>-codaux1
codaux2 = <fs_dados>-codaux2
codaux3 = <fs_dados>-codaux3 .
IF sy-subrc = 0.
DELETE itab_dados INDEX sy-tabix.
DELETE record_tab INDEX sy-tabix.
ELSE.
t_konth-lifnr = <fs_dados>-lifnr.
t_konth-sortl = <fs_dados>-sortl.
t_konth-name1 = <fs_dados>-name1.
t_konth-konth = <fs_dados>-konth.
t_konth-bukrs = <fs_dados>-bukrs.
t_konth-ktosl = <fs_dados>-ktosl.
t_konth-codaux1 = <fs_dados>-codaux1.
t_konth-codaux2 = <fs_dados>-codaux2.
t_konth-codaux3 = <fs_dados>-codaux3 .
APPEND t_konth.
ENDIF.
ENDLOOP.
LOOP AT record_tab.
v_tabix = sy-tabix.
READ TABLE itab_dados INDEX v_tabix INTO wa_dados.
SHIFT wa_dados-lifnr LEFT DELETING LEADING '0'.
SHIFT wa_dados-codaux1 LEFT DELETING LEADING '0'.
condense: wa_dados-lifnr, wa_dados-codaux1.
IF wa_dados-lifnr = wa_dados-codaux1.
CHECK NOT v_nrseqc2 IS INITIAL.
READ TABLE itab_bukrs WITH KEY bukrs = wa_dados-bukrs.
IF sy-subrc NE 0.
DELETE record_tab INDEX v_tabix.
DELETE itab_dados INDEX v_tabix.
CONTINUE.
ELSE.
IF v_brasil EQ 'X'.
IF wa_dados-codaux2 IS INITIAL.
CONTINUE.
ELSE.
DELETE record_tab INDEX v_tabix.
DELETE itab_dados INDEX v_tabix.
CONTINUE.
ENDIF.
ELSEIF v_exterior EQ 'X'.
IF NOT wa_dados-codaux2 IS INITIAL.
IF NOT v_moeda IS INITIAL AND
wa_dados-codaux2 NE v_moeda.
DELETE record_tab INDEX v_tabix.
DELETE itab_dados INDEX v_tabix.
ENDIF.
CONTINUE.
ELSE.
DELETE record_tab INDEX v_tabix.
DELETE itab_dados INDEX v_tabix.
CONTINUE.
ENDIF.
ENDIF.
ENDIF.
ELSE.
DELETE record_tab INDEX v_tabix.
DELETE itab_dados INDEX v_tabix.
CONTINUE.
ENDIF.
ENDLOOP.
CLEAR itab_dados_aux.
LOOP AT itab_dados ASSIGNING <fs_dados>.
SHIFT <fs_dados>-lifnr LEFT DELETING LEADING '0'.
SHIFT <fs_dados>-codaux1 LEFT DELETING LEADING '0'.
READ TABLE itab_dados_aux WITH KEY lifnr = <fs_dados>-lifnr
konth = <fs_dados>-konth
codaux1 = <fs_dados>-codaux1.
IF sy-subrc = 0.
DELETE itab_dados INDEX sy-tabix.
DELETE record_tab INDEX sy-tabix.
ELSE.
itab_dados_aux-lifnr = <fs_dados>-lifnr.
itab_dados_aux-konth = <fs_dados>-konth.
itab_dados_aux-codaux1 = <fs_dados>-codaux1.
APPEND itab_dados_aux.
ENDIF.
ENDLOOP.
ENDIF.
IF callcontrol-step EQ 'RETURN'.
EXPORT record_tab[] TO MEMORY ID 'contrazao'.
ENDIF.
* << Fim da inclusão
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCBGF3UXX
...
INCLUDE /PWS/LZYCBGF3U69.
INCLUDE /PWS/LZYCBGF3U70.
INCLUDE /PWS/LZYCBGF3U71.
INCLUDE /PWS/LZYCBGF3U72.
INCLUDE /PWS/LZYCBGF3U73.
INCLUDE /PWS/LZYCBGF3U74.
INCLUDE /PWS/LZYCBGF3U75.
INCLUDE /PWS/LZYCBGF3U76.
INCLUDE /PWS/LZYCBGF3U77.
INCLUDE /PWS/LZYCBGF3U78.
* >> Início da inclusão:
INCLUDE /PWS/LZYCBGF3U79.
INCLUDE /PWS/LZYCBGF3U80.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F01
...
/pws/zycbe031-vlmiir = itab_zycbt134_g-vlmiir.
/pws/zycbe031-vlmicide = itab_zycbt134_g-vlmicide.
/pws/zycbe031-taxacide = itab_zycbt134_g-taxacide.
ENDFORM.
FORM altera_itab_zycbt134_g.
v_index = tc_boletos1-current_line.
MODIFY itab_zycbt134_g INDEX v_index.
ENDFORM.
FORM propor_bcocred.
CLEAR itab_zycbt134.
* >> Início da inclusão: FORM PROPOR_BCOCRED
READ TABLE itab_zycbt134 WITH KEY bukrs = /pws/zycbe134-bukrs.
IF sy-subrc = 0.
* << Fim da inclusão
itab_zycbt134-bcocred = v_bcocred.
* >> Início da inclusão: FORM PROPOR_BCOCRED
itab_zycbt134-conta_contab = v_contrazao.
* << Fim da inclusão
MODIFY itab_zycbt134 TRANSPORTING bcocred
* >> Início da inclusão: FORM PROPOR_BCOCRED
conta_contab
* << Fim da inclusão
WHERE belnr_p NE space OR
belnr_pi NE space OR
belnr_pcide NE space.
CLEAR v_propbco.
* >> Início da inclusão: FORM PROPOR_BCOCRED
ELSE.
MESSAGE e015(/pws/zycmm) WITH text-293 text-294.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM limpa_itabs_contabil.
CLEAR:
itab_zycbt034,
itab_zycbe033,
itab_zycbt032,
itab_zycbt036,
itab_zycbe035,
itab_doctos,
itab_partidas.
...
...
WHERE nrseq = itab_zycbt134_estorno_aux-nrseq
AND tpproc = itab_zycbt134_estorno_aux-tpproc.
ENDIF.
ENDLOOP.
ENDFORM.
FORM seleciona_lifnr.
IF NOT itab_zycbt134_g[] IS INITIAL.
SELECT lifnr umskz gjahr belnr
FROM bsik
INTO TABLE itab_bsik
* >> Início da exclusão: FORM SELECIONA_LIFNR
FOR ALL ENTRIES IN itab_zycbt134_g
WHERE bukrs EQ itab_zycbt134_g-bukrs AND
( belnr EQ itab_zycbt134_g-belnr_p OR
belnr EQ itab_zycbt134_g-belnr_pi OR
belnr EQ itab_zycbt134_g-belnr_pcide ).
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_LIFNR
FOR ALL ENTRIES IN itab_zycbt134
WHERE bukrs EQ itab_zycbt134-bukrs AND
( belnr EQ itab_zycbt134-belnr_p OR
belnr EQ itab_zycbt134-belnr_pi OR
belnr EQ itab_zycbt134-belnr_pcide ).
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM marca_desmarca USING value(p_marca).
LOOP AT itab_zycbt134.
itab_zycbt134-mark = p_marca.
MODIFY itab_zycbt134 TRANSPORTING mark.
ENDLOOP.
ENDFORM.
FORM marca_desmarca_pagos USING value(p_marca).
LOOP AT itab_zycbt134_pagos.
...
...
ENDIF.
ENDIF.
itab_zycbt134-hbkid = v_bcoemp.
itab_zycbt134-hktid = v_idconta.
PERFORM verifica_bvtyp
USING
itab_zycbt134-nrseq
itab_zycbt134-dtboleto
v_bvtyp
CHANGING itab_zycbt134-bvtyp.
* >> Início da inclusão: FORM ALTERA_ITAB_ZYCBT134
IF NOT /pws/zycbe134-bcocred IS INITIAL.
PERFORM preenche_conta_contabil_tc.
itab_zycbt134-conta_contab = /pws/zycbe134-conta_contab.
ENDIF.
* << Fim da inclusão
itab_zycbt134-parid = /pws/zycbe134-parid.
MODIFY itab_zycbt134 INDEX v_index.
ENDFORM.
FORM carrega_zycbe134.
/pws/zycbe134 = itab_zycbt134.
/pws/zycbe119-j_1bbranch = itab_zycbt134-j_1bbranch.
/pws/zycbe119-werks = itab_zycbt134-werks.
/pws/zycbe119-gsber = itab_zycbt134-gsber.
/pws/zycbe004-nrcontr = itab_zycbt134-nrcontr.
/pws/zycbe119-dtvencto = itab_zycbt134-dtvencto.
/pws/zycbe031-vlmi = itab_zycbt134-vlmi.
/pws/zycbe031-vlmiir = itab_zycbt134-vlmiir.
/pws/zycbe031-vlmicide = itab_zycbt134-vlmicide.
/pws/zycbe031-taxacide = itab_zycbt134-taxacide.
v_meiopag = itab_zycbt134-v_meiopag.
* >> Início da inclusão: FORM CARREGA_ZYCBE134
IF /pws/zycbe134-bcocred IS INITIAL.
CLEAR : /pws/zycbe134-conta_contab.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM gera_pagamento.
DATA:
itab_bcooper TYPE SORTED TABLE OF lfbk-lifnr
WITH UNIQUE KEY table_line.
FIELD-SYMBOLS:
<fs_bcooper> LIKE LINE OF itab_bcooper,
<fs_zycbt031> LIKE LINE OF itab_zycbt031.
CLEAR: itab_zycbt134, v_tot_brl, v_tot_irrf_brl, v_tot_cide_brl,
v_tot_iof_brl, v_tot_iss_brl, v_tot_pis_brl, v_tot_cofins_brl,
...
...
ktosl = 'FBK'
codaux1 = v_bcooper1
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
ENDIF.
READ TABLE itab_zyglt316 INDEX 1.
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
IF itab_zycbt134-conta_contab IS INITIAL.
* << Fim da inclusão
itab_zycbe033-c_newko = itab_zyglt316-konth.
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
ELSE.
itab_zycbe033-c_newko = itab_zycbt134-conta_contab.
ENDIF.
* << Fim da inclusão
ENDIF.
ELSE.
IF itab_zycbt134-tpproc = ' ' OR
itab_zycbt134-tpproc = 'PRINCIPAL'.
...
...
UP TO 1 ROWS
FROM t042i
INTO t042i-ukont
WHERE zbukr = itab_zycbt134-bukrs AND
zlsch = v_zlsch AND
waers = wa_zycbt007-waersb AND
hbkid = v_bcoemp AND
hktid = v_idconta.
ENDSELECT.
IF sy-subrc = 0.
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
IF itab_zycbt134-conta_contab IS INITIAL.
* << Fim da inclusão
itab_zycbe033-c_newko = t042i-ukont.
ELSE.
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
itab_zycbe033-c_newko = itab_zycbt134-conta_contab.
ENDIF.
ELSE.
* << Fim da inclusão
SELECT ukont
UP TO 1 ROWS
FROM t042i
INTO t042i-ukont
WHERE zbukr = itab_zycbt134-bukrs AND
zlsch = v_zlsch AND
waers = space AND
hbkid = v_bcoemp AND
hktid = v_idconta.
ENDSELECT.
IF sy-subrc = 0.
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
IF itab_zycbt134-conta_contab IS INITIAL.
* << Fim da inclusão
itab_zycbe033-c_newko = t042i-ukont.
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
ELSE.
itab_zycbe033-c_newko = itab_zycbt134-conta_contab.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
ENDIF.
* << Fim da inclusão
PERFORM verify_null_field USING itab_zycbe033-c_newko
'NEWKO'
text-021.
PERFORM busca_divisao.
itab_zycbe033-dmbtr = itab_zycbt031-vlmi.
IF /pws/zyglt009-arq_eletro = 'X'
AND v_ccexterior IS INITIAL.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = itab_zycbt134-bukrs
...
...
UP TO 1 ROWS
FROM /pws/zycbt007
INTO it_zycbt134-waersb
WHERE bukrs = it_zycbt134-bukrs.
ENDSELECT.
MODIFY it_zycbt134.
EXIT.
ENDLOOP.
ENDLOOP.
ENDFORM.
* >> Início da inclusão:
FORM preenche_conta_contabil_tc.
DATA:
v_codaux1 TYPE /pws/zygle316-codaux1,
v_codaux2 TYPE /pws/zygle316-codaux2,
v_codaux3 TYPE /pws/zygle316-codaux3.
CHECK NOT /pws/zycbe134-bcocred IS INITIAL.
SHIFT /pws/zycbe134-bcocred LEFT DELETING LEADING '0'.
CHECK /pws/zycbe134-conta_contab IS INITIAL OR
( NOT /pws/zycbe134-conta_contab IS INITIAL AND
/pws/zycbe134-bcocred NE itab_zycbt134-bco_tc ).
v_codaux1 = /pws/zycbe134-bcocred.
v_codaux2 = v_moeda_ordem.
IF NOT v_30_porc IS INITIAL.
v_codaux3 = '30'.
ELSEIF NOT v_70_porc IS INITIAL.
v_codaux3 = '70'.
ENDIF.
SHIFT v_codaux1 LEFT DELETING LEADING '0'.
IF /pws/zycbt007-cont_disp EQ 'X'.
PERFORM busca_conta_contabil
USING 'C'
/pws/zycbe134-bukrs
'FBK'
v_codaux1
v_codaux2
v_codaux3
CHANGING
/pws/zycbe134-conta_contab.
ELSE.
PERFORM busca_conta_contabil
USING 'C'
/pws/zycbe134-bukrs
'FBK'
v_codaux1
v_codaux2
space
CHANGING
/pws/zycbe134-conta_contab.
ENDIF.
itab_zycbt134-bco_tc = /pws/zycbe134-bcocred.
MODIFY itab_zycbt134 TRANSPORTING bco_tc
WHERE nrseq = itab_zycbt134-nrseq
AND dtboleto = itab_zycbt134-dtboleto
AND tpproc = itab_zycbt134-tpproc.
ENDFORM.
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/zycbe134-bcocred NE '00'.
wa_dynpread-fieldname = p_fieldname.
wa_dynpread-fieldvalue = p_fieldvalue.
wa_dynpread-stepl = p_stepl.
APPEND wa_dynpread TO tdynpread.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F02
...
ktosl = 'FBK'
codaux1 = v_bcooper1
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
ENDIF.
READ TABLE itab_zyglt316 INDEX 1.
* >> Início da inclusão: FORM SELECIONA_CONTA_SAIDA
IF itab_zycbt134-conta_contab IS INITIAL.
* << Fim da inclusão
itab_zycbe033-c_newko = itab_zyglt316-konth.
* >> Início da inclusão: FORM SELECIONA_CONTA_SAIDA
ELSE.
itab_zycbe033-c_newko = itab_zycbt134-conta_contab .
ENDIF.
* << Fim da inclusão
ENDIF.
ELSE.
IF itab_zycbt134-tpproc = ' ' OR itab_zycbt134-tpproc = 'PRINCIPAL'.
v_zlsch = /pws/zycbt145-zlsch.
...
...
UP TO 1 ROWS
FROM t042i
INTO t042i-ukont
WHERE zbukr = itab_zycbt134-bukrs AND
zlsch = v_zlsch AND
waers = wa_zycbt007-waersb AND
hbkid = v_bcoemp AND
hktid = v_idconta.
ENDSELECT.
IF sy-subrc = 0.
* >> Início da inclusão: FORM SELECIONA_CONTA_SAIDA
IF itab_zycbt134-conta_contab IS INITIAL.
* << Fim da inclusão
itab_zycbe033-c_newko = t042i-ukont.
* >> Início da inclusão: FORM SELECIONA_CONTA_SAIDA
ELSE.
itab_zycbe033-c_newko = itab_zycbt134-conta_contab .
ENDIF.
* << Fim da inclusão
ELSE.
SELECT ukont
UP TO 1 ROWS
FROM t042i
INTO t042i-ukont
WHERE zbukr = itab_zycbt134-bukrs AND
zlsch = v_zlsch AND
waers = space AND
hbkid = v_bcoemp AND
hktid = v_idconta.
ENDSELECT.
IF sy-subrc = 0.
* >> Início da inclusão: FORM SELECIONA_CONTA_SAIDA
IF itab_zycbt134-conta_contab IS INITIAL.
* << Fim da inclusão
itab_zycbe033-c_newko = t042i-ukont.
* >> Início da inclusão: FORM SELECIONA_CONTA_SAIDA
ELSE.
itab_zycbe033-c_newko = itab_zycbt134-conta_contab .
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-c_newko
...
...
ENDLOOP.
ELSE.
PERFORM trata_estornos_boleto_ordem USING space.
ENDIF.
COMMIT WORK.
ENDFORM.
FORM seleciona_contas_ordens.
DATA:
v_codaux1 TYPE /pws/zygle316-codaux1,
v_codaux2 TYPE /pws/zygle316-codaux2.
* >> Início da inclusão: FORM SELECIONA_CONTAS_ORDENS
IF v_contrazao IS INITIAL.
* << Fim da inclusão
v_codaux1 = v_bcocred.
v_codaux2 = v_moeda.
SHIFT v_codaux1 LEFT DELETING LEADING '0'.
IF wa_zycbt007-cont_disp EQ 'X'.
IF v_70_porc EQ 'X'.
PERFORM busca_conta_contabil
USING 'C'
itab_zycbt134-bukrs
'FBK'
v_codaux1
...
...
ELSE.
PERFORM busca_conta_contabil
USING 'C'
itab_zycbt134-bukrs
'FBK'
v_codaux1
v_codaux2
space
CHANGING itab_zycbe033-c_newko.
itab_zycbe035-c_newko = itab_zycbe033-c_newko.
* >> Início da inclusão: FORM SELECIONA_CONTAS_ORDENS
APPEND itab_zycbe035.
ENDIF.
ELSE.
itab_zycbe033-c_newko = v_contrazao.
itab_zycbe035-c_newko = v_contrazao.
* << Fim da inclusão
APPEND itab_zycbe035.
ENDIF.
ENDFORM.
FORM consiste_data_lancto_ordens CHANGING p_ok.
DATA: v_koart TYPE t001b-mkoar,
v_monat TYPE t001b-frpe1,
v_gjahr TYPE t001b-frye1,
v_dtlancto TYPE /pws/zycbt232-dtlancto_saida,
v_cont(5) TYPE n,
v_ordens(40) TYPE c,
...
...
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
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.
* >> Início da inclusão: FORM BUSCA_CONTA_CONTABIL
MESSAGE i015 WITH text-288.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM consiste_data_lanc
USING
* >> Início da exclusão: FORM CONSISTE_DATA_LANC
p_dtlanc TYPE /pws/zycbt134-dtlanc.
CHECK NOT v_bcocred IS INITIAL.
IF p_dtlanc IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_DATA_LANC
dtlanc .
DATA: v_monat LIKE t001b-frpe1,
v_bukrs LIKE t001-bukrs,
v_gjahr LIKE t001b-frye1,
v_budat(10).
IF dtlanc IS INITIAL AND
v_eletron IS INITIAL.
* << Fim da inclusão
MESSAGE e208.
EXIT.
* >> Início da inclusão: FORM CONSISTE_DATA_LANC
ELSE.
IF v_dtpagto IS INITIAL .
v_monat = dtlanc+4(2).
v_gjahr = dtlanc(4).
v_bukrs = itab_zycbt134-bukrs.
v_budat = dtlanc.
PERFORM check_periodo_contabil USING '+'
v_monat
v_bukrs
v_gjahr
CHANGING v_budat.
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM CONSISTE_DATA_LANC
dtlanc = v_budat.
* << Fim da inclusão
ENDFORM.
FORM consiste_conta_contabil.
IF v_contrazao IS INITIAL.
MESSAGE e061 WITH 'Conta Contábil Inválida.'(288).
ENDIF.
ENDFORM.
...
...
SELECT kunnr umskz gjahr belnr
FROM bsid
INTO TABLE itab_bsid
FOR ALL ENTRIES IN itab_zycbt134_g
WHERE bukrs EQ itab_zycbt134_g-bukrs AND
( belnr EQ itab_zycbt134_g-belnr_p OR
belnr EQ itab_zycbt134_g-belnr_pi OR
belnr EQ itab_zycbt134_g-belnr_pcide ).
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM check_periodo_contabil USING value(p_koart)
value(p_monat)
value(p_bukrs)
value(p_gjahr)
CHANGING value(p_novadata).
DATA: v_resposta(1),
v_subrc TYPE sy-subrc,
v_novadata LIKE spop-varvalue1.
v_novadata = p_novadata.
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = p_bukrs
i_gjahr = p_gjahr
i_koart = p_koart
i_monat = p_monat
EXCEPTIONS
error_period = 1
error_period_acc = 2
OTHERS = 3. "#EC *
IF sy-subrc <> 0.
v_subrc = sy-subrc.
PERFORM entrar_nova_data USING v_resposta v_novadata.
IF v_resposta = 'A'.
MESSAGE e015(/pws/zycmm) WITH text-291.
LEAVE SCREEN.
ELSE.
p_gjahr = v_novadata+6(04).
CONCATENATE '0' v_novadata+3(2) INTO p_monat.
ENDIF.
ENDIF.
IF v_subrc <> 0.
CONCATENATE v_novadata+6(4) v_novadata+3(2) v_novadata(2)
INTO p_novadata.
ELSE.
p_novadata = v_novadata.
ENDIF.
ENDFORM.
FORM entrar_nova_data
USING p_resposta TYPE c
p_novadata LIKE spop-varvalue1.
DATA: v_data_ TYPE d.
CALL FUNCTION 'TR_POPUP_INPUT_DATE'
EXPORTING
iv_title = text-290
iv_description1 = text-291
iv_description2 = text-292
iv_date = v_data_
IMPORTING
ev_date = v_data_
EXCEPTIONS
action_aborted_by_user = 1
value_not_changed = 2
OTHERS = 3.
IF sy-subrc = 0.
WRITE v_data_ TO p_novadata.
ELSE.
p_resposta = 'A'.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115I01
...
MODULE consiste_banco_credito INPUT.
IF NOT /pws/zycbe134-bcocred IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = /pws/zycbe134-bcocred
IMPORTING
output = v_lifnr.
SELECT *
UP TO 1 ROWS
FROM lfa1
* >> Início da exclusão: MODULE CONSISTE_BANCO_CREDITO
WHERE lifnr EQ v_lifnr.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_BANCO_CREDITO
WHERE lifnr EQ v_lifnr
AND sortl EQ 'BANCO'.
ENDSELECT.
IF sy-subrc = 0 AND NOT itab_zycbt134-bukrs IS INITIAL.
SELECT *
UP TO 1 ROWS
FROM lfb1
WHERE lifnr EQ v_lifnr
AND bukrs EQ /pws/zycbe134-bukrs.
* << Fim da inclusão
ENDSELECT.
* >> Início da inclusão: MODULE CONSISTE_BANCO_CREDITO
ENDIF.
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE e061 WITH text-268.
ENDIF.
ENDIF.
ENDMODULE.
MODULE consiste_banco_pagamento INPUT.
IF NOT v_bcocred IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_bcocred
IMPORTING
output = v_lifnr.
SELECT *
UP TO 1 ROWS
FROM lfa1
* >> Início da exclusão: MODULE CONSISTE_BANCO_PAGAMENTO
WHERE lifnr EQ v_lifnr.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_BANCO_PAGAMENTO
WHERE lifnr EQ v_lifnr
AND sortl EQ 'BANCO'.
ENDSELECT.
READ TABLE itab_zycbt134 INDEX 1.
IF sy-subrc = 0 AND NOT itab_zycbt134-bukrs IS INITIAL.
SELECT *
UP TO 1 ROWS
FROM lfb1
WHERE lifnr EQ v_lifnr
AND bukrs EQ itab_zycbt134-bukrs.
* << Fim da inclusão
ENDSELECT.
* >> Início da inclusão: MODULE CONSISTE_BANCO_PAGAMENTO
ENDIF.
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE e061 WITH text-268.
ENDIF.
ENDIF.
ENDMODULE.
MODULE consiste_banco_empresa INPUT.
...
...
REFRESH: itab_zycbt134, itab_zycbt232.
ENDMODULE.
module altera_itab_zycbt232_dados input.
PERFORM altera_itab_zycbt232_dados.
endmodule.
MODULE ajuda_pesquisa_tipo_banco INPUT.
PERFORM ajuda_pesquisa_tipo_banco.
ENDMODULE.
module altera_302 input.
CHECK NOT v_bcocred IS INITIAL.
* >> Início da inclusão: MODULE ALTERA_302
CHECK v_contrazao IS INITIAL OR
( NOT v_contrazao IS INITIAL AND
v_bcocred NE v_bco_cab ).
* << Fim da inclusão
DATA:
v_codaux1 TYPE /pws/zygle316-codaux1,
v_codaux2 TYPE /pws/zygle316-codaux2,
v_codaux3 TYPE /pws/zygle316-codaux3.
v_codaux1 = v_bcocred.
v_codaux2 = v_moeda_ordem.
IF NOT v_30_porc IS INITIAL.
v_codaux3 = '30'.
ELSEIF NOT v_70_porc IS INITIAL.
v_codaux3 = '70'.
...
...
PERFORM busca_conta_contabil
USING 'C'
/pws/zycbe134-bukrs
'FBK'
v_codaux1
v_codaux2
space
CHANGING
v_contrazao.
ENDIF.
* >> Início da inclusão: MODULE ALTERA_302
v_bco_cab = v_bcocred.
* << Fim da inclusão
endmodule.
module consiste_data_lancamento input.
CHECK ts_saida-activetab EQ 'FC_EPAG'
AND ok_code EQ 'EXEC'.
* >> Início da exclusão: MODULE CONSISTE_DATA_LANCAMENTO
CHECK NOT v_bcocred IS INITIAL.
* << Fim da exclusão
PERFORM consiste_data_lanc
USING
v_dtlanc.
endmodule.
* >> Início da inclusão:
MODULE altera_301 INPUT.
CHECK NOT v_bcocred IS INITIAL.
SHIFT v_bcocred LEFT DELETING LEADING '0'.
CHECK v_contrazao IS INITIAL OR
( NOT v_contrazao IS INITIAL AND
v_bcocred NE v_bco_cab ).
v_codaux1 = v_bcocred.
v_codaux2 = v_moeda_ordem.
IF NOT v_30_porc IS INITIAL.
v_codaux3 = '30'.
ELSEIF NOT v_70_porc IS INITIAL.
v_codaux3 = '70'.
ENDIF.
SHIFT v_codaux1 LEFT DELETING LEADING '0'.
IF /pws/zycbt007-cont_disp EQ 'X'.
PERFORM busca_conta_contabil
USING 'C'
/pws/zycbe134-bukrs
'FBK'
v_codaux1
v_codaux2
v_codaux3
CHANGING
v_contrazao.
ELSE.
PERFORM busca_conta_contabil
USING 'C'
/pws/zycbe134-bukrs
'FBK'
v_codaux1
v_codaux2
space
CHANGING
v_contrazao.
ENDIF.
v_bco_cab = v_bcocred.
ENDMODULE.
MODULE ajuda_pesquisa INPUT.
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,
tdynpread LIKE dynpread OCCURS 0 WITH HEADER LINE,
v_brasil(1) TYPE c,
v_exterior(1) TYPE c.
CLEAR: tdynpread, record_tab.
REFRESH: tdynpread, record_tab.
EXPORT record_tab TO MEMORY ID 'contrazao'.
READ TABLE itab_zycbt134 INDEX 1.
SET PARAMETER ID '/PWS/ZYCBP019' FIELD itab_zycbt134-nrseq.
IF sy-dynnr = '0301'.
v_brasil = 'X'.
v_exterior = ' ' .
ELSEIF sy-dynnr = '0302'.
v_brasil = ' ' .
v_exterior = 'X'.
EXPORT v_moeda TO MEMORY ID 'moeda'.
ENDIF.
EXPORT v_brasil TO MEMORY ID 'brasil'.
EXPORT v_exterior TO MEMORY ID 'exterior'.
v_searchhelp = '/PWS/ZYCBA285'.
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'.
READ TABLE record_tab INDEX 1.
CHECK sy-subrc EQ 0 .
CLEAR v_bukrs.
IF record_tab(3) = sy-mandt.
v_bukrs = record_tab+68(4).
v_bcocred = record_tab+3(10).
v_contrazao = record_tab+58(10).
ELSE.
v_bukrs = record_tab+65(4).
v_bcocred = record_tab+0(10).
v_contrazao = record_tab+55(10).
ENDIF.
v_bco_cab = v_bcocred.
READ TABLE itab_zycbt134 WITH KEY bukrs = v_bukrs.
IF sy-subrc = 0.
tdynpread-fieldname = 'V_BCOCRED' .
IF v_bcocred NE '00'.
tdynpread-fieldvalue = v_bcocred .
APPEND tdynpread .
ENDIF.
tdynpread-fieldname = 'V_CONTRAZAO' .
IF v_bcocred NE '00'.
tdynpread-fieldvalue = v_contrazao .
APPEND tdynpread .
ENDIF.
IF v_bcocred EQ '00'.
v_bcocred = ' '.
ENDIF.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-cprog
dynumb = '0301'
TABLES
dynpfields = tdynpread
EXCEPTIONS
OTHERS = 8.
ENDIF.
ENDMODULE.
MODULE ajuda_pesquisa_bancotc INPUT.
DATA: v_line TYPE i.
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_zycbt134 INDEX v_line.
SET PARAMETER ID '/PWS/ZYCBP019' FIELD itab_zycbt134-nrseq.
IF sy-dynnr = '0202'.
v_brasil = 'X'.
v_exterior = ' ' .
ENDIF.
EXPORT v_brasil TO MEMORY ID 'brasil'.
EXPORT v_exterior TO MEMORY ID 'exterior'.
v_searchhelp = '/PWS/ZYCBA285'.
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/zycbe134-bcocred = record_tab+3(10).
/pws/zycbe134-conta_contab = record_tab+58(10).
ELSE.
/pws/zycbe134-bcocred = record_tab+0(10).
/pws/zycbe134-conta_contab = record_tab+55(10).
ENDIF.
PERFORM adiciona_linha_tc:
USING
'/PWS/ZYCBE134-BCOCRED' /pws/zycbe134-bcocred v_line
CHANGING
tdynpread[],
USING
'/PWS/ZYCBE134-CONTA_CONTAB' /pws/zycbe134-conta_contab v_line
CHANGING
tdynpread[].
IF /pws/zycbe134-bcocred EQ '00'.
/pws/zycbe134-bcocred = ' ' .
ENDIF.
itab_zycbt134-bco_tc = /pws/zycbe134-bcocred.
MODIFY itab_zycbt134 TRANSPORTING bco_tc
WHERE nrseq = itab_zycbt134-nrseq
AND dtboleto = itab_zycbt134-dtboleto
AND tpproc = itab_zycbt134-tpproc.
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/MZYCB115O01
...
screen-name = 'PROPBCO' ).
screen-input = 0.
screen-invisible = 1.
ELSE.
IF ( screen-name = 'V_BCOEMP' OR
screen-name = 'V_IDCONTA' OR
screen-name = 'V_DTPAGTO' OR
screen-name = 'V_BCOEMPT' OR
screen-name = 'V_BVTYP' OR
screen-name = 'V_IDCONTAT' OR
* >> Início da inclusão: MODULE SET_SCREEN
screen-name = 'Q_BANCO' OR
screen-name = 'BCOCRED' OR
screen-name = 'V_BCOCRED' OR
screen-name = 'V_BCODESCR' OR
screen-name = 'V_PROPBCO' OR
screen-name = 'PROPBCO' OR
* << Fim da inclusão
screen-name = 'V_DTPAGTO_TXT' ) AND
/pws/zyglt009-arq_eletro = ' '.
screen-input = 0.
screen-invisible = 1.
ELSEIF ( screen-name = 'BCOCRED' OR
screen-name = 'V_BCOCRED' OR
screen-name = 'V_BCODESCR' OR
screen-name = 'V_PROPBCO' OR
screen-name = 'PROPBCO' ) AND
/pws/zyglt009-arq_eletro = 'X'.
...
...
NOT v_ccexterior IS INITIAL ).
wa_cols-screen-input = 0.
wa_cols-screen-invisible = 1.
wa_cols-invisible = 1.
ELSEIF wa_cols-screen-name = '/PWS/ZYCBE134-BCOCRED' AND
/pws/zyglt009-arq_eletro = ' ' AND pressed_tab = 'FC_EPAG'.
wa_cols-screen-input = 1.
wa_cols-screen-invisible = 0.
wa_cols-invisible = 0.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
if wa_cols-screen-name = '/PWS/ZYCBE134-CONTA_CONTAB' and
/pws/zyglt009-arq_eletro = ' ' .
if not v_ccexterior is initial.
wa_cols-screen-input = 0.
wa_cols-screen-invisible = 1.
wa_cols-invisible = 1.
endif.
elseif wa_cols-screen-name = '/PWS/ZYCBE134-CONTA_CONTAB' and
/pws/zyglt009-arq_eletro = 'X' .
IF NOT v_ccbrasil IS INITIAL.
wa_cols-screen-input = 0.
wa_cols-screen-invisible = 1.
wa_cols-invisible = 1.
endif.
endif.
* << Fim da inclusão
MODIFY tc_boletos2-cols FROM wa_cols.
ENDLOOP.
DESCRIBE TABLE itab_zycbt134 LINES v_reg2.
tc_boletos2-lines = v_reg2.
DESCRIBE TABLE itab_zycbt232 LINES v_reg2.
tc_ordens-lines = v_reg2.
WHEN '0203'.
DESCRIBE TABLE itab_zycbt134_pagos LINES v_reg2.
IF NOT v_nrbol IS INITIAL.
tc_boletos3-top_line = v_index_bol.
...
...
MODIFY SCREEN.
ENDIF.
IF screen-name = 'V_DTLANC'.
screen-input = 1.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
endmodule.
module carrega_302 output.
MOVE: v_moeda_ordem TO v_moeda.
* >> Início da inclusão: MODULE CARREGA_302
IF V_BCOCRED IS INITIAL.
CLEAR V_CONTRAZAO.
ENDIF.
* << Fim da inclusão
endmodule.
* >> Início da inclusão:
module set_screen_301 output.
CHECK ts_saida-ACTIVETAB EQ 'FC_EPAG'.
DATA: v_empresa TYPE /pws/zycbt134-bukrs.
CLEAR: V_EMPRESA, v_tabix, v_eletron.
LOOP AT itab_zycbt134 .
v_tabix = sy-tabix.
if v_empresa is initial.
v_empresa = itab_zycbt134-bukrs.
else.
if v_empresa ne itab_zycbt134-bukrs.
v_empresa = itab_zycbt134-bukrs.
else.
clear v_empresa.
endif.
endif.
endloop.
if v_tabix = '1'.
clear v_empresa.
endif.
LOOP AT SCREEN.
IF /pws/zyglt009-arq_eletro = ' ' .
CASE SCREEN-NAME.
WHEN 'V_BCOCRED' .
if not v_empresa is initial.
screen-input = 0.
else.
screen-input = 1.
endif.
WHEN 'V_DTLANC' .
screen-input = 1.
screen-required = 1.
WHEN 'V_CONTRAZAO' .
screen-input = 0.
WHEN 'V_PROPBCO' .
if not v_empresa is initial.
screen-input = 0.
else.
screen-input = 1.
endif.
ENDCASE.
ELSEIF /pws/zyglt009-arq_eletro = 'X' .
IF screen-name = 'BCOCRED' OR
screen-name = 'V_BCOCRED' OR
screen-name = 'V_BCODESCR' OR
screen-name = 'V_PROPBCO' OR
screen-name = 'V_CONTRAZAO' OR
screen-name = 'V_DTLANC' OR
screen-name = 'PROPBCO' OR
screen-name = '%#AUTOTEXT001' OR
screen-name = '%#AUTOTEXT002' .
screen-input = 0.
screen-invisible = 1.
v_eletron = /pws/zyglt009-arq_eletro .
ENDIF .
ENDIF.
MODIFY SCREEN.
ENDLOOP.
endmodule.
module carrega_301 output.
IF V_BCOCRED IS INITIAL.
CLEAR V_CONTRAZAO.
ENDIF.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115TOP
...
TYPES:
BEGIN OF t_lfbk,
lifnr TYPE lfbk-lifnr,
bankl TYPE lfbk-bankl,
bankn TYPE lfbk-bankn,
bkont TYPE lfbk-bkont,
bvtyp TYPE lfbk-bvtyp,
END OF t_lfbk,
t_t_lfbk TYPE SORTED TABLE OF t_lfbk
WITH NON-UNIQUE KEY lifnr bvtyp.
* >> Início da inclusão:
types:
t_itab_dynpread TYPE TABLE OF dynpread.
* << Fim da inclusão
TABLES:
adrc,
t001w,
t021r,
t042i,
t012k,
t012,
lfa1,
* >> Início da inclusão:
lfb1,
* << Fim da inclusão
bkpf,
t001,
j_1bbranch,
/pws/zycbe004,
/pws/zycbe119,
/pws/zycit006,
/pws/zycbt007,
/pws/zycbt009,
/pws/zycbt108,
/pws/zyglt009,
...
...
v_aprov,
v_lifnr LIKE lfa1-lifnr,
v_doc_est TYPE bkpf-stblg,
v_pos_itab TYPE sy-tabix,
v_syrepid LIKE sy-repid,
v_bcoemp LIKE /pws/zycbt134-hbkid,
v_bcoemp_tx LIKE varit-vtext,
v_idconta LIKE /pws/zycbt134-hktid,
v_idcontat LIKE varit-vtext,
v_bvtyp TYPE lfbk-bvtyp,
* >> Início da inclusão:
v_bukrs LIKE /pws/zycbt031-bukrs,
v_eletron type /pws/zyglt009-arq_eletro,
v_bco_cab type /pws/zycbe134-bcocred,
* << Fim da inclusão
v_dtpagto LIKE sy-datum,
pressed_tab LIKE sy-ucomm,
dynpronr(4) TYPE c,
v_tot_brl LIKE /pws/zycbt031-vlmi,
v_tot_irrf_brl LIKE /pws/zycbt031-vlmiir,
v_tot_cide_brl LIKE /pws/zycbt031-vlmicide,
v_tot_iof_brl LIKE /pws/zycbt031-vlmi,
v_tot_iss_brl LIKE /pws/zycbt031-vlmi,
v_tot_pis_brl LIKE /pws/zycbt031-vlmi,
v_tot_cofins_brl LIKE /pws/zycbt031-vlmi,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115X01
...
taxacide LIKE /pws/zycbt031-taxacide,
zlsch LIKE /pws/zycbt145-zlsch,
v_meiopag LIKE t042z-text1,
waersb LIKE /pws/zycbt007-waersb,
bcooper LIKE /pws/zycbt031-bcooper,
vlded LIKE /pws/zycbt031-vldedirrf,
pagtoirrf LIKE /pws/zycbt031-pagtoirrf,
controle(1) TYPE c,
index(2) TYPE n,
nok(1) TYPE c,
* >> Início da exclusão:
mark.
* << Fim da exclusão
* >> Início da inclusão:
mark,
bco_tc TYPE /pws/zycbe134-bcocred.
* << Fim da inclusão
DATA: END OF itab_zycbt134_g.
DATA: itab_zycbt134 LIKE itab_zycbt134_g OCCURS 50
WITH HEADER LINE.
DATA: itab_zycbt134_aux LIKE itab_zycbt134_g OCCURS 50
WITH HEADER LINE.
DATA: itab_zycbt134_pagos LIKE itab_zycbt134_g OCCURS 50
WITH HEADER LINE.
DATA: itab_zycbt134_pagos_aux LIKE itab_zycbt134_g OCCURS 50
WITH HEADER LINE.
DATA: itab_zycbt134_estorno LIKE itab_zycbt134_g OCCURS 50
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB115
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 290
Texto: (29 caracteres)
"Selecionar data de lançamento"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 291
Texto: (16 caracteres)
"Período fechado."
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 292
Texto: (37 caracteres)
"Digite uma data de lançamento válida:"
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 293
Texto: (44 caracteres)
"Empresa da ajuda de pesquisa não corresponde"
Comprimento máximo: 80
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 294
Texto: (36 caracteres)
"com a empresa do boleto selecionado."
Comprimento máximo: 36
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLD /PWS/ZYCBA285
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCBA285
DESCRIÇÃO BREVE: CB - Tipos - Banco
DEFINIÇÃO
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO: /PWS/ZYCBV223
COMPORTAMENTO DE DIÁLOGO: ____________________________
TIPO DE DIÁLOGO: Diálogo com restrição de valores
HOT KEY: A
EXIT AJUD. PESQUISA: /PWS/ZYCBA285
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
SORTL x 1 1 SORTL 'BANCO'
LIFNR x 0 0 LIFNR X
CODAUX1 x x 2 2 /PWS/ZYGLL869
NAME1 x x 3 3 NAME1_GP
KONTH x x 4 4 SAKNR
BUKRS x x 5 5 BUKRS
KTOSL x 0 0 KTOSL 'FBK'
CODAUX2 x 0 0 /PWS/ZYGLL870
CODAUX3 x 6 6 /PWS/ZYGLL871
----------------------------------------------------------------------------------------------------
Modificações efetuadas em VIEW /PWS/ZYCBV223
MODIFICAR VISAO : /PWS/ZYCBV223
DESCRIÇÃO BREVE: CB - Tipos - Banco
TABELAS/CONDIÇÕES JOIN
TABELAS:
LFA1
LFB1
/PWS/ZYGLT316
CONDIÇÕES JOIN:
TABELA NOME CPO = TABELA NOME CPO
LFA1 MANDT = LFB1 MANDT
LFA1 LIFNR = LFB1 LIFNR
LFB1 MANDT = /PWS/ZYGLT316 MANDT
LFB1 BUKRS = /PWS/ZYGLT316 BUKRS
CPOS. VISÃO
CAMPO VISÃO: NOME TAB: NOME CAMPO: MOD:
MANDT CLNT 3 Mandante
LIFNR CHAR 10 Nº conta do fornecedor ou credor
SORTL CHAR 10 Campo de seleção
NAME1 CHAR 35 Nome 1
KONTH CHAR 10 Nº conta do Razão
BUKRS CHAR 4 Empresa
KTOSL CHAR 3 Chave de operação
CODAUX1 CHAR 15 GL - Definição de Contas - Modificação Geral 1
CODAUX2 CHAR 15 GL - Definição de Contas - Modificação Geral 2
CODAUX3 CHAR 15 GL - Definição de Contas - Modificação Geral 3
CONDIÇÕES DE SELEÇÃO
TABELA: NOME CPO.: OPERADOR: VL COMP: AND/OR
STATUS AT.
ACESSO:
(X) - SÓ LER
(_) - LER E MODIFICAR