Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Contrato
Data/Hora da Publicação: 20/08/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:58:51
Descrição da Nota: LIQ. ACC C/ PRE - QUANDO FAZ UM CONTRATO DE ACC E UM NOVO DE DP PARCIAL
Sintoma
Liq. Acc c/ Pre - quando faz um contrato de ACC e um novo de DP parcial o BI pega conta e atribuição
incorretos na 1.e 2. contabilização
Solução
Para contrato de DP, pega a conta de cliente na primeira contab. e acerta a descriçao da atribuição.
8.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10523 Data: 20/08/2010 Hora: 16:50:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10523
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00035
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10377 - 00002 - 8.0 - 00004 - PARAMETRO - CAPTAÇÃO - PROBLEMA CFM
10458 - 00001 - 8.0 - 00004 - CAPTAÇÃO DP C/C ME - DUMP AO SALVAR
----------------------------------------------------------------------------------------------------
LIQ. ACC C/ PRE - QUANDO FAZ UM CONTRATO DE ACC E UM NOVO DE DP PARCIAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQ. ACC C/ PRE - QUANDO FAZ UM CONTRATO DE ACC E UM NOVO DE DP PARCIAL
O BI PEGA CONTA E ATRIBUIÇÃO INCORRETOS NA 1.E 2. CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F02
REPS /PWS/MZYCB001TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F02
...
endif.
if wa_zycbt001_pre-tpcontr = 'A'.
itab_zycbe033-d_newko1 = conta_acc.
elseif wa_zycbt001_pre-tpcontr ne 'A'.
itab_zycbe033-d_newko1 = conta_pre.
endif.
if /pws/zycbt001-tpcontr(1) = 'D'.
itab_zycbe033-newbs = '19'.
itab_zycbe033-agkoa = 'D'.
itab_zycbe033-umskz = cod_rze.
* >> Início da inclusão: FORM DESMEMBRA_ACC
itab_zycbe033-d_newko = conta_pre.
v_dp1 = 'X'.
* << Fim da inclusão
else.
itab_zycbe033-newbs = '50'.
itab_zycbe033-agkoa = 'S'.
endif.
concatenate text-467 itab_zycbt061-nrseq_c
into itab_zycbe033-d_zuonr
separated by space.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
...
...
itab_zycbe033-d_gsber = /pws/zycbe001-gsber.
itab_zycbe033-wrbtr = /pws/zycbe001-vlme.
itab_zycbe033-werks = /pws/zycbe001-werks.
itab_zycbe033-kursf = /pws/zycbe001-txcneg.
perform verify_null_field using /pws/zycbe001-txcneg
'TXCAMB'
text-027.
concatenate text-488 /pws/zycbe001-nrseqc
into itab_zycbe033-c_zuonr
separated by space.
* >> Início da exclusão: FORM CLEARING_PRE
if v_dp = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_PRE
IF v_dp1 = 'X'.
* << Fim da inclusão
if wa_zycbt001_pre-tpcontr = 'A'.
itab_zycbe033-c_zuonr = wa_zycbt001_pre-dtcontr.
endif.
endif.
itab_zycbe033-c_zuonr = /pws/zycbe001-nrseqc.
itab_zycbe033-vbund = /pws/zycbe001-vbund.
append itab_zycbe033.
if itab_zycbt061-tpcontr_c(1) ca 'PS'.
if /pws/zycbe001-tpcontr eq 'A'.
select *
...
...
itab_partidas-agkoa = 'D'.
itab_partidas-agums = cod_rze.
else.
itab_partidas-agkoa = 'S'.
itab_partidas-agums = space.
endif.
itab_partidas-bukrs = wa_zycbt001_pre-bukrs.
itab_partidas-shkzg = 'H'.
if itab_zycbt061-baixa eq 'X'.
itab_partidas-v_sinal = '-'.
* >> Início da inclusão: FORM CLEARING_PRE
IF /pws/zycbe001-tpcontr = 'DP'.
CONCATENATE text-488 wa_zycbt001_pre-nrseqc
INTO itab_partidas-d_zuonr
SEPARATED BY space.
ELSE.
* << Fim da inclusão
concatenate text-488 /pws/zycbe001-nrseqc
into itab_partidas-d_zuonr
separated by space.
* >> Início da inclusão: FORM CLEARING_PRE
ENDIF.
* << Fim da inclusão
else.
itab_partidas-v_sinal = '+'.
clear itab_partidas-d_zuonr.
endif.
...
...
else.
v_subrc = 4.
endif.
sy-subrc = v_subrc.
endform.
form campos_liquida_pt_acc.
data wa_zycbt060 like /pws/zycbe060.
select single *
from /pws/zycbt060
into wa_zycbt060
WHERE nrseq EQ /pws/zycbe001-nrseqc. "#EC ENHOK
select *
from /pws/zyglt321
into table itab_zyglt321
where ktosl eq 'LAP' and
codeven eq v_codeven.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'XBLNR' or 'ZUONR'.
case itab_zyglt321-cpocb.
when 'NRCONTR'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001TOP
...
v_bco_cab type /pws/zycbe134-bcocred,
v_codaux1 type /pws/zygle316-codaux1,
v_codaux2 type /pws/zygle316-codaux2,
v_banco(10) type n,
v_conta(10) type c,
v_volta_part_conta(1) type c,
v_codaux3 type /pws/zygle316-codaux3.
constants: c_debito type c value 'D',
c_credito type c value 'C'.
data: v_mess type c.
* >> Início da exclusão:
data: v_dp(1) type c.
* << Fim da exclusão
* >> Início da inclusão:
data: v_dp1(1) type c.
* << Fim da inclusão
data: v_cont_cambio(06) type c .
data: v_pass(1) type c,
v_erro_2 .
data: vg_tcode(15) type c,
vg_origem type c.
data: v_year like bkpf-gjahr,
v_repid like sy-repid,
v_codmod type c value 'E',
v_exit like /pws/zyglt100-zexit value 'CPT002'.
data: v_capital,
...