Untitled

 avatar
unknown
plain_text
9 months ago
9.0 kB
3
Indexable
- VaraosaPalautusAloitus:
    Control: Screen
    Properties:
      BackgroundImage: =Backround
      Fill: =RGBA(255, 255, 255, 1)
      ImagePosition: =ImagePosition.Fill
    Children:
    - MainContainerVaraosa:
        Control: GroupContainer
        Variant: verticalAutoLayoutContainer
        Properties:
          Height: =Parent.Height
          LayoutAlignItems: =LayoutAlignItems.Center
          LayoutDirection: =LayoutDirection.Vertical
          LayoutJustifyContent: =LayoutJustifyContent.Center
          LayoutMode: =LayoutMode.Auto
          Width: =Parent.Width
        Children:
        - Container8:
            Control: GroupContainer
            Variant: horizontalAutoLayoutContainer
            Properties:
              AlignInContainer: =AlignInContainer.SetByContainer
              FillPortions: =0
              Height: =80
              LayoutMode: =LayoutMode.Auto
              Width: =Parent.Width
            Children:
            - Label5:
                Control: Label
                Properties:
                  Text: ="Uusi osapalautus"
                  FillPortions: =1
                  Font: =Font.'Lato Light'
                  Height: =80
                  LayoutMinWidth: =300
                  Size: =24
                  Width: |+
                    =Parent.Width - 200
            - Image5:
                Control: Image
                Properties:
                  Image: =logo
                  Height: =80
                  Visible: =false
                  Width: =150
        - FormVaraosapalautusAloita:
            Control: Form
            Layout: vertical
            Properties:
              OnSuccess: =Navigate(VaraosaPalautusAdd,ScreenTransition.UnCoverRight)
              DataSource: =Varaosapalautus
              DefaultMode: =FormMode.New
              AlignInContainer: =AlignInContainer.SetByContainer
              Height: =Parent.Height
              Width: |+
                =Parent.Width - 200
              Y: =84
            Children:
            - Tyyppi_DataCard1:
                Control: TypedDataCard
                Variant: comboBoxEditCard
                Layout: vertical
                Properties:
                  DataField: ="Tyyppi"
                  Default: =ThisItem.Tyyppi
                  DisplayName: =DataSourceInfo([@Varaosapalautus],DataSourceInfo.DisplayName,Tyyppi)
                  Update: =DataCardValue5.Selected
                  DisplayMode: =Parent.DisplayMode
                  Height: =50
                  Width: =1166
                Children:
                - StarVisible6:
                    Control: Label
                    Properties:
                      Text: ="*"
                      Align: =Align.Center
                      Height: =DataCardKey6.Height
                      Visible: =And(Parent.Required, Parent.DisplayMode=DisplayMode.Edit)
                      Width: =30
                      Wrap: =false
                      Y: =DataCardKey6.Y
                - ErrorMessage6:
                    Control: Label
                    Properties:
                      Live: =Live.Assertive
                      Text: =Parent.Error
                      AutoHeight: =true
                      Height: =10
                      PaddingBottom: =0
                      PaddingLeft: =0
                      PaddingRight: =0
                      PaddingTop: =0
                      Visible: =Parent.DisplayMode=DisplayMode.Edit
                      Width: =Parent.Width - 60
                      X: =30
                      Y: =DataCardValue5.Y + DataCardValue5.Height
                - DataCardValue5:
                    Control: Classic/ComboBox
                    Properties:
                      DefaultSelectedItems: =Parent.Default
                      DisplayFields: =["Value"]
                      Items: =Choices([@Varaosapalautus].Tyyppi)
                      SearchFields: =["Value"]
                      SelectMultiple: =false
                      Tooltip: =Parent.DisplayName
                      BorderColor: =If(IsBlank(Parent.Error), Parent.BorderColor, Color.Red)
                      DisplayMode: =Parent.DisplayMode
                      PaddingLeft: =If(Self.DisplayMode = DisplayMode.Edit, 5, 0)
                      Width: =Parent.Width - 60
                      X: =30
                      Y: =DataCardKey6.Y + DataCardKey6.Height + 5
                - DataCardKey6:
                    Control: Label
                    Properties:
                      Text: =Parent.DisplayName
                      AutoHeight: =true
                      Color: =RGBA(0, 0, 0, 1)
                      FontWeight: =FontWeight.Bold
                      Height: =34
                      Width: =Parent.Width - 60
                      Wrap: =false
                      X: =30
                      Y: =10
            - Kuukausi_DataCard1:
                Control: TypedDataCard
                Variant: comboBoxEditCard
                Properties:
                  DataField: ="Kuukausi"
                  Default: =ThisItem.Kuukausi
                  DisplayName: =DataSourceInfo([@Varaosapalautus],DataSourceInfo.DisplayName,Kuukausi)
                  Update: =DataCardValue1.Selected
                  DisplayMode: =Parent.DisplayMode
                  Height: =50
                  Width: =1166
                  Y: =1
                Children:
                - StarVisible4:
                    Control: Label
                    Properties:
                      Text: ="*"
                      Align: =Align.Center
                      Height: =DataCardKey4.Height
                      Visible: =And(Parent.Required, Parent.DisplayMode=DisplayMode.Edit)
                      Width: =30
                      Wrap: =false
                      Y: =DataCardKey4.Y
                - ErrorMessage4:
                    Control: Label
                    Properties:
                      Live: =Live.Assertive
                      Text: =Parent.Error
                      AutoHeight: =true
                      Height: =10
                      PaddingBottom: =0
                      PaddingLeft: =0
                      PaddingRight: =0
                      PaddingTop: =0
                      Visible: =Parent.DisplayMode=DisplayMode.Edit
                      Width: =Parent.Width - 60
                      X: =30
                      Y: =DataCardValue1.Y + DataCardValue1.Height
                - DataCardValue1:
                    Control: Classic/ComboBox
                    Properties:
                      DefaultSelectedItems: =Parent.Default
                      DisplayFields: =["Value"]
                      Items: =Choices([@Varaosapalautus].Kuukausi)
                      SearchFields: =["Value"]
                      SelectMultiple: =false
                      Tooltip: =Parent.DisplayName
                      BorderColor: =If(IsBlank(Parent.Error), Parent.BorderColor, Color.Red)
                      DisplayMode: =Parent.DisplayMode
                      PaddingLeft: =If(Self.DisplayMode = DisplayMode.Edit, 5, 0)
                      Width: |+
                        =Parent.Width - 60
                      X: =30
                      Y: =DataCardKey4.Y + DataCardKey4.Height + 5
                - DataCardKey4:
                    Control: Label
                    Properties:
                      Text: =Parent.DisplayName
                      AutoHeight: =true
                      Height: =34
                      Width: =Parent.Width - 60
                      Wrap: =false
                      X: =30
                      Y: =10
        - Container6:
            Control: GroupContainer
            Variant: horizontalAutoLayoutContainer
            Properties:
              FillPortions: =0
              Height: =40
              LayoutGap: =5
              LayoutJustifyContent: =LayoutJustifyContent.Center
              LayoutMinWidth: =100
              LayoutMode: =LayoutMode.Auto
              Y: =728
            Children:
            - Button1:
                Control: Classic/Button
                Properties:
                  OnSelect: =Navigate(Valitse, ScreenTransition.UnCoverRight)
                  Text: ="Etusivu"
            - Button2:
                Control: Classic/Button
                Properties:
                  OnSelect: |-
                    =Set(uniquieID1,"N"&Text(Now(),"[$-en-US]yymmddhhmmss"));
                    /* SubmitForm(FormVaraosapalautusAloita); */
                    Collect(ColNewVaraosa, {Type: DataCardValue5.Selected, Month: DataCardValue1.Selected});
                    Navigate(VaraosaPalautusAdd,ScreenTransition.CoverRight)
                  Text: ="Seuraava"
Editor is loading...
Leave a Comment