TBeProductionPartListBO

Die Klasse TBeProductionPartListBO kapselt Eigenschaften und Funktionen von Auftragsstücklisten der Produktion.
Die Klasse ist aktuell nur Read-Only!
Verfügbar ab Version 6.0.62.138

Eigenschaften

Eigenschaft	Beschreibung
CbProdOrderPosNo:C	Bestell/Pos./Lfd.Nr 6+2+3 (entspricht DAB240:B_POS_LFD)
CbMainArticleNo:C	Aritkel-Nr Fertigteil (entspricht DAB240:ARTNR1)
CbArticleNo:C	Artikel-Nr Standardbauteil (entspricht DAB240:ARTNR2)
CbReplacement_ArticleNo_1:C	Artikel-Nr Ersatzbauteil (entspricht DAB240:ARTNR_E)
CbReplacement_ArticleNo_2:C	Artikel-Nr Ersatzbauteil + 1 (entspricht DAB240:ARTNR_E1)
CbReplacement_ArticleNo_3:C	Artikel-Nr Ersatzbauteil + 2 (entspricht DAB240:ARTNR_E2)
CbReplacement_ArticleNo_4:C	Artikel-Nr Ersatzbauteil + 3 (entspricht DAB240:ARTNR_E3)
CbReplacement_Convert_1:N	Umrechnungs-Faktor für Ersatz-Art. +1 (entspricht DAB240:UMR_E1)
CbReplacement_Convert_2:N	Umrechnungs-Faktor für Ersatz-Art. + 2 (entspricht DAB240:UMR_E1)
CbReplacement_Convert_3:N	Umrechnungs-Faktor für Ersatz-Art. + 3 (entspricht DAB240:UMR_E1)
CbPosNo:C	Stücklisten-Positions-Nummer (entspricht DAB240:POSNR)
CbProdDepartment:C	Produkt.Abteilung (abweichend) (entspricht DAB240:PROD_ABT)
CbOperationPartID:N	Zuordnung zu Arbeitsgang (entspricht DAB240:ARBG_TEIL)
CbOperationMasterID:N	Vorhergehender Arbeitsgang (entspricht DAB240:ARBG_ID)
CbOperationDelta:N	Zeitabstand zum vorhergehenden Arbeitsgang. (entspricht DAB240:ARBG_DELTA)
CbOperationDeltaFactor:N	Einheit Zeitabstand(entspricht DAB240:ARBG_DFAKT)
CbOperationRelation:C	Beziehung zum vorhergehenden Arbeitsgang (entspricht DAB240:ARBG_REL)
CbMinimumQuantity:N	Mindestmenge (entspricht DAB240:MIND_MENGE)
CbParallelizationQuantity:N	Parallelisierungsmenge (entspricht DAB240:PARA_MENGE)
CbSetupOrProductionTime:C	Rüstzeit/Stückzeit (entspricht DAB240:R_S)
CbTool:L	Werkzeug-Position (entspricht DAB240:WERKZEUG)
CbTimeRecord_Factor:N	Multiplikator Arbeitsgang-Menge(entspricht DAB240:BDE_FAKTOR)
CbToolCount:N	Anzahl Werkzeuge (entspricht DAB240:ANZ_WERKZG)
CbToolQuantity:N	Fertigungsmenge je Werkzeug (entspricht DAB240:MEN_WERKZG)
CbArticleType:C	Artikel-Typ(entspricht DAB240:ARTTYP)
CbDebit:N	Soll-Menge / Verbrauch(entspricht DAB240:SOLL)
CbFixDebit:N	Soll-Menge / Fest (entspricht DAB240:FIX_SOLL)
CbRejects:N	Soll-Ausschuss in % (entspricht DAB240:AUSSCHUSS)
CbCurrent:N	Ist-Menge / Verbrauch (entspricht DAB240:IST)
CbCurrRejects:N	Ist-Menge Ausschuss (entspricht DAB240:IST_AUSSCH)
CbCurrentBuild:N	Ist-Menge ausgebucht (LAGERP) (entspricht DAB240:IST_AUSGEB)
CbYieldQuantity:N	Gefertigte Menge des Arbeitsganges(entspricht DAB240:MENGE)
CbScrapQuantity:N	Gerfertigter Arbeitsgang-Ausschuss(entspricht DAB240:MENGE_AUSS)
CbCostValueSum:N	Einstandswert der Buchung (entspricht DAB240:EK_WERT)
CbCostValueSumPostedToStock:N	Einstandswert ausgebucht (entspricht DAB240:EK_WERT_AG)
CbDimensionQuantity:N	Stückzahl (bei Dimensionen) (entspricht DAB240:DIM_MENGE)
CbDimension_Length:N	Dimension - Länge (entspricht DAB240:DIM_1)
CbDimension_Width:N	Dimension - Breite (entspricht DAB240:DIM_2)
CbDimension_Height:N	Dimension - Höhe (entspricht DAB240:DIM_3)
CbBackQuantity:N	Reservierte Menge (entspricht DAB240:RUECKS_PR)
CbPriorityQuantity:N	Fest gebundene Menge (entspricht DAB240:PRIOR_PR)
CbOrderAssignQuant:N	Auftrags-spezifische Zugangsmenge (entspricht DAB240:M2_MENGE)
CbReserved:N	Umbuchung in Produktionslager (entspricht DAB240:RESERV)
CbPurchPrice:N	Einkaufs-Preis (entspricht DAB240:EKP)
CbPriceUnit:N	Preis-Einheit (entspricht DAB240:PE)
CbSurcharge:N	Zuschlag je Mengen-Einheit (entspricht DAB240:ZUSCHLAG)
CbReplacement_PurchPrice:N	Einkaufs-Preis Ersatzbauteil (entspricht DAB240:EKP_E)
CbReplacement_PriceUnit:N	Preis-Einheit Ersatzbauteil(entspricht DAB240:PE_E)
CbReplacement_Surcharge:N	Zuschlag je Mengen-Einheit Ersatzbauteil (entspricht DAB240:ZUSCHLAG_E)
CbStore:N	Lager-Nummer (entspricht DAB240:LAGER)
CbStorePlaces:C	Lager-Orte / Mengen (entspricht DAB240:LAG_ORT)
CbLastChanged:D	Buchdatum (entspricht DAB240:BUCH_DATUM)
CbInvoiceDate:D	Datum Material-Reservierung(entspricht DAB240:R_DATUM)
CbAccountDate:D	Datum Material-Umbuchung -> P (entspricht DAB240:B_DATUM)
CbProductionStartDate:D	Datum Produktionsbeginn(entspricht DAB240:S_DATUM)
CbProductionFinishDate:D	Datum Fertigstellung (entspricht DAB240:P_DATUM)
CbDispoNo:C	Dispositions-Nummer der Material-Buchung (entspricht DAB240:DISPONR)
CbSupplierNo:N	Zulieferer-Nummer (entspricht DAB240:LINR)
CbForeignPurchPrice:N	Einkaufs-Preis (entspricht DAB240:EKPFW)
CbPriceUnitPurch:N	Einkaufs-Preiseinheit (entspricht DAB240:PE_EK)
CbCurrencyID:N	Einkaufs-Währung (entspricht DAB240:WAEKZ)
CbMemo:C	Arbeitstext (entspricht DAB240:MEMO)
CbLocation:N	Standort (entspricht DAB240:STANDORT)
CbPartListID:N	Stücklisten-ID (entspricht DAB240:ID)

