SPED - Convênio 87/2015 - erro no contador do bloco E

[edson_suzuki]

  Alguém reparou que o contador do bloco E não está contabilizando as linhas do bloco E300 nas linhas do bloco E990  ??  Será q a SAP vai disponilizar uma nota de correção ??

METHOD set_block_e_reg_e990.
   DATA:
     l_tot_lines         TYPE i,
     l_subtot_lines      TYPE i,
     l_lines_value       TYPE string,
     lt_result           TYPE STANDARD TABLE OF mty_result,
     l_line              TYPE string,
     ls_result           TYPE mty_result,
     l_flag              TYPE char1.

  CLEAR:
     l_flag.
   CALL METHOD get_use_buffer
     IMPORTING
       e_flag = l_flag.

   IF NOT l_flag IS INITIAL.
   CLEAR:
     l_subtot_lines.
   DESCRIBE TABLE mt_group_e001
            LINES l_subtot_lines.
   l_tot_lines = l_subtot_lines.

   CLEAR:
     l_subtot_lines.
   DESCRIBE TABLE mt_group_e100
            LINES l_subtot_lines.
   l_tot_lines = l_tot_lines + l_subtot_lines.

   CLEAR:
     l_subtot_lines.
   DESCRIBE TABLE mt_group_e200
            LINES l_subtot_lines.
   l_tot_lines = l_tot_lines + l_subtot_lines.

   CLEAR:
     l_subtot_lines.
   DESCRIBE TABLE mt_group_e500
            LINES l_subtot_lines.
   l_tot_lines = l_tot_lines + l_subtot_lines.
   else.
    CLEAR:
       l_subtot_lines.
     REFRESH:
       lt_result.
     CALL METHOD import_result
       EXPORTING
         i_reg     = mc_e001
       IMPORTING
         et_result = lt_result.
     DESCRIBE TABLE lt_result
              LINES l_subtot_lines.
     l_tot_lines = l_subtot_lines.

     CLEAR:
       l_subtot_lines.
     REFRESH:
       lt_result.
     CALL METHOD import_result
       EXPORTING
         i_reg     = mc_e100
       IMPORTING
         et_result = lt_result.
     DESCRIBE TABLE lt_result
              LINES l_subtot_lines.
     l_tot_lines = l_tot_lines + l_subtot_lines.

     CLEAR:
       l_subtot_lines.
     REFRESH:
       lt_result.
     CALL METHOD import_result
       EXPORTING
         i_reg     = mc_e200
       IMPORTING
         et_result = lt_result.
     DESCRIBE TABLE lt_result
              LINES l_subtot_lines.
     l_tot_lines = l_tot_lines + l_subtot_lines.

     CLEAR:
       l_subtot_lines.
     REFRESH:
       lt_result.
     CALL METHOD import_result
       EXPORTING
         i_reg     = mc_e500
       IMPORTING
         et_result = lt_result.
     DESCRIBE TABLE lt_result
              LINES l_subtot_lines.
     l_tot_lines = l_tot_lines + l_subtot_lines.

   endif.
   ADD 1 TO l_tot_lines.
   MOVE:
     l_tot_lines TO l_lines_value.
   CONCATENATE mc_pipe
               mc_e990
               mc_pipe
          INTO l_line.
   CONCATENATE l_line
               l_lines_value
               mc_pipe
*              mc_crlf
          INTO l_line.
   CONDENSE l_line NO-GAPS.

   CLEAR:
     ls_result.
   ls_result-reg         = mc_e990.
   ls_result-f_rec_value = l_line.
   APPEND ls_result     TO mt_group_e990.


ENDMETHOD.

[edson_suzuki]

A SAP já disponibilizou nota de correção para o problema. 0002283997

Att. Suzuki

[Former Member]

Obrigado Edson,

[former_member693657]

Boa tarde!

Ainda estamos com problema, estamos aguardando o retorno da SAP.

att,

Cícero

[Former Member]

Bom dia Cicero,

Recebeu retorno da SAP quanto ao erro.

Estamos com mesmo problema aqui.

Abs.