Sintoma

Ao realizar um refinanciamento nos ambientes F7S e F6Q, o programa pára o Batch Input na transação

F-51.

Solução

Campos foram adicionados ao batch input.

Informações Complementares

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

Nota Número 02045 Data: 04/09/2006 Hora: 17:38:34

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

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

Nota Número              : 02045

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00130

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

REFINANCIAMENTO - BATCH INPUT F-51.

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

Palavras Chave:

REFINANCIAMENTO - BATCH INPUT F-51

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

Objetos da nota:

FUNC /PWS/ZYCM_TRANSACAO_F_51E

REPS /PWS/MZYCB114I01

REPS /PWS/MZYCM101F01

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

Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_51E

...

      ADD 1 TO v_cont.

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

      PERFORM bdc_field USING v_campo t_zycbt036-belnr.

      IF v_cont = 5.

        CLEAR v_cont.

* >> Início da exclusão:

        PERFORM bdc_screen USING 'SAPDF05X' '0731'.

* << Fim da exclusão

* >> Início da inclusão:

        PERFORM bdc_screen USING 'SAPMF05A' '0731'.

* << Fim da inclusão

        PERFORM bdc_field USING: 'BDC_OKCODE' '/00'.

      ENDIF.

    ENDLOOP.

    PERFORM bdc_field USING:

            'BDC_OKCODE'     '=PA'.

...

...

               'BDC_OKCODE'      '=GO'.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING:

               'BDC_CURSOR'      'DF05B-PSBET(02)',

               'BDC_OKCODE'      '=PI'.

* >> Início da inclusão:

    PERFORM bdc_screen USING 'SAPDF05X'   '3100'.

    PERFORM bdc_field USING: 'BDC_OKCODE' '=OMX'.

    PERFORM bdc_screen USING 'SAPDF05X'   '3100'.

    PERFORM bdc_field USING: 'BDC_OKCODE' '=Z+'.

* << Fim da inclusão

    IF t_dados-wrbtr GT 0.

      WRITE t_dados-wrbtr TO v_wrbtr CURRENCY t_dados-waers.

      PERFORM bdc_screen USING 'SAPDF05X' '3100'.

      PERFORM bdc_field USING:

                 'BDC_CURSOR'      'RF05A-NETTO',

...

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

Modificações efetuadas em REPS /PWS/MZYCB114I01

...

  SELECT SINGLE ftransf FROM /pws/zycbt113

                             INTO /pws/zycbt113-ftransf

                             WHERE nrseq = /pws/zycbe116-nrfinanc

                               AND tpparc = 'P'

                               AND nrparc = /pws/zycbe116-nrparc.

* >> Início da exclusão: MODULE ALTERA_ITAB_ZYCBT116

  IF /pws/zycbt113-ftransf EQ 'L'.

    itab_zycbt116-prazo = 'L'.

  ELSE.

    itab_zycbt116-prazo = 'S'.

  ENDIF.

* << Fim da exclusão

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

  itab_zycbt116-prazo = /pws/zycbt113-ftransf.

* << Fim da inclusão

  MODIFY itab_zycbt116 INDEX v_index.

  IF sy-subrc NE 0.

    READ TABLE itab_zycbt116_aux WITH KEY

                                 nrfinanc = itab_zycbt116-nrfinanc

                                 tpparc   = itab_zycbt116-tpparc

...

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

Modificações efetuadas em REPS /PWS/MZYCM101F01

...

ENDFORM.

FORM preenche_documentos.

  itab_zycbt036-tcode  = text-083.

  itab_zycbt036-tabela = text-008.

  itab_zycbt036-cpochv = itab_zycbt112-nrseq.

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

  READ TABLE itab_zycbt116 WITH KEY nrfinanc = itab_zycbt112-nrseq.

* << Fim da exclusão

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

  LOOP AT itab_zycbt116 WHERE nrfinanc = itab_zycbt112-nrseq.

* << Fim da inclusão

  CLEAR /pws/zycbt113-belnr.

  SELECT SINGLE belnr FROM /pws/zycbt113

                      INTO /pws/zycbt113-belnr

                      WHERE nrseq EQ itab_zycbt112-nrseq

                        AND nrparc EQ itab_zycbt116-nrparc

...

...

                      INTO itab_zycbt036-awkey

                      WHERE belnr EQ /pws/zycbt113-belnr

                        AND bukrs EQ itab_zycbt112-bukrs

                        AND gjahr EQ itab_zycbt112-dtdesem(4).

  APPEND itab_zycbt036.

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

    ENDLOOP.

* << Fim da inclusão

  itab_zycbt036-tcode  = text-083.

  itab_zycbt036-tabela = text-008.

  itab_zycbt036-cpochv = itab_zycbt112-nrseq.

  itab_zycbt036-belnr  = /pws/zycbe112-belnr.

  SELECT SINGLE awkey FROM bkpf

...