CE PLUS - Nota 001680
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Agrupamento de Embarque
Data/Hora da Publicação: 05/07/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 17:19:38
Descrição da Nota: BUSCA DE CONDIÇÃO DE PAGAMENTO PARA AGRUPAMENTO DE EMBARQUE
Sintoma
Para processo de exportação com Ordem Estornada, ao se emitir outro faturamento com outra condição
de pagamento, o embarque não era atualizado.
Solução
Alterar busca de condição de pagamento ao se agrupar um embarque.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01680 Data: 05/07/2006 Hora: 16:21:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01680
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
BUSCA DE CONDIÇÃO DE PAGAMENTO PARA AGRUPAMENTO DE EMBARQUE
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBARQUE; AGRUPAMENTO; PAGAMENTO; CONDIÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCER089
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER089
...
DATA: v_mode(1) TYPE c,
v_result(1) TYPE c,
v_vlme_a LIKE /pws/zycet062-vlme_a,
v_dev_tot,
v_ok(1) TYPE c,
* >> Início da exclusão: REPORT /PWS/ZYCER089
nrseq LIKE /pws/zycee085-nrseq.
* << Fim da exclusão
* >> Início da inclusão: REPORT /PWS/ZYCER089
nrseq LIKE /pws/zycee085-nrseq,
v_zterm TYPE /pws/zycet046-zterm.
* << Fim da inclusão
DATA BEGIN OF wa_zycet001.
INCLUDE STRUCTURE /pws/zycet001.
DATA END OF wa_zycet001.
DATA: BEGIN OF itab_zycet002_temp OCCURS 100,
vbeln_vf(20),
...
itab_zycbt030-gsberf = itab_zycbt030_aux-gsberf.
COLLECT itab_zycbt030.
ENDLOOP.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SELECIONA_DADOS
SELECT SINGLE zterm
INTO v_zterm
FROM /pws/zycet046
WHERE nrseq = wa_zycet001-nrseq.
* << Fim da inclusão
ENDFORM.
...
IF /pws/zycet037-alt_cond = '1'.
APPEND itab_zycbt033.
ELSE.
SELECT * FROM t052s
INTO TABLE itab_t052s
* >> Início da exclusão: FORM FILL_DATE_F30
WHERE zterm = itab_zycet002-zterm.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30
WHERE zterm = v_zterm.
* << Fim da inclusão
IF sy-subrc EQ 0.
LOOP AT itab_t052s.
itab_zycbt033-zterm = itab_t052s-ratzt.
itab_zycbt033-mwskz = 'X'.
APPEND itab_zycbt033.
ENDLOOP.
ELSE.
* >> Início da exclusão: FORM FILL_DATE_F30
itab_zycbt033-zterm = itab_zycet002-zterm.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30
itab_zycbt033-zterm = v_zterm.
* << Fim da inclusão
APPEND itab_zycbt033.
ENDIF.
ENDIF.
CLEAR itab_saida.
REFRESH itab_saida.
...
END OF it_dados.
LOOP AT itab_bkpf.
MOVE: itab_bkpf-belnr TO it_dados-belnr,
itab_zycet002-bukrs TO it_dados-bukrs,
itab_bkpf-gjahr TO it_dados-gjahr,
* >> Início da exclusão: FORM EXECUTA_F_02
itab_zycet002-zterm TO it_dados-zterm,
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F_02
v_zterm TO it_dados-zterm,
* << Fim da inclusão
wa_zycet001-dtemb TO it_dados-dtemb.
APPEND it_dados.
ENDLOOP.
IMPORT v_mode FROM MEMORY ID '035'.
v_modo = v_mode.
...