Visualização da Nota 6103

CE PLUS - Nota 006103

Módulo: CÂMBIO EXPORTAÇÃO

Funcionalidade: Valores Mantidos no Exterior

Data/Hora da Publicação: 04/03/2008 00:00:00

Data/Hora Última Alteração: 11/03/2010 09:34:10

Descrição da Nota: ASSOCIAÇÃO DE ORDENS DE PAGAMENTO

Sintoma

Na criação da associação o sistema está considerando o evento 030 da T321 enquanto o correto seria

considerar o evento 031 e no estorno da associação e o sistema finaliza o estorno após executar a

Fbra e fb08, enquanto o correto seria realizar mais dois lançamentos, um de desmembramento do

cliente (fatura) e outro desmemb da ordem de pagamento.

Solução

Alterada includes /PWS/MZYCB035F03 e /PWS/MZYCB035TOP para considerar o código do evento certo para

associação e levar os campos corretamente para o estorno do batch input.

Versões Tratadas

7.0

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 06103 Data: 04/03/2008 Hora: 16:16:34

----------------------------------------------------------------------------------------------------

Nota Número : 06103

Categoria : Erro de Programa

Prioridade : Média

Versão PW.CE : 7.0

Pacote : 00004

Agrupamento : 00037

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

ASSOCIAÇÃO DE ORDENS DE PAGAMENTO

----------------------------------------------------------------------------------------------------

Palavras Chave:

ASSOCIAÇÃO DE ORDENS DE PAGAMENTO

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCB035F03

REPS /PWS/MZYCB035TOP

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB035F03

...

value(p_wa_zycbt209) LIKE LINE OF itab_zycbt209.

CONSTANTS:

c_f30 TYPE /pws/zycbt032-tcode VALUE 'F-30',

c_zycbt228 TYPE /pws/zycbt032-tabela VALUE 'ZYCBT228'.

DATA:

wa_zycbe033 LIKE LINE OF itab_zycbe033,

v_nrinvoic TYPE /pws/zycet001-nrseq.

FIELD-SYMBOLS:

<fs_zycbt007> LIKE LINE OF itab_zycbt007,

<fs_zycbt011> LIKE LINE OF itab_zycbt011,

* >> Início da inclusão: FORM PREENCHE_ZYCBE033_COMPENSACAO

<fs_zycbt226> LIKE LINE OF itab_zycbt226,

<fs_werks> TYPE werks_d,

* << Fim da inclusão

<fs_bukrs> TYPE bukrs,

<fs_kunnr> TYPE kunnr,

<fs_waers> TYPE waers.

CHECK NOT p_nrseq IS INITIAL.

IF wa_controle-processo = c_flag_embarque.

ASSIGN: /pws/zycbe227a-bukrs TO <fs_bukrs>,

/pws/zycbe227a-waers TO <fs_waers>,

/pws/zycbe227a-kunag TO <fs_kunnr>.

CONCATENATE /pws/zycbe227a-nrinvoic /pws/zycbe227a-nrparcf

/pws/zycbe227a-gsberf 'A' INTO wa_zycbe033-d_zuonr.

...

USING

<fs_bukrs>

p_codmod

p_ktosl

p_codeven

p_wa_zycbt209

p_nrseq

'X'

CHANGING

wa_zycbe033.

* >> Início da inclusão: FORM PREENCHE_ZYCBE033_COMPENSACAO

CASE p_codeven.

WHEN c_codeven_liq_and.

ASSIGN wa_zycbt017-werks TO <fs_werks>.

v_nrinvoic = p_wa_zycbt209-nrinvoic(10).

wa_zycbe033-augtx = <fs_zycbt011>-txtdesc.

wa_zycbe033-d_sgtxt = <fs_zycbt011>-txtdesc.

wa_zycbe033-c_gsber = p_wa_zycbt209-gsberf.

wa_zycbe033-d_gsber = p_wa_zycbt209-gsberf.

wa_zycbe033-werks = wa_zycbt017-werks.

wa_zycbe033-d_newko = p_wa_zycbt209-hkont.

wa_zycbe033-agkoa = p_wa_zycbt209-koart.

wa_zycbe033-umskz = p_wa_zycbt209-umskz.

wa_zycbe033-agkon = wa_zycbt017-kunag.

IF wa_zycbe033-agkoa = 'D'.

IF wa_zycbe033-umskz IS INITIAL.

wa_zycbe033-newbs = '01'.

ELSE.

wa_zycbe033-newbs = '09'.

ENDIF.

ELSE.

wa_zycbe033-newbs = '40'.

ENDIF.

WHEN c_codeven_cliente.

ASSIGN wa_zycbt017-werks TO <fs_werks>.

v_nrinvoic = wa_zycbt017-nrinvoic(10).

wa_zycbe033-gsber = wa_zycbt017-gsberf.

