CE PLUS - Nota 004656

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).

Versões Tratadas

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.

...