Sintoma

Na criação do embarque ao alterar a empresa o programa não gera um sequencial de acordo como

parametrizado na /PWS/ZYGL001 caso tenha sido gerado um sequencial antes da alteração.

Solução

Ajustar o programa para que ao alterar a empresa seja gerado um novo numero sequencial e ao salvar o

embarque o campo empresa e filizal seja fechado para edição.

Informações Complementares

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

Nota Número 03274 Data: 20/03/2007 Hora: 10:05:00

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

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

Nota Número              : 03274

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00027

Agrupamento              : 00158

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ALTERAR SEQUENCIAL DO EMBARQUE QUANDO EMPRESA FOR ALTERADA.

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

Palavras Chave:

EMBARQUE - SEQUENCIAL - EMPRESA - /PWS/SAPMZYCI001

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

Objetos da nota:

DYNP /PWS/SAPMZYCI001                        0100

REPS /PWS/MZYCI001F03

REPS /PWS/MZYCI001I01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI001                        0100

...

  PROCESS AFTER INPUT.

    FIELD: /pws/zycie001-bukrs MODULE authority_empresa.

* >> Início da inclusão:

  CHAIN.

    FIELD: /pws/zycie001-bukrs MODULE alter_empresa

      ON CHAIN-REQUEST.

  ENDCHAIN.

* << Fim da inclusão

    FIELD: /pws/zycie001-j_1bbranch MODULE trata_filial.

-    CALL SUBSCREEN:

       ss_cab,

...

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

Modificações efetuadas em REPS /PWS/MZYCI001F03

...

          screen-invisible = '0'.

        ENDIF.

      ENDIF.

      MODIFY SCREEN.

      MODIFY SCREEN.

    ELSEIF v_status_s = 1.

      IF screen-group1 NE 'OUT'.

        screen-input = '1'.

      ELSEIF screen-group1 EQ 'OUT'

         AND screen-group2 NE 'OUT'

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

         AND v_linha EQ 0.

* << Fim da exclusão

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

         AND v_linha EQ 0

        and v_salvo NE 'X'.

* << Fim da inclusão

        screen-input = '1'.

      ELSE.

        screen-input = '0'.

      ENDIF.

      MODIFY SCREEN.

      IF screen-name EQ '/PWS/ZYCIE001-MODALIDADE'.

        IF v_modemb = 'X'.

          screen-input = 0.

          MODIFY SCREEN.

        ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001I01

...

           itab_da-werks.

    CLEAR v_dif.

    CLEAR   : itab_da_aux, itab_da_aux2.

    REFRESH : itab_da_aux, itab_da_aux2.

  ENDIF.

ENDMODULE.

MODULE consiste_sld_da INPUT.

  PERFORM consiste_sld_da.

  PERFORM consiste_peso_da.

ENDMODULE.

* >> Início da inclusão:

MODULE alter_empresa INPUT.

  IF sy-tcode EQ '/PWS/ZYCI001_C' AND v_salvo NE 'X'.

    CLEAR: /pws/zycie001-nrseq.

  ENDIF.

ENDMODULE.

* << Fim da inclusão