Sintoma

Quando crio uma DI por fora do embarque, não traz a % de seguro parametrizada na /pws/zycit000.

Solução

Atualizado programa para preencher a % Seguro da DI quando ela é feita por fora do Embarque com a

parametrização feita na /pws/zycit00.

Informações Complementares

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

Nota Número 12839 Data: 07/03/2013 Hora: 11:23:31

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

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

Nota Número              : 12839

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 9.0

Pacote                   : 00003

Agrupamento              : 00149

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

Referência às notas relacionadas:

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

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

QUANDO CRIO UMA DI POR FORA DO EMBARQUE, NÃO TRAZ A % DE SEGURO.

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

Palavras Chave:

DI POR FORA - % SEGURO -

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

Objetos da nota:

REPS /PWS/MZYCI023TOP

REPS /PWS/MZYCI023F04

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

Modificações efetuadas em REPS /PWS/MZYCI023TOP

...

  v_aux_rateio     LIKE t_icms         ,

  v_comprador      LIKE /pws/zycit121-comprador,

  v_idxa           LIKE sy-tabix              ,

  v_sub            LIKE sy-subrc              ,

  v_status_s       VALUE 1   ,                              "#EC NEEDED

  v_aini           TYPE c                     ,

  v_msg1           TYPE c                     ,

  v_icms_regio     LIKE t001w-regio           ,

  encont           TYPE i                     ,

  v_s_idioma(15)   TYPE c                     ,

* >> Início da exclusão:

  v_perseg_vez     TYPE c                     ,

* << Fim da exclusão

  v_param(550)     TYPE c VALUE space         ,

  v_tpdoc          LIKE /pws/zycit136-tp_doc  ,

  v_string_ex      LIKE rlgrap-filename       ,

  v_medida         LIKE /pws/zycie003-meinsest,

  vsaldo           LIKE /pws/zycie263-qtd_iten,

  v_espec          TYPE c                     ,

  v_msg            TYPE c                     ,

  v_cols           TYPE cxtab_column          ,

  v_nf041(1)       TYPE c                     ,

  v_taxa           LIKE /pws/zycie085-ukursfob,

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F04

...

FORM data_clean_seg.

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

    IF /pws/zycie085-waersseg IS INITIAL.

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

    ENDIF.

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

    IF v_perseg_vez = ' '.

* << Fim da exclusão

      IF /pws/zycie085-per_seg IS INITIAL AND

         /pws/zycie085-vlseg IS INITIAL.

        IF t001-bukrs NE /pws/zycie085-bukrs OR

           /pws/zycit000-land1 NE t001-land1.

          SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.

          SELECT SINGLE per_seg FROM /pws/zycit000

                 INTO /pws/zycie085-per_seg

                WHERE land1 EQ t001-land1.

        ELSE.

          /pws/zycie085-per_seg = /pws/zycit000-per_seg.

        ENDIF.

      ENDIF.

    ENDIF.

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

  ENDIF.

  v_perseg_vez = 'X'.

* << Fim da exclusão

ENDFORM.

...