benjnw

TYPES:
  BEGIN OF y_file,
    line TYPE xstring,
  END OF y_file.

DATA:
  t_line TYPE STANDARD TABLE OF xstring,
  t_file TYPE STANDARD TABLE OF y_file.
  

benjnw

    SELECT k~kunnr k~land1 k~name1 k~ort01 k~pstlz k~spras
           a~name1
      INTO TABLE lt_update_pf
      FROM kna1 AS k
      INNER JOIN adrc AS a
        ON k~adrnr = a~addrnumber
      FOR ALL ENTRIES IN gt_kna1_excel_pf
      WHERE k~kunnr = gt_kna1_excel_pf-kunnr
        AND k~loevm NE 'X'
        AND k~ktokd EQ 'Z006'.

benjnw

REPLACE ALL OCCURRENCES OF '#' IN VARIAVEL WITH space. 
REPLACE ALL OCCURRENCES OF REGEX '[\,\#]' IN s WITH space.
REPLACE ALL OCCURRENCES OF REGEX `[^0-9]` IN s WITH space.

CONDENSE no-gaps.
UNPACK VARIAVEL.

TRANSLATE p_valor   USING '. '.
CONDENSE  p_valor   NO-GAPS.

benjnw

BEGIN OF ty_template.
        INCLUDE STRUCTURE lfa1 AS lfa1 RENAMING WITH SUFFIX _lf.
        INCLUDE STRUCTURE lfb1 AS lfb1 RENAMING WITH SUFFIX _lb.
TYPES:
END OF ty_template.


SELECT *
  FROM lfa1 AS lf
  INNER JOIN lfb1 AS lb

benjnw

  DATA: lv_j_1bbase  TYPE j_1bbase,
        lt_j_1bnfstx TYPE TABLE OF j_1bnfstx,
        lr_taxes     TYPE RANGE OF j_1btaxtyp WITH HEADER LINE,
        ls_taxes     LIKE LINE OF lr_taxes.

* Exclui os impostos iniciados com "IPI"
  lr_taxes      = 'ECP'.
  lr_taxes-low  = 'IPI*'.
  APPEND lr_taxes.

benjnw

  SORT t_vibdmeas BY intreno meas.

  DATA l_sum_measval TYPE rebdmeasvalue VALUE 0.
  DATA ls_vibd_sum   TYPE ty_vibdmeas_sum.
  LOOP AT t_vibdmeas INTO DATA(ls_vibdmeas)
                          GROUP BY ls_vibdmeas-intreno.
    LOOP AT GROUP ls_vibdmeas INTO DATA(ls_vibdmeas_unit).
      IF ls_vibdmeas_unit-meas EQ 'A001'.
        l_sum_measval = ls_vibdmeas_unit-measvalue.
      ELSE.

benjnw

[function]
command=/h
title=Debugger
type=systemcommand