Sage: Arbeitsgang anlegen (CreateRoutingLineItem)

Sage: Arbeitsgang anlegen (CreateRoutingLineItem)

Anlegen eines Arbeitsgangs in einem Arbeitsplan. In der Eingabeparametergruppe können verschiedene Parameter mit den entsprechenden Werten belegt werden. Die Felder aplnr, agbs, arbplatz und kostst sind zwingend erforderlich. Folgende Parameter können verwendet werden: agaltern, agart, agben, agben_fremd, agbs, aggruppe, agmenge, agpos, anz_bedien, anz_huebe, aplidentnr, aplnr, aplvar, arbplatz, beregelung, bezte, chverfolg, datvon, einl_faktor, fam, frzeit, genau, identnr_fremdb, kavitaet, kn_milestone, kn_unterbr, konto, kostst, kurzben, kurzben_fremd, kz_durch, kz_kannag, kz_spl, kz_ueb, la, lgrp, lhs, lizeit_nach, lizeit_vor, maminlastzt, mate, matr, mauez, max_spl, me_bearb, mehrm, menge_bearb, muezeit, ncprognr, pers_grp, splmenge, stagnr, te, teko, tpzeit, tr, trko, txt_nr, uebmenge, uebproz, uezeit, useraen, userneu, var_fremdb. Hinweis: wenn die Felder teko und trko belegt werden sollen, muss auch das Feld agbs einen geigneten Wert erhalten und die Felder identnr_fremd und konto müssen mit geeigneten Werten belegt sein. Die Funktion liefert nach der Anlage des Arbeitsgangs in einer Parametergruppe dessen Daten zurück. Für Ein- und Ausgabe kann dieselbe Parametergruppe verwendet werden. Falls eine indizierte Parametergruppe vorliegt, so muss der Index mit angegeben werden. Falls der Arbeitsgang nicht angelegt werden kann, liefert der Service eine entsprechende Fehlermeldung. Diese wird über den Parameter Meldung übergeben. Vor einer Auswertung der Ausgabeparametergruppe sollte der Parameter Meldung überprüft werden.

Folgende Parameter der Parametergruppe werden gefüllt.: aendnr, agaltern, agart, agben, agben_fremd, agbs, aggruppe, agid, agmenge, agpos, anz_bedien, anz_huebe, aplidentnr, aplnr, aplvar, arbplatz, beregelung, bezte, chverfolg, datvon, einl_faktor, fam, frzeit, genau, identnr_fremdb, kavitaet, kn_milestone, kn_unterbr, konto, kostst, kurzben, kurzben_fremd, kz_durch, kz_kannag, kz_spl, kz_ueb, la, lgrp, lhs, lizeit_nach, lizeit_vor, maminlastzt, mate, matr, mauez, max_spl, me_bearb, mehrm, menge_bearb, muezeit, ncprognr, pers_grp, splmenge, stagnr, te, tpzeit, tr, uebmenge, uebproz, uezeit, useraen, userneu, var_fremdb.

proc void create_arbeitsplan(  )
{
   int i;
   int Anzahl;
   string PGName;

   // Belegen des Service Namen
   B7Service = 'http://b7demo.sagebaeurer.de/br71/callin/epos_soap';

   // Belegen der Daten des Arbeitsplankopfs
   arpl_kopf.aplidentnr = 'BNUESSLE-T02';
   arpl_kopf.art = 1;

   // Belegen der Daten der Arbeitsgänge
   arpl_pos[1].agbs = 10;
   arpl_pos[1].arbplatz = 103;
   arpl_pos[1].kostst = 0;
   arpl_pos[1].agben = 'Saegen';
   
   arpl_pos[2].agbs = 10;
   arpl_pos[2].arbplatz = 121;
   arpl_pos[2].kostst = 1;
   arpl_pos[2].agben = 'Montieren';

   // Anlegen des Arbeitsplankopfs
   Status = f$SageService ( B7Service , 'CreateRouting' , 'arpl_kopf' , 'arpl_kopf' );
   if (f$IstNullZahl('arpl_kopf.aplnr') == 0)
   {
      f$Meldung ('Sage Meldung', Meldung);
      return ();
   }

   // Anlegen der Stücklistenpositionen
   Anzahl = 2;
   for ( i=1;i<=Anzahl;i=i+1)
   {
      arpl_pos[i].aplnr = arpl_kopf.aplnr;
      PGName = 'arpl_pos[' + f$ZahlzuText(i) + ']';
      Status = f$SageService ( B7Service , 'CreateRoutingLineItem' , PGName , PGName );
   }
   p$anzeige_ergebnis('arpl_kopf' );
   p$anzeige_ergebnis('arpl_pos' );