Versions Compared

Old Version 1

changes.mady.by.user Wara Hermosa

Saved on

compared with

New Version Current

changes.mady.by.user Rodrigo Rivero

Saved on

Key

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

Example 1

*

*

This

is

an

example

of

VLF.WEB

hidden

command.
*

It

is

executed

on

the

web

server.
*

It

can

coded

in

RDML

or

RDMLX

format.

*

Regardless

of

whether

it

is

RDML

or

RDMLX

it

needs

to

use

the
*

VFX*

series

of

built-in

functions

to

communicate

with

the

Framework
*

manager.

Function

Options(*DIRECT)

*

Get

the

current

instance

list

entry

Use

Builtin(VFX)

With_Args(GETCURRENTINSTANCE)

*

Get

AKEY3

because

it

contains

the

employee

number

Use

Builtin(VFX_GET)

With_Args(AKEY3)

To_Get(#EmpNo)

*

Issue

a

message

showing

the

employee

number

retrieved

Execute

Subroutine(Showmsg)

With_Parms('Employeee

number

selected

is'

#Empno)

*

Make

the

message

always

be

displayed

in

the

web

browser

Use

Builtin(VFX_SET)

With_Args(AVSHOWMESSAGES

TRUE)

*

Finished

Return

*

Simple

subroutine

to

issue

a

message

onto

program

message

queue

Subroutine

Name(ShowMSG)

Parms((#MSGDTA

*RECEIVED)

(#TEMP1

*RECEIVED))
Define

Field(#Msgdta)

Type(*char)

Length(132)
Define

Field(#Temp1)

Type(*char)

Length(132)
Use

Builtin(BCONCAT)

With_Args(#MSGDTA

#TEMP1)

To_Get(#MSGDTA)
Message

Msgid(DCM9899)

Msgf(DC@M01)

Msgdta(#MsgDta)
Endroutine

Example 2

*

=======================================================
*

Description

...:

Instance

level

Hidden

Command

Handle
*
*

=======================================================
Function

Options(*DIRECT)

*

Simple

Field

and

Group

Definitions
*

=======================================================
Define

Field(#REVSD)

Reffld(#VF_ELBOOL)
Def_Cond

Name(*REVSD)

Cond('#REVSD

*EQ

TRUE')

*

Get

the

Employee

number

of

the

current

instance
*

and

the

revered

flag.

Use

Builtin(VFX)

With_Args(GETCURRENTINSTANCE)

Use

Builtin(VFX_GET)

With_Args(AKEY1)

To_Get(#EMPNO)

*

Get

the

Name

state

from

the

clipboard

Use

Builtin(VFX_RESTOREAVALUE)

With_Args(*BLANKS

PNCAFLT

REVERSED

#EMPNO)

To_Get(#REVSD)

Use

Builtin(VFX_TRACEAVALUE)

With_Args('Employee

name

is

surname

first?

'

#REVSD)

*

Fetch

information

from

the

main

file

to

fill

in

the
*

header

fields

on

the

form

Fetch

Fields(#SURNAME

#GIVENAME)

From_File(PSLMST)

With_Key(#EMPNO)

*

Put

the

names

together

in

the

reverse

order

If

Cond(*REVSD)

*

Put

the

names

together

Given

name

first

Change

Field(#UF_VISID2)

To(#GIVENAME)
Use

Builtin(BCONCAT)

With_Args(#UF_VISID2

#SURNAME)

To_Get(#UF_VISID2)

*

Set

the

reversed

flag

Change

Field(#REVSD)

To(FALSE)

Use

Builtin(VFX_TRACEAVALUE)

With_Args('Employee

name

has

been

reversed.

Name

is

now

'

#UF_VISID2)

Else

*

Put

the

names

together

Surname

first

Change

Field(#UF_VISID2)

To(#SURNAME)
Use

Builtin(BCONCAT)

With_Args(#UF_VISID2

#GIVENAME)

To_Get(#UF_VISID2)

*

Set

the

reversed

flag

Change

Field(#REVSD)

To(TRUE)

Use

Builtin(VFX_TRACEAVALUE)

With_Args('Employee

name

is

now

surname

first.

Name

is

now

'

#UF_VISID2)

Endif

*

Update

the

name

(Visual

ID

2)

to

the

instance

list

Use

Builtin(VFX)

With_Args(BEGINLISTUPDATE)

*

Set

up

the

list

entry

details

Use

Builtin(VFX_SET)

With_Args(VISUALID1

#EMPNO

VISUALID2

#UF_VISID2

AKEY1

#EMPNO)

Use

Builtin(VFX_TRACEAVALUE)

With_Args('Employee

name

is

surname

first?

'

#REVSD)

*

Add

instance

details

to

the

instance

list

Use

Builtin(VFX)

With_Args(ADDTOLIST)

*

Instance

list

updating

is

now

complete

Use

Builtin(VFX)

With_Args(ENDLISTUPDATE)

*

Remember

which

way

the

name

is

presented

Use

Builtin(VFX_SAVEAVALUE)

With_Args(#REVSD

PNCAFLT

REVERSED

#EMPNO)