Generate UUID In PowerBuilder

PowerBuilder Generate a UUID

generate a version 4 UUID RFC 4122. Add four hyphen “-” characters to obtain blocks of 8, 4, 4, 4 and 12 hex digits. Output the resulting 36-character string “XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX”.

Code Example: Create nvo_uuid from nonvisualobject

forward
global type nvo_uuid from nonvisualobject
end type
type uuid from structure within nvo_uuid
end type
type s_uuid from structure within nvo_uuid
end type
end forward

type uuid from structure
	unsignedlong		data1
	integer		data2
	integer		data3
	blob		data4
end type

type s_uuid from structure
	unsignedlong  data1
 unsignedinteger  data2
 unsignedinteger  data3
 unsignedinteger  data4[4]
end type

global type nvo_uuid from nonvisualobject autoinstantiate
end type

type prototypes
Function Long UuidCreateSequential ( Ref UUID UUID ) Library "rpcrt4.dll"
Function Long UuidToString ( Ref UUID UUID, Ref ULong StringUuid 	) Library "rpcrt4.dll" Alias For "UuidToStringW"
Function Long RpcStringFree ( Ref ULong pString ) Library "rpcrt4.dll" Alias For "RpcStringFreeW"
Subroutine CopyMemory ( Ref String Destination, 	ULong Source, Long Length ) Library  "kernel32.dll" Alias For "RtlMoveMemory"
Function Long uuidCreate(Ref s_UUID astr_uuid) Library "Rpcrt4.dll"  Alias For "UuidCreate"



end prototypes

forward prototypes
public function String of_hex (unsignedlong aul_decimal)
public function string of_generate_uuid2 (string as_type, string as_case)
public function string of_generate_uuid (string as_case)
public function string of_generate_uuid_time ()
end prototypes

public function String of_hex (unsignedlong aul_decimal);String ls_hex
Character lch_hex[0 To 15] = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b',  'c', 'd', 'e', 'f'}

// Check parameters
If IsNull(aul_decimal) Then
	SetNull(ls_hex)
	Return ls_hex
End If

Do
	ls_hex = lch_hex[Mod(aul_decimal, 16)] + ls_hex
	aul_decimal /= 16
Loop Until aul_decimal = 0

Return ls_hex

end function

public function string of_generate_uuid2 (string as_type, string as_case);//====================================================================
// Function: nvo_uuid.of_generate_uuid2()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	string	as_type	
// 	string	as_case	
//--------------------------------------------------------------------
// Returns:  string
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2021/05/18
//--------------------------------------------------------------------
// Usage: nvo_uuid.of_generate_uuid2 ( string as_type, string as_case )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

Long ll_rc
s_uuid lstr_uuid
String ls_guid = ""

Constant Long RPC_S_OK = 0
Constant Long RPC_S_UUID_LOCAL_ONLY = 1824
Constant Long RPC_S_UUID_NO_ADDRESS = 1739

ll_rc = uuidCreate(lstr_uuid)

//  returns 
//   RPC_S_OK - The call succeeded.
//   RPC_S_UUID_LOCAL_ONLY -   The UUID is guaranteed to be unique to this computer only.
//   RPC_S_UUID_NO_ADDRESS -  Cannot get Ethernet/token-ring hardware address for this computer.

If ll_rc <> RPC_S_OK Then
	SetNull(ls_guid)
	// MessageBox("", "uuid create not ok ?!?")
Else
	If as_type = 'F' Then
		ls_guid = Right("00000000" + of_hex(lstr_uuid.data1), 8)
		ls_guid += "-" + Right("0000" + of_hex(lstr_uuid.data2), 4)
		ls_guid += "-" + Right("0000" + of_hex(lstr_uuid.data3), 4)
		ls_guid += "-" + Right("0000" + of_hex(lstr_uuid.data4[1]), 4)
		ls_guid += "-" + Right("0000" + of_hex(lstr_uuid.data4[2]), 4) + Right("0000" + of_hex(lstr_uuid.data4[3]), 4) + Right("0000" + of_hex(lstr_uuid.data4[4]), 4)
		
		If Upper(Trim(as_case))= "U" Then
			ls_guid = Upper(ls_guid)
		ElseIf Upper(Trim(as_case))= "L" Then
			ls_guid = lower(ls_guid)
		End If

	ElseIf as_type = 'R' Then
		ls_guid = Right("00000000" + of_hex(lstr_uuid.data1), 8)
		ls_guid += Right("0000" + of_hex(lstr_uuid.data2), 4)
		ls_guid += Right("0000" + of_hex(lstr_uuid.data3), 4)
		ls_guid += Right("0000" + of_hex(lstr_uuid.data4[1]), 4)
		ls_guid += Right("0000" + of_hex(lstr_uuid.data4[2]), 4) + Right("0000" + of_hex(lstr_uuid.data4[3]), 4) + Right("0000" + of_hex(lstr_uuid.data4[4]), 4)
		
		If Upper(Trim(as_case))= "U" Then
			ls_guid = Upper(ls_guid)
		ElseIf Upper(Trim(as_case))= "L" Then
			ls_guid = lower(ls_guid)
		End If
	End If
