Sintoma

não deixar criar embarque com regime diferente de 14 quando o pedido foi utizado na DA com regime

02.

Solução

fazer uma consistência para não permitir criar embarque com regime diferente de 14 quando o pedido

foi utizado na DA com regime 02.

Informações Complementares

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

Nota Número 02105 Data: 14/09/2006 Hora: 15:28:30

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

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

Nota Número              : 02105

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00129

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

Referência às notas relacionadas:

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

01268  - 00001 - 6.0    - 00023  - DESENVOLVIMENTO ENTREPOSTO ADUANEIRO

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

NÃO DEIXAR CRIAR EMBARQUE COM REGIME DIFERENTE DE 14 QUANDO DA É 02.

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

Palavras Chave:

REGIME - EMBARQUE - DA - ENTREPOSTO ADUANEIRO - REGIME 14

REGIME 02

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

Objetos da nota:

REPS /PWS/MZYCI001F01

REPS /PWS/MZYCI001F03

REPS /PWS/MZYCI001TOP

REPT /PWS/SAPMZYCI001

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

    SELECT * FROM /pws/zycit013 INTO TABLE itab_zycit013

           FOR ALL ENTRIES IN itab_itens WHERE

           ebeln = itab_itens-ebeln AND

           ebelp = itab_itens-ebelp.

  ENDIF.

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

  IF /pws/zycie001-regime NE c_reg_14_emb.

    PERFORM verifica_pedido_em_da.

  ENDIF.

* << Fim da inclusão

  LOOP AT itab_itens.

    CLEAR itab_zycit003.

    READ TABLE itab_zycit003 WITH KEY nrseq = /pws/zycie001-nrseq

                                      ebeln = itab_itens-ebeln

                                      ebelp = itab_itens-ebelp.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001F03

...

  itab_zycit042_d, itab_zycit085_d, itab_zycit100_d, itab_zycit078_d,

  itab_zycit079_d, itab_ekko_d, it_lfa1_d, it_adrc_d, itab_zycit006_p,

  itab_zycit093_p, itab_zycit100, itab_zyglt100, itab_zycit094,

  itab_zycit031.

ENDFORM.

* >> Início da inclusão:

FORM verifica_pedido_em_da.

  CLEAR:   itab_zycit443, itab_zycit442.

  REFRESH: itab_zycit443, itab_zycit442.

  IF NOT itab_itens[] IS INITIAL.

    SELECT *

           INTO  TABLE itab_zycit443

           FROM  /pws/zycit443

           FOR ALL ENTRIES IN itab_itens

           WHERE ebeln EQ itab_itens-ebeln

           AND   ebelp EQ itab_itens-ebelp.

  ENDIF.

  IF NOT itab_zycit443[] IS INITIAL.

    SELECT *

           INTO  TABLE itab_zycit442

           FROM  /pws/zycit442

           FOR ALL ENTRIES IN itab_zycit443

           WHERE nrseqda EQ itab_zycit443-nrseqda.

  ENDIF.

  CHECK NOT itab_zycit442[] IS INITIAL.

  LOOP AT itab_itens.

    CLEAR itab_zycit443.

    READ TABLE itab_zycit443 WITH KEY

                             ebeln = itab_itens-ebeln

                             ebelp = itab_itens-ebelp.

    IF sy-subrc IS INITIAL.

      CLEAR itab_zycit442.

      READ TABLE itab_zycit442 WITH KEY

                               nrseqda = itab_zycit443-nrseqda.

      IF sy-subrc IS INITIAL.

        IF itab_zycit442-codreg EQ c_reg_02_da.

          MESSAGE e015 WITH text-324.

        ENDIF.

      ENDIF.

    ENDIF.

  ENDLOOP.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI001TOP

...

      v_tot_ntgew LIKE /pws/zycit003-ntgew.

DATA: v_nrseqdi LIKE /pws/zycie085-nrseqdi VALUE space,

      v_qtd_iten LIKE itab_zycit003-invoiced          ,

      v_waers LIKE /pws/zycie001-waers.

DATA: v_enqueue TYPE c VALUE ' '.

* >> Início da inclusão:

CONSTANTS:

  c_reg_14_emb      LIKE /pws/zycie001-regime VALUE '14',

  c_reg_02_da       LIKE /pws/zycit442-codreg VALUE '02'.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF SCREEN 0104.

SELECT-OPTIONS : so_iemb FOR /pws/zycie010-nrseq NO INTERVALS.

SELECTION-SCREEN END OF SCREEN 0104.

SELECTION-SCREEN BEGIN OF SCREEN 0300.

PARAMETERS:     pa_bukrs LIKE /pws/zycie001-bukrs DEFAULT

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI001

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 324

Texto: (36 caracteres)

"Pedido está vinculado a DA Regime 02"

Comprimento máximo: 36