Versions Compared

Old Version 3

changes.mady.by.user Rodrigo Rivero

Saved on

compared with

New Version Current

changes.mady.by.user Alejandra Rivera

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

     Begin_Com Role(*EXTENDS #PRIM_WEB) Theme(#SYS_THEME) 

        Define_Com Class(#PRIM_TBLO) Name(#Layout1)
        Define_Com Class(#PRIM_TBLO.Row) Name(#Layout1Row1) Parent(#Layout1)
        Define_Com Class(#PRIM_TBLO.Column) Name(#Layout1Column1) Parent(#Layout1)
        Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item1) Alignment(TopLeft) Column(#Layout1Column1) Manage(#EmployeeIdentification) Parent(#Layout1) Row(#Layout1Row1) Sizing(FitToWidth) Flow(Down) Marginleft(8) Marginright(8) Margintop(8)
        Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item2) Alignment(TopLeft) Column(#Layout1Column1) Manage(#EmployeeSurname) Parent(#Layout1) Row(#Layout1Row1) Sizing(FitToWidth) Flow(Down) Marginleft(8) Marginright(8) Margintop(8)
        Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item3) Alignment(TopLeft) Column(#Layout1Column1) Manage(#EmployeeGivenNames) Parent(#Layout1) Row(#Layout1Row1) Sizing(FitToWidth) Flow(Down) Marginleft(8) Marginright(8) Margintop(8)
        Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item4) Alignment(TopLeft) Column(#Layout1Column1) Manage(#EmployeeStartDate) Parent(#Layout1) Row(#Layout1Row1) Sizing(FitToWidth) Flow(Down) Marginleft(8) Marginright(8) Margintop(8)
        Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item5) Alignment(TopLeft) Column(#Layout1Column1) Manage(#ButtonValidate) Parent(#Layout1) Row(#Layout1Row1) Sizing(FitToWidth) Flow(Down) Marginleft(8) Marginright(8) Margintop(8) 

        Define_Com Class(#PRIM_DLG) Name(#Dialog) Width(360) Height(600) Layoutmanager(#Layout1) Autoclose(True)
        Define_Com Class(#xEmployeeIdentification.EditField) Name(#EmployeeIdentification) Parent(#Dialog) Displayposition(1) Tabposition(1)
        Define_Com Class(#xEmployeeSurname.EditField) Name(#EmployeeSurname) Parent(#Dialog) Displayposition(2) Tabposition(1)
        Define_Com Class(#xEmployeeGivenNames.EditField) Name(#EmployeeGivenNames) Parent(#Dialog) Displayposition(4) Tabposition(1)
        Define_Com Class(#xEmployeeStartDate.DateTimeField) Name(#EmployeeStartDate) Parent(#Dialog) Displayposition(5) Tabposition(1)
        Define_Com Class(#prim_md.FlatButton) Name(#ButtonValidate) Parent(#Dialog) Displayposition(5) Tabposition(5) Caption('Validate') 

           Evtroutine Handling(#COM_OWNER.Initialize) 

              #Dialog.show 

           Endroutine 

           Evtroutine Handling(#ButtonValidate.Click) 

              #Dialog.Validate( Update #xEmployee ) 

           Endroutine 

     End_Com

See also

All Component Classes

Technical Reference