wa_zycbe033-c_gsber = wa_zycbt017-gsberf.

wa_zycbe033-d_gsber = wa_zycbt017-gsberf.

wa_zycbe033-werks = wa_zycbt017-werks.

wa_zycbe033-d_newko = wa_zycbt017-kunag.

wa_zycbe033-newbs = '01'.

WHEN c_codeven_remessa.

ASSIGN wa_zycbt124-werks TO <fs_werks>.

wa_zycbe033-gsber = wa_zycbt124-gsber.

wa_zycbe033-c_gsber = wa_zycbt124-gsber.

wa_zycbe033-d_gsber = wa_zycbt124-gsber.

wa_zycbe033-werks = wa_zycbt124-werks.

wa_zycbe033-d_newko = wa_zycbt124-recrem.

wa_zycbe033-newbs = '01'.

WHEN c_codeven_ordem.

READ TABLE itab_zycbt226

WITH TABLE KEY nrseq = p_nrseq

ASSIGNING <fs_zycbt226>.

IF <fs_zycbt226> IS ASSIGNED.

ASSIGN <fs_zycbt226>-werks TO <fs_werks>.

wa_zycbe033-gsber = <fs_zycbt226>-gsberf.

wa_zycbe033-c_gsber = <fs_zycbt226>-gsberf.

wa_zycbe033-d_gsber = <fs_zycbt226>-gsberf.

wa_zycbe033-werks = <fs_zycbt226>-werks.

wa_zycbe033-d_newko = <fs_zycbt226>-kunag.

wa_zycbe033-umskz = <fs_zycbt011>-agums.

wa_zycbe033-newbs = '19'.

ENDIF.

ENDCASE.

* << Fim da inclusão

PERFORM define_taxa_cambio

USING

p_codeven

<fs_bukrs>

wa_zycbe033-budat

v_nrinvoic

p_nrseq

CHANGING

wa_zycbe033-kursf.

APPEND wa_zycbe033 TO itab_zycbe033.

...

wa_mensagem-bukrs = /pws/zycbe229a-bukrs.

wa_mensagem-nrseq = p_wa_zycbt228a-nrseq.

wa_mensagem-nrseq_remessa = /pws/zycbe229a-nrseq.

ENDIF.

PERFORM limpa_dados_bi.

PERFORM preenche_zycbe033_compensacao

USING

space

<fs_codmod>

<fs_ktosl>

* >> Início da exclusão: FORM EFETUA_COMP_ASSOCIACAO

<fs_codeven>

* << Fim da exclusão

* >> Início da inclusão: FORM EFETUA_COMP_ASSOCIACAO

c_codeven_associa

* << Fim da inclusão

v_cpochv

<fs_bldat>

<fs_budat>

p_wa_zycbt228a-nrseq

wa_zycbt209.

PERFORM preenche_partidas

USING

<fs_codmod>

<fs_codeven>

v_cpochv

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB035TOP

...

c_eliminado(1) TYPE c VALUE 'D',

c_novo(1) TYPE c VALUE 'N',

c_grupo_mensagem TYPE smesg-arbgb VALUE '/PWS/ZYCBM',

c_ktosl_liq_and TYPE /pws/zyglt321-ktosl VALUE 'TRE',

c_ktosl_cliente TYPE /pws/zyglt321-ktosl VALUE 'FTE',

c_ktosl_ordem TYPE /pws/zyglt321-ktosl VALUE 'TRE',

c_ktosl_associa TYPE /pws/zyglt321-ktosl VALUE 'TRE',

c_ktosl_remessa TYPE /pws/zyglt321-ktosl VALUE 'RCF',

c_codeven_liq_and TYPE /pws/zyglt321-codeven VALUE '023',

c_codeven_cliente TYPE /pws/zyglt321-codeven VALUE '010',

* >> Início da exclusão:

c_codeven_ordem TYPE /pws/zyglt321-codeven VALUE '030',

* << Fim da exclusão

* >> Início da inclusão:

c_codeven_ordem TYPE /pws/zyglt321-codeven VALUE '031',

* << Fim da inclusão

c_codeven_associa TYPE /pws/zyglt321-codeven VALUE '031',

c_codeven_associa_rem TYPE /pws/zyglt321-codeven VALUE '022',

c_codeven_remessa TYPE /pws/zyglt321-codeven VALUE '003R',

c_tp_comp_assoc TYPE /pws/zycbt228-tp_docto VALUE 'A',

c_tp_desm_cliente TYPE /pws/zycbt228-tp_docto VALUE 'C',

c_tp_desm_liq_and TYPE /pws/zycbt228-tp_docto VALUE 'L',

c_tp_desm_ordem TYPE /pws/zycbt228-tp_docto VALUE 'O',

c_modo_bloqueio TYPE enqmode VALUE 'E',

c_id_remessa(13) TYPE c VALUE '/PWS/ZYCBP377'.

TYPES:

...