|
   // @VDB@ Der nachfolgende Teil wird automatisch gepflegt.
   oForm, A_HelpContent, BeAltGrid1, beButton1, beButton2, beButton3, beButton4,
   beButton5, beButton6, beButton7, beButton8, beCbAsyncPortalEntityDataSource1,
   beCbAsyncPortalEntityDataSource2, BeEdit1, BeEdit2, BeEdit3, BeEdit4,
   BeEdit5, BeInfoPanel1, BeInfoPanel2, BeLabel1, BeLabel2, BeLabel3, BeLabel4,
   BeLabel5, BeLabel6, BePanel1, BePanel2, BeRightsTable1, DataSourceEx1
   // @VDE@ Der vorangehende Teil wird automatisch gepflegt.
|

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource2CbOnUseAction()
   startseq
      Result := true,
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,


//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource2CbOnGetAction( aText )
   startseq
      WriteLn('Get Action: ' + aText),
      Result := 'MRP_LiveTerminrasterFuerArtikel?$expand=legacy&location=' + Str(MSTANDORT),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource2CbOnActionParameters( aJSON )
   startseq
      aJSON.appendString('modus', 'WOCHE'),
      aJSON.appendBoolean('legacy', true),
      aJSON.appendInteger('dab010Id', BeRightsTable1:ID),
      WriteLn(aJSON.ToString()),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource1CbOnFailure( aErrorMessage )
   startseq
      Writeln('On Failure : ' + aErrorMessage),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource1CbOnAssignMasterDataSource()
   startseq
      Writeln('Assign Master Data Source'),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource1CbOnRemoveMasterDataSource()
   startseq
      Writeln('Remove Master Data Source'),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource1DataChange( Sender, Field )
   startseq
      Writeln('Data Change'),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource1DataSetOperation( aDataSet, aOperation, aAbortOperation )
   startseq
      Writeln('Data Set Operation: ' + Str(aOperation)),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource1Scroll_Update( Sender )
   startseq
      Writeln('Scroll Update'),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource1StateChange( Sender )
   startseq
      Writeln('State Change'),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource1UpdateData( Sender )
   startseq
      Writeln('Update Data'),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource1CbOnGetParameters( aText )
   startseq
      Writeln('Get Parameters: ' + aText),
      Result := 'top=1',
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource1CbOnRequestDefaultValues( aJSON )
   startseq
      aJSON.appendString('artnr', RTRim(BeRightsTable1:ARTNR)),
      aJSON.appendInteger('dab010_id', BeRightsTable1:ID),
      aJSON.appendInteger('szenario_id', 0),
      WriteLn(aJSON.ToString()),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource1CbOnLoad()
   startseq
      Writeln('On Load'),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beButton8Click( Sender ) // Aktualisieren
   startseq
      beCbAsyncPortalEntityDataSource1.CbRefreshAsync(),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beCbAsyncPortalEntityDataSource1CbOnGetFilter( aText )
   startseq
      Writeln('Get Filter: ' + aText),
      if Len(aText) > 0 then
         Result := "artnr eq '" + RTrim(BeRightsTable1:ARTNR) + "' and " + aText,
      else
         Result := "artnr eq '" + RTrim(BeRightsTable1:ARTNR) + "'",
      endif,
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beButton7Click( Sender ) // Gehe zu
   startseq
      BeRightsTable1.CbFindKey({BeEdit5.Text}),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beButton6Click( Sender ) // Create
   startseq
      BeRightsTable1.CbAppend(),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beButton5Click( Sender ) // Cancel
   startseq
      BeRightsTable1.CbCancel(),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beButton4Click( Sender ) // Save
   startseq
      BeRightsTable1.CbPost(),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beButton3Click( Sender ) // Delete
   startseq
      BeRightsTable1.CbDelete(),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beButton2Click( Sender ) // Next
   startseq
      BeRightsTable1.CbNext(),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
//
//******************************************************************************
function beButton1Click( Sender ) // Previous
   startseq
      BeRightsTable1.CbPrior(),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

startseq
   // @VZB@ Der nachfolgende Teil wird automatisch gepflegt.
   oForm                            := LoadForm("@ASYNCTEST", Application),
   A_HelpContent                    := FindObject(oForm, "A_HelpContent"),
   BeAltGrid1                       := FindObject(oForm, "BeAltGrid1"),
   beButton1                        := FindObject(oForm, "beButton1"),
   beButton2                        := FindObject(oForm, "beButton2"),
   beButton3                        := FindObject(oForm, "beButton3"),
   beButton4                        := FindObject(oForm, "beButton4"),
   beButton5                        := FindObject(oForm, "beButton5"),
   beButton6                        := FindObject(oForm, "beButton6"),
   beButton7                        := FindObject(oForm, "beButton7"),
   beButton8                        := FindObject(oForm, "beButton8"),
   beCbAsyncPortalEntityDataSource1 := FindObject(oForm, "beCbAsyncPortalEntityDataSource1"),
   beCbAsyncPortalEntityDataSource2 := FindObject(oForm, "beCbAsyncPortalEntityDataSource2"),
   BeEdit1                          := FindObject(oForm, "BeEdit1"),
   BeEdit2                          := FindObject(oForm, "BeEdit2"),
   BeEdit3                          := FindObject(oForm, "BeEdit3"),
   BeEdit4                          := FindObject(oForm, "BeEdit4"),
   BeEdit5                          := FindObject(oForm, "BeEdit5"),
   BeInfoPanel1                     := FindObject(oForm, "BeInfoPanel1"),
   BeInfoPanel2                     := FindObject(oForm, "BeInfoPanel2"),
   BeLabel1                         := FindObject(oForm, "BeLabel1"),
   BeLabel2                         := FindObject(oForm, "BeLabel2"),
   BeLabel3                         := FindObject(oForm, "BeLabel3"),
   BeLabel4                         := FindObject(oForm, "BeLabel4"),
   BeLabel5                         := FindObject(oForm, "BeLabel5"),
   BeLabel6                         := FindObject(oForm, "BeLabel6"),
   BePanel1                         := FindObject(oForm, "BePanel1"),
   BePanel2                         := FindObject(oForm, "BePanel2"),
   BeRightsTable1                   := FindObject(oForm, "BeRightsTable1"),
   DataSourceEx1                    := FindObject(oForm, "DataSourceEx1"),
   // @VZE@ Der vorangehende Teil wird automatisch gepflegt.

   DataSourceEx1.DataSet := BeRightsTable1,
   beCbAsyncPortalEntityDataSource1.CbMasterDataSource := DataSourceEx1,
   beCbAsyncPortalEntityDataSource2.CbMasterDataSource := DataSourceEx1,

   BeEdit5.Text := '',

   beCbAsyncPortalEntityDataSource1.Enabled := true,
   beCbAsyncPortalEntityDataSource2.Enabled := true,
   BeRightsTable1.Active := True,

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