Funktionen

Funktion	Beschreibung
CbGoToProdOrderPosNo(aProdOrderPosNo:C)	Positioniert auf eine Nummer die sich aus Bestell-, Positions- und Lieferanten-Nummer zur eindeutigen Indentifizierung zusammensetzt

Beispiel

//##############################################################################
//##############################################################################
// Beschreibung: Kleines Testprogramm für die Funktionalität
//               des BeProductionPartListBusinessObject
// Hinweis:      Aktuell nur Read-Only!
//##############################################################################
//##############################################################################

|
   oDab240, oProductionPartListBO, m_cFirstArtNr, m_cSecondArtNr,
   m_cFirstB_Pos_LfdNo, m_cSecondB_Pos_LfdNo
|

//##############################################################################
//##############################################################################
// Konstanten
//##############################################################################
//##############################################################################

m_cFirstArtNr        := 'TESTART1',
m_cSecondArtNr       := 'TESTART2',

m_cFirstB_Pos_LfdNo  := '123666 321',
m_cSecondB_Pos_LfdNo := '123666 322',

//##############################################################################
//##############################################################################
// Funktionen
//##############################################################################
//##############################################################################

//******************************************************************************
// Erstellen
//******************************************************************************
function WriteProductionPosition()
   BeginSuspend(oDab240),
   startseq
      DBAppend(oDab240),
      oDab240:ARTNR1    := m_cFirstArtNr,
      oDab240:B_POS_LFD := m_cFirstB_Pos_LfdNo,
      DBPost(oDab240),

      DBAppend(oDab240),
      oDab240:ARTNR1    := m_cSecondArtNr,
      oDab240:B_POS_LFD := m_cSecondB_Pos_LfdNo,
      DBPost(oDab240),
   always
      EndSuspend(oDab240),
   stopseq,
