Sintoma

Quando o usuário seleciona duas ou mais empresas e executa a seleção para todos os módulos, o

sistema está trazendo empresas não selecionadas no resultado.

Solução

Foi adicionado tratamento para a seleção de empresas na seleção do Processamento de Boleto de

exportação.

Informações Complementares

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

Nota Número 03571 Data: 27/04/2007 Hora: 11:20:16

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

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

Nota Número              : 03571

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00027

Agrupamento              : 00163

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ROTINA DE PAGAMENTO(EXPORTAÇÃO) - SELEÇÃO EMPRESA

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

Palavras Chave:

ROTINA DE PAGAMENTO(EXPORTAÇÃO) - SELEÇÃO EMPRESA

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

Objetos da nota:

REPS /PWS/ZYGLR002

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

Modificações efetuadas em REPS /PWS/ZYGLR002

...

    REFRESH itab_nrinvoic.

    LOOP AT itab_zycet010.

      itab_nrinvoic-nrinvoic = itab_zycet010-nrseq.

      APPEND itab_nrinvoic.

    ENDLOOP.

    DELETE ADJACENT DUPLICATES FROM itab_nrinvoic.

    IF NOT itab_nrinvoic[] IS INITIAL.

      SELECT nrseq bukrs vbeln_vf FROM /pws/zycet002

             INTO TABLE itab_zycet002

             FOR ALL ENTRIES IN itab_zycet010

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

             WHERE nrseq EQ itab_zycet010-nrseq.

* << Fim da exclusão

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

             WHERE nrseq EQ itab_zycet010-nrseq

               AND bukrs in empresa.

* << Fim da inclusão

      IF NOT itab_zycet002[] IS INITIAL.

        SELECT bukrs belnr gjahr bstat awtyp awkey awsys FROM bkpf

               INTO TABLE itab_bkpf

               FOR ALL ENTRIES IN itab_zycet002

               WHERE bukrs EQ itab_zycet002-bukrs

                 AND awkey EQ itab_zycet002-vbeln_vf

                 AND awtyp EQ 'VBRK'

                 AND awsys EQ ' '.

        IF NOT itab_bkpf[] IS INITIAL.

          SELECT bukrs gjahr belnr FROM bsid

...

...

    SORT itab_zycet013 BY nrseq lifnr gsber belnr.

    REFRESH itab_nrinvoic.

    LOOP AT itab_zycet013.

      itab_nrinvoic-nrinvoic = itab_zycet013-nrseq.

      APPEND itab_nrinvoic.

    ENDLOOP.

    DELETE ADJACENT DUPLICATES FROM itab_nrinvoic.

    IF NOT itab_nrinvoic[] IS INITIAL.

      SELECT * FROM /pws/zycbt017 INTO TABLE itab_zycbt017

               FOR ALL ENTRIES IN itab_nrinvoic

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

               WHERE nrinvoic EQ itab_nrinvoic-nrinvoic.

* << Fim da exclusão

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

               WHERE nrinvoic EQ itab_nrinvoic-nrinvoic

                 AND bukrs    IN empresa.

* << Fim da inclusão

      SELECT * FROM /pws/zycbt006 APPENDING TABLE itab_zycbt006

               FOR ALL ENTRIES IN itab_nrinvoic

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

               WHERE nrinvoic EQ itab_nrinvoic-nrinvoic.

* << Fim da exclusão

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

               WHERE nrinvoic EQ itab_nrinvoic-nrinvoic

                 AND bukrs    IN empresa.

* << Fim da inclusão

    ENDIF.

...