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:
6:
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:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
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:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:
758:
759:
760:
761:
762:
763:
764:
765:
766:
767:
768:
769:
770:
771:
772:
|
Public Funktion CreateTestClass (ClientValueIn so Variante, CWValueIn wie Variante, Test als Schnur) als ganze Zahl
Schwaches Veh als Träger
Schwaches Resultat als ganze Zahl
'
Veh einstellen = neuer Träger
Fall-Test vorwählen
„BHP“ umkleiden
Resultat = Veh.BhpRank (ClientValueIn, CWValueIn)
Fall „Kilowatt“
Resultat = Veh.KWRank (ClientValueIn, CWValueIn)
Fall „Buchstabe“
Resultat = Veh.CharacterRank (ClientValueIn, CWValueIn)
Fall „KWStr“
Resultat = Veh.KWStrRank (ClientValueIn, CWValueIn)
Fall „BPStrRank“
Resultat = Veh.BhpStrRank (ClientValueIn, CWValueIn)
Fall „Maschine“
Resultat = Veh.EngineRank (ClientValueIn, CWValueIn)
Fall „cm“
Resultat = Veh.CCRank (ClientValueIn, CWValueIn)
Fall „Kraftstoff“
Resultat = Veh.FuelRank (ClientValueIn, CWValueIn)
Fall „NomCC“
Resultat = Veh.NomRank (ClientValueIn, CWValueIn)
Fall „Türen“
Resultat = Veh.DoorRank (ClientValueIn, CWValueIn)
Fall „Ventile“
Resultat = Veh.ValveRank (ClientValueIn, CWValueIn)
Ende auserwählt
CreateTestClass = Resultat
Enden-Funktion
Trägerkategorie
Wahl vergleichen Datenbank
Privates pBhp als lang
Privates pCWCode als Schnur
Privates pKw als lang
Privates pNomCC als Doppeltes
Staatseigentum erhalten Bhp () als lang
Bhp = pBhp
Enden-Eigentum
Staatseigentum erhalten Kilowatt () als lang
Kilowatt = pKw
Enden-Eigentum
Staatseigentum erhalten NOMCC () als Doppeltes
NOMCC = pNomCC
Enden-Eigentum
Staatseigentum ließ Bhp (Wert als lang)
pBhp = Wert
Enden-Eigentum
Staatseigentum ließ Kilowatt (Wert als lang)
pKw = Wert
Enden-Eigentum
Staatseigentum ließ NOMCC (Wert als Doppeltes)
pNomCC = Wert
Enden-Eigentum
Allgemeine Funktion EngineRank (Strclientengine so Variante, strcwengine wie Variante) als lang
Schwaches StrClientEngineIn als Schnur
Schwaches StrCWEngineIn als Schnur
Schwaches BInstrFWD, wie Boolesch
Schwaches BInstrRev, wie Boolesch
Schwaches BCompareEng, wie Boolesch
Schwacher Kostenzähler als lang
Schwaches foutput als lang
Schwaches StrTypo als Schnur
Schwaches intcount als ganze Zahl
Schwaches BHPin als lang
Wenn IsNull (Strclientengine) = oder IsNull (strcwengine) dann ausrichten
'keine Daten
Sonst
'geführte Werte erhalten
StrClientEngineIn = Strclientengine
StrCWEngineIn = strcwengine
'Vorausgehen
'Rang vergleichen an
'Rang auf instr
'Rang auf Typo
'Rang auf teilweisem
'*****************************************************************************
'überprüfen vergleichen
'Rang vergleichen an
Wenn StrComp (StrCWEngineIn, StrClientEngineIn, 1) = falsch oder StrComp (StrCWEngineIn, RegExpReplace (StrClientEngineIn, „"), 1) = falsch dann
Kostenzähler = 10000
Sonst
Kostenzähler = 0
'das Instring überprüfen
'****************************************************************************
Wenn InStr (StrClientEngineIn, StrCWEngineIn) > 0 dann
Kostenzähler = Gegen+ 1000
Sonst
Beenden wenn
Wenn InStr (StrCWEngineIn, StrClientEngineIn) > 0 dann
Kostenzähler = Gegen+ 1000
Sonst
Beenden wenn
'***************************************************************************
'Familie überprüfen
'' instring Vorwärtscw zum Klienten
Wenn FamilyInstr (StrCWEngineIn, StrClientEngineIn) = "" dann
Sonst
Kostenzähler = Gegen+ 100
Beenden wenn
'***************************************************************************
'Typos überprüfen
StrTypo = DecodeEngine (StrCWEngineIn, StrClientEngineIn)
Wenn StrTypo = „Typo“ dann
Kostenzähler = Gegen+ 10
Sonst
'nichts tun
Beenden wenn
'****************************************************************************
'Buchstabenklassifizierungkerbe erhalten
intcount = CharacterRank (StrCWEngineIn, StrClientEngineIn)
Kostenzähler = Gegen + intcount
'***************************************************************************
'' ***************************************************************************
'' Technischer Test bhp
'Wenn CurrentProject.AllForms („Hauptleitung“) .IsLoaded dann
'
'BHPIn = [Formen]! [Hauptleitung]! [CALC BHP]
'
'
'Sonst
'
'
'Beenden wenn
'Ende von vergleichen
Beenden wenn
Beenden wenn
GetEngineRank = Gegen * 100
Enden-Funktion
Allgemeine Funktion CharacterRank (StrEng1 als Schnur, strEng2 als Schnur) als lang
Schwacher Schalter als Stoppuhr
Schwaches lIndex als lang
Schwaches lLoopPosition als lang
Schwaches lCharacterPosition als lang
Schwaches iCounter als lang
Schwaches StrWantedCharacter als Schnur
Schwaches StrTemp als Schnur
'Einstellen Schalter = neue Stoppuhr
'sw.StartTimer
'auf der kürzeren Schnur als Kontrollenschleifen dieser Länge und instr Richtung beziehen
Wenn Len (strEng2) < Len (StrEng1) dann
'sie austauschen
strEng2 = strEng2 + StrEng1
StrEng1 = verlassen (strEng2, Len (strEng2) - Len (StrEng1))
strEng2 = recht (strEng2, Len (strEng2) - Len (StrEng1))
Beenden wenn
'das kürzeste erhalten len
lIndex = Len (StrEng1)
'strtemp wird der längsten Schnur gleich, da dieses das ist, das wir für jede Schleife verkürzen möchten
StrTemp = strEng2
'Schleife um Schnur
Für lLoopPosition = 1 zum lIndex
'den einzelnen Buchstaben erhalten, der zu Beginn der Schnur beginnt
StrWantedCharacter = mittler (StrEng1, lLoopPosition, 1)
'die Position unseres Buchstabens von der längsten Schnur erhalten
lCharacterPosition = InStr (strEng2, StrWantedCharacter)
'Buchstabe fand in der längsten Schnur
Wenn InStr (StrTemp, StrWantedCharacter) <> 0 dann
'den Buchstaben von der Tempschnur entfernen
StrTemp = ersetzen (StrTemp, mittler (strEng2, lCharacterPosition, 1), "", 1)
'den Kostenzähler erhöhen
iCounter = iCounter + 1
Beenden wenn
Folgendes lLoopPosition
'processtime = sw.EndTimer u. „Millisekunden“
'Debug.Print sw.EndTimer
'Debug.Print iCounter
CharacterRank = iCounter
Enden-Funktion
Allgemeine Funktion NomRank (StrClient als Schnur, CWNomIn als Doppeltes) als ganze Zahl
Schwaches ValueIn als Doppeltes
Schwaches StrReturnedFromClientString als Schnur
Wenn IsNull (CWNomIn) dann
ValueIn = 0
Sonst
ValueIn = CWNomIn
Beenden wenn
StrReturnedFromClientString = GetCC (StrClient)
Wenn StrComp (CStr (ValueIn), StrReturnedFromClientString, 1) = falsch dann
NomRank = 1
Funktion herausnehmen
Beenden wenn
NomRank = 0
Enden-Funktion
Allgemeine Funktion KWRank (ClientIn so Variante, CWKWIn wie lang, wahlweise freigestelltes varianceIn als ganze Zahl) als ganze Zahl
Schwaches ValueMin als lang
Schwaches ValueMax als lang
Schwaches ValueIn als lang
Schwaches ValueCWIn als lang
A als lang verdunkeln
ValueCWIn = CWKWIn
Wenn (varianceIn) = 0 dann
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Sonst
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Beenden wenn
Wenn ValueCWIn = ClientIn dann
KWRank = 2
Funktion herausnehmen
Sonst
Für A = ValueMin zu ValueMax
Wenn ClientIn = A dann
KWRank = 1
Funktion herausnehmen
Beenden wenn
Zunächst A
Beenden wenn
KWRank = 0
Enden-Funktion
Allgemeine Funktion BhpRank (ClientIn so Variante, CalcBHP wie lang, wahlweise freigestelltes varianceIn als ganze Zahl) als ganze Zahl
Schwaches ValueMin als lang
Schwaches ValueMax als lang
Schwaches ValueIn als lang
Schwaches ValueCWIn als lang
A als lang verdunkeln
ValueCWIn = CalcBHP
Wenn (varianceIn) = 0 dann
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Sonst
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Beenden wenn
Wenn ValueCWIn = ClientIn dann
BhpRank = 2
Funktion herausnehmen
Sonst
Für A = ValueMin zu ValueMax
Wenn ClientIn = A dann
BhpRank = 1
Funktion herausnehmen
Beenden wenn
Zunächst A
Beenden wenn
BhpRank = 0
Enden-Funktion
Allgemeine Funktion ValveRank (ClientStr so Variante, CWCylindersIn wie ganze Zahl)
Schwaches ValueIn als ganze Zahl
Schwaches ClientValveCount als lang
Schwaches CylinderCountIn als lang
Wenn IsNull (CWCylindersIn) dann
ValueIn = 0
Sonst
CylinderCountIn = CWCylindersIn
Beenden wenn
Wenn IsNull ([Formen]! [Hauptleitung]! [VENTILE PRO ZYLINDER]. Wert) dann
ValueIn = 0
Sonst
ValueIn = [Formen]! [Hauptleitung]! [VENTILE PRO ZYLINDER]. Wert * CylinderCountIn
ClientValveCount = GetNumValves (ClientStr)
Beenden wenn
Wenn ValueIn = ClientValveCount und ValueIn > 0 dann
ValveRank = 1
Funktion herausnehmen
Beenden wenn
ValveRank = 0
Enden-Funktion
Funktion GetNumValves (Text)
Schwache Position als ganze Zahl
Tun
Position = InStr (Position + 1, Text, „V“)
Wenn Position > 2 dann
Wenn mittler (Text, Position - 2, 2) wie „##“ dann
GetNumValves = Val (mittler (Text, Position - 2, 2))
Funktion herausnehmen
Beenden wenn
Beenden wenn
Wenn Position > 1 dann
Wenn mittler (Text, Position - 1, 1) wie „#“ dann
GetNumValves = Val (mittler (Text, Position - 1, 1))
Funktion herausnehmen
Beenden wenn
Beenden wenn
Schlingen während Position
GetNumValves = 0
Enden-Funktion
Allgemeine Funktion FuelRank (StrClient, CWFuelIn als Schnur) als lang
Schwaches ValueIn als Schnur
Wenn IsNull (CWFuelIn) dann
ValueIn = ""
Sonst
ValueIn = CWFuelIn
Beenden wenn
Wenn StrComp (gelassen (ValueIn, 1), StrClient, 1) = falsch dann
FuelRank = 1
Funktion herausnehmen
Beenden wenn
FuelRank = 0
Enden-Funktion
Allgemeine Funktion DoorRank (ClientStr als Schnur, CWDoorsIn als ganze Zahl) als ganze Zahl
Schwaches ValueIn als ganze Zahl
Schwaches ClientDoorCount als lang
Wenn IsNull (CWDoorsIn) dann
ValueIn = 0
Sonst
ValueIn = CWDoorsIn
ClientDoorCount = GetDoors (ClientStr)
Beenden wenn
Wenn ValueIn = ClientDoorCount und ValueIn > 0 dann
DoorRank = 1
Funktion herausnehmen
Beenden wenn
DoorRank = 0
Enden-Funktion
Allgemeine Funktion TransmissionRank (ClientStr als Schnur, CWTransmissionIn als Schnur)
Schwaches ValueIn als Schnur
Wenn IsNull (CWTransmissionIn) dann
ValueIn = ""
Sonst
ValueIn = CWTransmissionIn
Beenden wenn
Wenn StrComp (ValueIn, ClientStr, 1) = falsch dann
TransmissionRank = 1
Funktion herausnehmen
Beenden wenn
TransmissionRank = 0
Enden-Funktion
Funktion GetDoors (ClientStr als Schnur) als ganze Zahl
Schwaches regex als Gegenstand
Schwaches Gleiches als Gegenstand
Regex = CreateObject („vbscript.regexp“) einstellen
'für die Ziffern und „d filtern, die getrennt durch Raum“
regex. Muster = „[0-9] + d“
'Fall abstellen
regex.IgnoreCase = ausrichten en
'Gegenstand verursachen
Gleiches = regex einstellen. Durchführen (ClientStr)
'Wert einstellen oder erhalten
Wenn Gleiches. Zählimpuls > 0 dann GetDoors = Ordnung (Val (Gleiches (0)))
'Tötunggegenstand
Regex einstellen = nichts
Funktion beenden
Allgemeine Funktion CCRank (ClientIn so Variante, CWCCIn wie lang, wahlweise freigestelltes varianceIn als ganze Zahl) als ganze Zahl
Schwaches ValueMin als lang
Schwaches ValueMax als lang
Schwaches ValueIn als lang
Schwaches ValueCWIn als lang
A als lang verdunkeln
ValueCWIn = CWCCIn
Wenn (varianceIn) = 0 dann
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Sonst
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Beenden wenn
Wenn ValueCWIn = ClientIn dann
CCRank = 2
Funktion herausnehmen
Sonst
Für A = ValueMin zu ValueMax
Wenn ClientIn = A dann
CCRank = 1
Funktion herausnehmen
Beenden wenn
Zunächst A
Beenden wenn
CCRank = 0
Enden-Funktion
Allgemeine Funktion BhpStrRank (StrClient als Schnur, CWBhp als lang, wahlweise freigestellte Abweichung als ganze Zahl)
Schwaches StrCientln als Schnur
Schwaches ValueMin als lang
Schwaches ValueMax als lang
Schwaches ValueCWIn als lang
A als lang verdunkeln
B als lang verdunkeln
StrTemp als Schnur verdunkeln
StrTemp2 als Schnur verdunkeln
StrArray () als Schnur verdunkeln
Als ganze Zahl entgegengesetzt verdunkeln
Teststr als Schnur verdunkeln
Wenn IsNull (ValueCWIn) dann
ValueCWIn = 0
Sonst
ValueCWIn = CWBhp
Beenden wenn
Wenn (varianceIn) = 0 dann
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Sonst
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Beenden wenn
Wenn IsNull (ValueCWIn) = oder ValueCWIn = 0 dann ausrichten
Sonst
Wenn Len (StrClient) <= 0 oder IsNull (StrClient) dann
KWStrRank = 0
Funktion herausnehmen
Sonst
Wenn ValueCWIn = StrClient dann
BhpStrRank = 2
Funktion herausnehmen
Sonst
StrTemp = SplitNumeralandText (StrClient)
StrTemp2 = RegExpReplace (StrTemp, „[^0-9]“, „")
StrArray = aufspaltete (StrTemp2)
Für A = LBound (StrArray ()) Zu UBound (StrArray ())
Für B = ValueMin zu ValueMax
Wenn (StrComp (StrArray (A), CStr (B), 1) = falsch) dann
BhpStrRank = 1
Funktion herausnehmen
Beenden wenn
Folgendes B
Zunächst A
Beenden wenn
Beenden wenn
Beenden wenn
BhpStrRank = 0
Enden-Funktion
Allgemeine Funktion KWStrRank (StrClient als Schnur, CWKw als lang, wahlweise freigestellte Abweichung als ganze Zahl)
Schwaches StrCientln als Schnur
Schwaches ValueMin als lang
Schwaches ValueMax als lang
Schwaches ValueCWIn als lang
A als lang verdunkeln
B als lang verdunkeln
StrTemp als Schnur verdunkeln
StrTemp2 als Schnur verdunkeln
StrArray () als Schnur verdunkeln
Als ganze Zahl entgegengesetzt verdunkeln
Teststr als Schnur verdunkeln
Wenn IsNull (ValueCWIn) dann
ValueCWIn = 0
Sonst
ValueCWIn = CWKw
Beenden wenn
Wenn (varianceIn) = 0 dann
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Sonst
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Beenden wenn
Wenn IsNull (ValueCWIn) = oder ValueCWIn = 0 dann ausrichten
Sonst
Wenn Len (StrClient) <= 0 oder IsNull (StrClient) dann
KWStrRank = 0
Funktion herausnehmen
Sonst
Wenn ValueCWIn = StrClient dann
KWStrRank = 2
Funktion herausnehmen
Sonst
StrTemp = SplitNumeralandText (StrClient)
StrTemp2 = RegExpReplace (StrTemp, „[^0-9]“, „")
StrArray = aufspaltete (StrTemp2)
Für A = LBound (StrArray ()) Zu UBound (StrArray ())
Für B = ValueMin zu ValueMax
Wenn (StrComp (StrArray (A), CStr (B), 1) = falsch) dann
KWStrRank = 1
Funktion herausnehmen
Beenden wenn
Folgendes B
Zunächst A
Beenden wenn
Beenden wenn
Beenden wenn
KWStrRank = 0
Enden-Funktion
Allgemeines Funktion getTechDetail (StrClient als Schnur, TechSpec als Schnur, wahlweise freigestellte Abweichung als ganze Zahl) als ganze Zahl
'Schwaches StrCientln als Schnur
'Schwaches ValueMin als lang
'Schwaches ValueMax als lang
'Schwaches ValueIn als lang
'A als lang verdunkeln
'Schwaches B als lang
'Schwaches StrTemp als Schnur
'Schwaches StrTemp2 als Schnur
'Schwaches StrArray () als Schnur
'Schwacher Kostenzähler als ganze Zahl
'Schwaches teststr als Schnur
Wenn StrClient = "" oder „0“ dann
Sonst
Wenn (Abweichung) = 0 dann Abweichung = 5
Wenn IsNull (ValueIn) = oder ValueIn = 0 dann ausrichten
Sonst
Wenn Len (StrClient) <= 0 oder IsNull (StrClient) dann
getTechDetail = 0
Funktion herausnehmen
Sonst
Wenn ValueIn = StrClient dann
getTechDetail = 2
Funktion herausnehmen
Sonst
StrTemp = SplitNumeralandText (StrClient)
StrTemp2 = RegExpReplace (StrTemp, „[^0-9]“, „")
StrArray = aufspaltete (StrTemp2)
ValueMin = ValueIn - Abweichung
ValueMax = ValueIn + Abweichung
Für A = LBound (StrArray ()) Zu UBound (StrArray ())
Für B = ValueMin zu ValueMax
Wenn (StrComp (StrArray (A), CStr (B), 1) = falsch) dann
getTechDetail = 1
Funktion herausnehmen
Beenden wenn
Folgendes B
Zunächst A
Beenden wenn
Beenden wenn
Beenden wenn
Beenden wenn
getTechDetail = 0
Enden-Funktion
Allgemeine Funktion BodyRank (ClientStr als Schnur)
Schwaches ValueIn als Schnur
Wenn IsNull ([Formen]! [Hauptleitung]! [Allgemeiner Körper alias CW]. Wert) dann
ValueIn = ""
Sonst
ValueIn = [Formen]! [Hauptleitung]! [Allgemeiner Körper alias CW]. Wert
Beenden wenn
Wenn StrComp (ValueIn, ClientStr, 1) = falsch dann
BodyRank = 1
Funktion herausnehmen
Beenden wenn
BodyRank = 0
Enden-Funktion
|
