Sintoma

Enviar campo aplicação somente quando não for regime = 06

Solução

Atualizado programa para enviar aplicação somente para processos de regime diferente de ZFM (06)

Informações Complementares

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

Nota Número 12336 Data: 02/07/2012 Hora: 11:13:49

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

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

Nota Número              : 12336

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00001

Agrupamento              : 00119

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

Referência às notas relacionadas:

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

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

ENVIAR CAMPO APLICAÇÃO SOMENTE QUANDO NÃO FOR REGIME = 06

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

Palavras Chave:

CAMPO APLICAÇÃO - TRANSMISSÃO SISCOMEX - REGIME 06 - ZFM

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSFER_DI

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DI

...

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

  DATA: v_regime TYPE /pws/zycit001-regime.

* << Fim da inclusão

...

...

                 FOR ALL ENTRIES IN it_cabecalho_di

                 WHERE nrseqdi EQ it_cabecalho_di-nrseqdi.

        ENDIF.

        IF NOT it_itens_di[] IS INITIAL.

          SELECT * FROM /pws/zycit003 INTO TABLE it_det_itens_di

                 FOR ALL ENTRIES IN it_itens_di

                 WHERE nrseq EQ it_itens_di-nrseq

                   AND ebeln EQ it_itens_di-ebeln

                   AND ebelp EQ it_itens_di-ebelp.

          READ TABLE it_itens_di INDEX 1.

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

          SELECT SINGLE inco1 FROM /pws/zycit001 INTO s_inco1 WHERE

                 nrseq = it_itens_di-nrseq.

* << Fim da exclusão

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

          SELECT SINGLE inco1 regime FROM /pws/zycit001

          INTO (s_inco1, v_regime)

          WHERE nrseq = it_itens_di-nrseq.

* << Fim da inclusão

          IF it_031[] IS INITIAL.

           SELECT * FROM /pws/zycit031 INTO TABLE it_031."#EC CI_NOWHERE

          ENDIF.

          READ TABLE it_031 WITH KEY inco1 = s_inco1.

          IF sy-subrc EQ 0.

            s_inco1_ci = it_031-inco1_ci.

          ELSE.

            s_inco1_ci = s_inco1.

          ENDIF.

          LOOP AT it_itens_di.

...

...

              SELECT * FROM /pws/zycit200 INTO TABLE it_200 WHERE

                     id LIKE i_nrseqdi.

              CLEAR: v_add, v_obs1.

              LOOP AT it_200.

                v_obs1+v_add = it_200-linha(74).

                v_add = v_add + 75.

                IF sy-tabix >= 3.

                  EXIT.

                ENDIF.

              ENDLOOP.

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

              if v_regime eq '06' .

                 clear it_adicao_di-aplicacao.

              endif.

* << Fim da inclusão

              it_adicao_di-complementares = v_obs1.

              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

...