Über SAP HR, Infotyp 0015, wird die Personalnummer zu dem angemeldeten Benutzer gelesen. "Meine Kunden" sind dann alle Kunden, für die als "Vertriebsbeauftragter" (Partnerrolle VE)  in den Vertriebsbereichsdaten diese Personalnummer eingetragen ist.

VB.net

Als Parameter erhält die Methode das CIS-Dictionary-Objekt, dem Sie den Benutzernamen, die Organisationsdaten und, falls über SAP HR verfügbar, die Personalnummer entnehmen können. Die Kundennummern stellen Sie dann in den Parameter "customernumbers", der in VB.NET als Array von Strings parametrisiert ist. Sie liefern in der Methode "True" zurück, wenn CIS mobile Ihre Kundenliste verwenden soll.

Beispiel

Als Beispiel implementieren wir wie in CIS mobile  die Zuordnung über die VE-Partnerrolle. Zum Lesen der Daten benutzen wir eine ABAP Routine "MYCLIENTS" in dem Add-On-Funktionsbaustein "/GUIXT/CISADDON_INTERFACE".

Erläuterungen zur hier verwendeten Technik finden Sie im Abschnitt "Daten aus dem SAP-System lesen".

VB.net

Die ABAP-Routine "MYCLIENTS" im Funktionsbaustein "/GUIXT/CISADDON_INTERFACE":

* Read my clients  SAMPLE CODING
* 1 Personal number
* 2 VKORG xxxx
* 3 VTWEG xx
* 4 SPART xx
*
* Out
*  List of KUNNR
form MYCLIENTS tables reqparm resparm   changing   rc type c   msg type c.

  data: pernr like pa0105-pernr.
  data: vkorg like knvp-vkorg.
  data: vtweg like knvp-vtweg.
  data: spart like knvp-spart.

  Read Table reqparm index 1 into pernr.
  Read Table reqparm index 2 into vkorg.
  Read Table reqparm index 3 into vtweg.
  Read Table reqparm index 4 into spart.

* Customer numbers
  data: begin of customers occurs 10,
          kunnr like kna1-kunnr,
        end of customers.


  Select kunnr
     from KNVP
        into table customers

         where vkorg = vkorg
         and   vtweg = vtweg
         and   spart = spart
         and   pernr = pernr
         and   parvw = 'VE'.

*  return customers
   Loop at customers.
      resparm = customers-kunnr.
      Append resparm.
   Endloop.

Endform.