End If

Return ls_guid

end function

public function string of_generate_uuid (string as_case);//====================================================================
// Function: nvo_uuid.of_generate_uuid()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	string	as_case	
//--------------------------------------------------------------------
// Returns:  string
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2021/05/18
//--------------------------------------------------------------------
// Usage: nvo_uuid.of_generate_uuid ( string as_case )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================


UUID lstr_UUID
Constant Long RPC_S_OK = 0
Constant Long SZ_UUID_LEN = 36
ULong lul_ptrUuid
String ls_Uuid

lstr_UUID.Data4 = Blob(Space(8), EncodingAnsi!)
ls_Uuid = Space(SZ_UUID_LEN + 2)

Try
	If UuidCreateSequential(lstr_UUID) = RPC_S_OK Then
		If UuidToString(lstr_UUID, lul_ptrUuid) = RPC_S_OK Then
			CopyMemory(ls_Uuid, lul_ptrUuid, SZ_UUID_LEN*2)
			RpcStringFree(lul_ptrUuid)
		End If
	End If
Catch (RuntimeError rte)
	PopulateError(rte.Number, rte.Text)
End Try

If Upper(Trim(as_case)) = "U" Then
	ls_Uuid = Upper(Trim(ls_Uuid))
ElseIf Upper(Trim(as_case)) = "L" Then
	ls_Uuid = Lower(Trim(ls_Uuid))
End If

Return ls_Uuid

end function

public function string of_generate_uuid_time ();Return "ABC"+String(Now(),"yyyymmddhhmmssms")+String(Rand(1000))

end function

on nvo_uuid.create
call super::create
TriggerEvent( this, "constructor" )
end on

on nvo_uuid.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

forward

global type nvo_uuid from nonvisualobject

end type

type uuid from structure within nvo_uuid

end type

type s_uuid from structure within nvo_uuid

end type

end forward

type uuid from structure

unsignedlong data1

integer data2

integer data3

blob data4

end type

type s_uuid from structure

unsignedlong data1

unsignedinteger data2

unsignedinteger data3

unsignedinteger data4[4]

end type

global type nvo_uuid from nonvisualobject autoinstantiate

end type

type prototypes

Function Long UuidCreateSequential ( Ref UUID UUID ) Library "rpcrt4.dll"

Function Long UuidToString ( Ref UUID UUID, Ref ULong StringUuid ) Library "rpcrt4.dll" Alias For "UuidToStringW"

Function Long RpcStringFree ( Ref ULong pString ) Library "rpcrt4.dll" Alias For "RpcStringFreeW"

Subroutine CopyMemory ( Ref String Destination, ULong Source, Long Length ) Library "kernel32.dll" Alias For "RtlMoveMemory"

Function Long uuidCreate(Ref s_UUID astr_uuid) Library "Rpcrt4.dll" Alias For "UuidCreate"

end prototypes

forward prototypes

public function String of_hex (unsignedlong aul_decimal)

public function string of_generate_uuid2 (string as_type, string as_case)

public function string of_generate_uuid (string as_case)

public function string of_generate_uuid_time ()

end prototypes

public function String of_hex (unsignedlong aul_decimal);String ls_hex

Character lch_hex[0 To 15] = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'}

// Check parameters

If IsNull(aul_decimal) Then

SetNull(ls_hex)

Return ls_hex

End If

ls_hex = lch_hex[Mod(aul_decimal, 16)] + ls_hex

aul_decimal /= 16

Loop Until aul_decimal = 0

