Sintoma

O programa que gera o TXT do PLI está utilizando o sequencial da PLI(NRSEQLI) para gerar o numero do

documento porém deveria utilizar o numero da PLI(NRPLI).

Solução

Ajustado programa para utilizar o numero da PLI(NRPLI) para gerar o numero de documento no txt da

PLI.

Informações Complementares

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

Nota Número 13555 Data: 26/12/2013 Hora: 15:34:19

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

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

Nota Número              : 13555

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00007

Agrupamento              : 00168

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

Referência às notas relacionadas:

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

12082  - 00001 - 8.0    - 00011  - PORTARIA 23, ARTIGO 24: O PRAZO DE VALIDADE DE UMA LI É DE 90 DIA

13538  - 00002 - 9.0    - 00006  - TRATAMENTO DE TIPO DE FORNECEDOR E REMOVER ACENTUAÇÃO.

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

UTILIZAR O NUMERO DA PLI PARA GERAR O NUMERO DO DOCUMENTO NO ARQUIVO TXT

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

Palavras Chave:

ARQUIVO - TXT - NUMERO - PLI - SEQUENCIAL - INTERNO

/PWS/SAPMZYCI020 - /PWS/ZYCIR041

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

Objetos da nota:

DYNP /PWS/SAPMZYCI020                        0501

REPS /PWS/MZYCI020O01

REPS /PWS/MZYCI020I01

REPS /PWS/ZYCIR041

REPS /PWS/MZYCI020X01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI020                        0501

EXCLUIR CAMPO TEXTO "/PWS/ZYCIE078-NRPLI"

INCLUIR CAMPO TEXTO "V_NRPLI1"

Comprimento Visível      10

Linha                    1

Coluna                   27

Formato                  NUMC

Grupo 1                  OC1

Texto                    ____/_____

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

Modificações efetuadas em REPS /PWS/MZYCI020O01

...

MODULE load_cabec_501 OUTPUT.

  PERFORM validade .

  PERFORM: descrtpli    ,

           dexcrativ,

           descrfabric.

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

  v_nrpli1 = /pws/zycie078-nrpli.

* << Fim da inclusão

ENDMODULE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020I01

...

MODULE atual_cabec_501 INPUT.

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

  /pws/zycie078-nrpli = v_nrpli1.

* << Fim da inclusão

  IF NOT wa_zycit078-dtdef IS INITIAL.

    wa_zycit078-dtvencto = /pws/zycie078-dtdef + /pws/zycie078-valday.

  ENDIF.

ENDMODULE.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR041

...

DATA: BEGIN OF  it_inicio OCCURS 0,

      nrseqli     LIKE /pws/zycit078-nrseqli,

* >> Início da inclusão:

      NRPLI       TYPE /pws/zycit078-NRPLI,

* << Fim da inclusão

      j_1bbranch  LIKE /pws/zycit078-j_1bbranch,

      bukrs       LIKE /pws/zycit078-bukrs,

      aplicpli    LIKE /pws/zycit078-aplicpli,

      END OF it_inicio.

...

...

FORM gera_txt

 TABLES

    it_zycit079  STRUCTURE it_zycit079.

  CLEAR w_branco.

  PERFORM limpa_tabelas.

  READ TABLE it_zycit079 INDEX 1.

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

  SELECT  nrseqli j_1bbranch bukrs aplicpli INTO TABLE it_inicio

* << Fim da exclusão

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

  SELECT  nrseqli NRPLI j_1bbranch bukrs aplicpli

      INTO TABLE it_inicio

* << Fim da inclusão

  FROM /pws/zycit078

  WHERE nrseqli EQ it_zycit079-nrseqli.

  w_nome_arq = it_zycit079-nrseqli+0(07).

  PERFORM converte_nome_arq.

  PERFORM busca_dados_01.

  PERFORM monta_txt.

  PERFORM baixa_arquivo.

ENDFORM.

...

...

FORM monta_txt.

  SORT it_reg03 BY nrseqli.

  LOOP AT it_reg03.

    ON CHANGE OF it_reg03-nrseqli.

      TRANSLATE it_reg03-ncm_merc USING '. '.

      CONDENSE it_reg03-ncm_merc NO-GAPS.

      w_ncm   = it_reg03-ncm_merc.

      WRITE it_reg03-produto_zfm TO w_codsufra.

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

      w_numli = it_reg03-nrseqli.

      w_ano   = it_reg03-nrseqli+8(02).

      CONCATENATE '20' w_ano INTO w_ano.

      CONCATENATE w_ano '/' it_reg03-nrseqli+2(05) INTO w_seq.

* << Fim da exclusão

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

      TRANSLATE it_inicio-NRPLI USING '/ - '.

      CONDENSE it_inicio-NRPLI NO-GAPS.

      CONCATENATE it_inicio-NRPLI(4) '/' it_inicio-NRPLI+4(5)

                                          INTO w_seq.

* << Fim da inclusão

      CLEAR: w_vl_merc_iten.

      CLEAR: ww_aliqii.

      CLEAR: w_li_refer.

      CLEAR: w_ac_aladi.

      CLEAR: w_naladi.

      CLEAR: w_mat_usado.

      CLEAR: w_cond_merc.

      CLEAR: w_tipo_ac_tar.

      SELECT SINGLE *

      FROM /pws/zycit078

...

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

Modificações efetuadas em REPS /PWS/MZYCI020X01

...

* >> Início da inclusão:

DATA: v_nrpli1(9) TYPE n .

* << Fim da inclusão

DATA: END OF COMMON PART.