Sintoma

 1-) quando é selecionado faturas para a vinculação, porém, nenhum documento é contabilizado, ou

seja, o BI não conclui nem o desmembramento, e o usuario entra no "vinculação - modificar" para

excluir as faturas da Table Control, as faturas deveriam sair a table control sem nenhuma

contabilização, pois não houve contabilização nenhuma na gravação das faturas, mas o programa entra

no BI indevidamente e faz um clearing do documento da captação.

2-) Se entramos na vinculação pelo atalho da captação, e ao sairmos o programa volta pra tela de

Menu, e o correto seria para a tela de captação, pois a entrada foi pelõ atalho da captação.

3-) Quando selecionamos uma fatura para a vinculação e clicamos no botão salvar sem clicarmos

informamos na coluna "Vl Vincul." o valor voinculado o programa demosntra a mensagem errada, está

domontrando a mensagem "Favor verificar fatura xxxx, já existe vinculação nessa data para a fatura"

o correto seria" favor informar o valor a ser vinculado para a fatura xxxxx".

Solução

1 - Ao salvar uma vinculação de ACC e não for concluído a primeira contabilização, em seguida sair

da vinculação e entrar novamente modificando, e tentar excluir as faturas o programa está apenas

excluindo e não está mais fazendo nenhuma contabilização.

2 - Quando entramos em vinculação pelo atalho na captação, contabilizamos a vinculação e apertamos o

botão voltar, agora o programa volta pra a tela de captação e não mais para o menu de cambio.

3 - Corrigida a mensagem quando o usuário clica em salvar sem ter digitado nenhum valor para a

fatura.

Informações Complementares

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

Nota Número 02667 Data: 12/12/2006 Hora: 09:29:26

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

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

Nota Número              : 02667

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00142

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

Referência às notas relacionadas:

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

02165  - 00001 - 6.0    - 00025  - VINCULAÇÃO ESTORNO FATURAS EXIBIR

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

VINCULAÇÃO - /N NA PRIMEIRA CONTABILIZAÇÃO ACC - TRATAMENTO DE TELAS -

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

Palavras Chave:

MENSAGEM ERRADA QUANDO CLICA NO BOTÃO SALVAR.

/N NA PRIMEIRA CONTABILIZAÇÃO ACC - TRATAMENTO DE TELAS -

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

Objetos da nota:

REPS /PWS/MZYCB009F01

REPS /PWS/MZYCB009F03

REPS /PWS/MZYCB009F10

REPS /PWS/MZYCB009I01

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

Modificações efetuadas em REPS /PWS/MZYCB009F01

...

    v_codeven_aux   LIKE v_codeven.

  DATA: BEGIN OF itab_ace_aux OCCURS 2.

  DATA: belnr TYPE belnr_d,

        budat TYPE datum,

        wrbtr TYPE wrbtr,

        prctr TYPE prctr.

  DATA: END OF itab_ace_aux.

  PERFORM limpa_itabs_contabil.

  PERFORM get_parameters_001.

  LOOP AT itab_vinc.

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

    IF itab_vinc-status EQ 'I'.

* << Fim da exclusão

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

    IF itab_vinc-status EQ 'I'

    OR itab_vinc-status EQ ' '.

* << Fim da inclusão

      v_grava = 'N'.

      EXIT.

    ENDIF.

    CHECK itab_vinc-statrans EQ 'F-02'.

    CLEAR v_ind_invert.

    IF itab_vinc-vldif GT 0.

      v_ind_invert = 'X'.

    ENDIF.

    PERFORM get_parameters_004 USING itab_vinc-dtvincul

                                     itab_vinc-dtvencto

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F03

...

              start_row      = 6

              cancel_display = 'X'

         IMPORTING

              answer         = v_resposta.

    IF v_resposta EQ 'A'.

      EXIT.

    ENDIF.

  ENDIF.

  CLEAR v_errofat.

  LOOP AT itab_zycbt005.

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

    IF itab_zycbt005-nrinvoic IS INITIAL.

      DELETE itab_zycbt005.

    ENDIF.

* << Fim da inclusão

    IF itab_zycbt005-nrinvoic IS INITIAL OR

       itab_zycbt005-vlvinc IS INITIAL.

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

      DELETE itab_zycbt005.