Return ls_hex

end function

public function string of_generate_uuid2 (string as_type, string as_case);//====================================================================

// Function: nvo_uuid.of_generate_uuid2()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// string as_type

// string as_case

//--------------------------------------------------------------------

// Returns: string

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2021/05/18

//--------------------------------------------------------------------

// Usage: nvo_uuid.of_generate_uuid2 ( string as_type, string as_case )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

Long ll_rc

s_uuid lstr_uuid

String ls_guid = ""

Constant Long RPC_S_OK = 0

Constant Long RPC_S_UUID_LOCAL_ONLY = 1824

Constant Long RPC_S_UUID_NO_ADDRESS = 1739

ll_rc = uuidCreate(lstr_uuid)

// returns

// RPC_S_OK - The call succeeded.

// RPC_S_UUID_LOCAL_ONLY - The UUID is guaranteed to be unique to this computer only.

// RPC_S_UUID_NO_ADDRESS - Cannot get Ethernet/token-ring hardware address for this computer.

If ll_rc <> RPC_S_OK Then

SetNull(ls_guid)

// MessageBox("", "uuid create not ok ?!?")

Else

If as_type = 'F' Then

ls_guid = Right("00000000" + of_hex(lstr_uuid.data1), 8)

ls_guid += "-" + Right("0000" + of_hex(lstr_uuid.data2), 4)

ls_guid += "-" + Right("0000" + of_hex(lstr_uuid.data3), 4)

ls_guid += "-" + Right("0000" + of_hex(lstr_uuid.data4[1]), 4)

ls_guid += "-" + Right("0000" + of_hex(lstr_uuid.data4[2]), 4) + Right("0000" + of_hex(lstr_uuid.data4[3]), 4) + Right("0000" + of_hex(lstr_uuid.data4[4]), 4)

If Upper(Trim(as_case))= "U" Then

ls_guid = Upper(ls_guid)

ElseIf Upper(Trim(as_case))= "L" Then

ls_guid = lower(ls_guid)

End If

ElseIf as_type = 'R' Then

ls_guid = Right("00000000" + of_hex(lstr_uuid.data1), 8)

ls_guid += Right("0000" + of_hex(lstr_uuid.data2), 4)

ls_guid += Right("0000" + of_hex(lstr_uuid.data3), 4)

ls_guid += Right("0000" + of_hex(lstr_uuid.data4[1]), 4)

ls_guid += Right("0000" + of_hex(lstr_uuid.data4[2]), 4) + Right("0000" + of_hex(lstr_uuid.data4[3]), 4) + Right("0000" + of_hex(lstr_uuid.data4[4]), 4)

If Upper(Trim(as_case))= "U" Then

ls_guid = Upper(ls_guid)

ElseIf Upper(Trim(as_case))= "L" Then

ls_guid = lower(ls_guid)

End If

Return ls_guid

end function

public function string of_generate_uuid (string as_case);//====================================================================

// Function: nvo_uuid.of_generate_uuid()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// string as_case

//--------------------------------------------------------------------

// Returns: string

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2021/05/18

//--------------------------------------------------------------------

// Usage: nvo_uuid.of_generate_uuid ( string as_case )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

UUID lstr_UUID

Constant Long RPC_S_OK = 0

Constant Long SZ_UUID_LEN = 36

ULong lul_ptrUuid

String ls_Uuid

lstr_UUID.Data4 = Blob(Space(8), EncodingAnsi!)

ls_Uuid = Space(SZ_UUID_LEN + 2)

Try

If UuidCreateSequential(lstr_UUID) = RPC_S_OK Then

If UuidToString(lstr_UUID, lul_ptrUuid) = RPC_S_OK Then

CopyMemory(ls_Uuid, lul_ptrUuid, SZ_UUID_LEN*2)

RpcStringFree(lul_ptrUuid)

End If

Catch (RuntimeError rte)

PopulateError(rte.Number, rte.Text)

End Try

If Upper(Trim(as_case)) = "U" Then

ls_Uuid = Upper(Trim(ls_Uuid))

ElseIf Upper(Trim(as_case)) = "L" Then

ls_Uuid = Lower(Trim(ls_Uuid))

End If

Return ls_Uuid

end function

public function string of_generate_uuid_time ();Return "ABC"+String(Now(),"yyyymmddhhmmssms")+String(Rand(1000))

