· 7 years ago · Jan 14, 2019, 02:28 PM
1Exportfile for AOT version 1.0 or later
2Formatversion: 1
3
4***Element: JOB
5
6; Microsoft Dynamics AX Job: Job114 nicht geladen
7; --------------------------------------------------------------------------------
8 JOBVERSION 1
9
10 SOURCE #Job114
11 #static void Job114(Args _args)
12 #{
13 # KCS_HermesInterfaceServiceContract serviceContract = new KCS_HermesInterfaceServiceContract();
14 # KCS_MCRCouponParameterDataContract parameterDataContract = new KCS_MCRCouponParameterDataContract();
15 # KCS_MCRCouponResultDataContract resultDataContract = new KCS_MCRCouponResultDataContract();
16 #
17 # parameterDataContract.CouponId("C00001");
18 # parameterDataContract.CustAccount("06000681");
19 # parameterDataContract.BonSum(105.5);
20 #
21 # resultDataContract = serviceContract.GetIfCouponIsValid(parameterDataContract);
22 #
23 #
24 # if(resultDataContract)
25 # {
26 # info(strFmt("%1 , %2 , %3 , %4", resultDataContract.CouponOneTimeUse()
27 # , resultDataContract.CouponQuantity()
28 # , resultDataContract.ErrorCode()
29 # , resultDataContract.ErrorMessage()));
30 # }
31 #
32 # info(serviceContract.SetCustomerCouponAsUsed(parameterDataContract));
33 #}
34 ENDSOURCE
35 PROPERTIES
36 Origin #{5216C137-1909-4ED2-9552-88B72A8E5A7D}
37 ENDPROPERTIES
38
39
40***Element: DBE
41
42; Microsoft Dynamics AX Enumtype : KCS_HermesInterfaceErrorCode unloaded
43; --------------------------------------------------------------------------------
44 ENUMTYPEVERSION 1
45
46 ENUMTYPE #KCS_HermesInterfaceErrorCode
47 PROPERTIES
48 Name #KCS_HermesInterfaceErrorCode
49 Label #@SYS67931
50 Help #@KHI10
51 UseEnumValue #Yes
52 Origin #{9AF0F37D-FF03-4451-96A2-C319AC001257}
53 ENDPROPERTIES
54
55 TYPEELEMENTS
56 #None
57 PROPERTIES
58 Name #None
59 EnumValue #0
60 ENDPROPERTIES
61
62 #NotFound
63 PROPERTIES
64 Name #NotFound
65 Label #@RET1644
66 EnumValue #1
67 ENDPROPERTIES
68
69 #KCS_CouponIsExpired
70 PROPERTIES
71 Name #KCS_CouponIsExpired
72 Label #@KWE3719
73 EnumValue #10
74 ENDPROPERTIES
75
76 #KCS_CouponCustomerNotValid
77 PROPERTIES
78 Name #KCS_CouponCustomerNotValid
79 Label #@KWE3726
80 EnumValue #20
81 ENDPROPERTIES
82
83 #KCS_CouponIsVoided
84 PROPERTIES
85 Name #KCS_CouponIsVoided
86 Label #@KWE3720
87 EnumValue #25
88 ENDPROPERTIES
89
90 #KCS_CouponBonQtyNotReached
91 PROPERTIES
92 Name #KCS_CouponBonQtyNotReached
93 Label #@KWE3721
94 EnumValue #30
95 ENDPROPERTIES
96
97 #KCS_CouponDoesNotExist
98 PROPERTIES
99 Name #KCS_CouponDoesNotExist
100 Label #@KWE3723
101 EnumValue #40
102 ENDPROPERTIES
103
104 #KCS_CouponWrongNumberOfDiscounts
105 PROPERTIES
106 Name #KCS_CouponWrongNumberOfDiscounts
107 Label #@KWE3724
108 EnumValue #50
109 ENDPROPERTIES
110
111 ENDTYPEELEMENTS
112 ENDENUMTYPE
113
114<Table:Record name="TmpSysLabel"
115 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
116 <Table:Field name="Language">de</Table:Field>
117 <Table:Field name="Label">Fehlercode</Table:Field>
118 <Table:Field name="Description"></Table:Field>
119 <Table:Field name="LabelId">@SYS67931</Table:Field>
120 <Table:Field name="SysLabelApplModule">0</Table:Field>
121 <Table:Field name="recVersion">0</Table:Field>
122 <Table:Field name="Partition">5637144576</Table:Field>
123</Table:Record>
124<Table:Record name="TmpSysLabel"
125 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
126 <Table:Field name="Language">en-us</Table:Field>
127 <Table:Field name="Label">Error code</Table:Field>
128 <Table:Field name="Description"></Table:Field>
129 <Table:Field name="LabelId">@SYS67931</Table:Field>
130 <Table:Field name="SysLabelApplModule">0</Table:Field>
131 <Table:Field name="recVersion">0</Table:Field>
132 <Table:Field name="Partition">5637144576</Table:Field>
133</Table:Record>
134
135<Table:Record name="TmpSysLabel"
136 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
137 <Table:Field name="Language">de</Table:Field>
138 <Table:Field name="Label">Hermes Interface Fehler Code</Table:Field>
139 <Table:Field name="Description"></Table:Field>
140 <Table:Field name="LabelId">@KHI10</Table:Field>
141 <Table:Field name="SysLabelApplModule">0</Table:Field>
142 <Table:Field name="recVersion">0</Table:Field>
143 <Table:Field name="Partition">5637144576</Table:Field>
144</Table:Record>
145<Table:Record name="TmpSysLabel"
146 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
147 <Table:Field name="Language">en-us</Table:Field>
148 <Table:Field name="Label">Hermes interface error code</Table:Field>
149 <Table:Field name="Description"></Table:Field>
150 <Table:Field name="LabelId">@KHI10</Table:Field>
151 <Table:Field name="SysLabelApplModule">0</Table:Field>
152 <Table:Field name="recVersion">0</Table:Field>
153 <Table:Field name="Partition">5637144576</Table:Field>
154</Table:Record>
155
156<Table:Record name="TmpSysLabel"
157 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
158 <Table:Field name="Language">de</Table:Field>
159 <Table:Field name="Label">Nicht gefunden</Table:Field>
160 <Table:Field name="Description">{UniqueInNameSpace=HHTPRLStatusTypeBase}</Table:Field>
161 <Table:Field name="LabelId">@RET1644</Table:Field>
162 <Table:Field name="SysLabelApplModule">0</Table:Field>
163 <Table:Field name="recVersion">0</Table:Field>
164 <Table:Field name="Partition">5637144576</Table:Field>
165</Table:Record>
166<Table:Record name="TmpSysLabel"
167 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
168 <Table:Field name="Language">en-us</Table:Field>
169 <Table:Field name="Label">Not found</Table:Field>
170 <Table:Field name="Description">{UniqueInNameSpace=HHTPRLStatusTypeBase}</Table:Field>
171 <Table:Field name="LabelId">@RET1644</Table:Field>
172 <Table:Field name="SysLabelApplModule">0</Table:Field>
173 <Table:Field name="recVersion">0</Table:Field>
174 <Table:Field name="Partition">5637144576</Table:Field>
175</Table:Record>
176
177<Table:Record name="TmpSysLabel"
178 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
179 <Table:Field name="Language">de</Table:Field>
180 <Table:Field name="Label">Coupon bereits abgelaufen. Gültiger Zeitraum ist von „%1“ bis „%2“</Table:Field>
181 <Table:Field name="Description"></Table:Field>
182 <Table:Field name="LabelId">@KWE3719</Table:Field>
183 <Table:Field name="SysLabelApplModule">0</Table:Field>
184 <Table:Field name="recVersion">0</Table:Field>
185 <Table:Field name="Partition">5637144576</Table:Field>
186</Table:Record>
187<Table:Record name="TmpSysLabel"
188 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
189 <Table:Field name="Language">en-us</Table:Field>
190 <Table:Field name="Label">Coupon is expired. The valid period is from "%1" to "%2"</Table:Field>
191 <Table:Field name="Description"></Table:Field>
192 <Table:Field name="LabelId">@KWE3719</Table:Field>
193 <Table:Field name="SysLabelApplModule">0</Table:Field>
194 <Table:Field name="recVersion">0</Table:Field>
195 <Table:Field name="Partition">5637144576</Table:Field>
196</Table:Record>
197
198<Table:Record name="TmpSysLabel"
199 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
200 <Table:Field name="Language">de</Table:Field>
201 <Table:Field name="Label">Coupon für Debitor '%1' ist nicht einlösbar</Table:Field>
202 <Table:Field name="Description"></Table:Field>
203 <Table:Field name="LabelId">@KWE3726</Table:Field>
204 <Table:Field name="SysLabelApplModule">0</Table:Field>
205 <Table:Field name="recVersion">0</Table:Field>
206 <Table:Field name="Partition">5637144576</Table:Field>
207</Table:Record>
208<Table:Record name="TmpSysLabel"
209 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
210 <Table:Field name="Language">en-us</Table:Field>
211 <Table:Field name="Label">Coupon for customer '%1' is not redeemable</Table:Field>
212 <Table:Field name="Description"></Table:Field>
213 <Table:Field name="LabelId">@KWE3726</Table:Field>
214 <Table:Field name="SysLabelApplModule">0</Table:Field>
215 <Table:Field name="recVersion">0</Table:Field>
216 <Table:Field name="Partition">5637144576</Table:Field>
217</Table:Record>
218
219<Table:Record name="TmpSysLabel"
220 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
221 <Table:Field name="Language">de</Table:Field>
222 <Table:Field name="Label">Coupon für diesen Debitor bereits eingelöst</Table:Field>
223 <Table:Field name="Description"></Table:Field>
224 <Table:Field name="LabelId">@KWE3720</Table:Field>
225 <Table:Field name="SysLabelApplModule">0</Table:Field>
226 <Table:Field name="recVersion">0</Table:Field>
227 <Table:Field name="Partition">5637144576</Table:Field>
228</Table:Record>
229<Table:Record name="TmpSysLabel"
230 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
231 <Table:Field name="Language">en-us</Table:Field>
232 <Table:Field name="Label">The coupon for this customer is already voided</Table:Field>
233 <Table:Field name="Description"></Table:Field>
234 <Table:Field name="LabelId">@KWE3720</Table:Field>
235 <Table:Field name="SysLabelApplModule">0</Table:Field>
236 <Table:Field name="recVersion">0</Table:Field>
237 <Table:Field name="Partition">5637144576</Table:Field>
238</Table:Record>
239
240<Table:Record name="TmpSysLabel"
241 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
242 <Table:Field name="Language">de</Table:Field>
243 <Table:Field name="Label">Coupon kann nicht verwendet werden, da die benötigte Bonsumme von '%1' nicht erreicht ist</Table:Field>
244 <Table:Field name="Description"></Table:Field>
245 <Table:Field name="LabelId">@KWE3721</Table:Field>
246 <Table:Field name="SysLabelApplModule">0</Table:Field>
247 <Table:Field name="recVersion">0</Table:Field>
248 <Table:Field name="Partition">5637144576</Table:Field>
249</Table:Record>
250<Table:Record name="TmpSysLabel"
251 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
252 <Table:Field name="Language">en-us</Table:Field>
253 <Table:Field name="Label">Coupon can not be used since the needed bonsum of '%1' is not reached</Table:Field>
254 <Table:Field name="Description"></Table:Field>
255 <Table:Field name="LabelId">@KWE3721</Table:Field>
256 <Table:Field name="SysLabelApplModule">0</Table:Field>
257 <Table:Field name="recVersion">0</Table:Field>
258 <Table:Field name="Partition">5637144576</Table:Field>
259</Table:Record>
260
261<Table:Record name="TmpSysLabel"
262 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
263 <Table:Field name="Language">de</Table:Field>
264 <Table:Field name="Label">Coupon mit CouponId '%1' existiert nicht</Table:Field>
265 <Table:Field name="Description"></Table:Field>
266 <Table:Field name="LabelId">@KWE3723</Table:Field>
267 <Table:Field name="SysLabelApplModule">0</Table:Field>
268 <Table:Field name="recVersion">0</Table:Field>
269 <Table:Field name="Partition">5637144576</Table:Field>
270</Table:Record>
271<Table:Record name="TmpSysLabel"
272 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
273 <Table:Field name="Language">en-us</Table:Field>
274 <Table:Field name="Label">Coupon with couponId '%1' does not exists</Table:Field>
275 <Table:Field name="Description"></Table:Field>
276 <Table:Field name="LabelId">@KWE3723</Table:Field>
277 <Table:Field name="SysLabelApplModule">0</Table:Field>
278 <Table:Field name="recVersion">0</Table:Field>
279 <Table:Field name="Partition">5637144576</Table:Field>
280</Table:Record>
281
282<Table:Record name="TmpSysLabel"
283 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
284 <Table:Field name="Language">de</Table:Field>
285 <Table:Field name="Label">Der Coupon '%1' besitzt eine ungültige Anzahl an Rabatten. Bitte kontaktieren Sie ihren Systemadministrator</Table:Field>
286 <Table:Field name="Description"></Table:Field>
287 <Table:Field name="LabelId">@KWE3724</Table:Field>
288 <Table:Field name="SysLabelApplModule">0</Table:Field>
289 <Table:Field name="recVersion">0</Table:Field>
290 <Table:Field name="Partition">5637144576</Table:Field>
291</Table:Record>
292<Table:Record name="TmpSysLabel"
293 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
294 <Table:Field name="Language">en-us</Table:Field>
295 <Table:Field name="Label">The coupon '%1' contains an invalid amount of discounts. Please contact your systemadministrator</Table:Field>
296 <Table:Field name="Description"></Table:Field>
297 <Table:Field name="LabelId">@KWE3724</Table:Field>
298 <Table:Field name="SysLabelApplModule">0</Table:Field>
299 <Table:Field name="recVersion">0</Table:Field>
300 <Table:Field name="Partition">5637144576</Table:Field>
301</Table:Record>
302
303
304***Element: UTW
305
306; Microsoft Dynamics AX Int64: KCS_LedgerDimension nicht geladen
307; --------------------------------------------------------------------------------
308 USERTYPEVERSION 6
309
310 USERTYPE #KCS_LedgerDimension
311 INT64
312 PROPERTIES
313 Name #KCS_LedgerDimension
314 Origin #{B63CA9CB-FE7C-42E5-A62A-1662504BE971}
315 Extends #LedgerDimensionDefaultAccount
316 ENDPROPERTIES
317
318 TYPEELEMENTS
319 ENDTYPEELEMENTS
320
321 TYPEREFERENCES
322 ENDTYPEREFERENCES
323
324 TYPELOOKUPS
325 ENDTYPELOOKUPS
326
327 ENDUSERTYPE
328
329
330***Element: UTS
331
332; Microsoft Dynamics AX String: KCS_TaxItemGroup nicht geladen
333; --------------------------------------------------------------------------------
334 USERTYPEVERSION 6
335
336 USERTYPE #KCS_TaxItemGroup
337 STRING
338 PROPERTIES
339 Name #KCS_TaxItemGroup
340 Origin #{DF5AC116-633D-4640-8FBB-76710367242A}
341 Extends #TaxItemGroup
342 ENDPROPERTIES
343
344 TYPEELEMENTS
345 ENDTYPEELEMENTS
346
347 TYPEREFERENCES
348 ENDTYPEREFERENCES
349
350 TYPELOOKUPS
351 ENDTYPELOOKUPS
352
353 ENDUSERTYPE
354
355
356***Element: UTW
357
358; Microsoft Dynamics AX Int64: KCS_DefaultDimension nicht geladen
359; --------------------------------------------------------------------------------
360 USERTYPEVERSION 6
361
362 USERTYPE #KCS_DefaultDimension
363 INT64
364 PROPERTIES
365 Name #KCS_DefaultDimension
366 Origin #{F84C8959-40EA-4BFB-A35E-5E2BAA8BA279}
367 Extends #DimensionDefault
368 ENDPROPERTIES
369
370 TYPEELEMENTS
371 ENDTYPEELEMENTS
372
373 TYPEREFERENCES
374 ENDTYPEREFERENCES
375
376 TYPELOOKUPS
377 ENDTYPELOOKUPS
378
379 ENDUSERTYPE
380
381
382***Element: DBT
383
384; Microsoft Dynamics AX Table : MCRCoupon unloaded
385; --------------------------------------------------------------------------------
386 TABLEVERSION 1
387
388 TABLE #MCRCoupon
389 EnforceFKRelation 0
390 PROPERTIES
391 Name #MCRCoupon
392 Label #@MCR25553
393 FormRef #MCRCoupon
394 TitleField1 #MCRCouponId
395 TitleField2 #MCRCouponNumber
396 ConfigurationKey #MCRCoupon
397 CacheLookup #Found
398 CreateRecIdIndex #Yes
399 TableGroup #Main
400 PrimaryIndex #MCRCouponIdx
401 ClusterIndex #MCRCouponIdx
402 ModifiedDateTime #Yes
403 DEL_modifiedTime #Yes
404 ModifiedBy #Yes
405 CreatedDateTime #Yes
406 DEL_createdTime #Yes
407 CreatedBy #Yes
408 DeveloperDocumentation #@MCR25553
409 Origin #{E2A799A9-9E97-471E-8000-7B984CD56A95}
410 LegacyId #30430
411 ENDPROPERTIES
412
413 FIELDS
414 FIELD #KCS_DefaultDimension
415 INT64
416 PROPERTIES
417 Name #KCS_DefaultDimension
418 Table #MCRCoupon
419 Origin #{1E08F740-92E9-4515-BE8D-8AD780B63F01}
420 ExtendedDataType #KCS_DefaultDimension
421 ENDPROPERTIES
422
423 FIELD #KCS_LedgerDimension
424 INT64
425 PROPERTIES
426 Name #KCS_LedgerDimension
427 Table #MCRCoupon
428 Origin #{1870AC26-A408-43D6-866B-A0E8EFCF3E20}
429 ExtendedDataType #KCS_LedgerDimension
430 ENDPROPERTIES
431
432 FIELD #KCS_TaxItemGroup
433 STRING
434 PROPERTIES
435 Name #KCS_TaxItemGroup
436 Table #MCRCoupon
437 Origin #{B2E79543-0386-484B-8545-8672259E58C4}
438 ExtendedDataType #KCS_TaxItemGroup
439 ENDPROPERTIES
440
441 FIELD #MCRCouponDesc
442 STRING
443 PROPERTIES
444 Name #MCRCouponDesc
445 Table #MCRCoupon
446 Origin #{8BC30925-08F3-4926-A563-1C72756F3265}
447 LegacyId #30002
448 ExtendedDataType #MCRCouponDesc
449 StringSize #60
450 ENDPROPERTIES
451
452 FIELD #MCRCouponExpDate
453 DATE
454 PROPERTIES
455 Name #MCRCouponExpDate
456 Table #MCRCoupon
457 Origin #{3FDDF5C0-6B3C-488D-8A87-39A2867E2C62}
458 LegacyId #30007
459 ExtendedDataType #MCRCouponExpDate
460 ENDPROPERTIES
461
462 FIELD #MCRCouponId
463 STRING
464 PROPERTIES
465 Name #MCRCouponId
466 Mandatory #Yes
467 AllowEdit #No
468 Table #MCRCoupon
469 Origin #{99B07CC1-90E5-49AE-ACCF-2618727A2AFD}
470 LegacyId #30001
471 ExtendedDataType #MCRCouponId
472 StringSize #20
473 ENDPROPERTIES
474
475 FIELD #MCRCouponNumber
476 STRING
477 PROPERTIES
478 Name #MCRCouponNumber
479 Table #MCRCoupon
480 Origin #{069A44E2-3271-4ADE-81AB-B3E38C70D83C}
481 LegacyId #30016
482 ExtendedDataType #MCRCouponNumber
483 StringSize #30
484 ENDPROPERTIES
485
486 FIELD #MCRCouponOrign
487 ENUM
488 PROPERTIES
489 Name #MCRCouponOrign
490 Table #MCRCoupon
491 Origin #{8419CDFF-805B-46EE-9F18-32B8EA12B3EE}
492 LegacyId #30026
493 EnumType #MCRCouponOrign
494 ENDPROPERTIES
495
496 FIELD #MCRCouponParentId
497 STRING
498 PROPERTIES
499 Name #MCRCouponParentId
500 Table #MCRCoupon
501 Origin #{E5C70C4F-64F7-48DD-8D32-6157BE8C43B7}
502 LegacyId #30018
503 ExtendedDataType #MCRCouponParentId
504 StringSize #20
505 ENDPROPERTIES
506
507 FIELD #MCRCouponRedemptionRate
508 REAL
509 PROPERTIES
510 Name #MCRCouponRedemptionRate
511 Table #MCRCoupon
512 Origin #{F4E52DC6-1400-4F66-A8FF-AE261C766C14}
513 LegacyId #30027
514 ExtendedDataType #MCRCouponRedemptionRate
515 ENDPROPERTIES
516
517 FIELD #MCRCouponVoided
518 ENUM
519 PROPERTIES
520 Name #MCRCouponVoided
521 Table #MCRCoupon
522 Origin #{132307B0-FB91-413C-B959-EA92B58D63D6}
523 LegacyId #30021
524 ExtendedDataType #MCRCouponVoided
525 EnumType #NoYes
526 ENDPROPERTIES
527
528 FIELD #MCRCustomerSpecific
529 ENUM
530 PROPERTIES
531 Name #MCRCustomerSpecific
532 Table #MCRCoupon
533 Origin #{3828F4BA-B29F-47F2-9CFD-2209CC688CAC}
534 LegacyId #30011
535 ExtendedDataType #MCRCustomerSpecific
536 EnumType #NoYes
537 ENDPROPERTIES
538
539 FIELD #MCREnabled
540 ENUM
541 PROPERTIES
542 Name #MCREnabled
543 HelpText #@MCR25488
544 Table #MCRCoupon
545 Origin #{9D0D863A-C76B-44A6-8BD7-E6F86B127409}
546 LegacyId #30003
547 ExtendedDataType #MCRActive
548 EnumType #NoYes
549 ENDPROPERTIES
550
551 FIELD #MCRExclusive
552 ENUM
553 PROPERTIES
554 Name #MCRExclusive
555 Table #MCRCoupon
556 Origin #{0DD8AB4E-CCC7-436F-AA9D-C99E7C952008}
557 LegacyId #30010
558 ExtendedDataType #MCRExclusive
559 EnumType #NoYes
560 ENDPROPERTIES
561
562 FIELD #MCRFromDate
563 DATE
564 PROPERTIES
565 Name #MCRFromDate
566 Table #MCRCoupon
567 Origin #{696B7A08-7F44-4E59-A2EF-0FF3C4D7AFFD}
568 LegacyId #30013
569 ExtendedDataType #FromDate
570 ENDPROPERTIES
571
572 FIELD #MCRIncludeExcludeCatalog
573 ENUM
574 PROPERTIES
575 Name #MCRIncludeExcludeCatalog
576 Table #MCRCoupon
577 Origin #{CFF0FB79-E1AB-4807-9982-2EE9AE035A4A}
578 LegacyId #30024
579 ExtendedDataType #MCRIncludeExcludeCatalog
580 EnumType #MCRCouponInclude
581 ENDPROPERTIES
582
583 FIELD #MCRIncludeExcludeItem
584 ENUM
585 PROPERTIES
586 Name #MCRIncludeExcludeItem
587 Table #MCRCoupon
588 Origin #{25040398-2511-4BED-92AE-0AC6E346D654}
589 LegacyId #30025
590 ExtendedDataType #MCRIncludeExcludeItem
591 EnumType #MCRCouponInclude
592 ENDPROPERTIES
593
594 FIELD #MCRManufacturerCoupon
595 ENUM
596 PROPERTIES
597 Name #MCRManufacturerCoupon
598 Table #MCRCoupon
599 Origin #{EEC40117-798A-4355-8344-EC75AABD9F33}
600 LegacyId #30023
601 ExtendedDataType #MCRManufacturerCoupon
602 EnumType #NoYes
603 ENDPROPERTIES
604
605 FIELD #MCROneTimeUse
606 ENUM
607 PROPERTIES
608 Name #MCROneTimeUse
609 Table #MCRCoupon
610 Origin #{12A08FF1-EFD0-48B1-ACE9-DBC0DDB3F79D}
611 LegacyId #30004
612 ExtendedDataType #MCROneTimeUse
613 EnumType #NoYes
614 ENDPROPERTIES
615
616 FIELD #MCRReissue
617 ENUM
618 PROPERTIES
619 Name #MCRReissue
620 Table #MCRCoupon
621 Origin #{83CB3895-2661-4997-95D8-616666E245BA}
622 LegacyId #30009
623 ExtendedDataType #MCRReissue
624 EnumType #NoYes
625 ENDPROPERTIES
626
627 FIELD #MCRToDate
628 DATE
629 PROPERTIES
630 Name #MCRToDate
631 Table #MCRCoupon
632 Origin #{7C179369-1494-425C-BF4E-B6CC38AA780C}
633 LegacyId #30014
634 ExtendedDataType #ToDate
635 ENDPROPERTIES
636
637 ENDFIELDS
638 GROUPS
639 GROUP #AutoReport
640 PROPERTIES
641 Name #AutoReport
642 ENDPROPERTIES
643
644 GROUPFIELDS
645 #MCRCouponId
646 #MCRCouponNumber
647 #MCRCouponDesc
648 #MCREnabled
649 ENDGROUPFIELDS
650 ENDGROUP
651 GROUP #AutoLookup
652 PROPERTIES
653 Name #AutoLookup
654 ENDPROPERTIES
655
656 GROUPFIELDS
657 #MCRCouponId
658 #MCRCouponNumber
659 #MCRCouponDesc
660 ENDGROUPFIELDS
661 ENDGROUP
662 GROUP #AllFields
663 PROPERTIES
664 Name #AllFields
665 Label #@SYS6047
666 ENDPROPERTIES
667
668 GROUPFIELDS
669 #KCS_TaxItemGroup
670 #KCS_DefaultDimension
671 #MCRCouponDesc
672 #MCRCouponExpDate
673 #MCRCouponId
674 #MCRCouponNumber
675 #MCRCouponOrign
676 #MCRCouponParentId
677 #MCRCouponRedemptionRate
678 #MCRCouponVoided
679 #MCRCustomerSpecific
680 #MCREnabled
681 #MCRExclusive
682 #MCRFromDate
683 #MCRIncludeExcludeCatalog
684 #MCRIncludeExcludeItem
685 #MCRManufacturerCoupon
686 #MCROneTimeUse
687 #MCRReissue
688 #MCRToDate
689 #KCS_LedgerDimension
690 ENDGROUPFIELDS
691 ENDGROUP
692 GROUP #Attribute
693 PROPERTIES
694 Name #Attribute
695 Label #@SYS77030
696 ENDPROPERTIES
697
698 GROUPFIELDS
699 #MCRCouponRedemptionRate
700 #MCROneTimeUse
701 #MCRReissue
702 #MCRCustomerSpecific
703 ENDGROUPFIELDS
704 ENDGROUP
705 GROUP #FutureCoupon
706 PROPERTIES
707 Name #FutureCoupon
708 Label #@MCR25477
709 ENDPROPERTIES
710
711 GROUPFIELDS
712 #MCRCouponParentId
713 ENDGROUPFIELDS
714 ENDGROUP
715 GROUP #GroupInclExcl
716 PROPERTIES
717 Name #GroupInclExcl
718 Label #@MCR28578
719 ENDPROPERTIES
720
721 GROUPFIELDS
722 #MCRIncludeExcludeCatalog
723 #MCRIncludeExcludeItem
724 ENDGROUPFIELDS
725 ENDGROUP
726 GROUP #Identification
727 PROPERTIES
728 Name #Identification
729 Label #@SYS36186
730 ENDPROPERTIES
731
732 GROUPFIELDS
733 #MCRCouponId
734 ENDGROUPFIELDS
735 ENDGROUP
736 GROUP #Miscellaneous
737 PROPERTIES
738 Name #Miscellaneous
739 Label #@SYS80069
740 ENDPROPERTIES
741
742 GROUPFIELDS
743 #MCRExclusive
744 #MCRCouponOrign
745 #MCRManufacturerCoupon
746 ENDGROUPFIELDS
747 ENDGROUP
748 GROUP #Setup
749 PROPERTIES
750 Name #Setup
751 Label #@SYS12687
752 ENDPROPERTIES
753
754 GROUPFIELDS
755 #MCRCouponNumber
756 #MCRCouponDesc
757 #MCREnabled
758 #MCRCouponVoided
759 #MCRFromDate
760 #MCRToDate
761 #MCRCouponExpDate
762 ENDGROUPFIELDS
763 ENDGROUP
764 ENDGROUPS
765
766 INDICES
767 #MCRCouponIdx
768 PROPERTIES
769 Name #MCRCouponIdx
770 AllowDuplicates #No
771 Origin #{21EA0D85-644E-4656-B0D4-DC3E6EB6FD79}
772 LegacyId #30001
773 ENDPROPERTIES
774
775 INDEXFIELDS
776 #MCRCouponId
777 ENDINDEXFIELDS
778
779 #MCRCouponParentIdIdx
780 PROPERTIES
781 Name #MCRCouponParentIdIdx
782 Origin #{C7CFA6F7-651B-481F-8A0C-5F38758FAB90}
783 ENDPROPERTIES
784
785 INDEXFIELDS
786 #MCRCouponParentId
787 ENDINDEXFIELDS
788
789 ENDINDICES
790 FULLTEXTINDICES
791 ENDFULLTEXTINDICES
792 REFERENCES
793 REFERENCE #DefaultDimension
794 PROPERTIES
795 Name #DefaultDimension
796 Table #DimensionAttributeValueSet
797 RelatedTableCardinality #ZeroOne
798 Cardinality #ZeroMore
799 RelationshipType #Association
800 UseDefaultRoleNames #Yes
801 RelatedTableRole #DimensionDefault
802 ENDPROPERTIES
803
804 FIELDREFERENCES
805 REFERENCETYPE NORMAL
806 PROPERTIES
807 Field #KCS_DefaultDimension
808 RelatedField #RecId
809 ENDPROPERTIES
810
811 ENDFIELDREFERENCES
812 ENDREFERENCE
813 REFERENCE #DimensionAttributeValueCombination
814 PROPERTIES
815 Name #DimensionAttributeValueCombination
816 Table #DimensionAttributeValueCombination
817 RelatedTableCardinality #ExactlyOne
818 Cardinality #ZeroMore
819 RelationshipType #Association
820 UseDefaultRoleNames #Yes
821 ENDPROPERTIES
822
823 FIELDREFERENCES
824 REFERENCETYPE PKFK
825 PROPERTIES
826 Field #KCS_LedgerDimension
827 RelatedField #RecId
828 ENDPROPERTIES
829
830 ENDFIELDREFERENCES
831 ENDREFERENCE
832 REFERENCE #MCRCoupon
833 PROPERTIES
834 Name #MCRCoupon
835 Table #MCRCoupon
836 RelatedTableCardinality #ExactlyOne
837 Cardinality #ZeroMore
838 RelationshipType #Association
839 UseDefaultRoleNames #Yes
840 EDTRelation #Yes
841 ENDPROPERTIES
842
843 FIELDREFERENCES
844 REFERENCETYPE PKFK
845 PROPERTIES
846 Field #MCRCouponParentId
847 RelatedField #MCRCouponId
848 SourceEDT #MCRCouponParentId
849 ENDPROPERTIES
850
851 ENDFIELDREFERENCES
852 ENDREFERENCE
853 REFERENCE #TaxItemGroupHeading
854 PROPERTIES
855 Name #TaxItemGroupHeading
856 Table #TaxItemGroupHeading
857 RelatedTableCardinality #ExactlyOne
858 Cardinality #ZeroMore
859 RelationshipType #Association
860 UseDefaultRoleNames #Yes
861 EDTRelation #Yes
862 ENDPROPERTIES
863
864 FIELDREFERENCES
865 REFERENCETYPE PKFK
866 PROPERTIES
867 Field #KCS_TaxItemGroup
868 RelatedField #TaxItemGroup
869 SourceEDT #KCS_TaxItemGroup
870 ENDPROPERTIES
871
872 ENDFIELDREFERENCES
873 ENDREFERENCE
874 ENDREFERENCES
875
876 DELETEACTIONS
877 #MCRCouponSalesTable(MCRCoupon)
878 PROPERTIES
879 Table #MCRCouponSalesTable
880 DeleteAction #Restricted
881 Relation #MCRCoupon
882 ENDPROPERTIES
883
884 #MCRCouponDiscount
885 PROPERTIES
886 Table #MCRCouponDiscount
887 DeleteAction #Cascade
888 ENDPROPERTIES
889
890 #MCRCouponCustomer
891 PROPERTIES
892 Table #MCRCouponCustomer
893 DeleteAction #Cascade
894 ENDPROPERTIES
895
896 #MCRCouponItem
897 PROPERTIES
898 Table #MCRCouponItem
899 DeleteAction #Cascade
900 ENDPROPERTIES
901
902 ENDDELETEACTIONS
903
904 METHODS
905 SOURCE #enableChildCoupon
906 #/// <summary>
907 #/// Activates all child coupons for a given coupon ID.
908 #/// </summary>
909 #/// <param name="_mcrCouponId">
910 #/// The coupon ID of the coupon whose children should be activated.
911 #/// </param>
912 #void enableChildCoupon(MCRCouponId _mcrCouponId)
913 #{
914 # MCRCoupon mcrCoupon;
915 # MCRCouponPost mcrCouponPost;
916 # MCRCouponDiscount mcrCouponDiscount;
917 # MCRCouponCatalog mcrCouponCatalog;
918 # MCRCouponItem mcrCouponItem;
919 #
920 # ttsBegin;
921 # while select forupdate mcrCoupon
922 # where mcrCoupon.MCRCouponParentId == _mcrCouponId
923 # {
924 # select firstonly RecId from mcrCouponDiscount
925 # where mcrCouponDiscount.MCRCouponId == mcrCoupon.MCRCouponId;
926 # if (!mcrCouponDiscount)
927 # {
928 # throw error("@MCR26395");
929 #
930 # }
931 # // validate that at least one item record is setup
932 # if (mcrCoupon.MCRIncludeExcludeItem != MCRCouponInclude::None)
933 # {
934 # select firstonly RecId from mcrCouponItem
935 # where mcrCouponItem.MCRCouponId == mcrCoupon.MCRCouponId;
936 # if (!mcrCouponItem)
937 # {
938 # throw error("@MCR26397");
939 # }
940 # }
941 # // validate that at least one catalog record is setup
942 # if (mcrCoupon.MCRIncludeExcludeCatalog != MCRCouponInclude::None)
943 # {
944 # select firstonly RecId from mcrCouponCatalog
945 # where mcrCouponCatalog.CouponId == mcrCoupon.MCRCouponId;
946 # if (!mcrCouponCatalog)
947 # {
948 # throw error("@MCR26398");
949 #
950 # }
951 # }
952 #
953 # // Validate that the coupon voide date is less than the Coupon To date.
954 # if (mcrCoupon.MCRCouponExpDate
955 # && mcrCoupon.MCRToDate
956 # && mcrCoupon.MCRCouponExpDate < mcrCoupon.MCRToDate)
957 # {
958 # throw error(strFmt("@MCR28577", mcrCoupon.MCRCouponExpDate, mcrCoupon.MCRToDate));
959 # }
960 #
961 # mcrCoupon.MCREnabled = NoYes::Yes;
962 # if (mcrCoupon.validateWrite())
963 # {
964 # mcrCoupon.update();
965 # }
966 # else
967 # {
968 # throw error("@SYS104318");
969 # }
970 #
971 # mcrCouponPost = new MCRCouponPost(mcrCoupon);
972 # mcrCouponPost.post();
973 # this.enableChildCoupon(mcrCoupon.MCRCouponId);
974 # }
975 # ttsCommit;
976 #
977 #}
978 ENDSOURCE
979 SOURCE #mcrGenerateChildCoupon
980 #/// <summary>
981 #/// Displays if the coupon is a child coupon.
982 #/// </summary>
983 #/// <returns>
984 #/// <c>NoYes::Yes</c> if the coupon is a child; otherwise, <c>NoYes::No</c>.
985 #/// </returns>
986 #public display NoYes mcrGenerateChildCoupon()
987 #{
988 # MCRCoupon mcrCoupon;
989 #
990 # select firstonly RecId from mcrCoupon
991 # where mcrCoupon.MCRCouponParentId == this.MCRCouponId;
992 #
993 # if (mcrCoupon)
994 # {
995 # return NoYes::Yes;
996 # }
997 #
998 # return NoYes::No;
999 #}
1000 ENDSOURCE
1001 SOURCE #modifiedField
1002 #/// <summary>
1003 #/// Validates the passed field when it is changed.
1004 #/// </summary>
1005 #/// <param name="_fieldId">
1006 #/// The ID of the field being modified.
1007 #/// </param>
1008 #public void modifiedField(FieldId _fieldId)
1009 #{
1010 # MCRCouponCustomer mcrCouponCustomer;
1011 # super(_fieldId);
1012 # switch (fieldExt2Id(_fieldId))
1013 # {
1014 # case fieldNum(MCRCoupon, mcrCouponParentId):
1015 # if (this.MCRCouponParentId)
1016 # {
1017 # this.MCRCustomerSpecific = NoYes::Yes;
1018 #
1019 # ttsBegin;
1020 # delete_from mcrCouponCustomer
1021 # where mcrCouponCustomer.MCRCouponId == this.MCRCouponId;
1022 # ttsCommit;
1023 #
1024 # }
1025 # break;
1026 # }
1027 #}
1028 ENDSOURCE
1029 SOURCE #modifyChildCoupon
1030 #/// <summary>
1031 #/// Deactivates all child coupons for a given coupon ID.
1032 #/// </summary>
1033 #/// <param name="_mcrCouponId">
1034 #/// The coupon ID of the coupon whose children should be de-activated.
1035 #/// </param>
1036 #void modifyChildCoupon(MCRCouponId _mcrCouponId)
1037 #{
1038 # MCRCoupon mcrCoupon;
1039 # MCRCouponPost_Void mcrCouponPost_Void;
1040 # ttsBegin;
1041 # while select forupdate mcrCoupon
1042 # where mcrCoupon.MCRCouponParentId == _mcrCouponId
1043 # {
1044 #
1045 # mcrCouponPost_Void = new MCRCouponPost_Void(mcrCoupon);
1046 # mcrCouponPost_Void.post();
1047 # mcrCoupon.MCREnabled = NoYes::No;
1048 # if (mcrCoupon.validateWrite())
1049 # {
1050 # mcrCoupon.update();
1051 # }
1052 # else
1053 # {
1054 # throw error("@SYS104318");
1055 # }
1056 #
1057 # this.modifyChildCoupon(mcrCoupon.MCRCouponId);
1058 # }
1059 # ttsCommit;
1060 #}
1061 ENDSOURCE
1062 SOURCE #validateWrite
1063 #/// <summary>
1064 #/// Ensures the parent coupon cannot be active or void.
1065 #/// </summary>
1066 #/// <returns>
1067 #/// true if the parent coupon is not active and not void; otherwise false.
1068 #/// </returns>
1069 #public boolean validateWrite()
1070 #{
1071 # boolean ret;
1072 # MCRCoupon mcrCoupon;
1073 #
1074 # ret = super();
1075 #
1076 # if (this.MCRCouponParentId)
1077 # {
1078 # select MCRCouponVoided, MCREnabled from mcrCoupon
1079 # where mcrCoupon.MCRCouponId == this.MCRCouponParentId;
1080 # if (mcrCoupon.MCRCouponVoided || mcrCoupon.MCREnabled)
1081 # {
1082 #
1083 # ret = checkFailed(strFmt("@MCR25661", mcrCoupon.MCRCouponId));
1084 # }
1085 # }
1086 #
1087 # return ret;
1088 #}
1089 ENDSOURCE
1090 SOURCE #write
1091 #/// <summary>
1092 #/// Deletes the coupon item records or coupon catalog records associated with the coupon
1093 #/// if the include/exclude catalog or include/exclude item is changed from include/exclude to none.
1094 #/// </summary>
1095 #public void write()
1096 #{
1097 # MCRCouponItem mcrCouponItem;
1098 # MCRCouponCatalog mcrCouponCatalog;
1099 #
1100 # super();
1101 #
1102 # // if MCRIncludeExludeCatalog or MCRIncludeExcludeItem is changed to none, delete the existing include/exclude rules. None + = All.
1103 # if (this.MCRIncludeExcludeItem == MCRCouponInclude::None)
1104 # {
1105 # ttsBegin;
1106 # delete_from mcrCouponItem
1107 # where mcrCouponItem.MCRCouponId == this.MCRCouponId;
1108 # ttsCommit;
1109 # }
1110 #
1111 # if (this.MCRIncludeExcludeCatalog == MCRCouponInclude::None)
1112 # {
1113 # ttsBegin;
1114 # delete_from mcrCouponCatalog
1115 # where mcrCouponCatalog.CouponId == this.MCRCouponId;
1116 # ttsCommit;
1117 # }
1118 #}
1119 ENDSOURCE
1120 SOURCE #copyCoupons
1121 #/// <summary>
1122 #/// Copies to a new coupon information from an existing coupon.
1123 #/// </summary>
1124 #/// <param name="_mcrCouponNew">
1125 #/// The new coupons object that will be used to set the parameters on the copied coupon.
1126 #/// </param>
1127 #/// <param name="_origCouponId">
1128 #/// The original coupon ID.
1129 #/// </param>
1130 #/// <param name="_copyItems">
1131 #/// A <c>boolean</c> if true identifies that the item information needs to be copied; otherwise false.
1132 #/// </param>
1133 #/// <param name="_copyOffers">
1134 #/// A <c>boolean</c> if true identifies that the offer information needs to be copied; otherwise false.
1135 #/// </param>
1136 #/// <param name="_copyCustomer">
1137 #/// A <c>boolean</c> if true identifies that the customer information needs to be copied; otherwise false.
1138 #/// </param>
1139 #/// <param name="_copyAttributes">
1140 #/// A <c>boolean</c> if true identifies that the attributes information needs to be copied; otherwise false.
1141 #/// </param>
1142 #public server static void copyCoupons(MCRCoupon _mcrCouponNew,
1143 # MCRCouponId _origCouponId,
1144 # boolean _copyItems,
1145 # boolean _copyOffers,
1146 # boolean _copyCustomer,
1147 # boolean _copyAttributes)
1148 #{
1149 #
1150 # MCRCouponCopy mcrCouponCopy = new mcrCouponCopy(_origCouponId,
1151 # _mcrCouponNew.MCRCouponNumber,
1152 # _mcrCouponNew.MCRCouponDesc,
1153 # _copyItems,
1154 # _copyOffers,
1155 # _copyCustomer,
1156 # _copyAttributes);
1157 #
1158 # while select MCRCouponId, MCRCouponNumber, MCRCouponDesc from _mcrCouponNew
1159 # {
1160 # mcrCouponCopy.parmNewCouponId(_mcrCouponNew.MCRCouponId);
1161 # mcrCouponCopy.parmMCRCouponNumber(_mcrCouponNew.MCRCouponNumber);
1162 # mcrCouponCopy.parmMCRCouponDesc(_mcrCouponNew.MCRCouponDesc);
1163 # mcrCouponCopy.copyCoupon();
1164 # }
1165 #}
1166 ENDSOURCE
1167 SOURCE #couponLookup
1168 #/// <summary>
1169 #/// Creates a lookup form that only shows enabled not voided coupons.
1170 #/// </summary>
1171 #/// <param name="_control">
1172 #/// The <c>FormStringControl</c> control that the lookup should attach to.
1173 #/// </param>
1174 #public static void couponLookup(FormControl _control)
1175 #{
1176 # SysTableLookup sysTableLookup = SysTableLookup::newParameters(tableNum(MCRCoupon), _control);
1177 #
1178 # Query query = new Query();
1179 # QueryBuildDataSource source;
1180 # QueryBuildRange rangeEnabled;
1181 # QueryBuildRange rangeVoid;
1182 #
1183 # source = query.addDataSource(tableNum(MCRCoupon));
1184 # // must be "enabled"
1185 # rangeEnabled = source.addRange(fieldNum(MCRCoupon, mcrEnabled));
1186 # rangeEnabled.value(enum2Value(NoYes::Yes));
1187 # rangeVoid = source.addRange(fieldNum(MCRCoupon, mcrCouponVoided));
1188 # rangeVoid.value(enum2Value(NoYes::No));
1189 # sysTableLookup.addLookupfield(fieldNum(MCRCoupon, mcrCouponId));
1190 # sysTableLookup.addLookupfield(fieldNum(MCRCoupon, mcrCouponDesc));
1191 # sysTableLookup.parmQuery(query);
1192 #
1193 # sysTableLookup.performFormLookup();
1194 #}
1195 ENDSOURCE
1196 SOURCE #find
1197 #/// <summary>
1198 #/// Finds a <c>MCRCoupon</c> record.
1199 #/// </summary>
1200 #/// <param name="_mcrCouponId">
1201 #/// The coupon ID to find by.
1202 #/// </param>
1203 #/// <param name="update">
1204 #/// A <c>Boolean</c> value that indicates whether to read the record for update; optional.
1205 #/// </param>
1206 #/// <returns>
1207 #/// The <c>MCRCoupon</c> record if found; otherwise, <c>null</c>.
1208 #/// </returns>
1209 #public static MCRCoupon find(MCRCouponId _mcrCouponId, boolean update = false)
1210 #{
1211 # MCRCoupon mcrCoupon;
1212 #
1213 # mcrCoupon.selectForUpdate(update);
1214 #
1215 # if (_mcrCouponId)
1216 # {
1217 # select firstonly mcrCoupon
1218 # where mcrCoupon.MCRCouponId == _mcrCouponId;
1219 # }
1220 #
1221 # return mcrCoupon;
1222 #}
1223 #
1224 ENDSOURCE
1225 SOURCE #mcrLookupActiveCoupons
1226 #/// <summary>
1227 #/// Shows only coupons that are active and not void.
1228 #/// </summary>
1229 #/// <param name="_formControl">
1230 #/// The <c>FormStringControl</c> control that the lookup should attach to.
1231 #/// </param>
1232 #public static void mcrLookupActiveCoupons(FormControl _formControl)
1233 #{
1234 # SysTableLookup sysTableLookup;
1235 # Query query = new Query();
1236 # QueryBuildDataSource queryBuildDataSource;
1237 #
1238 # sysTableLookup = SysTableLookup::newParameters(tableNum(MCRCoupon), _formControl);
1239 # sysTableLookup.addLookupfield(fieldNum(MCRCoupon, mcrCouponId ));
1240 # sysTableLookup.addLookupfield(fieldNum(MCRCoupon, mcrCouponNumber));
1241 # sysTableLookup.addLookupfield(fieldNum(MCRCoupon, mcrCouponDesc));
1242 # queryBuildDataSource = query.addDataSource(tableNum(MCRCoupon));
1243 # queryBuildDataSource.addRange(fieldNum(MCRCoupon, mcrEnabled))
1244 # .value(SysQuery::value(enum2str(NoYes::Yes)));
1245 # queryBuildDataSource.addRange(fieldNum(MCRCoupon, mcrCouponVoided))
1246 # .value(SysQuery::value(enum2str(NoYes::No)));
1247 # sysTableLookup.parmQuery(query);
1248 # sysTableLookup.performFormLookup();
1249 #}
1250 ENDSOURCE
1251 ENDMETHODS
1252 ENDTABLE
1253
1254<Table:Record name="TmpSysLabel"
1255 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1256 <Table:Field name="Language">de</Table:Field>
1257 <Table:Field name="Label">Coupons</Table:Field>
1258 <Table:Field name="Description"></Table:Field>
1259 <Table:Field name="LabelId">@MCR25553</Table:Field>
1260 <Table:Field name="SysLabelApplModule">0</Table:Field>
1261 <Table:Field name="recVersion">0</Table:Field>
1262 <Table:Field name="Partition">5637144576</Table:Field>
1263</Table:Record>
1264<Table:Record name="TmpSysLabel"
1265 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1266 <Table:Field name="Language">en-us</Table:Field>
1267 <Table:Field name="Label">Coupons</Table:Field>
1268 <Table:Field name="Description"></Table:Field>
1269 <Table:Field name="LabelId">@MCR25553</Table:Field>
1270 <Table:Field name="SysLabelApplModule">0</Table:Field>
1271 <Table:Field name="recVersion">0</Table:Field>
1272 <Table:Field name="Partition">5637144576</Table:Field>
1273</Table:Record>
1274
1275<Table:Record name="TmpSysLabel"
1276 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1277 <Table:Field name="Language">de</Table:Field>
1278 <Table:Field name="Label">Ist dieser Coupon aktiv und in Verwendung?</Table:Field>
1279 <Table:Field name="Description"></Table:Field>
1280 <Table:Field name="LabelId">@MCR25488</Table:Field>
1281 <Table:Field name="SysLabelApplModule">0</Table:Field>
1282 <Table:Field name="recVersion">0</Table:Field>
1283 <Table:Field name="Partition">5637144576</Table:Field>
1284</Table:Record>
1285<Table:Record name="TmpSysLabel"
1286 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1287 <Table:Field name="Language">en-us</Table:Field>
1288 <Table:Field name="Label">Is this coupon active for use?</Table:Field>
1289 <Table:Field name="Description"></Table:Field>
1290 <Table:Field name="LabelId">@MCR25488</Table:Field>
1291 <Table:Field name="SysLabelApplModule">0</Table:Field>
1292 <Table:Field name="recVersion">0</Table:Field>
1293 <Table:Field name="Partition">5637144576</Table:Field>
1294</Table:Record>
1295
1296<Table:Record name="TmpSysLabel"
1297 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1298 <Table:Field name="Language">de</Table:Field>
1299 <Table:Field name="Label">Alle Felder</Table:Field>
1300 <Table:Field name="Description"></Table:Field>
1301 <Table:Field name="LabelId">@SYS6047</Table:Field>
1302 <Table:Field name="SysLabelApplModule">0</Table:Field>
1303 <Table:Field name="recVersion">0</Table:Field>
1304 <Table:Field name="Partition">5637144576</Table:Field>
1305</Table:Record>
1306<Table:Record name="TmpSysLabel"
1307 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1308 <Table:Field name="Language">en-us</Table:Field>
1309 <Table:Field name="Label">All fields</Table:Field>
1310 <Table:Field name="Description"></Table:Field>
1311 <Table:Field name="LabelId">@SYS6047</Table:Field>
1312 <Table:Field name="SysLabelApplModule">0</Table:Field>
1313 <Table:Field name="recVersion">0</Table:Field>
1314 <Table:Field name="Partition">5637144576</Table:Field>
1315</Table:Record>
1316
1317<Table:Record name="TmpSysLabel"
1318 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1319 <Table:Field name="Language">de</Table:Field>
1320 <Table:Field name="Label">Attribut</Table:Field>
1321 <Table:Field name="Description"></Table:Field>
1322 <Table:Field name="LabelId">@SYS77030</Table:Field>
1323 <Table:Field name="SysLabelApplModule">0</Table:Field>
1324 <Table:Field name="recVersion">0</Table:Field>
1325 <Table:Field name="Partition">5637144576</Table:Field>
1326</Table:Record>
1327<Table:Record name="TmpSysLabel"
1328 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1329 <Table:Field name="Language">en-us</Table:Field>
1330 <Table:Field name="Label">Attribute</Table:Field>
1331 <Table:Field name="Description"></Table:Field>
1332 <Table:Field name="LabelId">@SYS77030</Table:Field>
1333 <Table:Field name="SysLabelApplModule">0</Table:Field>
1334 <Table:Field name="recVersion">0</Table:Field>
1335 <Table:Field name="Partition">5637144576</Table:Field>
1336</Table:Record>
1337
1338<Table:Record name="TmpSysLabel"
1339 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1340 <Table:Field name="Language">de</Table:Field>
1341 <Table:Field name="Label">Künftiger Coupon</Table:Field>
1342 <Table:Field name="Description"></Table:Field>
1343 <Table:Field name="LabelId">@MCR25477</Table:Field>
1344 <Table:Field name="SysLabelApplModule">0</Table:Field>
1345 <Table:Field name="recVersion">0</Table:Field>
1346 <Table:Field name="Partition">5637144576</Table:Field>
1347</Table:Record>
1348<Table:Record name="TmpSysLabel"
1349 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1350 <Table:Field name="Language">en-us</Table:Field>
1351 <Table:Field name="Label">Future coupon</Table:Field>
1352 <Table:Field name="Description"></Table:Field>
1353 <Table:Field name="LabelId">@MCR25477</Table:Field>
1354 <Table:Field name="SysLabelApplModule">0</Table:Field>
1355 <Table:Field name="recVersion">0</Table:Field>
1356 <Table:Field name="Partition">5637144576</Table:Field>
1357</Table:Record>
1358
1359<Table:Record name="TmpSysLabel"
1360 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1361 <Table:Field name="Language">de</Table:Field>
1362 <Table:Field name="Label">Einbeziehungs-/Ausschlussregeln</Table:Field>
1363 <Table:Field name="Description">MCR</Table:Field>
1364 <Table:Field name="LabelId">@MCR28578</Table:Field>
1365 <Table:Field name="SysLabelApplModule">0</Table:Field>
1366 <Table:Field name="recVersion">0</Table:Field>
1367 <Table:Field name="Partition">5637144576</Table:Field>
1368</Table:Record>
1369<Table:Record name="TmpSysLabel"
1370 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1371 <Table:Field name="Language">en-us</Table:Field>
1372 <Table:Field name="Label">Include/exclude rules</Table:Field>
1373 <Table:Field name="Description">MCR</Table:Field>
1374 <Table:Field name="LabelId">@MCR28578</Table:Field>
1375 <Table:Field name="SysLabelApplModule">0</Table:Field>
1376 <Table:Field name="recVersion">0</Table:Field>
1377 <Table:Field name="Partition">5637144576</Table:Field>
1378</Table:Record>
1379
1380<Table:Record name="TmpSysLabel"
1381 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1382 <Table:Field name="Language">de</Table:Field>
1383 <Table:Field name="Label">Kennung</Table:Field>
1384 <Table:Field name="Description">Identification</Table:Field>
1385 <Table:Field name="LabelId">@SYS36186</Table:Field>
1386 <Table:Field name="SysLabelApplModule">0</Table:Field>
1387 <Table:Field name="recVersion">0</Table:Field>
1388 <Table:Field name="Partition">5637144576</Table:Field>
1389</Table:Record>
1390<Table:Record name="TmpSysLabel"
1391 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1392 <Table:Field name="Language">en-us</Table:Field>
1393 <Table:Field name="Label">Identification</Table:Field>
1394 <Table:Field name="Description">Identification</Table:Field>
1395 <Table:Field name="LabelId">@SYS36186</Table:Field>
1396 <Table:Field name="SysLabelApplModule">0</Table:Field>
1397 <Table:Field name="recVersion">0</Table:Field>
1398 <Table:Field name="Partition">5637144576</Table:Field>
1399</Table:Record>
1400
1401<Table:Record name="TmpSysLabel"
1402 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1403 <Table:Field name="Language">de</Table:Field>
1404 <Table:Field name="Label">Sonstiges</Table:Field>
1405 <Table:Field name="Description"></Table:Field>
1406 <Table:Field name="LabelId">@SYS80069</Table:Field>
1407 <Table:Field name="SysLabelApplModule">0</Table:Field>
1408 <Table:Field name="recVersion">0</Table:Field>
1409 <Table:Field name="Partition">5637144576</Table:Field>
1410</Table:Record>
1411<Table:Record name="TmpSysLabel"
1412 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1413 <Table:Field name="Language">en-us</Table:Field>
1414 <Table:Field name="Label">Miscellaneous</Table:Field>
1415 <Table:Field name="Description"></Table:Field>
1416 <Table:Field name="LabelId">@SYS80069</Table:Field>
1417 <Table:Field name="SysLabelApplModule">0</Table:Field>
1418 <Table:Field name="recVersion">0</Table:Field>
1419 <Table:Field name="Partition">5637144576</Table:Field>
1420</Table:Record>
1421
1422<Table:Record name="TmpSysLabel"
1423 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1424 <Table:Field name="Language">de</Table:Field>
1425 <Table:Field name="Label">Einstellungen</Table:Field>
1426 <Table:Field name="Description"></Table:Field>
1427 <Table:Field name="LabelId">@SYS12687</Table:Field>
1428 <Table:Field name="SysLabelApplModule">0</Table:Field>
1429 <Table:Field name="recVersion">0</Table:Field>
1430 <Table:Field name="Partition">5637144576</Table:Field>
1431</Table:Record>
1432<Table:Record name="TmpSysLabel"
1433 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1434 <Table:Field name="Language">en-us</Table:Field>
1435 <Table:Field name="Label">Setup</Table:Field>
1436 <Table:Field name="Description"></Table:Field>
1437 <Table:Field name="LabelId">@SYS12687</Table:Field>
1438 <Table:Field name="SysLabelApplModule">0</Table:Field>
1439 <Table:Field name="recVersion">0</Table:Field>
1440 <Table:Field name="Partition">5637144576</Table:Field>
1441</Table:Record>
1442
1443<Table:Record name="TmpSysLabel"
1444 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1445 <Table:Field name="Language">de</Table:Field>
1446 <Table:Field name="Label">Couponwertattribute müssen angegeben werden.</Table:Field>
1447 <Table:Field name="Description"></Table:Field>
1448 <Table:Field name="LabelId">@MCR26395</Table:Field>
1449 <Table:Field name="SysLabelApplModule">0</Table:Field>
1450 <Table:Field name="recVersion">0</Table:Field>
1451 <Table:Field name="Partition">5637144576</Table:Field>
1452</Table:Record>
1453<Table:Record name="TmpSysLabel"
1454 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1455 <Table:Field name="Language">en-us</Table:Field>
1456 <Table:Field name="Label">Coupon value attributes must be specified.</Table:Field>
1457 <Table:Field name="Description"></Table:Field>
1458 <Table:Field name="LabelId">@MCR26395</Table:Field>
1459 <Table:Field name="SysLabelApplModule">0</Table:Field>
1460 <Table:Field name="recVersion">0</Table:Field>
1461 <Table:Field name="Partition">5637144576</Table:Field>
1462</Table:Record>
1463
1464<Table:Record name="TmpSysLabel"
1465 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1466 <Table:Field name="Language">de</Table:Field>
1467 <Table:Field name="Label">Artikel müssen für den Coupon angegeben werden, wenn die Regel für Einbeziehung/Ausschluss von Artikeln auf Ein- oder Ausschließen festgelegt ist.</Table:Field>
1468 <Table:Field name="Description"></Table:Field>
1469 <Table:Field name="LabelId">@MCR26397</Table:Field>
1470 <Table:Field name="SysLabelApplModule">0</Table:Field>
1471 <Table:Field name="recVersion">0</Table:Field>
1472 <Table:Field name="Partition">5637144576</Table:Field>
1473</Table:Record>
1474<Table:Record name="TmpSysLabel"
1475 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1476 <Table:Field name="Language">en-us</Table:Field>
1477 <Table:Field name="Label">Items must be specified for the coupon if the item excl. incl. rule is set to include or exclude.</Table:Field>
1478 <Table:Field name="Description"></Table:Field>
1479 <Table:Field name="LabelId">@MCR26397</Table:Field>
1480 <Table:Field name="SysLabelApplModule">0</Table:Field>
1481 <Table:Field name="recVersion">0</Table:Field>
1482 <Table:Field name="Partition">5637144576</Table:Field>
1483</Table:Record>
1484
1485<Table:Record name="TmpSysLabel"
1486 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1487 <Table:Field name="Language">de</Table:Field>
1488 <Table:Field name="Label">Der Katalog müssen für den Coupon angegeben werden, wenn die Regel für Einbeziehung/Ausschluss von Katalogen auf Ein- oder Ausschließen festgelegt ist.</Table:Field>
1489 <Table:Field name="Description">MCR</Table:Field>
1490 <Table:Field name="LabelId">@MCR26398</Table:Field>
1491 <Table:Field name="SysLabelApplModule">0</Table:Field>
1492 <Table:Field name="recVersion">0</Table:Field>
1493 <Table:Field name="Partition">5637144576</Table:Field>
1494</Table:Record>
1495<Table:Record name="TmpSysLabel"
1496 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1497 <Table:Field name="Language">en-us</Table:Field>
1498 <Table:Field name="Label">Catalog must be specified for the coupon if the catalog excl. incl. rule is set to include or exclude.</Table:Field>
1499 <Table:Field name="Description">MCR</Table:Field>
1500 <Table:Field name="LabelId">@MCR26398</Table:Field>
1501 <Table:Field name="SysLabelApplModule">0</Table:Field>
1502 <Table:Field name="recVersion">0</Table:Field>
1503 <Table:Field name="Partition">5637144576</Table:Field>
1504</Table:Record>
1505
1506<Table:Record name="TmpSysLabel"
1507 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1508 <Table:Field name="Language">de</Table:Field>
1509 <Table:Field name="Label">Das Stornierungsdatum (%1) liegt vor dem Enddatum des Coupons (%2).</Table:Field>
1510 <Table:Field name="Description"></Table:Field>
1511 <Table:Field name="LabelId">@MCR28577</Table:Field>
1512 <Table:Field name="SysLabelApplModule">0</Table:Field>
1513 <Table:Field name="recVersion">0</Table:Field>
1514 <Table:Field name="Partition">5637144576</Table:Field>
1515</Table:Record>
1516<Table:Record name="TmpSysLabel"
1517 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1518 <Table:Field name="Language">en-us</Table:Field>
1519 <Table:Field name="Label">Void date %1 is less than the coupon to date %2.</Table:Field>
1520 <Table:Field name="Description"></Table:Field>
1521 <Table:Field name="LabelId">@MCR28577</Table:Field>
1522 <Table:Field name="SysLabelApplModule">0</Table:Field>
1523 <Table:Field name="recVersion">0</Table:Field>
1524 <Table:Field name="Partition">5637144576</Table:Field>
1525</Table:Record>
1526
1527<Table:Record name="TmpSysLabel"
1528 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1529 <Table:Field name="Language">de</Table:Field>
1530 <Table:Field name="Label">Prüfung nicht bestanden</Table:Field>
1531 <Table:Field name="Description">SysImport</Table:Field>
1532 <Table:Field name="LabelId">@SYS104318</Table:Field>
1533 <Table:Field name="SysLabelApplModule">0</Table:Field>
1534 <Table:Field name="recVersion">0</Table:Field>
1535 <Table:Field name="Partition">5637144576</Table:Field>
1536</Table:Record>
1537<Table:Record name="TmpSysLabel"
1538 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1539 <Table:Field name="Language">en-us</Table:Field>
1540 <Table:Field name="Label">Validation failed</Table:Field>
1541 <Table:Field name="Description">SysImport</Table:Field>
1542 <Table:Field name="LabelId">@SYS104318</Table:Field>
1543 <Table:Field name="SysLabelApplModule">0</Table:Field>
1544 <Table:Field name="recVersion">0</Table:Field>
1545 <Table:Field name="Partition">5637144576</Table:Field>
1546</Table:Record>
1547
1548<Table:Record name="TmpSysLabel"
1549 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1550 <Table:Field name="Language">de</Table:Field>
1551 <Table:Field name="Label">Der Coupon '%1' ist kein gültiger übergeordneter Coupon. Übergeordnete Coupons dürfen nicht aktiv oder storniert sein.</Table:Field>
1552 <Table:Field name="Description"></Table:Field>
1553 <Table:Field name="LabelId">@MCR25661</Table:Field>
1554 <Table:Field name="SysLabelApplModule">0</Table:Field>
1555 <Table:Field name="recVersion">0</Table:Field>
1556 <Table:Field name="Partition">5637144576</Table:Field>
1557</Table:Record>
1558<Table:Record name="TmpSysLabel"
1559 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
1560 <Table:Field name="Language">en-us</Table:Field>
1561 <Table:Field name="Label">Coupon %1 is not a valid parent coupon. Parent coupons cannot be active or void.</Table:Field>
1562 <Table:Field name="Description"></Table:Field>
1563 <Table:Field name="LabelId">@MCR25661</Table:Field>
1564 <Table:Field name="SysLabelApplModule">0</Table:Field>
1565 <Table:Field name="recVersion">0</Table:Field>
1566 <Table:Field name="Partition">5637144576</Table:Field>
1567</Table:Record>
1568
1569
1570***Element: CLS
1571
1572; Microsoft Dynamics AX Class: KCS_MCRCouponParameterDataContract nicht geladen
1573; --------------------------------------------------------------------------------
1574 CLSVERSION 1
1575
1576 CLASS #KCS_MCRCouponParameterDataContract
1577 PROPERTIES
1578 Name #KCS_MCRCouponParameterDataContract
1579 Origin #{669B1ECC-FFE0-409A-AE00-804932BE4A90}
1580 ENDPROPERTIES
1581
1582 METHODS
1583 SOURCE #BonSum
1584 #[DataMemberAttribute]
1585 #public InventQty BonSum(InventQty _bonSum = bonsum)
1586 #{
1587 # bonsum = _bonSum;
1588 # return bonsum;
1589 #}
1590 ENDSOURCE
1591 SOURCE #classDeclaration
1592 #[DataContractAttribute]
1593 #public class KCS_MCRCouponParameterDataContract
1594 #{
1595 # //Parameters to receive
1596 # MCRCouponId couponId;
1597 # CustAccount custAccount;
1598 # InventQty bonSum;
1599 #}
1600 ENDSOURCE
1601 SOURCE #CouponId
1602 #[DataMemberAttribute]
1603 #public MCRCouponId CouponId(MCRCouponId _couponId = couponId)
1604 #{
1605 # couponId = _couponId;
1606 # return couponId;
1607 #}
1608 ENDSOURCE
1609 SOURCE #CustAccount
1610 #[DataMemberAttribute]
1611 #public CustAccount CustAccount(CustAccount _custAccount = custAccount)
1612 #{
1613 # custAccount = _custAccount;
1614 # return custAccount;
1615 #}
1616 ENDSOURCE
1617 ENDMETHODS
1618 ENDCLASS
1619
1620***Element: CLS
1621
1622; Microsoft Dynamics AX Class: KCS_MCRCouponResultDataContract nicht geladen
1623; --------------------------------------------------------------------------------
1624 CLSVERSION 1
1625
1626 CLASS #KCS_MCRCouponResultDataContract
1627 PROPERTIES
1628 Name #KCS_MCRCouponResultDataContract
1629 Origin #{94FE09EB-309E-488C-AF73-7E55AC02C83B}
1630 ENDPROPERTIES
1631
1632 METHODS
1633 SOURCE #classDeclaration
1634 #[DataContractAttribute]
1635 #public class KCS_MCRCouponResultDataContract
1636 #{
1637 # //Parameters to return
1638 # int errorCode;
1639 # str errorMessage;
1640 # MCRCouponValue couponQuantity;
1641 # boolean couponOneTimeUse;
1642 #}
1643 ENDSOURCE
1644 SOURCE #CouponOneTimeUse
1645 #[DataMemberAttribute]
1646 #public boolean CouponOneTimeUse(boolean _couponOneTimeUse = couponOneTimeUse)
1647 #{
1648 # couponOneTimeUse = _couponOneTimeUse;
1649 # return couponOneTimeUse;
1650 #}
1651 ENDSOURCE
1652 SOURCE #CouponQuantity
1653 #[DataMemberAttribute]
1654 #public MCRCouponValue CouponQuantity(MCRCouponValue _couponQuantity = couponQuantity)
1655 #{
1656 # couponQuantity = _couponQuantity;
1657 # return couponQuantity;
1658 #}
1659 ENDSOURCE
1660 SOURCE #ErrorCode
1661 #[DataMemberAttribute]
1662 #public int ErrorCode(int _errorCode = errorCode)
1663 #{
1664 # errorCode = _errorCode;
1665 # return errorCode;
1666 #}
1667 ENDSOURCE
1668 SOURCE #ErrorMessage
1669 #[DataMemberAttribute]
1670 #public str ErrorMessage(str _errorMessage = errorMessage)
1671 #{
1672 # errorMessage = _errorMessage;
1673 # return errorMessage;
1674 #}
1675 ENDSOURCE
1676 SOURCE #KCS_Version
1677 #public static FreeTxt KCS_Version()
1678 #{
1679 # FreeTxt versionStr;
1680 # str cr = '\n';
1681 #
1682 # versionStr += ' 1.0 : KCS/AST/AT_3303_002032/09.01.2019 - CRQ_227: Couponfunktionalität auf Hermes-Kassen / first' + cr;
1683 #
1684 # return versionStr;
1685 #}
1686 ENDSOURCE
1687 ENDMETHODS
1688 ENDCLASS
1689
1690***Element: CLS
1691
1692; Microsoft Dynamics AX Class: KCS_HermesInterfaceServiceContract nicht geladen
1693; --------------------------------------------------------------------------------
1694 CLSVERSION 1
1695
1696 CLASS #KCS_HermesInterfaceServiceContract
1697 PROPERTIES
1698 Name #KCS_HermesInterfaceServiceContract
1699 RunOn #Server
1700 Origin #{66E10C14-B027-4A8D-A531-46824731AAC5}
1701 ENDPROPERTIES
1702
1703 METHODS
1704 SOURCE #addOutboundQueueLink
1705 #private void addOutboundQueueLink(Query _query, QueryBuildDataSource _qbds)
1706 #{
1707 # QueryBuildDataSource qbdsOutboundQueue;
1708 # #define.dsNum(1)
1709 #
1710 # qbdsOutboundQueue = _qbds.addDataSource(tableNum(KCS_HermesInterfaceOutboundQueue));
1711 # qbdsOutboundQueue.relations(false);
1712 # qbdsOutboundQueue.addLink(fieldName2id(_query.dataSourceNo(#dsNum).table(), identifierStr(DataAreaId)),
1713 # fieldNum(KCS_HermesInterfaceOutboundQueue, SourceCompanyId));
1714 # qbdsOutboundQueue.addLink(fieldName2id(_query.dataSourceNo(#dsNum).table(), identifierStr(RecId)),
1715 # fieldNum(KCS_HermesInterfaceOutboundQueue, RefRecId));
1716 # qbdsOutboundQueue.addLink(fieldName2id(_query.dataSourceNo(#dsNum).table(), identifierStr(TableId)),
1717 # fieldNum(KCS_HermesInterfaceOutboundQueue, RefTableId));
1718 # qbdsOutboundQueue.addRange(fieldNum(KCS_HermesInterfaceOutboundQueue, Sent)).value(queryValue(NoYes::No));
1719 # qbdsOutboundQueue.fetchMode(QueryFetchMode::One2One);
1720 # qbdsOutboundQueue.firstOnly(true);
1721 #
1722 #}
1723 ENDSOURCE
1724 SOURCE #classDeclaration
1725 #public class KCS_HermesInterfaceServiceContract
1726 #{
1727 # #define.CMD("x")
1728 #
1729 # //x neuanlage
1730 # //(y update)
1731 # //z löschen
1732 #
1733 #}
1734 ENDSOURCE
1735 SOURCE #con2Set
1736 #private Set con2Set(container _con)
1737 #{
1738 # Set set = new Set(Types::String);
1739 # int i;
1740 # Types types;
1741 # boolean typesIsOk = true;
1742 #
1743 # if (conLen(_con))
1744 # types = typeOf(conPeek(_con,1)); //Type of first element
1745 #
1746 # for (i=2;i<=conLen(_con);i++)
1747 # {
1748 # if (typeOf(conPeek(_con,i)) != types)
1749 # typesIsOk = false;
1750 # }
1751 #
1752 # if (typesIsOk)
1753 # {
1754 # set = new Set(types);
1755 #
1756 # for (i=1;i<=conLen(_con);i++)
1757 # {
1758 # set.add(conPeek(_con,i));
1759 # }
1760 # }
1761 # return set;
1762 #}
1763 ENDSOURCE
1764 SOURCE #findMCRCouponCustomer
1765 #/// <version>
1766 #/// 1.0 : KCS/AST/AT_3303_002032/10.01.2019 - CRQ_227: Couponfunktionalität auf Hermes-Kassen / first
1767 #/// </version>
1768 #/// <summary>
1769 #/// designed by KCS.net
1770 #/// </summary>
1771 #/// <param name="_mcrCoupon">
1772 #/// designed by KCS.net
1773 #/// </param>
1774 #/// <param name="_custAccount">
1775 #/// designed by KCS.net
1776 #/// </param>
1777 #/// <param name="_update">
1778 #/// designed by KCS.net
1779 #/// </param>
1780 #/// <returns>
1781 #/// designed by KCS.net
1782 #/// </returns>
1783 #public MCRCouponCustomer findMCRCouponCustomer(MCRCoupon _mcrCoupon,
1784 # CustAccount _custAccount,
1785 # boolean _update = false)
1786 #{
1787 # MCRCouponCustomer mcrCouponCustomer;
1788 # CustTable custTable;
1789 #
1790 # // If the coupon is setup for customer specific, then check customer code
1791 # // combinations against customer.
1792 # if (_mcrCoupon.MCRCustomerSpecific)
1793 # {
1794 #
1795 # if (_update)
1796 # {
1797 # mcrCouponCustomer.selectForUpdate(_update);
1798 # }
1799 #
1800 # // Check table.
1801 # select firstonly * from mcrCouponCustomer
1802 # order by mcrCouponCustomer.MCRCouponVoided asc
1803 # where mcrCouponCustomer.CustomerCode == TableGroupAll::Table
1804 # && mcrCouponCustomer.CustVendRel == _custAccount
1805 # && mcrCouponCustomer.MCRCouponId == _mcrCoupon.MCRCouponId;
1806 #
1807 # if (!mcrCouponCustomer.RecId)
1808 # {
1809 # // Check group.
1810 # select firstonly * from mcrCouponCustomer
1811 # order by mcrCouponCustomer.MCRCouponVoided asc
1812 # where mcrCouponCustomer.CustomerCode == TableGroupAll::GroupId
1813 # && mcrCouponCustomer.MCRCouponId == _mcrCoupon.MCRCouponId
1814 # exists join custTable
1815 # where custTable.CustGroup == mcrCouponCustomer.CustVendRel
1816 # && custTable.AccountNum == _custAccount;
1817 #
1818 # if (!mcrCouponCustomer.RecId)
1819 # {
1820 # // Check all.
1821 # select firstonly * from mcrCouponCustomer
1822 # order by mcrCouponCustomer.MCRCouponVoided asc
1823 # where mcrCouponCustomer.CustomerCode == TableGroupAll::All
1824 # && mcrCouponCustomer.MCRCouponId == _mcrCoupon.MCRCouponId;
1825 # }
1826 # }
1827 # }
1828 #
1829 # return mcrCouponCustomer;
1830 #}
1831 ENDSOURCE
1832 SOURCE #GetBarcodes
1833 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceEANDataContract)),SysEntryPointAttribute(true)]
1834 #public List GetBarcodes()
1835 #{
1836 # InventItemBarcode inventItemBarcode;
1837 # KCS_HermesInterfaceEANDataContract eanDC;
1838 # List l = new List(Types::Class);
1839 #
1840 # while select * from inventItemBarcode
1841 # {
1842 # eanDC = new KCS_HermesInterfaceEANDataContract();
1843 #
1844 # //eanDC.initFromItemId(inventItemBarcode.ItemId,inventItemBarcode.barcodeSetupId,inventItemBarcode.RetailVariantId);
1845 # eanDC.initFromItemId(inventItemBarcode);
1846 #
1847 # //eanDC.Branch(#Branch);
1848 # eanDC.Cmd(#CMD);
1849 #
1850 # l.addEnd(eanDC);
1851 # }
1852 # return l;
1853 #}
1854 ENDSOURCE
1855 SOURCE #GetBarcodesPaged
1856 #/// <version>
1857 #/// 1.0 : KCS/kcsslach/AT_034835a/03.07.2018 - Hermes Insert/Update/Delete Marker / first
1858 #/// </version>
1859 #/// <summary>
1860 #/// get Barcodes
1861 #/// </summary>
1862 #/// <param name="_numberOfRecords">
1863 #/// num of records - optional
1864 #/// </param>
1865 #/// <returns>
1866 #/// List of KCS_HermesInterfaceEANDataContract
1867 #/// </returns>
1868 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceEANDataContract)),SysEntryPointAttribute(true)]
1869 #public List GetBarcodesPaged(int64 _numberOfRecords = 0)
1870 #{
1871 # InventItemBarcode inventItemBarcode;
1872 # KCS_HermesInterfaceEANDataContract eanDC;
1873 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
1874 # List l = new List(Types::Class);
1875 # Query query = new Query();
1876 # QueryBuildDataSource qbds;
1877 # QueryRun queryRun;
1878 # Counter counter;
1879 # KCS_HermesInterfaceOutboundQueue outboundQueue;
1880 #
1881 # if(prmisDefault(_numberOfRecords))
1882 # _numberOfRecords = params.getPageCount();
1883 #
1884 # qbds = query.addDataSource(tableNum(InventItemBarcode));
1885 # this.addOutboundQueueLink(query, qbds);
1886 # queryRun = new QueryRun(query);
1887 # while(queryRun.next())
1888 # {
1889 # if(queryRun.changed(tableNum(InventItemBarcode)))
1890 # {
1891 # if(counter >= _numberOfRecords)
1892 # break;
1893 # inventItemBarcode = queryRun.get(inventItemBarcode.TableId);
1894 # eanDC = new KCS_HermesInterfaceEANDataContract();
1895 #
1896 # //eanDC.initFromItemId(inventItemBarcode.ItemId,inventItemBarcode.barcodeSetupId,inventItemBarcode.RetailVariantId);
1897 # eanDC.initFromItemId(inventItemBarcode);
1898 #
1899 # //eanDC.Branch(#Branch);
1900 # //--> KCS/KCSSLACH/AT_034835a/03.07.2018
1901 # //eanDC.Cmd(#CMD);
1902 # outboundQueue = queryRun.get(tableNum(KCS_HermesInterfaceOutboundQueue));
1903 # eanDC.Cmd(outboundQueue.cmd());
1904 # //<-- KCS/KCSSLACH/AT_034835a/03.07.2018
1905 #
1906 # l.addEnd(eanDC);
1907 # this.markOutboundRecordAsSent(queryRun);
1908 # counter++;
1909 # }
1910 # }
1911 # //send deleted records
1912 # outboundQueue.clear();
1913 # while select outboundQueue
1914 # where outboundQueue.SourceCompanyId == curext()
1915 # && outboundQueue.RefRecId
1916 # && outboundQueue.RefTableId == tableNum(InventItemBarcode)
1917 # && outboundQueue.Sent == NoYes::No
1918 # && outboundQueue.SourceType == KCS_HermesInterfaceSourceType::Delete
1919 # {
1920 # inventItemBarcode = outboundQueue.getInventItemBarcodeFromValueContainer();
1921 # eanDC = new KCS_HermesInterfaceEANDataContract();
1922 # eanDC.initFromItemId(inventItemBarcode);
1923 # eanDC.Cmd(outboundQueue.cmd());
1924 # l.addEnd(eanDC);
1925 # this.markOutboundRecordAsSent(null, outboundQueue);
1926 # counter++;
1927 # }
1928 # return l;
1929 #}
1930 ENDSOURCE
1931 SOURCE #GetCashDrawers
1932 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceDrawerDataContract)),SysEntryPointAttribute(true)]
1933 #public List GetCashDrawers()
1934 #{
1935 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
1936 # KCS_HermesInterfaceDrawerDataContract cashDC = new KCS_HermesInterfaceDrawerDataContract();
1937 # KCS_HermesInterfaceCashDrawerManagement cashDrawer;
1938 # List l = new List(Types::Class);
1939 #
1940 # while select * from cashDrawer
1941 # {
1942 # cashDC = new KCS_HermesInterfaceDrawerDataContract();
1943 # cashDC.initFromCashDrawer(cashDrawer);
1944 #
1945 # cashDC.Cmd(#CMD);
1946 #
1947 # l.addEnd(cashDC);
1948 # }
1949 # return l;
1950 #}
1951 ENDSOURCE
1952 SOURCE #GetCategories
1953 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceCategoryDataContract)),SysEntryPointAttribute(true)]
1954 #public List GetCategories(EcoResCategoryLevel level = 1)
1955 #{
1956 # EcoResCategory category;
1957 # EcoResCategoryHierarchy hierarchy;
1958 # EcoResCategoryHierarchyRole hierarchyRole;
1959 #
1960 # KCS_HermesInterfaceCategoryDataContract categoryDC;
1961 # List l = new List(Types::Class);
1962 #
1963 # while select * from category
1964 # where category.Level == level
1965 # join * from hierarchy
1966 # where hierarchy.RecId == category.CategoryHierarchy
1967 # join * from hierarchyRole
1968 # where hierarchyRole.CategoryHierarchy == hierarchy.RecId
1969 # && hierarchyRole.NamedCategoryHierarchyRole == EcoResCategoryNamedHierarchyRole::Retail
1970 # {
1971 # categoryDC = new KCS_HermesInterfaceCategoryDataContract();
1972 # categoryDC.initFromCategory(category);
1973 #
1974 # //itemDC.Branch(#Branch);
1975 # categoryDC.Cmd(#CMD);
1976 #
1977 # l.addEnd(categoryDC);
1978 # }
1979 # return l;
1980 #}
1981 ENDSOURCE
1982 SOURCE #GetCategoriesPaged
1983 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceCategoryDataContract)),SysEntryPointAttribute(true)]
1984 #public List GetCategoriesPaged(EcoResCategoryLevel level = 1, int64 _numberOfRecords = 0)
1985 #{
1986 # EcoResCategory category;
1987 # EcoResCategoryHierarchy hierarchy;
1988 # EcoResCategoryHierarchyRole hierarchyRole;
1989 # KCS_HermesInterfaceCategoryDataContract categoryDC;
1990 # List l = new List(Types::Class);
1991 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
1992 # KCS_HermesInterfaceOutboundQueue outboundQueue;
1993 # Counter counter;
1994 #
1995 # if(prmisDefault(_numberOfRecords))
1996 # _numberOfRecords = params.getPageCount();
1997 #
1998 # while select * from category
1999 # where category.Level == level
2000 # join outboundQueue
2001 # where outboundQueue.SourceCompanyId == category.dataAreaId // KCS/KCSSLACH/AT_3303-002507/25.07.2018
2002 # && outboundQueue.RefRecId == category.RecId
2003 # && outboundQueue.RefTableId == category.TableId
2004 # && outboundQueue.Sent == NoYes::No
2005 # join * from hierarchy
2006 # where hierarchy.RecId == category.CategoryHierarchy
2007 # join * from hierarchyRole
2008 # where hierarchyRole.CategoryHierarchy == hierarchy.RecId
2009 # && hierarchyRole.NamedCategoryHierarchyRole == EcoResCategoryNamedHierarchyRole::Retail
2010 #
2011 # {
2012 # if(counter >= _numberOfRecords)
2013 # break;
2014 # categoryDC = new KCS_HermesInterfaceCategoryDataContract();
2015 # categoryDC.initFromCategory(category);
2016 #
2017 # //itemDC.Branch(#Branch);
2018 # categoryDC.Cmd(#CMD);
2019 #
2020 # l.addEnd(categoryDC);
2021 # this.markOutboundRecordAsSent(null, outboundQueue);
2022 # counter++;
2023 # }
2024 #
2025 # return l;
2026 #}
2027 ENDSOURCE
2028 SOURCE #GetCustomer
2029 #[SysEntryPointAttribute(true)]
2030 #public KCS_HermesInterfaceCustomerDataContract GetCustomer(CustAccount custAccount)
2031 #{
2032 # KCS_HermesInterfaceCustomerDataContract customerDC = new KCS_HermesInterfaceCustomerDataContract();
2033 # RetailLoyaltyCard loyaltyCard;
2034 # CustTable custTable = CustTable::find(custAccount);
2035 #
2036 # if(!custTable)
2037 # {
2038 # loyaltyCard = RetailLoyaltyCard::findByCardNumber(custAccount);
2039 # select firstOnly AccountNum,RecId from custTable where custTable.Party == loyaltyCard.Party;
2040 # custAccount = custTable.AccountNum;
2041 # }
2042 #
2043 # if(!custTable)
2044 # {
2045 # customerDC.ErrorCode(KCS_HermesInterfaceErrorCode::NotFound);
2046 # customerDC.ErrorMsg(strFmt("@KHI44",custAccount));
2047 # }
2048 # else
2049 # {
2050 # customerDC.initFromCustAccount(custAccount);
2051 # //customerDC.Branch(#Branch);
2052 # customerDC.Cmd(#CMD);
2053 # }
2054 # return customerDC;
2055 #}
2056 ENDSOURCE
2057 SOURCE #GetCustomers
2058 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceCustomerDataContract)),SysEntryPointAttribute(true)]
2059 #public List GetCustomers()
2060 #{
2061 # CustTable custTable;
2062 # KCS_HermesInterfaceCustomerDataContract customerDC;
2063 # List l = new List(Types::Class);
2064 #
2065 # while select AccountNum from custTable
2066 # {
2067 # customerDC = new KCS_HermesInterfaceCustomerDataContract();
2068 # customerDC.initFromCustAccount(custTable.AccountNum);
2069 #
2070 # //customerDC.Branch(#Branch);
2071 # customerDC.Cmd(#CMD);
2072 #
2073 # l.addEnd(customerDC);
2074 # }
2075 # return l;
2076 #}
2077 ENDSOURCE
2078 SOURCE #GetDiscount
2079 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceDiscHeadDataContract)),SysEntryPointAttribute(true)]
2080 #public List GetDiscount(OMOperatingUnitNumber branch)
2081 #{
2082 # KCS_HermesInterfaceDiscHeadExtendedView headView;
2083 # KCS_HermesInterfaceDiscountLineView lineView;
2084 #
2085 # KCS_HermesInterfaceDiscHeadDataContract discHeadDC;
2086 # KCS_HermesInterfaceDiscLineDataContract discLineDC;
2087 # PriceDiscGroup priceDiscGroup;
2088 # List heads = new List(Types::Class);
2089 # List lines;
2090 #
2091 # while select headView
2092 # outer join priceDiscGroup
2093 # where priceDiscGroup.RecId == headView.PriceDiscGroup
2094 # {
2095 # if(!priceDiscGroup || priceDiscGroup.KCS_hasValidBranch(branch) == true)
2096 # {
2097 # discHeadDC = new KCS_HermesInterfaceDiscHeadDataContract();
2098 # discHeadDC.initFromHeadView(headView, branch);
2099 # discHeadDC.Cmd(#CMD);
2100 #
2101 # lines = new List(Types::Class);
2102 # while select lineView
2103 # where lineView.OfferId == headView.OfferId
2104 # {
2105 # discLineDC = new KCS_HermesInterfaceDiscLineDataContract();
2106 # discLineDC.initFromLineView(lineView, branch);
2107 # discLineDC.Cmd(#CMD);
2108 # lines.addEnd(discLineDC);
2109 # }
2110 # discHeadDC.Lines(lines);
2111 #
2112 # heads.addEnd(discHeadDC);
2113 # }
2114 # }
2115 #
2116 #
2117 # return heads;
2118 #}
2119 ENDSOURCE
2120 SOURCE #GetDiscountPaged
2121 #/// <version>
2122 #/// 1.2 : KCS/kcsslach/AT_INC0517254/18.12.2018 - Hermes Transmit Discount / transmit discounts if not sent
2123 #/// 1.1 : KCS/kcsslach/AT_034835a/03.07.2018 - Hermes Insert/Update/Delete Marker / Extending Marker for Hermes Interface
2124 #/// 1.0 : KCS/kcsslach/AT_033049/26.04.2018 - Hermes Kassa / first
2125 #/// </version>
2126 #/// <summary>
2127 #/// Return discounts for webservice call
2128 #/// </summary>
2129 #/// <param name="branch">
2130 #/// OMOperatingUnit
2131 #/// </param>
2132 #/// <param name="_numberOfRecords">
2133 #/// Number of records for paging
2134 #/// </param>
2135 #/// <returns>
2136 #/// List of DC-Class
2137 #/// </returns>
2138 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceDiscHeadDataContract)),SysEntryPointAttribute(true)]
2139 #public List GetDiscountPaged(OMOperatingUnitNumber branch, int64 _numberOfRecords = 0)
2140 #{
2141 # KCS_HermesInterfaceDiscHeadExtendedView headView;
2142 # KCS_HermesInterfaceDiscountLineView lineView;
2143 #
2144 # KCS_HermesInterfaceDiscHeadDataContract discHeadDC;
2145 # KCS_HermesInterfaceDiscLineDataContract discLineDC;
2146 # PriceDiscGroup priceDiscGroup;
2147 # RetailDiscountPriceGroup retailDiscountPriceGroup;
2148 # List heads = new List(Types::Class);
2149 # List lines;
2150 # KCS_HermesInterfaceOutboundQueue outboundQueue;
2151 # KCS_HermesInterFaceParameters parameters = KCS_HermesInterFaceParameters::find();
2152 # Counter counter;
2153 # container con;
2154 # int i;
2155 #
2156 # //--> KCS/KCSSLACH/AT_INC0517254/18.12.2018
2157 # boolean getOutboundQueueRecords(KCS_HermesInterfaceSourceType _sourceType)
2158 # {
2159 # boolean found = false;
2160 # ;
2161 # //<-- KCS/KCSSLACH/AT_INC0517254/18.12.2018
2162 # while select headView
2163 # //--> KCS/KCSSLACH/AT_033049/26.04.2018
2164 # outer join PriceDiscGroup from retailDiscountPriceGroup
2165 # where retailDiscountPriceGroup.OfferId == headView.OfferId
2166 # join priceDiscGroup
2167 # //outer join priceDiscGroup
2168 # where priceDiscGroup.RecId == retailDiscountPriceGroup.PriceDiscGroup
2169 # //<-- KCS/KCSSLACH/AT_033049/26.04.2018
2170 # //where priceDiscGroup.RecId == headView.PriceDiscGroup
2171 # join outboundQueue
2172 # //where outboundQueue.RefTableId == tableNum(RetailPeriodicDiscount)
2173 # where outboundQueue.SourceCompanyId == headView.dataAreaId
2174 # && outboundQueue.RefRecId == headView.RetailPeriodicDiscount_RecId
2175 # && outboundQueue.RefTableId == tableNum(RetailPeriodicDiscount)
2176 # && outboundQueue.SourceType == _sourceType
2177 # && outboundQueue.Sent == NoYes::No
2178 # {
2179 # if(counter >= _numberOfRecords)
2180 # break;
2181 # if(priceDiscGroup)
2182 # con = priceDiscGroup.KCS_getValidBranch(branch);
2183 # else
2184 # con = ["*"];
2185 #
2186 # for(i = 1; i <= conLen(con); i++)
2187 # {
2188 # if(!priceDiscGroup || priceDiscGroup.KCS_hasValidBranch(branch) == true)
2189 # {
2190 # found = true; // KCS/KCSSLACH/AT_INC0517254/18.12.2018
2191 # discHeadDC = new KCS_HermesInterfaceDiscHeadDataContract();
2192 # discHeadDC.initFromHeadView(headView, conPeek(con, i));
2193 # //--> KCS/KCSSLACH/AT_034835a/03.07.2018
2194 # //discHeadDC.Cmd(#CMD);
2195 # discHeadDC.Cmd(outboundQueue.cmd());
2196 # //<-- KCS/KCSSLACH/AT_034835a/03.07.2018
2197 #
2198 # lines = new List(Types::Class);
2199 # while select lineView
2200 # where lineView.OfferId == headView.OfferId
2201 # {
2202 # discLineDC = new KCS_HermesInterfaceDiscLineDataContract();
2203 # discLineDC.initFromLineView(lineView, branch);
2204 # discLineDC.Cmd(outboundQueue.cmd()); //#CMD); // KCS/KCSSLACH/AT_INC0517254/18.12.2018
2205 # lines.addEnd(discLineDC);
2206 # }
2207 # discHeadDC.Lines(lines);
2208 #
2209 # heads.addEnd(discHeadDC);
2210 # counter++;
2211 # this.markOutboundRecordAsSent(null, outboundQueue);
2212 # }
2213 # }
2214 # }
2215 # return found;
2216 # }
2217 #
2218 # if(prmisDefault(_numberOfRecords))
2219 # _numberOfRecords = parameters.getPageCount();
2220 #
2221 # //--> KCS/KCSSLACH/AT_INC0517254/18.12.2018
2222 # if(getOutboundQueueRecords(KCS_HermesInterfaceSourceType::ForceDelete))
2223 # return heads;
2224 #
2225 # getOutboundQueueRecords(KCS_HermesInterfaceSourceType::ForceInsert);
2226 # getOutboundQueueRecords(KCS_HermesInterfaceSourceType::Insert);
2227 # getOutboundQueueRecords(KCS_HermesInterfaceSourceType::Update);
2228 # //<-- KCS/KCSSLACH/AT_INC0517254/18.12.2018
2229 #
2230 # return heads;
2231 #}
2232 ENDSOURCE
2233 SOURCE #GetGiftCardBalance
2234 #/// <version>
2235 #/// 1.0 : KCS/kcsslach/AT_034835a/04.07.2018 - Hermes check if gift card is expired
2236 #/// </version>
2237 #/// <summary>
2238 #/// Get Balance for Gift cards
2239 #/// </summary>
2240 #/// <param name="branch">
2241 #/// Branch
2242 #/// </param>
2243 #/// <param name="register">
2244 #/// Register
2245 #/// </param>
2246 #/// <param name="operator">
2247 #/// Operator
2248 #/// </param>
2249 #/// <param name="giftCardId">
2250 #/// GiftCardId
2251 #/// </param>
2252 #/// <returns>
2253 #/// Class KCS_HermesInterfaceGiftCardDataContract
2254 #/// </returns>
2255 #[SysEntryPointAttribute(true)]
2256 #public KCS_HermesInterfaceGiftCardDataContract GetGiftCardBalance( OMOperatingUnitNumber branch,
2257 # KCS_Register register,
2258 # RetailOperatorId operator,
2259 # RetailGiftCardId giftCardId)
2260 #{
2261 # KCS_HermesInterfaceGiftCardDataContract giftDC = new KCS_HermesInterfaceGiftCardDataContract();
2262 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
2263 # RetailGiftCardTable giftCardTable;
2264 # RetailBalance giftCardBalance;
2265 # RetailGiftCardStatus status;
2266 #
2267 # giftCardTable = RetailGiftCardTable::find(giftCardId);
2268 # //--> KCS/KCSSLACH/AT_034835a/04.07.2018
2269 # if( giftCardTable.KCS_RetailGiftCardExpireDate != dateNull()
2270 # && giftCardTable.KCS_RetailGiftCardExpireDate <= today())
2271 # giftCardBalance = 0;
2272 # else
2273 # //<-- KCS/KCSSLACH/AT_034835a/04.07.2018
2274 # giftCardBalance = giftCardTable.balance();
2275 # status = giftCardTable.Status;
2276 #
2277 # giftDC.GiftCardId(giftCardId);
2278 # giftDC.Balance(giftCardBalance);
2279 # giftDC.Status(status);
2280 # giftDC.Reserved(giftCardTable.reserved);
2281 #
2282 # return giftDC;
2283 #}
2284 ENDSOURCE
2285 SOURCE #GetIfCouponIsValid
2286 #/// <version>
2287 #/// 1.0 : KCS/AST/AT_3303_002032/10.01.2019 - CRQ_227: Couponfunktionalität auf Hermes-Kassen / first
2288 #/// </version>
2289 #/// <summary>
2290 #/// designed by KCS.net
2291 #/// </summary>
2292 #/// <param name="_couponParameterDataContract">
2293 #/// designed by KCS.net
2294 #/// </param>
2295 #/// <returns>
2296 #/// designed by KCS.net
2297 #/// </returns>
2298 #[SysEntryPointAttribute(true)]
2299 #public KCS_MCRCouponResultDataContract GetIfCouponIsValid(KCS_MCRCouponParameterDataContract _couponParameterDataContract)
2300 #{
2301 # #OCCRetryCount
2302 #
2303 # System.Exception ex;
2304 # int startLine = Global::infologLine();
2305 # str msg;
2306 # int currentLine;
2307 # KCS_MCRCouponResultDataContract couponResultDataContract = new KCS_MCRCouponResultDataContract();
2308 # MCRCoupon coupon;
2309 # MCRCouponDiscount couponDiscount;
2310 # MCRCouponCustomer couponCustomer;
2311 # InventQty couponQty;
2312 # Currency currency;
2313 #
2314 # try
2315 # {
2316 # select firstonly coupon
2317 # where coupon.MCRCouponId == _couponParameterDataContract.CouponId();
2318 #
2319 # //Check if the coupon does exist
2320 # if(coupon)
2321 # {
2322 # select count(RecId) from couponDiscount
2323 # where couponDiscount.MCRCouponId == coupon.MCRCouponId;
2324 #
2325 # //Check if the coupon does only have 1 Discountline
2326 # if(couponDiscount.RecId == 1)
2327 # {
2328 # //Check if this coupon is specific for a customer
2329 # if(coupon.MCRCustomerSpecific)
2330 # {
2331 # couponCustomer = this.findMCRCouponCustomer(coupon, _couponParameterDataContract.CustAccount());
2332 #
2333 # //Check if the customer can use this coupon
2334 # if(!couponCustomer.RecId)
2335 # {
2336 # couponResultDataContract.ErrorCode(KCS_HermesInterfaceErrorCode::KCS_CouponCustomerNotValid);
2337 # couponResultDataContract.ErrorMessage(strFmt("@KWE3726", _couponParameterDataContract.CustAccount()));
2338 # return couponResultDataContract;
2339 # }
2340 #
2341 # //check if the Coupon has been Voided
2342 # if(couponCustomer.MCRCouponVoided == NoYes::Yes)
2343 # {
2344 # couponResultDataContract.ErrorCode(KCS_HermesInterfaceErrorCode::KCS_CouponIsVoided);
2345 # couponResultDataContract.ErrorMessage("@KWE3720");
2346 # return couponResultDataContract;
2347 # }
2348 # }
2349 #
2350 #
2351 # //Check if the coupon is expired
2352 # if(coupon.MCRFromDate != dateNull()
2353 # && coupon.MCRFromDate > systemDateGet())
2354 # {
2355 # couponResultDataContract.ErrorCode(KCS_HermesInterfaceErrorCode::KCS_CouponIsExpired);
2356 # couponResultDataContract.ErrorMessage(strFmt("@KWE3719", coupon.MCRFromDate, coupon.MCRToDate));
2357 # return couponResultDataContract;
2358 # }
2359 #
2360 # if(coupon.MCRToDate != dateNull()
2361 # && coupon.MCRToDate < systemDateGet())
2362 # {
2363 # couponResultDataContract.ErrorCode(KCS_HermesInterfaceErrorCode::KCS_CouponIsExpired);
2364 # couponResultDataContract.ErrorMessage(strFmt("@KWE3719", coupon.MCRFromDate, coupon.MCRToDate));
2365 # return couponResultDataContract;
2366 # }
2367 #
2368 #
2369 #
2370 # select firstonly couponDiscount
2371 # where couponDiscount.MCRCouponId == coupon.MCRCouponId;
2372 #
2373 # //Check if the BONSum has reached the necessary MCRCouponAmount
2374 # if(couponDiscount.MCRCouponAmount > 0
2375 # && couponDiscount.MCRCouponAmount > _couponParameterDataContract.BonSum())
2376 # {
2377 # couponResultDataContract.ErrorCode(KCS_HermesInterfaceErrorCode::KCS_CouponBonQtyNotReached);
2378 # couponResultDataContract.ErrorMessage(strFmt("@KWE3721", couponDiscount.MCRCouponAmount));
2379 # return couponResultDataContract;
2380 # }
2381 #
2382 #
2383 # //Check if the couponDiscount is calculated as percentage or a fixed amount
2384 # if(couponDiscount.MCRCouponDiscAttr == MCRCouponDiscAttr::Amount)
2385 # {
2386 # couponResultDataContract.ErrorCode(1);
2387 # couponResultDataContract.ErrorMessage("@KWE3725");
2388 # return couponResultDataContract;
2389 # }
2390 # else if(couponDiscount.MCRCouponDiscAttr == MCRCouponDiscAttr::AmountFixed)
2391 # {
2392 # couponQty = couponDiscount.MCRCouponValue;
2393 # couponResultDataContract.CouponQuantity(couponQty);
2394 # }
2395 # else if(couponDiscount.MCRCouponDiscAttr == MCRCouponDiscAttr::Percent)
2396 # {
2397 # currency = Currency::find(Ledger::accountingCurrency(CompanyInfo::current()));
2398 #
2399 # couponQty = couponDiscount.MCRCouponValue * _couponParameterDataContract.BonSum() / 100;
2400 #
2401 # couponQty = CurrencyExchangeHelper::roundWithRuleTypeCurrencyTable( couponQty,
2402 # currency,
2403 # CurrencyRoundingRuleType::SalesOrder);
2404 #
2405 # couponResultDataContract.CouponQuantity(couponQty);
2406 # }
2407 #
2408 # //Return the flag if the coupon is only OneTimeUse
2409 # couponResultDataContract.CouponOneTimeUse(coupon.MCROneTimeUse);
2410 #
2411 # }
2412 # else
2413 # {
2414 # couponResultDataContract.ErrorCode(KCS_HermesInterfaceErrorCode::KCS_CouponWrongNumberOfDiscounts);
2415 # couponResultDataContract.ErrorMessage(strFmt("@KWE3724", _couponParameterDataContract.CouponId()));
2416 # return couponResultDataContract;
2417 # }
2418 # }
2419 # else
2420 # {
2421 # couponResultDataContract.ErrorCode(KCS_HermesInterfaceErrorCode::KCS_CouponDoesNotExist);
2422 # couponResultDataContract.ErrorMessage(strFmt("@KWE3723", _couponParameterDataContract.CouponId()));
2423 # return couponResultDataContract;
2424 # }
2425 # }
2426 # catch (Exception::Deadlock)
2427 # {
2428 # retry;
2429 # }
2430 # catch (Exception::UpdateConflict)
2431 # {
2432 # if (xSession::currentRetryCount() >= #RetryNum)
2433 # {
2434 # couponResultDataContract.ErrorCode(1);
2435 # couponResultDataContract.ErrorMessage("@KWE3727");
2436 # }
2437 # else
2438 # {
2439 # retry;
2440 # }
2441 # }
2442 # catch (Exception::CLRError)
2443 # {
2444 # ex = ClrInterop::getLastException();
2445 # if (ex != null)
2446 # {
2447 # ex = ex.get_InnerException();
2448 # if (ex != null)
2449 # {
2450 # couponResultDataContract.ErrorCode(1);
2451 # couponResultDataContract.ErrorMessage("@KWE3727" + ": " + ex.ToString());
2452 # }
2453 # }
2454 # }
2455 # catch
2456 # {
2457 # msg = "@KWE3727" + ":";
2458 #
2459 # for (currentLine = startLine + 1; currentLine <= Global::infologLine(); currentLine++)
2460 # {
2461 # msg += infolog.text(currentLine);
2462 # }
2463 #
2464 # couponResultDataContract.ErrorCode(1);
2465 # couponResultDataContract.ErrorMessage(msg);
2466 # }
2467 #
2468 # return couponResultDataContract;
2469 #}
2470 ENDSOURCE
2471 SOURCE #GetItem
2472 #[SysEntryPointAttribute(true)]
2473 #public KCS_HermesInterfaceItemDataContract GetItem(KCS_ItemIdVariant itemid)
2474 #{
2475 # container packedList;
2476 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
2477 # KCS_HermesInterfaceItemDataContract itemDC = new KCS_HermesInterfaceItemDataContract();
2478 #
2479 # packedList = KCS_HermesInterFaceParameters::ItemVariant2ItemAndVariant(itemid);
2480 # itemDC.initFromItemId(conpeek(packedList,1),conpeek(packedList,2));
2481 #
2482 # //itemDC.Branch(#Branch);
2483 # itemDC.Cmd(#CMD);
2484 #
2485 # return itemDC;
2486 #}
2487 ENDSOURCE
2488 SOURCE #GetItems
2489 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceItemDataContract)),SysEntryPointAttribute(true)]
2490 #public List GetItems()
2491 #{
2492 # InventTable inventTable;
2493 # InventDimCombination inventDimCombination;
2494 # KCS_HermesInterfaceItemDataContract itemDC;
2495 # List l = new List(Types::Class);
2496 #
2497 # //RetailChannelTable retChannelTable;
2498 # //OMOperatingUnit omOperatingUnit;
2499 # //select firstOnly RecId from retChannelTable
2500 # // where retChannelTable.ChannelType == RetailChannelType::MCRCallCenter
2501 # //join OMOperatingUnitNumber from omOperatingUnit
2502 # // where omOperatingUnit.RecId == retChannelTable.OMOperatingUnitID;
2503 #
2504 # while select ItemId from inventTable
2505 # outer join RetailVariantId from inventDimCombination
2506 # where inventDimCombination.ItemId == inventTable.ItemId
2507 # {
2508 # itemDC = new KCS_HermesInterfaceItemDataContract();
2509 # itemDC.initFromItemId(inventTable.ItemId, inventDimCombination.RetailVariantId);
2510 #
2511 # //itemDC.Branch(#Branch);
2512 # itemDC.Cmd(#CMD);
2513 #
2514 # l.addEnd(itemDC);
2515 # }
2516 # return l;
2517 #}
2518 ENDSOURCE
2519 SOURCE #GetItemsPaged
2520 #/// <version>
2521 #/// 1.0 : KCS/kcsslach/AT_034835a/03.07.2018 - Hermes Insert/Update/Delete Marker / first
2522 #/// </version>
2523 #/// <summary>
2524 #/// Get Items - Paged Version
2525 #/// </summary>
2526 #/// <param name="_numberOfRecords">
2527 #/// Num of Records - optional
2528 #/// </param>
2529 #/// <returns>
2530 #/// List of KCS_HermesInterfaceitemDataContract
2531 #/// </returns>
2532 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceItemDataContract)),SysEntryPointAttribute(true)]
2533 #public List GetItemsPaged(int64 _numberOfRecords = 0)
2534 #{
2535 # InventTable inventTable;
2536 # InventDimCombination inventDimCombination;
2537 # KCS_HermesInterfaceItemDataContract itemDC;
2538 # List l = new List(Types::Class);
2539 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
2540 # //str dateRangeStr;
2541 # QueryRun qr;
2542 # Query q = new Query();
2543 # QueryBuildDataSource qbds_it, qbds_idc;
2544 # int days = params.InterfaceDataDaysInPast;
2545 # Counter counter;
2546 # utcDateTime dt = DateTimeUtil::addDays(DateTimeUtil::getSystemDateTime(),(-days));
2547 # KCS_HermesInterfaceOutboundQueue outboundQueue; // KCS/KCSSLACH/AT_034835a/03.07.2018
2548 #
2549 # if(prmisDefault(_numberOfRecords))
2550 # _numberOfRecords = params.getPageCount();
2551 #
2552 # qbds_it = q.addDataSource(tableNum(InventTable));
2553 # //dateRangeStr = strFmt("%1%2","> ", dt);
2554 # //qbds_it.addRange(fieldNum(InventTable,ModifiedDateTime)).value(dateRangeStr);
2555 # qbds_it.addOrderByField(fieldNum(InventTable,ItemId),SortOrder::Ascending);
2556 # qbds_idc = qbds_it.addDataSource(tableNum(InventDimCombination));
2557 # qbds_idc.addLink(fieldNum(InventTable,ItemId),fieldNum(InventDimCombination,ItemId));
2558 # qbds_idc.joinMode(JoinMode::OuterJoin);
2559 # this.addOutboundQueueLink(q, qbds_it);
2560 #
2561 # qr = new QueryRun(q);
2562 #
2563 # while (qr.next())
2564 # {
2565 # if(qr.changed(tableNum(inventTable)))
2566 # {
2567 # if(counter >= _numberOfRecords)
2568 # break;
2569 #
2570 # inventTable = qr.get(tableNum(InventTable));
2571 # inventDimCombination = qr.get(tableNum(InventDimCombination));
2572 #
2573 # itemDC = new KCS_HermesInterfaceItemDataContract();
2574 # itemDC.initFromItemId(inventTable.ItemId, inventDimCombination.RetailVariantId);
2575 #
2576 # //--> KCS/KCSSLACH/AT_034835a/03.07.2018
2577 # outboundQueue = qr.get(tableNum(KCS_HermesInterfaceOutboundQueue));
2578 # //itemDC.Branch(#Branch);
2579 # //itemDC.Cmd(#CMD);
2580 # itemDC.Cmd(outboundQueue.cmd());
2581 # //<-- KCS/KCSSLACH/AT_034835a/03.07.2018
2582 #
2583 # l.addEnd(itemDC);
2584 # this.markOutboundRecordAsSent(qr);
2585 # counter++;
2586 # }
2587 # }
2588 #
2589 # return l;
2590 #}
2591 ENDSOURCE
2592 SOURCE #GetLoyaltyAmount
2593 #[SysEntryPointAttribute(true)]
2594 #public KCS_HermesInterfaceLoyaltyDataContract GetLoyaltyAmount( OMOperatingUnitNumber branch,
2595 # KCS_Register register,
2596 # RetailOperatorId operator,
2597 # RetailLoyaltyCardNumber loyaltyCard)
2598 #{
2599 # KCS_HermesInterfaceLoyaltyDataContract loyaltyDC = new KCS_HermesInterfaceLoyaltyDataContract();
2600 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
2601 # RetailLoyaltyCard card;
2602 # RetailLoyaltyRewardPoint rewardPoint;
2603 # RetailLoyaltyRewardPointAmountQty usedAmountQty, issuedAmountQty, balance;
2604 #
2605 # card = RetailLoyaltyCard::findByCardNumber(loyaltyCard);
2606 # rewardPoint = RetailLoyaltyRewardPoint::findByRewardPointId(params.AmountRewardPointId);
2607 #
2608 # usedAmountQty = RetailLoyaltyCardRewardPointTrans::calcPoints(card,rewardPoint.RecId, RetailLoyaltyPointStatusTypeBase::Used/*,calcdate*/);
2609 # issuedAmountQty = RetailLoyaltyCardRewardPointTrans::calcPoints(card,rewardPoint.RecId, RetailLoyaltyPointStatusTypeBase::Issued/*,calcdate*/);
2610 # balance = issuedAmountQty - usedAmountQty;
2611 #
2612 # loyaltyDC.Active(balance);
2613 # loyaltyDC.RewardPointId(rewardPoint.RewardPointId);
2614 #
2615 # return loyaltyDC;
2616 #}
2617 ENDSOURCE
2618 SOURCE #GetLoyaltyPoints
2619 #[SysEntryPointAttribute(true)]
2620 #public KCS_HermesInterfaceLoyaltyDataContract GetLoyaltyPoints( OMOperatingUnitNumber branch,
2621 # KCS_Register register,
2622 # RetailOperatorId operator,
2623 # RetailLoyaltyCardNumber loyaltyCard)
2624 #{
2625 # KCS_HermesInterfaceLoyaltyDataContract loyaltyDC = new KCS_HermesInterfaceLoyaltyDataContract();
2626 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
2627 # RetailLoyaltyCard card;
2628 # RetailLoyaltyRewardPoint rewardPoint;
2629 # RetailLoyaltyRewardPointAmountQty usedAmountQty, issuedAmountQty, balance;
2630 #
2631 # card = RetailLoyaltyCard::findByCardNumber(loyaltyCard);
2632 # rewardPoint = RetailLoyaltyRewardPoint::findByRewardPointId(params.PointsRewardPointId);
2633 #
2634 # usedAmountQty = RetailLoyaltyCardRewardPointTrans::calcPoints(card,rewardPoint.RecId, RetailLoyaltyPointStatusTypeBase::Used/*,calcdate*/);
2635 # issuedAmountQty = RetailLoyaltyCardRewardPointTrans::calcPoints(card,rewardPoint.RecId, RetailLoyaltyPointStatusTypeBase::Issued/*,calcdate*/);
2636 # balance = issuedAmountQty - usedAmountQty;
2637 #
2638 # loyaltyDC.Active(balance);
2639 # loyaltyDC.RewardPointId(rewardPoint.RewardPointId);
2640 #
2641 # return loyaltyDC;
2642 #}
2643 ENDSOURCE
2644 SOURCE #GetNextGiftcardId
2645 #[SysEntryPointAttribute(true)]
2646 #public RetailGiftCardId GetNextGiftcardId( OMOperatingUnitNumber branch,
2647 # KCS_Register register,
2648 # RetailOperatorId operator)
2649 #{
2650 # RetailGiftCardId giftCardId;
2651 # RetailGiftCardTable giftCardTable;
2652 #
2653 # giftCardId = MCRGiftCard::generateGiftCardSerialNumber();
2654 # giftCardTable = RetailGiftCardTable::find(giftCardId);
2655 # if(!giftCardTable)
2656 # {
2657 # giftCardTable.entryId = giftCardId;
2658 # giftCardTable.currencyCode = Ledger::accountingCurrency();
2659 # giftCardTable.MCRGiftCardType = MCRGiftCardType::Physical;
2660 # giftCardTable.insert();
2661 # }
2662 #
2663 # //todo what if already exists? Standard only checks mcr salesLine
2664 #
2665 # return giftCardId;
2666 #}
2667 ENDSOURCE
2668 SOURCE #GetPickupOrderLines
2669 #/// <version>
2670 #/// 1.2 : KCS/kcsslach/AT_3303-002653/06.09.2018 - CRQ259 Send Service Items to Hermes / Send Service Items to Hermes
2671 #/// 1.1 : KCS/SMS/AT_00033053/20.08.2018 - HERMES Kassenschnittstelle / WEKO spezifische Anpassungen
2672 #/// 1.0 : KCS/kcsslach/AT_034946/10.04.2018 - Send Remaining Amount to Hermes / first
2673 #/// </version>
2674 #/// <summary>
2675 #/// sending pickup order lines to hermes
2676 #/// </summary>
2677 #/// <param name="branch">
2678 #/// OMOperatingUNitNumber
2679 #/// </param>
2680 #/// <param name="register">
2681 #/// KCS_Register
2682 #/// </param>
2683 #/// <param name="operator">
2684 #/// RetailOperatorId
2685 #/// </param>
2686 #/// <param name="salesId">
2687 #/// SalesId
2688 #/// </param>
2689 #/// <returns>
2690 #/// List with KCS_HermesInterfaceSalesLineDataContract Class
2691 #/// </returns>
2692 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceSalesLineDataContract)),SysEntryPointAttribute(true)]
2693 #public List GetPickupOrderLines( OMOperatingUnitNumber branch,
2694 # KCS_Register register,
2695 # RetailOperatorId operator,
2696 # SalesId salesId)
2697 #{
2698 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
2699 # SalesLine salesLine;
2700 # SalesTable salesTable; // KCS/KCSSLACH/AT_034946/10.04.2018
2701 # InventTable inventTable;
2702 # InventTransOrigin inventTransOrig;
2703 # InventTrans inventTrans;
2704 # InventDimCombination inventDimCombi;
2705 # KCS_HermesInterfaceSalesLineDataContract salesLineDC;
2706 # List l = new List(Types::Class);
2707 # MCRCustPaymTotals mcrCustPaymTotals; // KCS/KCSSLACH/AT_034946/10.04.2018
2708 # InventModelGroup inventModelGroup;
2709 # //--> KCS/KCSSLACH/AT_002211/24.09.2018
2710 # SalesId origSalesId = salesId;
2711 #
2712 # select firstOnly RecId from salesTable
2713 # where salesTable.SalesId == salesId;
2714 #
2715 # if(!salesTable.RecId)
2716 # {
2717 # select firstOnly RecId, SalesId from salesTable
2718 # where salesTable.CustomerRef == salesId;
2719 #
2720 # salesId = salesTable.SalesId;
2721 # }
2722 # if(!salesTable.RecId)
2723 # {
2724 # throw error("@KWE3484", origSalesId);
2725 # }
2726 # else
2727 # {
2728 # salesTable = null;
2729 # }
2730 # //<-- KCS/KCSSLACH/AT_002211/24.09.2018
2731 #
2732 # while select salesLine
2733 # where salesLine.SalesId == salesId
2734 # //--> KCS/KCSSLACH/AT_3303-002653/06.09.2018
2735 # join inventTable
2736 # where inventTable.ItemId == salesLine.ItemId
2737 # //<-- KCS/KCSSLACH/AT_3303-002653/06.09.2018
2738 # //--> KCS/KCSSLACH/AT_034946/10.04.2018
2739 # join salesTable
2740 # where salesTable.SalesId == salesLine.SalesId
2741 # //<-- KCS/KCSSLACH/AT_034946/10.04.2018
2742 # //--> KCS/KCSSLACH/AT_3303-002653/06.09.2018
2743 # join RecId from inventTransOrig
2744 # where inventTransOrig.InventTransId == salesLine.InventTransId
2745 # /*
2746 # join * from inventTrans
2747 # where inventTrans.InventTransOrigin == inventTransOrig.RecId
2748 # && inventTrans.StatusIssue == StatusIssue::ReservPhysical
2749 # */
2750 # //<-- KCS/KCSSLACH/AT_3303-002653/06.09.2018
2751 # {
2752 #
2753 # //--> KCS/KCSSLACH/AT_3303-002653/06.09.2018
2754 # //inventTable = InventTable::find(salesLine.ItemId);
2755 # inventModelGroup = inventTable.modelGroup();
2756 # if(!inventModelGroup.KCS_TreatAsServiceItem)
2757 # {
2758 # select Qty from inventTrans
2759 # where inventTrans.InventTransOrigin == inventTransOrig.RecId
2760 # && inventTrans.StatusIssue == StatusIssue::ReservPhysical;
2761 #
2762 # if(!inventTrans.RecId)
2763 # continue;
2764 # }
2765 # else
2766 # {
2767 # select Qty from inventTrans
2768 # where inventTrans.InventTransOrigin == inventTransOrig.RecId;
2769 #
2770 # if(!inventTrans.RecId)
2771 # continue;
2772 # }
2773 # //<-- KCS/KCSSLACH/AT_3303-002653/06.09.2018
2774 #
2775 # salesLineDC = new KCS_HermesInterfaceSalesLineDataContract();
2776 # salesLineDC.Branch(branch);
2777 # salesLineDC.SalesId(salesLine.SalesId);
2778 # salesLineDC.LineNum(salesLine.LineNum);
2779 #
2780 # inventDimCombi = InventDimCombination::findByInventDim(salesLine.ItemId,salesLine.InventDim());
2781 # if(inventDimCombi)
2782 # salesLineDC.ItemId(salesLine.ItemId+params.ItemVariantDelimiter+inventDimCombi.RetailVariantId);
2783 # else
2784 # salesLineDC.ItemId(salesLine.ItemId);
2785 #
2786 # salesLineDC.Text(salesLine.Name); //todo hermes salesLineDC.Text(inventTable.KCS_ItemDescription);
2787 #
2788 # salesLineDC.SalesQty(InventTable::unitConvertValue( salesLine.ItemId,
2789 # salesLine.SalesUnit,
2790 # inventTable.inventUnitId(),
2791 # inventTable.inventUnitId(),
2792 # inventTrans.Qty));
2793 # salesLineDC.SalesLineAmount(salesLine.LineAmount);
2794 #
2795 # //--> KCS/KCSSLACH/AT_034946/10.04.2018
2796 # mcrCustPaymTotals = KCS_HermesInterfaceServiceContract::mcrPaymentTotals(salesTable);
2797 # //--> KCS/SMS/AT_00033053/20.08.2018
2798 # //salesLineDC.RemainAmount(mcrCustPaymTotals.getTotalSalesAmount() - mcrCustPaymTotals.KCS_getPrepayment() + mcrCustPaymTotals.KCS_getOtherPayment());
2799 # salesLineDC.RemainAmount(mcrCustPaymTotals.getTotalSalesAmount() - (mcrCustPaymTotals.KCS_getPrepayment() + mcrCustPaymTotals.KCS_getOtherPayment()));
2800 # //<-- KCS/SMS/AT_00033053/20.08.2018
2801 # //<-- KCS/KCSSLACH/AT_034946/10.04.2018
2802 #
2803 # l.addEnd(salesLineDC);
2804 # }
2805 #
2806 # return l;
2807 #}
2808 ENDSOURCE
2809 SOURCE #GetPriceList
2810 #/// <version>
2811 #/// 1.0 : KCS/kcsslach/AT_034343/06.03.2018 - on the fly changes while integration testing / first
2812 #/// </version>
2813 #/// <summary>
2814 #/// get PriceList via webservice
2815 #/// </summary>
2816 #/// <param name="branch">
2817 #/// OMOperatingUnitNumber
2818 #/// </param>
2819 #/// <returns>
2820 #/// List of all Prices as Datacontract
2821 #/// </returns>
2822 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfacePriceDataContract)),SysEntryPointAttribute(true)]
2823 #public List GetPriceList(OMOperatingUnitNumber branch)
2824 #{
2825 # PriceDiscTable pdt;
2826 # KCS_HermesInterfacePriceDataContract priceDC;
2827 # List l = new List(Types::Class);
2828 # date now = systemDateGet();
2829 # OMOperatingUnit omOperatingUnit;
2830 # RetailChannelTable retChannelTable;
2831 # //KCS/ZAD/03102017
2832 # boolean wildcard = false;
2833 # KCS_PriceDiscOrigin kcs_priceDiscOrigin; //KCS/STO/AT_032302/27.10.2017
2834 #
2835 # select RecId from omOperatingUnit
2836 # where omOperatingUnit.OMOperatingUnitNumber == branch
2837 # && omOperatingUnit.OMOperatingUnitType == OMOperatingUnitType::RetailChannel;
2838 # retChannelTable = RetailChannelTable::findByOperatingUnitId(omOperatingUnit.RecId);
2839 #
2840 # //throw error("PriceGroup:"+retChannelTable.KCS_HermesInterfaceDefaultPriceGroup);
2841 #
2842 # //KCS/ZAD/03102017
2843 # if(branch == "*")
2844 # wildcard = true;
2845 #
2846 # while select pdt
2847 # where pdt.FromDate <= now
2848 # && pdt.ToDate >= now
2849 # && (pdt.relation == PriceType::PriceSales||pdt.relation == PriceType::LineDiscSales) //KCS/ZAD/27082017
2850 # && ((
2851 # pdt.AccountCode == TableGroupAll::GroupId &&
2852 # (
2853 # wildcard ||
2854 # (!wildcard && pdt.AccountRelation == retChannelTable.KCS_HermesInterfaceDefaultPriceGroup)
2855 # )
2856 # ) ||
2857 # //KCS/ZAD/27082017
2858 # /*
2859 # (
2860 # pdt.AccountCode == TableGroupAll::All
2861 # ) ||
2862 # */
2863 # (
2864 # pdt.AccountCode == TableGroupAll::Table
2865 # ))
2866 # {
2867 # //--> KCS/KCSSLACH/AT_034343/06.03.2018
2868 # if(today() <= 08\03\2018
2869 # && (pdt.AccountRelation != @"PgS9001"
2870 # && pdt.AccountRelation != @"PgS8001"))
2871 # continue;
2872 # //<-- KCS/KCSSLACH/AT_034343/06.03.2018
2873 # //--> KCS/STO/AT_032302/27.10.2017
2874 # kcs_priceDiscOrigin = KCS_PriceDiscOrigin::find(pdt.KCS_PriceDiscOriginId);
2875 # if (!kcs_priceDiscOrigin || kcs_priceDiscOrigin.PriceField == KCS_PriceField::VKP1 || kcs_priceDiscOrigin.PriceField == KCS_PriceField::AdvertisementPrice)
2876 # {
2877 # //<-- KCS/STO/AT_032302/27.10.2017
2878 # priceDC = new KCS_HermesInterfacePriceDataContract();
2879 # //--> KCS/KCSSLACH/AT_034343/07.03.2018
2880 # priceDC.parmWildcard(wildcard);
2881 # priceDC.initFromPriceDiscTable(pdt);
2882 # //priceDC.Branch(#Branch);
2883 #
2884 # if(!wildcard)
2885 # priceDc.Branch(branch);
2886 # //<-- KCS/KCSSLACH/AT_034343/07.03.2018
2887 # priceDC.Cmd(#CMD);
2888 #
2889 # l.addEnd(priceDC);
2890 # } // KCS/STO/AT_032302/27.10.2017
2891 # }
2892 # return l;
2893 #}
2894 ENDSOURCE
2895 SOURCE #GetPriceListPaged
2896 #/// <version>
2897 #/// 1.2 : KCS/kcsslach/AT_003643_KKS/28.08.2018 - Hermes EU Price / Avoid sending EU prices to Hermes
2898 #/// 1.1 : KCS/kcsslach/AT_034835a/03.07.2018 - Hermes Insert/Update/Delete Marker / Extending Marker for Hermes Interface
2899 #/// 1.0 : KCS/kcsslach/AT_033049b/02.05.2018 - Hermes GoLive fixes / first
2900 #/// </version>
2901 #/// <summary>
2902 #/// get Prices paged
2903 #/// </summary>
2904 #/// <param name="branch">
2905 #/// normally given with "*"
2906 #/// </param>
2907 #/// <param name="_numberOfRecords">
2908 #/// records to send
2909 #/// </param>
2910 #/// <returns>
2911 #/// List with KCS_HermesInterfacePriceDataContract
2912 #/// </returns>
2913 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfacePriceDataContract)),SysEntryPointAttribute(true)]
2914 #public List GetPriceListPaged(OMOperatingUnitNumber branch, int64 _numberOfRecords = 0)
2915 #{
2916 # PriceDiscTable pdt;
2917 # KCS_HermesInterfacePriceDataContract priceDC;
2918 # List l = new List(Types::Class);
2919 # date now = systemDateGet();
2920 # OMOperatingUnit omOperatingUnit;
2921 # RetailChannelTable retChannelTable;
2922 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
2923 # KCS_HermesInterfaceOutboundQueue outboundQueue;
2924 # //KCS/ZAD/03102017
2925 # boolean wildcard = false;
2926 # Counter counter;
2927 # //--> KCS/KCSSLACH/AT_033049b/02.05.2018
2928 # container validPriceDiscOrigins;
2929 # Set validPriceDiscOriginsSet;
2930 # //<-- KCS/KCSSLACH/AT_033049b/02.05.2018
2931 # PriceDiscGroup priceDiscGroup; // KCS/KCSSLACH/AT_003643_KKS/28.08.2018
2932 # #SysOperation
2933 #
2934 # if(prmisDefault(_numberOfRecords))
2935 # _numberOfRecords = params.getPageCount();
2936 #
2937 # select RecId from omOperatingUnit
2938 # where omOperatingUnit.OMOperatingUnitNumber == branch
2939 # && omOperatingUnit.OMOperatingUnitType == OMOperatingUnitType::RetailChannel;
2940 # retChannelTable = RetailChannelTable::findByOperatingUnitId(omOperatingUnit.RecId);
2941 #
2942 # //throw error("PriceGroup:"+retChannelTable.KCS_HermesInterfaceDefaultPriceGroup);
2943 #
2944 # //--> KCS/KCSSLACH/AT_033049b/02.05.2018
2945 # validPriceDiscOrigins = str2con(params.PriceDiscOriginIds, #CollectionValueSeparator);
2946 # if(conLen(validPriceDiscOrigins) > 0)
2947 # {
2948 # validPriceDiscOriginsSet = this.con2set(validPriceDiscOrigins);
2949 # }
2950 # //<-- KCS/KCSSLACH/AT_033049b/02.05.2018
2951 # //KCS/ZAD/03102017
2952 # if(branch == "*")
2953 # wildcard = true;
2954 #
2955 # while select outboundQueue
2956 # //where outboundQueue.SourceCompanyId == pdt.dataAreaId
2957 # where
2958 # /*
2959 # outboundQueue.RefRecId == pdt.RecId
2960 # &&
2961 # */
2962 # outboundQueue.RefTableId == pdt.TableId
2963 # && outboundQueue.Sent == NoYes::No
2964 #
2965 # join pdt
2966 # where pdt.RecId == outboundQueue.RefRecId
2967 # && pdt.dataAreaId == outboundQueue.SourceCompanyId
2968 # /* pdt.FromDate <= now
2969 # && pdt.FromDate >= (now-params.InterfaceDataDaysInPast)
2970 # &&
2971 # */
2972 # && pdt.ToDate >= now - params.InterfaceDataDaysInPast
2973 #
2974 # && (pdt.relation == PriceType::PriceSales||pdt.relation == PriceType::LineDiscSales) //KCS/ZAD/27082017
2975 # && ((
2976 # pdt.AccountCode == TableGroupAll::GroupId &&
2977 # (
2978 # wildcard ||
2979 # (!wildcard && pdt.AccountRelation == retChannelTable.KCS_HermesInterfaceDefaultPriceGroup)
2980 # )
2981 # ) ||
2982 # //KCS/ZAD/27082017
2983 # /*
2984 # (
2985 # pdt.AccountCode == TableGroupAll::All
2986 # ) ||
2987 # */
2988 # (
2989 # pdt.AccountCode == TableGroupAll::Table
2990 # ))
2991 # /*
2992 # && (pdt.KCS_PriceDiscOriginId == @"Vk1Abh" //temporary usage only
2993 # || pdt.KCS_PriceDiscOriginId == @"Vk1AWer") //temporary usage only
2994 # */
2995 # //--> KCS/KCSSLACH/AT_003643_KKS/28.08.2018
2996 # exists join priceDiscGroup
2997 # where priceDiscGroup.GroupId == pdt.AccountRelation
2998 # && PriceDiscGroup.KCS_IsEUPrice == NoYes::No
2999 # //<-- KCS/KCSSLACH/AT_003643_KKS/28.08.2018
3000 # {
3001 # //--> KCS/KCSSLACH/AT_033049b/02.05.2018
3002 # if(!validPriceDiscOriginsSet.in(pdt.KCS_PriceDiscOriginId))
3003 # continue;
3004 # //<-- KCS/KCSSLACH/AT_033049b/02.05.2018
3005 #
3006 # if(counter >= _numberOfRecords)
3007 # break;
3008 # priceDC = new KCS_HermesInterfacePriceDataContract();
3009 # priceDC.parmWildcard(wildcard); //KCS/LAS/10.04.2018
3010 # priceDC.initFromPriceDiscTable(pdt);
3011 #
3012 # //priceDC.Branch(#Branch);
3013 # //--> KCS/KCSSLACH/AT_034835a/03.07.2018
3014 # //discHeadDC.Cmd(#CMD);
3015 # priceDC.Cmd(outboundQueue.cmd());
3016 # //<-- KCS/KCSSLACH/AT_034835a/03.07.2018
3017 #
3018 # l.addEnd(priceDC);
3019 # this.markOutboundRecordAsSent(null, outboundQueue);
3020 # counter++;
3021 # }
3022 # return l;
3023 #}
3024 ENDSOURCE
3025 SOURCE #GetSalesOrder
3026 #/// <version>
3027 #/// 1.1 : KCS/SMS/AT_00033053/20.08.2018 - HERMES Kassenschnittstelle / WEKO spezifische Anpassungen
3028 #/// 1.0 : KCS/kcsslach/AT_034946/10.04.2018 - Send Remaining Amount to Hermes / first
3029 #/// </version>
3030 #/// <summary>
3031 #/// get sales Orders
3032 #/// </summary>
3033 #/// <param name="branch">
3034 #/// OMOperationUnitNumber
3035 #/// </param>
3036 #/// <param name="register">
3037 #/// KCS_Register
3038 #/// </param>
3039 #/// <param name="operator">
3040 #/// RetailOperatorId
3041 #/// </param>
3042 #/// <param name="salesId">
3043 #/// SalesId
3044 #/// </param>
3045 #/// <returns>
3046 #/// KCS_HermesInterfaceSalesDataContract
3047 #/// </returns>
3048 #[SysEntryPointAttribute(true)]
3049 #public KCS_HermesInterfaceSalesDataContract GetSalesOrder( OMOperatingUnitNumber branch,
3050 # KCS_Register register,
3051 # RetailOperatorId operator,
3052 # SalesId salesId)
3053 #{
3054 # SalesTable salesTable;
3055 # SalesTotals totals;
3056 # KCS_HermesInterfacePaymTable paymTable;
3057 # KCS_HermesInterfaceSalesDataContract salesDC = new KCS_HermesInterfaceSalesDataContract();
3058 # Amount amount;
3059 # MCRCustPaymTotals mcrCustPaymTotals; // KCS/KCSSLACH/AT_034946/10.04.2018
3060 #
3061 # select * from salesTable where salesTable.SalesId == salesId;
3062 # // --> KCS/KAA/AT002211/24.09.2018
3063 # if (!salesTable)
3064 # select firstOnly salesTable where salesTable.CustomerRef == salesId;
3065 # // <-- KCS/KAA/AT002211/24.09.2018
3066 #
3067 # if(!salesTable.RecId)
3068 # {
3069 # salesDC.ErrorCode(KCS_HermesInterfaceErrorCode::NotFound);
3070 # salesDC.ErrorMsg(enum2str(KCS_HermesInterfaceErrorCode::NotFound));
3071 # return salesDC;
3072 # }
3073 #
3074 # totals = SalesTotals::construct(salesTable);
3075 #
3076 # salesDC.SalesId(salesId);
3077 # salesDC.TotalAmount(totals.totalAmount());
3078 #
3079 #
3080 #
3081 # select sum(Amount) from paymTable
3082 # where paymTable.RefTableId == salesTable.TableId
3083 # && paymTable.RefRecId == salesTable.RecId;
3084 #
3085 # amount = salesTable.mcrGetTotalPaymAmount()-paymTable.Amount;
3086 #
3087 # salesDC.DownPayment(amount);
3088 #
3089 # //--> KCS/KCSSLACH/AT_034946/10.04.2018
3090 # mcrCustPaymTotals = KCS_HermesInterfaceServiceContract::mcrPaymentTotals(salesTable);
3091 # //--> KCS/SMS/AT_00033053/20.08.2018
3092 # // salesDC.RemainAmount(mcrCustPaymTotals.getTotalSalesAmount() - mcrCustPaymTotals.KCS_getPrepayment() + mcrCustPaymTotals.KCS_getOtherPayment());
3093 # salesDC.RemainAmount(mcrCustPaymTotals.getTotalSalesAmount() - (mcrCustPaymTotals.KCS_getPrepayment() + mcrCustPaymTotals.KCS_getOtherPayment()));
3094 # //<-- KCS/SMS/AT_00033053/20.08.2018
3095 # //<-- KCS/KCSSLACH/AT_034946/10.04.2018
3096 #
3097 # salesDC.BlockedGiftCards(salesTable.KCS_GiftCardLocked); //KCS/ZAD/0310207
3098 #
3099 # return salesDC;
3100 #}
3101 ENDSOURCE
3102 SOURCE #GetStaff
3103 #/// <version>
3104 #/// 1.1 : KCS/kcsslach/AT_INC0517296/17.12.2018 - Hermes SalesTaker per Branch / send SalesTaker per branch
3105 #/// 1.0 : KCS/kcsslach/AT_00033544/30.01.2018 - populate only chashiers
3106 #/// </version>
3107 #/// <summary>
3108 #/// get retails staff
3109 #/// </summary>
3110 #/// <returns>
3111 #/// KCS_HermesInterfaceStaffDataContract
3112 #/// </returns>
3113 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceStaffDataContract)),SysEntryPointAttribute(true)]
3114 #public List GetStaff()
3115 #{
3116 # KCS_HermesInterfaceStaffDataContract staffDC;
3117 # //--> KCS/KCSSLACH/AT_INC0517296/17.12.2018
3118 # //RetailStaffTable staffTable;
3119 # KCS_HermesInterfaceStaffView staffTable;
3120 # //<-- KCS/KCSSLACH/AT_INC0517296/17.12.2018
3121 # List l = new List(Types::Class);
3122 #
3123 # while select staffTable
3124 # where staffTable.nameOnReceipt != "" // KCS/KCSSLACH/AT_00033544/30.01.2018
3125 # {
3126 # staffDC = new KCS_HermesInterfaceStaffDataContract();
3127 # //--> KCS/KCSSLACH/AT_INC0517296/17.12.2018
3128 # //staffDC.initFromRetailStaffTable(staffTable);
3129 # staffDC.initFromHermesInterfaceStaffView(staffTable);
3130 # //<-- KCS/KCSSLACH/AT_INC0517296/17.12.2018
3131 #
3132 # //priceDC.Branch(#Branch);
3133 # staffDC.Cmd(#CMD);
3134 #
3135 # l.addEnd(staffDC);
3136 # }
3137 # return l;
3138 #}
3139 ENDSOURCE
3140 SOURCE #GetStock
3141 #/// <version>
3142 #/// 1.0 : KCS/kcsslach/AT_003311_KKS/17.05.2018 - Hermes Stock is wrong / first
3143 #/// </version>
3144 #/// <summary>
3145 #/// Get Stock for item by branch
3146 #/// </summary>
3147 #/// <param name="branch">
3148 #/// branch
3149 #/// </param>
3150 #/// <param name="register">
3151 #/// register
3152 #/// </param>
3153 #/// <param name="operator">
3154 #/// operator
3155 #/// </param>
3156 #/// <param name="itemVariant">
3157 #/// item incl variant
3158 #/// </param>
3159 #/// <returns>
3160 #/// KCS_HermesInterfaceStockDataContract
3161 #/// </returns>
3162 #[SysEntryPointAttribute(true)]
3163 #public KCS_HermesInterfaceStockDataContract GetStock( OMOperatingUnitNumber branch,
3164 # KCS_Register register,
3165 # RetailOperatorId operator,
3166 # KCS_ItemIdVariant itemVariant)
3167 #{
3168 # container packedList;
3169 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
3170 # KCS_HermesInterfaceStockDataContract stockDC = new KCS_HermesInterfaceStockDataContract();
3171 # OMOperatingUnit omOperatingUnit;
3172 # RetailChannelTable retailChannelTable;
3173 # ItemId itemId;
3174 # RetailVariantId variant;
3175 # InventSum inventSum;
3176 # InventDim inventDim;
3177 # InventDimParm inventDimParm;
3178 #
3179 #
3180 # packedList = KCS_HermesInterFaceParameters::ItemVariant2ItemAndVariant(itemVariant);
3181 # itemId = conpeek(packedList,1);
3182 # variant = conpeek(packedList,2);
3183 #
3184 # //--> KCS/KCSSLACH/AT_003311_KKS/17.05.2018
3185 # select RecId from omOperatingUnit
3186 # where omOperatingUnit.OMOperatingUnitNumber == branch
3187 # && omOperatingUnit.OMOperatingUnitType == OMOperatingUnitType::RetailChannel;
3188 # retailChannelTable = RetailChannelTable::findByOperatingUnitId(omOperatingUnit.RecId);
3189 # //<-- KCS/KCSSLACH/AT_003311_KKS/17.05.2018
3190 #
3191 # if(variant)
3192 # inventDim = InventDimCombination::findVariantId(variant).inventDim();
3193 # else
3194 # inventDim = InventDim::findOrCreateBlank();
3195 #
3196 # //--> KCS/KCSSLACH/AT_003311_KKS/17.05.2018
3197 # inventDim.InventSiteId = InventLocation::find(retailChannelTable.inventLocation).InventSiteId;
3198 # inventDim.InventLocationId = retailChannelTable.inventLocation;
3199 # //<-- KCS/KCSSLACH/AT_003311_KKS/17.05.2018
3200 #
3201 # if(!InventTable::exist(itemId))
3202 # {
3203 # stockDC.ErrorCode(KCS_HermesInterfaceErrorCode::NotFound);
3204 # stockDC.ErrorMsg(strFmt("@SYS5307",itemId));
3205 # }
3206 #
3207 # inventDimParm.initFromInventDim(inventDim);
3208 # inventSum = InventSum::findSum(itemId,inventDim,inventDimParm);
3209 #
3210 # stockDC.ItemIdId(itemVariant);
3211 # stockDC.Qty(inventSum.AvailPhysical);
3212 #
3213 # stockDC.Branch(branch); // KCS/KCSSLACH/AT_003311_KKS/17.05.2018
3214 # //stockDC.Cmd(#CMD);
3215 #
3216 # return stockDC;
3217 #}
3218 ENDSOURCE
3219 SOURCE #GetStockDecoItem
3220 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceStockDataContract)),SysEntryPointAttribute(true)]
3221 #public List GetStockDecoItem( OMOperatingUnitNumber branch,
3222 # KCS_Register register,
3223 # RetailOperatorId operator,
3224 # KCS_ItemIdVariant itemVariant)
3225 #{
3226 # #InventDimDevelop
3227 #
3228 # List l = new List(Types::Class);
3229 # container packedList;
3230 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
3231 # KCS_HermesInterfaceStockDataContract stockDC = new KCS_HermesInterfaceStockDataContract();
3232 # ItemId itemId;
3233 # RetailVariantId variant;
3234 # OMOperatingUnit omOperatingUnit;
3235 # RetailChannelTable retChannelTable;
3236 # InventSum inventSum;
3237 # InventDim inventDim,inventDimCriteria;
3238 # InventDimParm inventDimParm;
3239 #
3240 # packedList = KCS_HermesInterFaceParameters::ItemVariant2ItemAndVariant(itemVariant);
3241 # itemId = conpeek(packedList,1);
3242 # variant = conpeek(packedList,2);
3243 # if(variant)
3244 # inventDim = InventDimCombination::findVariantId(variant).inventDim();
3245 # else
3246 # inventDim = InventDim::findOrCreateBlank();
3247 #
3248 # if(!InventTable::exist(itemId))
3249 # {
3250 # stockDC.ErrorCode(KCS_HermesInterfaceErrorCode::NotFound);
3251 # stockDC.ErrorMsg(strFmt("@SYS5307",itemId));
3252 # l.addEnd(stockDC);
3253 # return l;
3254 # }
3255 #
3256 # select RecId from omOperatingUnit
3257 # where omOperatingUnit.OMOperatingUnitNumber == branch
3258 # && omOperatingUnit.OMOperatingUnitType == OMOperatingUnitType::RetailChannel;
3259 # retChannelTable = RetailChannelTable::findByOperatingUnitId(omOperatingUnit.RecId);
3260 #
3261 # inventDimCriteria.InventStatusId = retChannelTable.KCS_HermesInterfaceDecoItem;
3262 # inventDimCriteria = InventDim::findOrCreate(inventDimCriteria);
3263 # inventDimParm.initFromInventDim(inventDimCriteria);
3264 #
3265 # while select
3266 # #inventSumFields
3267 # from inventSum
3268 # where inventSum.ItemId == itemId &&
3269 # inventSum.Closed == NoYes::No &&
3270 # inventSum.AvailPhysical > 0
3271 # join inventDim
3272 # group by WMSLocationId
3273 # where (inventDim.InventDimId == inventSum.InventDimId) &&
3274 # (inventDim.ConfigId == inventDimCriteria.ConfigId || ! inventDimParm.ConfigIdFlag) &&
3275 # (inventDim.InventSizeId == inventDimCriteria.InventSizeId || ! inventDimParm.InventSizeIdFlag) &&
3276 # (inventDim.InventColorId == inventDimCriteria.InventColorId || ! inventDimParm.InventColorIdFlag) &&
3277 # (inventDim.InventStyleId == inventDimCriteria.InventStyleId || ! inventDimParm.InventStyleIdFlag) &&
3278 # (inventDim.InventSiteId == inventDimCriteria.InventSiteId || ! inventDimParm.InventSiteIdFlag) &&
3279 # (inventDim.InventLocationId == inventDimCriteria.InventLocationId || ! inventDimParm.InventLocationIdFlag) &&
3280 # (inventDim.InventBatchId == inventDimCriteria.InventBatchId || ! inventDimParm.InventBatchIdFlag) &&
3281 # (inventDim.WMSLocationId == inventDimCriteria.WMSLocationId || ! inventDimParm.WMSLocationIdFlag) &&
3282 # (inventDim.WMSPalletId == inventDimCriteria.WMSPalletId || ! inventDimParm.WMSPalletIdFlag) &&
3283 # (inventDim.LicensePlateId == inventDimCriteria.LicensePlateId || ! inventDimParm.LicensePlateFlag) &&
3284 # (inventDim.InventStatusId == inventDimCriteria.InventStatusId || ! inventDimParm.InventStatusFlag) &&
3285 # (inventDim.InventSerialId == inventDimCriteria.InventSerialId || ! inventDimParm.InventSerialIdFlag)
3286 # &&
3287 # (inventDim.InventGTDId_RU == inventDimCriteria.InventGTDId_RU || ! inventDimParm.InventGTDIdFlag_RU) &&
3288 # (inventDim.InventProfileId_RU == inventDimCriteria.InventProfileId_RU || ! inventDimParm.InventProfileIdFlag_RU) &&
3289 # (inventDim.InventOwnerId_RU == inventDimCriteria.InventOwnerId_RU || ! inventDimParm.InventOwnerIdFlag_RU)
3290 # {
3291 # stockDC = new KCS_HermesInterfaceStockDataContract();
3292 # stockDC.ItemIdId(itemVariant);
3293 # stockDC.Qty(inventSum.AvailPhysical);
3294 # stockDC.WMSLocationId(inventDim.wMSLocationId);
3295 # //--> KCS/KCSSLACH/AT_033049/26.04.2018
3296 # //stockDC.Branch(params.DefaultShopNr());
3297 # stockDC.Branch(branch);
3298 # //<-- KCS/KCSSLACH/AT_033049/26.04.2018
3299 # //stockDC.Branch(#Branch);
3300 # //stockDC.Cmd(#CMD);
3301 # l.addEnd(stockDC);
3302 # }
3303 #
3304 # return l;
3305 #}
3306 ENDSOURCE
3307 SOURCE #GetUOM
3308 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceUOMDataContract)),SysEntryPointAttribute(true)]
3309 #public List GetUOM()
3310 #{
3311 # UnitOfMeasure uomTable;
3312 # KCS_HermesInterfaceUOMDataContract uomDC;
3313 # List l = new List(Types::Class);
3314 #
3315 # while select uomTable
3316 # {
3317 # uomDC = new KCS_HermesInterfaceUOMDataContract();
3318 #
3319 # uomDC.initFromSymbol(uomTable.Symbol);
3320 #
3321 # //uomDC.Branch(#Branch);
3322 # uomDC.Cmd(#CMD);
3323 #
3324 # l.addEnd(uomDC);
3325 # }
3326 # return l;
3327 #}
3328 ENDSOURCE
3329 SOURCE #GetVAT
3330 #[AifCollectionTypeAttribute('return', Types::Class, classStr(KCS_HermesInterfaceVATDataContract)),SysEntryPointAttribute(true)]
3331 #public List GetVAT()
3332 #{
3333 # KCS_HermesInterfaceVATDataContract vatDC;
3334 # TaxItemGroupHeading taxItemGroupTable;
3335 # List l = new List(Types::Class);
3336 #
3337 # while select taxItemGroupTable
3338 # {
3339 # vatDC = new KCS_HermesInterfaceVATDataContract();
3340 # vatDC.initFromTaxItemGroup(taxItemGroupTable);
3341 #
3342 # //priceDC.Branch(#Branch);
3343 # vatDC.Cmd(#CMD);
3344 #
3345 # l.addEnd(vatDC);
3346 # }
3347 # return l;
3348 #}
3349 ENDSOURCE
3350 SOURCE #isTableInQuery
3351 #private boolean isTableInQuery(Query _query, TableId _tableId)
3352 #{
3353 # int i, dbcount;
3354 # QueryBuildDataSource qbds;
3355 # dbcount = _query.dataSourceCount();
3356 #
3357 # for (i = 1; i <= dbcount; i++)
3358 # {
3359 # qbds = _query.dataSourceNo(i);
3360 # if(qbds.table() == _tableId)
3361 # return true;
3362 # }
3363 # return false;
3364 #}
3365 ENDSOURCE
3366 SOURCE #markOutboundRecordAsSent
3367 #/// <version>
3368 #/// 1.0 : KCS/kcsslach/AT_033049/26.04.2018 - Hermes Kassa / first
3369 #/// </version>
3370 #/// <summary>
3371 #/// mark outbound record as sent
3372 #/// </summary>
3373 #/// <param name="_qr">
3374 #/// QueryRun Object
3375 #/// </param>
3376 #/// <param name="_outboundQueue">
3377 #/// KCS_HermesInterfaceOutboundQueue table
3378 #/// </param>
3379 #/// <exception cref="Exception::UpdateConflictNotRecovered">
3380 #/// if update conflict
3381 #/// </exception>
3382 #/// <exception cref="Exception::UpdateConflict">
3383 #/// if update conflict
3384 #/// </exception>
3385 #private void markOutboundRecordAsSent(QueryRun _qr = null, KCS_HermesInterfaceOutboundQueue _outboundQueue = null)
3386 #{
3387 # KCS_HermesInterfaceOutboundQueue outboundQueue;
3388 # #OCCRetryCount
3389 #
3390 # if(_qr)
3391 # {
3392 # if(!this.isTableInQuery(_qr.query(), outboundQueue.TableId))
3393 # return;
3394 #
3395 # outboundQueue = KCS_HermesInterfaceOutboundQueue::findRecId(_qr.get(outboundQueue.TableId).RecId);
3396 # }
3397 # else
3398 # {
3399 # if(!_outboundQueue)
3400 # return;
3401 # outboundQueue = KCS_HermesInterfaceOutboundQueue::findRecId(_outboundQueue.RecId);
3402 # }
3403 #
3404 # try
3405 # {
3406 # if( outboundQueue
3407 # && outboundQueue.Sent == NoYes::No) // KCS/KCSSLACH/AT_033049/26.04.2018
3408 # {
3409 # ttsBegin;
3410 # outboundQueue.selectForUpdate(true);
3411 # outboundQueue.Sent = NoYes::Yes;
3412 # //--> KCS/KCSSLACH/AT_034835a/03.07.2018
3413 # if(outboundQueue.SourceType == KCS_HermesInterfaceSourceType::Delete)
3414 # outboundQueue.DeleteMetaValues = conNull();
3415 # //<-- KCS/KCSSLACH/AT_034835a/03.07.2018
3416 # outboundQueue.update();
3417 # ttsCommit;
3418 # }
3419 # }
3420 # catch (Exception::Deadlock)
3421 # {
3422 # retry;
3423 # }
3424 # catch (Exception::UpdateConflict)
3425 # {
3426 # if (appl.ttsLevel() == 0)
3427 # {
3428 # if (xSession::currentRetryCount() >= #RetryNum)
3429 # {
3430 # throw Exception::UpdateConflictNotRecovered;
3431 # }
3432 # else
3433 # {
3434 # retry;
3435 # }
3436 # }
3437 # else
3438 # {
3439 # throw Exception::UpdateConflict;
3440 # }
3441 # }
3442 #}
3443 ENDSOURCE
3444 SOURCE #RedeemGiftCardAmount
3445 #/// <version>
3446 #/// 1.0 : KCS/kcsslach/AT_00033049/07.02.2018 - Automatischer Gutscheindruck / first
3447 #/// </version>
3448 #/// <summary>
3449 #/// Avanade
3450 #/// </summary>
3451 #/// <param name="branch">
3452 #/// Avanade
3453 #/// </param>
3454 #/// <param name="register">
3455 #/// Avanade
3456 #/// </param>
3457 #/// <param name="operator">
3458 #/// Avanade
3459 #/// </param>
3460 #/// <param name="giftCardId">
3461 #/// Avanade
3462 #/// </param>
3463 #/// <param name="amount">
3464 #/// Avanade
3465 #/// </param>
3466 #/// <param name="cashDrawerNum">
3467 #/// Avanade
3468 #/// </param>
3469 #/// <returns>
3470 #/// Avanade
3471 #/// </returns>
3472 #[SysEntryPointAttribute(true)]
3473 #public KCS_HermesInterfaceGiftCardDataContract RedeemGiftCardAmount(OMOperatingUnitNumber branch,
3474 # KCS_Register register,
3475 # RetailOperatorId operator,
3476 # RetailGiftCardId giftCardId,
3477 # AmountMST amount,
3478 # KCS_HermesInterfaceCashDrawerNo cashDrawerNum) // KCS/KCSSLACH/AT_00033049/30.01.2018
3479 #{
3480 # KCS_HermesInterfaceGiftCardDataContract giftCardDC = new KCS_HermesInterfaceGiftCardDataContract();
3481 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
3482 # RetailGiftCardTable giftCardTable;
3483 # RetailGiftCardTransactions transactions;
3484 # OMOperatingUnit omOperatingUnit;
3485 # RetailChannelTable retChannelTable;
3486 #
3487 # select RecId from omOperatingUnit
3488 # where omOperatingUnit.OMOperatingUnitNumber == branch
3489 # && omOperatingUnit.OMOperatingUnitType == OMOperatingUnitType::RetailChannel;
3490 # retChannelTable = RetailChannelTable::findByOperatingUnitId(omOperatingUnit.RecId);
3491 #
3492 # giftCardTable = RetailGiftCardTable::find(giftCardId);
3493 # if(!giftCardTable)
3494 # {
3495 # giftCardTable.entryId = giftCardId;
3496 # giftCardTable.currencyCode = Ledger::accountingCurrency();
3497 # giftCardTable.MCRGiftCardType = MCRGiftCardType::Physical;
3498 # giftCardTable.insert();
3499 # }
3500 #
3501 # transactions.clear();
3502 # transactions.amount = amount;
3503 # transactions.cardNumber = giftCardId;
3504 # transactions.Channel = retChannelTable.RecId;
3505 # //transactions.MCRInventTransId =
3506 # //transactions.MCRInvoiceAccount =
3507 # //transactions.MCRSalesId =
3508 # if(amount > 0)
3509 # transactions.operation = RetailGiftCardOperation::Issue;
3510 # else
3511 # transactions.operation = RetailGiftCardOperation::Redeem;
3512 # //transactions.receiptId =
3513 # transactions.staffId = operator;
3514 # transactions.terminalId = register;
3515 # //transactions.transactionId =
3516 # transactions.transDate = systemDateGet();
3517 # transactions.transTime = timeNow();
3518 # transactions.KCS_HermesIfSurrCashDrawer = KCS_HermesInterfaceCashDrawerManagement::find(cashDrawerNum, omOperatingUnit.RecId).RecId; // KCS/KCSSLACH/AT_00033049/30.01.2018
3519 # transactions.insert();
3520 # giftCardDC.Balance(amount);
3521 # giftCardDC.GiftCardId(giftCardId);
3522 #
3523 # if(transactions.operation != RetailGiftCardOperation::Redeem) // KCS/KCSSLACH/AT_035101/07.03.2018
3524 # giftCardTable.printGiftCard(); // KCS/KCSSLACH/AT_00033049/30.01.2018
3525 #
3526 # return giftCardDC;
3527 #}
3528 ENDSOURCE
3529 SOURCE #RedeemLoyaltyAmount
3530 #[SysEntryPointAttribute(true)]
3531 #public KCS_HermesInterfaceLoyaltyDataContract RedeemLoyaltyAmount( OMOperatingUnitNumber branch,
3532 # KCS_Register register,
3533 # RetailOperatorId operator,
3534 # RetailLoyaltyCardNumber loyaltyCard,
3535 # RetailLoyaltyRewardPointAmountQty amount)
3536 #{
3537 # KCS_HermesInterfaceLoyaltyDataContract loyaltyDC = new KCS_HermesInterfaceLoyaltyDataContract();
3538 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
3539 # RetailLoyaltyCardRewardPointTrans rewardPointTrans;
3540 # RetailLoyaltyCard card;
3541 # RetailLoyaltyRewardPoint rewardPoint;
3542 # RetailLoyaltyRewardPointAmountQty usedAmountQty, issuedAmountQty, balance;
3543 # RetailAffiliation affiliation;
3544 #
3545 # card = RetailLoyaltyCard::findByCardNumber(loyaltyCard);
3546 # rewardPoint = RetailLoyaltyRewardPoint::findByRewardPointId(params.AmountRewardPointId);
3547 # affiliation = RetailAffiliation::findByName(params.AffiliationName);
3548 #
3549 # usedAmountQty = RetailLoyaltyCardRewardPointTrans::calcPoints(card,rewardPoint.RecId, RetailLoyaltyPointStatusTypeBase::Used/*,calcdate*/);
3550 # issuedAmountQty = RetailLoyaltyCardRewardPointTrans::calcPoints(card,rewardPoint.RecId, RetailLoyaltyPointStatusTypeBase::Issued/*,calcdate*/);
3551 # balance = issuedAmountQty - usedAmountQty;
3552 #
3553 # rewardPointTrans.clear();
3554 # rewardPointTrans.initValue();
3555 # rewardPointTrans.Affiliation = affiliation.RecId;
3556 # rewardPointTrans.CardNumber = card.CardNumber;
3557 # //rewardPointTrans.Channel =
3558 # //rewardPointTrans.CustAccount =
3559 # //rewardPointTrans.CustAccountDataAreaId =
3560 # rewardPointTrans.EntryDate = systemDateGet();
3561 # rewardPointTrans.EntryTime = timeNow();
3562 # rewardPointTrans.EntryType = RetailLoyaltyRewardPointEntryType::Redeem;
3563 # rewardPointTrans.ExpirationDate = dateMax();
3564 # rewardPointTrans.loyaltyTransDataAreaId = curext();
3565 # rewardPointTrans.LoyaltyTransactionType = RetailLoyaltyTransactionType::RetailTransaction;
3566 # rewardPointTrans.LoyaltyTransLineNum = 1;
3567 # //rewardPointTrans.ReceiptId =
3568 # rewardPointTrans.Remaining = balance - amount;
3569 # rewardPointTrans.RewardPoint = rewardPoint.RecId;
3570 # rewardPointTrans.RewardPointAmountQty = amount;
3571 # rewardPointTrans.insert();
3572 #
3573 #
3574 # loyaltyDC.Active(amount);
3575 # loyaltyDC.RewardPointId(rewardPoint.RewardPointId);
3576 #
3577 # return loyaltyDC;
3578 #}
3579 ENDSOURCE
3580 SOURCE #RedeemLoyaltyPoints
3581 #[SysEntryPointAttribute(true)]
3582 #public KCS_HermesInterfaceLoyaltyDataContract RedeemLoyaltyPoints( OMOperatingUnitNumber branch,
3583 # KCS_Register register,
3584 # RetailOperatorId operator,
3585 # RetailLoyaltyCardNumber loyaltyCard,
3586 # RetailLoyaltyRewardPointAmountQty amount)
3587 #{
3588 # KCS_HermesInterfaceLoyaltyDataContract loyaltyDC = new KCS_HermesInterfaceLoyaltyDataContract();
3589 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
3590 # RetailLoyaltyCardRewardPointTrans rewardPointTrans;
3591 # RetailLoyaltyCard card;
3592 # RetailLoyaltyRewardPoint rewardPoint;
3593 # RetailLoyaltyRewardPointAmountQty usedAmountQty, issuedAmountQty, balance;
3594 # RetailAffiliation affiliation;
3595 #
3596 # card = RetailLoyaltyCard::findByCardNumber(loyaltyCard);
3597 # rewardPoint = RetailLoyaltyRewardPoint::findByRewardPointId(params.PointsRewardPointId);
3598 # affiliation = RetailAffiliation::findByName(params.AffiliationName);
3599 #
3600 # usedAmountQty = RetailLoyaltyCardRewardPointTrans::calcPoints(card,rewardPoint.RecId, RetailLoyaltyPointStatusTypeBase::Used/*,calcdate*/);
3601 # issuedAmountQty = RetailLoyaltyCardRewardPointTrans::calcPoints(card,rewardPoint.RecId, RetailLoyaltyPointStatusTypeBase::Issued/*,calcdate*/);
3602 # balance = issuedAmountQty - usedAmountQty;
3603 #
3604 # rewardPointTrans.clear();
3605 # rewardPointTrans.initValue();
3606 # rewardPointTrans.Affiliation = affiliation.RecId;
3607 # rewardPointTrans.CardNumber = card.CardNumber;
3608 # //rewardPointTrans.Channel =
3609 # //rewardPointTrans.CustAccount =
3610 # //rewardPointTrans.CustAccountDataAreaId =
3611 # rewardPointTrans.EntryDate = systemDateGet();
3612 # rewardPointTrans.EntryTime = timeNow();
3613 # rewardPointTrans.EntryType = RetailLoyaltyRewardPointEntryType::Redeem;
3614 # rewardPointTrans.ExpirationDate = dateMax();
3615 # rewardPointTrans.loyaltyTransDataAreaId = curext();
3616 # rewardPointTrans.LoyaltyTransactionType = RetailLoyaltyTransactionType::RetailTransaction;
3617 # rewardPointTrans.LoyaltyTransLineNum = 1;
3618 # //rewardPointTrans.ReceiptId =
3619 # rewardPointTrans.Remaining = balance - amount;
3620 # rewardPointTrans.RewardPoint = rewardPoint.RecId;
3621 # rewardPointTrans.RewardPointAmountQty = amount;
3622 # rewardPointTrans.insert();
3623 #
3624 #
3625 # loyaltyDC.Active(amount);
3626 # loyaltyDC.RewardPointId(rewardPoint.RewardPointId);
3627 #
3628 # return loyaltyDC;
3629 #}
3630 ENDSOURCE
3631 SOURCE #SendOrder
3632 #/// <version>
3633 #/// 1.0 : KCS/kcsslach/AT_INC0536160/09.01.2019 - Hermes Cash orders / first
3634 #/// </version>
3635 #/// <summary>
3636 #/// get cashOrders from Hermes
3637 #/// </summary>
3638 #/// <param name="salesOrder">
3639 #/// Class\KCS_HermesInterfaceSalesHeadDataContract
3640 #/// </param>
3641 #/// <returns>
3642 #/// AccountNum
3643 #/// </returns>
3644 #[SysEntryPointAttribute(true)]
3645 #public str SendOrder(KCS_HermesInterfaceSalesHeadDataContract salesOrder)
3646 #{
3647 # KCS_HermesInterfaceSalesHead salesHead;
3648 # KCS_HermesInterfaceSalesLine salesLine, lastSalesLine;
3649 # KCS_HermesInterfacePayment payment;
3650 # KCS_HermesInterfaceClosingLine closingLine;
3651 # List linesList;
3652 # List paymentsList;
3653 # List closingsList;
3654 # ListEnumerator listEnumerator;
3655 #
3656 # KCS_HermesInterfaceSalesLineDataContract salesLineDataContract;
3657 # KCS_HermesInterfacePaymentDataContract paymentDataContract;
3658 # KCS_HermesInterfaceClosingDataContract closingDataContract;
3659 #
3660 # KCS_HermesInterFaceParameters hermesInterFaceParameters;
3661 # RetailParameters retailParameters = RetailParameters::find();// KCS/SMS/AT_3303_0023464/20.12.2018
3662 # SalesTable salesTable;
3663 # KCS_HermesInterfacePaymTable paymTable;
3664 # RetailChannelTable retailChannelTable;
3665 # OMOperatingUnit omOperatingUnit;
3666 # OMOperatingUnitNumber omNumber;
3667 #
3668 # RetailTenderTypeId retailTenderTypeId;
3669 #
3670 # //#File
3671 # //TextIo file;
3672 # //FileName filename = @"c:\temp\log.txt";
3673 # //FileIoPermission permission;
3674 # //permission = new FileIoPermission(filename, #io_write);
3675 # //permission.assert();
3676 # //file = new TextIo(filename, #io_write);
3677 #
3678 # hermesInterFaceParameters = KCS_HermesInterFaceParameters::find();
3679 #
3680 # ttsBegin;
3681 # salesHead.clear();
3682 # salesHead.initFromDataContract(salesOrder);
3683 # salesHead.insert();
3684 #
3685 # // Get First Payment
3686 # paymentsList = salesOrder.Payments();
3687 # if(paymentsList)
3688 # {
3689 # listEnumerator = paymentsList.getEnumerator();
3690 # if(listEnumerator.moveNext()) // set first payment...
3691 # {
3692 # paymentDataContract = listEnumerator.current();
3693 # retailTenderTypeId = KCS_HermesInterfaceTenderMapping::HermesPayment2TenderTypeId(paymentDataContract.Text());
3694 # }
3695 # }
3696 #
3697 # // Loop Lines
3698 # linesList = salesOrder.Lines();
3699 # if(linesList)
3700 # {
3701 # listEnumerator = linesList.getEnumerator();
3702 # listEnumerator.reset();
3703 #
3704 # // enumerate lines
3705 # while(listEnumerator.moveNext())
3706 # {
3707 # salesLineDataContract = listEnumerator.current();
3708 # salesLine.clear();
3709 # salesLine.initFromDataContract(salesLineDataContract);
3710 # salesLine.SalesHeadRecId = salesHead.RecId;
3711 # salesLine.insert();
3712 #
3713 # //--> KCS/SMS/AT_3303_0023464/11.12.2018
3714 # if(salesLine.SalesId)
3715 # {
3716 # lastSalesLine = salesLine;
3717 # }
3718 # //<-- KCS/SMS/AT_3303_0023464/11.12.2018
3719 #
3720 # if( salesLineDataContract.SalesId()
3721 # && salesLineDataContract.ItemId() == hermesInterFaceParameters.DownPaymentItemId)
3722 # {
3723 # salesTable = SalesTable::find(salesLineDataContract.SalesId());
3724 #
3725 # //--> KCS/ZAA/AT_002211/28.08.2018
3726 # //--> KCS/KAA/AT002211/24.09.2018 wrong method defined
3727 # /*if (!salesTable)
3728 # select firstOnly salesTable where salesTable.CustomerRef == salesLineDataContract.SalesId();
3729 #
3730 # if (!salesTable)
3731 # throw error("@KWE3484", salesLineDataContract.SalesId()); */
3732 # //<-- KCS/ZAA/AT_002211/28.08.2018
3733 #
3734 # omNumber = salesOrder.Branch();
3735 # if(!omNumber)
3736 # omNumber = hermesInterFaceParameters.DefaultShopNr();
3737 #
3738 # select RecId from omOperatingUnit
3739 # where omOperatingUnit.OMOperatingUnitNumber == omNumber
3740 # && omOperatingUnit.OMOperatingUnitType == OMOperatingUnitType::RetailChannel;
3741 #
3742 # retailChannelTable = RetailChannelTable::findByOperatingUnitId(omOperatingUnit.RecId);
3743 # paymTable.clear();
3744 # paymTable.initValue();
3745 # paymTable.Channel = retailChannelTable.RecId;
3746 # paymTable.LineNum = salesLineDataContract.LineNum();
3747 # paymTable.PostedAmount = salesLineDataContract.SalesPrice();
3748 # paymTable.Amount = salesLineDataContract.SalesPrice();
3749 # paymTable.TenderTypeId = retailTenderTypeId;
3750 # paymTable.CustAccount = salesTable.CustAccount;
3751 # paymTable.CurrencyCode = Ledger::accountingCurrency();
3752 # paymTable.CustPaymType = MCRCustPaymType::Cash; //todo mapping?
3753 # paymTable.KCS_PaymDueDate = systemDateGet();
3754 # paymTable.RefRecId = salesTable.RecId;
3755 # paymTable.RefTableId = tableNum(SalesTable);
3756 # paymTable.KCS_PaymentBalanced = true;
3757 # paymTable.Status = MCRCustPaymStatus::Paid;
3758 # paymTable.IsPrepay = true;
3759 # paymTable.HermesRefRecId = salesHead.RecId; // KCS/SMS/AT_00035121/29.03.2018
3760 # paymTable.insert();
3761 # }
3762 # }
3763 # }
3764 #
3765 # // Loop Payments
3766 # if(paymentsList)
3767 # {
3768 # listEnumerator = paymentsList.getEnumerator();
3769 # listEnumerator.reset();
3770 #
3771 # // enumerate payments
3772 # while(listEnumerator.moveNext())
3773 # {
3774 # paymentDataContract = listEnumerator.current();
3775 # payment.clear();
3776 # payment.initFromDataContract(paymentDataContract);
3777 # payment.SalesHeadRecId = salesHead.RecId;
3778 # payment.insert();
3779 #
3780 # if(payment.PaymReference && payment.Amount < 0)
3781 # {
3782 # select RecId
3783 # from salesLine
3784 # where salesLine.SalesHeadRecId == salesHead.RecId
3785 # && salesLine.InventSerialId == payment.PaymReference;
3786 #
3787 # if(!salesLine.RecId)
3788 # {
3789 # salesLine.clear();
3790 # salesLine.initForReturnGiftCard(salesHead.RecId, retailParameters.GiftcardItem, payment, lastSalesLine);
3791 # salesLine.insert();
3792 #
3793 # }
3794 # }
3795 # }
3796 # }
3797 #
3798 # // Loop Closings
3799 # closingsList = salesOrder.ClosingLines();
3800 # if(closingsList)
3801 # {
3802 # listEnumerator = closingsList.getEnumerator();
3803 # listEnumerator.reset();
3804 #
3805 # // enumerate closings
3806 # while(listEnumerator.moveNext())
3807 # {
3808 # ClosingDataContract = listEnumerator.current();
3809 # closingLine.clear();
3810 # closingLine.initFromDataContract(ClosingDataContract);
3811 # closingLine.SalesHeadRecId = salesHead.RecId;
3812 # closingLine.insert();
3813 # }
3814 # }
3815 #
3816 # ttsCommit;
3817 #
3818 # CodeAccessPermission::revertAssert();
3819 #
3820 # salesHead.processSalesHead(); // KCS/KCSSLACH/AT_INC0536160/09.01.2019
3821 #
3822 # return salesOrder.CustAccount();
3823 #}
3824 ENDSOURCE
3825 SOURCE #SendPickupOrder
3826 #[SysEntryPointAttribute(true)]
3827 #public boolean SendPickupOrder(KCS_HermesInterfacePickupHeadContract _pickupHeadContract)
3828 #{
3829 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
3830 # SalesLine salesLine;
3831 # WHSTmpReleaseToWarehouse releaseToWh;
3832 # WHSReleaseToWarehouseId whId;
3833 # KCS_HermesInterfacePickupLineContract pickupLineContract;
3834 # List pickupLinesList;
3835 # ListEnumerator le;
3836 # LineNum lineNum;
3837 # SalesId salesId;
3838 #
3839 # salesId = _pickupHeadContract.parmSalesId();
3840 # if(!salesId)
3841 # return false;
3842 #
3843 # pickupLinesList = _pickupHeadContract.parmPickupLineContractList();
3844 #
3845 # if(!pickupLinesList)
3846 # return false;
3847 #
3848 # le = pickupLinesList.getEnumerator();
3849 # try
3850 # {
3851 # whId = WHSTmpReleaseToWarehouse::getNextReleaseToWarehouseId();
3852 # while(le.moveNext())
3853 # {
3854 # pickupLineContract = le.current();
3855 # lineNum = pickupLineContract.parmLineNum();
3856 # select salesLine
3857 # where salesLine.SalesId == salesId
3858 # && salesLine.LineNum == lineNum;
3859 #
3860 # if(salesLine)
3861 # {
3862 # WHSTmpReleaseToWarehouse::createFromSalesLine(releaseToWH,whId,salesLine);
3863 # }
3864 #
3865 # }
3866 # WHSWarehouseRelease::releaseToWarehouse(releaseToWh,whId);
3867 # return true;
3868 # }
3869 # catch
3870 # {
3871 # return false;
3872 # }
3873 #}
3874 ENDSOURCE
3875 SOURCE #SendPickupOrderLines
3876 #[SysEntryPointAttribute(true)]
3877 #public boolean SendPickupOrderLines( OMOperatingUnitNumber branch,
3878 # KCS_Register register,
3879 # RetailOperatorId operator,
3880 # SalesId salesId,
3881 # LineNum lineNum)
3882 #{
3883 # KCS_HermesInterFaceParameters params = KCS_HermesInterFaceParameters::find();
3884 # SalesLine salesLine;
3885 # //InventTable inventTable;
3886 # //InventTransOrigin inventTransOrig;
3887 # //InventTrans inventTrans;
3888 # //KCS_HermesInterfaceSalesLineDataContract salesLineDC;
3889 # //List l = new List(Types::Class);
3890 # WHSTmpReleaseToWarehouse releaseToWh;
3891 # WHSReleaseToWarehouseId whId;
3892 #
3893 # select salesLine where salesLine.SalesId == salesId && salesLine.LineNum == lineNum;
3894 #
3895 # try
3896 # {
3897 # whId = WHSTmpReleaseToWarehouse::getNextReleaseToWarehouseId();
3898 # WHSTmpReleaseToWarehouse::createFromSalesLine(releaseToWH,whId,salesLine);
3899 # WHSWarehouseRelease::releaseToWarehouse(releaseToWh,whId);
3900 # return true;
3901 # }
3902 # catch
3903 # {
3904 # return false;
3905 # }
3906 #}
3907 ENDSOURCE
3908 SOURCE #SetCustomerCouponAsUsed
3909 #/// <version>
3910 #/// 1.0 : KCS/AST/AT_3303_002032/09.01.2019 - CRQ_227: Couponfunktionalität auf Hermes-Kassen / first
3911 #/// </version>
3912 #/// <summary>
3913 #/// designed by KCS.net
3914 #/// </summary>
3915 #/// <param name="_couponParameterDataContract">
3916 #/// The CouponId and the CustAccount are used to set the matching coupon as voided
3917 #/// </param>
3918 #/// <returns>
3919 #/// If the ErrorMessage in the KCS_MCRCouponResultDataContract is filled then an Error has occured. If the ErrorMessage is empty the no Error has occured
3920 #/// </returns>
3921 #[SysEntryPointAttribute(true)]
3922 #public str SetCustomerCouponAsUsed(KCS_MCRCouponParameterDataContract _couponParameterDataContract)
3923 #{
3924 # #OCCRetryCount
3925 #
3926 # str errorMessage;
3927 # MCRCoupon coupon;
3928 # MCRCouponCustomer couponCustomer;
3929 # System.Exception ex;
3930 # int startLine = Global::infologLine();
3931 # str msg;
3932 # int currentLine;
3933 #
3934 # try
3935 # {
3936 # ttsBegin;
3937 #
3938 # select firstonly coupon
3939 # where coupon.MCRCouponId == _couponParameterDataContract.CouponId();
3940 #
3941 # if(!coupon)
3942 # {
3943 # errorMessage = strFmt("@KWE3723", _couponParameterDataContract.CouponId());
3944 # return errorMessage;
3945 # }
3946 #
3947 # if(coupon.MCROneTimeUse == NoYes::Yes
3948 # && coupon.MCRCustomerSpecific == NoYes::Yes)
3949 # {
3950 # couponCustomer = this.findMCRCouponCustomer(coupon, _couponParameterDataContract.CustAccount(), true);
3951 #
3952 # //Check if the customer can use this coupon
3953 # if(!couponCustomer.RecId)
3954 # {
3955 # errorMessage = strFmt("@KWE3726", _couponParameterDataContract.CustAccount());
3956 # return errorMessage;
3957 # }
3958 # else
3959 # {
3960 # //check if the Coupon has been Voided
3961 # if(couponCustomer.MCRCouponVoided == NoYes::Yes)
3962 # {
3963 # errorMessage = "@KWE3720";
3964 # return errorMessage;
3965 # }
3966 # couponCustomer.MCRCouponVoided = NoYes::Yes;
3967 # couponCustomer.update();
3968 # }
3969 # }
3970 #
3971 # ttsCommit;
3972 # }
3973 # catch (Exception::Deadlock)
3974 # {
3975 # retry;
3976 # }
3977 # catch (Exception::UpdateConflict)
3978 # {
3979 # if (xSession::currentRetryCount() >= #RetryNum)
3980 # {
3981 # throw Exception::UpdateConflictNotRecovered;
3982 # }
3983 # else
3984 # {
3985 # retry;
3986 # }
3987 # }
3988 # catch (Exception::CLRError)
3989 # {
3990 # ex = ClrInterop::getLastException();
3991 # if (ex != null)
3992 # {
3993 # ex = ex.get_InnerException();
3994 # if (ex != null)
3995 # {
3996 # errorMessage = ex.ToString();
3997 # }
3998 # }
3999 # }
4000 # catch
4001 # {
4002 # msg = "@KWE3722" + ":";
4003 #
4004 # for (currentLine = startLine + 1; currentLine <= Global::infologLine(); currentLine++)
4005 # {
4006 # msg += infolog.text(currentLine);
4007 # }
4008 #
4009 # errorMessage = msg;
4010 # }
4011 #
4012 # //return couponResultDataContract;
4013 # return errorMessage;
4014 #}
4015 ENDSOURCE
4016 SOURCE #TestConnection
4017 #[SysEntryPointAttribute(true)]
4018 #public str TestConnection()
4019 #{
4020 # return @"OK";
4021 #}
4022 ENDSOURCE
4023 SOURCE #KCS_Version
4024 #public static FreeTxt KCS_Version()
4025 #{
4026 # FreeTxt versionStr;
4027 # str cr = '\n';
4028 #
4029 # versionStr += ' 1.1 : KCS/SMS/AT_3303_0023464/20.12.2018 - CRQ 220 / cash desc reduce receipts / cash disc and tax' + cr;
4030 # versionStr += ' 1.0 : KCS/SMS/AT_00033053/20.08.2018 - HERMES Kassenschnittstelle / first' + cr;
4031 #
4032 # return versionStr;
4033 #}
4034 ENDSOURCE
4035 SOURCE #mcrPaymentTotals
4036 #/// <version>
4037 #/// 1.0 : KCS/kcsslach/AT_034946/10.04.2018 - Send Remaining Amount to Hermes / first
4038 #/// </version>
4039 #/// <summary>
4040 #/// create an instance of MCRCustPaymTotal
4041 #/// </summary>
4042 #/// <param name="_salesTable">
4043 #/// SalesTable Record
4044 #/// </param>
4045 #/// <returns>
4046 #/// MCRCUstPaymTotals Instance
4047 #/// </returns>
4048 #private static MCRCustPaymTotals mcrPaymentTotals(SalesTable _salesTable)
4049 #{
4050 # MCRCustPaymTotals mcrCustPaymTotals;
4051 # mcrCustPaymTotals = MCRCustPaymTotals::construct(_salesTable.TableId, _salesTable.RecId);
4052 # return mcrCustPaymTotals;
4053 #}
4054 ENDSOURCE
4055 ENDMETHODS
4056 ENDCLASS
4057<Table:Record name="TmpSysLabel"
4058 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4059 <Table:Field name="Language">de</Table:Field>
4060 <Table:Field name="Label">Kunde '%1' ist nicht vorhanden.</Table:Field>
4061 <Table:Field name="Description"></Table:Field>
4062 <Table:Field name="LabelId">@KHI44</Table:Field>
4063 <Table:Field name="SysLabelApplModule">0</Table:Field>
4064 <Table:Field name="recVersion">0</Table:Field>
4065 <Table:Field name="Partition">5637144576</Table:Field>
4066</Table:Record>
4067<Table:Record name="TmpSysLabel"
4068 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4069 <Table:Field name="Language">en-us</Table:Field>
4070 <Table:Field name="Label">Customer '%1' not found.</Table:Field>
4071 <Table:Field name="Description"></Table:Field>
4072 <Table:Field name="LabelId">@KHI44</Table:Field>
4073 <Table:Field name="SysLabelApplModule">0</Table:Field>
4074 <Table:Field name="recVersion">0</Table:Field>
4075 <Table:Field name="Partition">5637144576</Table:Field>
4076</Table:Record>
4077
4078<Table:Record name="TmpSysLabel"
4079 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4080 <Table:Field name="Language">de</Table:Field>
4081 <Table:Field name="Label">Coupon für Debitor '%1' ist nicht einlösbar</Table:Field>
4082 <Table:Field name="Description"></Table:Field>
4083 <Table:Field name="LabelId">@KWE3726</Table:Field>
4084 <Table:Field name="SysLabelApplModule">0</Table:Field>
4085 <Table:Field name="recVersion">0</Table:Field>
4086 <Table:Field name="Partition">5637144576</Table:Field>
4087</Table:Record>
4088<Table:Record name="TmpSysLabel"
4089 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4090 <Table:Field name="Language">en-us</Table:Field>
4091 <Table:Field name="Label">Coupon for customer '%1' is not redeemable</Table:Field>
4092 <Table:Field name="Description"></Table:Field>
4093 <Table:Field name="LabelId">@KWE3726</Table:Field>
4094 <Table:Field name="SysLabelApplModule">0</Table:Field>
4095 <Table:Field name="recVersion">0</Table:Field>
4096 <Table:Field name="Partition">5637144576</Table:Field>
4097</Table:Record>
4098
4099<Table:Record name="TmpSysLabel"
4100 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4101 <Table:Field name="Language">de</Table:Field>
4102 <Table:Field name="Label">Coupon für diesen Debitor bereits eingelöst</Table:Field>
4103 <Table:Field name="Description"></Table:Field>
4104 <Table:Field name="LabelId">@KWE3720</Table:Field>
4105 <Table:Field name="SysLabelApplModule">0</Table:Field>
4106 <Table:Field name="recVersion">0</Table:Field>
4107 <Table:Field name="Partition">5637144576</Table:Field>
4108</Table:Record>
4109<Table:Record name="TmpSysLabel"
4110 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4111 <Table:Field name="Language">en-us</Table:Field>
4112 <Table:Field name="Label">The coupon for this customer is already voided</Table:Field>
4113 <Table:Field name="Description"></Table:Field>
4114 <Table:Field name="LabelId">@KWE3720</Table:Field>
4115 <Table:Field name="SysLabelApplModule">0</Table:Field>
4116 <Table:Field name="recVersion">0</Table:Field>
4117 <Table:Field name="Partition">5637144576</Table:Field>
4118</Table:Record>
4119
4120<Table:Record name="TmpSysLabel"
4121 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4122 <Table:Field name="Language">de</Table:Field>
4123 <Table:Field name="Label">Coupon bereits abgelaufen. Gültiger Zeitraum ist von „%1“ bis „%2“</Table:Field>
4124 <Table:Field name="Description"></Table:Field>
4125 <Table:Field name="LabelId">@KWE3719</Table:Field>
4126 <Table:Field name="SysLabelApplModule">0</Table:Field>
4127 <Table:Field name="recVersion">0</Table:Field>
4128 <Table:Field name="Partition">5637144576</Table:Field>
4129</Table:Record>
4130<Table:Record name="TmpSysLabel"
4131 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4132 <Table:Field name="Language">en-us</Table:Field>
4133 <Table:Field name="Label">Coupon is expired. The valid period is from "%1" to "%2"</Table:Field>
4134 <Table:Field name="Description"></Table:Field>
4135 <Table:Field name="LabelId">@KWE3719</Table:Field>
4136 <Table:Field name="SysLabelApplModule">0</Table:Field>
4137 <Table:Field name="recVersion">0</Table:Field>
4138 <Table:Field name="Partition">5637144576</Table:Field>
4139</Table:Record>
4140
4141<Table:Record name="TmpSysLabel"
4142 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4143 <Table:Field name="Language">de</Table:Field>
4144 <Table:Field name="Label">Coupon kann nicht verwendet werden, da die benötigte Bonsumme von '%1' nicht erreicht ist</Table:Field>
4145 <Table:Field name="Description"></Table:Field>
4146 <Table:Field name="LabelId">@KWE3721</Table:Field>
4147 <Table:Field name="SysLabelApplModule">0</Table:Field>
4148 <Table:Field name="recVersion">0</Table:Field>
4149 <Table:Field name="Partition">5637144576</Table:Field>
4150</Table:Record>
4151<Table:Record name="TmpSysLabel"
4152 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4153 <Table:Field name="Language">en-us</Table:Field>
4154 <Table:Field name="Label">Coupon can not be used since the needed bonsum of '%1' is not reached</Table:Field>
4155 <Table:Field name="Description"></Table:Field>
4156 <Table:Field name="LabelId">@KWE3721</Table:Field>
4157 <Table:Field name="SysLabelApplModule">0</Table:Field>
4158 <Table:Field name="recVersion">0</Table:Field>
4159 <Table:Field name="Partition">5637144576</Table:Field>
4160</Table:Record>
4161
4162<Table:Record name="TmpSysLabel"
4163 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4164 <Table:Field name="Language">de</Table:Field>
4165 <Table:Field name="Label">Der Coupon Rabatt darf nicht auf Basis von Betrag pro Artikel berechnet werden</Table:Field>
4166 <Table:Field name="Description"></Table:Field>
4167 <Table:Field name="LabelId">@KWE3725</Table:Field>
4168 <Table:Field name="SysLabelApplModule">0</Table:Field>
4169 <Table:Field name="recVersion">0</Table:Field>
4170 <Table:Field name="Partition">5637144576</Table:Field>
4171</Table:Record>
4172<Table:Record name="TmpSysLabel"
4173 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4174 <Table:Field name="Language">en-us</Table:Field>
4175 <Table:Field name="Label">The coupon discount must not be calculated based on the amount per item</Table:Field>
4176 <Table:Field name="Description"></Table:Field>
4177 <Table:Field name="LabelId">@KWE3725</Table:Field>
4178 <Table:Field name="SysLabelApplModule">0</Table:Field>
4179 <Table:Field name="recVersion">0</Table:Field>
4180 <Table:Field name="Partition">5637144576</Table:Field>
4181</Table:Record>
4182
4183<Table:Record name="TmpSysLabel"
4184 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4185 <Table:Field name="Language">de</Table:Field>
4186 <Table:Field name="Label">Der Coupon '%1' besitzt eine ungültige Anzahl an Rabatten. Bitte kontaktieren Sie ihren Systemadministrator</Table:Field>
4187 <Table:Field name="Description"></Table:Field>
4188 <Table:Field name="LabelId">@KWE3724</Table:Field>
4189 <Table:Field name="SysLabelApplModule">0</Table:Field>
4190 <Table:Field name="recVersion">0</Table:Field>
4191 <Table:Field name="Partition">5637144576</Table:Field>
4192</Table:Record>
4193<Table:Record name="TmpSysLabel"
4194 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4195 <Table:Field name="Language">en-us</Table:Field>
4196 <Table:Field name="Label">The coupon '%1' contains an invalid amount of discounts. Please contact your systemadministrator</Table:Field>
4197 <Table:Field name="Description"></Table:Field>
4198 <Table:Field name="LabelId">@KWE3724</Table:Field>
4199 <Table:Field name="SysLabelApplModule">0</Table:Field>
4200 <Table:Field name="recVersion">0</Table:Field>
4201 <Table:Field name="Partition">5637144576</Table:Field>
4202</Table:Record>
4203
4204<Table:Record name="TmpSysLabel"
4205 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4206 <Table:Field name="Language">de</Table:Field>
4207 <Table:Field name="Label">Coupon mit CouponId '%1' existiert nicht</Table:Field>
4208 <Table:Field name="Description"></Table:Field>
4209 <Table:Field name="LabelId">@KWE3723</Table:Field>
4210 <Table:Field name="SysLabelApplModule">0</Table:Field>
4211 <Table:Field name="recVersion">0</Table:Field>
4212 <Table:Field name="Partition">5637144576</Table:Field>
4213</Table:Record>
4214<Table:Record name="TmpSysLabel"
4215 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4216 <Table:Field name="Language">en-us</Table:Field>
4217 <Table:Field name="Label">Coupon with couponId '%1' does not exists</Table:Field>
4218 <Table:Field name="Description"></Table:Field>
4219 <Table:Field name="LabelId">@KWE3723</Table:Field>
4220 <Table:Field name="SysLabelApplModule">0</Table:Field>
4221 <Table:Field name="recVersion">0</Table:Field>
4222 <Table:Field name="Partition">5637144576</Table:Field>
4223</Table:Record>
4224
4225<Table:Record name="TmpSysLabel"
4226 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4227 <Table:Field name="Language">de</Table:Field>
4228 <Table:Field name="Label">Bei der Couponvalidierung ist ein Fehler aufgetreten</Table:Field>
4229 <Table:Field name="Description"></Table:Field>
4230 <Table:Field name="LabelId">@KWE3727</Table:Field>
4231 <Table:Field name="SysLabelApplModule">0</Table:Field>
4232 <Table:Field name="recVersion">0</Table:Field>
4233 <Table:Field name="Partition">5637144576</Table:Field>
4234</Table:Record>
4235<Table:Record name="TmpSysLabel"
4236 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4237 <Table:Field name="Language">en-us</Table:Field>
4238 <Table:Field name="Label">During the validation of the coupon an error has occured</Table:Field>
4239 <Table:Field name="Description"></Table:Field>
4240 <Table:Field name="LabelId">@KWE3727</Table:Field>
4241 <Table:Field name="SysLabelApplModule">0</Table:Field>
4242 <Table:Field name="recVersion">0</Table:Field>
4243 <Table:Field name="Partition">5637144576</Table:Field>
4244</Table:Record>
4245
4246<Table:Record name="TmpSysLabel"
4247 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4248 <Table:Field name="Language">de</Table:Field>
4249 <Table:Field name="Label">Auftrag '%1' wurde nicht gefunden.</Table:Field>
4250 <Table:Field name="Description"></Table:Field>
4251 <Table:Field name="LabelId">@KWE3484</Table:Field>
4252 <Table:Field name="SysLabelApplModule">0</Table:Field>
4253 <Table:Field name="recVersion">0</Table:Field>
4254 <Table:Field name="Partition">5637144576</Table:Field>
4255</Table:Record>
4256<Table:Record name="TmpSysLabel"
4257 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4258 <Table:Field name="Language">en-us</Table:Field>
4259 <Table:Field name="Label">Order '%1' was not found.</Table:Field>
4260 <Table:Field name="Description"></Table:Field>
4261 <Table:Field name="LabelId">@KWE3484</Table:Field>
4262 <Table:Field name="SysLabelApplModule">0</Table:Field>
4263 <Table:Field name="recVersion">0</Table:Field>
4264 <Table:Field name="Partition">5637144576</Table:Field>
4265</Table:Record>
4266
4267<Table:Record name="TmpSysLabel"
4268 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4269 <Table:Field name="Language">de</Table:Field>
4270 <Table:Field name="Label">Artikel '%1' ist nicht vorhanden.</Table:Field>
4271 <Table:Field name="Description"></Table:Field>
4272 <Table:Field name="LabelId">@SYS5307</Table:Field>
4273 <Table:Field name="SysLabelApplModule">0</Table:Field>
4274 <Table:Field name="recVersion">0</Table:Field>
4275 <Table:Field name="Partition">5637144576</Table:Field>
4276</Table:Record>
4277<Table:Record name="TmpSysLabel"
4278 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4279 <Table:Field name="Language">en-us</Table:Field>
4280 <Table:Field name="Label">Item %1 does not exist.</Table:Field>
4281 <Table:Field name="Description"></Table:Field>
4282 <Table:Field name="LabelId">@SYS5307</Table:Field>
4283 <Table:Field name="SysLabelApplModule">0</Table:Field>
4284 <Table:Field name="recVersion">0</Table:Field>
4285 <Table:Field name="Partition">5637144576</Table:Field>
4286</Table:Record>
4287
4288<Table:Record name="TmpSysLabel"
4289 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4290 <Table:Field name="Language">de</Table:Field>
4291 <Table:Field name="Label">Bei der Couponeinlösung ist ein Fehler aufgetreten</Table:Field>
4292 <Table:Field name="Description"></Table:Field>
4293 <Table:Field name="LabelId">@KWE3722</Table:Field>
4294 <Table:Field name="SysLabelApplModule">0</Table:Field>
4295 <Table:Field name="recVersion">0</Table:Field>
4296 <Table:Field name="Partition">5637144576</Table:Field>
4297</Table:Record>
4298<Table:Record name="TmpSysLabel"
4299 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
4300 <Table:Field name="Language">en-us</Table:Field>
4301 <Table:Field name="Label">During the voiding of the coupon an error has occured</Table:Field>
4302 <Table:Field name="Description"></Table:Field>
4303 <Table:Field name="LabelId">@KWE3722</Table:Field>
4304 <Table:Field name="SysLabelApplModule">0</Table:Field>
4305 <Table:Field name="recVersion">0</Table:Field>
4306 <Table:Field name="Partition">5637144576</Table:Field>
4307</Table:Record>
4308
4309
4310***Element: FRM
4311
4312; Microsoft Dynamics AX Forms unloaded
4313; --------------------------------------------------------------------------------
4314FRMVERSION 12
4315
4316FORM #MCRCoupon
4317 PROPERTIES
4318 Name #MCRCoupon
4319 Origin #{20E4AE3E-F447-4E8A-BD28-45DF24716B89}
4320 ENDPROPERTIES
4321
4322 METHODS
4323 SOURCE #classDeclaration
4324 #public class FormRun extends ObjectRun
4325 #{
4326 # NumberSeqFormHandler numberSeqFormHandler;
4327 # SysFormSplitter_X verticalSplitter;
4328 # //--> KCS/AST/AT_3303_002032/09.01.2019
4329 # DimensionDefaultingController dimensionDefaultingController;
4330 # LedgerDimensionDefaultAccountController kcs_ledgerDimensionController;
4331 # //<-- KCS/AST/AT_3303_002032/09.01.2019
4332 #}
4333 ENDSOURCE
4334 SOURCE #canClose
4335 #public boolean canClose()
4336 #{
4337 # boolean ret;
4338 # if (!element.closedOk())
4339 # {
4340 # numberSeqFormHandler.formMethodClose();
4341 # }
4342 # ret = super();
4343 #
4344 # return ret;
4345 #}
4346 ENDSOURCE
4347 SOURCE #init
4348 #/// <version>
4349 #/// 2.0 : KCS/AST/AT_3303_002032/09.01.2019 - CRQ_227: Couponfunktionalität auf Hermes-Kassen
4350 #/// </version>
4351 #/// <summary>
4352 #/// missing from MS
4353 #/// </summary>
4354 #public void init()
4355 #{
4356 # super();
4357 # // Initialize splitter.
4358 # verticalSplitter = new SysFormSplitter_X(vSplitter, gridContainer, element, 300);
4359 #
4360 #
4361 # //--> KCS/AST/AT_3303_002032/09.01.2019
4362 # dimensionDefaultingController = DimensionDefaultingController::constructInTabWithValues(true, true, true, 0, this, TabPageKCS_DefaultDimension, "@KWE2733");
4363 # dimensionDefaultingController.parmAttributeValueSetDataSource(MCRCoupon_ds, fieldStr(MCRCoupon, KCS_DefaultDimension));
4364 # dimensionDefaultingController.pageActivated();
4365 #
4366 #
4367 # kcs_ledgerDimensionController = LedgerDimensionDefaultAccountController::construct(MCRCoupon_ds, fieldStr(MCRCoupon, KCS_LedgerDimension));
4368 # kcs_ledgerDimensionController.parmFilterLedgerPostingType(LedgerPostingType::Bank);
4369 # kcs_ledgerDimensionController.parmControl(MCRCoupon_KCS_LedgerDimension);
4370 # //<-- KCS/AST/AT_3303_002032/09.01.2019
4371 #}
4372 ENDSOURCE
4373 SOURCE #numberSeqFormHandler
4374 #/// <summary>
4375 #/// Creates the <c>CouponId</c> number sequence value.
4376 #/// </summary>
4377 #/// <returns>
4378 #/// The <c>NumberSeqFormHandler</c> object for the <c>CouponId</c> number sequence.
4379 #/// </returns>
4380 #NumberSeqFormHandler numberSeqFormHandler()
4381 #{
4382 # if (!numberSeqFormHandler)
4383 # {
4384 # numberSeqFormHandler = NumberSeqFormHandler::newForm(
4385 # NumberSeqReference::findReference(
4386 # extendedTypeNum(MCRCouponId)).NumberSequenceId,
4387 # element,
4388 # mcrCoupon_DS,
4389 # fieldNum(MCRCoupon, mcrCouponId));
4390 # }
4391 # return numberSeqFormHandler;
4392 #}
4393 ENDSOURCE
4394 ENDMETHODS
4395 OBJECTBANK
4396 PROPERTIES
4397 ENDPROPERTIES
4398
4399 DATASOURCE
4400 OBJECTPOOL
4401 PROPERTIES
4402 Name #MCRCoupon
4403 Table #MCRCoupon
4404 InsertIfEmpty #No
4405 ENDPROPERTIES
4406
4407 FIELDLIST
4408 DATAFIELD MCREnabled
4409 PROPERTIES
4410 AllowEdit #No
4411 ENDPROPERTIES
4412
4413 METHODS
4414 ENDMETHODS
4415 ENDDATAFIELD
4416
4417 DATAFIELD MCRCouponVoided
4418 PROPERTIES
4419 AllowEdit #No
4420 ENDPROPERTIES
4421
4422 METHODS
4423 ENDMETHODS
4424 ENDDATAFIELD
4425
4426 REFERENCEFIELD KCS_LedgerDimension
4427 PROPERTIES
4428 ENDPROPERTIES
4429
4430 METHODS
4431 SOURCE #resolveReference
4432 #public Common resolveReference(FormReferenceControl _formReferenceControl)
4433 #{
4434 # return kcs_ledgerDimensionController.resolveReference();
4435 #}
4436 ENDSOURCE
4437 ENDMETHODS
4438 ENDREFERENCEFIELD
4439
4440 ENDFIELDLIST
4441 ENDOBJECTPOOL
4442 METHODS
4443 SOURCE #selectionChanged
4444 #public void selectionChanged()
4445 #{
4446 # super();
4447 #
4448 # //--> KCS/AST/AT_3303_002032/09.01.2019
4449 # dimensionDefaultingController.activated();
4450 # //<-- KCS/AST/AT_3303_002032/09.01.2019
4451 #}
4452 ENDSOURCE
4453 SOURCE #delete
4454 #public void delete()
4455 #{
4456 # super();
4457 # //--> KCS/AST/AT_3303_002032/09.01.2019
4458 # dimensionDefaultingController.deleted();
4459 # //<-- KCS/AST/AT_3303_002032/09.01.2019
4460 #}
4461 ENDSOURCE
4462 SOURCE #init
4463 #public void init()
4464 #{
4465 # super();
4466 # element.numberSeqFormHandler();
4467 #}
4468 ENDSOURCE
4469 SOURCE #create
4470 #public void create(boolean _append = false)
4471 #{
4472 # element.numberSeqFormHandler().formMethodDataSourceCreatePre();
4473 #
4474 # super(_append);
4475 #
4476 # element.numberSeqFormHandler().formMethodDataSourceCreate();
4477 #
4478 # MCRCoupon.MCRCouponNumber = MCRCoupon.MCRCouponId;
4479 # MCRCoupon.MCRCouponDesc = MCRCoupon.MCRCouponId;
4480 #}
4481 ENDSOURCE
4482 SOURCE #validateWrite
4483 #public boolean validateWrite()
4484 #{
4485 # boolean ret;
4486 #
4487 # ret = super();
4488 #
4489 # ret = element.numberSeqFormHandler().formMethodDataSourceValidateWrite(ret) && ret;
4490 #
4491 # return ret;
4492 #}
4493 ENDSOURCE
4494 SOURCE #write
4495 #public void write()
4496 #{
4497 # //--> KCS/AST/AT_3303_002032/09.01.2019
4498 # dimensionDefaultingController.writing();
4499 # //<-- KCS/AST/AT_3303_002032/09.01.2019
4500 #
4501 # super();
4502 #
4503 # element.numberSeqFormHandler().formMethodDataSourceWrite();
4504 #
4505 # MCRCoupon.write();
4506 #}
4507 ENDSOURCE
4508 SOURCE #active
4509 #public int active()
4510 #{
4511 # int ret;
4512 # MCRCouponSalesTable MCRCouponSalesTable;
4513 # ret = super();
4514 #
4515 # //--> KCS/AST/AT_3303_002032/09.01.2019
4516 # dimensionDefaultingController.activated(true);
4517 # //<-- KCS/AST/AT_3303_002032/09.01.2019
4518 #
4519 # //Voided coupons cannot be modified or deleted.
4520 # if (MCRCoupon.MCRCouponVoided == NoYes::Yes)
4521 # {
4522 # MCRCoupon_ds.allowEdit(false);
4523 # MCRCoupon_ds.allowDelete(false);
4524 # EnableCoupon.enabled(false);
4525 # CouponVoid.enabled(false);
4526 # MCRCouponDiscount_ds.allowDelete(false);
4527 # MCRCouponDiscount_ds.allowEdit(false);
4528 # MCRCouponDiscount_ds.allowCreate(false);
4529 # ModifyCoupon.enabled(false);
4530 # }
4531 # else
4532 # {
4533 # // Enabled coupons cannot be modified or deleted, except voided.
4534 # EnableCoupon.enabled(!MCRCoupon.MCREnabled && !MCRCoupon.MCRCouponParentId);
4535 # MCRCoupon_ds.allowEdit(!MCRCoupon.MCREnabled);
4536 # MCRCoupon_ds.allowDelete(!MCRCoupon.MCREnabled);
4537 # CouponVoid.enabled(MCRCoupon.MCREnabled);
4538 # // No enabled coupons can be deleted, modified, but not voided.
4539 # MCRCouponDiscount_ds.allowDelete(!MCRCoupon.MCREnabled);
4540 # MCRCouponDiscount_ds.allowEdit(!MCRCoupon.MCREnabled);
4541 # MCRCouponDiscount_ds.allowCreate(!MCRCoupon.MCREnabled);
4542 #
4543 # select firstonly * from MCRCouponSalesTable
4544 # where MCRCouponSalesTable.MCRCouponId == MCRCoupon.MCRCouponId;
4545 # if (!MCRCouponSalesTable
4546 # && !MCRCoupon.MCRCouponParentId
4547 # && MCRCoupon.MCREnabled)
4548 # {
4549 # ModifyCoupon.enabled(true);
4550 # }
4551 # else
4552 # {
4553 # ModifyCoupon.enabled(false);
4554 # }
4555 # }
4556 # return ret;
4557 #}
4558 ENDSOURCE
4559 ENDMETHODS
4560 ENDDATASOURCE
4561 DATASOURCE
4562 OBJECTPOOL
4563 PROPERTIES
4564 Name #MCRCouponDiscount
4565 Table #MCRCouponDiscount
4566 JoinSource #MCRCoupon
4567 InsertIfEmpty #No
4568 ENDPROPERTIES
4569
4570 FIELDLIST
4571 ENDFIELDLIST
4572 ENDOBJECTPOOL
4573 METHODS
4574 ENDMETHODS
4575 ENDDATASOURCE
4576 ENDOBJECTBANK
4577
4578 REFERENCEDATASOURCES
4579 ENDREFERENCEDATASOURCES
4580
4581 JOINS
4582 MCRCouponDiscount MCRCoupon
4583 ENDJOINS
4584
4585 PARTREFERENCES
4586 ENDPARTREFERENCES
4587
4588 DESIGN
4589 PROPERTIES
4590 Caption #@MCR25553
4591 DataSource #MCRCoupon
4592 HideIfEmpty #No
4593 Style #SimpleListDetails
4594 ENDPROPERTIES
4595
4596 CONTAINER
4597 CONTROL ACTIONPANE
4598 PROPERTIES
4599 Name #ActionPane
4600 ElementPosition #1861152493
4601 Style #Strip
4602 ENDPROPERTIES
4603
4604 METHODS
4605 ENDMETHODS
4606 ENDCONTROL
4607
4608 CONTROL ACTIONPANE
4609 PROPERTIES
4610 Name #CouponDiscountActionPane
4611 ElementPosition #1073741822
4612 HierarchyParent #GroupBottom
4613 Style #Strip
4614 DataSource #MCRCouponDiscount
4615 ENDPROPERTIES
4616
4617 METHODS
4618 ENDMETHODS
4619 ENDCONTROL
4620
4621 CONTROL ACTIONPANETAB
4622 PROPERTIES
4623 Name #ActionPaneTab
4624 ElementPosition #1431655764
4625 HierarchyParent #ActionPane
4626 ENDPROPERTIES
4627
4628 METHODS
4629 ENDMETHODS
4630 ENDCONTROL
4631
4632 CONTROL ACTIONPANETAB
4633 PROPERTIES
4634 Name #CouponDiscountActionPaneTab
4635 ElementPosition #1431655764
4636 HierarchyParent #CouponDiscountActionPane
4637 ENDPROPERTIES
4638
4639 METHODS
4640 ENDMETHODS
4641 ENDCONTROL
4642
4643 CONTROL BUTTONGROUP
4644 PROPERTIES
4645 Name #ButtonGroup
4646 ElementPosition #1610612734
4647 HierarchyParent #ActionPaneTab
4648 ENDPROPERTIES
4649
4650 METHODS
4651 ENDMETHODS
4652 ENDCONTROL
4653
4654 CONTROL BUTTONGROUP
4655 PROPERTIES
4656 Name #DiscountNewDeleteButtonGroup
4657 ElementPosition #1431655764
4658 HierarchyParent #CouponDiscountActionPaneTab
4659 DataSource #MCRCouponDiscount
4660 ENDPROPERTIES
4661
4662 METHODS
4663 ENDMETHODS
4664 ENDCONTROL
4665
4666 CONTROL BUTTONGROUP
4667 PROPERTIES
4668 Name #NewDeleteButtonGroup
4669 ElementPosition #1073741822
4670 HierarchyParent #ActionPaneTab
4671 ENDPROPERTIES
4672
4673 METHODS
4674 ENDMETHODS
4675 ENDCONTROL
4676
4677 CONTROL GRID
4678 PROPERTIES
4679 Name #Grid
4680 AllowEdit #No
4681 Width #Column width
4682 Height #Column height
4683 ElementPosition #1431655764
4684 HierarchyParent #GridContainer
4685 MultiSelect #No
4686 ShowRowLabels #No
4687 DataSource #MCRCoupon
4688 GridLinesStyle #Vertical
4689 AlternateRowShading #No
4690 ENDPROPERTIES
4691
4692 METHODS
4693 ENDMETHODS
4694 ENDCONTROL
4695
4696 CONTROL GRID
4697 PROPERTIES
4698 Name #GridDsicount
4699 Width #Column width
4700 Height #Column height
4701 ElementPosition #1610612733
4702 HierarchyParent #GroupBottom
4703 DataSource #MCRCouponDiscount
4704 ENDPROPERTIES
4705
4706 METHODS
4707 ENDMETHODS
4708 ENDCONTROL
4709
4710 CONTROL GROUP
4711 PROPERTIES
4712 Name #Body
4713 ElementPosition #2004318069
4714 Style #MarginlessContainer
4715 Columns #3
4716 Columnspace #0
4717 ArrangeGuide
4718 ARRAY INDEX Columns
4719 #0
4720 #0
4721 #0
4722 ENDARRAY
4723 ENDPROPERTIES
4724
4725 METHODS
4726 ENDMETHODS
4727 ENDCONTROL
4728
4729 CONTROL GROUP
4730 PROPERTIES
4731 Name #DetailsContainer
4732 ElementPosition #1717986916
4733 HierarchyParent #Body
4734 Style #MarginlessContainer
4735 TopMargin #5
4736 RightMargin #5
4737 ENDPROPERTIES
4738
4739 METHODS
4740 ENDMETHODS
4741 ENDCONTROL
4742
4743 CONTROL GROUP
4744 PROPERTIES
4745 Name #DetailsHeader
4746 ElementPosition #1073741822
4747 HierarchyParent #DetailsContainer
4748 FrameType #None
4749 ENDPROPERTIES
4750
4751 METHODS
4752 ENDMETHODS
4753 ENDCONTROL
4754
4755 CONTROL GROUP
4756 PROPERTIES
4757 Name #GridContainer
4758 AutoDeclaration #Yes
4759 Width #300
4760 ElementPosition #858993458
4761 HierarchyParent #Body
4762 Style #BorderlessGridContainer
4763 DataSource #MCRCoupon
4764 RightMargin #0
4765 ENDPROPERTIES
4766
4767 METHODS
4768 ENDMETHODS
4769 ENDCONTROL
4770
4771 CONTROL GROUP
4772 PROPERTIES
4773 Name #GroupBottom
4774 ElementPosition #1431655764
4775 HierarchyParent #TabPageCouponDiscount
4776 ENDPROPERTIES
4777
4778 METHODS
4779 ENDMETHODS
4780 ENDCONTROL
4781
4782 CONTROL GROUP
4783 PROPERTIES
4784 Name #GroupInclExcl
4785 ElementPosition #1073741823
4786 HierarchyParent #TabPageCoupon
4787 DataSource #MCRCoupon
4788 DataGroup #GroupInclExcl
4789 ENDPROPERTIES
4790
4791 METHODS
4792 ENDMETHODS
4793 ENDCONTROL
4794
4795 CONTROL GROUP
4796 PROPERTIES
4797 Name #MCRAttribute
4798 ElementPosition #477218588
4799 HierarchyParent #TabPageCoupon
4800 DataSource #MCRCoupon
4801 DataGroup #Attribute
4802 ENDPROPERTIES
4803
4804 METHODS
4805 ENDMETHODS
4806 ENDCONTROL
4807
4808 CONTROL GROUP
4809 PROPERTIES
4810 Name #MCRFutureCoupon
4811 ElementPosition #1789569705
4812 HierarchyParent #TabPageCoupon
4813 Caption #@MCR25477
4814 DataSource #MCRCoupon
4815 ENDPROPERTIES
4816
4817 METHODS
4818 ENDMETHODS
4819 ENDCONTROL
4820
4821 CONTROL GROUP
4822 PROPERTIES
4823 Name #Miscellaneous
4824 ElementPosition #1431655764
4825 HierarchyParent #TabPageCoupon
4826 DataSource #MCRCoupon
4827 DataGroup #Miscellaneous
4828 ENDPROPERTIES
4829
4830 METHODS
4831 ENDMETHODS
4832 ENDCONTROL
4833
4834 CONTROL GROUP
4835 PROPERTIES
4836 Name #ValidGroup
4837 ElementPosition #874900744
4838 HierarchyParent #TabPageCoupon
4839 Caption #@SYS343167
4840 DataSource #MCRCoupon
4841 ENDPROPERTIES
4842
4843 METHODS
4844 ENDMETHODS
4845 ENDCONTROL
4846
4847 CONTROL GROUP
4848 PROPERTIES
4849 Name #VoidGroup
4850 ElementPosition #676059666
4851 HierarchyParent #TabPageCoupon
4852 Caption #@SYS53120
4853 DataSource #MCRCoupon
4854 ENDPROPERTIES
4855
4856 METHODS
4857 ENDMETHODS
4858 ENDCONTROL
4859
4860 CONTROL GROUP
4861 PROPERTIES
4862 Name #VSplitter
4863 AutoDeclaration #Yes
4864 ElementPosition #1288490187
4865 HierarchyParent #Body
4866 Style #SplitterVerticalContainer
4867 ENDPROPERTIES
4868
4869 METHODS
4870 ENDMETHODS
4871 ENDCONTROL
4872
4873 CONTROL MENUBUTTON
4874 PROPERTIES
4875 Name #CouponSetup
4876 HelpText #@MCR37176
4877 ElementPosition #1840700268
4878 HierarchyParent #ButtonGroup
4879 Text #@SYS29158
4880 ENDPROPERTIES
4881
4882 METHODS
4883 ENDMETHODS
4884 ENDCONTROL
4885
4886 CONTROL TAB
4887 PROPERTIES
4888 Name #DetailsTab
4889 Width #Column width
4890 Height #Column height
4891 ElementPosition #1610612734
4892 HierarchyParent #DetailsContainer
4893 Style #FastTabs
4894 ENDPROPERTIES
4895
4896 METHODS
4897 ENDMETHODS
4898 ENDCONTROL
4899
4900 CONTROL TABPAGE
4901 PROPERTIES
4902 Name #TabPageCoupon
4903 ElementPosition #1073741822
4904 HierarchyParent #DetailsTab
4905 Caption #@SYS50012
4906 Columns #2
4907 ArrangeGuide
4908 ARRAY INDEX Columns
4909 #0
4910 #0
4911 ENDARRAY
4912 ENDPROPERTIES
4913
4914 METHODS
4915 ENDMETHODS
4916 ENDCONTROL
4917
4918 CONTROL TABPAGE
4919 PROPERTIES
4920 Name #TabPageCouponDiscount
4921 ElementPosition #1610612733
4922 HierarchyParent #DetailsTab
4923 Caption #@SYS335044
4924 ENDPROPERTIES
4925
4926 METHODS
4927 ENDMETHODS
4928 ENDCONTROL
4929
4930 CONTROL TABPAGE
4931 PROPERTIES
4932 Name #TabPageKCS_DefaultDimension
4933 AutoDeclaration #Yes
4934 NeededPermission #Manual
4935 ElementPosition #1342177277
4936 HierarchyParent #DetailsTab
4937 Caption #@KWE2733
4938 Columns #Auto
4939 HideIfEmpty #No
4940 ENDPROPERTIES
4941
4942 METHODS
4943 ENDMETHODS
4944 ENDCONTROL
4945
4946 CONTROL BUTTON
4947 PROPERTIES
4948 Name #CopyButton
4949 AutoDeclaration #Yes
4950 HelpText #@MCR25964
4951 ElementPosition #920350134
4952 HierarchyParent #ButtonGroup
4953 Text #@MCR25490
4954 ENDPROPERTIES
4955
4956 METHODS
4957 SOURCE #clicked
4958 #/// <summary>
4959 #/// Copies the coupon.
4960 #/// </summary>
4961 #void clicked()
4962 #{
4963 # Args Args;
4964 # FormRun formRun;
4965 #
4966 # // Save currently selected record.
4967 # MCRCoupon currentRecord = MCRCoupon.data();
4968 #
4969 # super();
4970 #
4971 # Args = new Args(formStr(MCRCouponCopy));
4972 # args.record(MCRCoupon);
4973 # args.parm(MCRCoupon.MCRCouponId);
4974 #
4975 # formRun = classfactory.formRunClass(args);
4976 # formRun.init();
4977 # formRun.run();
4978 # formRun.wait();
4979 #
4980 # MCRCoupon_ds.executeQuery();
4981 # MCRCoupon_ds.refresh();
4982 #
4983 # // Re-select the previously selected record.
4984 # MCRCoupon_ds.findRecord(currentRecord);
4985 #}
4986 ENDSOURCE
4987 ENDMETHODS
4988 ENDCONTROL
4989
4990 CONTROL BUTTON
4991 PROPERTIES
4992 Name #CouponVoid
4993 AutoDeclaration #Yes
4994 HelpText #@MCR26206
4995 ElementPosition #1533916890
4996 HierarchyParent #ButtonGroup
4997 Text #@MCR25489
4998 ENDPROPERTIES
4999
5000 METHODS
5001 SOURCE #clicked
5002 #/// <summary>
5003 #/// Voids an individual coupon.
5004 #/// </summary>
5005 #void clicked()
5006 #{
5007 # MCRCouponPost_Void MCRCouponPost_Void;
5008 # // Save currently selected record.
5009 # MCRCoupon currentRecord = MCRCoupon.data();
5010 #
5011 # super();
5012 #
5013 # // Warn the user that this action will void the coupon.
5014 # if (Box::yesNo(strfmt(strfmt("@MCR26205", MCRCoupon.MCRCouponId)), 2) == 1)
5015 # {
5016 # MCRCouponPost_Void = new mcrCouponPost_Void(MCRCoupon);
5017 # MCRCouponPost_Void.post();
5018 # MCRCoupon.MCRCouponVoided = noyes::Yes;
5019 # MCRCoupon.write();
5020 # }
5021 #
5022 # MCRCoupon_ds.research();
5023 #
5024 # // Re-select the previously selected record.
5025 # MCRCoupon_ds.findRecord(currentRecord);
5026 #}
5027 ENDSOURCE
5028 ENDMETHODS
5029 ENDCONTROL
5030
5031 CONTROL BUTTON
5032 PROPERTIES
5033 Name #EnableCoupon
5034 AutoDeclaration #Yes
5035 HelpText #@MCR26207
5036 ElementPosition #1227133512
5037 HierarchyParent #ButtonGroup
5038 Text #@MCR25491
5039 ENDPROPERTIES
5040
5041 METHODS
5042 SOURCE #clicked
5043 #/// <summary>
5044 #/// Enables the coupon.
5045 #/// </summary>
5046 #void clicked()
5047 #{
5048 # MCRCoupon localMCRCoupon;
5049 # MCRCouponPost MCRCouponPost;
5050 # MCRCouponDiscount localMCRCouponDiscount;
5051 # MCRCouponCatalog localMCRCouponCatalog;
5052 # MCRCouponItem localMCRCouponItem;
5053 # MCRCouponCustomer localMCRCouponCustomer;
5054 # // Save currently selected record.
5055 # MCRCoupon currentRecord = MCRCoupon.data();
5056 #
5057 # super();
5058 #
5059 # if (MCRCoupon.MCRCouponParentId)
5060 # {
5061 # throw error("@MCR26538");
5062 # }
5063 #
5064 # // Validate that that at least one discount record is setup.
5065 # select firstonly RecId from localMCRCouponDiscount
5066 # where localMCRCouponDiscount.MCRCouponId == MCRCoupon.MCRCouponId;
5067 # if (!localMCRCouponDiscount.RecId)
5068 # {
5069 # throw error("@MCR26395");
5070 #
5071 # }
5072 # // Validate that at least one item record is setup.
5073 # if (MCRCoupon.MCRIncludeExcludeItem != MCRCouponInclude::None)
5074 # {
5075 # select firstonly RecId from localMCRCouponItem
5076 # where localMCRCouponItem.MCRCouponId == MCRCoupon.MCRCouponId;
5077 # if (!localMCRCouponItem.RecId)
5078 # {
5079 # throw error("@MCR26397");
5080 #
5081 # }
5082 # }
5083 # // Validate that at least one catalog record is setup.
5084 # if (MCRCoupon.MCRIncludeExcludeCatalog != MCRCouponInclude::None)
5085 # {
5086 # select firstonly RecId from localMCRCouponCatalog
5087 # where localMCRCouponCatalog.CouponId == MCRCoupon.MCRCouponId;
5088 # if (!localMCRCouponCatalog.RecId)
5089 # {
5090 # throw error("@MCR26398");
5091 #
5092 # }
5093 # }
5094 # // Validate that at leat one customer record is setup for parent coupons.
5095 # if (MCRCoupon.MCRCustomerSpecific
5096 # && MCRCoupon.MCRCouponParentId == '')
5097 # {
5098 # select firstonly RecId from localMCRCouponCustomer
5099 # where localMCRCouponCustomer.MCRCouponId == MCRCoupon.MCRCouponId;
5100 # if (!localMCRCouponCustomer.RecId)
5101 # {
5102 # throw error("@MCR26396");
5103 #
5104 # }
5105 # }
5106 #
5107 # if (MCRCoupon.MCRCouponExpDate
5108 # && MCRCoupon.MCRToDate
5109 # && MCRCoupon.MCRCouponExpDate < MCRCoupon.MCRToDate)
5110 # {
5111 # throw error(strfmt("@MCR28577", MCRCoupon.MCRCouponExpDate, MCRCoupon.MCRToDate));
5112 # }
5113 #
5114 #
5115 # ttsBegin;
5116 # if (Box::yesNo(strfmt("@MCR25579", MCRCoupon.MCRCouponId), 2) == 1)
5117 # {
5118 # MCRCoupon.MCREnabled = NoYes::Yes;
5119 # MCRCoupon.write();
5120 # MCRCouponPost = new mcrCouponPost(MCRCoupon);
5121 # MCRCouponPost.post();
5122 # // Enable the child coupons.
5123 # localMCRCoupon.enableChildCoupon(MCRCoupon.MCRCouponId);
5124 #
5125 # MCRCoupon_ds.executeQuery();
5126 #
5127 # // Re-select the previously selected record.
5128 # MCRCoupon_ds.findRecord(currentRecord);
5129 #
5130 # }
5131 # ttsCommit;
5132 #}
5133 ENDSOURCE
5134 ENDMETHODS
5135 ENDCONTROL
5136
5137 CONTROL BUTTON
5138 PROPERTIES
5139 Name #ModifyCoupon
5140 AutoDeclaration #Yes
5141 HelpText #@MCR26207
5142 ElementPosition #613566756
5143 HierarchyParent #ButtonGroup
5144 Text #@SYS453
5145 ENDPROPERTIES
5146
5147 METHODS
5148 SOURCE #clicked
5149 #/// <summary>
5150 #/// Voids the current coupon and enables the child coupons.
5151 #/// </summary>
5152 #void clicked()
5153 #{
5154 # MCRCoupon localMCRCoupon;
5155 # MCRCouponPost_Void MCRCouponPost_Void;
5156 # MCRCouponSalesTable MCRCouponSalesTable;
5157 # // Save currently selected record.
5158 # MCRCoupon currentRecord = MCRCoupon.data();
5159 #
5160 # super();
5161 #
5162 # select firstonly RecId from mcrCouponSalesTable
5163 # where mcrCouponSalesTable.MCRCouponId == mcrCoupon.MCRCouponId;
5164 #
5165 # if (!MCRCouponSalesTable)
5166 # {
5167 #
5168 # MCRCouponPost_Void = new mcrCouponPost_Void(MCRCoupon);
5169 # MCRCouponPost_Void.post();
5170 #
5171 # // Enable the child coupons.
5172 # localMCRCoupon.modifyChildCoupon(MCRCoupon.MCRCouponId);
5173 # MCRCoupon.MCREnabled = NoYes::No;
5174 # MCRCoupon.write();
5175 # MCRCoupon_ds.executeQuery();
5176 #
5177 # // re-select the previously selected record
5178 # MCRCoupon_ds.findRecord(currentRecord);
5179 # }
5180 #}
5181 ENDSOURCE
5182 ENDMETHODS
5183 ENDCONTROL
5184
5185 CONTROL CHECKBOX
5186 PROPERTIES
5187 Name #DHMCRCoupons_MCREnabled
5188 ElementPosition #1789569705
5189 HierarchyParent #DetailsHeader
5190 BackgroundColor #Window background
5191 DataSource #MCRCoupon
5192 DataField #MCREnabled
5193 ENDPROPERTIES
5194
5195 METHODS
5196 ENDMETHODS
5197 ENDCONTROL
5198
5199 CONTROL CHECKBOX
5200 PROPERTIES
5201 Name #MCRAttribute_CustomerSpecific
5202 ElementPosition #1789569705
5203 HierarchyParent #MCRAttribute
5204 DataSource #MCRCoupon
5205 DataField #MCRCustomerSpecific
5206 ENDPROPERTIES
5207
5208 METHODS
5209 ENDMETHODS
5210 ENDCONTROL
5211
5212 CONTROL CHECKBOX
5213 PROPERTIES
5214 Name #MCRAttribute_OneTimeUse
5215 ElementPosition #1073741823
5216 HierarchyParent #MCRAttribute
5217 DataSource #MCRCoupon
5218 DataField #MCROneTimeUse
5219 ENDPROPERTIES
5220
5221 METHODS
5222 ENDMETHODS
5223 ENDCONTROL
5224
5225 CONTROL CHECKBOX
5226 PROPERTIES
5227 Name #MCRAttribute_Reissue
5228 ElementPosition #1431655764
5229 HierarchyParent #MCRAttribute
5230 DataSource #MCRCoupon
5231 DataField #MCRReissue
5232 ENDPROPERTIES
5233
5234 METHODS
5235 ENDMETHODS
5236 ENDCONTROL
5237
5238 CONTROL CHECKBOX
5239 PROPERTIES
5240 Name #MCRCoupon_MCRCouponVoided
5241 ElementPosition #1073741822
5242 HierarchyParent #VoidGroup
5243 BackgroundColor #Window background
5244 DataSource #MCRCoupon
5245 DataField #MCRCouponVoided
5246 ENDPROPERTIES
5247
5248 METHODS
5249 ENDMETHODS
5250 ENDCONTROL
5251
5252 CONTROL CHECKBOX
5253 PROPERTIES
5254 Name #MCRCoupons_MCREnabled
5255 ElementPosition #1789569705
5256 HierarchyParent #Grid
5257 BackgroundColor #Window background
5258 DataSource #MCRCoupon
5259 DataField #MCREnabled
5260 ENDPROPERTIES
5261
5262 METHODS
5263 ENDMETHODS
5264 ENDCONTROL
5265
5266 CONTROL CHECKBOX
5267 PROPERTIES
5268 Name #MCRFutureCoupon_MCRGenerateFuture
5269 ElementPosition #1073741822
5270 HierarchyParent #MCRFutureCoupon
5271 Label #@MCR25662
5272 DataSource #MCRCoupon
5273 DataMethod #MCRGenerateChildCoupon
5274 ENDPROPERTIES
5275
5276 METHODS
5277 ENDMETHODS
5278 ENDCONTROL
5279
5280 CONTROL CHECKBOX
5281 PROPERTIES
5282 Name #Miscellaneous1_MCRExclusive
5283 ElementPosition #858993458
5284 HierarchyParent #Miscellaneous
5285 DataSource #MCRCoupon
5286 DataField #MCRExclusive
5287 ENDPROPERTIES
5288
5289 METHODS
5290 ENDMETHODS
5291 ENDCONTROL
5292
5293 CONTROL CHECKBOX
5294 PROPERTIES
5295 Name #Miscellaneous1_MCRManufacturerCoupon
5296 ElementPosition #1717986916
5297 HierarchyParent #Miscellaneous
5298 DataSource #MCRCoupon
5299 DataField #MCRManufacturerCoupon
5300 ENDPROPERTIES
5301
5302 METHODS
5303 ENDMETHODS
5304 ENDCONTROL
5305
5306 CONTROL COMBOBOX
5307 PROPERTIES
5308 Name #MCRCouponDiscount_MCRCouponDiscAttr
5309 ElementPosition #1789569705
5310 HierarchyParent #GridDsicount
5311 DataSource #MCRCouponDiscount
5312 DataField #MCRCouponDiscAttr
5313 ENDPROPERTIES
5314
5315 METHODS
5316 ENDMETHODS
5317 ENDCONTROL
5318
5319 CONTROL COMBOBOX
5320 PROPERTIES
5321 Name #Miscellaneous1_MCRCouponOrign
5322 ElementPosition #1288490187
5323 HierarchyParent #Miscellaneous
5324 DataSource #MCRCoupon
5325 DataField #MCRCouponOrign
5326 ENDPROPERTIES
5327
5328 METHODS
5329 ENDMETHODS
5330 ENDCONTROL
5331
5332 CONTROL COMMANDBUTTON
5333 PROPERTIES
5334 Name #DeleteButton
5335 NeededPermission #Delete
5336 ElementPosition #1610612733
5337 HierarchyParent #NewDeleteButtonGroup
5338 Text #@SYS14425
5339 ButtonDisplay #Text & Image left
5340 NormalImage #10121
5341 ImageLocation #EmbeddedResource
5342 ShowShortCut #No
5343 SaveRecord #No
5344 Primary #Yes
5345 Command #2832
5346 ENDPROPERTIES
5347
5348 METHODS
5349 ENDMETHODS
5350 ENDCONTROL
5351
5352 CONTROL COMMANDBUTTON
5353 PROPERTIES
5354 Name #DeleteDiscount
5355 NeededPermission #Delete
5356 ElementPosition #1610612733
5357 HierarchyParent #DiscountNewDeleteButtonGroup
5358 Text #@SYS14425
5359 ButtonDisplay #Text & Image left
5360 NormalImage #10121
5361 ImageLocation #EmbeddedResource
5362 ShowShortCut #No
5363 SaveRecord #No
5364 Primary #Yes
5365 Command #2832
5366 ENDPROPERTIES
5367
5368 METHODS
5369 ENDMETHODS
5370 ENDCONTROL
5371
5372 CONTROL COMMANDBUTTON
5373 PROPERTIES
5374 Name #NewButton
5375 NeededPermission #Create
5376 ElementPosition #1073741822
5377 HierarchyParent #NewDeleteButtonGroup
5378 ButtonDisplay #Text & Image left
5379 NormalImage #11045
5380 ImageLocation #EmbeddedResource
5381 ShowShortCut #No
5382 Primary #Yes
5383 Command #260
5384 ENDPROPERTIES
5385
5386 METHODS
5387 ENDMETHODS
5388 ENDCONTROL
5389
5390 CONTROL COMMANDBUTTON
5391 PROPERTIES
5392 Name #NewDiscount
5393 NeededPermission #Create
5394 ElementPosition #1073741822
5395 HierarchyParent #DiscountNewDeleteButtonGroup
5396 ButtonDisplay #Text & Image left
5397 NormalImage #11045
5398 ImageLocation #EmbeddedResource
5399 ShowShortCut #No
5400 Primary #Yes
5401 Command #260
5402 ENDPROPERTIES
5403
5404 METHODS
5405 ENDMETHODS
5406 ENDCONTROL
5407
5408 CONTROL DATEEDIT
5409 PROPERTIES
5410 Name #MCRCoupon_MCRCouponExpDate
5411 ElementPosition #1610612733
5412 HierarchyParent #VoidGroup
5413 DataSource #MCRCoupon
5414 DataField #MCRCouponExpDate
5415 ENDPROPERTIES
5416
5417 METHODS
5418 ENDMETHODS
5419 ENDCONTROL
5420
5421 CONTROL DATEEDIT
5422 PROPERTIES
5423 Name #MCRCoupon_MCRFromDate
5424 HelpText #@MCR4410271
5425 ElementPosition #1073741822
5426 HierarchyParent #ValidGroup
5427 Label #@SYS35856
5428 DataSource #MCRCoupon
5429 DataField #MCRFromDate
5430 ENDPROPERTIES
5431
5432 METHODS
5433 ENDMETHODS
5434 ENDCONTROL
5435
5436 CONTROL DATEEDIT
5437 PROPERTIES
5438 Name #MCRCoupon_MCRToDate
5439 HelpText #@MCR4410272
5440 ElementPosition #1610612733
5441 HierarchyParent #ValidGroup
5442 Label #@SYS35858
5443 DataSource #MCRCoupon
5444 DataField #MCRToDate
5445 ENDPROPERTIES
5446
5447 METHODS
5448 ENDMETHODS
5449 ENDCONTROL
5450
5451 CONTROL MENUITEMBUTTON
5452 PROPERTIES
5453 Name #MCRCouponCatalog
5454 AutoDeclaration #Yes
5455 ElementPosition #1288490187
5456 HierarchyParent #CouponSetup
5457 DataSource #MCRCoupon
5458 MenuItemName #MCRCouponCatalog
5459 ENDPROPERTIES
5460
5461 METHODS
5462 ENDMETHODS
5463 ENDCONTROL
5464
5465 CONTROL MENUITEMBUTTON
5466 PROPERTIES
5467 Name #MCRCouponCustomer
5468 AutoDeclaration #Yes
5469 ElementPosition #858993458
5470 HierarchyParent #CouponSetup
5471 DataSource #MCRCoupon
5472 MenuItemName #MCRCouponCustomer
5473 ENDPROPERTIES
5474
5475 METHODS
5476 ENDMETHODS
5477 ENDCONTROL
5478
5479 CONTROL MENUITEMBUTTON
5480 PROPERTIES
5481 Name #MCRCouponItem
5482 AutoDeclaration #Yes
5483 ElementPosition #1717986916
5484 HierarchyParent #CouponSetup
5485 DataSource #MCRCoupon
5486 MenuItemName #MCRCouponItem
5487 ENDPROPERTIES
5488
5489 METHODS
5490 ENDMETHODS
5491 ENDCONTROL
5492
5493 CONTROL REALEDIT
5494 PROPERTIES
5495 Name #MCRAttribute_CouponRedemptionRate
5496 ElementPosition #715827882
5497 HierarchyParent #MCRAttribute
5498 DataSource #MCRCoupon
5499 DataField #MCRCouponRedemptionRate
5500 ENDPROPERTIES
5501
5502 METHODS
5503 ENDMETHODS
5504 ENDCONTROL
5505
5506 CONTROL REALEDIT
5507 PROPERTIES
5508 Name #MCRCouponDiscount_MCRCouponAmount
5509 ElementPosition #1073741823
5510 HierarchyParent #GridDsicount
5511 DataSource #MCRCouponDiscount
5512 DataField #MCRCouponAmount
5513 ENDPROPERTIES
5514
5515 METHODS
5516 ENDMETHODS
5517 ENDCONTROL
5518
5519 CONTROL REALEDIT
5520 PROPERTIES
5521 Name #MCRCouponDiscount_MCRCouponValue
5522 ElementPosition #1431655764
5523 HierarchyParent #GridDsicount
5524 DataSource #MCRCouponDiscount
5525 DataField #MCRCouponValue
5526 ENDPROPERTIES
5527
5528 METHODS
5529 ENDMETHODS
5530 ENDCONTROL
5531
5532 CONTROL SEGMENTEDENTRY
5533 PROPERTIES
5534 Name #MCRCoupon_KCS_LedgerDimension
5535 AutoDeclaration #Yes
5536 ElementPosition #1879048189
5537 HierarchyParent #ValidGroup
5538 DataSource #MCRCoupon
5539 ReferenceField #KCS_LedgerDimension
5540 ENDPROPERTIES
5541
5542 METHODS
5543 SOURCE #jumpRef
5544 #public void jumpRef()
5545 #{
5546 # kcs_ledgerDimensionController.jumpRef();
5547 #}
5548 ENDSOURCE
5549 SOURCE #loadAutoCompleteData
5550 #public void loadAutoCompleteData(LoadAutoCompleteDataEventArgs _e)
5551 #{
5552 # kcs_ledgerDimensionController.loadAutoCompleteData(_e);
5553 # super(_e);
5554 #}
5555 ENDSOURCE
5556 SOURCE #loadSegments
5557 #public void loadSegments()
5558 #{
5559 # super();
5560 #
5561 # kcs_ledgerDimensionController.loadSegments();
5562 #}
5563 ENDSOURCE
5564 SOURCE #segmentValueChanged
5565 #public void segmentValueChanged(SegmentValueChangedEventArgs _e)
5566 #{
5567 # super(_e);
5568 #
5569 # kcs_ledgerDimensionController.segmentValueChanged(_e);
5570 #}
5571 ENDSOURCE
5572 SOURCE #validate
5573 #public boolean validate()
5574 #{
5575 # boolean isValid;
5576 #
5577 # isValid = super();
5578 # isValid = kcs_ledgerDimensionController.validate() && isValid;
5579 #
5580 # return isValid;
5581 #}
5582 ENDSOURCE
5583 ENDMETHODS
5584 ENDCONTROL
5585
5586 CONTROL STRINGEDIT
5587 PROPERTIES
5588 Name #DHMCRCoupons_MCRCouponDesc
5589 ElementPosition #1431655764
5590 HierarchyParent #DetailsHeader
5591 DataSource #MCRCoupon
5592 DataField #MCRCouponDesc
5593 ENDPROPERTIES
5594
5595 METHODS
5596 ENDMETHODS
5597 ENDCONTROL
5598
5599 CONTROL STRINGEDIT
5600 PROPERTIES
5601 Name #DHMCRCoupons_MCRCouponId
5602 ElementPosition #715827882
5603 HierarchyParent #DetailsHeader
5604 DataSource #MCRCoupon
5605 DataField #MCRCouponId
5606 ENDPROPERTIES
5607
5608 METHODS
5609 ENDMETHODS
5610 ENDCONTROL
5611
5612 CONTROL STRINGEDIT
5613 PROPERTIES
5614 Name #DHMCRCoupons_MCRCouponNumber
5615 ElementPosition #1073741823
5616 HierarchyParent #DetailsHeader
5617 DataSource #MCRCoupon
5618 DataField #MCRCouponNumber
5619 ENDPROPERTIES
5620
5621 METHODS
5622 ENDMETHODS
5623 ENDCONTROL
5624
5625 CONTROL STRINGEDIT
5626 PROPERTIES
5627 Name #MCRCoupon_KCS_TaxItemGroup
5628 ElementPosition #1879048189
5629 HierarchyParent #MCRFutureCoupon
5630 DataSource #MCRCoupon
5631 DataField #KCS_TaxItemGroup
5632 ENDPROPERTIES
5633
5634 METHODS
5635 ENDMETHODS
5636 ENDCONTROL
5637
5638 CONTROL STRINGEDIT
5639 PROPERTIES
5640 Name #MCRCouponDiscount_MCRCouponId
5641 ElementPosition #715827882
5642 HierarchyParent #GridDsicount
5643 DataSource #MCRCouponDiscount
5644 DataField #MCRCouponId
5645 ENDPROPERTIES
5646
5647 METHODS
5648 ENDMETHODS
5649 ENDCONTROL
5650
5651 CONTROL STRINGEDIT
5652 PROPERTIES
5653 Name #MCRCoupons_MCRCouponDesc
5654 ElementPosition #1431655764
5655 HierarchyParent #Grid
5656 DataSource #MCRCoupon
5657 DataField #MCRCouponDesc
5658 ENDPROPERTIES
5659
5660 METHODS
5661 ENDMETHODS
5662 ENDCONTROL
5663
5664 CONTROL STRINGEDIT
5665 PROPERTIES
5666 Name #MCRCoupons_MCRCouponId
5667 ElementPosition #715827882
5668 HierarchyParent #Grid
5669 DataSource #MCRCoupon
5670 DataField #MCRCouponId
5671 ENDPROPERTIES
5672
5673 METHODS
5674 ENDMETHODS
5675 ENDCONTROL
5676
5677 CONTROL STRINGEDIT
5678 PROPERTIES
5679 Name #MCRCoupons_MCRCouponNumber
5680 ElementPosition #1073741823
5681 HierarchyParent #Grid
5682 DataSource #MCRCoupon
5683 DataField #MCRCouponNumber
5684 ENDPROPERTIES
5685
5686 METHODS
5687 ENDMETHODS
5688 ENDCONTROL
5689
5690 CONTROL STRINGEDIT
5691 PROPERTIES
5692 Name #MCRFutureCoupon_MCRCouponParentId
5693 ElementPosition #1610612733
5694 HierarchyParent #MCRFutureCoupon
5695 DataSource #MCRCoupon
5696 DataField #MCRCouponParentId
5697 ENDPROPERTIES
5698
5699 METHODS
5700 ENDMETHODS
5701 ENDCONTROL
5702
5703 ENDCONTAINER
5704
5705 ENDDESIGN
5706
5707 PERMISSIONS #Permissions
5708 PROPERTIES
5709 ENDPROPERTIES
5710
5711 PERMISSIONSET #Read
5712 PROPERTIES
5713 ENDPROPERTIES
5714
5715 FORM #Controls
5716 ENDFORM
5717
5718 TABLES #Tables
5719 ENDTABLES
5720
5721 SERVERMETHODS #Server Methods
5722 ENDSERVERMETHODS
5723
5724ASSOCIATEDFORMS #Associated Forms
5725ENDASSOCIATEDFORMS
5726
5727ENDPERMISSIONSET
5728
5729PERMISSIONSET #Update
5730 PROPERTIES
5731 ENDPROPERTIES
5732
5733 FORM #Controls
5734 ENDFORM
5735
5736TABLES #Tables
5737ENDTABLES
5738
5739SERVERMETHODS #Server Methods
5740ENDSERVERMETHODS
5741
5742ASSOCIATEDFORMS #Associated Forms
5743ENDASSOCIATEDFORMS
5744
5745ENDPERMISSIONSET
5746
5747PERMISSIONSET #Create
5748 PROPERTIES
5749 ENDPROPERTIES
5750
5751 FORM #Controls
5752 CONTROL #NEWBUTTON
5753 PROPERTIES
5754 Control #NEWBUTTON
5755 EffectiveAccess #Create
5756 ENDPROPERTIES
5757
5758 ENDCONTROL
5759
5760ENDFORM
5761
5762TABLES #Tables
5763ENDTABLES
5764
5765SERVERMETHODS #Server Methods
5766ENDSERVERMETHODS
5767
5768ASSOCIATEDFORMS #Associated Forms
5769ENDASSOCIATEDFORMS
5770
5771ENDPERMISSIONSET
5772
5773PERMISSIONSET #Delete
5774 PROPERTIES
5775 ENDPROPERTIES
5776
5777 FORM #Controls
5778 CONTROL #DELETEBUTTON
5779 PROPERTIES
5780 Control #DELETEBUTTON
5781 EffectiveAccess #Delete
5782 ENDPROPERTIES
5783
5784 ENDCONTROL
5785
5786 CONTROL #NEWBUTTON
5787 PROPERTIES
5788 Control #NEWBUTTON
5789 EffectiveAccess #Delete
5790 ENDPROPERTIES
5791
5792 ENDCONTROL
5793
5794ENDFORM
5795
5796TABLES #Tables
5797ENDTABLES
5798
5799SERVERMETHODS #Server Methods
5800ENDSERVERMETHODS
5801
5802ASSOCIATEDFORMS #Associated Forms
5803ENDASSOCIATEDFORMS
5804
5805ENDPERMISSIONSET
5806
5807ENDPERMISSIONS
5808
5809ENDFORM
5810
5811<Table:Record name="TmpSysLabel"
5812 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5813 <Table:Field name="Language">de</Table:Field>
5814 <Table:Field name="Label">Finanzdimensionen beim Einlösen</Table:Field>
5815 <Table:Field name="Description"></Table:Field>
5816 <Table:Field name="LabelId">@KWE2733</Table:Field>
5817 <Table:Field name="SysLabelApplModule">0</Table:Field>
5818 <Table:Field name="recVersion">0</Table:Field>
5819 <Table:Field name="Partition">5637144576</Table:Field>
5820</Table:Record>
5821<Table:Record name="TmpSysLabel"
5822 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5823 <Table:Field name="Language">en-us</Table:Field>
5824 <Table:Field name="Label">Financial dimensions when redeeming</Table:Field>
5825 <Table:Field name="Description"></Table:Field>
5826 <Table:Field name="LabelId">@KWE2733</Table:Field>
5827 <Table:Field name="SysLabelApplModule">0</Table:Field>
5828 <Table:Field name="recVersion">0</Table:Field>
5829 <Table:Field name="Partition">5637144576</Table:Field>
5830</Table:Record>
5831
5832<Table:Record name="TmpSysLabel"
5833 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5834 <Table:Field name="Language">de</Table:Field>
5835 <Table:Field name="Label">Coupons</Table:Field>
5836 <Table:Field name="Description"></Table:Field>
5837 <Table:Field name="LabelId">@MCR25553</Table:Field>
5838 <Table:Field name="SysLabelApplModule">0</Table:Field>
5839 <Table:Field name="recVersion">0</Table:Field>
5840 <Table:Field name="Partition">5637144576</Table:Field>
5841</Table:Record>
5842<Table:Record name="TmpSysLabel"
5843 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5844 <Table:Field name="Language">en-us</Table:Field>
5845 <Table:Field name="Label">Coupons</Table:Field>
5846 <Table:Field name="Description"></Table:Field>
5847 <Table:Field name="LabelId">@MCR25553</Table:Field>
5848 <Table:Field name="SysLabelApplModule">0</Table:Field>
5849 <Table:Field name="recVersion">0</Table:Field>
5850 <Table:Field name="Partition">5637144576</Table:Field>
5851</Table:Record>
5852
5853<Table:Record name="TmpSysLabel"
5854 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5855 <Table:Field name="Language">de</Table:Field>
5856 <Table:Field name="Label">Künftiger Coupon</Table:Field>
5857 <Table:Field name="Description"></Table:Field>
5858 <Table:Field name="LabelId">@MCR25477</Table:Field>
5859 <Table:Field name="SysLabelApplModule">0</Table:Field>
5860 <Table:Field name="recVersion">0</Table:Field>
5861 <Table:Field name="Partition">5637144576</Table:Field>
5862</Table:Record>
5863<Table:Record name="TmpSysLabel"
5864 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5865 <Table:Field name="Language">en-us</Table:Field>
5866 <Table:Field name="Label">Future coupon</Table:Field>
5867 <Table:Field name="Description"></Table:Field>
5868 <Table:Field name="LabelId">@MCR25477</Table:Field>
5869 <Table:Field name="SysLabelApplModule">0</Table:Field>
5870 <Table:Field name="recVersion">0</Table:Field>
5871 <Table:Field name="Partition">5637144576</Table:Field>
5872</Table:Record>
5873
5874<Table:Record name="TmpSysLabel"
5875 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5876 <Table:Field name="Language">de</Table:Field>
5877 <Table:Field name="Label">Gültig</Table:Field>
5878 <Table:Field name="Description">SRM Catalog Site tooltip</Table:Field>
5879 <Table:Field name="LabelId">@SYS343167</Table:Field>
5880 <Table:Field name="SysLabelApplModule">0</Table:Field>
5881 <Table:Field name="recVersion">0</Table:Field>
5882 <Table:Field name="Partition">5637144576</Table:Field>
5883</Table:Record>
5884<Table:Record name="TmpSysLabel"
5885 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5886 <Table:Field name="Language">en-us</Table:Field>
5887 <Table:Field name="Label">Valid</Table:Field>
5888 <Table:Field name="Description">SRM Catalog Site tooltip</Table:Field>
5889 <Table:Field name="LabelId">@SYS343167</Table:Field>
5890 <Table:Field name="SysLabelApplModule">0</Table:Field>
5891 <Table:Field name="recVersion">0</Table:Field>
5892 <Table:Field name="Partition">5637144576</Table:Field>
5893</Table:Record>
5894
5895<Table:Record name="TmpSysLabel"
5896 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5897 <Table:Field name="Language">de</Table:Field>
5898 <Table:Field name="Label">Ungültig</Table:Field>
5899 <Table:Field name="Description"></Table:Field>
5900 <Table:Field name="LabelId">@SYS53120</Table:Field>
5901 <Table:Field name="SysLabelApplModule">0</Table:Field>
5902 <Table:Field name="recVersion">0</Table:Field>
5903 <Table:Field name="Partition">5637144576</Table:Field>
5904</Table:Record>
5905<Table:Record name="TmpSysLabel"
5906 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5907 <Table:Field name="Language">en-us</Table:Field>
5908 <Table:Field name="Label">Void</Table:Field>
5909 <Table:Field name="Description"></Table:Field>
5910 <Table:Field name="LabelId">@SYS53120</Table:Field>
5911 <Table:Field name="SysLabelApplModule">0</Table:Field>
5912 <Table:Field name="recVersion">0</Table:Field>
5913 <Table:Field name="Partition">5637144576</Table:Field>
5914</Table:Record>
5915
5916<Table:Record name="TmpSysLabel"
5917 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5918 <Table:Field name="Language">de</Table:Field>
5919 <Table:Field name="Label">Dient zum Verwalten von Coupons.</Table:Field>
5920 <Table:Field name="Description"></Table:Field>
5921 <Table:Field name="LabelId">@MCR37176</Table:Field>
5922 <Table:Field name="SysLabelApplModule">0</Table:Field>
5923 <Table:Field name="recVersion">0</Table:Field>
5924 <Table:Field name="Partition">5637144576</Table:Field>
5925</Table:Record>
5926<Table:Record name="TmpSysLabel"
5927 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5928 <Table:Field name="Language">en-us</Table:Field>
5929 <Table:Field name="Label">Maintain coupons.</Table:Field>
5930 <Table:Field name="Description"></Table:Field>
5931 <Table:Field name="LabelId">@MCR37176</Table:Field>
5932 <Table:Field name="SysLabelApplModule">0</Table:Field>
5933 <Table:Field name="recVersion">0</Table:Field>
5934 <Table:Field name="Partition">5637144576</Table:Field>
5935</Table:Record>
5936
5937<Table:Record name="TmpSysLabel"
5938 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5939 <Table:Field name="Language">de</Table:Field>
5940 <Table:Field name="Label">Einrichten</Table:Field>
5941 <Table:Field name="Description"></Table:Field>
5942 <Table:Field name="LabelId">@SYS29158</Table:Field>
5943 <Table:Field name="SysLabelApplModule">0</Table:Field>
5944 <Table:Field name="recVersion">0</Table:Field>
5945 <Table:Field name="Partition">5637144576</Table:Field>
5946</Table:Record>
5947<Table:Record name="TmpSysLabel"
5948 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5949 <Table:Field name="Language">en-us</Table:Field>
5950 <Table:Field name="Label">Set up</Table:Field>
5951 <Table:Field name="Description"></Table:Field>
5952 <Table:Field name="LabelId">@SYS29158</Table:Field>
5953 <Table:Field name="SysLabelApplModule">0</Table:Field>
5954 <Table:Field name="recVersion">0</Table:Field>
5955 <Table:Field name="Partition">5637144576</Table:Field>
5956</Table:Record>
5957
5958<Table:Record name="TmpSysLabel"
5959 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5960 <Table:Field name="Language">de</Table:Field>
5961 <Table:Field name="Label">Ãœberblick</Table:Field>
5962 <Table:Field name="Description"></Table:Field>
5963 <Table:Field name="LabelId">@SYS50012</Table:Field>
5964 <Table:Field name="SysLabelApplModule">0</Table:Field>
5965 <Table:Field name="recVersion">0</Table:Field>
5966 <Table:Field name="Partition">5637144576</Table:Field>
5967</Table:Record>
5968<Table:Record name="TmpSysLabel"
5969 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5970 <Table:Field name="Language">en-us</Table:Field>
5971 <Table:Field name="Label">Overview</Table:Field>
5972 <Table:Field name="Description"></Table:Field>
5973 <Table:Field name="LabelId">@SYS50012</Table:Field>
5974 <Table:Field name="SysLabelApplModule">0</Table:Field>
5975 <Table:Field name="recVersion">0</Table:Field>
5976 <Table:Field name="Partition">5637144576</Table:Field>
5977</Table:Record>
5978
5979<Table:Record name="TmpSysLabel"
5980 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5981 <Table:Field name="Language">de</Table:Field>
5982 <Table:Field name="Label">Rabatte</Table:Field>
5983 <Table:Field name="Description">Used in AR details page</Table:Field>
5984 <Table:Field name="LabelId">@SYS335044</Table:Field>
5985 <Table:Field name="SysLabelApplModule">0</Table:Field>
5986 <Table:Field name="recVersion">0</Table:Field>
5987 <Table:Field name="Partition">5637144576</Table:Field>
5988</Table:Record>
5989<Table:Record name="TmpSysLabel"
5990 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
5991 <Table:Field name="Language">en-us</Table:Field>
5992 <Table:Field name="Label">Discounts</Table:Field>
5993 <Table:Field name="Description">Used in AR details page</Table:Field>
5994 <Table:Field name="LabelId">@SYS335044</Table:Field>
5995 <Table:Field name="SysLabelApplModule">0</Table:Field>
5996 <Table:Field name="recVersion">0</Table:Field>
5997 <Table:Field name="Partition">5637144576</Table:Field>
5998</Table:Record>
5999
6000<Table:Record name="TmpSysLabel"
6001 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6002 <Table:Field name="Language">de</Table:Field>
6003 <Table:Field name="Label">In neue Coupons zu kopierende Informationen</Table:Field>
6004 <Table:Field name="Description"></Table:Field>
6005 <Table:Field name="LabelId">@MCR25964</Table:Field>
6006 <Table:Field name="SysLabelApplModule">0</Table:Field>
6007 <Table:Field name="recVersion">0</Table:Field>
6008 <Table:Field name="Partition">5637144576</Table:Field>
6009</Table:Record>
6010<Table:Record name="TmpSysLabel"
6011 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6012 <Table:Field name="Language">en-us</Table:Field>
6013 <Table:Field name="Label">Information to copy to new coupons</Table:Field>
6014 <Table:Field name="Description"></Table:Field>
6015 <Table:Field name="LabelId">@MCR25964</Table:Field>
6016 <Table:Field name="SysLabelApplModule">0</Table:Field>
6017 <Table:Field name="recVersion">0</Table:Field>
6018 <Table:Field name="Partition">5637144576</Table:Field>
6019</Table:Record>
6020
6021<Table:Record name="TmpSysLabel"
6022 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6023 <Table:Field name="Language">de</Table:Field>
6024 <Table:Field name="Label">Kopieren</Table:Field>
6025 <Table:Field name="Description">Copy coupon</Table:Field>
6026 <Table:Field name="LabelId">@MCR25490</Table:Field>
6027 <Table:Field name="SysLabelApplModule">0</Table:Field>
6028 <Table:Field name="recVersion">0</Table:Field>
6029 <Table:Field name="Partition">5637144576</Table:Field>
6030</Table:Record>
6031<Table:Record name="TmpSysLabel"
6032 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6033 <Table:Field name="Language">en-us</Table:Field>
6034 <Table:Field name="Label">Copy</Table:Field>
6035 <Table:Field name="Description">Copy coupon</Table:Field>
6036 <Table:Field name="LabelId">@MCR25490</Table:Field>
6037 <Table:Field name="SysLabelApplModule">0</Table:Field>
6038 <Table:Field name="recVersion">0</Table:Field>
6039 <Table:Field name="Partition">5637144576</Table:Field>
6040</Table:Record>
6041
6042<Table:Record name="TmpSysLabel"
6043 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6044 <Table:Field name="Language">de</Table:Field>
6045 <Table:Field name="Label">Stornieren Sie einen Coupon.</Table:Field>
6046 <Table:Field name="Description"></Table:Field>
6047 <Table:Field name="LabelId">@MCR26206</Table:Field>
6048 <Table:Field name="SysLabelApplModule">0</Table:Field>
6049 <Table:Field name="recVersion">0</Table:Field>
6050 <Table:Field name="Partition">5637144576</Table:Field>
6051</Table:Record>
6052<Table:Record name="TmpSysLabel"
6053 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6054 <Table:Field name="Language">en-us</Table:Field>
6055 <Table:Field name="Label">Void a coupon.</Table:Field>
6056 <Table:Field name="Description"></Table:Field>
6057 <Table:Field name="LabelId">@MCR26206</Table:Field>
6058 <Table:Field name="SysLabelApplModule">0</Table:Field>
6059 <Table:Field name="recVersion">0</Table:Field>
6060 <Table:Field name="Partition">5637144576</Table:Field>
6061</Table:Record>
6062
6063<Table:Record name="TmpSysLabel"
6064 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6065 <Table:Field name="Language">de</Table:Field>
6066 <Table:Field name="Label">Ungültig</Table:Field>
6067 <Table:Field name="Description">Individual coupon void</Table:Field>
6068 <Table:Field name="LabelId">@MCR25489</Table:Field>
6069 <Table:Field name="SysLabelApplModule">0</Table:Field>
6070 <Table:Field name="recVersion">0</Table:Field>
6071 <Table:Field name="Partition">5637144576</Table:Field>
6072</Table:Record>
6073<Table:Record name="TmpSysLabel"
6074 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6075 <Table:Field name="Language">en-us</Table:Field>
6076 <Table:Field name="Label">Void</Table:Field>
6077 <Table:Field name="Description">Individual coupon void</Table:Field>
6078 <Table:Field name="LabelId">@MCR25489</Table:Field>
6079 <Table:Field name="SysLabelApplModule">0</Table:Field>
6080 <Table:Field name="recVersion">0</Table:Field>
6081 <Table:Field name="Partition">5637144576</Table:Field>
6082</Table:Record>
6083
6084<Table:Record name="TmpSysLabel"
6085 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6086 <Table:Field name="Language">de</Table:Field>
6087 <Table:Field name="Label">Möchten Sie '%1' stornieren?</Table:Field>
6088 <Table:Field name="Description"></Table:Field>
6089 <Table:Field name="LabelId">@MCR26205</Table:Field>
6090 <Table:Field name="SysLabelApplModule">0</Table:Field>
6091 <Table:Field name="recVersion">0</Table:Field>
6092 <Table:Field name="Partition">5637144576</Table:Field>
6093</Table:Record>
6094<Table:Record name="TmpSysLabel"
6095 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6096 <Table:Field name="Language">en-us</Table:Field>
6097 <Table:Field name="Label">Do you want to void %1</Table:Field>
6098 <Table:Field name="Description"></Table:Field>
6099 <Table:Field name="LabelId">@MCR26205</Table:Field>
6100 <Table:Field name="SysLabelApplModule">0</Table:Field>
6101 <Table:Field name="recVersion">0</Table:Field>
6102 <Table:Field name="Partition">5637144576</Table:Field>
6103</Table:Record>
6104
6105<Table:Record name="TmpSysLabel"
6106 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6107 <Table:Field name="Language">de</Table:Field>
6108 <Table:Field name="Label">Aktivieren Sie einen Coupon.</Table:Field>
6109 <Table:Field name="Description"></Table:Field>
6110 <Table:Field name="LabelId">@MCR26207</Table:Field>
6111 <Table:Field name="SysLabelApplModule">0</Table:Field>
6112 <Table:Field name="recVersion">0</Table:Field>
6113 <Table:Field name="Partition">5637144576</Table:Field>
6114</Table:Record>
6115<Table:Record name="TmpSysLabel"
6116 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6117 <Table:Field name="Language">en-us</Table:Field>
6118 <Table:Field name="Label">Enable a coupon.</Table:Field>
6119 <Table:Field name="Description"></Table:Field>
6120 <Table:Field name="LabelId">@MCR26207</Table:Field>
6121 <Table:Field name="SysLabelApplModule">0</Table:Field>
6122 <Table:Field name="recVersion">0</Table:Field>
6123 <Table:Field name="Partition">5637144576</Table:Field>
6124</Table:Record>
6125
6126<Table:Record name="TmpSysLabel"
6127 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6128 <Table:Field name="Language">de</Table:Field>
6129 <Table:Field name="Label">Aktivieren</Table:Field>
6130 <Table:Field name="Description">Activate coupon</Table:Field>
6131 <Table:Field name="LabelId">@MCR25491</Table:Field>
6132 <Table:Field name="SysLabelApplModule">0</Table:Field>
6133 <Table:Field name="recVersion">0</Table:Field>
6134 <Table:Field name="Partition">5637144576</Table:Field>
6135</Table:Record>
6136<Table:Record name="TmpSysLabel"
6137 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6138 <Table:Field name="Language">en-us</Table:Field>
6139 <Table:Field name="Label">Activate</Table:Field>
6140 <Table:Field name="Description">Activate coupon</Table:Field>
6141 <Table:Field name="LabelId">@MCR25491</Table:Field>
6142 <Table:Field name="SysLabelApplModule">0</Table:Field>
6143 <Table:Field name="recVersion">0</Table:Field>
6144 <Table:Field name="Partition">5637144576</Table:Field>
6145</Table:Record>
6146
6147<Table:Record name="TmpSysLabel"
6148 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6149 <Table:Field name="Language">de</Table:Field>
6150 <Table:Field name="Label">Untergeordnete Coupons können nicht einzeln aktiviert werden. Aktivieren Sie den übergeordneten Coupon.</Table:Field>
6151 <Table:Field name="Description"></Table:Field>
6152 <Table:Field name="LabelId">@MCR26538</Table:Field>
6153 <Table:Field name="SysLabelApplModule">0</Table:Field>
6154 <Table:Field name="recVersion">0</Table:Field>
6155 <Table:Field name="Partition">5637144576</Table:Field>
6156</Table:Record>
6157<Table:Record name="TmpSysLabel"
6158 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6159 <Table:Field name="Language">en-us</Table:Field>
6160 <Table:Field name="Label">Child coupons cannot be activated individually. Please activate the parent coupon.</Table:Field>
6161 <Table:Field name="Description"></Table:Field>
6162 <Table:Field name="LabelId">@MCR26538</Table:Field>
6163 <Table:Field name="SysLabelApplModule">0</Table:Field>
6164 <Table:Field name="recVersion">0</Table:Field>
6165 <Table:Field name="Partition">5637144576</Table:Field>
6166</Table:Record>
6167
6168<Table:Record name="TmpSysLabel"
6169 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6170 <Table:Field name="Language">de</Table:Field>
6171 <Table:Field name="Label">Couponwertattribute müssen angegeben werden.</Table:Field>
6172 <Table:Field name="Description"></Table:Field>
6173 <Table:Field name="LabelId">@MCR26395</Table:Field>
6174 <Table:Field name="SysLabelApplModule">0</Table:Field>
6175 <Table:Field name="recVersion">0</Table:Field>
6176 <Table:Field name="Partition">5637144576</Table:Field>
6177</Table:Record>
6178<Table:Record name="TmpSysLabel"
6179 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6180 <Table:Field name="Language">en-us</Table:Field>
6181 <Table:Field name="Label">Coupon value attributes must be specified.</Table:Field>
6182 <Table:Field name="Description"></Table:Field>
6183 <Table:Field name="LabelId">@MCR26395</Table:Field>
6184 <Table:Field name="SysLabelApplModule">0</Table:Field>
6185 <Table:Field name="recVersion">0</Table:Field>
6186 <Table:Field name="Partition">5637144576</Table:Field>
6187</Table:Record>
6188
6189<Table:Record name="TmpSysLabel"
6190 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6191 <Table:Field name="Language">de</Table:Field>
6192 <Table:Field name="Label">Artikel müssen für den Coupon angegeben werden, wenn die Regel für Einbeziehung/Ausschluss von Artikeln auf Ein- oder Ausschließen festgelegt ist.</Table:Field>
6193 <Table:Field name="Description"></Table:Field>
6194 <Table:Field name="LabelId">@MCR26397</Table:Field>
6195 <Table:Field name="SysLabelApplModule">0</Table:Field>
6196 <Table:Field name="recVersion">0</Table:Field>
6197 <Table:Field name="Partition">5637144576</Table:Field>
6198</Table:Record>
6199<Table:Record name="TmpSysLabel"
6200 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6201 <Table:Field name="Language">en-us</Table:Field>
6202 <Table:Field name="Label">Items must be specified for the coupon if the item excl. incl. rule is set to include or exclude.</Table:Field>
6203 <Table:Field name="Description"></Table:Field>
6204 <Table:Field name="LabelId">@MCR26397</Table:Field>
6205 <Table:Field name="SysLabelApplModule">0</Table:Field>
6206 <Table:Field name="recVersion">0</Table:Field>
6207 <Table:Field name="Partition">5637144576</Table:Field>
6208</Table:Record>
6209
6210<Table:Record name="TmpSysLabel"
6211 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6212 <Table:Field name="Language">de</Table:Field>
6213 <Table:Field name="Label">Der Katalog müssen für den Coupon angegeben werden, wenn die Regel für Einbeziehung/Ausschluss von Katalogen auf Ein- oder Ausschließen festgelegt ist.</Table:Field>
6214 <Table:Field name="Description">MCR</Table:Field>
6215 <Table:Field name="LabelId">@MCR26398</Table:Field>
6216 <Table:Field name="SysLabelApplModule">0</Table:Field>
6217 <Table:Field name="recVersion">0</Table:Field>
6218 <Table:Field name="Partition">5637144576</Table:Field>
6219</Table:Record>
6220<Table:Record name="TmpSysLabel"
6221 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6222 <Table:Field name="Language">en-us</Table:Field>
6223 <Table:Field name="Label">Catalog must be specified for the coupon if the catalog excl. incl. rule is set to include or exclude.</Table:Field>
6224 <Table:Field name="Description">MCR</Table:Field>
6225 <Table:Field name="LabelId">@MCR26398</Table:Field>
6226 <Table:Field name="SysLabelApplModule">0</Table:Field>
6227 <Table:Field name="recVersion">0</Table:Field>
6228 <Table:Field name="Partition">5637144576</Table:Field>
6229</Table:Record>
6230
6231<Table:Record name="TmpSysLabel"
6232 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6233 <Table:Field name="Language">de</Table:Field>
6234 <Table:Field name="Label">Debitoren müssen für den Coupon angegeben werden, wenn das Kennzeichen 'debitorenspezifisch' auf 'true' festgelegt ist.</Table:Field>
6235 <Table:Field name="Description"></Table:Field>
6236 <Table:Field name="LabelId">@MCR26396</Table:Field>
6237 <Table:Field name="SysLabelApplModule">0</Table:Field>
6238 <Table:Field name="recVersion">0</Table:Field>
6239 <Table:Field name="Partition">5637144576</Table:Field>
6240</Table:Record>
6241<Table:Record name="TmpSysLabel"
6242 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6243 <Table:Field name="Language">en-us</Table:Field>
6244 <Table:Field name="Label">Customers must be specified for the coupon if the customer specific flag is set to true.</Table:Field>
6245 <Table:Field name="Description"></Table:Field>
6246 <Table:Field name="LabelId">@MCR26396</Table:Field>
6247 <Table:Field name="SysLabelApplModule">0</Table:Field>
6248 <Table:Field name="recVersion">0</Table:Field>
6249 <Table:Field name="Partition">5637144576</Table:Field>
6250</Table:Record>
6251
6252<Table:Record name="TmpSysLabel"
6253 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6254 <Table:Field name="Language">de</Table:Field>
6255 <Table:Field name="Label">Das Stornierungsdatum (%1) liegt vor dem Enddatum des Coupons (%2).</Table:Field>
6256 <Table:Field name="Description"></Table:Field>
6257 <Table:Field name="LabelId">@MCR28577</Table:Field>
6258 <Table:Field name="SysLabelApplModule">0</Table:Field>
6259 <Table:Field name="recVersion">0</Table:Field>
6260 <Table:Field name="Partition">5637144576</Table:Field>
6261</Table:Record>
6262<Table:Record name="TmpSysLabel"
6263 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6264 <Table:Field name="Language">en-us</Table:Field>
6265 <Table:Field name="Label">Void date %1 is less than the coupon to date %2.</Table:Field>
6266 <Table:Field name="Description"></Table:Field>
6267 <Table:Field name="LabelId">@MCR28577</Table:Field>
6268 <Table:Field name="SysLabelApplModule">0</Table:Field>
6269 <Table:Field name="recVersion">0</Table:Field>
6270 <Table:Field name="Partition">5637144576</Table:Field>
6271</Table:Record>
6272
6273<Table:Record name="TmpSysLabel"
6274 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6275 <Table:Field name="Language">de</Table:Field>
6276 <Table:Field name="Label">Nach der Verwendung kann der Coupon '%1' nicht mehr geändert werden. Möchten Sie den Vorgang fortsetzen?</Table:Field>
6277 <Table:Field name="Description"></Table:Field>
6278 <Table:Field name="LabelId">@MCR25579</Table:Field>
6279 <Table:Field name="SysLabelApplModule">0</Table:Field>
6280 <Table:Field name="recVersion">0</Table:Field>
6281 <Table:Field name="Partition">5637144576</Table:Field>
6282</Table:Record>
6283<Table:Record name="TmpSysLabel"
6284 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6285 <Table:Field name="Language">en-us</Table:Field>
6286 <Table:Field name="Label">Once coupon %1 is used you will not be able to modify it. Do you want to continue?</Table:Field>
6287 <Table:Field name="Description"></Table:Field>
6288 <Table:Field name="LabelId">@MCR25579</Table:Field>
6289 <Table:Field name="SysLabelApplModule">0</Table:Field>
6290 <Table:Field name="recVersion">0</Table:Field>
6291 <Table:Field name="Partition">5637144576</Table:Field>
6292</Table:Record>
6293
6294<Table:Record name="TmpSysLabel"
6295 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6296 <Table:Field name="Language">de</Table:Field>
6297 <Table:Field name="Label">Bearbeiten</Table:Field>
6298 <Table:Field name="Description"></Table:Field>
6299 <Table:Field name="LabelId">@SYS453</Table:Field>
6300 <Table:Field name="SysLabelApplModule">0</Table:Field>
6301 <Table:Field name="recVersion">0</Table:Field>
6302 <Table:Field name="Partition">5637144576</Table:Field>
6303</Table:Record>
6304<Table:Record name="TmpSysLabel"
6305 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6306 <Table:Field name="Language">en-us</Table:Field>
6307 <Table:Field name="Label">Edit</Table:Field>
6308 <Table:Field name="Description"></Table:Field>
6309 <Table:Field name="LabelId">@SYS453</Table:Field>
6310 <Table:Field name="SysLabelApplModule">0</Table:Field>
6311 <Table:Field name="recVersion">0</Table:Field>
6312 <Table:Field name="Partition">5637144576</Table:Field>
6313</Table:Record>
6314
6315<Table:Record name="TmpSysLabel"
6316 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6317 <Table:Field name="Language">de</Table:Field>
6318 <Table:Field name="Label">Ãœbergeordneter Coupon</Table:Field>
6319 <Table:Field name="Description"></Table:Field>
6320 <Table:Field name="LabelId">@MCR25662</Table:Field>
6321 <Table:Field name="SysLabelApplModule">0</Table:Field>
6322 <Table:Field name="recVersion">0</Table:Field>
6323 <Table:Field name="Partition">5637144576</Table:Field>
6324</Table:Record>
6325<Table:Record name="TmpSysLabel"
6326 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6327 <Table:Field name="Language">en-us</Table:Field>
6328 <Table:Field name="Label">Parent coupon</Table:Field>
6329 <Table:Field name="Description"></Table:Field>
6330 <Table:Field name="LabelId">@MCR25662</Table:Field>
6331 <Table:Field name="SysLabelApplModule">0</Table:Field>
6332 <Table:Field name="recVersion">0</Table:Field>
6333 <Table:Field name="Partition">5637144576</Table:Field>
6334</Table:Record>
6335
6336<Table:Record name="TmpSysLabel"
6337 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6338 <Table:Field name="Language">de</Table:Field>
6339 <Table:Field name="Label">Löschen</Table:Field>
6340 <Table:Field name="Description">[VendorOnboardingPhase1] PurchReqConsolidation</Table:Field>
6341 <Table:Field name="LabelId">@SYS14425</Table:Field>
6342 <Table:Field name="SysLabelApplModule">0</Table:Field>
6343 <Table:Field name="recVersion">0</Table:Field>
6344 <Table:Field name="Partition">5637144576</Table:Field>
6345</Table:Record>
6346<Table:Record name="TmpSysLabel"
6347 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6348 <Table:Field name="Language">en-us</Table:Field>
6349 <Table:Field name="Label">Delete</Table:Field>
6350 <Table:Field name="Description">[VendorOnboardingPhase1] PurchReqConsolidation</Table:Field>
6351 <Table:Field name="LabelId">@SYS14425</Table:Field>
6352 <Table:Field name="SysLabelApplModule">0</Table:Field>
6353 <Table:Field name="recVersion">0</Table:Field>
6354 <Table:Field name="Partition">5637144576</Table:Field>
6355</Table:Record>
6356
6357<Table:Record name="TmpSysLabel"
6358 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6359 <Table:Field name="Language">de</Table:Field>
6360 <Table:Field name="Label">Das Datum, ab dem der Coupon gültig ist.</Table:Field>
6361 <Table:Field name="Description">MCRCoupon</Table:Field>
6362 <Table:Field name="LabelId">@MCR4410271</Table:Field>
6363 <Table:Field name="SysLabelApplModule">0</Table:Field>
6364 <Table:Field name="recVersion">0</Table:Field>
6365 <Table:Field name="Partition">5637144576</Table:Field>
6366</Table:Record>
6367<Table:Record name="TmpSysLabel"
6368 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6369 <Table:Field name="Language">en-us</Table:Field>
6370 <Table:Field name="Label">The date from which the coupon is valid.</Table:Field>
6371 <Table:Field name="Description">MCRCoupon</Table:Field>
6372 <Table:Field name="LabelId">@MCR4410271</Table:Field>
6373 <Table:Field name="SysLabelApplModule">0</Table:Field>
6374 <Table:Field name="recVersion">0</Table:Field>
6375 <Table:Field name="Partition">5637144576</Table:Field>
6376</Table:Record>
6377
6378<Table:Record name="TmpSysLabel"
6379 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6380 <Table:Field name="Language">de</Table:Field>
6381 <Table:Field name="Label">Startdatum</Table:Field>
6382 <Table:Field name="Description"></Table:Field>
6383 <Table:Field name="LabelId">@SYS35856</Table:Field>
6384 <Table:Field name="SysLabelApplModule">0</Table:Field>
6385 <Table:Field name="recVersion">0</Table:Field>
6386 <Table:Field name="Partition">5637144576</Table:Field>
6387</Table:Record>
6388<Table:Record name="TmpSysLabel"
6389 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6390 <Table:Field name="Language">en-us</Table:Field>
6391 <Table:Field name="Label">Start date</Table:Field>
6392 <Table:Field name="Description"></Table:Field>
6393 <Table:Field name="LabelId">@SYS35856</Table:Field>
6394 <Table:Field name="SysLabelApplModule">0</Table:Field>
6395 <Table:Field name="recVersion">0</Table:Field>
6396 <Table:Field name="Partition">5637144576</Table:Field>
6397</Table:Record>
6398
6399<Table:Record name="TmpSysLabel"
6400 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6401 <Table:Field name="Language">de</Table:Field>
6402 <Table:Field name="Label">Das Datum, bis zu dem der Coupon gültig ist.</Table:Field>
6403 <Table:Field name="Description">MCRCoupon</Table:Field>
6404 <Table:Field name="LabelId">@MCR4410272</Table:Field>
6405 <Table:Field name="SysLabelApplModule">0</Table:Field>
6406 <Table:Field name="recVersion">0</Table:Field>
6407 <Table:Field name="Partition">5637144576</Table:Field>
6408</Table:Record>
6409<Table:Record name="TmpSysLabel"
6410 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6411 <Table:Field name="Language">en-us</Table:Field>
6412 <Table:Field name="Label">The date to which the coupon is valid.</Table:Field>
6413 <Table:Field name="Description">MCRCoupon</Table:Field>
6414 <Table:Field name="LabelId">@MCR4410272</Table:Field>
6415 <Table:Field name="SysLabelApplModule">0</Table:Field>
6416 <Table:Field name="recVersion">0</Table:Field>
6417 <Table:Field name="Partition">5637144576</Table:Field>
6418</Table:Record>
6419
6420<Table:Record name="TmpSysLabel"
6421 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6422 <Table:Field name="Language">de</Table:Field>
6423 <Table:Field name="Label">Enddatum</Table:Field>
6424 <Table:Field name="Description"></Table:Field>
6425 <Table:Field name="LabelId">@SYS35858</Table:Field>
6426 <Table:Field name="SysLabelApplModule">0</Table:Field>
6427 <Table:Field name="recVersion">0</Table:Field>
6428 <Table:Field name="Partition">5637144576</Table:Field>
6429</Table:Record>
6430<Table:Record name="TmpSysLabel"
6431 xmlns:Table='urn:www.microsoft.com/Formats/Table'>
6432 <Table:Field name="Language">en-us</Table:Field>
6433 <Table:Field name="Label">End date</Table:Field>
6434 <Table:Field name="Description"></Table:Field>
6435 <Table:Field name="LabelId">@SYS35858</Table:Field>
6436 <Table:Field name="SysLabelApplModule">0</Table:Field>
6437 <Table:Field name="recVersion">0</Table:Field>
6438 <Table:Field name="Partition">5637144576</Table:Field>
6439</Table:Record>
6440
6441
6442***Element: SVC
6443
6444; Microsoft Dynamics AX SERVICE : KCS_HermesInterfaceService unloaded
6445; --------------------------------------------------------------------------------
6446 VERSION 1
6447
6448 SERVICE #KCS_HermesInterfaceService
6449 PROPERTIES
6450 Name #KCS_HermesInterfaceService
6451 Class #KCS_HermesInterfaceServiceContract
6452 Origin #{3877ADB3-DC86-4135-9E98-B97BB55D4CFB}
6453 ENDPROPERTIES
6454
6455 OPERATIONS
6456 OPERATION #GetBarcodes
6457 PROPERTIES
6458 Name #GetBarcodes
6459 Method #GetBarcodes
6460 ENDPROPERTIES
6461
6462 PERMISSIONSET #Permissions
6463 PROPERTIES
6464 ENDPROPERTIES
6465
6466 TABLES #Tables
6467 ENDTABLES
6468
6469 SERVERMETHODS #Server Methods
6470 ENDSERVERMETHODS
6471
6472 ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6473 ENDASSOCIATEDCODEPERMISSIONS
6474
6475 ENDPERMISSIONSET
6476
6477ENDOPERATION
6478
6479OPERATION #GetBarcodesPaged
6480 PROPERTIES
6481 Name #GetBarcodesPaged
6482 Method #GetBarcodesPaged
6483 ENDPROPERTIES
6484
6485 PERMISSIONSET #Permissions
6486 PROPERTIES
6487 ENDPROPERTIES
6488
6489 TABLES #Tables
6490 ENDTABLES
6491
6492 SERVERMETHODS #Server Methods
6493 ENDSERVERMETHODS
6494
6495ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6496ENDASSOCIATEDCODEPERMISSIONS
6497
6498ENDPERMISSIONSET
6499
6500ENDOPERATION
6501
6502OPERATION #GetCashDrawers
6503 PROPERTIES
6504 Name #GetCashDrawers
6505 Method #GetCashDrawers
6506 ENDPROPERTIES
6507
6508 PERMISSIONSET #Permissions
6509 PROPERTIES
6510 ENDPROPERTIES
6511
6512 TABLES #Tables
6513 ENDTABLES
6514
6515 SERVERMETHODS #Server Methods
6516 ENDSERVERMETHODS
6517
6518ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6519ENDASSOCIATEDCODEPERMISSIONS
6520
6521ENDPERMISSIONSET
6522
6523ENDOPERATION
6524
6525OPERATION #GetCategories
6526 PROPERTIES
6527 Name #GetCategories
6528 Method #GetCategories
6529 ENDPROPERTIES
6530
6531 PERMISSIONSET #Permissions
6532 PROPERTIES
6533 ENDPROPERTIES
6534
6535 TABLES #Tables
6536 ENDTABLES
6537
6538 SERVERMETHODS #Server Methods
6539 ENDSERVERMETHODS
6540
6541ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6542ENDASSOCIATEDCODEPERMISSIONS
6543
6544ENDPERMISSIONSET
6545
6546ENDOPERATION
6547
6548OPERATION #GetCategoriesPaged
6549 PROPERTIES
6550 Name #GetCategoriesPaged
6551 Method #GetCategoriesPaged
6552 ENDPROPERTIES
6553
6554 PERMISSIONSET #Permissions
6555 PROPERTIES
6556 ENDPROPERTIES
6557
6558 TABLES #Tables
6559 ENDTABLES
6560
6561 SERVERMETHODS #Server Methods
6562 ENDSERVERMETHODS
6563
6564ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6565ENDASSOCIATEDCODEPERMISSIONS
6566
6567ENDPERMISSIONSET
6568
6569ENDOPERATION
6570
6571OPERATION #GetCustomer
6572 PROPERTIES
6573 Name #GetCustomer
6574 Method #GetCustomer
6575 ENDPROPERTIES
6576
6577 PERMISSIONSET #Permissions
6578 PROPERTIES
6579 ENDPROPERTIES
6580
6581 TABLES #Tables
6582 ENDTABLES
6583
6584 SERVERMETHODS #Server Methods
6585 ENDSERVERMETHODS
6586
6587ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6588ENDASSOCIATEDCODEPERMISSIONS
6589
6590ENDPERMISSIONSET
6591
6592ENDOPERATION
6593
6594OPERATION #GetCustomers
6595 PROPERTIES
6596 Name #GetCustomers
6597 Method #GetCustomers
6598 ENDPROPERTIES
6599
6600 PERMISSIONSET #Permissions
6601 PROPERTIES
6602 ENDPROPERTIES
6603
6604 TABLES #Tables
6605 ENDTABLES
6606
6607 SERVERMETHODS #Server Methods
6608 ENDSERVERMETHODS
6609
6610ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6611ENDASSOCIATEDCODEPERMISSIONS
6612
6613ENDPERMISSIONSET
6614
6615ENDOPERATION
6616
6617OPERATION #GetDiscount
6618 PROPERTIES
6619 Name #GetDiscount
6620 Method #GetDiscount
6621 ENDPROPERTIES
6622
6623 PERMISSIONSET #Permissions
6624 PROPERTIES
6625 ENDPROPERTIES
6626
6627 TABLES #Tables
6628 ENDTABLES
6629
6630 SERVERMETHODS #Server Methods
6631 ENDSERVERMETHODS
6632
6633ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6634ENDASSOCIATEDCODEPERMISSIONS
6635
6636ENDPERMISSIONSET
6637
6638ENDOPERATION
6639
6640OPERATION #GetDiscountPaged
6641 PROPERTIES
6642 Name #GetDiscountPaged
6643 Method #GetDiscountPaged
6644 ENDPROPERTIES
6645
6646 PERMISSIONSET #Permissions
6647 PROPERTIES
6648 ENDPROPERTIES
6649
6650 TABLES #Tables
6651 ENDTABLES
6652
6653 SERVERMETHODS #Server Methods
6654 ENDSERVERMETHODS
6655
6656ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6657ENDASSOCIATEDCODEPERMISSIONS
6658
6659ENDPERMISSIONSET
6660
6661ENDOPERATION
6662
6663OPERATION #GetGiftCardBalance
6664 PROPERTIES
6665 Name #GetGiftCardBalance
6666 Method #GetGiftCardBalance
6667 ENDPROPERTIES
6668
6669 PERMISSIONSET #Permissions
6670 PROPERTIES
6671 ENDPROPERTIES
6672
6673 TABLES #Tables
6674 ENDTABLES
6675
6676 SERVERMETHODS #Server Methods
6677 ENDSERVERMETHODS
6678
6679ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6680ENDASSOCIATEDCODEPERMISSIONS
6681
6682ENDPERMISSIONSET
6683
6684ENDOPERATION
6685
6686OPERATION #GetIfCouponIsValid
6687 PROPERTIES
6688 Name #GetIfCouponIsValid
6689 Method #GetIfCouponIsValid
6690 ENDPROPERTIES
6691
6692 PERMISSIONSET #Permissions
6693 PROPERTIES
6694 ENDPROPERTIES
6695
6696 TABLES #Tables
6697 ENDTABLES
6698
6699 SERVERMETHODS #Server Methods
6700 ENDSERVERMETHODS
6701
6702ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6703ENDASSOCIATEDCODEPERMISSIONS
6704
6705ENDPERMISSIONSET
6706
6707ENDOPERATION
6708
6709OPERATION #GetItem
6710 PROPERTIES
6711 Name #GetItem
6712 Method #GetItem
6713 ENDPROPERTIES
6714
6715 PERMISSIONSET #Permissions
6716 PROPERTIES
6717 ENDPROPERTIES
6718
6719 TABLES #Tables
6720 ENDTABLES
6721
6722 SERVERMETHODS #Server Methods
6723 ENDSERVERMETHODS
6724
6725ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6726ENDASSOCIATEDCODEPERMISSIONS
6727
6728ENDPERMISSIONSET
6729
6730ENDOPERATION
6731
6732OPERATION #GetItems
6733 PROPERTIES
6734 Name #GetItems
6735 Method #GetItems
6736 ENDPROPERTIES
6737
6738 PERMISSIONSET #Permissions
6739 PROPERTIES
6740 ENDPROPERTIES
6741
6742 TABLES #Tables
6743 ENDTABLES
6744
6745 SERVERMETHODS #Server Methods
6746 ENDSERVERMETHODS
6747
6748ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6749ENDASSOCIATEDCODEPERMISSIONS
6750
6751ENDPERMISSIONSET
6752
6753ENDOPERATION
6754
6755OPERATION #GetItemsPaged
6756 PROPERTIES
6757 Name #GetItemsPaged
6758 Method #GetItemsPaged
6759 ENDPROPERTIES
6760
6761 PERMISSIONSET #Permissions
6762 PROPERTIES
6763 ENDPROPERTIES
6764
6765 TABLES #Tables
6766 ENDTABLES
6767
6768 SERVERMETHODS #Server Methods
6769 ENDSERVERMETHODS
6770
6771ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6772ENDASSOCIATEDCODEPERMISSIONS
6773
6774ENDPERMISSIONSET
6775
6776ENDOPERATION
6777
6778OPERATION #GetLoyaltyAmount
6779 PROPERTIES
6780 Name #GetLoyaltyAmount
6781 Method #GetLoyaltyAmount
6782 ENDPROPERTIES
6783
6784 PERMISSIONSET #Permissions
6785 PROPERTIES
6786 ENDPROPERTIES
6787
6788 TABLES #Tables
6789 ENDTABLES
6790
6791 SERVERMETHODS #Server Methods
6792 ENDSERVERMETHODS
6793
6794ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6795ENDASSOCIATEDCODEPERMISSIONS
6796
6797ENDPERMISSIONSET
6798
6799ENDOPERATION
6800
6801OPERATION #GetLoyaltyPoints
6802 PROPERTIES
6803 Name #GetLoyaltyPoints
6804 Method #GetLoyaltyPoints
6805 ENDPROPERTIES
6806
6807 PERMISSIONSET #Permissions
6808 PROPERTIES
6809 ENDPROPERTIES
6810
6811 TABLES #Tables
6812 ENDTABLES
6813
6814 SERVERMETHODS #Server Methods
6815 ENDSERVERMETHODS
6816
6817ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6818ENDASSOCIATEDCODEPERMISSIONS
6819
6820ENDPERMISSIONSET
6821
6822ENDOPERATION
6823
6824OPERATION #GetNextGiftcardId
6825 PROPERTIES
6826 Name #GetNextGiftcardId
6827 Method #GetNextGiftcardId
6828 ENDPROPERTIES
6829
6830 PERMISSIONSET #Permissions
6831 PROPERTIES
6832 ENDPROPERTIES
6833
6834 TABLES #Tables
6835 ENDTABLES
6836
6837 SERVERMETHODS #Server Methods
6838 ENDSERVERMETHODS
6839
6840ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6841ENDASSOCIATEDCODEPERMISSIONS
6842
6843ENDPERMISSIONSET
6844
6845ENDOPERATION
6846
6847OPERATION #GetPickupOrderLines
6848 PROPERTIES
6849 Name #GetPickupOrderLines
6850 Method #GetPickupOrderLines
6851 ENDPROPERTIES
6852
6853 PERMISSIONSET #Permissions
6854 PROPERTIES
6855 ENDPROPERTIES
6856
6857 TABLES #Tables
6858 ENDTABLES
6859
6860 SERVERMETHODS #Server Methods
6861 ENDSERVERMETHODS
6862
6863ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6864ENDASSOCIATEDCODEPERMISSIONS
6865
6866ENDPERMISSIONSET
6867
6868ENDOPERATION
6869
6870OPERATION #GetPriceList
6871 PROPERTIES
6872 Name #GetPriceList
6873 Method #GetPriceList
6874 ENDPROPERTIES
6875
6876 PERMISSIONSET #Permissions
6877 PROPERTIES
6878 ENDPROPERTIES
6879
6880 TABLES #Tables
6881 ENDTABLES
6882
6883 SERVERMETHODS #Server Methods
6884 ENDSERVERMETHODS
6885
6886ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6887ENDASSOCIATEDCODEPERMISSIONS
6888
6889ENDPERMISSIONSET
6890
6891ENDOPERATION
6892
6893OPERATION #GetPriceListPaged
6894 PROPERTIES
6895 Name #GetPriceListPaged
6896 Method #GetPriceListPaged
6897 ENDPROPERTIES
6898
6899 PERMISSIONSET #Permissions
6900 PROPERTIES
6901 ENDPROPERTIES
6902
6903 TABLES #Tables
6904 ENDTABLES
6905
6906 SERVERMETHODS #Server Methods
6907 ENDSERVERMETHODS
6908
6909ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6910ENDASSOCIATEDCODEPERMISSIONS
6911
6912ENDPERMISSIONSET
6913
6914ENDOPERATION
6915
6916OPERATION #GetSalesOrder
6917 PROPERTIES
6918 Name #GetSalesOrder
6919 Method #GetSalesOrder
6920 ENDPROPERTIES
6921
6922 PERMISSIONSET #Permissions
6923 PROPERTIES
6924 ENDPROPERTIES
6925
6926 TABLES #Tables
6927 ENDTABLES
6928
6929 SERVERMETHODS #Server Methods
6930 ENDSERVERMETHODS
6931
6932ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6933ENDASSOCIATEDCODEPERMISSIONS
6934
6935ENDPERMISSIONSET
6936
6937ENDOPERATION
6938
6939OPERATION #GetStaff
6940 PROPERTIES
6941 Name #GetStaff
6942 Method #GetStaff
6943 ENDPROPERTIES
6944
6945 PERMISSIONSET #Permissions
6946 PROPERTIES
6947 ENDPROPERTIES
6948
6949 TABLES #Tables
6950 ENDTABLES
6951
6952 SERVERMETHODS #Server Methods
6953 ENDSERVERMETHODS
6954
6955ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6956ENDASSOCIATEDCODEPERMISSIONS
6957
6958ENDPERMISSIONSET
6959
6960ENDOPERATION
6961
6962OPERATION #GetStock
6963 PROPERTIES
6964 Name #GetStock
6965 Method #GetStock
6966 ENDPROPERTIES
6967
6968 PERMISSIONSET #Permissions
6969 PROPERTIES
6970 ENDPROPERTIES
6971
6972 TABLES #Tables
6973 ENDTABLES
6974
6975 SERVERMETHODS #Server Methods
6976 ENDSERVERMETHODS
6977
6978ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
6979ENDASSOCIATEDCODEPERMISSIONS
6980
6981ENDPERMISSIONSET
6982
6983ENDOPERATION
6984
6985OPERATION #GetStockDecoItem
6986 PROPERTIES
6987 Name #GetStockDecoItem
6988 Method #GetStockDecoItem
6989 ENDPROPERTIES
6990
6991 PERMISSIONSET #Permissions
6992 PROPERTIES
6993 ENDPROPERTIES
6994
6995 TABLES #Tables
6996 ENDTABLES
6997
6998 SERVERMETHODS #Server Methods
6999 ENDSERVERMETHODS
7000
7001ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
7002ENDASSOCIATEDCODEPERMISSIONS
7003
7004ENDPERMISSIONSET
7005
7006ENDOPERATION
7007
7008OPERATION #GetUOM
7009 PROPERTIES
7010 Name #GetUOM
7011 Method #GetUOM
7012 ENDPROPERTIES
7013
7014 PERMISSIONSET #Permissions
7015 PROPERTIES
7016 ENDPROPERTIES
7017
7018 TABLES #Tables
7019 ENDTABLES
7020
7021 SERVERMETHODS #Server Methods
7022 ENDSERVERMETHODS
7023
7024ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
7025ENDASSOCIATEDCODEPERMISSIONS
7026
7027ENDPERMISSIONSET
7028
7029ENDOPERATION
7030
7031OPERATION #GetVAT
7032 PROPERTIES
7033 Name #GetVAT
7034 Method #GetVAT
7035 ENDPROPERTIES
7036
7037 PERMISSIONSET #Permissions
7038 PROPERTIES
7039 ENDPROPERTIES
7040
7041 TABLES #Tables
7042 ENDTABLES
7043
7044 SERVERMETHODS #Server Methods
7045 ENDSERVERMETHODS
7046
7047ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
7048ENDASSOCIATEDCODEPERMISSIONS
7049
7050ENDPERMISSIONSET
7051
7052ENDOPERATION
7053
7054OPERATION #RedeemGiftCardAmount
7055 PROPERTIES
7056 Name #RedeemGiftCardAmount
7057 Method #RedeemGiftCardAmount
7058 ENDPROPERTIES
7059
7060 PERMISSIONSET #Permissions
7061 PROPERTIES
7062 ENDPROPERTIES
7063
7064 TABLES #Tables
7065 ENDTABLES
7066
7067 SERVERMETHODS #Server Methods
7068 ENDSERVERMETHODS
7069
7070ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
7071ENDASSOCIATEDCODEPERMISSIONS
7072
7073ENDPERMISSIONSET
7074
7075ENDOPERATION
7076
7077OPERATION #RedeemLoyaltyAmount
7078 PROPERTIES
7079 Name #RedeemLoyaltyAmount
7080 Method #RedeemLoyaltyAmount
7081 ENDPROPERTIES
7082
7083 PERMISSIONSET #Permissions
7084 PROPERTIES
7085 ENDPROPERTIES
7086
7087 TABLES #Tables
7088 ENDTABLES
7089
7090 SERVERMETHODS #Server Methods
7091 ENDSERVERMETHODS
7092
7093ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
7094ENDASSOCIATEDCODEPERMISSIONS
7095
7096ENDPERMISSIONSET
7097
7098ENDOPERATION
7099
7100OPERATION #RedeemLoyaltyPoints
7101 PROPERTIES
7102 Name #RedeemLoyaltyPoints
7103 Method #RedeemLoyaltyPoints
7104 ENDPROPERTIES
7105
7106 PERMISSIONSET #Permissions
7107 PROPERTIES
7108 ENDPROPERTIES
7109
7110 TABLES #Tables
7111 ENDTABLES
7112
7113 SERVERMETHODS #Server Methods
7114 ENDSERVERMETHODS
7115
7116ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
7117ENDASSOCIATEDCODEPERMISSIONS
7118
7119ENDPERMISSIONSET
7120
7121ENDOPERATION
7122
7123OPERATION #SendOrder
7124 PROPERTIES
7125 Name #SendOrder
7126 Method #SendOrder
7127 ENDPROPERTIES
7128
7129 PERMISSIONSET #Permissions
7130 PROPERTIES
7131 ENDPROPERTIES
7132
7133 TABLES #Tables
7134 ENDTABLES
7135
7136 SERVERMETHODS #Server Methods
7137 ENDSERVERMETHODS
7138
7139ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
7140ENDASSOCIATEDCODEPERMISSIONS
7141
7142ENDPERMISSIONSET
7143
7144ENDOPERATION
7145
7146OPERATION #SendPickupOrder
7147 PROPERTIES
7148 Name #SendPickupOrder
7149 Method #SendPickupOrder
7150 ENDPROPERTIES
7151
7152 PERMISSIONSET #Permissions
7153 PROPERTIES
7154 ENDPROPERTIES
7155
7156 TABLES #Tables
7157 ENDTABLES
7158
7159 SERVERMETHODS #Server Methods
7160 ENDSERVERMETHODS
7161
7162ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
7163ENDASSOCIATEDCODEPERMISSIONS
7164
7165ENDPERMISSIONSET
7166
7167ENDOPERATION
7168
7169OPERATION #SendPickupOrderLines
7170 PROPERTIES
7171 Name #SendPickupOrderLines
7172 Method #SendPickupOrderLines
7173 ENDPROPERTIES
7174
7175 PERMISSIONSET #Permissions
7176 PROPERTIES
7177 ENDPROPERTIES
7178
7179 TABLES #Tables
7180 ENDTABLES
7181
7182 SERVERMETHODS #Server Methods
7183 ENDSERVERMETHODS
7184
7185ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
7186ENDASSOCIATEDCODEPERMISSIONS
7187
7188ENDPERMISSIONSET
7189
7190ENDOPERATION
7191
7192OPERATION #SetCustomerCouponAsUsed
7193 PROPERTIES
7194 Name #SetCustomerCouponAsUsed
7195 Method #SetCustomerCouponAsUsed
7196 ENDPROPERTIES
7197
7198 PERMISSIONSET #Permissions
7199 PROPERTIES
7200 ENDPROPERTIES
7201
7202 TABLES #Tables
7203 ENDTABLES
7204
7205 SERVERMETHODS #Server Methods
7206 ENDSERVERMETHODS
7207
7208ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
7209ENDASSOCIATEDCODEPERMISSIONS
7210
7211ENDPERMISSIONSET
7212
7213ENDOPERATION
7214
7215OPERATION #TestConnection
7216 PROPERTIES
7217 Name #TestConnection
7218 Method #TestConnection
7219 ENDPROPERTIES
7220
7221 PERMISSIONSET #Permissions
7222 PROPERTIES
7223 ENDPROPERTIES
7224
7225 TABLES #Tables
7226 ENDTABLES
7227
7228 SERVERMETHODS #Server Methods
7229 ENDSERVERMETHODS
7230
7231ASSOCIATEDCODEPERMISSIONS #Associated Code Permissions
7232ENDASSOCIATEDCODEPERMISSIONS
7233
7234ENDPERMISSIONSET
7235
7236ENDOPERATION
7237
7238ENDOPERATIONS
7239
7240ENDSERVICE
7241
7242
7243***Element: END