end,

//******************************************************************************
// Löschen
//******************************************************************************
function DeleteProductionPosition()
   BeginSuspend(oDab240),
   startseq
      DBGoTo(m_cFirstB_Pos_LfdNo, oDab240),
      DBDelete(oDab240),

      DBGoTo(m_cSecondB_Pos_LfdNo, oDab240),
      DBDelete(oDab240),
   always
      EndSuspend(oDab240),
   stopseq,
end,

//******************************************************************************
// Objekte erstellen
//******************************************************************************
function GetObjects()
   oDab240               := DBOpen(waDab240),
   oProductionPartListBO := CreateObject("TBeProductionPartListBO"),
end,

//******************************************************************************
// Objekte freigeben
//******************************************************************************
function DestroyObjects()
   DeleteProductionPosition(),
   DestroyObject(oDab240),
   DestroyObject(oProductionPartListBO),
end,

//##############################################################################
//##############################################################################
// Hauptprogramm
//##############################################################################
//##############################################################################

startseq
   GetObjects(),
   startseq
      // Zwei Einträge erstellen und Überprüfen ...
      WriteProductionPosition(),
      oProductionPartListBO.CbGoToProdOrderPosNo(m_cFirstB_Pos_LfdNo),
      if (oProductionPartListBO.CbMainArticleNo = m_cFirstArtNr) and
         (oProductionPartListBO.CbMainArticleNo <> m_cSecondArtNr) then
         WriteLn("Testartikel 1 mit der Artikel-Nummer" + CRLF +
                 oProductionPartListBO.CbMainArticleNo + CRLF +
                 "gefunden!"),
      endif,

      oProductionPartListBO.CbGoToProdOrderPosNo(m_cSecondB_Pos_LfdNo),
      if (oProductionPartListBO.CbMainArticleNo <> m_cFirstArtNr) and
         (oProductionPartListBO.CbMainArticleNo = m_cSecondArtNr) then
         WriteLn("Testartikel 2 mit der Artikel-Nummer" + CRLF +
                 oProductionPartListBO.CbMainArticleNo + CRLF +
                 "gefunden!"),
      endif,
   always
      // Einträge wieder löschen
      DestroyObjects(),
   stopseq,
onerror
   MessageDlg('Fehler im Programm ' + ProgName() + crlf +
              GetErrorText() + crlf + crlf +
              DebugArr(GetErrorStack(true)), mtError),
stopseq,

TBeProductionPartListBO

Eigenschaften

Funktionen

Beispiel

Weitere Verknüpfungen