Sintoma

Na criação de DSI pelo Menu de desembaraço, ao informar o sequencial do B/L, o sistema mostra a tela

do B/L. Quando clicamos no ícone da DSI, conseguimos criar a DSI e salva com um sequencial. Clicamos

em voltar (seta verde) e aparece uma mensagem que o B/L está sendo usado em outro embarque. Ao dar

enter, volta na tela da DI para criar novamente. Conseguimos salvar com outro sequencial. Ou seja,

duas DSIs para o mesmo embarque.

Ainda na criação de DSI pelo Menu de desembaraço, está sendo possível gerar uma DI vinculando-se

pelo

numero de BL de um processo de embarque de DI.

Solução

Atualizado programa para verificar se embarque está marcado tipo de declaração = DI ou = DSI e não

ir para a funcionalidade do BL ao dar um enter e informando o número de BL.

Informações Complementares

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

Nota Número 10997 Data: 28/02/2011 Hora: 14:30:50

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

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

Nota Número              : 10997

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00006

Agrupamento              : 00061

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

Referência às notas relacionadas:

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

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

ERRO NA CRIAÇÃO DA DSI PELO MENU DO DESEMBARAÇO.

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

Palavras Chave:

ERRO - DSI - MENU POR FORA

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

Objetos da nota:

RELE F6DK978378 20110228 115425 PWSCI

REPS /PWS/MZYCI058F01

REPS /PWS/MZYCI058F02

REPS /PWS/MZYCI058F04

REPS /PWS/MZYCI058O01

REPS /PWS/MZYCI058X01

REPT /PWS/SAPMZYCI058

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

Modificações efetuadas em REPS /PWS/MZYCI058F01

...

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

  READ TABLE it_verbl INDEX 1.

  SELECT single tpdecl FROM /pws/zycit001

  into /pws/zycie001-tpdecl

  WHERE nrseq EQ it_verbl-nrseq.

  IF /pws/zycie001-tpdecl NE 'DSI'.

     message i015 with text-242.

     clear /pws/zycie085-nrbl.

     clear it_verbl.

     refresh it_verbl.

  ENDIF.

* << Fim da inclusão

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058F02

...

FORM load_bl.

  IF /pws/zycie085-nrbl IS INITIAL.

    CLEAR:   itab_it, itab_ita, wa_it,    wa_ad, /pws/zycie100a,

             t_blid,  v_tmle,   v_tntgew.

    REFRESH: itab_it, itab_ita.

  ELSE.

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

    IF v_difora EQ 'X'.

      PERFORM verifica_bl CHANGING v_bl.

      IF v_bl = '1'.

        MESSAGE i015 WITH text-237.

        CLEAR /pws/zycie085-nrbl.

        EXIT.

      ENDIF.

    ENDIF.

    CLEAR v_bl.

* << Fim da inclusão

    PERFORM: verify_bl CHANGING v_bl.

    IF v_bl = '1'.

...

...

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

      clear sy-ucomm.

* << Fim da inclusão

    ELSE.

      MESSAGE i015 WITH text-017 text-018.

    ENDIF.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058F04

...

* >> Início da inclusão:

FORM verifica_bl CHANGING p_bl1.

  CLEAR p_bl1.

  SELECT SINGLE * FROM /pws/zycit085

    WHERE nrbl EQ /pws/zycie085-nrbl.                   "#EC CI_NOFIELD

  IF sy-subrc EQ 0.

    p_bl1 = '1'.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI058O01

...

    IMPORT wa_zycie085 FROM MEMORY ID rimc4.

    IF sy-subrc EQ 0.

      MOVE wa_zycie085 TO /pws/zycie085.

      CLEAR: /pws/zycie085-dtuserc,   /pws/zycie085-dtusera,

             /pws/zycie085-usernamec, /pws/zycie085-usernamea.

* >> Início da inclusão: MODULE LOAD_DATA

    ELSE.

      v_difora = 'X'.

* << Fim da inclusão

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058X01

...

* >> Início da inclusão:

data v_difora.

* << Fim da inclusão

DATA: END OF COMMON PART.

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

Modificações efetuadas em REPT /PWS/SAPMZYCI058

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 237

Texto: (45 caracteres)

"BL já está sendo utilizado em outro processo."

Comprimento máximo: 132

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 242

Texto: (41 caracteres)

"Tipo da Declaração no Embarque não é DSI."

Comprimento máximo: 41