end function

on nvo_uuid.create

call super::create

TriggerEvent( this, "constructor" )

end on

on nvo_uuid.destroy

TriggerEvent( this, "destructor" )

call super::destroy

end on

Window Example

forward
global type w_main from window
end type
type cbx_hyphen from checkbox within w_main
end type
type cbx_case from checkbox within w_main
end type
type rb_mt2 from radiobutton within w_main
end type
type rb_mt1 from radiobutton within w_main
end type
type st_1 from statictext within w_main
end type
type sle_uuid from singlelineedit within w_main
end type
type cb_generateuuid from commandbutton within w_main
end type
end forward

global type w_main from window
integer width = 2757
integer height = 496
boolean titlebar = true
string title = "Generate UUID"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cbx_hyphen cbx_hyphen
cbx_case cbx_case
rb_mt2 rb_mt2
rb_mt1 rb_mt1
st_1 st_1
sle_uuid sle_uuid
cb_generateuuid cb_generateuuid
end type
global w_main w_main

type prototypes

end prototypes

on w_main.create
this.cbx_hyphen=create cbx_hyphen
this.cbx_case=create cbx_case
this.rb_mt2=create rb_mt2
this.rb_mt1=create rb_mt1
this.st_1=create st_1
this.sle_uuid=create sle_uuid
this.cb_generateuuid=create cb_generateuuid
this.Control[]={this.cbx_hyphen,&
this.cbx_case,&
this.rb_mt2,&
this.rb_mt1,&
this.st_1,&
this.sle_uuid,&
this.cb_generateuuid}
end on

on w_main.destroy
destroy(this.cbx_hyphen)
destroy(this.cbx_case)
destroy(this.rb_mt2)
destroy(this.rb_mt1)
destroy(this.st_1)
destroy(this.sle_uuid)
destroy(this.cb_generateuuid)
end on

type cbx_hyphen from checkbox within w_main
integer x = 1865
integer y = 44
integer width = 329
integer height = 80
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "hyphen"
boolean checked = true
end type

type cbx_case from checkbox within w_main
integer x = 2231
integer y = 44
integer width = 402
integer height = 80
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Upper Case"
boolean checked = true
boolean threestate = true
end type

event clicked;If cbx_case.Checked Then
	If cbx_case.ThirdState Then
		This.Text = "Lower Case"
	Else
		This.Text = "Upper Case"
	End If
Else
	This.Text = "Nomal"
End If


end event

type rb_mt2 from radiobutton within w_main
integer x = 1170
integer y = 44
integer width = 366
integer height = 80
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Method 2"
end type

event clicked;cbx_hyphen.enabled = this.checked
end event

type rb_mt1 from radiobutton within w_main
integer x = 768
integer y = 44
integer width = 366
integer height = 80
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Method 1"
boolean checked = true
end type

event clicked;cbx_hyphen.enabled = rb_mt2.checked
end event

type st_1 from statictext within w_main
integer x = 30
integer y = 204
integer width = 183
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "UUID:"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_uuid from singlelineedit within w_main
integer x = 219
integer y = 192
integer width = 2450
integer height = 96
integer taborder = 20
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type cb_generateuuid from commandbutton within w_main
integer x = 219
integer y = 32
integer width = 489
integer height = 112
integer taborder = 10
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Generate UUID"
end type

event clicked;nvo_uuid lnvo_uuid
String ls_case, ls_uuid

If cbx_case.Checked Then
	If cbx_case.ThirdState Then
		ls_case = "L"
	Else
		ls_case = "U"
	End If
Else
	ls_case = "N"
End If

If rb_mt1.Checked Then
	ls_uuid = lnvo_uuid.of_generate_uuid(ls_case )
ElseIf rb_mt2.Checked Then
	If cbx_hyphen.Checked Then
		ls_uuid = lnvo_uuid.of_generate_uuid2("F", ls_case )
	Else
		ls_uuid = lnvo_uuid.of_generate_uuid2("R", ls_case )
	End If
End If

sle_uuid.Text = ls_uuid


end event

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

forward

global type w_main from window

end type

type cbx_hyphen from checkbox within w_main

end type

type cbx_case from checkbox within w_main

end type

type rb_mt2 from radiobutton within w_main

end type

type rb_mt1 from radiobutton within w_main

end type

type st_1 from statictext within w_main

end type

