TBeProductionOrderBusinessController

Die Klasse TBeProductionOrderBusinessController stellt Funktionen und Methoden für die Veränderung von Produktionsaufträgen bereit.

Funktionen

Funktion

Parameter

Beschreibung

CbChangeReservedQuant()

Mit dieser Methode ist es möglich die Reservierungsmenge (Dab240:RUECKS_PR) einer kommissionierten Produktionsauftrags-Position zu verändern.
Kommissioniert: Material-Buchung (B_DATUM) eingetragen und noch keine Fertigstellung (F_DATUM)

aProductionPosBo:O

Auf gewünschte Auftragsposition positioniertes BusinessObject der Dab240 ( TBeProductionPartListBO ).
Das Objekt darf sich nicht in Bearbeitung befinden und muss das selbe Daten-Modul wie der BusinessController verwenden.

aNewQuantity:N

Gewünschte neue Reservierungsmenge für die Auftragsposition.

aNewPriorityQuantity:N

Gewünschte neue Prioritäts-Menge für die Auftragsposition

Beispiel

CODE

//******************************************************************************
// ProductionOrderBusinessController verwenden um Reservierungen für
// Auftragspositionen zu verändern
//******************************************************************************
function ChangeReservedQuantity(cOrderPosNo, nNewReservedQuantity)
| oDM, oProdOrdBC, oProdPartListBO, oDab010, oDAB410 |

   oDM := CreateObject('TBeDBGet', 'PRODRESCHGDM'),
   startseq
      oProdOrdBC                   := CreateObject('TBeProductionOrderBusinessController', 'PRODORDERBC', oDM),
      oProdPartListBO              := CreateObject('TBeProductionPartListBO',              'PRODPOSBO',   oDM),
      oProdOrdBC.CbDataModule      := oDM,
      oProdPartListBo.CbDataModule := oDM,

      oDab010 := DBGetTable(oDM, waDab010),
      oDAB410 := DBGetTable(oDM, waDab410),
      oProdPartListBo.CbGoToProdOrderPosNo(cOrderPosNo),
      writeln(oProdPartListBO.CbProdOrderPosNo, oProdPartListBO.CbReserved),
      DbStartTrans(oDM.ADSConnection),
      startseq
         // Browser ggf. noch selbst definieren oder hier einfach entfernen
//         Browse(, oDAB010,                 '@D010BRW'),
//         Browse(, oProdPartListBO.CbTable, '@D240BRW'),
//         Browse(, oDAB410,                 '@D410BRW'),

         oProdOrdBC.CbChangeReservedQuant(oProdPartListBO, nNewReservedQuantity, oProdPartListBO.CbPriorityQuantity ),

//         Browse(, oDAB010,                 '@D010BRW'),
//         Browse(, oProdPartListBO.CbTable, '@D240BRW'),
//         Browse(, oDAB410,                 '@D410BRW'),

         DbCommit(oDM.ADSConnection),
      always
         if DbInTrans(oDM.ADSConnection) then
            DbRollback(oDM.ADSConnection),
         endif,
      stopseq,
   always
      DestroyObject(oDM),
   stopseq,
end,

// Test-Aufrufe
ChangeReservedQuantity('600027  003', 1000.65),
ChangeReservedQuantity('600027  003', 1550),