CE PLUS - Nota 012108
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Parâmetros
Data/Hora da Publicação: 12/04/2012 11:04:24
Data/Hora Última Alteração: 12/04/2012 11:04:24
Descrição da Nota: PARÂMETROS DE TAXA E TIPO DE DOCUMENTO
Sintoma
Inclusão de tratamento para busca do tipo de documento e taxa para contablização através da tabela
/PWS/ZYCBT169
Solução
Inclusão de tratamento para busca do tipo de documento e taxa para contablização através da tabela
/PWS/ZYCBT169
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12108 Data: 12/04/2012 Hora: 09:56:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12108
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00111
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote Descrição Breve
00582 - 00001 - 6.0 - 00022 - 271323 EXIT LIQUIDAÇÃO EM ANDAMENTO VNC009, LIQ011 E LI
03270 - 00002 - 6.0 - 00026 - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO
03276 - 00003 - 6.0 - 00026 - LIQUIDAÇÃO EM ANDAMENTO - DESMEMBRAMENTO CLIENTE - ERRO BI - ZTERM
03487 - 00004 - 7.0 - 00001 - EXIT¿S LIQ001 E LIQ002.
03662 - 00005 - 7.0 - 00001 - VALORES MANTIDOS NO EXTERIOR - CAMPO ZTERM
03695 - 00006 - 7.0 - 00001 - LIQUIDAÇÃO EM ANDAMENTO - EXIT¿S LIQ003 LIQ005 LIQ006.
03849 - 00007 - 7.0 - 00001 - LIQUIDAÇÃO EM ANDAMENTO - VALOR PARCIAL
04709 - 00008 - 7.0 - 00002 - VALORES MANTIDOS NO EXTERIOR - ESTORNO COM LIQUIDAÇÃO EM ANDAMENTO
04930 - 00009 - 7.0 - 00003 - CODE INSPECTOR(ROTINA MENSAL)
05063 - 00010 - 7.0 - 00003 - ROTINA MENSAL EXPORTAÇÃO - NÃO GERA CONTABILIZAÇÃO
05316 - 00011 - 7.0 - 00003 - ROTINA MENSAL EXPORTAÇÃO - SEPARAÇÃO ACC/ACE - CONTABILIZAÇÃO
05482 - 00012 - 7.0 - 00003 - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO
05967 - 00013 - 7.0 - 00004 - VALORES MANTIDOS NO EXTERIOR - EXIT VME001
05970 - 00014 - 7.0 - 00004 - VALORES MANTIDOS NO EXTERIOR - TAXA DO ESTORNO
06012 - 00015 - 7.0 - 00004 - CODE INSPECTOR, VERIFICAÇÃO AMPLIADA, PROGRAMAS CAMBIO
06017 - 00016 - 7.0 - 00004 - CB - 442639 - CODE INSPECTOR
06038 - 00017 - 7.0 - 00004 - CODE INSPECTOR, VERIFICAÇÃO AMPLIADA - CAMBIO
06371 - 00018 - 7.0 - 00005 - VALORES MANTIDOS NO EXTERIOR - DEVOLUÇÃO
06404 - 00019 - 7.0 - 00005 - PROCESSAR BOLETO - STATUS DA COMISSÃO
07116 - 00020 - 7.0 - 00006 - EXPORTAÇÃO CAPTAÇÃO
07169 - 00021 - 7.0 - 00006 - TRAZER OS AJUSTES DO CHAMADO 392344 PARA O PRODUTO
07635 - 00021 - 7.0 - 00007 - LIQUIDAÇÃO EM ANDAMENTO - NÃO APARECE O CAMPO CHAVE DE REFERENCIA
07691 - 00022 - 7.0 - 00007 - VALORES MANTIDOS NO EXTERIOR - ATUALIZAÇÃO SALDO APÓS F-02
07931 - 00023 - 7.0 - 00008 - DA - SISTEMA DE PAGAMENTOS EM MOEDA LOCAL E ASSOCIAÇÃO(SML)
08239 - 00024 - 7.0 - 00009 - VALORES MANTIDOS NO EXTERIOR E LIQUIDAÇÃO - COMISSÃO DE AGENTE
10163 - 00025 - 8.0 - 00003 - VALORES MANTIDOS NO EXTERIOR - PONTO DE EXIT NOS VALORES MANTIDOS
10908 - 00026 - 8.0 - 00006 - ROTINA MENSAL - TRANSFERÊNCIA L/C
11065 - 00027 - 8.0 - 00007 - VALORES MANTIDOS NO EXTERIOR
11168 - 00028 - 8.0 - 00007 - VME - DISPONIBILIDADE FATURAS - VINCULAÇÃO - BLOQUEIO DE FATURAS
11339 - 00029 - 8.0 - 00008 - DESCONTO DE RECEBÍVEIS, CRIAR BOTÃO PARA SELECIONAR FATURAS
11413 - 00030 - 8.0 - 00008 - CONTRATOS DE NCE
11506 - 00031 - 8.0 - 00009 - TRILHA DE AUDITORIA
11643 - 00032 - 8.0 - 00009 - ROTINA MENSAL EXPORTAÇÃO, TRILHA DE AUDITORIA, LOG
11653 - 00033 - 8.0 - 00009 - DESCONTO DE RECEBÍVEIS - TRILHA AUDITORIA
11656 - 00034 - 8.0 - 00009 - LIQUIDAÇÃO EM ANDAMENTO - TRILHA AUDITORIA
11662 - 00035 - 8.0 - 00009 - ASSOCIAÇÃO VME / SML - TRILHA AUDITORIA
11665 - 00036 - 8.0 - 00009 - VALORES MANTIDOS NO EXTERIOR - VME - SML - TRILHA AUDITORIA
11707 - 00037 - 8.0 - 00009 - PARÂMETROS CÂMBIO ( CÂMBIO, RELATÓRIO, TÉCNICOS ) - TRILHA DE AUDI
----------------------------------------------------------------------------------------------------
Texto Rápido:
PARÂMETROS DE TAXA E TIPO DE DOCUMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PARÂMETROS DE TAXA E TIPO DE DOCUMENTO
LIQUIDAÇÃO EM ANDAMENTO - DESCONTO RECEBÍVEIS - VME - SML - ROTINA MENSA
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMD /PWS/ZYGLD601
DYNP /PWS/SAPMZYGL007 0118
FUNC /PWS/ZYCB_DADOS_BI
REPS /PWS/MZYCB031F01
REPS /PWS/MZYCB031TOP
REPS /PWS/MZYCB033F01
REPS /PWS/MZYCB033TOP
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB034TOP
REPS /PWS/MZYGL007O01
REPS /PWS/ZYCBI003
REPS /PWS/ZYCBR003
REPS /PWS/ZYGLR030
TABD /PWS/ZYCBT169
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMD /PWS/ZYGLD601
------------------------------------------------------------------------
Domínio modificado: /PWS/ZYGLD601
-Valores individuais
Incluído valor fixo "REC"
Texto incluído, idioma: PT (22 caracteres):
"Desconto de Recebíveis"
Incluído valor fixo "LAN"
Texto incluído, idioma: PT (23 caracteres):
"Liquidação em Andamento"
Incluído valor fixo "VME"
Texto incluído, idioma: PT (28 caracteres):
"Valores Mantidos no Exterior"
Incluído valor fixo "SML"
Texto incluído, idioma: PT (30 caracteres):
"Sistema de Pgto em Moeda Local"
Incluído valor fixo "TLC"
Texto incluído, idioma: PT (34 caracteres):
"Rotina Mensal Exp. - Transf. LP/CP"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYGL007 0118
Solicitar o download da tela junto a equipe de produtos pw.CE através do telefone (11)5504.0170
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DADOS_BI
MODIFICAÇÕES EFETUADAS NOS PARÂMETROS DE IMPORTAÇÃO
Incluir os parâmetros de importação:
Nome do Parâmetro Atrib. Tipo Tipo Referência Valor Proposto Opcional Transfer. valor
I_DTINCL TYPE SY-DATUM X X
I_DTCREDEXT TYPE SY-DATUM X X
I_DTOP TYPE SY-DATUM X X
MODIFICAÇÕES EFETUADAS NO TEXTO FONTE
...
WHEN 'DTBL'.
v_databl = i_zycbt017-dtbl.
WHEN 'TXACE'.
v_databl = i_zycbt005-dtvincul.
WHEN 'TXCONTR'.
t_zycbe033-kursf = i_zycbt001-txcneg.
CLEAR v_databl.
WHEN 'DTCONTR2'.
v_databl = i_zycbt001-dtcontr.
ENDCASE.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DADOS_BI
ELSEIF i_funcionalidade = 'TLC'.
CASE itab_zycbt169-taxa.
WHEN 'DTBUDAT' or 'DTLANC'.
v_databl = i_dtlanc.
WHEN 'DTCONTR'.
v_databl = i_zycbt001-dtcontr.
ENDCASE.
ELSEIF i_funcionalidade = 'LAN' OR
i_funcionalidade = 'REC' OR
i_funcionalidade = 'VME' OR
i_funcionalidade = 'SML'.
CASE itab_zycbt169-taxa.
WHEN 'DTBL'.
v_databl = i_zycbt017-dtbl.
WHEN 'DTEMB'.
SELECT SINGLE dtemb
FROM /pws/zycet001
INTO v_databl
WHERE nrseq = i_zycbt017-nrinvoic.
WHEN 'DTLANC'.
v_databl = i_dtlanc.
WHEN 'DTCREDEXT'.
v_databl = i_dtcredext.
WHEN 'DTFECH'.
v_data_aux = i_dtincl.
v_data_aux+6(2) = '01'.
v_data_aux = v_data_aux - 1.
v_databl = v_data_aux.
WHEN 'DTFECH1'.
v_data_aux = i_dtincl.
v_data_aux+6(2) = '01'.
v_databl = v_data_aux.
WHEN 'TXFAT' OR 'TXFATUR'.
SELECT SINGLE belnr dtbelnr
FROM /pws/zycbt030
INTO (v_belnr,v_dtemb)
WHERE nrinvoic EQ i_zycbt017-nrinvoic AND
gsberf EQ i_zycbt017-gsberf AND
nrparcf EQ i_zycbt017-nrparcf.
IF NOT v_belnr IS INITIAL AND
NOT v_dtemb IS INITIAL.
CLEAR v_year.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = i_zycbt017-bukrs
v_date = v_dtemb
IMPORTING
v_year = v_year
EXCEPTIONS
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
OTHERS = 7.
SELECT SINGLE kursf FROM bkpf
INTO t_zycbe033-kursf
WHERE bukrs = i_zycbt017-bukrs AND
belnr = v_belnr AND
gjahr = v_year.
ENDIF.
CLEAR v_databl.
WHEN 'VIATRANS'.
CLEAR wa_zycet048.
SELECT SINGLE dtemb dtvencto viatrans dtaverb dtcruze
nrseq
FROM /pws/zycet001
INTO (v_dtemb, v_dtvencto,v_viatrans,
v_dtaverb2, v_dtcruze,v_nrseq)
WHERE nrseq EQ i_zycbt017-nrinvoic.
SELECT SINGLE vktra FROM /pws/zycit054
INTO (v_vktra)
WHERE vktra_ci EQ v_viatrans.
IF NOT v_vktra IS INITIAL.
SELECT SINGLE * FROM /pws/zycet048
INTO wa_zycet048
WHERE vktrt EQ v_vktra.
IF sy-subrc EQ 0.
IF wa_zycet048-dtvrc EQ wa_zycet048-dtvencto.
SELECT SINGLE kurrf_bl FROM /pws/zycet001
INTO t_zycbe033-kursf
WHERE nrseq EQ i_zycbt017-nrinvoic.
CLEAR v_databl.
ELSE.
IF wa_zycet048-dtvrc EQ 'DTBL'.
SELECT SINGLE dtbl FROM /pws/zycet047
INTO (v_databl)
WHERE nrseq EQ v_nrseq.
ELSEIF wa_zycet048-dtvrc EQ 'DTEMB'.
v_databl = v_dtemb.
ELSEIF wa_zycet048-dtvrc EQ 'DTAVERB'.
v_databl = v_dtaverb2.
ELSEIF wa_zycet048-dtvrc EQ 'DTCRUZE'.
v_databl = v_dtcruze.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
WHEN 'DTDEVOL'.
v_databl = i_dtincl.
WHEN 'DTOP'.
v_databl = i_dtop.
ENDCASE.
* << Fim da inclusão
ENDIF.
IF NOT v_databl IS INITIAL.
SELECT * FROM /pws/zycbt009
UP TO 1 ROWS
INTO wa_zycbt009
WHERE codpadr = i_ctmoed.
ENDSELECT.
CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'
EXPORTING
i_montante = '1'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031F01
...
and kunnr = itab_zycbt209-kunnr
and bukrs = itab_zycbt209-bukrs.
endselect.
else.
itab_zycbt036-dtdocto = itab_zycbt209-dtcredext.
endif.
append itab_zycbt036.
endloop.
if sy-subrc eq 0.
append itab_zycbe033.
* >> Início da inclusão: FORM PROC_INCLUSAO
v_tpcontabil = 'LIQ_AND'.
move-corresponding: itab_zycbt017 to wa_zycbt017,
/pws/zycbt007 to wa_zycbt007,
/pws/zycbt011 to wa_zycbt011.
perform busca_dados_bi using itab_zycbt209-bukrs
v_tpcontabil.
* << Fim da inclusão
endif.
v_syrepid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'E'
i_func = v_syrepid
tables
itab_zyglt100 = itab_zyglt100
exceptions
i_codmod_nao_encontrado = 1
...
...
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = itab_zycbe033-wrbtr.
itab_zycbt036-zuonr = itab_zycbe033-d_zuonr.
append itab_zycbt036.
itab_zycbe033-belnr = itab_zycbt030-v_belnr.
perform verifica_prorrogacao.
if itab_zycbe033-wrbtr gt 0.
append itab_zycbe033.
endif.
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
v_tpcontabil = 'D_CLI'.
move-corresponding: itab_zycbt017 to wa_zycbt017,
/pws/zycbt007 to wa_zycbt007,
/pws/zycbt011 to wa_zycbt011.
perform busca_dados_bi using itab_zycbt209-bukrs
v_tpcontabil.
* << Fim da inclusão
clear v_vinc_tot.
if itab_zycbt209-vlme = itab_zycbt209-vlsltrans.
v_vinc_tot = 'X'.
endif.
v_syrepid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'E'
i_func = v_syrepid
tables
...
...
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
if itab_zycbt209-belnr2 is initial.
itab_zycbt036-belnr = itab_zycbt209-belnr.
else.
itab_zycbt036-belnr = itab_zycbt209-belnr2.
endif.
itab_zycbt036-dtdocto = itab_zycbt209-dtbelnr.
append itab_zycbt036.
* >> Início da inclusão: FORM ESTORNA_AGRUPAMENTO
v_tpcontabil = 'E_LIQ_AND'.
move-corresponding: itab_zycbt017 to wa_zycbt017,
/pws/zycbt007 to wa_zycbt007,
/pws/zycbt011 to wa_zycbt011.
perform busca_dados_bi using itab_zycbt209-bukrs
v_tpcontabil.
* << Fim da inclusão
loop at itab_zycbt034.
call function 'MESSAGE_STORE'
exporting
arbgb = '/PWS/ZYCBM'
msgty = 'I'
msgv1 = itab_zycbt034-descricao
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
endloop.
...
...
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
if itab_zycbt209-belnr2 is initial.
itab_zycbt036-belnr = itab_zycbt209-belnr.
else.
itab_zycbt036-belnr = itab_zycbt209-belnr2.
endif.
itab_zycbt036-dtdocto = itab_zycbt209-dtbelnr.
append itab_zycbt036.
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
v_tpcontabil = 'E_LIQ_AND'.
move-corresponding: itab_zycbt017 to wa_zycbt017,
/pws/zycbt007 to wa_zycbt007,
/pws/zycbt011 to wa_zycbt011.
perform busca_dados_bi using itab_zycbt209-bukrs
v_tpcontabil.
* << Fim da inclusão
loop at itab_zycbt034.
call function 'MESSAGE_STORE'
exporting
arbgb = '/PWS/ZYCBM'
msgty = 'I'
msgv1 = itab_zycbt034-descricao
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
endloop.
...
...
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-dtdocto = itab_zycbt030-budat.
itab_zycbt036-belnr = itab_zycbt030-belnr6.
append itab_zycbt036.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT209'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-dtdocto = p_dtbelnr.
itab_zycbt036-belnr = p_belnr.
append itab_zycbt036.
* >> Início da inclusão: FORM CLEARING
v_tpcontabil = 'E_D_CLI'.
move-corresponding: itab_zycbt017 to wa_zycbt017,
/pws/zycbt007 to wa_zycbt007,
/pws/zycbt011 to wa_zycbt011.
perform busca_dados_bi using itab_zycbt209-bukrs
v_tpcontabil.
* << Fim da inclusão
if itab_zycbt034 is initial.
perform busca_exit.
read table itab_zyglt100 with key zexit = 'LIQ003'.
if sy-subrc eq 0.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
else.
v_tcode = 'F-30'.
call function '/PWS/ZYCB_TRANSACAO_F_30_P'
exporting
...
...
endif.
if v_nlin is initial.
message w015 with text-077.
else.
v_select = 'X'.
set screen '0100'.
leave to screen '0100'.
endif.
endif.
endform.
* >> Início da inclusão:
form busca_dados_bi using p_bukrs
p_tpcontabil.
call function '/PWS/ZYCB_DADOS_BI'
exporting
i_bukrs = p_bukrs
i_funcionalidade = 'LAN'
i_tpcontabil = p_tpcontabil
i_dtlanc = itab_zycbe033-budat
i_zycbt007 = wa_zycbt007
i_zycbt017 = wa_zycbt017
i_waers = itab_zycbe033-waers
i_ctmoed = wa_zycbt011-ctmoed
i_tcode = itab_zycbe033-tcode
i_tabela = itab_zycbe033-tabela
i_cpochv = itab_zycbe033-cpochv
i_dtincl = itab_zycbt209-dtincl
i_dtcredext = itab_zycbt209-dtcredext
importing
e_kursf = itab_zycbe033-kursf
tables
t_zycbe033 = itab_zycbe033
t_zycbt036 = itab_zycbt036
t_zycbt034 = itab_zycbt034.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031TOP
...
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,
v_ano like t009b-bdatj,
v_monat like t001b-frpe1,
v_select type c,
v_index type i.
* >> Início da inclusão:
DATA: v_tpcontabil TYPE /pws/zycbt169-tpcontabil,
wa_zycbt017 TYPE /pws/zycbt017,
wa_zycbt007 TYPE /pws/zycbt007,
wa_zycbt011 TYPE /pws/zycbt011.
* << Fim da inclusão
data: begin of itab_nrinvoic occurs 1,
sign(1) type c,
option(2) type c,
low like /pws/zycbe017-nrinvoic,
high like /pws/zycbe017a-nrinvoic,
end of itab_nrinvoic.
data: begin of itab_gsberf occurs 1,
sign(1) type c,
option(2) type c,
low like /pws/zycbe017-gsberf,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB033F01
...
else.
itab_zycbt036-dtdocto = itab_zycbt219-dtcredext.
endif.
append itab_zycbt036.
endloop.
itab_zycbe033-vbund = itab_zycbt219-vbund.
itab_zycbe033-brnch = itab_zycbt030-j_1bbranch.
itab_zycbe033-werks = itab_zycbt030-werks.
if sy-subrc eq 0.
append itab_zycbe033.
* >> Início da inclusão: FORM PROC_INCLUSAO
v_tpcontabil = 'DREC'.
move-corresponding: /pws/zycbt007 to wa_zycbt007,
/pws/zycbt011 to wa_zycbt011.
select single * from /pws/zycbt017
into wa_zycbt017
where nrinvoic = itab_zycbt219-nrinvoic
and gsberf = itab_zycbt219-gsberf
and nrparcf = itab_zycbt219-nrparcf.
perform busca_dados_bi using itab_zycbe033-bukrs
v_tpcontabil.
* << Fim da inclusão
endif.
loop at itab_zycbt034.
call function 'MESSAGE_STORE'
exporting
arbgb = '/PWS/ZYCBM'
msgty = 'E'
msgv1 = itab_zycbt034-descricao
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
...
...
itab_partidas-cpochv = v_cpochv.
itab_partidas-belnr = v_belnr_inv.
itab_partidas-dtdocto = sy-datum.
append itab_partidas.
itab_partidas-belnr = itab_zycbt219-belnr.
itab_partidas-dtdocto = itab_zycbt219-dtincl.
append itab_partidas.
itab_partidas-belnr = itab_zycbt219-belnr2.
itab_partidas-dtdocto = itab_zycbt219-dtbelnr.
append itab_partidas.
* >> Início da inclusão: FORM ESTORNA_AGRUPAMENTO
if p_flag is initial.
v_tpcontabil = 'C_CLI'.
else.
v_tpcontabil = 'C_DREC'.
endif.
move-corresponding: /pws/zycbt007 to wa_zycbt007,
/pws/zycbt011 to wa_zycbt011.
select single * from /pws/zycbt017
into wa_zycbt017
where nrinvoic = itab_zycbt219-nrinvoic
and gsberf = itab_zycbt219-gsberf
and nrparcf = itab_zycbt219-nrparcf.
perform busca_dados_bi using itab_zycbe033-bukrs
v_tpcontabil.
* << Fim da inclusão
if not itab_zycbt219-belnr_cli is initial.
itab_partidas-belnr = itab_zycbt219-belnr_cli.
itab_partidas-dtdocto = itab_zycbt219-dt_cli.
append itab_partidas.
endif.
loop at itab_zycbt034.
call function 'MESSAGE_STORE'
exporting
arbgb = '/PWS/ZYCBM'
msgty = 'I'
...
...
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
if itab_zycbt219-belnr2 is initial.
itab_zycbt036-belnr = itab_zycbt219-belnr.
itab_zycbt036-dtdocto = itab_zycbt219-dtincl.
else.
itab_zycbt036-belnr = itab_zycbt219-belnr2.
itab_zycbt036-dtdocto = itab_zycbt219-dtbelnr.
endif.
append itab_zycbt036.
endif.
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
v_tpcontabil = 'C_CLI'.
move-corresponding: /pws/zycbt007 to wa_zycbt007,
/pws/zycbt011 to wa_zycbt011.
select single * from /pws/zycbt017
into wa_zycbt017
where nrinvoic = itab_zycbt219-nrinvoic
and gsberf = itab_zycbt219-gsberf
and nrparcf = itab_zycbt219-nrparcf.
perform busca_dados_bi using itab_zycbe033-bukrs
v_tpcontabil.
* << Fim da inclusão
loop at itab_zycbt034.
call function 'MESSAGE_STORE'
exporting
arbgb = '/PWS/ZYCBM'
msgty = 'I'
msgv1 = itab_zycbt034-descricao
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
endloop.
...
...
itab_zycbt036-dtdocto = itab_zycbt219-dtcredext.
endif.
append itab_zycbt036.
endloop.
itab_zycbe033-brnch = itab_zycbt030-j_1bbranch.
itab_zycbe033-werks = itab_zycbt030-werks.
itab_zycbe033-vbund = itab_zycbt219-vbund.
itab_zycbe033-zfbdt = sy-datum.
if sy-subrc eq 0.
append itab_zycbe033.
* >> Início da inclusão: FORM EXECUTA_F02_INVERSA
v_tpcontabil = 'E_DREC'.
move-corresponding: /pws/zycbt007 to wa_zycbt007,
/pws/zycbt011 to wa_zycbt011.
select single * from /pws/zycbt017
into wa_zycbt017
where nrinvoic = itab_zycbt219-nrinvoic
and gsberf = itab_zycbt219-gsberf
and nrparcf = itab_zycbt219-nrparcf.
perform busca_dados_bi using itab_zycbe033-bukrs
v_tpcontabil.
* << Fim da inclusão
endif.
loop at itab_zycbt034.
call function 'MESSAGE_STORE'
exporting
arbgb = '/PWS/ZYCBM'
msgty = 'I'
msgv1 = itab_zycbt034-descricao
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
...
...
endif.
if v_nlin is initial.
message w015 with text-061.
else.
v_select = 'X'.
set screen '0100'.
leave to screen '0100'.
endif.
endif.
endform.
* >> Início da inclusão:
form busca_dados_bi using p_bukrs
p_tpcontabil.
call function '/PWS/ZYCB_DADOS_BI'
exporting
i_bukrs = p_bukrs
i_funcionalidade = 'REC'
i_tpcontabil = p_tpcontabil
i_dtlanc = itab_zycbe033-budat
i_zycbt007 = wa_zycbt007
i_zycbt017 = wa_zycbt017
i_waers = itab_zycbe033-waers
i_ctmoed = wa_zycbt011-ctmoed
i_tcode = itab_zycbe033-tcode
i_tabela = itab_zycbe033-tabela
i_cpochv = itab_zycbe033-cpochv
i_dtincl = itab_zycbt219-dtincl
i_dtcredext = itab_zycbt219-dtcredext
importing
e_kursf = itab_zycbe033-kursf
tables
t_zycbe033 = itab_zycbe033
t_zycbt036 = itab_zycbt036
t_zycbt034 = itab_zycbt034.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB033TOP
...
v_oper like icons-text,
v_status(1) type c value '1',
v_vlsltrans like /pws/zycbt030-vlsltrans,
v_line_ini type i value 1,
v_databl like sy-datum,
v_zeile(5) type n,
v_name1 like kna1-name1,
v_vlavinc like /pws/zycbt017-vlavinc,
v_syrepid like sy-repid,
v_belnr_inv type /pws/zycbt219-belnr.
* >> Início da inclusão:
DATA: v_tpcontabil TYPE /pws/zycbt169-tpcontabil,
wa_zycbt007 type /pws/zycbt007,
wa_zycbt011 type /pws/zycbt011,
wa_zycbt017 type /pws/zycbt017.
* << Fim da inclusão
selection-screen begin of screen 0001.
select-options: s_nrinv for /pws/zycbt219-nrinvoic,
s_bukrs for /pws/zycbt219-bukrs,
s_gsber for /pws/zycbt219-gsberf,
s_werks for /pws/zycbt219-werks,
s_nparc for /pws/zycbt219-nrparcf,
s_kunnr for /pws/zycbt219-kunnr,
s_dtinc for /pws/zycbt219-dtincl.
selection-screen end of screen 0001.
selection-screen begin of screen 0301.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
IF p_wa_zycbe033-d_sgtxt IS INITIAL.
p_wa_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
p_wa_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
p_wa_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDFORM.
FORM doc_op USING value(p_estorno) TYPE c
CHANGING p_belnr_est_f02 TYPE /pws/zycbt226-belnr_op
p_dtlancto_est_f02 TYPE /pws/zycbt226-dtlancto.
DATA: wa_zycbt032 TYPE t_s_zycbt032,
* >> Início da exclusão: FORM DOC_OP
wa_zycbe033 TYPE t_s_zycbe033,
* << Fim da exclusão
wa_zycbt034 TYPE t_s_zycbt034,
wa_tab_op TYPE t_s_tab_op,
v_lancto_multiplo TYPE c,
v_newbs2 TYPE newbs,
v_titulo(31) TYPE c,
v_codeven TYPE /pws/zycbt011-codeven.
CONSTANTS: c_op(23) TYPE c VALUE 'DOC. ORDEM DE PAGAMENTO',
c_est_op(31) TYPE c VALUE 'DOC. ESTORNO ORDEM DE PAGAMENTO'
.
* >> Início da inclusão: FORM DOC_OP
clear wa_zycbe033.
* << Fim da inclusão
IF p_estorno IS INITIAL.
CHECK <fs_op>-belnr_op IS INITIAL.
ENDIF.
IF p_estorno IS INITIAL.
v_titulo = c_op.
ELSE.
v_titulo = c_est_op.
ENDIF.
wa_zycbe033-tcode = 'F-02'.
wa_zycbe033-tabela = '/PWS/ZYCBT226'.
...
...
v_lancto_multiplo = space.
ENDIF.
PERFORM busca_conta USING <fs_op>-bukrs
<fs_op>-kunag
v_sld_liq_and
wa_zycbt209
p_estorno
CHANGING wa_zycbe033
v_newbs2.
APPEND wa_zycbe033 TO itab_zycbe033.
* >> Início da inclusão: FORM DOC_OP
if sy-tcode+13(1) eq 'C' or sy-tcode+13(1) eq 'A'.
v_tpcontabil = 'VME'.
else.
v_tpcontabil = 'SML'.
endif.
v_dtincl = <fs_op>-dtincl.
v_dtcredext = <fs_op>-dtcredext.
v_dtlanc = wa_zycbe033-budat.
perform busca_dados_bi using <fs_op>-bukrs
v_tpcontabil.
* << Fim da inclusão
PERFORM trata_exit USING 'VME001'.
LOOP AT itab_zycbt034 INTO wa_zycbt034.
PERFORM message_store USING
'/PWS/ZYCBM'
'W'
wa_zycbt034-descricao
space
space
space
'016'.
...
...
space
space
space
space
'008'.
ENDIF.
ENDIF.
ENDFORM.
FORM doc_desm_cliente.
DATA: wa_zycbt032 TYPE t_s_zycbt032,
* >> Início da exclusão: FORM DOC_DESM_CLIENTE
wa_zycbe033 TYPE t_s_zycbe033,
* << Fim da exclusão
wa_zycbt034 TYPE t_s_zycbt034,
wa_zycbt036 TYPE t_s_zycbt036,
wa_zycbt011 TYPE t_s_zycbt011.
DATA: v_vinc_tot TYPE c.
FIELD-SYMBOLS: <fs_zycbt030> TYPE t_s_zycbt030.
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
clear wa_zycbe033.
* << Fim da inclusão
CHECK NOT <fs_op>-belnr_op IS INITIAL AND
<fs_op>-belnr_desm_cli IS INITIAL AND
...
...
INTO wa_zycbe033-d_zuonr
SEPARATED BY space.
ENDIF.
wa_zycbt036-tcode = wa_zycbe033-tcode.
wa_zycbt036-tabela = wa_zycbe033-tabela.
wa_zycbt036-cpochv = wa_zycbe033-cpochv.
wa_zycbt036-residuo = wa_zycbe033-wrbtr.
wa_zycbt036-zuonr = wa_zycbe033-d_zuonr.
APPEND wa_zycbt036 TO itab_zycbt036.
APPEND wa_zycbe033 TO itab_zycbe033.
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
v_tpcontabil = 'D_CLI'.
v_dtincl = <fs_op>-dtincl.
v_dtcredext = <fs_op>-dtcredext.
v_dtlanc = wa_zycbe033-budat.
perform busca_dados_bi using <fs_op>-bukrs
v_tpcontabil.
* << Fim da inclusão
LOOP AT itab_zycbt034 INTO wa_zycbt034.
PERFORM message_store USING
'/PWS/ZYCBM'
'W'
wa_zycbt034-descricao
space
space
space
'016'.
ENDLOOP.
...
...
IF NOT v_sld_liq_and IS INITIAL.
v_desm_liqand = 'X'.
ENDIF.
ENDIF.
ELSE.
v_desm_cli = 'X'.
ENDIF.
ENDFORM.
FORM doc_desm_liq_and.
DATA: wa_zycbt032 TYPE t_s_zycbt032,
* >> Início da exclusão: FORM DOC_DESM_LIQ_AND
wa_zycbe033 TYPE t_s_zycbe033,
* << Fim da exclusão
wa_zycbt034 TYPE t_s_zycbt034,
wa_zycbt036 TYPE t_s_zycbt036,
wa_zycbt011 TYPE t_s_zycbt011,
wa_zycbt225 TYPE t_s_zycbt225,
v_vlr_lancto TYPE /pws/zycbe033-wrbtr,
v_ultimo(1) TYPE c,
v_vinc_tot(1) TYPE c.
FIELD-SYMBOLS: <fs_zycbt209> TYPE t_s_zycbt209.
CHECK NOT <fs_op>-belnr_op IS INITIAL AND
<fs_op>-belnr_desmliqand IS INITIAL AND
v_desm_liqand = 'X'.
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
clear wa_zycbe033.
* << Fim da inclusão
LOOP AT itab_zycbt209 ASSIGNING <fs_zycbt209>
WHERE nrinvoic = <fs_op>-nrinvoic
AND nrparcf = <fs_op>-nrparcf
AND gsberf = <fs_op>-gsberf
AND saldo > 0.
CLEAR: v_ultimo,
v_vinc_tot.
IF v_desm_cli = ' ' AND v_desm_liqand = 'X'.
wa_zycbe033-wrbtr = <fs_op>-vlr_exterior.
ELSEIF v_desm_cli = 'X' AND v_desm_liqand = 'X'.
...
...
ELSE.
wa_zycbt036-residuo = v_vlr_lancto.
v_ultimo = 'X'.
ENDIF.
wa_zycbt036-tcode = wa_zycbe033-tcode.
wa_zycbt036-tabela = wa_zycbe033-tabela.
wa_zycbt036-cpochv = wa_zycbe033-cpochv.
wa_zycbt036-zuonr = wa_zycbe033-d_zuonr.
APPEND wa_zycbt036 TO itab_zycbt036.
APPEND wa_zycbe033 TO itab_zycbe033.
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
v_tpcontabil = 'D_LIA'.
v_dtincl = <fs_zycbt209>-dtincl.
v_dtcredext = <fs_zycbt209>-dtcredext.
v_dtlanc = wa_zycbe033-budat.
perform busca_dados_bi using <fs_op>-bukrs
v_tpcontabil.
* << Fim da inclusão
LOOP AT itab_zycbt034 INTO wa_zycbt034.
PERFORM message_store USING
'/PWS/ZYCBM'
'W'
wa_zycbt034-descricao
space
space
space
'016'.
ENDLOOP.
...
...
OTHERS = 3.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDIF.
PERFORM limpa_dados_bi.
ENDLOOP.
ENDFORM.
FORM doc_compensacao.
DATA: wa_zycbt032 TYPE t_s_zycbt032,
* >> Início da exclusão: FORM DOC_COMPENSACAO
wa_zycbe033 TYPE t_s_zycbe033,
* << Fim da exclusão
wa_zycbt034 TYPE t_s_zycbt034,
wa_zycbt011 TYPE t_s_zycbt011,
wa_zycbt030 TYPE t_s_zycbt030,
wa_zycbt225 TYPE t_s_zycbt225,
wa_zycbt209 TYPE t_s_zycbt209,
wa_partidas TYPE t_s_zycbe033,
v_year TYPE bkpf-gjahr,
v_total(1) TYPE c,
itab_partidas TYPE t_t_zycbe033.
CHECK NOT <fs_op>-belnr_op IS INITIAL.
IF v_desm_cli = 'X'.
CHECK NOT <fs_op>-belnr_desm_cli IS INITIAL.
ENDIF.
IF v_desm_liqand = 'X'.
CHECK NOT <fs_op>-belnr_desmliqand IS INITIAL.
ENDIF.
* >> Início da inclusão: FORM DOC_COMPENSACAO
clear wa_zycbe033.
* << Fim da inclusão
wa_zycbe033-tcode = 'F-30'.
wa_zycbe033-tabela = '/PWS/ZYCBT226'.
CONCATENATE <fs_op>-nrinvoic <fs_op>-gsberf <fs_op>-nrparcf
INTO wa_zycbe033-cpochv.
PERFORM verifica_campo_vazio USING <fs_op>-dtlancto
'DTLANCTO'
'Data de Lançamento'(004).
IF NOT <fs_op>-dtlancto IS INITIAL.
wa_zycbe033-budat = <fs_op>-dtlancto.
wa_zycbe033-bldat = <fs_op>-dtlancto.
...
...
PERFORM preenche_contas_bloqueio USING sy-mandt
<fs_op>-bukrs
wa_partidas-agkoa
wa_partidas-agkon(10)
'S'.
ENDLOOP.
wa_zycbe033-d_newko = wa_partidas-agkon.
v_total = 'X'.
APPEND wa_zycbe033 TO itab_zycbe033.
SORT itab_partidas BY agkoa agkon agums belnr.
* >> Início da inclusão: FORM DOC_COMPENSACAO
v_tpcontabil = 'C_BME'.
v_dtincl = <fs_op>-dtincl.
v_dtcredext = <fs_op>-dtcredext.
v_dtlanc = wa_zycbe033-budat.
perform busca_dados_bi using <fs_op>-bukrs
v_tpcontabil.
* << Fim da inclusão
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCB_ENQUEUE_CONTAS'
EXPORTING
i_bloqueia = ' '
TABLES
itab_zycbt224 = itab_zycbe224
EXCEPTIONS
zycbe224_null = 1
erro_bloqueio = 2
OTHERS = 3.
...
...
IF v_total_30 > wa_zycbt089-previsto_usd.
v_msg_previsto = text-028.
ELSE.
CLEAR v_msg_previsto.
ENDIF.
ENDIF.
ENDFORM.
FORM contabilizacoes_estorno.
DATA: v_excecao(1) TYPE c.
DATA:
* >> Início da exclusão: FORM CONTABILIZACOES_ESTORNO
v_cpochv TYPE /pws/zycbe033-cpochv,
wa_zycbe033 TYPE t_s_zycbe033.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZACOES_ESTORNO
v_cpochv type /pws/zycbe033-cpochv.
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt226_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt226.
DATA: END OF itab_zycbt226_aux.
DATA: v_line TYPE n.
CLEAR: v_belnr_est_f02,
v_dtlancto_est_f02.
* >> Início da inclusão: FORM CONTABILIZACOES_ESTORNO
clear wa_zycbe033.
* << Fim da inclusão
PERFORM trata_exit USING 'VME003'.
...
...
PERFORM bloqueia_contas USING ' '
CHANGING v_excecao.
PERFORM apaga_registros.
PERFORM trata_exit USING 'VME003'.
ENDFORM.
FORM estorno
USING value(p_processo) TYPE c
value(p_belnr_est_f02) TYPE /pws/zycbt226-belnr_op
value(p_dtlancto_est_f02) TYPE /pws/zycbt226-dtlancto.
DATA: wa_zycbt032 TYPE t_s_zycbt032,
* >> Início da exclusão: FORM ESTORNO
wa_zycbe033 TYPE t_s_zycbe033,
* << Fim da exclusão
wa_zycbt034 TYPE t_s_zycbt034,
wa_zycbt036 TYPE t_s_zycbt036,
wa_zycbt011 TYPE t_s_zycbt011,
wa_zycbt030 TYPE t_s_zycbt030,
wa_zycbt225 TYPE t_s_zycbt225,
wa_zycbt209 TYPE t_s_zycbt209,
wa_cont TYPE t_contabilizacoes,
v_codeven TYPE /pws/zycbt011-codeven,
v_chvoper(3) TYPE c,
v_titulo(40) TYPE c,
v_tot_liqand TYPE wrbtr.
CHECK NOT p_belnr_est_f02 IS INITIAL.
* >> Início da inclusão: FORM ESTORNO
clear wa_zycbe033.
* << Fim da inclusão
IF <fs_op>-tipo_op = 'E'.
CASE p_processo.
WHEN 'C'.
CHECK NOT <fs_op>-belnr_desm_cli IS INITIAL.
WHEN 'L'.
CHECK NOT <fs_op>-belnr_desmliqand IS INITIAL.
WHEN 'O'.
CHECK NOT <fs_op>-belnr_op IS INITIAL.
CHECK <fs_op>-belnr_desmliqand IS INITIAL
AND <fs_op>-belnr_desm_cli IS INITIAL.
...
...
wa_zycbe033-koart = 'S'.
wa_zycbe033-agums = ' '.
ENDIF.
ENDIF.
PERFORM preenche_contas_bloqueio USING sy-mandt
<fs_op>-bukrs
wa_zycbe033-koart
wa_zycbe033-d_newko
'S'.
APPEND wa_zycbe033 TO itab_zycbe033.
* >> Início da inclusão: FORM ESTORNO
if p_processo = 'C'.
v_tpcontabil = 'C_CLI'.
elseif p_processo = 'O'.
v_tpcontabil = 'C_BME'.
endif.
v_dtincl = <fs_op>-dtincl.
v_dtcredext = <fs_op>-dtcredext.
v_dtlanc = wa_zycbe033-budat.
perform busca_dados_bi using <fs_op>-bukrs
v_tpcontabil.
* << Fim da inclusão
v_processo = p_processo.
PERFORM trata_exit USING 'VME004'.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCB_ENQUEUE_CONTAS'
EXPORTING
i_bloqueia = ' '
TABLES
itab_zycbt224 = itab_zycbe224
EXCEPTIONS
zycbe224_null = 1
...
...
ENDLOOP.
DELETE itab_zycbt226 WHERE nrseq = v_nrseq_op.
DELETE FROM /pws/zycbt226 WHERE nrseq = v_nrseq_op.
DELETE itab_zycbt225 WHERE nrseq = v_nrseq_op.
DELETE FROM /pws/zycbt225 WHERE nrseq = v_nrseq_op.
ENDFORM.
FORM f02_reversa
CHANGING p_belnr_est_f02 TYPE /pws/zycbt226-belnr_op
p_dtlancto_est_f02 TYPE /pws/zycbt226-dtlancto.
DATA: wa_zycbt032 TYPE t_s_zycbt032,
* >> Início da exclusão: FORM F02_REVERSA
wa_zycbe033 TYPE t_s_zycbe033,
* << Fim da exclusão
wa_zycbt034 TYPE t_s_zycbt034,
wa_partidas TYPE t_s_zycbe033,
wa_zycbt209 TYPE t_s_zycbt209,
wa_zycbt225 TYPE t_s_zycbt225,
wa_zyglt316 TYPE t_s_zyglt316,
wa_zycbt011 TYPE t_s_zycbt011,
wa_cont TYPE t_contabilizacoes,
v_lancto_multiplo TYPE c, "#EC NEEDED
v_titulo(31) TYPE c,
v_codeven TYPE /pws/zycbt011-codeven,
v_banco TYPE /pws/zycbt226-bco_me,
v_belnr TYPE /pws/zycbt226-belnr_op,
v_gjahr TYPE bkpf-gjahr,
v_tot_liqand TYPE wrbtr.
CONSTANTS:
c_est_op(31) TYPE c VALUE 'DOC. ESTORNO ORDEM DE PAGAMENTO'.
CHECK <fs_op>-tipo_op = 'E'.
* >> Início da inclusão: FORM F02_REVERSA
clear wa_zycbe033.
* << Fim da inclusão
v_titulo = c_est_op.
wa_zycbe033-tcode = 'F-02'.
wa_zycbe033-tabela = '/PWS/ZYCBT226'.
IF <fs_op>-tipo_op = 'E'.
CONCATENATE <fs_op>-nrinvoic <fs_op>-gsberf <fs_op>-nrparcf
INTO wa_zycbe033-cpochv.
ENDIF.
PERFORM verifica_campo_vazio USING <fs_op>-dtcredext
'DTCREDEXT'
'Data do Documento'(005).
...
...
wa_partidas-agums = ' '.
wa_partidas-d_sgtxt = wa_zycbe033-d_sgtxt.
wa_partidas-d_zuonr = wa_zycbe033-d_zuonr.
wa_partidas-d_gsber = wa_zycbe033-d_gsber.
wa_partidas-cpochv = wa_zycbe033-cpochv.
wa_partidas-tabela = '/PWS/ZYCBT226'.
wa_partidas-tcode = 'F-02'.
APPEND wa_partidas TO itab_partidas.
ENDIF.
APPEND wa_zycbe033 TO itab_zycbe033.
* >> Início da inclusão: FORM F02_REVERSA
if sy-tcode+13(1) eq 'C' or sy-tcode+13(1) eq 'A'.
v_tpcontabil = 'E_VME'.
else.
v_tpcontabil = 'E_SML'.
endif.
v_dtincl = <fs_op>-dtincl.
v_dtcredext = <fs_op>-dtcredext.
v_dtlanc = wa_zycbe033-budat.
perform busca_dados_bi using <fs_op>-bukrs
v_tpcontabil.
* << Fim da inclusão
LOOP AT itab_zycbt034 INTO wa_zycbt034.
PERFORM message_store USING
'/PWS/ZYCBM'
'W'
wa_zycbt034-descricao
space
space
space
'016'.
ENDLOOP.
...
...
OTHERS = 3.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDIF.
ENDFORM.
FORM estorno_liq_and
USING value(p_belnr_est_f02) TYPE /pws/zycbt226-belnr_op
value(p_dtlancto_est_f02) TYPE /pws/zycbt226-dtlancto.
DATA: wa_zycbt032 TYPE t_s_zycbt032,
* >> Início da exclusão: FORM ESTORNO_LIQ_AND
wa_zycbe033 TYPE t_s_zycbe033,
* << Fim da exclusão
wa_zycbt034 TYPE t_s_zycbt034,
wa_zycbt036 TYPE t_s_zycbt036,
wa_zycbt011 TYPE t_s_zycbt011,
wa_zycbt030 TYPE t_s_zycbt030,
wa_zycbt225 TYPE t_s_zycbt225,
wa_zycbt209 TYPE t_s_zycbt209,
v_codeven TYPE /pws/zycbt011-codeven,
v_chvoper(3) TYPE c,
v_titulo(40) TYPE c,
v_tot_liqand TYPE wrbtr,
wa_cont TYPE t_contabilizacoes,
v_count TYPE i,
v_total TYPE i,
v_ult(1) TYPE c.
CHECK <fs_op>-tipo_op = 'E'.
CHECK NOT p_belnr_est_f02 IS INITIAL.
CHECK <fs_op>-belnr_desm_cli IS INITIAL.
CHECK NOT <fs_op>-belnr_desmliqand IS INITIAL.
* >> Início da inclusão: FORM ESTORNO_LIQ_AND
clear wa_zycbe033.
* << Fim da inclusão
wa_zycbe033-tcode = 'F-30'.
wa_zycbe033-tabela = '/PWS/ZYCBT226'.
CONCATENATE <fs_op>-nrinvoic <fs_op>-gsberf <fs_op>-nrparcf
INTO wa_zycbe033-cpochv.
PERFORM verifica_campo_vazio USING <fs_op>-dtlancto
'DTLANCTO'
'Data de Lançamento'(004).
IF wa_controle-periodo_fechado = 'X'.
wa_zycbe033-budat = sy-datum.
wa_zycbe033-bldat = <fs_op>-dtlancto.
...
...
wa_zycbe033-d_newko = wa_zycbt209-hkont.
wa_zycbe033-koart = wa_zycbt209-koart.
wa_zycbe033-agums = wa_zycbt209-umskz.
PERFORM preenche_contas_bloqueio USING sy-mandt
<fs_op>-bukrs
wa_zycbe033-koart
wa_zycbe033-d_newko
'S'.
ENDIF.
APPEND wa_zycbe033 TO itab_zycbe033.
* >> Início da inclusão: FORM ESTORNO_LIQ_AND
v_tpcontabil = 'C_LIA'.
v_dtincl = wa_zycbt209-dtincl.
v_dtcredext = wa_zycbt209-dtcredext.
v_dtlanc = wa_zycbe033-budat.
perform busca_dados_bi using <fs_op>-bukrs
v_tpcontabil.
* << Fim da inclusão
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCB_ENQUEUE_CONTAS'
EXPORTING
i_bloqueia = ' '
TABLES
itab_zycbt224 = itab_zycbe224
EXCEPTIONS
zycbe224_null = 1
erro_bloqueio = 2
OTHERS = 3.
...
...
'KURSF'
'Taxa de Câmbio'(019).
PERFORM verifica_campo_vazio USING p_zycbe033-d_newko
'NEWKO'
'Conta Débito'(035).
ENDFORM.
FORM estornar_contabilizacoes
CHANGING p_itab_cont TYPE t_t_contabilizacoes.
DATA:
v_cpochv TYPE /pws/zycbe033-cpochv,
* >> Início da exclusão: FORM ESTORNAR_CONTABILIZACOES
wa_zycbe033 TYPE t_s_zycbe033,
* << Fim da exclusão
wa_cont TYPE t_contabilizacoes.
FIELD-SYMBOLS:
<fs_tabela> TYPE INDEX TABLE,
<fs_linha> TYPE ANY,
<fs_campo> TYPE ANY,
<fs_campo_valor> TYPE ANY.
* >> Início da inclusão: FORM ESTORNAR_CONTABILIZACOES
clear wa_zycbe033.
* << Fim da inclusão
IF v_retorno_f_30 EQ 1.
...
...
IF sy-tcode EQ c_transacao_e
OR sy-tcode = c_trans_sml_e.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
FORM estorna_disp_incompleta
USING p_disp TYPE t_disponibilidade.
DATA:
* >> Início da exclusão: FORM ESTORNA_DISP_INCOMPLETA
v_cpochv TYPE /pws/zycbe033-cpochv,
wa_zycbe033 TYPE t_s_zycbe033.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DISP_INCOMPLETA
v_cpochv type /pws/zycbe033-cpochv.
clear wa_zycbe033.
* << Fim da inclusão
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
<fs_op>-nrseq
INTO v_cpochv.
wa_zycbe033-tabela = c_zycbt239.
wa_zycbe033-bukrs = <fs_op>-bukrs.
IF NOT p_disp-doc_desm IS INITIAL.
PERFORM cancela_documento
USING p_disp-dtlanc
v_cpochv
...
...
'FBK'
p_devolucao
CHANGING wa_zycbe033.
ENDIF.
PERFORM preenche_f02_devolucao
USING p_devolucao
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
* >> Início da inclusão: FORM CONTABILIZA_DEVOLUCAO
v_tpcontabil = 'DEV_OP'.
v_dtincl = p_devolucao-dtdevolucao.
v_dtlanc = sy-datum.
if <fs_op>-dtlancto2 is initial.
v_dtop = <fs_op>-dtlancto.
else.
v_dtop = <fs_op>-dtlancto2.
endif.
read table itab_zycbt007 into wa_zycbt007
with key bukrs = <fs_op>-bukrs.
perform busca_dados_bi using <fs_op>-bukrs
v_tpcontabil.
* << Fim da inclusão
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f02_rze.
PERFORM verifica_contabilizacao
USING c_f02 c_zycbt242 v_cpochv
'Lançamento da Provisão da devolução'(m43)
CHANGING wa_mensagem.
IF NOT wa_mensagem IS INITIAL.
p_devolucao-belnr = wa_mensagem-belnr.
p_devolucao-dtlancto = wa_zycbe033-budat.
wa_cont-belnr_ant = space.
...
...
'TRE'
space
CHANGING wa_zycbe033.
ENDIF.
PERFORM preenche_f30_desm_devolucao
USING p_devolucao
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
* >> Início da inclusão: FORM CONTABILIZA_DESM_DEVOLUCAO
v_tpcontabil = 'D_OP'.
v_dtincl = p_devolucao-dtdevolucao.
v_dtlanc = sy-datum.
if <fs_op>-dtlancto2 is initial.
v_dtop = <fs_op>-dtlancto.
else.
v_dtop = <fs_op>-dtlancto2.
endif.
read table itab_zycbt007 into wa_zycbt007
with key bukrs = <fs_op>-bukrs.
perform busca_dados_bi using <fs_op>-bukrs
v_tpcontabil.
* << Fim da inclusão
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f30.
PERFORM verifica_contabilizacao
USING c_f30 c_zycbt242 v_cpochv
'Lançamento do Desmembramento da devolução'(m44)
CHANGING wa_mensagem.
IF NOT wa_mensagem IS INITIAL.
p_devolucao-belnr_desm_op = wa_mensagem-belnr.
p_devolucao-dtlancto_op = wa_zycbe033-budat.
wa_cont-belnr_ant = space.
...
...
'TRE'
space
CHANGING wa_zycbe033.
ENDIF.
PERFORM preenche_f30_comp_devolucao
USING p_devolucao
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
* >> Início da inclusão: FORM CONTABILIZA_COMP_DEVOLUCAO
v_tpcontabil = 'C_OP'.
v_dtincl = p_devolucao-dtdevolucao.
v_dtlanc = sy-datum.
if <fs_op>-dtlancto2 is initial.
v_dtop = <fs_op>-dtlancto.
else.
v_dtop = <fs_op>-dtlancto2.
endif.
read table itab_zycbt007 into wa_zycbt007
with key bukrs = <fs_op>-bukrs.
perform busca_dados_bi using <fs_op>-bukrs
v_tpcontabil.
* << Fim da inclusão
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f30.
PERFORM verifica_contabilizacao
USING c_f30 c_zycbt242 v_cpochv
'Lançamento do Clearing da devolução'(m45)
CHANGING wa_mensagem.
IF NOT wa_mensagem IS INITIAL.
p_devolucao-belnr_comp = wa_mensagem-belnr.
p_devolucao-dtlancto_comp = wa_zycbe033-budat.
PERFORM message_store
...
...
'TRE'
space
CHANGING wa_zycbe033.
ENDIF.
PERFORM preenche_f30_est_desm_devol
USING p_devolucao
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
* >> Início da inclusão: FORM ESTORNA_DESM_DEVOLUCAO
v_tpcontabil = 'C_OP'.
v_dtincl = p_devolucao-dtdevolucao.
v_dtlanc = sy-datum.
if <fs_op>-dtlancto2 is initial.
v_dtop = <fs_op>-dtlancto.
else.
v_dtop = <fs_op>-dtlancto2.
endif.
read table itab_zycbt007 into wa_zycbt007
with key bukrs = <fs_op>-bukrs.
perform busca_dados_bi using <fs_op>-bukrs
v_tpcontabil.
* << Fim da inclusão
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f30.
PERFORM verifica_contabilizacao
USING c_f30 c_zycbt242 v_cpochv
'Lançamento do Desmembramento da devolução'(m44)
CHANGING wa_mensagem.
IF NOT wa_mensagem IS INITIAL.
p_devolucao-belnr_desm_op = wa_mensagem-belnr.
p_devolucao-dtlancto_op = wa_zycbe033-budat.
PERFORM message_store
...
...
'/PWS/ZYCBM'
'E'
text-070
<fs_op>-nrinvoic
text-072
text-074
'061'.
ENDCASE.
ENDIF.
ENDFORM.
* >> Início da inclusão:
form busca_dados_bi using p_bukrs
p_tpcontabil.
data: v_funcionalidade type /pws/zycbt169-funcionalidade.
if sy-tcode+13(1) eq 'C' or sy-tcode+13(1) eq 'A'.
v_funcionalidade = 'VME'.
else.
v_funcionalidade = 'SML'.
endif.
select single * from /pws/zycbt007
into wa_zycbt007
where bukrs = <fs_op>-bukrs.
select single * from /pws/zycbt017
into wa_zycbt017
where nrinvoic = <fs_op>-nrinvoic
and gsberf = <fs_op>-gsberf
and nrparcf = <fs_op>-nrparcf.
call function '/PWS/ZYCB_DADOS_BI'
exporting
i_bukrs = p_bukrs
i_funcionalidade = v_funcionalidade
i_tpcontabil = p_tpcontabil
i_dtlanc = v_dtlanc
i_zycbt007 = wa_zycbt007
i_zycbt017 = wa_zycbt017
i_waers = wa_zycbe033-waers
i_ctmoed = wa_zycbt011-ctmoed
i_tcode = wa_zycbe033-tcode
i_tabela = wa_zycbe033-tabela
i_cpochv = wa_zycbe033-cpochv
i_dtincl = v_dtincl
i_op = v_dtop
importing
e_kursf = wa_zycbe033-kursf
tables
t_zycbe033 = itab_zycbe033
t_zycbt036 = itab_zycbt036
t_zycbt034 = itab_zycbt034.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034TOP
...
wa_zycbt030_aud type /pws/zycbt030,
wa_zycbt209_aud type /pws/zycbt209,
wa_zycbt225_aud type /pws/zycbt225,
wa_zycbt226_aud type /pws/zycbt226,
wa_zycbt238_aud type /pws/zycbt238,
wa_zycbt239_aud type /pws/zycbt239,
wa_zycbt240_aud type /pws/zycbt240,
wa_zycbt242_aud type /pws/zycbt242.
data: v_identific(25) type c,
v_operacao(1) type c.
* >> Início da inclusão:
data: v_tpcontabil type /pws/zycbt169-tpcontabil,
v_dtincl type sy-datum,
v_dtcredext type sy-datum,
v_dtop type sy-datum,
v_dtlanc type sy-datum.
* << Fim da inclusão
include /pws/mzycb034x01.
selection-screen begin of screen 0001.
selection-screen begin of block a with frame title text-011.
select-options: s_bukrs for /pws/zycbe226-bukrs,
s_nrseq for /pws/zycbe226-nrseq
matchcode object /pws/zycba297,
s_invoic for /pws/zycbe226-nrinvoic,
s_gsber for /pws/zycbe226-gsberf,
s_nrparc for /pws/zycbe226-nrparcf,
s_kunag for /pws/zycbe017-kunag,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007O01
...
IF screen-group1 EQ 'INV'.
screen-active = 0.
ENDIF.
IF screen-name = '/PWS/ZYCBT089-LIQ_AND_COD_CLI'.
IF v_tp_liq_and2 = 'X'.
screen-input = v_status.
ELSE.
screen-input = '0'.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
if screen-group1 eq 'EXI'.
screen-input = 0.
endif.
* << Fim da inclusão
IF sy-ucomm EQ 'SAVE' AND NOT screen-name EQ 'TAB_EMPRESA'
AND NOT screen-name EQ 'TAB_MOEDA'
AND NOT screen-name EQ 'TAB_CONTAB'
AND NOT screen-name EQ 'TAB_MOEDA'
AND NOT screen-name EQ 'TAB_CALEND'
AND NOT screen-name EQ 'SS_ROTINA'
AND NOT screen-name EQ 'TAB_GERAL3'
AND NOT screen-name EQ 'TAB_CORRET'
AND NOT screen-name EQ 'TAB_TAXA'
AND NOT screen-name EQ 'TAB_LIMITE'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI003
...
v_premio like /pws/zycbt136-vlprinc,
v_dias type i,
v_dias3 type i,
v_feriado type c,
v_dia_semana type p,
v_txc like itab_relat-txc,
v_taxac like itab_relat-txc,
v_vlme_par like /pws/zycbt006-vlme,
v_nrcorresp type /pws/zycbt154-nrcorresp,
v_vlrprov type /pws/zycbt154-vlme.
* >> Início da inclusão: FORM PROCESSA_CALCULO_JUROS
DATA: v_tpcontabil TYPE /pws/zycbt169-tpcontabil.
* << Fim da inclusão
form processa_calculo_juros using value(p_vlme)
value(p_txj)
value(p_tptxjur)
value(p_dtde)
value(p_dtate)
value(p_moeda)
value(p_ctmoeda)
value(p_tpjuros).
data: v_vlmeaux like /pws/zycbt001-vlme,
v_dtate(10),
...
...
concatenate 'IR' itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-waers
itab_contabil-d_newkoir itab_contabil-c_newkoir
into itab_zycbe033-cpochv.
endif.
itab_zycbe033-wrbtr = itab_contabil-vlirprov.
itab_zycbe033-d_newko = itab_contabil-d_newkoir.
itab_zycbe033-c_newko = itab_contabil-c_newkoir.
itab_zycbe033-blart = itab_contabil-blartir.
append itab_zycbe033.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
ENDIF.
IF itab_contabil-tpcontab = 'T'.
v_tpcontabil = 'TR_LCP'.
PERFORM busca_dados_bi USING itab_contabil-bukrs
v_tpcontabil.
* << Fim da inclusão
endif.
loop at itab_zycbt034.
concatenate text-066 itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-nrcorresp
itab_contabil-tpcontr text-141
itab_zycbt034-descricao text-142
into v_msg separated by space.
write: / v_msg.
endloop.
if itab_zycbt034 is initial and
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
itab_relat-vlmej_contr = itab_relat-vlmej.
itab_relat-vlmij_contr = itab_relat-vlmej_contr * itab_relat-txc.
append itab_relat.
clear itab_relat.
endloop.
loop at itab_zycbt004 where nrseqc = itab_zycbt001-nrseqc.
perform preenche_itab_relat_pago.
endloop.
endloop.
endform.
* >> Início da inclusão:
form busca_dados_bi using p_bukrs
p_tpcontabil.
data: wa_zycbt001 type /pws/zycbt001.
clear: v_codeven, wa_zycbt011, wa_zycbt001, wa_zycbt007.
concatenate '008' itab_contabil-tpcontr into v_codeven.
read table itab_zycbt011 into wa_zycbt011
with key codeven = v_codeven.
read table itab_zycbt001 into wa_zycbt001
with key nrseqc = itab_contabil-nrcorresp.
call function '/PWS/ZYCB_DADOS_BI'
exporting
i_bukrs = p_bukrs
i_funcionalidade = 'TLC'
i_tpcontr = itab_contabil-tpcontr
i_tpcontabil = p_tpcontabil
i_zycbt001 = wa_zycbt001
i_zycbt007 = wa_zycbt007
i_dtlanc = itab_zycbe033-budat
i_waers = itab_zycbe033-waers
i_ctmoed = wa_zycbt011-ctmoed
i_tcode = itab_zycbe033-tcode
i_tabela = itab_zycbe033-tabela
i_cpochv = itab_zycbe033-cpochv
importing
e_kursf = itab_zycbe033-kursf
tables
t_zycbe033 = itab_zycbe033
t_zycbt036 = itab_zycbt036
t_zycbt034 = itab_zycbt034.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR030
...
WITH HEADER LINE,
itab_excel TYPE STANDARD TABLE OF t_excel
WITH HEADER LINE.
DATA: BEGIN OF i_final OCCURS 0.
INCLUDE TYPE t_result.
DATA: colinfo TYPE kkblo_t_specialcol,
END OF i_final.
DATA: itab_zycbt032 LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,
itab_zycbe033 LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,
itab_zycbt034 LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE.
* >> Início da inclusão:
TYPES: BEGIN OF ty_bsas,
bukrs TYPE bsas-bukrs,
augdt TYPE bsas-augdt,
augbl TYPE bsas-augbl,
gjahr TYPE bsas-gjahr,
belnr TYPE bsas-belnr,
budat TYPE bsas-budat,
END OF ty_bsas.
DATA: itab_bsas TYPE TABLE OF ty_bsas,
wa_bsas TYPE ty_bsas.
* << Fim da inclusão
DATA: s_bukrs TYPE /pws/zycbt112-bukrs,
s_dtentr TYPE /pws/zycbt112-dtvencto,
s_rbrela(1) TYPE c,
v_programa TYPE sy-cprog,
v_titulo(40) TYPE c,
v_ok(1) TYPE c,
v_dir TYPE rlgrap-filename,
v_dir2 TYPE rlgrap-filename,
v_dir3 TYPE rlgrap-filename,
v_monat TYPE t001b-frpe1,
...
...
itab_contabil-descricao = text-023.
itab_contabil-belnr_pr = itab_zycbt154-belnr_pr.
ELSEIF itab_contabil-codmodul = 'C'.
itab_contabil-descricao = text-022.
itab_contabil-belnr_pr = itab_zycbt154-belnr_pr.
ENDIF.
APPEND itab_contabil.
ENDLOOP.
ENDFORM.
FORM estorna_exp_lc.
* >> Início da inclusão: FORM ESTORNA_EXP_LC
CLEAR wa_bsas.
REFRESH itab_bsas.
* << Fim da inclusão
READ TABLE itab_zycbt002 WITH KEY
nrseqc = i_final-nrcorresp
nrparc = i_final-codint
tpparc = 'P'. "#EC *
IF sy-subrc EQ 0.
IF itab_zycbt002-tpcontr(1) EQ 'P'
OR itab_zycbt002-tpcontr(1) EQ 'S'.
IF itab_zycbt002-belnr2 EQ i_final-belnr_pr.
* >> Início da inclusão: FORM ESTORNA_EXP_LC
READ TABLE itab_zycbt154 WITH KEY
nrcorresp = i_final-nrcorresp
dtcont = i_final-dtcont
belnr_pr = i_final-belnr_pr.
SELECT bukrs augdt augbl gjahr belnr budat
FROM bsas
INTO TABLE itab_bsas
WHERE bukrs = i_final-bukrs
AND augdt = i_final-dtcont
AND augbl = itab_zycbt154-belnr_pr.
DELETE itab_bsas WHERE belnr = itab_zycbt154-belnr_pr.
READ TABLE itab_bsas INDEX 1 INTO wa_bsas.
* << Fim da inclusão
PERFORM executa_fbra_fb08_pr.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM ESTORNA_EXP_LC
itab_zycbt002-belnr2 = ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_EXP_LC
itab_zycbt002-belnr2 = wa_bsas-belnr.
itab_zycbt002-dtvincul = wa_bsas-budat.
* << Fim da inclusão
itab_zycbt002-przcontr = 'L'.
itab_zycbt002-ftransf = ' '.
* >> Início da exclusão: FORM ESTORNA_EXP_LC
itab_zycbt002-dtvincul = ' '.
* << Fim da exclusão
itab_zycbt002-belnr_transf = ' '.
MODIFY itab_zycbt002 TRANSPORTING
belnr2 przcontr ftransf dtvincul belnr_transf
WHERE nrseqc = itab_zycbt002-nrseqc
AND nrparc = itab_zycbt002-nrparc
AND tpparc = itab_zycbt002-tpparc.
READ TABLE itab_zycbt001 WITH KEY
nrseqc = i_final-nrcorresp."#EC *
IF sy-subrc = 0.
* >> Início da exclusão: FORM ESTORNA_EXP_LC
itab_zycbt001-belnr2 = ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_EXP_LC
itab_zycbt001-belnr2 = itab_zycbt001-belnr2.
* << Fim da inclusão
itab_zycbt001-belnr_transf = ' '.
itab_zycbt001-przcontr = 'L'.
itab_zycbt001-ftransf = ' '.
* >> Início da exclusão: FORM ESTORNA_EXP_LC
itab_zycbt001-dtvincul = ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_EXP_LC
itab_zycbt001-dtvincul = itab_zycbt002-dtvincul.
* << Fim da inclusão
MODIFY itab_zycbt001 TRANSPORTING
...
...
WHERE nrseqc = itab_zycbt001-nrseqc.
ENDIF.
ENDIF.
ELSE.
MESSAGE i113 WITH i_final-belnr_pr.
ENDIF.
ELSE.
READ TABLE itab_zycbt001 WITH KEY
nrseqc = i_final-nrcorresp. "#EC *
IF itab_zycbt001-belnr2 EQ i_final-belnr_pr.
* >> Início da inclusão: FORM ESTORNA_EXP_LC
READ TABLE itab_zycbt154 WITH KEY
nrcorresp = i_final-nrcorresp
dtcont = i_final-dtcont
belnr_pr = i_final-belnr_pr.
SELECT bukrs augdt augbl gjahr belnr budat
FROM bsas
INTO TABLE itab_bsas
WHERE bukrs = i_final-bukrs
AND augdt = i_final-dtcont
AND augbl = itab_zycbt154-belnr_pr.
DELETE itab_bsas WHERE belnr = itab_zycbt154-belnr_pr.
READ TABLE itab_bsas INDEX 1 INTO wa_bsas.
* << Fim da inclusão
PERFORM executa_fbra_fb08_pr.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM ESTORNA_EXP_LC
itab_zycbt001-belnr2 = ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_EXP_LC
itab_zycbt001-belnr2 = wa_bsas-belnr.
itab_zycbt001-dtvincul = wa_bsas-budat.
* << Fim da inclusão
itab_zycbt001-belnr_transf = ' '.
itab_zycbt001-przcontr = 'L'.
itab_zycbt001-ftransf = ' '.
* >> Início da exclusão: FORM ESTORNA_EXP_LC
itab_zycbt001-dtvincul = ' '.
* << Fim da exclusão
MODIFY itab_zycbt001 TRANSPORTING
belnr2 przcontr ftransf belnr_transf dtvincul
WHERE nrseqc = itab_zycbt001-nrseqc.
ENDIF.
ELSE.
MESSAGE i113 WITH i_final-belnr_pr.
ENDIF.
ENDIF.
ELSE.
READ TABLE itab_zycbt001 WITH KEY
nrseqc = i_final-nrcorresp. "#EC *
IF itab_zycbt001-belnr2 EQ i_final-belnr_pr.
* >> Início da inclusão: FORM ESTORNA_EXP_LC
READ TABLE itab_zycbt154 WITH KEY
nrcorresp = i_final-nrcorresp
dtcont = i_final-dtcont
belnr_pr = i_final-belnr_pr.
SELECT bukrs augdt augbl gjahr belnr budat
FROM bsas
INTO TABLE itab_bsas
WHERE bukrs = i_final-bukrs
AND augdt = i_final-dtcont
AND augbl = itab_zycbt154-belnr_pr.
DELETE itab_bsas WHERE belnr = itab_zycbt154-belnr_pr.
READ TABLE itab_bsas INDEX 1 INTO wa_bsas.
* << Fim da inclusão
PERFORM executa_fbra_fb08_pr.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM ESTORNA_EXP_LC
itab_zycbt001-belnr2 = ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_EXP_LC
itab_zycbt001-belnr2 = wa_bsas-belnr.
itab_zycbt001-dtvincul = wa_bsas-budat.
* << Fim da inclusão
itab_zycbt001-belnr_transf = ' '.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT169
Inlcuir a tabela T003 como tabela de verificação para o campo TPDOCTO