Sintoma

O programa não faz o filtro no criterio de pesquisa por data na transacao F-30/F-51 de forma

correta.

Solução

adicionado tratamento para acionar o Page-down quando necessario.

Informações Complementares

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

Nota Número 06601 Data: 20/05/2008 Hora: 17:20:44

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

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

Nota Número              : 06601

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00048

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VINCULAÇÃO - FILTRO POR DATA F-30

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

Palavras Chave:

VINCULAÇÃO - FILTRO POR DATA F-30

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

Objetos da nota:

FUNC /PWS/ZYCB_TRANSACAO_F_30_P

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

Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_P

...

          PERFORM bdc_field USING v_campo  v_awkey.

          PERFORM bdc_field USING v_campo2 v_awkey.

          IF v_cont = 5.

            PERFORM bdc_field  USING 'BDC_OKCODE' '=SU1'.

            PERFORM bdc_screen USING 'SAPDF05X'   '0731'.

            PERFORM bdc_field USING 'BDC_CURSOR'  'RF05A-SEL01(01)'.

            CLEAR v_cont.

          ENDIF.

        ENDLOOP.

      ELSE.

* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_P

        CLEAR v_xpos1.

        v_xpos1 = ( ( v_xpos_budat - 1 ) MOD 10 ) + 1.

        SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

        v_xpos_budat = ( v_xpos1 - 1 ) DIV 10.

        CONCATENATE 'RF05A-XPOS1(' v_xpos_budat ')' INTO v_xpos_budat.

        DO v_xpos1 TIMES.

          PERFORM bdc_screen USING 'SAPDF05X'   '2000'.

          PERFORM bdc_field  USING 'BDC_OKCODE'  'P+'.

        ENDDO.

* << Fim da inclusão

        PERFORM bdc_screen USING 'SAPDF05X'    '2000'.

        PERFORM bdc_field USING 'BDC_CURSOR'   v_xpos_budat.

        PERFORM bdc_field  USING v_xpos_budat  'X'.

        PERFORM bdc_field  USING 'BDC_OKCODE'  '=GO'.

        CLEAR v_cont.

        PERFORM bdc_screen USING 'SAPDF05X'        '0732'.

        PERFORM bdc_field USING  'BDC_CURSOR'      'RF05A-VONDT(01)'.

        WRITE t_dados-dtdocto TO v_dtdocto.

        ADD 1 TO v_cont.

        CONCATENATE 'RF05A-VONDT(' v_cont ')' INTO v_campo.

...