CE PLUS - Nota 008486
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação em Andamento
Data/Hora da Publicação: 02/06/2009 00:00:00
Data/Hora Última Alteração: 11/03/2010 11:01:20
Descrição da Nota: LIQUIDAÇÃO EM ANDAMENTO
Sintoma
AJUSTE EM LIQUIDAÇÃO EM ANDAMENTO - BUSCAR PARÂMETROS NA /PWS/ZYGLT321 COM AS CHAVES:
TOTAL -> IDA -> F-30 - TRE - 023
TOTAL -> ESTORNO -> F-30 - FTE - 023
ESTORNO -> F-30 - FTE - 023 (CLEARING) -> TROCAR P/ FTE - 010
PARCIAL -> IDA -> F-30 - FTE - 023 -> TROCAR P/ FTE - 010
IDA -> F-30 - TRE - 023
PARCIAL -> ESTORNO -> F-30 - FTE - 023
ESTORNO -> F-30 - FTE - 023 (CLEARING) -> TROCAR P/ FTE - 010
Solução
AJUSTE EM LIQUIDAÇÃO EM ANDAMENTO - BUSCAR PARÂMETROS NA /PWS/ZYGLT321 COM AS CHAVES:
TOTAL -> IDA -> F-30 - TRE - 023
TOTAL -> ESTORNO -> F-30 - FTE - 023
ESTORNO -> F-30 - FTE - 023 (CLEARING) -> TROCAR P/ FTE - 010
PARCIAL -> IDA -> F-30 - FTE - 023 -> TROCAR P/ FTE - 010
IDA -> F-30 - TRE - 023
PARCIAL -> ESTORNO -> F-30 - FTE - 023
ESTORNO -> F-30 - FTE - 023 (CLEARING) -> TROCAR P/ FTE - 010
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08486 Data: 02/06/2009 Hora: 16:29:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08486
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00100
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
LIQUIDAÇÃO EM ANDAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO EM ANDAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB031F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031F01
...
v_kurrf_bl like /pws/zycet001-kurrf_bl,
v_cpochv like /pws/zycbe033-cpochv,
v_desm like /pws/zycbt089-tx_desm_cli.
data: v_gjahr type gjahr. "#EC NEEDED
perform clear_dados_batch.
clear itab_zyglt321.
refresh itab_zyglt321.
select * from /pws/zyglt321
into table itab_zyglt321
where ktosl = 'FTE'
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
and codeven = '023'.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
and codeven = '010'.
* << Fim da inclusão
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT209'.
concatenate itab_zycbt030-nrinvoic itab_zycbt030-vbeln
itab_zycbt030-gsberf itab_zycbt030-nrparcf
into v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
if itab_zyglt321-cpocb is initial and
...
...
form clearing using p_belnr
p_dtbelnr
p_filtra
p_total.
data: v_cpochv like /pws/zycbe033-cpochv,
v_subrc like sy-subrc,
v_dtliquid like sy-datum,
v_dtemb like sy-datum,
v_kurrf_bl like /pws/zycet001-kurrf_bl,
v_desm like /pws/zycbt089-tx_cl_cli.
* >> Início da inclusão: FORM CLEARING
clear itab_zyglt321.
refresh itab_zyglt321.
select * from /pws/zyglt321
into table itab_zyglt321
where ktosl = 'FTE'
and codeven = '010'.
* << Fim da inclusão
itab_zycbe033-tcode = 'F-30'.
concatenate itab_zycbt030-nrinvoic
itab_zycbt030-nrparcf
itab_zycbt030-gsberf
itab_zycbt030-vbeln
into v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
itab_zycbe033-tabela = '/PWS/ZYCBT209'.
itab_zycbe033-budat = p_dtbelnr.
if /pws/zycbt007-fdtdoc = 'D'.
...