Sintoma

Ao fazer transmissão, não leva o campo motivo.

Solução

Criar outro campo para tratamento separado.

Atualizar arquivo executável

Informações Complementares

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

Nota Número 13658 Data: 03/02/2014 Hora: 10:09:38

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

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

Nota Número              : 13658

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00007

Agrupamento              : 00170

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

Referência às notas relacionadas:

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

13633  - 00001 - 9.0    - 00007  - TRATAMENTO PARA TRANSMISSÃO EM CASO DE ADMISSÃO TEMPORÁRIA

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

AO FAZER TRANSMISSÃO, NÃO LEVA O CAMPO MOTIVO DA ADMISSÃO TEMPORÁRIA

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

Palavras Chave:

TRANSMISSÃO - SISCOMEX - DI - ADMISSÃO TEMPORÁRIA - CAMPO MOTIVO

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

Objetos da nota:

TABD /PWS/ZYCIE116A

TABD /PWS/ZYCIT100

TABD /PWS/ZYCIE100A

FUNC /PWS/ZYCI_TRANSFER_DI

DYNP /PWS/SAPMZYCI023                        0341

REPS /PWS/MZYCI023O01

REPS /PWS/MZYCI023F03

RELE F6DK988516 20140203 100807 PWSCI

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

Modificações efetuadas em TABD /PWS/ZYCIE116A

Acrescentar campo ao final da estrutura

Nome de campo    Elem.dados    Tab.verif. N CtDt Comp. Grupo

MOTIVO_ADM       /PWS/ZYCIL357              CHAR     2

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

Modificações efetuadas em TABD /PWS/ZYCIT100

Nome de campo    Chv Elem.dados    Tab.verif.    N CtDt  Comp. Grupo

MOTIVO_ADM           /PWS/ZYCIL357                 CHAR     2

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

Modificações efetuadas em TABD /PWS/ZYCIE100A

Acrescentar campo ao final da estrutura

Nome de campo    Elem.dados    Tab.verif. N CtDt Comp. Grupo

MOTIVO_ADM       /PWS/ZYCIL357              CHAR     2

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DI

...

                IF sy-tabix >= 3.

                  EXIT.

                ENDIF.

              ENDLOOP.

              IF v_regime EQ '06' OR

                 v_regime EQ '05' OR

                 v_regime EQ '12' .

                CLEAR it_adicao_di-aplicacao.

              ENDIF.

              it_adicao_di-complementares = v_obs1.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

              it_adicao_di-motivo = it_itens_di-motivo.

* << Fim da exclusão

              APPEND it_adicao_di.

            ENDLOOP.

          ENDIF.

          IF NOT it_adicao_di[] IS INITIAL.

            SELECT * FROM /pws/zycit118 INTO TABLE it_nomencl_di

                   FOR ALL ENTRIES IN it_itens_di

                   WHERE nrseqdi EQ it_itens_di-nrseqdi

                     AND adicao  EQ it_itens_di-adicao.

            SELECT * FROM /pws/zycit121 INTO TABLE it_pagtos_di

                   FOR ALL ENTRIES IN it_adicao_di

...

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI023                        0341

O Download das telas encontra-se disponível no link abaixo

http://produtos.sondait.com.br/home/PW.CE/Notas/

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

Modificações efetuadas em REPS /PWS/MZYCI023O01

...

    WHEN '0341' .

      IF  ( itab_zycit001-regime NE '05' AND

        itab_zycit001-regime NE '12' ) .

        LOOP AT SCREEN .

          IF screen-name EQ 'TXTMOT' OR

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

          screen-name EQ 'WA_IT-MOTIVO' OR

* << Fim da exclusão

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

          screen-name EQ 'WA_IT-MOTIVO_ADM' OR

* << Fim da inclusão

          screen-name EQ 'T_MOTIVO'  .

            screen-invisible = '1' .

            MODIFY SCREEN.

          ENDIF.

        ENDLOOP.

      ENDIF.

  ENDCASE.

  CLEAR v_existe_li.

ENDMODULE.

MODULE fill_struct88 OUTPUT.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

                                        /pws/zycie085-waersfob

                               CHANGING itab_it-vlseg_fat.

      v_tsegfat = v_tsegfat + itab_it-vlseg_fat.

    ELSE.

      v_tfrefat = v_tfrefat + itab_it-vlfre_fat.

      v_tsegfat = v_tsegfat + itab_it-vlseg_fat.

    ENDIF.

    v_calc_seg = v_calc_seg + ( itab_it-vlreal_dest *

 itab_zycit003-qtd_itenc3 ).

    IF itab_zycit001-regime EQ '05' .

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

      itab_it-motivo = v_motivo.

* << Fim da exclusão

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

      itab_it-motivo_adm = v_motivo.

* << Fim da inclusão

    ELSEIF itab_zycit001-regime EQ '12' .

      IF itab_it-adm_temp = 'X' .

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

        itab_it-motivo = v_motivo.

* << Fim da exclusão

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

        itab_it-motivo_adm = v_motivo.

* << Fim da inclusão

      ENDIF.

    ENDIF.

...