CE PLUS - Nota 000323

Módulo: DOC. EXPORTAÇÃO

Funcionalidade: Embarque

Data/Hora da Publicação: 22/11/2005 00:00:00

Data/Hora Última Alteração: 21/02/2011 13:56:05

Descrição da Nota: NÃO ESTÁ GRAVANDO A DATA DE ENVIA PARA O CÂMBIO.

Sintoma

Quando enviamos o embarque para o Câmbio, não está levando a informação para o campo:

/PWS/ZYCET001-DTENVCAM.

 

 

Solução

Ajustes efetuados para que a data seja inserida na tabela.

 

Versões Tratadas

6.0


Pré-Requisitos

Produto:

Nota

Descrição

DOCUMENTOS CONTÁBEIS NO HISTÓRICO DE EXPORTAÇÃO APÓS ENVIO PARA O CÂMBIO

CRIAÇÃO DE EMBARQUE POR ORDEM DE VENDA PARCIAL

Informações Complementares

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

Nota Número 00323 Data: 22/11/2005 Hora: 14:33:25

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

 

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

Nota Número              : 00323

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00089

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

 

00010  - 00001 - 6.0    - 00021  - CRIAÇÃO DE EMBARQUE POR ORDEM DE VENDA PARCIAL

00039  - 00002 - 6.0    - 00021  - DOCUMENTOS CONTÁBEIS NO HISTÓRICO DE EXPORTAÇÃO APÓS ENVIO PARA O

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

NÃO ESTÁ GRAVANDO A DATA DE ENVIA PARA O CÂMBIO.

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

Palavras Chave:

EXPORTAÇÃO - EMBARQUE - ENVIO PARA O CAMBIO

 

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

Objetos da nota:

REPS /PWS/MZYCE003F01

 

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

Modificações efetuadas em REPS /PWS/MZYCE003F01

 

...

        ENDIF.

        IF NOT itab_zycbt030[] IS INITIAL.

          MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.

        ENDIF.

        /pws/zycee001-envia_c = 'X'.

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

        UPDATE /pws/zycet001 SET envia_c = 'X'

                           WHERE nrseq = /pws/zycee001-nrseq.

* << Fim da exclusão

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

        UPDATE /pws/zycet001 SET envia_c   = 'X'

                                 dtenvcamb = sy-datum

                           WHERE nrseq     = /pws/zycee001-nrseq.

* << Fim da inclusão

        COMMIT WORK.

      ELSE.

        IF v_status_agrup NE 3.

        ENDIF.

      ENDIF.

...

 

...

      ENDIF.

      IF NOT itab_zycbt030[] IS INITIAL.

        MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.

      ENDIF.

      /pws/zycee001-envia_c = 'X'.

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

      UPDATE /pws/zycet001 SET envia_c = 'X'

                         WHERE nrseq = /pws/zycee001-nrseq.

* << Fim da exclusão

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

      UPDATE /pws/zycet001 SET envia_c   = 'X'

                               dtenvcamb = sy-datum

                         WHERE nrseq     = /pws/zycee001-nrseq.

* << Fim da inclusão

      COMMIT WORK.

    ENDIF.

  ELSE.

    PERFORM gera_tabela_zycbt017 USING space.

    PERFORM exclui_dados_cambio.

    IF NOT itab_zycbt017[] IS INITIAL.

      MODIFY /pws/zycbt017 FROM TABLE itab_zycbt017.

    ENDIF.

    /pws/zycee001-envia_c = 'X'.

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

    UPDATE /pws/zycet001 SET envia_c = 'X'

                       WHERE nrseq = /pws/zycee001-nrseq.

* << Fim da exclusão

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

    UPDATE /pws/zycet001 SET envia_c   = 'X'

                             dtenvcamb = sy-datum

                       WHERE nrseq     = /pws/zycee001-nrseq.

* << Fim da inclusão

    COMMIT WORK.

  ENDIF.

  IF /pws/zycee001-envia_c IS INITIAL.

    MESSAGE w246 WITH /pws/zycee001-nrseq.

  ELSE.

...

 

...

    MODIFY itab_zycet002_ant TRANSPORTING emb_liq

                             WHERE emb_liq NE space.

    UPDATE /pws/zycet002 SET emb_liq = space

                         WHERE nrseq = /pws/zycee001-nrseq.

    /pws/zycee001-envia_c = space.

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

    UPDATE /pws/zycet001 SET envia_c = space

                         WHERE nrseq = /pws/zycee001-nrseq.

* << Fim da exclusão

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

    CLEAR /pws/zycee001-dtenvcamb.

    UPDATE /pws/zycet001 SET envia_c   = space

                             dtenvcamb = /pws/zycee001-dtenvcamb

                         WHERE nrseq   = /pws/zycee001-nrseq.

* << Fim da inclusão

    COMMIT WORK.

     */pws/zycee001-envia_c = 'X'.

    PERFORM gera_doc_modificacao USING 'X'.

     */pws/zycee001-envia_c = space.

    PERFORM executa_exit USING 'EMB005'.

...