Sintoma

Quando há 2 ou mais Empresas parametrizadas na tabela de parâmetros /PWS/ZYCBT007 o programa está

buscando somente a primeira Empresa parametrizada.Ele não deve buscar a empres quando tem mais de

uma parametrizada.

Solução

Foi ajustado o critério de seleção da tebela /PWS/ZYCBT007.

Informações Complementares

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

Nota Número 01296 Data: 09/05/2006 Hora: 14:52:41

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

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

Nota Número              : 01296

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00113

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AO CRIAR UMA  PLI OU LI O SISTEMA BUSCA A PRIMEIRA EMPRESA PARAMETRIZADA

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

Palavras Chave:

PLI - LI - EMPRESA

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

Objetos da nota:

REPS /PWS/MZYCI020O01

REPS /PWS/MZYCI020TOP

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

Modificações efetuadas em REPS /PWS/MZYCI020O01

...

ENDMODULE.

MODULE load_data OUTPUT.

  IF v_tcode EQ '/PWS/ZYCI020_C' OR

     v_tcode EQ '/PWS/ZYCI020_P'.

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

    clear v_linhas.

* << Fim da inclusão

    IF /pws/zycie078-bukrs IS INITIAL.

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

        Select count( * ) into v_linhas from /pws/zycbt007.

        if not v_linhas >= 2.

* << Fim da inclusão

          SELECT SINGLE bukrs

                 FROM /pws/zycbt007

                 INTO /pws/zycie078-bukrs.

          wa_zycit078-bukrs = /pws/zycie078-bukrs.

        endif.

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

    ENDIF.

* << Fim da inclusão

   ENDIF.

  IF /pws/zycit000 IS INITIAL.

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

    SELECT SINGLE * FROM /pws/zycit000

       WHERE land1 EQ t001-land1.

...

...

MODULE load_data_pli OUTPUT.

  SET PARAMETER ID 'LND' FIELD ' '.

  SET PARAMETER ID 'FWS' FIELD ' '.

  IF v_tcode EQ '/PWS/ZYCI020_I'.

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

    clear v_linhas.

* << Fim da inclusão

    IF /pws/zycie078-bukrs IS INITIAL.

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

        Select count( * ) into v_linhas from /pws/zycbt007.

        if not v_linhas >= 2.

* << Fim da inclusão

      SELECT SINGLE bukrs

                FROM /pws/zycbt007

                INTO /pws/zycie078-bukrs.

        wa_zycit078-bukrs = /pws/zycie078-bukrs.

        endif.

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

    ENDIF.

* << Fim da inclusão

  ENDIF.

  IF /pws/zycit274 IS INITIAL.

    SELECT SINGLE * FROM /pws/zycit274

           WHERE nomeacao EQ '04'.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020TOP

...

      v_steuc2 LIKE /pws/zycit078-steuc2,

      v_steuc_temp1(8),

      v_steuc_temp2(8) ,

      v_steuc_temp3(8),

      v_executou,

* >> Início da exclusão:

      v_incentivo                .

* << Fim da exclusão

* >> Início da inclusão:

      v_incentivo.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF SCREEN 0300.

PARAMETERS:    pa_bukrs LIKE /pws/zycie078-bukrs  DEFAULT

/pws/zycie078-bukrs.

SELECT-OPTIONS:

                so_ncm   FOR /pws/zycie078-steuc1

...