Sintoma

O programa está colocando status como encerrado para as captações antes de ser contabilizado a

rotina de estorno.

Solução

Alteração na include /PWS/ZYCBI003 e no programa /PWS/ZYCBR003, form processa_encerrado, refazendo a

consistência para mudar a captação para contabilizada ou encerrada.

Informações Complementares

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

Nota Número 05414 Data: 07/12/2007 Hora: 16:01:14

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

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

Nota Número              : 05414

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00024

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ROTINA MENSAL

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

Palavras Chave:

ROTINA MENSAL

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

Objetos da nota:

REPS /PWS/ZYCBI003

REPS /PWS/ZYCBR003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

...

  PERFORM exibe_cabecalho_contabil.

  REFRESH itab_contabil.

  IF wa_zycbt007-fprovisao = 'C'.

    SORT itab_relat BY tpcontab nrseqc ftpj nrparcp nrparcj bukrs waers

                    gsber tpcontr d_newko c_newko bco vlrprov.

  ELSE.

    SORT itab_relat BY tpcontab bukrs waers gsber

                     tpcontr d_newko c_newko bco.

  ENDIF.

  PERFORM processa_aberto.

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

  PERFORM processa_encerrado.

* << Fim da exclusão

ENDFORM.

FORM preenche_itab_contabil

              USING value(p_vlmej)

                    value(p_impr)

              CHANGING value(v_vlrjprov).

  IF wa_itab_relat-tpcontab = 'T' AND p_vlmej IS INITIAL.

    EXIT.

  ENDIF.

  MOVE-CORRESPONDING wa_itab_relat TO itab_contabil.

  itab_contabil-vlmetransf = wa_itab_relat-vlmetransf.

...

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

Modificações efetuadas em REPS /PWS/ZYCBR003

...

  v_codaux1       LIKE /pws/zyglt316-codaux1,

  v_confirm(1)    TYPE c VALUE space,                       "#EC NEEDED

  v_txt_f(95)     TYPE c VALUE space,                       "#EC NEEDED

  v_tamr          TYPE i VALUE 254,

  v_nrlines       TYPE i,

  v_per_dias      TYPE i,

  v_nrdias        TYPE i,                                   "#EC NEEDED

  v_base_dias     TYPE i,

  v_lin           TYPE i,

  v_imp           TYPE i,

* >> Início da inclusão:

  v_ec            TYPE i,

* << Fim da inclusão

  v_nrparcj       TYPE /pws/zycbt002-nrparc,

 v_programa       TYPE sy-cprog,

  v_defator       LIKE tcurr-ffact,

  v_parafator     LIKE tcurr-tfact,

  v_separa        TYPE c,

  v_vlprov_aux    LIKE /pws/zycbt004-vlme,

  v_liq           type c.

SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.

PARAMETERS: s_bukrs  LIKE /pws/zycbt001-bukrs OBLIGATORY,

            s_dtentr LIKE sy-datum OBLIGATORY.

...

...

  PERFORM seleciona_dados.

  PERFORM processa_dados.

  SET PF-STATUS '003' EXCLUDING 'CONT'.

END-OF-SELECTION.

AT USER-COMMAND.

  CASE sy-ucomm.

    WHEN 'RCON'.

      PERFORM processa_dados_contabil.

    WHEN 'CONT'.

      PERFORM processa_contabilizacao.

* >> Início da inclusão:

      IF wa_zycbt007-fprovisao = ''.

        PERFORM processa_encerrado.

      ENDIF.

* << Fim da inclusão

      PERFORM processa_encerramento.

    WHEN 'MODO'.

      PERFORM modo_batch_input.

    WHEN 'INFO'.

      CALL FUNCTION 'POPUP_DISPLAY_TEXT'

           EXPORTING

                language       = sy-langu

                popup_title    = text-119

                start_column   = 10

                start_row      = 3

...

...

                                         itab_zycbt001-waers

                                         itab_zycbt011-ctmoed

                                         p_tpjuros.

  ENDIF.

ENDFORM.

FORM processa_acc.

  DATA v_slvinc LIKE /pws/zycbt005-vlvinc.

  itab_zycbt006_aux[] = itab_zycbt006[].

  LOOP AT itab_zycbt001 WHERE tpcontr(1) CA 'AETD'.

    PERFORM seleciona_data_operacao.

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

    IF itab_zycbt001-f_encerrado = 'I'.

      itab_zycbt001-f_encerrado = 'E'.

      MODIFY itab_zycbt001.

      UPDATE /pws/zycbt001 SET f_encerrado = 'E'

                        WHERE nrseqc = itab_zycbt001-nrseqc.

    ENDIF.

* << Fim da exclusão

    CLEAR v_slvinc.

    v_slvinc = itab_zycbt001-slvinc.

    LOOP AT itab_zycbt005_pos WHERE nrseqc = itab_zycbt001-nrseqc.

      v_slvinc = v_slvinc + itab_zycbt005_pos-vlvinc.

    ENDLOOP.

    PERFORM processa_saldo_acc USING v_slvinc

                                     s_dtentr

                                     'A'.

    PERFORM processa_vinculacoes.

    IF NOT itab_zycbt062[] IS INITIAL.

...

...

  DELETE itab_contabil WHERE tpcontr IS initial.

ENDFORM.

FORM processa_encerrado.

  FORMAT COLOR COL_KEY.

  SKIP 2.

  ULINE.

  WRITE: / sy-vline, text-062,

           AT sy-linsz sy-vline.

  ULINE.

  FORMAT RESET.

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

  CLEAR: v_ec.

  itab_relat_aux[] = itab_relat[].

* << Fim da inclusão

  SORT itab_relat BY nrseqc.

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

  LOOP AT itab_relat WHERE vlrprov IS initial AND

                           f_encerrado = 'I'.

    ON CHANGE OF itab_relat-nrseqc.

* << Fim da exclusão

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

  LOOP AT itab_relat WHERE f_encerrado = 'I'.

      LOOP AT itab_relat_aux WHERE nrseqc = itab_relat-nrseqc AND

                                 ( vlrprov    NE 0  OR

                                   vlirprov   NE 0  OR

                                   vlmetransf NE 0 ).

        EXIT.

      ENDLOOP.

      IF sy-subrc NE 0.

          v_ec = 1.

* << Fim da inclusão

      UPDATE /pws/zycbt001 SET f_encerrado = 'E'

                     WHERE nrseqc = itab_relat-nrseqc.

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

      IF sy-subrc EQ 0.

* << Fim da exclusão

        WRITE : / text-061, itab_relat-nrseqc,

                  AT sy-linsz sy-vline.

      ENDIF.

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

    ENDON.

* << Fim da exclusão

  ENDLOOP.

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

  IF sy-subrc NE 0.

* << Fim da exclusão

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

  IF v_ec = 1.

* << Fim da inclusão

    WRITE : / sy-vline, text-063,

              AT sy-linsz sy-vline.

  ENDIF.

...