* << Fim da exclusão

      IF v_errofat IS INITIAL.

        MESSAGE i110 WITH text-281.

        v_errofat = 'X'.

      ENDIF.

      CONTINUE.

    ENDIF.

    IF v_resposta EQ 'J'.

      IF itab_zycbt005-dtpror IS INITIAL.

        MOVE itab_zycbt005-dtvencto TO itab_zycbt005-dtpror.

        MODIFY itab_zycbt005  TRANSPORTING  dtpror frcont ftxt  txtinf

                                             txtobs kostl  prctr fipos.

      ENDIF.

    ENDIF.

  ENDLOOP.

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

    IF v_errofat = 'X'.

      CLEAR v_errofat.

      EXIT.

    ENDIF.

* << Fim da inclusão

  CLEAR v_resposta.

  IF NOT v_ind_delecao IS INITIAL

   AND /pws/zycbe001-tpcontr NE 'DP'.

    LOOP AT itab_zycbt005_ant.

      READ TABLE itab_zycbt005 WITH KEY

                  nrseqc   = itab_zycbt005_ant-nrseqc

                  tpdesp   = itab_zycbt005_ant-tpdesp

                  nrparc   = itab_zycbt005_ant-nrparc

                  dtincl   = itab_zycbt005_ant-dtincl

                  nrinvoic = itab_zycbt005_ant-nrinvoic

...

...

    itab_zycbt005_aux, itab_zycbt005_ant, itab_zycbt005_excluidas.

  MOVE itab_zycbt005[] TO itab_zycbt005_aux[].

  MOVE itab_zycbt005[] TO itab_zycbt005_ant[].

  CLEAR ok_code.

  IF NOT itab_transport[] IS INITIAL.

    LEAVE PROGRAM.

  ENDIF.

  CLEAR v_erro_estorno.

  SET PARAMETER ID '001' FIELD /pws/zycbe001-nrseqc.

  SET PARAMETER ID '9999' FIELD /pws/zycbe005-dtvincul.

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

  LEAVE TO TRANSACTION '/PWS/ZYCB009_E' AND SKIP FIRST SCREEN.

* << Fim da exclusão

ENDFORM.

FORM altera_itab_zycbt005.

  DATA: subrc LIKE sy-subrc.

  v_index = tc_faturas-current_line.

  IF v_status_s EQ 0.

    READ TABLE itab_zycbt005_aux INDEX v_index.

    IF /pws/zycbe005-mark EQ 'X'.

      itab_zycbt005-mark = 'X'.

      itab_zycbt005_aux-mark = 'X'.

    ELSE.

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F10

...

  READ TABLE itab_desvincula

    WITH KEY nrinvoic = itab_zycbt005-nrinvoic

             nrparcf  = itab_zycbt005-nrparcf

             gsberf   = itab_zycbt005-gsberf  .

  IF sy-subrc EQ 0.

    MOVE: itab_desvincula-vldesvin TO wa_desvincula-vldesvin ,

          itab_desvincula-vldesvin TO /pws/zycbe005-vlestorno.

  ENDIF.

ENDFORM.

FORM altera_desvincula.

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

  IF ok_code = 'ESTOR' AND sy-tcode = '/PWS/ZYCB009_A'.

* << Fim da inclusão

  MOVE: itab_zycbt005-nrinvoic TO wa_desvincula-nrinvoic,

        itab_zycbt005-nrparcf  TO wa_desvincula-nrparcf ,

        itab_zycbt005-gsberf   TO wa_desvincula-gsberf  .

  READ TABLE itab_desvincula

    WITH KEY nrinvoic = wa_desvincula-nrinvoic

             nrparcf  = wa_desvincula-nrparcf

             gsberf   = wa_desvincula-gsberf  .

  IF sy-subrc EQ 0.

    IF itab_desvincula-vldesvin NE wa_desvincula-vldesvin.

      MODIFY itab_desvincula

        FROM wa_desvincula

        TRANSPORTING vldesvin

        WHERE nrinvoic EQ wa_desvincula-nrinvoic AND

              nrparcf  EQ wa_desvincula-nrparcf  AND

              gsberf   EQ wa_desvincula-gsberf.

    ENDIF.

  ELSE.

    APPEND wa_desvincula TO itab_desvincula.

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

  ENDIF.

* << Fim da inclusão

  ENDIF.

ENDFORM.

FORM efetua_estorno.

  PERFORM verifica_vldesvinc.

  CHECK v_executa IS INITIAL.

  LOOP AT itab_desvincula WHERE vldesvin GT 0.

    READ TABLE itab_zycbt005

      WITH KEY nrinvoic = itab_desvincula-nrinvoic

               nrparcf  = itab_desvincula-nrparcf

               gsberf   = itab_desvincula-gsberf.

...

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

Modificações efetuadas em REPS /PWS/MZYCB009I01