Sintoma

Alguns dados no processo de Embarque de Exportação só são preenchidos após o envio para o Câmbio,

como, por exemplo, data de Averbação. Entretanto, o programa não habilita o botão de Salvar dados

após o envio para o Câmbio.

Solução

Habilitar o botão, caso haja alterações no processo.

Informações Complementares

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

Nota Número 00396 Data: 05/12/2005 Hora: 13:00:27

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

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

Nota Número              : 00396

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00093

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

Referência às notas relacionadas:

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

00339  - 00001 - 6.0    - 00021  - AJUSTES NO EMBARQUE DE EXPORTAÇÃO

00395  - 00002 - 6.0    - 00022  - CONDIÇÃO DE PAGAMENTO NO EMBARQUE DE EXPORTAÇÃO

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

SALVAR EMBARQUE ENVIADO PARA O CÂMBIO

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

Palavras Chave:

EXPORTAÇÃO EMBARQUE ENVIO PARA CÂMBIO SALVAR

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

Objetos da nota:

DYNP /PWS/SAPMZYCE003                        0104

REPS /PWS/MZYCE003F01

REPS /PWS/MZYCE003F02

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

Modificações efetuadas em DYNP /PWS/SAPMZYCE003                        0104

Alterar o còdigo de função (OKCODE) do campo /PWS/ZYCEE001-CANAL para 'DUMMY'.

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

Modificações efetuadas em REPS /PWS/MZYCE003F02

...

  ENDIF.

  IF /pws/zycee001-envia_c EQ 'X'.

    APPEND 'ENV_CB'  TO i_botoes.

    APPEND 'REFRESH' TO i_botoes.

    APPEND 'ELIMI'   TO i_botoes.

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

    IF itab_zycet015[] EQ itab_zycet015_ant[].

* << Fim da exclusão

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

    IF itab_zycet015[]       EQ itab_zycet015_ant[]    AND

       /pws/zycee001-dtaverb EQ */pws/zycee001-dtaverb AND

       /pws/zycee001-canal   EQ */pws/zycee001-canal.

* << Fim da inclusão

      APPEND 'SALVA'   TO i_botoes.

    ENDIF.

  ELSE.

    APPEND 'REM_CB' TO i_botoes.

  ENDIF.

...

...

         /pws/zycee001-sta1    EQ '4' ) OR

       ( okcode                EQ 'DESBLOQ' AND

         /pws/zycee001-sta1    EQ '1' ) )   AND

     /pws/zycee001-envia_c EQ 'X'.

  ELSE.

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

    CHECK /pws/zycee001-envia_c IS INITIAL AND

          ( /pws/zycee001-sta1   NE '4' OR

* << Fim da exclusão

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

    CHECK ( /pws/zycee001-sta1   NE '4' OR

* << Fim da inclusão

            ( okcode             EQ 'STA1' AND

              /pws/zycee001-sta1 EQ '4' ) ).

  ENDIF.

  /pws/zycee001-mandt  = sy-mandt.

   */pws/zycee001-mandt = sy-mandt.

...

...

                         WHERE nrseq NE /pws/zycee001-nrseq.

    itab_zycet016-nrseq = /pws/zycee001-nrseq.

    MODIFY itab_zycet016 TRANSPORTING nrseq

                         WHERE nrseq NE /pws/zycee001-nrseq.

    MODIFY /pws/zycet001 FROM /pws/zycee001.

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

    IF /pws/zycee001-envia_c IS INITIAL.

* << Fim da inclusão

    DELETE FROM /pws/zycet002 WHERE nrseq = /pws/zycee001-nrseq.

    IF NOT itab_zycet002[] IS INITIAL.

      MODIFY /pws/zycet002 FROM TABLE itab_zycet002.

      PERFORM verifica_alteracao_bd.

      CHECK sy-subrc EQ 0.

...

...

    ENDIF.

    /pws/zycee014-nrseq  = /pws/zycee001-nrseq.

    /pws/zycee014a-nrseq = /pws/zycee001-nrseq.

    MODIFY /pws/zycet014  FROM /pws/zycee014.

    MODIFY /pws/zycet014a FROM /pws/zycee014a.

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

    ENDIF.

* << Fim da inclusão

    DELETE FROM /pws/zycet015 WHERE nrseq = /pws/zycee001-nrseq.

    IF NOT itab_zycet015[] IS INITIAL.

      MODIFY /pws/zycet015 FROM TABLE itab_zycet015.

      PERFORM verifica_alteracao_bd.

      CHECK sy-subrc EQ 0.

    ENDIF.

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

    IF /pws/zycee001-envia_c IS INITIAL.

* << Fim da inclusão

    DELETE FROM /pws/zycet016 WHERE nrseq = /pws/zycee001-nrseq.

    IF NOT itab_zycet016[] IS INITIAL.

      MODIFY /pws/zycet016 FROM TABLE itab_zycet016.

      PERFORM verifica_alteracao_bd.

      CHECK sy-subrc EQ 0.

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

      ENDIF.

* << Fim da inclusão

    ENDIF.

    COMMIT WORK.

    PERFORM salva_texto USING 'CE01' /pws/zycee001-txtobs.

    PERFORM salva_texto USING 'CE02' /pws/zycee001-txtobs2.

    UPDATE /pws/zycet046 SET zterm = /pws/zycee046-zterm

                       WHERE nrseq = /pws/zycee001-nrseq.

...