Sintoma

Bloqueio de conta pelo mesmo usuário que inicia batch input.

Solução

Liberar a conta antes de gerar o batch input e logo depois bloquear novamente.

Informações Complementares

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

Nota Número 05502 Data: 19/12/2007 Hora: 16:44:20

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

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

Nota Número              : 05502

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00026

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO DE CONTRATO

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

Palavras Chave:

LIQUIDAÇÃO DE CONTRATO - BLOQUEIO DE CONTAS DO RAZÃO

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

Objetos da nota:

RELE F6DK956032 20071219 163758 PWSCB

REPS /PWS/MZYCB004F02

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

    PERFORM (itab_zyglt100-formulario)

            IN PROGRAM (itab_zyglt100-programa).

  ENDIF.

  APPEND itab_zycbe033.

  v_desmembramento = 'X'.

  CLEAR v_vinc_tot.

  LOOP AT itab_zycbt034.

    MESSAGE i016 WITH itab_zycbt034-descricao.

  ENDLOOP.

  IF itab_zycbt034 IS INITIAL.

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

  PERFORM unlock_razao USING itab_zycbe033-d_newko

                             itab_zycbe033-bukrs.

* << Fim da inclusão

    IF itab_zycbt006-tpcontr EQ 'DP'.

      MOVE 'X' TO v_dp.

    ENDIF.

    CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'

         EXPORTING

              v_modo          = v_modo_bi

              v_vinc_tot      = v_vinc_tot

              v_dp            = v_dp

         TABLES

              t_dados         = itab_zycbe033

              t_campo         = itab_zycbt034

              t_zycbt032      = itab_zycbt032

              t_zycbt036      = itab_zycbt036

              t_doctos        = itab_doctos

         EXCEPTIONS

              campo_em_branco = 1

              periodo_fechado = 2

              OTHERS          = 3.

    IF sy-subrc = 0.

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

      PERFORM enqueue_razao USING itab_zycbe033-bukrs

                                  itab_zycbe033-d_newko

                                  'X'.

* << Fim da inclusão

      READ TABLE itab_zycbt032 WITH KEY tcode  = 'F-30'

                                        tabela = 'ZYCBT006'

                                        cpochv = itab_zycbe033-cpochv

                                        tpmsg  = 'S'.

      IF sy-subrc EQ 0.

        itab_zycbt006-belnr_d = itab_zycbt032-belnr.

        MODIFY itab_zycbt006.

        LOOP AT itab_zycbt069 WHERE nrseqc   = itab_zycbt006-nrseqc

                                AND nrinvoic = itab_zycbt006-nrinvoic

                                AND dtvincul = itab_zycbt006-dtvincul

...

...

  ENDIF.

  LOOP AT itab_zycbt034.

    MESSAGE i016 WITH itab_zycbt034-descricao.

  ENDLOOP.

  IF /pws/zycbe001-tpcontr EQ 'DP'.

    v_dp = 'X'.

  ELSE.

    CLEAR v_dp.

  ENDIF.

  IF itab_zycbt034 IS INITIAL.

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

    PERFORM unlock_razao USING itab_zycbe033-d_newko

                               itab_zycbe033-bukrs.

* << Fim da inclusão

    CLEAR itab_zyglt100.

    IF itab_zyglt100[] IS INITIAL.

      v_syrepid = sy-repid.

      CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

           EXPORTING

                i_codmod                = 'E'

                i_func                  = v_syrepid

           TABLES

                itab_zyglt100           = itab_zyglt100

           EXCEPTIONS

...

...

                t_dados         = itab_zycbe033

                t_campo         = itab_zycbt034

                t_zycbt032      = itab_zycbt032

                t_partidas      = itab_partidas

           EXCEPTIONS

                campo_em_branco = 1

                periodo_fechado = 2

                OTHERS          = 3.

    ENDIF.

    IF sy-subrc = 0.

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

      PERFORM enqueue_razao USING itab_zycbe033-bukrs

                                  itab_zycbe033-d_newko

                                  'X'.

* << Fim da inclusão

      READ TABLE itab_zycbt032 WITH KEY tcode  = 'F-30'

                                        tabela = 'ZYCBT006'

                                        cpochv = itab_zycbe033-cpochv

                                        tpmsg  = 'S'.

      IF sy-subrc EQ 0.

        itab_zycbt006-belnr = itab_zycbt032-belnr.

        MODIFY itab_zycbt006.

        itab_contabil-nrinvoic = itab_zycbt006-nrinvoic.

        itab_contabil-nrparcf  = itab_zycbt006-nrparcf.

        CLEAR itab_contabil-vbeln.

...

...