Sintoma

Embarque via Courier, na DSI, pasta Carga 3, o campo para preenchimento do seguro internacional

está fechado para alterações. No B/L o campo peso bruto não está como obrigatório.

Solução

Feito tratamento para abrir campo de seguro internacional para preenchimento e propor valor de

seguro.

Informações Complementares

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

Nota Número 02104 Data: 14/09/2006 Hora: 14:35:14

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

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

Nota Número              : 02104

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

02022  - 00001 - 6.0    - 00024  - AJUSTES DSI MUNDANÇA SISCOMEX

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

EM DSI COURIER O CAMPO DE PREENCHIMENTO DO SEGURO ESTÁ ZERADO E FECHADO

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

Palavras Chave:

DSI - COURIER - VALOR SEGURO INTERNACIONAL - PESO BRUTO - BL -

PROPOSIÇÃO DE VALORES - PARÂMETRO NA /PWS/ZYCIT000

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

Objetos da nota:

DYNP /PWS/SAPMZYCI058                        0223

REPS /PWS/MZYCI002O01

REPS /PWS/MZYCI058F01

REPS /PWS/MZYCI058F02

REPS /PWS/MZYCI058I01

REPS /PWS/MZYCI058O01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI058                        0223

process before output.

module: set_screen,

*<< Inicio Inclusão : TELA 0223

        data_clean_seg,

*<< Fim Inclusão : TELA 0223

        load_valcarga.

process after input.

field: /pws/zycie085-vlseg module load_sgvl on request.

field: /pws/zycie085-waersseg module load_sewa on request.

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

Modificações efetuadas em REPS /PWS/MZYCI002O01

...

              ENDIF.

              MODIFY SCREEN.

            WHEN '/PWS/ZYCIE093-BRGEW'.

              IF /pws/zycie093-meiotransp  = 'PS' AND

                 /pws/zycie001-tpdecl = 'DSI'.

* >> Início da exclusão: MODULE SET_SCREEN_0100

                screen-required = 0.

* << Fim da exclusão

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

                screen-required = 1.

* << Fim da inclusão

              ENDIF.

              MODIFY SCREEN.

            WHEN '/PWS/ZYCIE093-WAERSCAP'.

              IF /pws/zycie093-meiotransp = 'PS'.

                CLEAR /pws/zycie093-waerscap.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058F01

...

  ENDIF.

  IF NOT /pws/zycie085-waersseg IS INITIAL.

    PERFORM: taxa_converte USING /pws/zycie085-waersseg

                /pws/zycie085-dttax

                CHANGING /pws/zycie085-ukursseg,

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

             load_sgvl.

* << Fim da exclusão

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

             load_sevl.

* << Fim da inclusão

  ENDIF.

  /pws/zycie085-waersfob = /pws/zycie003-waers.

  /pws/zycie085-vlfob    = v_tval2.

  IF NOT /pws/zycie085-waersfob EQ  /pws/zycbt007-waersb.

    IF NOT /pws/zycie085-ukursfob IS INITIAL.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058O01

...

  wa_itb-ebeln = itab_itc-ebeln.

  wa_itb-ebelp = itab_itc-ebelp.

  wa_itb-mark  = itab_itc-mark.

ENDMODULE.

MODULE data_clean_seg OUTPUT.

* >> Início da exclusão: MODULE DATA_CLEAN_SEG

  IF sy-tcode = '/PWS/ZYCI023_C'.

* << Fim da exclusão

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

  IF sy-tcode = '/PWS/ZYCI023_C' or sy-tcode = '/PWS/ZYCI058_C'.

* << Fim da inclusão

    IF /pws/zycie085-waersseg IS INITIAL.

      CLEAR: /pws/zycie085-ukursseg, s_stvr, /pws/zycie085-vlseg.

    ENDIF.

    IF v_perseg_vez = ' '.

      IF /pws/zycie085-per_seg IS INITIAL AND /pws/zycie085-vlseg IS

...

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

Modificações efetuadas em REPS /PWS/MZYCI058F04

...

        MODIFY SCREEN.

      ENDIF.

    ENDIF.

    IF screen-name EQ '/PWS/ZYCIE085-WAERSSEG'

      AND itab_zycit001-meioemba EQ 'PS'.

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

      screen-input = '0'.

* << Fim da exclusão

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

      screen-input = '1'.

* << Fim da inclusão

      MODIFY SCREEN.

    ENDIF.

    IF screen-name EQ '/PWS/ZYCIE085-NRDSE'

      AND itab_zycit001-meioemba EQ 'PS'.

      screen-input = '0'.

...