CE PLUS - Nota 007812

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Prestação de Contas

Data/Hora da Publicação: 18/12/2008 00:00:00

Data/Hora Última Alteração: 09/03/2010 16:17:32

Descrição da Nota: UTILIZA TIPO DE CONTA INCORRETO NO BATCH INPUT DA F-51

Sintoma

 

Erro no batch input da F-51. Não encotra partidas do documento da F-43.

 

Solução

 

Corrigida chave de seleção da tabela /pws/zycbt011

Versões Tratadas

7.0

Informações Complementares

 

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

Nota Número 07812 Data: 18/12/2008 Hora: 13:18:04

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

 

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

Nota Número              : 07812

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00079

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

UTILIZA TIPO DE CONTA INCORRETO NO BATCH INPUT DA F-51

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

Palavras Chave:

BATCH - INPUT - F-51 - TIPO - CONTA

/PWS/SAPMZYCI007

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

Objetos da nota:

REPS /PWS/MZYCI007F01

REPS /PWS/MZYCI007F02

 

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

Modificações efetuadas em REPS /PWS/MZYCI007F01

 

...

  FREE  : it_tab_aux.

ENDFORM.

FORM select_parametros.

  SELECT SINGLE * FROM /pws/zycbt007

                  WHERE bukrs EQ /pws/zycie026-bukrs.

  IF sy-subrc NE 0.

    MESSAGE e120.

  ENDIF.

  SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011

         WHERE codeven = text-010

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

           AND bukrs EQ /pws/zycie026-bukrs

* << Fim da inclusão

           AND codmod  = text-009.

  SELECT * FROM /pws/zycbt012 INTO TABLE it_zycbt012

         WHERE codeven = text-010

           AND codmod  = text-009.

  SELECT * FROM /pws/zycbt013 INTO TABLE it_zycbt013

         WHERE tabela = text-012.

  SELECT * FROM /pws/zycbt133 INTO TABLE it_zycbt133

         WHERE bukrs  = text-022

           AND codmod = text-009.

  SELECT SINGLE * FROM j_1bbranch

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI007F02

 

...

      ENDIF.

      SELECT docfat

        FROM /pws/zycit026

        INTO TABLE itab_doc

        WHERE bukrs  EQ /pws/zycie026-bukrs AND

              dtlanc >= v_data AND

              status EQ 'A'.                            "#EC CI_NOFIELD

      IF NOT itab_doc[] IS INITIAL.

        SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011

               WHERE codeven = text-010

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

                 AND bukrs EQ /pws/zycie026-bukrs

* << Fim da inclusão

                 AND codmod  = text-009.

        SELECT *

          FROM bkpf

          INTO TABLE itab_bkpf

          FOR ALL ENTRIES IN itab_doc

          WHERE bukrs EQ /pws/zycie026-bukrs         AND

                blart EQ wa_zycbt011-blart           AND

                tcode EQ 'FB01'                      AND

                stgrd EQ ' '                         AND

                monat EQ /pws/zycie026-dtlanc+04(02) AND

...

 

...

      ENDIF.

      SELECT docfat

        FROM /pws/zycit026

        INTO TABLE itab_doc

        WHERE bukrs  EQ /pws/zycie026-bukrs AND

              dtlanc >= v_data AND

              status EQ 'A'.                            "#EC CI_NOFIELD

      IF NOT itab_doc[] IS INITIAL.

        SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011

               WHERE codeven = text-010

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

                 AND bukrs EQ /pws/zycie026-bukrs

* << Fim da inclusão

                 AND codmod  = text-009.

        SELECT *

          FROM bkpf

          INTO TABLE itab_bkpf

          FOR ALL ENTRIES IN itab_doc

          WHERE bukrs EQ /pws/zycie026-bukrs         AND

                blart EQ wa_zycbt011-blart           AND

                tcode EQ 'FB01'                      AND

                stgrd EQ ' '                         AND

                monat EQ /pws/zycie026-dtlanc+04(02) AND

...

 

...

      ENDIF.

      SELECT docfat

        FROM /pws/zycit026

        INTO TABLE itab_doc

        WHERE bukrs  EQ /pws/zycie026-bukrs AND

              dtlanc >= v_data AND

              status EQ 'A'.                            "#EC CI_NOFIELD

      IF NOT itab_doc[] IS INITIAL.

        SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011

               WHERE codeven = text-010

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

                 AND bukrs EQ /pws/zycie026-bukrs

* << Fim da inclusão

                 AND codmod  = text-009.

        SELECT *

          FROM bkpf

          INTO TABLE itab_bkpf

          FOR ALL ENTRIES IN itab_doc

          WHERE bukrs EQ /pws/zycie026-bukrs         AND

                blart EQ wa_zycbt011-blart           AND

                tcode EQ 'FB01'                      AND

                stgrd EQ ' '                         AND

                monat EQ /pws/zycie026-dtlanc+04(02) AND

...