Sintoma

Criado uma liquidação de ACC com Pré pagamento, gerado o juros do contrato vinculado no processo

e feito o pagamento dos juros. Ao estornar o contrato da Liquidação de ACC com Pré sistema não

está estornado os documentos contábeis do complemento do boleto e da saída de pagamento.

Solução

O programa irá verificar se existe Boleto de Pagamento gerado para a Parcela de Juros (JL).

Quando existir, o sistema não permitirá que o contrato de Liquidação de ACC com Pré seja excluído.

Informações Complementares

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

Nota Número 11476 Data: 21/09/2011 Hora: 14:29:40

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

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

Nota Número              : 11476

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00009

Agrupamento              : 00086

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

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

LIQUIDAÇÃO DE ACC COM PRÉ, NÃO ESTORNAR CONTRATO QDO JUROS JL ESTÁ PAGO

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

Palavras Chave:

LIQUIDAÇÃO DE ACC COM PRÉ, NÃO PERMITIR ESTORNAR CONTRATO QUANDO JUROS

JL ESTIVER PAGO

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

Objetos da nota:

REPS /PWS/MZYCB001F04

REPS /PWS/MZYCB001I01

REPT /PWS/SAPMZYCB001

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

Modificações efetuadas em REPS /PWS/MZYCB001F04

...

      and ktosl   = 'FBK'

      and codaux1 = /pws/zycbe001-bcocred.

  read table itab_zyglt316 into wa_zyglt316

    with key konts = /pws/zycbe001-conta_contab.

  if sy-subrc ne 0.

    clear /pws/zycbe001-conta_contab.

    message e061 with text-544 v_contacontab

        text-545 /pws/zycbe001-bukrs.

  endif.

endform.

* >> Início da inclusão:

form verifica_boleto_acc_pre changing p_v_exc_bol.

  data: itab_zycbt061_bol type table of /pws/zycbt061,

        itab_zycbt004_bol type table of /pws/zycbt004,

        itab_zycbt031_bol type table of /pws/zycbt031,

        wa_zycbt004_bol   type /pws/zycbt004.

  clear: p_v_exc_bol.

  check not /pws/zycbe001-f_pre is initial.

  select * from /pws/zycbt061

   into table itab_zycbt061_bol

  where nrseq = /pws/zycbe001-nrseqc.

  check not itab_zycbt061_bol[] is initial.

  select * from /pws/zycbt004

   into table itab_zycbt004_bol

    for all entries in itab_zycbt061_bol

  where nrseqc = itab_zycbt061_bol-nrseq_c

    and tpdesp = 'JL'.

  check not itab_zycbt004_bol[] is initial.

  loop at itab_zycbt004_bol into wa_zycbt004_bol.

     select * from /pws/zycbt031

      into table itab_zycbt031_bol

     where nrcorresp  =  wa_zycbt004_bol-nrseqc

       and mdcorresp  =  'ED'

       and tpdesp     =  wa_zycbt004_bol-tpdesp.

     if sy-subrc eq 0.

        message i061 with text-546 wa_zycbt004_bol-nrseqc

                          text-547 text-548.

        p_v_exc_bol = 'X'.

        exit.

     endif.

  endloop.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB001I01

...

                                       field wa_zycbt001-nrseqcot.

        leave to transaction '/PWS/ZYCB116_E' and skip first screen.

      endif.

      leave program.

  endcase.

endmodule.

module user_command_cb001 input.

  data: e_subrc       like sy-subrc,

        e_exec_okcode.

  data: v_boleto.

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

  data: v_exc_bol(1) type c.

* << Fim da inclusão

  clear: e_exec_okcode, v_syrepid.

  call method cl_gui_cfw=>dispatch.

  if not r_okcode is initial.

    okcode = r_okcode.

  endif.

  clear itab_zyglt100.

  if itab_zyglt100[] is initial.

    v_syrepid = sy-repid.

    call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         exporting

...

...

      clear r_okcode.

      v_tela_help = '0051'.

      exit.

    when 'CLOSE'.

      clear r_okcode.

      v_tela_help = '0052'.

      exit.

    when 'CLI'.

      perform drill_down.

    when 'DELE'.

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

      clear v_exc_bol.

      perform verifica_boleto_acc_pre changing v_exc_bol.

      check v_exc_bol is initial.

* << Fim da inclusão

      if /pws/zycbe001-tpcontr(1) ca 'PSN'.

        loop at itab_zycbt002.

          read table itab_zycbt064 with key

            nrchave = itab_zycbt002-nrseqc

            nrparc  = itab_zycbt002-nrparc

            tpdesp  = itab_zycbt002-tpparc.

          if sy-subrc eq 0.

            v_boleto = 'X'.

            exit.

          endif.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCB001

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 546

Texto: (25 caracteres)

"Liq. ACC c/Pré - Contrato"

Comprimento máximo: 25

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 547

Texto: (23 caracteres)

"possui boleto de juros."

Comprimento máximo: 23

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 548

Texto: (23 caracteres)

"Exclusão não permitida."

Comprimento máximo: 23