CE PLUS - Nota 007847
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 29/12/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:43:38
Descrição da Nota: LIQUIDAÇÃO - ITAB_PARTIDAS PONTOS DE EXIT - DECLARAÇÃO INCLUDE X01
Sintoma
Ao utilizar o ponto de exit LIQ028 ou LIQ030, a itab_partidas esta aparecendo vazia no programa
específico.
Solução
Declarar a itab_partidas no include X01.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07847 Data: 29/12/2008 Hora: 16:01:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07847
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00079
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06010 - 00001 - 7.0 - 00004 - LIQUIDAÇÃO - EXIT LIQ028
07836 - 00002 - 7.0 - 00008 - LIQUIDAÇÃO - PONTO DE EXIT LIQ030 - AJUSTE PONTO DE EXIT LIQ023
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - ITAB_PARTIDAS PONTOS DE EXIT - DECLARAÇÃO INCLUDE X01
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - ITAB_PARTIDAS PONTOS DE EXIT - DECLARAÇÃO INCLUDE X01
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
v_codaux LIKE /pws/zyglt316-codaux1,
v_codaux2 LIKE /pws/zyglt316-codaux2,
v_newbs LIKE /pws/zycbe033-newbs,
v_sinal,
v_belnr_abr LIKE /pws/zycbt006-belnr5,
v_newko LIKE /pws/zycbe033-d_newko,
v_kwert LIKE /pws/zycbt030-kwert.
DATA: BEGIN OF itab_zycbt084 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt084.
DATA: END OF itab_zycbt084.
* >> Início da exclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
DATA: BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: END OF itab_partidas.
* << Fim da exclusão
DATA: wa_partidas LIKE itab_partidas.
DATA: BEGIN OF itab_bsad OCCURS 0,
bukrs LIKE bsad-bukrs,
kunnr LIKE bsad-kunnr,
umskz LIKE bsad-umskz,
gjahr LIKE bsad-gjahr,
belnr LIKE bsad-belnr,
bschl LIKE bsad-bschl,
gsber LIKE bsad-gsber,
wrbtr LIKE bsad-wrbtr,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
ENDLOOP.
sy-subrc = v_subrc.
ENDFORM.
FORM baixa_ace_performance
CHANGING v_subrc.
DATA: v_nrdias TYPE i,
v_prazo,
v_belnr_cap LIKE /pws/zycbt006-belnr,
v_codaux LIKE /pws/zyglt316-codaux1,
v_tpcontr LIKE /pws/zycbt001-tpcontr.
* >> Início da exclusão: FORM BAIXA_ACE_PERFORMANCE
DATA: BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: END OF itab_partidas.
* << Fim da exclusão
PERFORM clear_date_batch.
CLEAR: itab_partidas.
REFRESH: itab_partidas.
CONCATENATE '003' /pws/zycbe005-tpcontr INTO v_codeven.
CLEAR: v_data,
v_codeven.
CONCATENATE '003' itab_zycbt006-tpcontr INTO v_codeven.
CLEAR itab_zyglt321.
REFRESH itab_zyglt321.
SELECT * FROM /pws/zyglt321
...
...
v_agkon = itab_zycbe033-agkon.
PERFORM unlock_razao USING v_agkon
itab_zycbe033-bukrs.
ENDIF.
sy-subrc = v_subrc.
ENDFORM.
FORM baixa_cliente_performance
CHANGING v_subrc.
DATA: v_belnr_cap LIKE /pws/zycbt006-belnr,
v_tpcontr LIKE /pws/zycbt001-tpcontr.
* >> Início da exclusão: FORM BAIXA_CLIENTE_PERFORMANCE
DATA: BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: END OF itab_partidas.
* << Fim da exclusão
PERFORM clear_date_batch.
CLEAR: itab_partidas.
REFRESH: itab_partidas.
CONCATENATE '003' /pws/zycbe005-tpcontr INTO v_codeven.
CLEAR: v_data,
v_codeven.
CONCATENATE '003' itab_zycbt006-tpcontr INTO v_codeven.
CLEAR itab_zyglt321.
REFRESH itab_zyglt321.
SELECT * FROM /pws/zyglt321
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004X01
...
DATA: BEGIN OF itab_zyglt321 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt321.
DATA: END OF itab_zyglt321.
DATA: v_retorno TYPE sy-subrc,
v_modo_bi(1) TYPE c,
v_dp(1) TYPE c.
DATA: itab_zycbt032
TYPE STANDARD TABLE OF /pws/zycbt032 WITH HEADER LINE,
itab_zycbt034
TYPE STANDARD TABLE OF /pws/zycbt034 WITH HEADER LINE.
* >> Início da exclusão:
DATA BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA END OF itab_partidas.
* << Fim da exclusão
DATA BEGIN OF itab_doctos OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt036.
DATA END OF itab_doctos.
DATA itab_zycbt036 TYPE STANDARD TABLE OF /pws/zycbt036
WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt005_aux2 OCCURS 0,
nrinvoic LIKE /pws/zycbt005-nrinvoic,
nrparcf LIKE /pws/zycbt005-nrparcf,
gsberf LIKE /pws/zycbt005-gsberf,
dtvincul LIKE /pws/zycbt005-dtvincul,
...
...
deduz_juros LIKE /pws/zycbt006-deduz_juros,
dtpagext LIKE /pws/zycbt006-dtpagext,
belnr_d TYPE belnr_d,
vljur_acc LIKE /pws/zycbt006-vljur_acc,
vljur_ace LIKE /pws/zycbt006-vljur_ace,
END OF itab_zycbt005_t.
DATA: BEGIN OF itab_erro OCCURS 0,
vbeln LIKE /pws/zycbt030-vbeln,
msg LIKE /pws/zycbt032-msg,
END OF itab_erro.
* >> Início da inclusão:
DATA: BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: END OF itab_partidas.
* << Fim da inclusão
DATA: END OF COMMON PART.