Codeblock Onlinehilfe
Codeblock Onlinehilfe
Breadcrumbs

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 

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

/////////////////////////////////////////////////////////
|
   // Der nachfolgende Teil wird automatisch gepflegt.
   oForm, A_HelpContent, BeLabel1, btnCancel, btnStart
   // 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
   // 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"),
   // Der vorangehende Teil wird automatisch gepflegt.

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


Weitere Verknüpfungen