PdcOnline.ClockIn - Revision history

TC at 08:30, 10 December 2014

2014-12-10T08:30:31Z

← Older revision		Revision as of 08:30, 10 December 2014
Line 9:		Line 9:

	== Code example ==		== Code example ==
	This code example ~~connects to the Onlie object and~~ clocks the selected employee in.		This code example clocks the selected employee in.

	<source lang="vb">		<source lang="vb">

TC at 08:29, 10 December 2014

2014-12-10T08:29:46Z

← Older revision		Revision as of 08:29, 10 December 2014
Line 12:		Line 12:

	<source lang="vb">		<source lang="vb">
	dim ~~objProj~~		dim objOnline
	~~dim strRelNr~~
	~~dim strCPID~~

	set ~~objProj~~= ~~pdc~~.~~Projects~~.~~New~~		set objOnline = PDC.ProductRegistration.Online
	~~strRelNr = pdc.ChooseRecord~~(~~0,"", ""~~)		if IsValid(objOnline) then
	~~strCPID = pdc~~.~~ChooseRecord~~(8,"", "~~CP_DEBNR = '~~" ~~& strRelNr &~~ "'")		if objOnline.ClockIn("1074", "", "") then
	~~objProj.SetCustomerID(strRelNr)~~		msgbox "Clocked In"
	~~objProj~~.~~SetContactID(strCPID)~~		else
	~~objProj.Save~~		msgbox PDC.LastError
	~~objProj.Show~~		end if
			end if
	</source>		</source>

	== Availability ==		== Availability ==
	Available since 2014 (From version 4.3 onwards).		Available since 2014 (From version 4.3 onwards).

TC: Created page with "== Declaration == ClockIn(PersonnelNo, BadgeNo, TooLateReason as String) as Boolean == Description == Returns true or false whether the Employee succesfully clocked in == N..."

2014-12-10T08:29:13Z

Created page with "== Declaration == ClockIn(PersonnelNo, BadgeNo, TooLateReason as String) as Boolean == Description == Returns true or false whether the Employee succesfully clocked in == N..."

New page

== Declaration ==
ClockIn(PersonnelNo, BadgeNo, TooLateReason as String) as Boolean

== Description ==
Returns true or false whether the Employee succesfully clocked in

== Notes ==
This method executes the clockin command in the Shop floor registration

== Code example ==
This code example connects to the Onlie object and clocks the selected employee in.

<source lang="vb">
dim objProj
dim strRelNr
dim strCPID

set objProj= pdc.Projects.New
strRelNr = pdc.ChooseRecord(0,"", "")
strCPID = pdc.ChooseRecord(8,"", "CP_DEBNR = '" & strRelNr & "'")
objProj.SetCustomerID(strRelNr)
objProj.SetContactID(strCPID)
objProj.Save
objProj.Show
</source>

== Availability ==
Available since 2014 (From version 4.3 onwards).