CE PLUS - Nota 010222
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 31/05/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:51:05
Descrição da Nota: COMPLEMENTO DE BOLETOS, CONTABILIZAÇÃO SOCIEDADE PARCEIRA
Sintoma
Preenchimento do Campo de Sociedade Parceira na Contabilização do Complemento dos Boletos.
Solução
Preenchimento do Campo de Sociedade Parceira na Contabilização do Complemento dos Boletos.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10222 Data: 31/05/2010 Hora: 09:54:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10222
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00023
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
09893 - 00001 - 8.0 - 00002 - COMPLEMENTO DO BOLETO - UTILIZAÇÃO DE MOEDAS INTERNAS SEM CASAS D
10188 - 00002 - 8.0 - 00003 - MAPEAMENTO SOCIEDADE PARCEIRA NAS CONTABILIZAÇÕES
10191 - 00003 - 8.0 - 00003 - CAPTAÇÃO, PREENCHIMENTO SOCIEDADE PARCEIRA NA CONTABILIZAÇÃO
10196 - 00004 - 8.0 - 00003 - LETRA DE JUROS, CONTABILIZAÇÃO SOCIEDADE PARCEIRA
10210 - 00005 - 8.0 - 00003 - SOCIEDADE PARCEIRA FINANCIAMENTO
10215 - 00006 - 8.0 - 00003 - REMESSA FINANCEIRA, CONTABILIZAÇÃO SOCIEDADE PARCEIRA
10218 - 00007 - 8.0 - 00003 - SOCIEDADE PARCEIRA EMPRÉSTIMO
10219 - 00008 - 8.0 - 00003 - SOCIEDADE PARCEIRA DESPESAS
----------------------------------------------------------------------------------------------------
COMPLEMENTO DE BOLETOS, CONTABILIZAÇÃO SOCIEDADE PARCEIRA
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DE BOLETOS, CONTABILIZAÇÃO SOCIEDADE PARCEIRA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCB110F01
REPS /PWS/MZYCB110O01
REPS /PWS/MZYCM110F01
REPS /PWS/MZYGL110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
if sy-subrc eq 0.
if not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa)
changing e_subrc.
if e_subrc ne 0.
exit.
endif.
endif.
endif.
* >> Início da inclusão: FORM FILL_DATE_F-63OUF-02_CD
itab_zycbe033-vbund = wa_zycbt118-vbund.
* << Fim da inclusão
append itab_zycbe033.
clear t021r.
select single * from t021r into t021r
where event = 'SU-AG'
and feldn = 'AWKEY'.
clear itab_zycbt036.
refresh itab_zycbt036.
if wa_zycbt118-frpagto eq 'C'.
itab_zycbt036-tcode = 'F-51'.
itab_zycbt036-tabela = '/PWS/ZYCBT031'.
...
...
wa_zycbt128-j_1bbranch.
itab_zycbe033-brnch = wa_zycbt128-j_1bbranch.
if itab_zycbe033-brnch is initial.
select single * from t001w where werks = wa_zycbt128-werks.
if sy-subrc eq 0.
perform verifica_pais_filial using wa_zycbt128-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
endif.
endif.
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
if sy-index ne 2.
itab_zycbe033-vbund = wa_zycbt128-vbund.
else.
itab_zycbe033-vbund = ''.
endif.
* << Fim da inclusão
clear: itab_zyglt100.
refresh: itab_zyglt100.
if itab_zyglt100[] is initial.
v_syrepid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'F'
i_func = v_syrepid
tables
itab_zyglt100 = itab_zyglt100
...
...
if sy-subrc eq 0.
if not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa)
changing e_subrc.
if e_subrc ne 0.
exit.
endif.
endif.
endif.
* >> Início da inclusão: FORM EXECUTA_CLEARING_EMP
itab_zycbe033-vbund = wa_zycbt128-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
itab_zycbt032-msgv2 = v_evento.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
itab_zycbt032-msgv2
space
...
...
itab_zycbe033-c_zuonr = wa_zycbt124-codpagto.
elseif itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_zuonr = p_tpimp.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
endif.
endcase.
endloop.
itab_zycbe033-d_zuonr = itab_zycbe033-c_zuonr.
* >> Início da inclusão: FORM FILL_DATE_F-30_CP
itab_zycbe033-vbund = wa_zycbt124-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
...
...
itab_zycbe033-c_zuonr = itab_zycbt124_aux-codpagto.
elseif itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_zuonr = p_tpimp.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
endif.
endcase.
endloop.
itab_zycbe033-brnch = itab_zycbt124_aux-j_1bbranch.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP
itab_zycbe033-vbund = itab_zycbt124_aux-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
...
...
itab_zycbe033-bukrs = /pws/zycbe031-bukrs.
perform verify_null_field using /pws/zycbe031-waers
'WAERS'
text-011.
itab_zycbe033-waers = /pws/zycbe031-waers.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-dtdocto = itab_zycbe033-budat.
* >> Início da inclusão: FORM EXECUTA_F51_CE
itab_zycbe033-vbund = wa_zycbt128-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
...
...
loop at itab_zycbt154.
if itab_zycbt154-belnr_cl is initial.
v_wrbtr = v_wrbtr + itab_zycbt154-vlme.
endif.
endloop.
if sy-index le 1.
itab_zycbe033a-wrbtr = abs( /pws/zycbe031-vlme - v_wrbtr ).
else.
itab_zycbe033a-wrbtr = abs( /pws/zycbe031-vlir - v_wrbtr ).
endif.
* >> Início da inclusão: FORM EXECUTA_F02_TRAVA_CE
itab_zycbe033a-vbund = wa_zycbt128-vbund.
* << Fim da inclusão
if itab_zycbe033a-wrbtr eq 0 .
clear: itab_zycbt034a,
itab_zycbe033a,
itab_zycbt032a.
refresh: itab_zycbt034a,
itab_zycbe033a,
itab_zycbt032a.
exit.
endif.
append itab_zycbe033a.
...
...
elseif itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-codpagto.
elseif itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_zuonr = p_tpimp.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
endif.
endcase.
endloop.
* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP
itab_zycbe033-vbund = itab_zycbt124_aux-vbund.
* << Fim da inclusão
if /pws/zycbt125-tprem ne 2.
call customer-function '016'
tables
t_dados = itab_zycbe033. "#EC *
append itab_zycbe033.
else.
call customer-function '075'
tables
t_dados = itab_zycbe033. "#EC *
modify itab_zycbe033 index 1.
...
...
if itab_zycat027[] is initial.
select *
from /pws/zycat027
into table itab_zycat027. "#EC CI_NOWHERE
endif.
endform.
form contabiliza_docto_cp using p_tpimp
p_recontabiliza
p_recuperar.
data: v_fornec type /pws/zycat024-fornecedor.
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
data: aux_rot_mensal(1) type c.
* << Fim da inclusão
if not p_recontabiliza is initial.
read table itab_zycbt124_aux with key nrseq = itab_zycat025-nrseq.
else.
read table itab_zycbt124_aux with key nrseq = wa_zycbt124-nrseq.
endif.
check sy-subrc = 0.
perform clear_date_batch.
check erro_bi is initial.
if /pws/zycbt125-tprem = '2' and p_tpimp ne 'PRINCIPAL' and
p_recontabiliza is initial.
...
...
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
others = 4.
if sy-subrc eq 0.
read table itab_zyglt100 with key zexit = v_exit.
if sy-subrc eq 0 and not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
endif.
endif.
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
itab_zycbe033-vbund = itab_zycbt124_aux-vbund.
* << Fim da inclusão
append itab_zycbe033.
perform lancamento_multiplo using p_tpimp
p_recontabiliza
p_recuperar.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
...
...
v_vkoart = v_koart_bi
v_shkzg = v_shkzg_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
campo_em_branco = 1
others = 2.
else.
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
aux_rot_mensal = ''.
if p_tpimp(4) = 'IRRF' or p_tpimp(4) = 'CIDE' or
p_tpimp(3) = 'ISS' or p_tpimp(6) = 'COFINS' or
p_tpimp(3) = 'PIS' or p_tpimp(3) = 'IOF'.
aux_rot_mensal = 'X'.
endif.
* << Fim da inclusão
read table itab_zyglt100 with key zexit = 'CBF005'.
if sy-subrc eq 0 and not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
else.
call function '/PWS/ZYCB_TRANSACAO_F_43'
exporting
v_modo = v_modo_bi
v_vkoart = v_koart_bi
v_shkzg = v_shkzg_bi
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
rotina_mensal = aux_rot_mensal
* << Fim da inclusão
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_debito = itab_zycbe035
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
endif.
...
...
and cpor3 = 'ZFBDT'.
exit.
endloop.
else.
loop at itab_zyglt321 where cpocb = 'DTVENCTO'
and ( cpor3 = 'ZFBDT' or cpor3 = 'VALUT' ).
exit.
endloop.
endif.
check sy-subrc = 0.
* >> Início da inclusão: FORM ATUALIZA_DTVENCTO_FB02_CP
itab_zycbe033-vbund = itab_zycbt124_aux-vbund.
* << Fim da inclusão
append itab_zycbe033.
call function '/PWS/ZYCA_TRANSACAO_FB02'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
campo_em_branco = 1
...
...
text-011.
itab_zycbe033-waers = itab_zycbt124_aux-waers.
if sy-index <= 1.
itab_zycbe033-wrbtr = itab_zycbt124_aux-vlme -
itab_zycat025-vlimpme.
v_processo = 'P'.
elseif sy-index = 2.
itab_zycbe033-wrbtr = itab_zycat025-vlimpme.
v_processo = 'I'.
endif.
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
itab_zycbe033-vbund = itab_zycbt124_aux-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
if not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa)
using ok_code
changing e_subrc.
if e_subrc ne 0.
exit.
endif.
endif.
endif.
* >> Início da inclusão: FORM FILL_DATE_F-63OUF-02_ED
itab_zycbe033-vbund = ''.
if not /pws/zycbt004-tpcontr is initial.
if not /pws/zycbt004-vbund is initial.
itab_zycbe033-vbund = /pws/zycbt004-vbund.
else.
select single vbund
from /pws/zycbt001
into itab_zycbe033-vbund
where nrseqc = /pws/zycbt004-nrseqc.
endif.
endif.
* << Fim da inclusão
append itab_zycbe033.
perform conta_juros_acc_ace .
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
...
...
if not wa_zycbt086-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe031-bukrs
wa_zycbt086-j_1bbranch.
itab_zycbe033-brnch = wa_zycbt086-j_1bbranch.
else.
perform verifica_pais_filial using /pws/zycbe031-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033-ps_psp_pnr = wa_zycbt086-ps_psp_pnr.
* >> Início da inclusão: FORM FILL_DATE_F-02_EJ
itab_zycbe033-vbund = wa_zycbt086-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
...
...
into v_chave.
itab_zycbe033-cpochv = v_chave.
perform verify_null_field using itab_aux-valor
'VLME'
text-013.
itab_zycbe033-wrbtr = itab_aux-valor.
perform verify_null_field using itab_aux-belnr6
'BELNR'
text-035.
itab_zycbe033-belnr = itab_aux-belnr6.
* >> Início da inclusão: FORM FILL_DATE_F-30_ED_VINC
if not wa_zycbt004-vbund is initial.
itab_zycbe033-vbund = wa_zycbt004-vbund.
else.
select single vbund
from /pws/zycbt001
into itab_zycbe033-vbund
where nrseqc = wa_zycbt004-nrseqc.
endif.
* << Fim da inclusão
append itab_zycbe033.
endloop.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
...
...
append itab_zycbt036.
endloop.
itab_zycbe033-d_gsber = wa_zycbe001-gsber.
itab_zycbe033-d_kostl = wa_zycbe001-kostl.
itab_zycbe033-d_prctr = wa_zycbe001-prctr.
itab_zycbe033-d_fipos = wa_zycbe001-fipos.
itab_zycbe033-c_gsber = wa_zycbe001-gsber.
itab_zycbe033-c_kostl = wa_zycbe001-kostl.
itab_zycbe033-c_prctr = wa_zycbe001-prctr.
itab_zycbe033-c_fipos = wa_zycbe001-fipos.
* >> Início da inclusão: FORM FILL_DATE1_F30
itab_zycbe033-vbund = wa_zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
...
...
endif.
perform verifica_field using itab_zycbe033-d_newko
text-016.
endform.
form fill_date_1_f-30_tr using p_belnr_p.
clear: itab_zycbt032, itab_zycbt034.
refresh: itab_zycbt032, itab_zycbt034.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-agkon = itab_zycbe033-d_newko.
itab_zycbe033-agkoa = 'S'.
* >> Início da inclusão: FORM FILL_DATE_1_F-30_TR
itab_zycbe033-vbund = wa_zycbe001-vbund.
* << Fim da inclusão
modify itab_zycbe033 index 1.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT001'.
itab_zycbt036-cpochv = /pws/zycbe031-nrseq.
if wa_zycbe001-belnr_tr is initial.
itab_zycbt036-belnr = wa_zycbe001-belnr.
else.
itab_zycbt036-belnr = wa_zycbe001-belnr_tr.
endif.
perform determina_ano using wa_zycbe001-dt_lcto_tr
...
...
itab_zycbe033-kursf = /pws/zycbe031-kursf.
itab_zycbe033-belnr = wa_zycbt086-belnr_pr.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
perform verify_null_field using v_contcli
'KUNNR'
text-009.
itab_zycbe033-agkon = v_contcli.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
* >> Início da inclusão: FORM FILL_DATE_F-28_EJ
itab_zycbe033-vbund = wa_zycbt086-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
...
...
text-010.
itab_zycbe033-bukrs = /pws/zycbe031-bukrs.
perform verify_null_field using /pws/zycbe031-waers
'WAERS'
text-011.
itab_zycbe033-waers = /pws/zycbe031-waers.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
* >> Início da inclusão: FORM EXECUTA_F51_ED
if not /pws/zycbt004-vbund is initial.
itab_zycbe033-vbund = /pws/zycbt004-vbund.
else.
select single vbund
from /pws/zycbt001
into itab_zycbe033-vbund
where nrseqc = /pws/zycbt004-nrseqc.
endif.
* << Fim da inclusão
if /pws/zycbt125-tprem ne 2.
call customer-function '016'
tables
t_dados = itab_zycbe033. "#EC *
clear itab_zycbe033-newbs.
append itab_zycbe033.
else.
call customer-function '075'
tables
t_dados = itab_zycbe033. "#EC *
...
...
select single * from tcurx where currkey = itab_zycbt031_tc-waers.
if sy-subrc <> 0.
tcurx-currdec = 2.
endif.
v_vlmeaux =
itab_zycbt031_tc-v_vlme / ( 10 ** ( tcurx-currdec - 2 ) ).
v_vlmeaux_cide =
itab_zycbt031_tc-v_vlcide / ( 10 ** ( tcurx-currdec - 2 ) ).
v_vlmeaux_ir =
itab_zycbt031_tc-v_vlir / ( 10 ** ( tcurx-currdec - 2 ) ).
* >> Início da inclusão: FORM CALCULA_VLMI
select single * from tcurx into wa_tcurx
where currkey = wa_zycbt007-waersb.
if sy-subrc <> 0.
wa_tcurx-currdec = 2.
endif.
* << Fim da inclusão
if ( not /pws/zycbe031-kursf is initial and
itab_zycbt031_tc-v_vlmi is initial ) or
v_taxa_alter_p = 'X'.
itab_zycbt031_tc-v_vlmi =
( ( /pws/zycbe031-kursf / v_dfact ) * v_pfact ) *
v_vlmeaux.
* >> Início da inclusão: FORM CALCULA_VLMI
if wa_tcurx-currdec = 0.
itab_zycbt031_tc-v_vlmi = itab_zycbt031_tc-v_vlmi *
( 10 ** ( wa_tcurx-currdec - 2 ) ).
* << Fim da inclusão
endif.
* >> Início da inclusão: FORM CALCULA_VLMI
endif.
* << Fim da inclusão
if itab_zycbt031_tc-v_vlmi ne 0 and
itab_zycbt031_tc-v_vlmi eq /pws/zycbe031-vlmi.
if v_linha = v_tabix.
if v_vlmi_tot > /pws/zycbe031-vlmi.
itab_zycbt031_tc-v_vlmi = v_vlmi_tot - /pws/zycbe031-vlmi.
elseif v_vlmi_tot < /pws/zycbe031-vlmi.
...
...
endif.
endif.
endif.
v_vlmi_tot = v_vlmi_tot + itab_zycbt031_tc-v_vlmi.
if ( not /pws/zycbe031-taxair is initial and
itab_zycbt031_tc-v_vlmiir is initial ) or
v_taxa_alter_i = 'X'.
itab_zycbt031_tc-v_vlmiir =
( ( /pws/zycbe031-taxair / v_dfact ) * v_pfact ) *
v_vlmeaux_ir.
* >> Início da inclusão: FORM CALCULA_VLMI
if wa_tcurx-currdec = 0.
itab_zycbt031_tc-v_vlmiir = itab_zycbt031_tc-v_vlmiir *
( 10 ** ( wa_tcurx-currdec - 2 ) ).
endif.
* << Fim da inclusão
endif.
if v_linha = v_tabix.
if v_vlmiir_tot > /pws/zycbe031-vlmiir.
itab_zycbt031_tc-v_vlmiir =
v_vlmiir_tot - /pws/zycbe031-vlmiir.
elseif v_vlmiir_tot < /pws/zycbe031-vlmiir.
itab_zycbt031_tc-v_vlmiir =
/pws/zycbe031-vlmiir - v_vlmiir_tot.
endif.
endif.
v_vlmiir_tot = v_vlmiir_tot + itab_zycbt031_tc-v_vlmiir.
if ( not /pws/zycbe031-taxacide is initial and
itab_zycbt031_tc-v_vlmicide is initial ) or
v_taxa_alter_c = 'X'.
itab_zycbt031_tc-v_vlmicide =
( ( /pws/zycbe031-taxacide / v_dfact ) * v_pfact ) *
v_vlmeaux_cide.
* >> Início da inclusão: FORM CALCULA_VLMI
if wa_tcurx-currdec = 0.
itab_zycbt031_tc-v_vlmicide = itab_zycbt031_tc-v_vlmicide *
( 10 ** ( wa_tcurx-currdec - 2 ) ).
endif.
* << Fim da inclusão
endif.
modify itab_zycbt031_tc.
endif.
endloop.
endform.
form seleciona_zyglt321
using value(p_ktosl)
value(p_codeven).
select *
from /pws/zyglt321
...
...
else.
check not itab_zycbt002-belnr_ir_comp is initial.
perform verify_null_field using /pws/zycbe031-vlir
'VLME'
text-013.
itab_zycbe033-wrbtr = /pws/zycbe031-vlir.
perform verify_null_field using /pws/zycbe031-vlmiir
'VLMI'
text-013.
itab_zycbe033-dmbtr = /pws/zycbe031-vlmiir.
* >> Início da inclusão: FORM FILL_DATE_F_63_EO
endif.
if sy-index eq 1.
itab_zycbe033-vbund = /pws/zycbt001-vbund.
else.
itab_zycbe033-vbund = ''.
* << Fim da inclusão
endif.
append itab_zycbe033.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
...
...
itab_zycbe033-c_prctr = itab_zycbt002-prctr.
itab_zycbe033-d_fipos = itab_zycbt002-fipos.
itab_zycbe033-c_fipos = itab_zycbt002-fipos.
itab_zycbe033-d_fictr = itab_zycbt002-fictr.
itab_zycbe033-c_fictr = itab_zycbt002-fictr.
perform verify_null_field using v_agkon
'AGKON'
text-254.
itab_zycbe033-agkon = v_agkon.
itab_zycbe033-agkoa = 'S'.
* >> Início da inclusão: FORM EXECUTA_F51_EO
itab_zycbe033-vbund = /pws/zycbt001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = text-066.
itab_zycbt036-tabela = text-253.
itab_zycbt036-cpochv = itab_zycbt002-nrseqc.
if sy-index eq 1.
itab_zycbt036-belnr = itab_zycbt002-belnr.
else.
itab_zycbt036-belnr = itab_zycbt002-belnr_ir.
endif.
append itab_zycbt036.
...
...
wa_zycbe033-c_sgtxt = wa_zycbt117-codint.
endcase.
when 'ZFBDT'.
case itab_zyglt321-cpocb.
when 'DTINCL'.
wa_zycbe033-zfbdt = wa_zycbt117-dtincl.
when 'DTVENCTO'.
wa_zycbe033-zfbdt = wa_zycbt117-dtvencto.
when 'DTEMB'.
wa_zycbe033-zfbdt = wa_zycbt117-dtemb.
* >> Início da inclusão: FORM BUSCA_PARAMETROS321_IA
when 'DTLANCTO'.
wa_zycbe033-zfbdt = itab_zycbe033-budat.
* << Fim da inclusão
endcase.
when 'ZUONR'.
case itab_zyglt321-cpocb.
when 'NRSEQ'.
wa_zycbe033-d_zuonr = wa_zycbt117-nrseq.
wa_zycbe033-c_zuonr = wa_zycbt117-nrseq.
when 'EBELN'.
wa_zycbe033-d_zuonr = wa_zycbt117-ebeln.
wa_zycbe033-c_zuonr = wa_zycbt117-ebeln.
when 'TXTINF'.
...
...
case itab_zyglt321-cpocb.
when 'DTINCL'.
wa_zycbe033-d_valut = wa_zycbt117-dtincl.
wa_zycbe033-c_valut = wa_zycbt117-dtincl.
when 'DTVENCTO'.
wa_zycbe033-d_valut = wa_zycbt117-dtvencto.
wa_zycbe033-c_valut = wa_zycbt117-dtvencto.
when 'DTEMB'.
wa_zycbe033-d_valut = wa_zycbt117-dtemb.
wa_zycbe033-c_valut = wa_zycbt117-dtemb.
* >> Início da inclusão: FORM BUSCA_PARAMETROS321_IA
when 'DTLANCTO'.
wa_zycbe033-d_valut = itab_zycbe033-budat.
wa_zycbe033-c_valut = itab_zycbe033-budat.
* << Fim da inclusão
endcase.
when 'XBLNR'.
v_hora = sy-uzeit.
concatenate v_hora+2(2)
':'
v_hora+4(2)
into v_hora.
case itab_zyglt321-cpocb.
when 'NRSEQ'.
wa_zycbe033-xblnr = wa_zycbt117-nrseq.
...
...
elseif itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-codpagto.
itab_zycbe033-d_zuonr = itab_zycbt124_aux-codpagto.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
endif.
endcase.
endloop.
* >> Início da inclusão: FORM CONTABILIZA_REPATRIACAO_CP
itab_zycbe033-vbund = itab_zycbt124_aux-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-51'.
itab_zycbt036-tabela = '/PWS/ZYCBT031'.
itab_zycbt036-cpochv = itab_zycbt124_aux-nrseq.
itab_zycbt036-belnr = wa_zycat028-belnr_as.
itab_zycbt036-dtdocto = wa_zycat028-dt_assoc.
append itab_zycbt036.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110O01
...
where nrboleto = /pws/zycbe031-nrseq. "#EC CI_NOFIRST
perform seleciona_dados_gerais.
endif.
if itab_zycbt031_tc[] is initial.
perform carrega_dados.
itab_zycbt031_tc1[] = itab_zycbt031_tc[].
elseif not itab_zycbt031_tc[] is initial and
itab_zycbt031_tc1[] is initial.
itab_zycbt031_tc1[] = itab_zycbt031_tc[].
endif.
* >> Início da exclusão: MODULE CARREGA_DADOS
select single * from tcurx into wa_tcurx
where currkey = wa_zycbt007-waersb.
if sy-subrc <> 0.
wa_tcurx-currdec = 2.
endif.
if wa_tcurx-currdec = 0.
/pws/zycbe031-vlmi = /pws/zycbe031-vlmi *
( 10 ** ( wa_tcurx-currdec - 2 ) ).
/pws/zycbe031-vlmiir = /pws/zycbe031-vlmiir *
( 10 ** ( wa_tcurx-currdec - 2 ) ).
/pws/zycbe031-vlmicide = /pws/zycbe031-vlmicide *
( 10 ** ( wa_tcurx-currdec - 2 ) ).
endif.
* << Fim da exclusão
endmodule.
module status_0102 output.
set titlebar '0102'.
set screen '0102'.
set pf-status '0102'.
endmodule.
module status_0003 output.
set pf-status '0003'.
set titlebar '0003'.
endmodule.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
itab_zycbe033-bukrs = wa_zycbt112-bukrs.
perform verify_null_field using wa_zycbt031-waers
'WAERS'
text-011.
itab_zycbe033-waers = wa_zycbt031-waers.
itab_zycbe033-kursf = wa_zycbt112-kursf.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
* >> Início da inclusão: FORM EXECUTA_CLEARING_FINANC
itab_zycbe033-vbund = wa_zycbt112-vbund.
* << Fim da inclusão
clear: itab_zyglt100.
refresh: itab_zyglt100.
if itab_zyglt100[] is initial.
v_syrepid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'I'
i_func = v_syrepid
tables
itab_zyglt100 = itab_zyglt100
...
...
itab_zycbe033-brnch = t001w-j_1bbranch.
endif.
endif.
if itab_zycbe033-c_gsber is initial.
itab_zycbe033-c_gsber = wa_zycbt118-gsber.
endif.
itab_zycbe033-c_kostl = wa_zycbt118-kostl.
itab_zycbe033-c_prctr = wa_zycbt118-prctr.
itab_zycbe033-c_fipos = wa_zycbt118-fipos.
itab_zycbe033-c_fictr = wa_zycbt118-fictr.
* >> Início da inclusão: FORM FILL_DATE_F-63OUF-02_ID
itab_zycbe033-vbund = wa_zycbt118-vbund.
* << Fim da inclusão
move /pws/zycbt007-condpgvista to itab_zycbe033-zterm.
append itab_zycbe033.
clear t021r.
select single * from t021r into t021r
where event = 'SU-AG'
and feldn = 'AWKEY'.
if wa_zycbt118-frpagto eq 'C'.
itab_zycbt036-tcode = 'F-51'.
itab_zycbt036-tabela = '/PWS/ZYCBT031'.
itab_zycbt036-cpochv = /pws/zycbe031-nrseq.
...
...
if itab_zycmt020[] is initial.
v_tcode = /pws/zyglt009-transacaopa.
else.
v_tcode = 'F-43'.
endif.
itab_zycbe033-tcode = v_tcode.
itab_zycbe033-tabela = '/PWS/ZYCBT031'.
itab_zycbe033-cpochv = /pws/zycbe031-nrseq.
itab_zycbe033-budat = /pws/zycbe031-dtcredpr.
if wa_zycbt007-fdtdoc = 'D'.
* >> Início da exclusão: FORM FILL_DATE_F-63_IA
itab_zycbe033-bldat = /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_IA
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-c_valut = sy-datum.
* << Fim da inclusão
itab_zycbe033-d_valut = sy-datum.
else.
* >> Início da exclusão: FORM FILL_DATE_F-63_IA
itab_zycbe033-bldat = /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_IA
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-c_valut = itab_zycbe033-budat.
* << Fim da inclusão
itab_zycbe033-d_valut = itab_zycbe033-budat.
...
...
if not /pws/zycbe112-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe031-bukrs
wa_zycbt112-j_1bbranch.
itab_zycbe033-brnch = wa_zycbt112-j_1bbranch.
else.
select single * from t001w where werks = wa_zycbt112-werks.
if sy-subrc eq 0.
perform verifica_pais_filial using /pws/zycbe031-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
endif.
* << Fim da inclusão
endif.
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
if sy-index ne 2.
itab_zycbe033-vbund = wa_zycbt112-vbund.
else.
itab_zycbe033-vbund = ''.
* << Fim da inclusão
endif.
clear: itab_zyglt100.
refresh: itab_zyglt100.
...
...
perform verify_null_field using /pws/zycbe031-waers
'WAERS'
text-011.
itab_zycbe033-waers = /pws/zycbe031-waers.
itab_zycbe033-zterm = wa_zycbt007-condpgvista.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-dtdocto = itab_zycbe033-budat.
* >> Início da inclusão: FORM EXECUTA_F51_IF
itab_zycbe033-vbund = wa_zycbt112-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
...
...
itab_zycbe033a-d_prctr = wa_zycbt112-prctr.
itab_zycbe033a-d_fipos = wa_zycbt112-fipos.
itab_zycbe033a-d_fictr = wa_zycbt112-fictr.
perform verifica_pais_filial using /pws/zycbe031-bukrs
wa_zycbt112-j_1bbranch.
itab_zycbe033a-brnch = wa_zycbt112-j_1bbranch.
itab_zycbe033a-c_kostl = wa_zycbt112-kostl.
itab_zycbe033a-c_prctr = wa_zycbt112-prctr.
itab_zycbe033a-c_fipos = wa_zycbt112-fipos.
itab_zycbe033a-c_fictr = wa_zycbt112-fictr.
* >> Início da inclusão: FORM EXECUTA_F02_TRAVA
itab_zycbe033a-vbund = wa_zycbt112-vbund.
* << Fim da inclusão
if /pws/zycbe031-tpparc eq 'C'.
v_codaux1 = 'CO' .
v_codaux2 = 'COMIS C'.
v_codaux3 = wa_zycbt112-codint.
elseif /pws/zycbe031-tpparc eq 'J' and
sy-index eq 2.
v_codaux1 = 'IR' .
v_codaux2 = 'IRRF C'.
v_codaux3 = wa_zycbt112-codint.
elseif /pws/zycbe031-tpparc eq 'J' and
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
if v_dfact = 0.
v_dfact = 1.
endif.
if v_pfact = 0.
v_pfact = 1.
endif.
else.
message i061 with text-107 text-108.
exit.
endif.
* >> Início da inclusão: FORM CALCULA_TOTAL
/pws/zycbe031-vlmi = 0.
/pws/zycbe031-vlmiir = 0.
* << Fim da inclusão
if sy-subrc eq 0.
select single * from tcurx where currkey = /pws/zycbe031-waers.
if sy-subrc <> 0.
tcurx-currdec = 2.
endif.
v_vlmeaux = /pws/zycbe031-vlme / ( 10 ** ( tcurx-currdec - 2 ) ).
if /pws/zycbe031-vlmi is initial or
( /pws/zycbe031-kursf ne wa_zycbt031-kursf and
not wa_zycbt031-kursf is initial ).
wa_zycbt031-kursf = /pws/zycbe031-kursf.
...
...
/pws/zycbe031-kursf / v_dfact * v_pfact.
endif.
select single * from tcurx into wa_tcurx
where currkey = wa_zycbt007-waersb.
if sy-subrc <> 0.
wa_tcurx-currdec = 2.
endif.
if wa_tcurx-currdec = 0.
/pws/zycbe031-vlmi = /pws/zycbe031-vlmi *
( 10 ** ( wa_tcurx-currdec - 2 ) ).
* >> Início da inclusão: FORM CALCULA_TOTAL
/pws/zycbe031-vlmiir = /pws/zycbe031-vlmiir *
( 10 ** ( wa_tcurx-currdec - 2 ) ).
* << Fim da inclusão
endif.
else.
v_dfact = 1.
v_pfact = 1.
if sy-subrc eq 1.
message i015 with text-121.
elseif sy-subrc eq 2.
message i015 with text-122.
elseif sy-subrc eq 3.
message i015 with text-039.
...
...
itab_zycbe033-bukrs = itab_zycbt124_aux-bukrs.
perform verify_null_field using itab_zycbt124_aux-waers
'WAERS'
text-011.
itab_zycbe033-waers = itab_zycbt124_aux-waers.
itab_zycbe033-zterm = wa_zycbt007-condpgvista.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
* >> Início da inclusão: FORM EXECUTA_F51_CP
itab_zycbe033-vbund = itab_zycbt124_aux-vbund.
* << Fim da inclusão
if /pws/zycbt125-tprem ne 2.
call customer-function '016'
tables
t_dados = itab_zycbe033. "#EC *
append itab_zycbe033.
else.
call customer-function '075'
tables
t_dados = itab_zycbe033. "#EC *
modify itab_zycbe033 index 1.
...