Index: PlanScan/UI/KlantinstellingenDetailScherm.pas =================================================================== diff -u -r374 -r417 --- PlanScan/UI/KlantinstellingenDetailScherm.pas (.../KlantinstellingenDetailScherm.pas) (revision 374) +++ PlanScan/UI/KlantinstellingenDetailScherm.pas (.../KlantinstellingenDetailScherm.pas) (revision 417) @@ -13,6 +13,10 @@ edtklantId: TEdit; cbIsExport: TCheckBox; btnOk: TButton; + cbWegwerppallet: TCheckBox; + cbMeerdereToeleveringen: TCheckBox; + lblWegwerpPallet: TLabel; + lblMeerdereToeleveringen: TLabel; private function getIsExport: boolean; function getKlantId: string; Index: PlanScan/UI/KlantinstellingenDetailScherm.dfm =================================================================== diff -u -r374 -r417 --- PlanScan/UI/KlantinstellingenDetailScherm.dfm (.../KlantinstellingenDetailScherm.dfm) (revision 374) +++ PlanScan/UI/KlantinstellingenDetailScherm.dfm (.../KlantinstellingenDetailScherm.dfm) (revision 417) @@ -3,7 +3,7 @@ Top = 0 ActiveControl = btnOk Caption = 'KlantinstellingenDetail' - ClientHeight = 176 + ClientHeight = 260 ClientWidth = 377 Color = clBtnFace Font.Charset = DEFAULT_CHARSET @@ -43,6 +43,34 @@ Font.Style = [] ParentFont = False end + object lblWegwerpPallet: TLabel + Left = 68 + Top = 128 + Width = 113 + Height = 19 + AutoSize = False + Caption = 'Wegwerppallet' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object lblMeerdereToeleveringen: TLabel + Left = 68 + Top = 168 + Width = 113 + Height = 19 + AutoSize = False + Caption = '>1 Toelevering' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end object edtklantId: TEdit Left = 187 Top = 45 @@ -71,7 +99,7 @@ end object btnOk: TButton Left = 133 - Top = 128 + Top = 208 Width = 112 Height = 33 Caption = 'Ok' @@ -85,4 +113,30 @@ ParentFont = False TabOrder = 2 end + object cbWegwerppallet: TCheckBox + Left = 187 + Top = 130 + Width = 97 + Height = 17 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object cbMeerdereToeleveringen: TCheckBox + Left = 187 + Top = 170 + Width = 97 + Height = 17 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 4 + end end