Vraag : De hulp van de behoefte in het schrijven van een orakelfunctie…

Ik heb één of andere hulp in het schrijven van een recursieve functie nodig waarvoor ik kan boren tot de details RM voor een Functie Product.

Attached wat is hoe ik it.
In de functie in bijlage wil schrijven de 1st curseur al identiteitskaart van het PUNT van al ingrediënt voor een bepaald product
then zal krijgen al punt wordt overgegaan tot 2de curseur die alle details voor SG12 en het pakhuis van SG 16 van inventaristype RM en int. zal krijgen.
If wij krijgen RM dan nemen in één lijst op als int. dan de 1st curseur opnieuw roept zodanig dat het neer zou moeten boren tot het RM…. krijgtvan

NEW-RM-REPORT.sql (5 KB)
van de

Antwoord : De hulp van de behoefte in het schrijven van een orakelfunctie…

Had typo.  Te proberen gelieve dit.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

Op Fout hervat daarna

Const ADS_SCOPE_SUBTREE = 'het doelvoorwerp van Onderzoek 2 en alle subniveaus


Schemerige objRootDSE: Reeks objRootDSE = GetObject („LDAP: //RootDSE“)
strDNSDomain = vervang (vervang (objRootDSE.Get („defaultNamingContext“),“, DC= ", „. “), „DC=“, "")

strADsPath = „LDAP: /“ & objRootDSE.Get („defaultNamingContext“)

'Verbind met Actieve Folder
Plaats objConnection = CreateObject („ADODB.Connection“)
Plaats objCommand = CreateObject („ADODB.Command“)
objConnection.Provider = „ADsDSOObject“
objConnection.Open de „Actieve Leverancier van de Folder“
Vastgesteld objCommand.ActiveConnection = objConnection
objCommand.Properties (de „Grootte van de Pagina“) = 1000
objCommand.Properties („Searchscope“) = ADS_SCOPE_SUBTREE

 
Schemerige objOU: Reeks objOU = GetObject („LDAP: /“ & TARGET_OU)
 
Schemerige objExcel: Reeks objExcel = CreateObject („Excel.Application“)
Schemerige objWorkbook: Reeks objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)
 
'Begin bij Rij 2, na de kopbal.
Schemerige intRow: intRow = 2
 
Doe tot objExcel.Cells (intRow, 1). Waarde = ""
		  
	Schemerige strUserName: strUserName = objExcel.Cells (intRow, 1). Waarde
	Schemerige strDisplayName: strDisplayName = objExcel.Cells (intRow, 2). Waarde
	Schemerige strFirstName: strFirstName = objExcel.Cells (intRow, 3). Waarde
	Schemerige strLastName: strLastName = objExcel.Cells (intRow, 4). Waarde
	Schemerige strDS: strDS = objExcel.Cells (intRow, 5). Waarde  
	'Schemerige strOffice: strOffice = objExcel.Cells (intRow, 6). Waarde
	Schemerige strPWD: strPWD = objExcel.Cells (intRow, 7). Waarde
			
	'Het Domein van de ADVERTENTIE van het onderzoek om gebruikers Gemeenschappelijke Naam te verifiëren bestaat niet reeds
	objCommand.CommandText = „SELECTEER distinguishedName VAN '“ & strADsPath & _
	„„WAAR objectCategory='user“ EN cn='" & strDisplayName & „'“
	Reeks objRecordSet = objCommand.Execute
	Als objRecordSet.EOF toen
					 
		Schemerige objUser: Reeks objUser = objOU.Create („gebruiker“, „CN=“ & strDisplayName)
		objUser.Put „sAMAccountName“, strUserName
		objUser.Put „userPrincipalName“, strUserName & „@“ & strDNSDomain
		objUser.Put „displayName“, strDisplayName
		objUser.Put „Sn“, strLastName
		objUser.Put „givenName“, strFirstName
		objUser.Put „beschrijving“, strDS
		'objUser.Put „physicalDeliveryOfficeName“, strOffice
		objUser.Put „homeDrive“, „X: “
		objUser.Put „homeDirectory“,“ \ \ shadowcom.local \ systeem\ profielen \ „& strUsername
		objUser.SetInfo
		'Separat af van de sektion til invoer wachtwoord til brugerne
		objUser.userAccountControl = 512
		objUser.SetPassword strPWD
		objUser.AccountDisabled = Vals
		objUser.SetInfo
	Eind als
		
	intRow = intRow + 1
Lijn
 
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
Andere oplossingen  
 
programming4us programming4us