CE PLUS - Nota 008442
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação em Andamento
Data/Hora da Publicação: 26/05/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:06:50
Descrição da Nota: LIQ.EM ANDAMENTO - TANTO NA IDA QUANTO NO ESTORNO, NA CONTABILIZAÇÃO
Sintoma
Liquidação em andamento - Tanto na ida quanto no estorno, na contabilização o campo texto(SGTXT)
está sempre o mesmo.
Solução
Alterar o programa para pegar do parâmetro 321, onde não será preenchido ao fazer o estorno o campo
texto.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08442 Data: 26/05/2009 Hora: 11:04:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08442
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00099
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01336 - 00004 - 6.0 - 00023 - LIQUIDAÇÃO EM ANDAMENTO CAMPO ZUONR 321
03695 - 00003 - 7.0 - 00001 - LIQUIDAÇÃO EM ANDAMENTO - EXIT¿S LIQ003 LIQ005 LIQ006.
06012 - 00002 - 7.0 - 00004 - CODE INSPECTOR, VERIFICAÇÃO AMPLIADA, PROGRAMAS CAMBIO
07635 - 00001 - 7.0 - 00007 - LIQUIDAÇÃO EM ANDAMENTO - NÃO APARECE O CAMPO CHAVE DE REFERENCIA
----------------------------------------------------------------------------------------------------
LIQ.EM ANDAMENTO - TANTO NA IDA QUANTO NO ESTORNO, NA CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQ.EM ANDAMENTO - TANTO NA IDA QUANTO NO ESTORNO, NA CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB031F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031F01
...
READ TABLE itab_contas INDEX 1.
itab_zycbe033-d_newko = itab_contas-konts.
itab_zycbt209-hkont = itab_contas-konts.
ENDIF.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'NEWKO'
text-042.
itab_zycbe033-agkon = itab_zycbt030-kunag.
itab_zycbe033-agkoa = 'D'.
* >> Início da exclusão: FORM PROC_INCLUSAO
itab_zycbe033-augtx = /pws/zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = /pws/zycbt011-txtdesc.
* << Fim da exclusão
itab_zycbe033-werks = itab_zycbt209-werks.
LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt209-nrinvoic AND
gsberf = itab_zycbt209-gsberf AND
nrparcf = itab_zycbt209-nrparcf.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT209'.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-belnr = itab_zycbt030-belnr_d.
IF itab_zycbt030-belnr_d EQ itab_zycbt030-belnr OR
itab_zycbt030-belnr_d EQ itab_zycbt030-belnr6.
...
...
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
...
...
AND gjahr = v_ano.
PERFORM verify_null_field USING itab_zycbt030-kunag
'KUNNR'
text-045.
itab_zycbe033-d_newko = itab_zycbt030-kunag.
IF itab_zycbt030-flag <> 'X'.
itab_zycbe033-newbs = '01'.
ELSE.
itab_zycbe033-newbs = '12'.
ENDIF.
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
itab_zycbe033-augtx = /pws/zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = /pws/zycbt011-txtdesc.
* << Fim da exclusão
itab_zycbe033-c_sgtxt = itab_zycbt030-nrinvoic.
PERFORM valida_campo_filial
USING
itab_zycbt209-bukrs
itab_zycbt209-werks
CHANGING itab_zycbe033-brnch.
CONCATENATE 'Des.' itab_zycbt030-nrinvoic itab_zycbt030-nrparcf
INTO itab_zycbe033-d_zuonr
SEPARATED BY space.
itab_zycbt036-tcode = itab_zycbe033-tcode.
...
...
zeile = v_zeile.
v_zeile = v_zeile + 1.
ENDIF.
itab_zycbe033-wrbtr = itab_zycbt209-vlme.
itab_zycbe033-d_newko = itab_zycbt030-kunag.
IF itab_zycbt030-flag <> 'X'.
itab_zycbe033-newbs = '01'.
ELSE.
itab_zycbe033-newbs = '12'.
ENDIF.
* >> Início da exclusão: FORM ESTORNA_AGRUPAMENTO
itab_zycbe033-augtx = /pws/zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = /pws/zycbt011-txtdesc.
* << Fim da exclusão
itab_zycbe033-c_sgtxt = itab_zycbt030-nrinvoic.
itab_zycbe033-zumsk = itab_zycbt209-umskz.
itab_zycbe033-agkon = itab_zycbt209-hkont.
itab_zycbe033-agkoa = itab_zycbt209-koart.
itab_zycbe033-werks = itab_zycbt209-werks.
CLEAR itab_zycbe033-c_zuonr.
PERFORM valida_campo_filial
USING
itab_zycbt209-bukrs
itab_zycbt209-werks
...
...
itab_zycbt030-kwert /
itab_zycbt030-s_kwert.
APPEND itab_doctos.
ENDIF.
IF v_line GE 1.
READ TABLE itab_doctos INDEX v_line.
itab_doctos-newbs = v_newbs.
MODIFY itab_doctos INDEX v_line TRANSPORTING newbs.
ENDIF.
ENDLOOP.
* >> Início da exclusão: FORM ESTORNA_SEM_AGRUPAMENTO
itab_zycbe033-augtx = /pws/zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = /pws/zycbt011-txtdesc.
* << Fim da exclusão
itab_zycbe033-c_sgtxt = itab_zycbt030-nrinvoic.
itab_zycbe033-zumsk = itab_zycbt209-umskz.
itab_zycbe033-agkon = itab_zycbt209-hkont.
itab_zycbe033-agkoa = itab_zycbt209-koart.
CLEAR itab_zycbe033-c_zuonr.
PERFORM executa_exit USING 'LIQ008'.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ009'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
...
...
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'.
...
...
msgv4 = text-066
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
ENDIF.
itab_zycbe033-d_newko = itab_zycbt030-kunag.
itab_zycbe033-agkoa = 'D'.
itab_zycbe033-newbs = '01'.
itab_zycbe033-belnr = itab_zycbt030-belnr6.
itab_zycbe033-dtdocto = itab_zycbt030-budat.
* >> Início da exclusão: FORM CLEARING
itab_zycbe033-d_sgtxt = /pws/zycbt011-txtdesc.
* << Fim da exclusão
itab_zycbe033-c_sgtxt = itab_zycbt030-nrinvoic.
PERFORM verifica_prorrogacao_est.
APPEND itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT209'.
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'.
...