Für den Artikel 4711 soll die Menge 500.000 g in kg umgeschlüsselt werden.

Result := BMD_GET_QUANTITY_IN_UNIT(1, '4711', 500000, 'g', 'kg');

Liefert den Wert: 500000 (g).

Beispiel 1:

 

BMD_SHOWMESSAGE(

'Die Aufstellung für 3000.2 kg in der Einheiten-Tabelle 152 lautet: ' +

BMD_GET_UNITASSEMBLY(50 ,152, 3000.2, 'kg') );

Liefert den Text: "Die Aufstellung für 3000.2 kg in der Einheiten-Tabelle 152 lautet: 3 t 0,2 kg".

Beispiel 2:
BMD_SHOWMESSAGE(

'Die Einheitenaufstellung für 981.9 kg lautet für Artikel "Erdbeeren": ' +

BMD_GET_ARTICLE_UNITASSEMBLY(1,'Erdbeeren', 981.9, 'kg') );

 

Liefert den Text: "Die Einheitenaufstellung für 981.9 kg lautet für Artikel "Erdbeeren": 1 Container 181,9 kg".

Meldungsausgabe nach der Mischung:

Es wurde ein neues Produktionslos (ohne Bezug zu einem Auftrag, dh. die Felder "Erf.Kz." und "Erf.Nr" sind leer) angelegt:

→ Als Materialeinsatz wurden die Lagerkonten vom Tank 1 verwendet.

→ Als Produkt wurde die Nougatfülle zugebucht:

// ==============================================
// Erstelldatum des Ausweises : 19.05.2017 08:49
// Ersteller : BMDWWS#1
// Beschreibung : Übergabe Zusatzdaten für Produktanlage
// ==============================================

Zusatzdaten := 'MCA_PCP_QTY_REG_DATUM=19.05.2017;MCA_PCP_FREIFELDA01_120=via Makro angelegt';
result := BMD_PCP_INSERT(1, 'nb012', 342440848000208, 1, 'Stk', 1, '', '2017-000354', Zusatzdaten);

// ==============================================
// Erstelldatum des Ausweises : 19.05.2017 08:49
// Ersteller : BMDWWS#1
// Beschreibung : Materialeinsatz buchen
// ==============================================

lPLosId  := MCA_PLC_PCHARGENID;
BMD_EPS_INSERT(1, 'dru007', lPLosId, 1, 'Stk', 2, '', '', '');

      // Hinzufügen einer erweiterten Materialeinsatzzeile:

      // Übergabe mit Farbe, Größe

BMD_EPS_INSERT_EXT (    lFirma,
                                lArtikelFirma,
                                lArtikelNr,
                                lPLosId,
                                lMenge,
                                lEh,
                                lLagerFirma,
                                lLagerNr, 
                                lLagerPl,
                                lChargenFirma,
                                lChargenNr,
                                lFarbenFirma,
                                lFarbe,
                                lGroessenFirma,
                                lGroesse   );

// ==============================================
// Erstelldatum : 14.06.2018 09:34:48
// Ersteller : BMDWWS#1
// Eingerichtet von/am :
// Beschreibung : Fenstermakro im Fenster Produktionslose (MCS_MDPPSPRODCHARGEMGR_LIST_CREATE)
// ==============================================  

lFirmenNr     := MCA_PLC_FIRMENNR();
lPLosId   := MCA_PLC_PCHARGENID();

lLagerNr      := 1;
lLagerPl      := '';

lArtikelNr    := 'Roh1';
lFarbenNr     := -1;
lGroessenKBez := '';
lProzessNr    := '';
lQStatus      := 21;
lAIDMerkmal1  := '';
lAIDMerkmal2  := '';
lChargenNr    := ''
lSerienNr     := '';
lMenge        := 10;
lEinheit      := 'kg';

lSSCC            := '';
lVerarbeiter     := 'BMD';
lKommissionierer := 'BMD';
lVerarbeitDatum  := '01.06.2018'; // BMD_DATE();
lKommissDatum    := '01.06.2018'; // BMD_DATE();

lMaterial := WwsPpsMacroClasses.CreateMaterialConsumption();  // Erzeugt ein Objekt zur Nacherfassung von Materialeinsätzen

