TDD_Samples/Fallstudie.abap at main · mindsquare-Custom-Solutions/TDD_Samples · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
*&---------------------------------------------------------------------*
*& Beschreibung:                                                       *
*& METERDATA MANAGER                                                   *
*&---------------------------------------------------------------------*
*& Quelle: https://github.com/dominikpanzer/ABAP-Meterdata-Manager/tree/main
*&---------------------------------------------------------------------*
CLASS zcl_meterdata_manager DEFINITION
  PUBLIC
  CREATE PUBLIC .

  PUBLIC SECTION.
    METHODS manage IMPORTING meterreadingvalue TYPE int4
                             date              TYPE dats
                             vks               TYPE int4
                             contract          TYPE char20
                   RETURNING VALUE(success)    TYPE abap_bool.
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.


CLASS zcl_meterdata_manager IMPLEMENTATION.


  METHOD manage.
    DATA: customer          TYPE char20,
          mrvalue_as_number TYPE string.
    DATA counter TYPE int4.
    DATA: zeabl TYPE TABLE OF zeabl.


    DATA eabl_old TYPE zeabl.
    DATA allright TYPE abap_Bool.

    mrvalue_as_number = meterreadingvalue.
    CONDENSE mrvalue_as_number.

* check if customer is valid
    IF meterreadingvalue IS NOT INITIAL.
      IF contract IS INITIAL.
        success = ''.
        EXIT.
      ELSE.
        IF meterreadingvalue > 0 AND strlen( mrvalue_as_number ) <= vks.
* Alle Ablesungen ermitteln
          SELECT * FROM zeabl WHERE vertrag = @contract INTO CORRESPONDING FIELDS OF TABLE @zeabl.

          " hier noch appenden und sotieren
          Zeabl = VALUE #( BASE zeabl ( ablbelnr = '' adat = date vertrag = contract zaehlerstand = meterreadingvalue ) ).
          SORT zeabl BY adat ASCENDING.
* allright
          allright = 'X'.
          LOOP AT zeabl ASSIGNING FIELD-SYMBOL(<eabl_line>).
            IF eabl_old-zaehlerstand > <eabl_line>-zaehlerstand OR lines( zeabl ) <> 12.
              allright = ''.
            ENDIF.
            Eabl_old = <eabl_line>.
          ENDLOOP.
          IF allright = ''.
            EXIT.
          ENDIF.
* calculate usage
          DATA(usg) = zeabl[ lines( zeabl ) ]-zaehlerstand - zeabl[ 1 ]-zaehlerstand.

          IF usg > 0.

*          CALL FUNCTION 'ZBILLIT'
*            EXPORTING
*              billdate = '99991231'
*              usage    = usg_text
*              contract = '0593053'.
*              success = 'X'.
            CALL FUNCTION 'ZBILLIT'
              EXPORTING
                billdate = sy-datum
                usage    = usg
                contract = contract.
            success = 'X'.
          ELSE.
            success = ''.
          ENDIF.
        ELSE.
          success = ''.
          IF usg IS INITIAL.
            success = ''.
          ENDIF.
        ENDIF.
      ENDIF.
    ELSE.
      success = ''.
    ENDIF.
  ENDMETHOD.
ENDCLASS.