Sintoma

Quando o campo /PWS/ZYCIE078-LI_REF (/PWS/ZYCIT078-LI_REF) da PLI estiver preenchido, buscar o NRDI

para levar para o TXT no campo LI_REF.

Solução

Com o valor do campo /PWS/ZYCIE078-LI_REF, buscar na tabela /PWS/ZYCIT078 o campo NRLI onde:

/PWS/ZYCIT078-NRSEQLI = /PWS/ZYCIE078-LI_REF.

Informações Complementares

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

Nota Número 13676 Data: 05/02/2014 Hora: 16:10:20

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

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

Nota Número              : 13676

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 9.0

Pacote                   : 00007

Agrupamento              : 00170

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

Referência às notas relacionadas:

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

13636  - 00001 - 9.0    - 00007  - CORRIGIR A INFORMAÇÃO DA LI DE REFERÊNCIA NO ARQUIVO SUFRAMA 5.0

13656  - 00002 - 9.0    - 00007  - PLI - TIPO DE FORNECEDOR 2 - PAÍS DE ORIGEM ERRADO NO TXT

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

PLI - SUFRAMA 5.0 - NO CAMPO LI_REF DO TXT LEVAR O NRLI

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

Palavras Chave:

LI_REF - TXT - SUFRAMA 5.0 - ARQUIVO - NRLI - NUMLI

PLI - LI - LI REFERENCIA - LI DE REFERÊNCIA

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

Objetos da nota:

REPS /PWS/ZYCIR041

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

Modificações efetuadas em REPS /PWS/ZYCIR041

...

       doc_refer(08),

       tipo_aplic   LIKE /pws/zycit078-aplicpli,

* >> Início da exclusão:

       li_refer     LIKE /pws/zycit078-li_ref,

* << Fim da exclusão

* >> Início da inclusão:

       li_refer     LIKE /pws/zycit078-nrli,

* << Fim da inclusão

       nr_proex     LIKE /pws/zycit078-numpexpam,

       ano_proex    LIKE /pws/zycit078-anopexpam,

       e_mail(50),

       versao(03),

       ind_exig(01),

       END OF it_reg01.

...

...

        CLEAR /pws/zycit078-codtsp  .

        CLEAR: it_reg09-aplic_merc  .

        it_reg01-nrseqli      = itab_zycit078_aux-nrseqli     .

        it_reg01-tpli         = itab_zycit078_aux-tpli        .

        it_reg01-cd_inscsuf   = itab_zycit078_aux-inscsufr    .

        it_reg01-tipo_impor   = itab_zycit078_aux-tpimp       .

        it_reg01-importador   = itab_zycit078_aux-cnpj        .

        it_reg01-pais_impor   = itab_zycit078_aux-paisfab     .

        it_reg01-tipo_doc     = itab_zycit078_aux-tppli       .

        it_reg01-tipo_aplic   = itab_zycit078_aux-aplicpli    .

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

        it_reg01-li_refer     = itab_zycit078_aux-li_ref      .

* << Fim da exclusão

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

        IF NOT itab_zycit078_aux-li_ref IS INITIAL.

          CLEAR: it_reg01-li_refer.

          SELECT SINGLE nrli FROM /pws/zycit078

          INTO it_reg01-li_refer

          WHERE nrseqli = itab_zycit078_aux-li_ref.

        ENDIF.

* << Fim da inclusão

        it_reg01-nr_proex     = itab_zycit078_aux-numpexpam   .

        it_reg01-ano_proex    = itab_zycit078_aux-anopexpam   .

        it_reg09-naladi       = itab_zycit078_aux-naladi      .

        it_reg09-moeda        = itab_zycit078_aux-waers       .

        it_reg09-incoterms    = itab_zycit078_aux-inco1       .

        it_reg09-cond_merc    = itab_zycit078_aux-condmerc    .

        it_reg09-comunc-compra = itab_zycit078_aux-ncompra     .

        it_reg09-urf_entr     = itab_zycit078_aux-urfent      .

        it_reg09-pais_proc    = itab_zycit078_aux-land1       .

        it_reg09-urf_despacho = itab_zycit078_aux-urfdesp     .

...

...

      SELECT SINGLE *

      FROM /pws/zycit079

      WHERE nrseqli EQ it_reg03-nrseqli

        AND numli   EQ it_reg03-numli.

      IF NOT /pws/zycit079-subs_exigencia IS INITIAL.

        w_ind_exig   = 'S'.

      ENDIF.

      ww_aliqii = /pws/zycit079-aliqii.

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

      w_li_refer = /pws/zycit078-li_ref.

* << Fim da exclusão

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

      IF NOT /pws/zycit078-li_ref IS INITIAL.

        CLEAR: w_li_refer.

        SELECT SINGLE nrli FROM /pws/zycit078

        INTO w_li_refer

        WHERE nrseqli = /pws/zycit078-li_ref.

      ENDIF.

* << Fim da inclusão

      w_ac_aladi = /pws/zycit079-aladi.

      w_naladi = /pws/zycit079-naladi.

      w_tipo_ac_tar = /pws/zycit079-codtarif.

      w_mat_usado = 'N'.

      w_cond_merc = 'N'.

...