Sintoma

Criação ponto de exit RME001

Solução

Criação ponto de exit RME001

Informações Complementares

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

Nota Número 03651 Data: 10/05/2007 Hora: 09:54:37

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

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

Nota Número              : 03651

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00165

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ROTINA MENSAL DE EXPORTAÇÃO - JUROS ACC X PRÉ

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

Palavras Chave:

ROTINA MENSAL DE EXPORTAÇÃO JUROS ACC X PRÉ

TAXA /PWS/ZYCBT062 ACC /PWS/ZYCBT002

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

Objetos da nota:

REPS /PWS/ZYCBR003

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

Modificações efetuadas em REPS /PWS/ZYCBR003

...

  itab_zycbt005_ence LIKE /pws/zycbt005 OCCURS 10 WITH HEADER LINE,

  itab_zycbt006_pos  LIKE /pws/zycbt006 OCCURS 10 WITH HEADER LINE,

  itab_zycbt006      LIKE /pws/zycbt006 OCCURS 20 WITH HEADER LINE,

  itab_zycbt006_aux  LIKE /pws/zycbt006 OCCURS 20 WITH HEADER LINE,

  itab_zycbt006_ence LIKE /pws/zycbt006 OCCURS 20 WITH HEADER LINE,

  itab_pagos         LIKE /pws/zycbt006 OCCURS  0 WITH HEADER LINE,

  itab_zycbt017      LIKE /pws/zycbt017 OCCURS 20 WITH HEADER LINE,

  itab_zycbt136      LIKE /pws/zycbt136 OCCURS 20 WITH HEADER LINE,

  itab_lancados      LIKE /pws/zycbt154 OCCURS 20 WITH HEADER LINE,

  itab_zyglt321      LIKE /pws/zyglt321 OCCURS  0 WITH HEADER LINE,

* >> Início da inclusão:

  itab_zycbt060      LIKE /pws/zycbt060 OCCURS  0 WITH HEADER LINE,

* << Fim da inclusão

  itab_period        LIKE casdayattr OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_contas OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt316.

DATA: END OF itab_contas.

DATA: BEGIN OF itab_zycbt062 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt062.

DATA: END OF itab_zycbt062.

DATA: BEGIN OF itab_modo OCCURS 0.

        INCLUDE STRUCTURE spopli.

DATA: END OF itab_modo.

...

...

               AND dtvencto LE s_dtentr.

    SELECT *

           FROM /pws/zycbt001

           INTO TABLE itab_zycbt001

           WHERE bukrs       EQ s_bukrs       AND

                 nrseqc      IN s_nrseqc      AND

                 tpcontr     IN s_tpcont      AND

                 f_encerrado <> v_f_encerrado AND

                 f_encerrado <> v_flag_e.

  ENDIF.

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

  IF NOT itab_zycbt062[] IS INITIAL.

    SELECT * FROM /pws/zycbt060

             INTO TABLE itab_zycbt060

             FOR ALL ENTRIES IN itab_zycbt062

             WHERE nrseq EQ itab_zycbt062-nrseq.

  ENDIF.

* << Fim da inclusão

  IF itab_zycbt001[] IS INITIAL.

    MESSAGE i222.

    STOP.

  ENDIF.

  SELECT *

         FROM /pws/zycbt002

         INTO TABLE itab_zycbt002p

         FOR ALL ENTRIES IN itab_zycbt001

         WHERE nrseqc = itab_zycbt001-nrseqc AND

               tpparc = 'P'.

...

...

    ENDIF.

  ENDIF.

ENDFORM.

FORM preenche_liq_and.

  CLEAR itab_relat.

  itab_relat-nrseqc   = itab_zycbt001-nrseqc.

  itab_relat-nrcontr  = itab_zycbt001-nrcontr.

  itab_relat-tpcontr  = itab_zycbt001-tpcontr.

  itab_relat-nrparcj  = itab_zycbt004-nrparc.

  itab_relat-dtde     = itab_zycbt062-dtinicio.

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

  itab_relat-dtate    = itab_zycbt062-dtvencto.

* << Fim da exclusão

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

  itab_relat-dtate    = itab_zycbt062-dtfinal.

  READ TABLE itab_zycbt060 WITH KEY

                              nrseq = itab_zycbt062-nrseq.

  IF sy-subrc EQ 0.

    IF itab_relat-dtate > itab_zycbt060-dtdesemb.

      itab_relat-dtate = itab_zycbt060-dtdesemb.

    ENDIF.

  ENDIF.

  itab_relat-bukrs    = itab_zycbt001-bukrs.

  itab_relat-gsber    = itab_zycbt001-gsber.

  itab_relat-bco      = itab_zycbt001-bconegoc.

* << Fim da inclusão

  itab_relat-txjtotal = itab_zycbt062-txjtotal.

  itab_relat-vlme     = itab_zycbt062-vlme.

  itab_relat-ftpj     = 'A'.

  itab_relat-waers    = itab_zycbt001-waers.

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

  READ TABLE itab_zycbt004 WITH KEY

                              nrseqc = itab_zycbt062-nrseq_c

                              tpdesp = 'J'

                              nrparc = '000'

                              dtincl = itab_zycbt062-dtincl.

  PERFORM preenche_contas_pgto.

* << Fim da inclusão

  PERFORM processa_calculo_juros USING itab_zycbt062-vlme

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

                                       itab_zycbt002j-txjtotal

                                       itab_zycbt002j-tptxjur

* << Fim da exclusão

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

                                       itab_zycbt062-txjtotal

                                       itab_zycbt062-tptxjur

* << Fim da inclusão

                                       itab_relat-dtde

                                       itab_relat-dtate

                                       itab_zycbt001-waers

                                       itab_zycbt011-ctmoed

                                       'A'.

ENDFORM.