type sle_uuid from singlelineedit within w_main

end type

type cb_generateuuid from commandbutton within w_main

end type

end forward

global type w_main from window

integer width = 2757

integer height = 496

boolean titlebar = true

string title = "Generate UUID"

boolean controlmenu = true

boolean minbox = true

boolean maxbox = true

boolean resizable = true

long backcolor = 67108864

string icon = "AppIcon!"

boolean center = true

cbx_hyphen cbx_hyphen

cbx_case cbx_case

rb_mt2 rb_mt2

rb_mt1 rb_mt1

st_1 st_1

sle_uuid sle_uuid

cb_generateuuid cb_generateuuid

end type

global w_main w_main

type prototypes

end prototypes

on w_main.create

this.cbx_hyphen=create cbx_hyphen

this.cbx_case=create cbx_case

this.rb_mt2=create rb_mt2

this.rb_mt1=create rb_mt1

this.st_1=create st_1

this.sle_uuid=create sle_uuid

this.cb_generateuuid=create cb_generateuuid

this.Control[]={this.cbx_hyphen,&

this.cbx_case,&

this.rb_mt2,&

this.rb_mt1,&

this.st_1,&

this.sle_uuid,&

this.cb_generateuuid}

end on

on w_main.destroy

destroy(this.cbx_hyphen)

destroy(this.cbx_case)

destroy(this.rb_mt2)

destroy(this.rb_mt1)

destroy(this.st_1)

destroy(this.sle_uuid)

destroy(this.cb_generateuuid)

end on

type cbx_hyphen from checkbox within w_main

integer x = 1865

integer y = 44

integer width = 329

integer height = 80

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

long backcolor = 67108864

boolean enabled = false

string text = "hyphen"

boolean checked = true

end type

type cbx_case from checkbox within w_main

integer x = 2231

integer y = 44

integer width = 402

integer height = 80

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

long backcolor = 67108864

string text = "Upper Case"

boolean checked = true

boolean threestate = true

end type

event clicked;If cbx_case.Checked Then

If cbx_case.ThirdState Then

This.Text = "Lower Case"

Else

This.Text = "Upper Case"

End If

Else

This.Text = "Nomal"

End If

end event

type rb_mt2 from radiobutton within w_main

integer x = 1170

integer y = 44

integer width = 366

integer height = 80

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

long backcolor = 67108864

string text = "Method 2"

end type

event clicked;cbx_hyphen.enabled = this.checked

end event

type rb_mt1 from radiobutton within w_main

integer x = 768

integer y = 44

integer width = 366

integer height = 80

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

long backcolor = 67108864

string text = "Method 1"

boolean checked = true

end type

event clicked;cbx_hyphen.enabled = rb_mt2.checked

end event

type st_1 from statictext within w_main

integer x = 30

integer y = 204

integer width = 183

integer height = 64

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

long backcolor = 67108864

string text = "UUID:"

alignment alignment = right!

boolean focusrectangle = false

end type

type sle_uuid from singlelineedit within w_main

integer x = 219

integer y = 192

integer width = 2450

integer height = 96

integer taborder = 20

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

borderstyle borderstyle = stylelowered!

end type

type cb_generateuuid from commandbutton within w_main

integer x = 219

integer y = 32

integer width = 489

integer height = 112

integer taborder = 10

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Generate UUID"

end type

event clicked;nvo_uuid lnvo_uuid

String ls_case, ls_uuid

If cbx_case.Checked Then

If cbx_case.ThirdState Then

ls_case = "L"

Else

ls_case = "U"

End If

Else

ls_case = "N"

End If

If rb_mt1.Checked Then

ls_uuid = lnvo_uuid.of_generate_uuid(ls_case )

ElseIf rb_mt2.Checked Then

If cbx_hyphen.Checked Then

ls_uuid = lnvo_uuid.of_generate_uuid2("F", ls_case )

Else

ls_uuid = lnvo_uuid.of_generate_uuid2("R", ls_case )

End If

sle_uuid.Text = ls_uuid

end event

Find Projects On Github click here

Good Luck!

Tutorial And Tips & Tricks.

Was this article helpful?

About Us

Profile

Connect With Us

Visitors Statistics

Tutorial And Tips & Tricks.

Was this article helpful?

Related Articles

About Us

Tags

Profile

Connect With Us

Visitors Statistics