CE PLUS - Nota 009279
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 29/10/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:20:20
Descrição da Nota: REMESSA FINANCEIRA CONTAB.PELA F-43 PARA PAGTO.EM COMPETENCIA
Sintoma
Desenvolvimento Adicional - Contabilizar Remessa Financeira pela F-43 para forma de pagto por
Competencia
Solução
Desenvolvimento Adicional - Contabilizar Remessa Financeira pela F-43 para forma de pagto por
Competencia.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09279 Data: 29/10/2009 Hora: 09:58:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09279
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01231 - 00001 - 6.0 - 00023 - REMESSA - IMPOSTOS NOVOS
01292 - 00002 - 6.0 - 00023 - REMESSA - GRAVAÇÃO DOS DADOS - TRATAMENTO ALTERAÇÕES
02171 - 00003 - 6.0 - 00025 - REMESSA - DA STATUS CAMPOS TELA PAGAMENTO/RECEBIMENTO
03270 - 00004 - 6.0 - 00026 - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO
04824 - 00005 - 7.0 - 00003 - REMESSA COM ORIGEM - RATEIO PASTA CONTABILIZAÇÃO PRINCIPAL
04861 - 00006 - 7.0 - 00003 - DA SAÍDA DE PAGAMENTO - COMPENSAÇÃO AUTOMÁTICA CC ME
05482 - 00007 - 7.0 - 00003 - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO
05803 - 00008 - 7.0 - 00004 - VERIFICAÇÃO AMPLIADA, CODE INSPECTOR CAMBIO FINACEIRO
05911 - 00009 - 7.0 - 00004 - REMESSA - AJUSTE NO CALCULO DE IMPOSTOS
06671 - 00010 - 7.0 - 00005 - REPATRIAÇÃO DE REMESSA
07340 - 00011 - 7.0 - 00007 - CONVÊNIO CRÉDITO RECÍPROCO NA CARTA DE CRÉDITO DE EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
REMESSA FINANCEIRA CONTAB.PELA F-43 PARA PAGTO.EM COMPETENCIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA FINANCEIRA CONTAB.PELA F-43 PARA PAGTO.EM COMPETENCIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
DTEL /PWS/ZYGLL1422
DYNP /PWS/SAPMZYGL007 0133
MERG F6DK972597 20091028 153148 PWSCB
RELE F6DK972621 20091028 153157 PWSCB
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCA109TOP
REPS /PWS/MZYGL007I01
REPS /PWS/MZYGL007O01
REPS /PWS/MZYGL007TOP
TABD /PWS/ZYGLT009
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYGL007 0133
FAVOR PEDIR O ARQUIVO DA TELA 0133 PARA UPLOAD NO PROGRAMA .
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
continue.
endif.
perform fill_date_f_51_princ_ir.
endif.
continue.
enddo.
endif.
endif.
endif.
if /pws/zycbe124-criacao eq 'S' and /pws/zycbe124-belnr is initial.
* >> Início da inclusão: FORM EFETUA_LANCAMENTO
select single transacaorem
into v_transrem
from /pws/zyglt009
where bukrs eq /pws/zycbe124-bukrs.
if v_transrem ne c_f43 .
* << Fim da inclusão
perform preenche_gera_contabeis using v_message
* >> Início da inclusão: FORM EFETUA_LANCAMENTO
/pws/zycbe124-vlme.
else.
perform contabiliza_f43 using v_message
* << Fim da inclusão
/pws/zycbe124-vlme.
endif.
* >> Início da inclusão: FORM EFETUA_LANCAMENTO
endif.
* << Fim da inclusão
elseif /pws/zycbe124-frpagto = 'C' and /pws/zycbe124-tpoper = 'R'
and /pws/zycbe124-belnr is initial.
perform efetua_lancamento_recebimento.
endif.
loop at itab_zycat025 where belnr_pr is initial
and frpagto_imp eq 'C'.
read table itab_zycat024 with key tpimp = itab_zycat025-tpimp.
if sy-subrc = 0 and not itab_zycat024-cont_imp is initial.
* >> Início da inclusão: FORM EFETUA_LANCAMENTO
select single transacaorem
into v_transrem
from /pws/zyglt009
where bukrs eq /pws/zycbe124-bukrs.
if v_transrem ne c_f43 .
* << Fim da inclusão
perform preenche_gera_contabeis using itab_zycat025-tpimp
* >> Início da inclusão: FORM EFETUA_LANCAMENTO
itab_zycat025-vlimpme.
else.
perform contabiliza_f43 using itab_zycat025-tpimp
* << Fim da inclusão
itab_zycat025-vlimpme.
* >> Início da inclusão: FORM EFETUA_LANCAMENTO
endif.
* << Fim da inclusão
endif.
endloop.
endform.
form get_parameters_f63_f02 using p_tpimp.
select single * from /pws/zycbt007
where bukrs eq /pws/zycbe124-bukrs.
select single * from /pws/zycbt089
where bukrs eq /pws/zycbe124-bukrs.
select single * from /pws/zyglt009
where bukrs eq /pws/zycbe124-bukrs.
...
...
where codeven = '003R'
and codmod = 'F'.
endselect.
select * from /pws/zyglt321
into table itab_zyglt321
where ktosl = 'RCF'
and codeven = '003R'.
endif.
select *
from /pws/zycat027
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
into table itab_zycat027. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
into table itab_zycat027. "#EC CI_NOWHERE
* << Fim da inclusão
endform.
form preenche_partida_multipla using p_tpimp.
data: v_vlirrf_aux like /pws/zycat025-vlimpme.
data: v_vlirrf(16) type p decimals 5,
v_tot like /pws/zycat025-vlimpme,
v_line type i.
loop at itab_zycbt141 where tpimp = p_tpimp.
itab_zycbe035-mandt = sy-mandt.
* >> Início da inclusão: FORM PREENCHE_PARTIDA_MULTIPLA
if v_transrem ne c_f43 .
* << Fim da inclusão
itab_zycbe035-tcode = 'F-63'.
* >> Início da inclusão: FORM PREENCHE_PARTIDA_MULTIPLA
else.
itab_zycbe035-tcode = 'F-43'.
endif.
* << Fim da inclusão
itab_zycbe035-tabela = '/PWS/ZYCBT124'.
itab_zycbe035-bschl = '40'.
itab_zycbe035-d_kostl = itab_zycbt141-kostl.
itab_zycbe035-aufnr = itab_zycbt141-aufnr.
...
...
endselect.
if sy-subrc = 0.
select *
from bkpf
up to 1 rows
into wa_bkpf
where awkey = wa_vbfa-vbeln. "#EC CI_NOFIRST
endselect.
if sy-subrc = 0.
select * from /pws/zycat027 into table itab_zycat027
* >> Início da exclusão: FORM CRIAR_REMESSA_ORDEM
where shkzg = 'D'. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_ORDEM
where shkzg = 'D'. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0.
loop at itab_zycat027.
r_bschl-sign = 'I'.
r_bschl-option = 'BT'.
r_bschl-high = itab_zycat027-bschl.
append r_bschl.
endloop.
select * from bseg into table itab_bseg
where belnr = wa_bkpf-belnr
and bukrs = wa_bkpf-bukrs
...
...
not bkpf-gjahr is initial.
clear: itab_bseg, wa_bkpf.
refresh: itab_bseg.
select single * from bkpf into wa_bkpf
where belnr = bkpf-belnr
and bukrs = bkpf-bukrs
and gjahr = bkpf-gjahr.
if sy-subrc = 0.
select *
from /pws/zycat027
* >> Início da exclusão: FORM CRIAR_REMESSA_DOC
into table itab_zycat027. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_DOC
into table itab_zycat027. "#EC CI_NOWHERE
* << Fim da inclusão
if sy-subrc = 0.
loop at itab_zycat027.
r_bschl-sign = 'I'.
r_bschl-option = 'BT'.
r_bschl-high = itab_zycat027-bschl.
append r_bschl.
endloop.
select * from bseg into table itab_bseg
where belnr = wa_bkpf-belnr
and bukrs = wa_bkpf-bukrs
...
...
concatenate wa_rbkp-belnr wa_rbkp-gjahr into v_docmiro.
select *
from bkpf
up to 1 rows
into wa_bkpf
where gjahr = wa_rbkp-gjahr
and awkey = v_docmiro. "#EC CI_NOFIRST
endselect.
if sy-subrc = 0.
select * from /pws/zycat027 into table itab_zycat027
* >> Início da exclusão: FORM CRIAR_REMESSA_REVISAO
where shkzg = 'C'. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_REVISAO
where shkzg = 'C'. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0.
loop at itab_zycat027.
r_bschl-sign = 'I'.
r_bschl-option = 'BT'.
r_bschl-high = itab_zycat027-bschl.
append r_bschl.
endloop.
select * from bseg into table itab_bseg
where belnr = wa_bkpf-belnr
and bukrs = wa_bkpf-bukrs
...
...
form desmembra_docto_provisao_prin.
data: v_koart_bi type /pws/zycat027-koart,
v_shkzg_bi type /pws/zycat027-shkzg.
perform clear_date_batch.
select single * from /pws/zycbt007
where bukrs eq /pws/zycbe124-bukrs.
select single * from /pws/zycbt089
where bukrs eq /pws/zycbe124-bukrs.
select single * from /pws/zyglt009
where bukrs eq /pws/zycbe124-bukrs.
* >> Início da exclusão: FORM DESMEMBRA_DOCTO_PROVISAO_PRIN
select * from /pws/zycat027 into table itab_zycat027. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_PRIN
select * from /pws/zycat027 into table itab_zycat027. "#EC CI_NOWHERE
* << Fim da inclusão
select *
from /pws/zycbt011
up to 1 rows
into wa_zycbt011
where codmod = 'F'
and codeven = '004P'.
endselect.
select * from /pws/zyglt321
into table itab_zyglt321
where ktosl = 'DSF'
...
...
read table itab_zycat025 with key tpimp(4) = 'IRRF'.
check erro_bi_principal is initial and
erro_bi_irrf is initial and
sy-subrc eq 0.
select single * from /pws/zycbt007
where bukrs eq /pws/zycbe124-bukrs.
select single * from /pws/zycbt089
where bukrs eq /pws/zycbe124-bukrs.
select single * from /pws/zyglt009
where bukrs eq /pws/zycbe124-bukrs.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR
select * from /pws/zycat027 into table itab_zycat027. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR
select * from /pws/zycat027 into table itab_zycat027. "#EC CI_NOWHERE
* << Fim da inclusão
if sy-index <= 1.
select *
from /pws/zycbt011
up to 1 rows
into wa_zycbt011
where codmod = 'F'
and codeven = '004P'.
endselect.
select * from /pws/zyglt321
into table itab_zyglt321
...
...
v_dtassoc to /pws/zycat028-dt_assoc,
v_recrem to /pws/zycbe124-recrem,
v_belnr_as to v_belnr_s.
endform.
form cria_remessa_repatriacao
using p_sy_subrc type sy-subrc.
select *
up to 1 rows
from /pws/zycat028
where tp_processo = v_processo
* >> Início da exclusão: FORM CRIA_REMESSA_REPATRIACAO
and nr_processo = v_sequencial. "#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM CRIA_REMESSA_REPATRIACAO
and nr_processo = v_sequencial. "#EC CI_NOFIELD
* << Fim da inclusão
endselect.
p_sy_subrc = sy-subrc.
endform.
form message_store using p_classe
p_tipo
p_msg1
p_msg2
p_msg3
p_msg4
p_nro. "#EC *
...
...
if sy-subrc = 0.
else.
endif.
if p_limpa_msg = 'X'.
call function 'MESSAGES_INITIALIZE'.
endif.
endform.
form message_initialize.
call function 'MESSAGES_INITIALIZE'.
endform.
* >> Início da inclusão:
form contabiliza_f43 using p_tpimp p_vlme.
data: v_koart_bi type /pws/zycat027-koart,
v_shkzg_bi type /pws/zycat027-shkzg,
v_fornec type /pws/zycat024-fornecedor.
v_tpimp = p_tpimp.
check erro_bi_principal is initial and
erro_bi_irrf is initial and
erro_bi_cide is initial and
erro_bi_pis is initial and
erro_bi_cofins is initial and
erro_bi_iss is initial and
erro_bi_iof is initial.
perform clear_date_batch.
perform get_parameters_f63_f02 using p_tpimp.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-43'.
itab_zycbe033-tabela = '/PWS/ZYCBT124'.
itab_zycbe033-cpochv = /pws/zycbe124-nrseq.
if p_tpimp = 'PRINCIPAL'.
itab_zycbe033-budat = /pws/zycbe124-dtdocto.
else.
itab_zycbe033-budat = itab_zycat025-dtlanc.
endif.
if /pws/zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
else.
itab_zycbe033-bldat = itab_zycbe033-budat.
endif.
itab_zycbe033-zterm = /pws/zycbt007-condpgvista.
perform verifica_taxa.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-090.
itab_zycbe033-blart = wa_zycbt011-blart.
perform verify_null_field using /pws/zycbe124-bukrs
'BUKRS'
text-092.
itab_zycbe033-bukrs = /pws/zycbe124-bukrs.
perform verify_null_field using /pws/zycbe124-waers
'WAERS'
text-091.
itab_zycbe033-waers = /pws/zycbe124-waers.
itab_zycbe033-wrbtr = p_vlme.
perform verifica_pais_filial using /pws/zycbe124-bukrs
/pws/zycbe124-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe124-j_1bbranch.
itab_zycbe033-bktxt = /pws/zycbt007-bktxt.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
if itab_zyglt321-cpocb = 'NRFAT'.
itab_zycbe033-c_sgtxt = /pws/zycbe124-nrfat.
itab_zycbe033-d_sgtxt = /pws/zycbe124-nrfat.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-c_sgtxt = /pws/zycbe124-nrcontr.
itab_zycbe033-d_sgtxt = /pws/zycbe124-nrcontr.
elseif itab_zyglt321-cpocb = 'NRFECH'.
itab_zycbe033-c_sgtxt = /pws/zycbe124-nrfech.
itab_zycbe033-d_sgtxt = /pws/zycbe124-nrfech.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-c_sgtxt = /pws/zycbe124-nrseq.
itab_zycbe033-d_sgtxt = /pws/zycbe124-nrseq.
elseif itab_zyglt321-cpocb = 'TXTINF'.
itab_zycbe033-c_sgtxt = /pws/zycbe124-txtinf.
itab_zycbe033-d_sgtxt = /pws/zycbe124-txtinf.
elseif itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_sgtxt = /pws/zycbe124-codpagto.
itab_zycbe033-d_sgtxt = /pws/zycbe124-codpagto.
elseif itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_sgtxt = p_tpimp.
itab_zycbe033-d_sgtxt = p_tpimp.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
endif.
when 'VALUT'.
if itab_zyglt321-cpocb = 'DTINCL'.
itab_zycbe033-c_valut = /pws/zycbe124-dtincl.
itab_zycbe033-d_valut = /pws/zycbe124-dtincl.
elseif itab_zyglt321-cpocb = 'DTDOCTO'.
itab_zycbe033-c_valut = /pws/zycbe124-dtdocto.
itab_zycbe033-d_valut = /pws/zycbe124-dtdocto.
elseif itab_zyglt321-cpocb = 'DTVENCTO'.
if p_tpimp = 'PRINCIPAL'.
itab_zycbe033-c_valut = /pws/zycbe124-dtvencto.
itab_zycbe033-d_valut = /pws/zycbe124-dtvencto.
else.
itab_zycbe033-c_valut = itab_zycat025-dtvencto.
itab_zycbe033-d_valut = itab_zycat025-dtvencto.
endif.
elseif itab_zyglt321-cpocb = 'DTLANC'.
itab_zycbe033-c_valut = itab_zycat025-dtlanc.
itab_zycbe033-d_valut = itab_zycat025-dtlanc.
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-xblnr = /pws/zycbe124-nrseq.
elseif itab_zyglt321-cpocb = 'NRFECH'.
itab_zycbe033-xblnr = /pws/zycbe124-nrfech.
elseif itab_zyglt321-cpocb = 'NRFAT'.
itab_zycbe033-xblnr = /pws/zycbe124-nrfat.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe124-nrcontr.
elseif itab_zyglt321-cpocb = 'TXTINF'.
itab_zycbe033-xblnr = /pws/zycbe124-txtinf.
elseif itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-xblnr = /pws/zycbe124-codpagto.
elseif itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-xblnr = p_tpimp.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTVENCTO'.
if p_tpimp = 'PRINCIPAL'.
itab_zycbe033-zfbdt = /pws/zycbe124-dtvencto.
else.
itab_zycbe033-zfbdt = itab_zycat025-dtvencto.
endif.
elseif itab_zyglt321-cpocb = 'DTINCL'.
itab_zycbe033-zfbdt = /pws/zycbe124-dtincl.
elseif itab_zyglt321-cpocb = 'DTDOCTO'.
itab_zycbe033-zfbdt = /pws/zycbe124-dtdocto.
elseif itab_zyglt321-cpocb = 'DTLANC'.
itab_zycbe033-zfbdt = itab_zycat025-dtlanc.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-c_zuonr = /pws/zycbe124-nrseq.
elseif itab_zyglt321-cpocb = 'NRFECH'.
itab_zycbe033-c_zuonr = /pws/zycbe124-nrfech.
elseif itab_zyglt321-cpocb = 'NRFAT'.
itab_zycbe033-c_zuonr = /pws/zycbe124-nrfat.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-c_zuonr = /pws/zycbe124-nrcontr.
elseif itab_zyglt321-cpocb = 'TXTINF'.
itab_zycbe033-c_zuonr = /pws/zycbe124-txtinf.
elseif itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_zuonr = /pws/zycbe124-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-newbs = '31'.
if /pws/zycbe124-tpoper eq 'P'.
if /pws/zycbe124-tpcliente eq 'F'.
read table itab_zycat027
with key koart = 'F'
shkzg = 'C'.
itab_zycbe033-newbs = itab_zycat027-bschl.
v_koart_bi = 'F'.
v_shkzg_bi = 'C'.
elseif /pws/zycbe124-tpcliente = 'C'.
read table itab_zycat027
with key koart = 'C'
shkzg = 'C'.
if sy-subrc = 0.
itab_zycbe033-newbs = itab_zycat027-bschl.
v_koart_bi = 'C'.
v_shkzg_bi = 'C'.
itab_zycbe033-agkoa = 'D'.
endif.
if p_tpimp(4) = 'IRRF'.
read table itab_zycat024 with key tpimp(4) = 'IRRF'
bukrs = /pws/zycbe124-bukrs.
if sy-subrc = 0 and itab_zycat024-credito_imp = '1'.
v_koart_bi = 'F'.
v_shkzg_bi = 'C'.
itab_zycbe033-newbs = '31'.
itab_zycbe033-agkoa = 'D'.
endif.
endif.
endif.
endif.
if p_tpimp = 'PRINCIPAL'.
itab_zycbe033-c_newko = /pws/zycbe124-recrem.
read table itab_zycat025 with key tpimp(4) = 'IRRF'.
if sy-subrc = 0 and itab_zycat025-dedfat = 'X'.
itab_zycbe033-wrbtr = p_vlme -
itab_zycat025-vlimpme. "#EC *
endif.
p_tpimp = 'PRINCIPAL'.
itab_zycbe033-c_prctr = /pws/zycbe124-prctr.
else.
if not itab_zycat024-credito_imp is initial.
v_cred_imp = itab_zycat024-credito_imp.
else.
v_cred_imp = /pws/zyglt009-cont_impostos.
endif.
if v_cred_imp = '1'.
if p_tpimp(3) = 'ISS'.
select single fornecedor
into v_fornec
from /pws/zycat024
where bukrs = /pws/zycbe124-bukrs
and tpimp = p_tpimp
and j_1bbranch = /pws/zycbe124-j_1bbranch.
if sy-subrc = 0.
itab_zycbe033-c_newko = v_fornec.
else.
itab_zycbe033-c_newko = ''.
endif.
else.
itab_zycbe033-c_newko = /pws/zycbt089-forn_rec_fed.
endif.
itab_zycbe033-newbs = '31'.
v_koart_bi = 'F'.
v_shkzg_bi = 'C'.
elseif v_cred_imp = '2'.
itab_zycbe033-c_newko = /pws/zycbe124-recrem.
elseif v_cred_imp = '3'.
call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
exporting
bukrs = /pws/zycbe124-bukrs
ktosl = 'PVF'
codaux1 = p_tpimp
tables
account = itab_zyglt316
exceptions
key_not_found = 1
rules_not_found = 2
others = 3.
if sy-subrc = 0.
read table itab_zyglt316 index 1.
itab_zycbe033-c_newko = itab_zyglt316-konth.
endif.
itab_zycbe033-newbs = '50'.
clear: v_koart_bi, v_shkzg_bi.
endif.
endif.
itab_zycbe033-d_gsber = /pws/zycbe124-gsber.
itab_zycbe033-c_gsber = /pws/zycbe124-gsber.
append itab_zycbe033.
perform preenche_partida_multipla using p_tpimp.
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
exceptions
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
others = 4.
if sy-subrc = 0 .
else.
endif.
endif.
read table itab_zyglt100 with key zexit = 'REM002' binary search.
if sy-subrc eq 0.
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.
loop at itab_zycbt034.
perform message_store using
'/PWS/ZYCBM'
'E'
itab_zycbt034-descricao
space
space
space
'016'.
endloop.
if itab_zycbt034 is initial.
if v_modo_bi is initial.
v_modo_bi = 'N'.
endif.
call function '/PWS/ZYCB_TRANSACAO_F_43'
exporting
v_modo = v_modo_bi
v_vkoart = v_koart_bi
v_shkzg = v_shkzg_bi
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.
if sy-subrc = 0.
read table itab_zycbt032 with key tcode = 'F-43'
tabela = '/PWS/ZYCBT124'
cpochv = /pws/zycbe124-nrseq
tpmsg = 'S'.
if sy-subrc eq 0.
concatenate p_tpimp '-' into v_msg separated by space.
perform message_store using
'/PWS/ZYCBM'
'I'
v_msg
text-164
itab_zycbt032-belnr
text-170
'061'.
if p_tpimp = 'PRINCIPAL'.
/pws/zycbe124-belnr = itab_zycbt032-belnr.
update /pws/zycbt124 set belnr = /pws/zycbe124-belnr
where nrseq = /pws/zycbe124-nrseq.
commit work.
v_belnr_s = itab_zycbt032-belnr.
else.
itab_zycat025-belnr_pr = itab_zycbt032-belnr.
modify itab_zycat025 transporting belnr_pr
where tpimp = p_tpimp.
itab_zycat025_aux3-belnr_pr = itab_zycbt032-belnr.
modify itab_zycat025_aux3 transporting belnr_pr
where tpimp = p_tpimp.
update /pws/zycat025 set belnr_pr = itab_zycat025-belnr_pr
where nrseq = /pws/zycbe124-nrseq
and tpimp = p_tpimp. "#EC CI_NOFIRST
commit work.
endif.
else.
perform seta_erro_bi using p_tpimp.
loop at itab_zycbt032.
perform message_store using
'/PWS/ZYCBM'
'E'
itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50)
space
space
'015'.
endloop.
endif.
else.
perform seta_erro_bi using p_tpimp.
loop at itab_zycbt034.
perform message_store using
'/PWS/ZYCBM'
'E'
itab_zycbt034-descricao
space
space
space
'016'.
endloop.
endif.
else.
perform seta_erro_bi using p_tpimp.
loop at itab_zycbt034.
perform message_store using
'/PWS/ZYCBM'
'E'
itab_zycbt034-descricao
space
space
space
'016'.
endloop.
endif.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109TOP
...
v_tela LIKE sy-ucomm,
wa_zycbe141_aux LIKE /pws/zycbe141,
v_dtlanc(10) TYPE c,
v_vlme_assoc TYPE /pws/zycbt124-vlme,
v_sld_associar TYPE /pws/zycbt124-sld_associar.
RANGES: r_bschl FOR /pws/zycat027-bschl OCCURS 0.
DATA: v_porcentagem TYPE /pws/zycbt124-vlme,
v_resposta TYPE c,
v_verif TYPE c,
v_total_docto TYPE bseg-wrbtr.
* >> Início da inclusão:
CONSTANTS:
c_f63 TYPE /pws/zyglt009-transacaorem VALUE 'F-63',
c_f43 TYPE /pws/zyglt009-transacaorem VALUE 'F-43'.
data: v_koart_bi type /pws/zycat027-koart,
v_shkzg_bi type /pws/zycat027-shkzg,
v_transrem type /pws/zyglt009-transacaorem,
v_fornec type /pws/zycat024-fornecedor.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007I01
...
IF v_f63PA IS INITIAL.
/pws/zyglt009-transacaopa = c_f43.
ELSE.
/pws/zyglt009-transacaopa = c_f63.
ENDIF.
IF v_f63PF IS INITIAL.
/pws/zyglt009-transacaopf = c_f43.
ELSE.
/pws/zyglt009-transacaopf = c_f63.
ENDIF.
* >> Início da inclusão: MODULE SET_CONTBRL
if v_f63re is initial.
/pws/zyglt009-transacaorem = c_f43.
else.
/pws/zyglt009-transacaorem = c_f63.
endif.
* << Fim da inclusão
ENDMODULE.
MODULE set_infotext INPUT.
IF v_infotext1 = 'X'.
/pws/zyglt009-infotext = 'X'.
ELSE.
CLEAR /pws/zyglt009-infotext.
ENDIF.
ENDMODULE.
MODULE set_campos_110 INPUT.
IF v_dtjuros1 = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007O01
...
MOVE 'X' TO v_f43pa.
WHEN c_f63.
MOVE 'X' TO v_f63pa.
ENDCASE.
CASE /pws/zyglt009-transacaopf.
WHEN c_f43.
MOVE 'X' TO v_f43pf.
WHEN c_f63.
MOVE 'X' TO v_f63pf.
ENDCASE.
* >> Início da inclusão: MODULE SET_SCREEN_103
clear: v_f43re,
v_f63re.
case /pws/zyglt009-transacaorem.
when c_f43.
move 'X' to v_f43re.
when c_f63.
move 'X' to v_f63re.
endcase.
* << Fim da inclusão
ENDMODULE.
MODULE set_screen_109 OUTPUT.
IF /pws/zycbt007-fprovisao = ' '.
v_fprovisao1 = 'X'.
CLEAR v_fprovisao2.
ELSEIF /pws/zycbt007-fprovisao = 'C'.
v_fprovisao2 = 'X'.
CLEAR v_fprovisao1.
ENDIF.
CLEAR: v_dataestorno1,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007TOP
...
v_conts(1) TYPE c,
v_contn(1) TYPE c,
v_cc1(1) TYPE c,
v_cc2(1) TYPE c,
v_lei(30),
v_cambio(30),
v_f63pa type c,
v_f43pa type c,
v_f63pf type c,
v_f43pf type c,
* >> Início da inclusão:
v_f63re type c,
v_f43re type c,
* << Fim da inclusão
v_origem(30).
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYGLT009
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYGLT009
DESCRIÇÃO BREVE: GL - Parâm Gerais Câmbio - continuação da ZYCBT007
CARACTERÍSTICAS
CAMPOS NOVOS
CAMPOS: TP. CAMPO CAT COMPR CASA DESCRIÇÃO BREVE
TRANSACAOREM /PWS/ZYGLL1422 CHAR 4 0 GL - Transação para contabilização de Remessa
----------------------------------------------------------------------------------------------------
CRIAÇÃO EFETUADAS EM DTEL /PWS/ZYGLL1422
CRIAÇÃO ELEMENTO DE DADOS: /PWS/ZYGLL1422
DESCRIÇÃO BREVE: GL - Transação para contabilização de Remessa
DEFINIÇÃO
CATEGORIA DE DADOS:
(X) - CATEGORIA ELEMENTAR
(X) - DOMÍNIO /PWS/ZYGLD595
(_) - TIPO INSTALADO CTG. DADOS: ________________
CUMPRIMEN.________ DECIMAIS.________
(_) - TIPO DE REFERÊNCIA
REFERÊNCIA A:_____________________________________
ATRIBUTOS:
REDIMENS: (_) - VERTICAL (_) - HORIZONTAL
___ - LINHAS MIN. ___ - COLUNAS MIN.
CARACTERÍSTICAS:
ID PARÂMETRO: ____________________
NOME COMPENENTE DEFAULT: ________________________
(_) DOC. MODIFICAÇÃO
AJUDA PARA PESQUISA
NOME: __________________________
PARÂMETROS: __________________________
DENOM. DE CAMPO:
Breve 10 Cont Rem
Médio 15 Contab Rem.
longa 31 Transação p/ contab. de Remessa
Título 40 Transação para contabilização de Remessa