Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Registro de Exportação (RE)
Data/Hora da Publicação: 06/09/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 11:02:48
Descrição da Nota: PREENCHIMENTO DE ENQUADRAMENTO PARA EMBARQUES POR PEDIDO DE COMPRA
Sintoma
O enquadramento não é carregado no RE de embarques por pedido de compra.
Solução
O programa de cálculo de RE busca o enquadramento pelo tipo de embarque (por pedido de compra).
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04656 Data: 06/09/2007 Hora: 17:23:39
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04656
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00002
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
PREENCHIMENTO DE ENQUADRAMENTO PARA EMBARQUES POR PEDIDO DE COMPRA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ENQUADRAMENTO EMBARQUE PEDIDO DE COMPRA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE041F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE041F01
...
READ TABLE itab_centro INDEX 1.
IF sy-subrc EQ 0.
MOVE: itab_centro-werks TO itab_zycet116-werks,
itab_centro-j_1bbranch TO itab_zycet116-j_1bbranch.
ENDIF.
ENDIF.
ENDFORM.
FORM sel_enquad.
CLEAR: itab_zycet001,itab_zycet020.
READ TABLE itab_zycet001 INDEX 1.
* >> Início da inclusão: FORM SEL_ENQUAD
IF itab_zycet001-tipo_emb NE 'D'.
* << Fim da inclusão
READ TABLE itab_zycet020 WITH KEY auart = itab_zycet002-auart
bukrs = itab_zycet002-bukrs.
* >> Início da inclusão: FORM SEL_ENQUAD
ENDIF.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM SEL_ENQUAD
IF itab_zycet001-tipo_emb NE 'D'.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycet269 INTO wa_zycet269
WHERE tipoemb EQ itab_zycet001-tipo_emb
AND tipodoc EQ itab_zycet020-tipodoc.
* >> Início da inclusão: FORM SEL_ENQUAD
ELSE.
SELECT SINGLE * FROM /pws/zycet269 INTO wa_zycet269
WHERE tipoemb = itab_zycet001-tipo_emb.
ENDIF.
* << Fim da inclusão
IF sy-subrc EQ 0.
PERFORM determina_enquad.
IF itab_zycet116-codenq1 IS INITIAL.
READ TABLE itab_zycet285 INDEX 1.
CHECK sy-subrc IS INITIAL.
itab_zycet116-codenq1 = wa_zycet269-codsgp.
ELSEIF itab_zycet116-codenq2 IS INITIAL.
READ TABLE itab_zycet285 INDEX 1.
CHECK sy-subrc IS INITIAL.
itab_zycet116-codenq2 = wa_zycet269-codsgp.
...