| Private Sub LoadDetailsTable() |
| Dim table As New DataTable("Belegungseinheit") |
| table.Columns.Add("Belegungseinheit_ID", GetType(Integer)) |
| table.Columns.Add("Konzept_ID", GetType(String)) |
| table.Columns.Add("Gattung_ID", GetType(Integer)) |
| table.Columns.Add("Medium_ID", GetType(Integer)) |
| table.Columns.Add("Ausgaben_ID", GetType(Integer)) |
| table.Columns.Add("Erscheinungsweise", GetType(String)) |
| table.Columns.Add("verbr_Auflage", GetType(Integer)) |
| table.Columns.Add("HH_RW", GetType(Integer)) |
| table.Columns.Add("ET1", GetType(DateTime)) |
| table.Columns.Add("ET2", GetType(DateTime)) |
| table.Columns.Add("Anzahl_Spalten", GetType(Integer)) |
| table.Columns.Add("Breite_mm", GetType(Integer)) |
| table.Columns.Add("Hoehe_mm", GetType(Integer)) |
| ''table.Columns.Add("Platzierung_ID", GetType(Integer)) |
| ''table.Columns.Add("Umrechnungsfaktor", GetType(Double)) |
| ''table.Columns.Add("Farb_ID", GetType(Integer)) |
| ''table.Columns.Add("mm_Preis", GetType(Double)) |
| table.Columns.Add("Farbzuschlag_Pro", GetType(Double)) |
| table.Columns.Add("Farbzuschlag_Euro", GetType(Double)) |
| table.Columns.Add("FZ_Rabatt", GetType(Boolean)) |
| table.Columns.Add("FZ_AE", GetType(Boolean)) |
| table.Columns.Add("Festpreis", GetType(Double)) |
| table.Columns.Add("Kombi_Rabatt", GetType(Double)) |
| table.Columns.Add("Mengen_Rabatt", GetType(Double)) |
| table.Columns.Add("Sonder_Rabatt", GetType(Double)) |
| table.Columns.Add("Zuschlag_Pro", GetType(Double)) |
| table.Columns.Add("Zuschlag_Euro", GetType(Double)) |
| 'table.Columns.Add("AE", GetType(Double)) |
| table.Columns.Add("Netto", GetType(Double)) |
| table.Columns.Add("Netto_Honorar", GetType(Double)) |
| ''table.Columns.Add("Skonto", GetType(Integer)) |
| ''table.Columns.Add("Vereinbarung", GetType(Boolean)) |
| table.Columns.Add("Insertionsnummer", GetType(String)) |
| table.Columns.Add("MA_Code", GetType(String)) |
| table.Columns.Add("SchaltungsNr", GetType(String)) |
| table.Columns.Add("Storno", GetType(Boolean)) |
| For Each row As DataRow In Me.Anzeigenverwaltung_DEVDataSet.Belegungeinheit.Rows |
| table.Rows.Add(row("Belegungseinheit_ID"), row("Konzept_ID"), row("Gattung_ID"), row("Medium_ID"), row("Ausgaben_ID"), row("Erscheinungsweise"), row("verbr_Auflage"), row("HH_RW"), row("ET1"), row("ET2"), row("Anzahl_Spalten"), row("Breite_mm"), row("Hoehe_mm"), row("Farbzuschlag_Pro"), row("Farbzuschlag_Euro"), row("FZ_Rabatt"), row("FZ_AE"), row("Festpreis"), row("Kombi_Rabatt"), row("Mengen_Rabatt"), row("Sonder_Rabatt"), row("Zuschlag_Pro"), row("Zuschlag_Euro"), row("Netto"), row("Netto_Honorar"), row("Insertionsnummer"), row("MA_Code"), row("SchaltungsNr"), row("Storno")) |
| 'table.Rows.Add(row("Belegungseinheit_ID"), row("Konzept_ID"), row("Gattung_ID"), row("Medium_ID"), row("Ausgaben_ID"), row("Erscheinungsweise"), row("verbr_Auflage"), row("HH_RW"), row("Hoehe_mm"), row("Anzahl_Spalten"), row("Breite_mm"), row("Farbzuschlag_Pro"), row("Farbzuschlag_Euro"), row("FZ_Rabatt"), row("FZ_AE"), row("Festpreis"), row("Kombi_Rabatt"), row("Mengen_Rabatt"), row("Sonder_Rabatt"), row("Zuschlag_Pro"), row("Zuschlag_Euro"), row("Netto"), row("Netto_Honorar"), row("Insertionsnummer"), row("MA_Code"), row("SchaltungsNr"), row("Storno")) |
| 'table.Rows.Add(row("Belegungseinheit_ID"), row("Konzept_ID"), row("Gattung_ID"), row("Medium_ID"), row("Ausgaben_ID"), row("Erscheinungsweise"), row("verbr_Auflage"), row("HH_RW"), row("ET1"), row("ET2"), row("Anzahl_Spalten"), row("Breite_mm"), row("Hoehe_mm"), row("Farbzuschlag_Pro"), row("Farbzuschlag_Euro"), row("FZ_Rabatt"), row("FZ_AE"), row("Festpreis"), row("Kombi_Rabatt"), row("Mengen_Rabatt"), row("Sonder_Rabatt"), row("Zuschlag_Pro"), row("Zuschlag_Euro"), row("Netto"), row("Netto_Honorar"), row("Insertionsnummer"), row("MA_Code"), row("SchaltungsNr"), row("Storno")) |
| Next row |
| |
| Dim template As New GridViewTemplate(Me.rgvDaten) |
| template.Caption = "Belegungseinheit" |
| template.DataSource = table |
| template.AllowEditRow = True |
| template.AllowRowResize = True |
| template.ShowColumnHeaders = False |
| template.AllowAddNewRow = False |
| |
| 'template.Columns("Gattung_ID").DisableHTMLRendering = False |
| template.Columns("Gattung_ID").Width = 100 |
| template.Columns("Medium_ID").Width = 100 |
| template.Columns("Ausgaben_ID").Width = 100 |
| template.Columns("Erscheinungsweise").Width = 100 |
| template.Columns("verbr_Auflage").Width = 100 |
| template.Columns("HH_RW").Width = 90 |
| |
| 'template.Columns("ET1").DisableHTMLRendering = False |
| 'template.Columns("ET2").DisableHTMLRendering = False |
| template.Columns("Anzahl_Spalten").BestFit() |
| template.Columns("Breite_mm").BestFit() |
| template.Columns("Hoehe_mm").BestFit() |
| ' ''template.Columns("Platzierung_ID").Width = 40 |
| template.Columns("Farbzuschlag_Pro").BestFit() |
| template.Columns("Farbzuschlag_Euro").BestFit() |
| template.Columns("FZ_Rabatt").Width = 75 |
| template.Columns("FZ_AE").Width = 50 |
| |
| template.Columns("Festpreis").BestFit() |
| template.Columns("Kombi_Rabatt").BestFit() |
| template.Columns("Mengen_Rabatt").BestFit() |
| template.Columns("Sonder_Rabatt").BestFit() |
| template.Columns("Zuschlag_Pro").BestFit() |
| template.Columns("Zuschlag_Euro").BestFit() |
| ' ''template.Columns("AE").Width = 40 |
| template.Columns("Netto").BestFit() |
| template.Columns("Netto_Honorar").BestFit() |
| ' ''template.Columns("Skonto").Width = 25 |
| ' ''template.Columns("Vereinbarung").Width = 25 |
| |
| template.Columns("Insertionsnummer").Width = 120 |
| template.Columns("MA_Code").Width = 120 |
| template.Columns("SchaltungsNr").Width = 120 |
| 'template.Columns("Storno").DisableHTMLRendering = False |
| template.Columns("Storno").Width = 100 |
| |
| |
| Me.rgvDaten.MasterGridViewTemplate.ChildGridViewTemplates.Insert(0, template) |
| |
| Dim relation As New GridViewRelation(Me.rgvDaten.MasterGridViewTemplate) |
| relation.ChildTemplate = template |
| relation.ParentColumnNames.Add("Belegungseinheit_ID") |
| relation.ChildColumnNames.Add("Belegungseinheit_ID") |
| Me.rgvDaten.Relations.Add(relation) |
| |
| Dim viewDef As New HtmlViewDefinition() |
| viewDef.RowTemplate.Rows.Add(New RowDefinition()) |
| viewDef.RowTemplate.Rows.Add(New RowDefinition()) |
| viewDef.RowTemplate.Rows.Add(New RowDefinition()) |
| viewDef.RowTemplate.Rows.Add(New RowDefinition()) |
| |
| viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Gattung_ID", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Medium_ID", 0, 2, 1)) |
| viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Ausgaben_ID", 0, 2, 1)) |
| viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Erscheinungsweise", 0, 2, 1)) |
| viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("verbr_Auflage", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("HH_RW", 0, 1, 1)) |
| |
| viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("ET1", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("ET2", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Anzahl_Spalten", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Breite_mm", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Hoehe_mm", 0, 1, 1)) |
| ''viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Platzierung_ID", 0, 1, 1)) |
| ''viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Umrechnungsfaktor", 0, 1, 1)) |
| ''viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Farb_ID", 0, 1, 1)) |
| ''viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("mm_Preis", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Farbzuschlag_Pro", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Farbzuschlag_Euro", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("FZ_Rabatt", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("FZ_AE", 0, 1, 1)) |
| |
| viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Festpreis", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Kombi_Rabatt", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Mengen_Rabatt", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Sonder_Rabatt", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Zuschlag_Pro", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Zuschlag_Euro", 0, 1, 1)) |
| ''viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("AE", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Netto", 0, 1, 1)) |
| viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Netto_Honorar", 0, 2, 1)) |
| ''viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Skonto", 0, 1, 1)) |
| ''viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Vereinbarung", 0, 1, 1)) |
| |
| viewDef.RowTemplate.Rows(3).Cells.Add(New CellDefinition("Insertionsnummer", 0, 2, 1)) |
| viewDef.RowTemplate.Rows(3).Cells.Add(New CellDefinition("MA_Code", 0, 2, 1)) |
| viewDef.RowTemplate.Rows(3).Cells.Add(New CellDefinition("SchaltungsNr", 0, 2, 1)) |
| viewDef.RowTemplate.Rows(3).Cells.Add(New CellDefinition("Storno", 0, 1, 1)) |
| |
| Me.rgvDaten.MasterGridViewTemplate.ChildGridViewTemplates(0).ViewDefinition = viewDef |
| End Sub |