// alles bisher gesetzte löschen (eig. nur bei einem weiteren Aufruf nötig)
lMaterial.ClearKeys();

// optional: Informationen zum Lager
lMaterial.SetStockKey(lFirmenNr, lLagerNr, lLagerPl); // LagerKey setzen
lMaterial.SetAccountingText('Buchungstext für Stkl-Position und Lagerbuchung'); // Buchungstext setzen

// optional: AID
if lFarbenNr <> ''     then lMaterial.SetArticleColorKey(lFirmenNr, lFarbenNr); // Farbe setzen
if lGroessenKBez <> '' then lMaterial.SetArticleSizeKey(lFirmenNr,  lGroessenKBez); // Groesse setzen
if lProzessNr <> ''    then lMaterial.SetArticleProcessKey(lFirmenNr, lProzessNr); // Prozess setzen
if lQStatus <> ''      then lMaterial.SetArticleQStatus(lQStatus); // Q.Status

if (lAIDMerkmal1 <> '') OR (lAIDMerkmal2 <> '') then begin
 lMaterial.SetArticleAttributes(lAIDMerkmal1, lAIDMerkmal2); // M1+M2
end;

// optional: Alternative zum Setzen der AID-Informationen
{lMaterial.SetArticleIdentification(
  lFirmenNr, lFarbenNr, // Farbe
  lFirmenNr, lGroessenKBez, // Groesse
  lFirmenNr, lProzessNr, // Prozess 
  lQStatus, // Q.Status
  lAIDMerkmal1, lAIDMerkmal2);}

// optional: Charge
lMaterial.SetLotKey(lFirmenNr, lChargenNr);

// optional: Seriennummer
lMaterial.SetSerialKey(lFirmenNr, lSerienNr);

// optional: SSCC
lMaterial.SetSSCC(lSSCC);

// optional: Verarbeiter und Vorbereiter
lMaterial.SetAssembleUser(lVerarbeiter);
lMaterial.SetAssembleDate(lVerarbeitDatum);
lMaterial.SetPreparationUser(lKommissionierer);
lMaterial.SetPreparationDate(lKommissDatum);

// Aufruf der Erzeugung/Rückmeldung, die folgenden Übergaben sind zwingend.
//  auf lOk wird TRUE/FALSE (1/0), je nach Erfolg der Methode zugewiesen
lOk := lMaterial.RecordMaterialConsumption(lFirmenNr, lFirmenNr, lArtikelNr, lPLosId, lMenge, lEinheit); 

if lOk = 1 then begin
 // Liefert die zuletzt erzeugte EPSId, falls man damit weiterarbeiten möchte/muss
 lEpsId := lMaterial.GetLastRecordedPieceListId()
 BMD_SHOWMESSAGE(BMD_CONCAT('Buchung erfolgreich ausgeführt - gebuchte Stücklisten-Id: ', lEpsId ) );
end;

Für den folgenden Einsatz wird die Funktion "Einlasten" aufgerufen:

Ergebnis in der Zwischenablage:

"DispatchFunction=pdfPlc;DispatchMode=5;DispatchDateType=pddNone;DispatchDate=44986;DispatchDateRev=-1;

SingleVgElTyp=-1;DispatchRelative=pdrNone;ApplyOn=1;ConcatDate=False;Manual=False;DispatchCombined=False;

ResetOverride=True;DispatchUnplaned=False;DispatchDateRel=0;DispatchDateRevRel=0;DispatchPpc=True;

DispatchOp=True;SaveToExpected=False;ResetFixed=False;DispatchActive=True"

Im Fenster "Einsätze" wurde dann dieses Fenstermakro erstellt, das dann im Anschluss für den ausgewählten Einsatz ausgeführt wird.

Mit dem Ausdruck eines PPS-Produktetiketts soll der Unterschied verdeutlicht werden. Auf Seite 1 des Produktetiketts beginnt der PPS-Zähler bereits bei 3, obwohl bei beiden als Startwert 0 angenommen wurde.

 

Makrotexte der beiden Zähler:

 

var1 := BMD_TEXTTONUMDEF(var1) + 1;
result := var1;

 

BMD_C_X_ADD('zaehler','1');
result := BMD_C_X_R('zaehler','1');