FTSReorgTable()

FTSReorgTable() – Reorg aus dem Codeblock aufrufen

Diese Funktion ermöglicht eine Reorganisation auf eine bestimmte Tabelle auszuführen.

Hinweis

Auf die Tabelle wo diese Funktion ausgeführt wird, wird ein EDIT und POST ausgelöst.

Parameter	Beschreibung
nWorkArea:N	Workarea der Tabelle wo ein Reorg ausgeführt werden soll. Folgende Tabellen stehen zur verfügung: waDAB000, waDAB100, waDAB062, waDAB010, waDAB005, waDAB262, waDAB330, waDAB065, waDAB700, waDAB040, waDAB350, waDAB250, waDAB255, waDAB310, waDABTRM, waDABPRJ, waDABPRV, waDIA010, waDABUBK, waDABPLI, waDABPMT, waDABGRT, waDABIZL, waDF010 (FiBu), waJOURNAL (FiBu), waDAB050, waDAB055
nLocation:N	Standort
nCompany:N	Mandant (nur für Fi-Bu tabellen relevant)
dDateFrom:D	ERSTELLT (waDAB700 / waDAB065) von
dDateTo:D	ERSTELLT (waDAB700 / waDAB065) bis
oCallback:O	Codeblock Callback Funktion ( CallbackInfo() )

Rückgabewert

Keiner

Beispiel

CODE

/////////////////////////////////////////////////////////
//
// Formular zuweisen und 2 Buttons und 1 Label hinzufügen
//
/////////////////////////////////////////////////////////

/////////////////////////////////////////////////////////
|
   // <at:var at:name="VDB" /> Der nachfolgende Teil wird automatisch gepflegt.
   oForm, A_HelpContent, BeLabel1, btnCancel, btnStart
   // <at:var at:name="VDE" /> Der vorangehende Teil wird automatisch gepflegt.
   , doCancel
|

//******************************************************************************
//
//******************************************************************************
function btnCancelClick( Sender )
   startseq
      doCancel := true,
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//************************************************************************************
// Callback-Funktion, der Rückgabewert wird autom. in oCallbackFunc.Result gespeichert
//************************************************************************************
function CallbackFunc(oCallback:O)
| aArr |
   startseq
      aArr := StrToArr(oCallback.MsgText),
      BeLabel1.Caption := aArr[1,1] + ': ' + aArr[1,2] + CRLF + aArr[2,1] + ': ' + aArr[2,2] + ' %',
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,

   if doCancel then
      Result := mrCancel
   else
      Result := mrOk,
   endif,
end,

//******************************************************************************
//
//*****************************************************************************<h3>
function btnStartClick( Sender )
| oCallback, aArr |
   startseq
      btnStart.Enabled  := false,
      btnCancel.Enabled := true,
      doCancel          := false,
      startseq
         oCallback := CallbackInfo('CallbackFunc'),
         FTSReorgTable(waDAB700,0,, StrToDateTime('01.01.2015'), StrToDateTime('15.01.2015'), oCallback),
      onerror
         GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
      stopseq,
   always,
      DestroyObject(oCallback),
      BeLabel1.Caption := BeLabel1.Caption + CRLF + CRLF + 'Fertig',
      btnStart.Enabled  := true,
      btnCancel.Enabled := false,
   stopseq,
end,

startseq
   // <at:var at:name="VZB" /> Der nachfolgende Teil wird automatisch gepflegt.
   oForm         := LoadForm("@TEST111", Application),
   A_HelpContent := FindObject(oForm, "A_HelpContent"),
   BeLabel1      := FindObject(oForm, "BeLabel1"),
   btnCancel     := FindObject(oForm, "btnCancel"),
   btnStart      := FindObject(oForm, "btnStart"),
   // <at:var at:name="VZE" /> Der vorangehende Teil wird automatisch gepflegt.

   show(oForm),
onerror
   DestroyObject(oForm),
   GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
stopseq,

Weitere Verknüpfungen

CallbackInfo()