· 8 years ago · May 14, 2018, 10:10 AM
1Exportfile for AOT version 1.0 or later
2Formatversion: 1
3
4***Element: DBT
5
6; Microsoft Dynamics AX Table : EXU_ReceivingSystemCust unloaded
7; --------------------------------------------------------------------------------
8 TABLEVERSION 1
9
10 TABLE #EXU_ReceivingSystemCust
11 Id 24715
12 PROPERTIES
13 Name #EXU_ReceivingSystemCust
14 Label #@EGU43071
15 ConfigurationKey #EXU_ReceivingSystems
16 CreateRecIdIndex #Yes
17 ENDPROPERTIES
18
19 FIELDS
20 FIELD #AccountNum
21 Id 20002
22 STRING
23 PROPERTIES
24 Name #AccountNum
25 Mandatory #Yes
26 Table #EXU_ReceivingSystemCust
27 ExtendedDataType
28 ARRAY
29 #AccountNum
30 #
31 ENDARRAY
32 StringSize #25
33 ENDPROPERTIES
34
35 FIELD #SystemId
36 Id 20003
37 STRING
38 PROPERTIES
39 Name #SystemId
40 Mandatory #Yes
41 Table #EXU_ReceivingSystemCust
42 ExtendedDataType
43 ARRAY
44 #EXU_SystemId
45 #
46 ENDARRAY
47 StringSize #20
48 ENDPROPERTIES
49
50 ENDFIELDS
51 GROUPS
52 ENDGROUPS
53
54 INDICES
55 #PrimaryKey
56 Id 20001
57 PROPERTIES
58 Name #PrimaryKey
59 AllowDuplicates #No
60 ENDPROPERTIES
61
62 INDEXFIELDS
63 #AccountNum
64 #SystemId
65 ENDINDEXFIELDS
66
67 ENDINDICES
68 REFERENCES
69 REFERENCE #CustTable
70 PROPERTIES
71 Name #CustTable
72 Table #CustTable
73 ENDPROPERTIES
74
75 FIELDREFERENCES
76 REFERENCETYPE NORMAL
77 PROPERTIES
78 Field #AccountNum
79 RelatedField #AccountNum
80 ENDPROPERTIES
81
82 ENDFIELDREFERENCES
83 ENDREFERENCE
84 REFERENCE #EXU_ReceivingSystem
85 PROPERTIES
86 Name #EXU_ReceivingSystem
87 Table #EXU_ReceivingSystem
88 ENDPROPERTIES
89
90 FIELDREFERENCES
91 REFERENCETYPE NORMAL
92 PROPERTIES
93 Field #SystemId
94 RelatedField #SystemId
95 ENDPROPERTIES
96
97 ENDFIELDREFERENCES
98 ENDREFERENCE
99 ENDREFERENCES
100
101 DELETEACTIONS
102 ENDDELETEACTIONS
103
104 METHODS
105 Version: 3
106 SOURCE #insert
107 #public void insert()
108 #{
109 # CustTable custTable;
110 # EXU_ReceivingSystemEventData eventData;
111 # ;
112 # select custTable
113 # where custTable.AccountNum == this.AccountNum;
114 #
115 # super();
116 #
117 # eventData = EXU_ReceivingSystemEventData::newDataEvent(custTable, EventLogType::Insert);
118 # eventData.run();
119 #
120 #}
121 ENDSOURCE
122 SOURCE #find
123 #static EXU_ReceivingSystemCust find(EXU_SystemId _systemId,
124 # AccountNum _accountNum,
125 # boolean _forUpdate = false)
126 #{
127 # EXU_ReceivingSystemCust exu_ReceivingSystemCust;
128 # ;
129 #
130 # if (_systemId)
131 # {
132 # if (_forUpdate)
133 # exu_ReceivingSystemCust.selectForUpdate(_forUpdate);
134 #
135 # select firstonly exu_ReceivingSystemCust
136 # where exu_ReceivingSystemCust.SystemId == _systemId
137 # && exu_ReceivingSystemCust.AccountNum == _accountNum;
138 # }
139 # return exu_ReceivingSystemCust;
140 #}
141 ENDSOURCE
142 ENDMETHODS
143 ENDTABLE
144
145
146***Element: DBT
147
148; Microsoft Dynamics AX Table : CustTable unloaded
149; --------------------------------------------------------------------------------
150 TABLEVERSION 1
151
152 TABLE #CustTable
153 Id 77
154 PROPERTIES
155 Name #CustTable
156 Label #@SYS11307
157 FormRef #CustTable
158 TitleField1 #AccountNum
159 TitleField2 #Name
160 ConfigurationKey #LedgerBasic
161 SecurityKey #CustTables
162 CacheLookup #Found
163 CreateRecIdIndex #Yes
164 TableGroup #Main
165 PrimaryIndex #AccountIdx
166 ClusterIndex #AccountIdx
167 ModifiedDateTime #Yes
168 DEL_modifiedTime #Yes
169 ModifiedBy #Yes
170 CreatedDateTime #Yes
171 DEL_createdTime #Yes
172 CreatedBy #Yes
173 DeveloperDocumentation #@SYS125115
174 ENDPROPERTIES
175
176 FIELDS
177 FIELD #AccountNum
178 Id 1
179 STRING
180 PROPERTIES
181 Name #AccountNum
182 Mandatory #Yes
183 AllowEdit #No
184 Table #CustTable
185 ExtendedDataType
186 ARRAY
187 #CustAccount
188 #
189 ENDARRAY
190 StringSize #25
191 ENDPROPERTIES
192
193 FIELD #Name
194 Id 2
195 STRING
196 PROPERTIES
197 Name #Name
198 HelpText #@SYS16724
199 Table #CustTable
200 ExtendedDataType
201 ARRAY
202 #CustName
203 #
204 ENDARRAY
205 StringSize #60
206 ENDPROPERTIES
207
208 FIELD #Address
209 Id 3
210 STRING
211 PROPERTIES
212 Name #Address
213 HelpText #@SYS16717
214 AllowEditOnCreate #No
215 AllowEdit #No
216 Table #CustTable
217 ExtendedDataType
218 ARRAY
219 #Addressing
220 #
221 ENDARRAY
222 StringSize #250
223 ENDPROPERTIES
224
225 FIELD #Phone
226 Id 4
227 STRING
228 PROPERTIES
229 Name #Phone
230 HelpText #@SYS16721
231 Table #CustTable
232 ExtendedDataType
233 ARRAY
234 #Phone
235 #
236 ENDARRAY
237 StringSize #20
238 ENDPROPERTIES
239
240 FIELD #TeleFax
241 Id 5
242 STRING
243 PROPERTIES
244 Name #TeleFax
245 HelpText #@SYS16720
246 Table #CustTable
247 ExtendedDataType
248 ARRAY
249 #TeleFax
250 #
251 ENDARRAY
252 StringSize #20
253 ENDPROPERTIES
254
255 FIELD #InvoiceAccount
256 Id 6
257 STRING
258 PROPERTIES
259 Name #InvoiceAccount
260 HelpText #@SYS14122
261 Table #CustTable
262 ExtendedDataType
263 ARRAY
264 #CustInvoiceAccount
265 #
266 ENDARRAY
267 StringSize #25
268 ENDPROPERTIES
269
270 FIELD #CustGroup
271 Id 7
272 STRING
273 PROPERTIES
274 Name #CustGroup
275 HelpText #@SYS16728
276 Mandatory #Yes
277 Table #CustTable
278 ExtendedDataType
279 ARRAY
280 #CustGroupId
281 #
282 ENDARRAY
283 ENDPROPERTIES
284
285 FIELD #LineDisc
286 Id 8
287 STRING
288 PROPERTIES
289 Name #LineDisc
290 HelpText #@SYS14523
291 Table #CustTable
292 ExtendedDataType
293 ARRAY
294 #CustLineDiscCode
295 #
296 ENDARRAY
297 ENDPROPERTIES
298
299 FIELD #PaymTermId
300 Id 9
301 STRING
302 PROPERTIES
303 Name #PaymTermId
304 Table #CustTable
305 ExtendedDataType
306 ARRAY
307 #CustPaymTermId
308 #
309 ENDARRAY
310 ENDPROPERTIES
311
312 FIELD #CashDisc
313 Id 10
314 STRING
315 PROPERTIES
316 Name #CashDisc
317 HelpText #@SYS11450
318 Table #CustTable
319 ExtendedDataType
320 ARRAY
321 #CustCashDiscCode
322 #
323 ENDARRAY
324 ENDPROPERTIES
325
326 FIELD #Currency
327 Id 11
328 STRING
329 PROPERTIES
330 Name #Currency
331 HelpText #@SYS20784
332 Mandatory #Yes
333 Table #CustTable
334 ExtendedDataType
335 ARRAY
336 #CustCurrencyCode
337 #
338 ENDARRAY
339 StringSize #3
340 ENDPROPERTIES
341
342 FIELD #InterCompanyAutoCreateOrders
343 Id 12
344 ENUM
345 PROPERTIES
346 Name #InterCompanyAutoCreateOrders
347 Table #CustTable
348 ExtendedDataType
349 ARRAY
350 #InterCompanyAutoCreateOrders
351 #
352 ENDARRAY
353 EnumType #NoYes
354 ENDPROPERTIES
355
356 FIELD #SalesGroup
357 Id 13
358 STRING
359 PROPERTIES
360 Name #SalesGroup
361 Table #CustTable
362 ExtendedDataType
363 ARRAY
364 #CommissSalesGroup
365 #
366 ENDARRAY
367 ENDPROPERTIES
368
369 FIELD #Blocked
370 Id 14
371 ENUM
372 PROPERTIES
373 Name #Blocked
374 Table #CustTable
375 ExtendedDataType
376 ARRAY
377 #CustBlocked
378 #
379 ENDARRAY
380 EnumType #CustVendorBlocked
381 ENDPROPERTIES
382
383 FIELD #OneTimeCustomer
384 Id 15
385 ENUM
386 PROPERTIES
387 Name #OneTimeCustomer
388 Table #CustTable
389 ExtendedDataType
390 ARRAY
391 #OneTimeCustomer
392 #
393 ENDARRAY
394 EnumType #NoYes
395 ENDPROPERTIES
396
397 FIELD #AccountStatement
398 Id 16
399 ENUM
400 PROPERTIES
401 Name #AccountStatement
402 Table #CustTable
403 EnumType #CustAccountStatement
404 ENDPROPERTIES
405
406 FIELD #CreditMax
407 Id 17
408 REAL
409 PROPERTIES
410 Name #CreditMax
411 Table #CustTable
412 ExtendedDataType
413 ARRAY
414 #CustCreditMaxMST
415 #
416 ENDARRAY
417 ENDPROPERTIES
418
419 FIELD #MandatoryCreditLimit
420 Id 18
421 ENUM
422 PROPERTIES
423 Name #MandatoryCreditLimit
424 Table #CustTable
425 ExtendedDataType
426 ARRAY
427 #MandatoryCreditLimit
428 #
429 ENDARRAY
430 EnumType #NoYes
431 ENDPROPERTIES
432
433 FIELD #Dimension
434 Id 19
435 STRING
436 PROPERTIES
437 Name #Dimension
438 Table #CustTable
439 ExtendedDataType
440 ARRAY
441 #Dimension
442 #
443 ENDARRAY
444 ENDPROPERTIES
445
446 FIELD #VendAccount
447 Id 20
448 STRING
449 PROPERTIES
450 Name #VendAccount
451 HelpText #@SYS14076
452 Table #CustTable
453 ExtendedDataType
454 ARRAY
455 #VendAccount
456 #
457 ENDARRAY
458 StringSize #25
459 ENDPROPERTIES
460
461 FIELD #Telex
462 Id 21
463 STRING
464 PROPERTIES
465 Name #Telex
466 HelpText #@SYS16722
467 Table #CustTable
468 ExtendedDataType
469 ARRAY
470 #Telex
471 #
472 ENDARRAY
473 StringSize #20
474 ENDPROPERTIES
475
476 FIELD #PriceGroup
477 Id 22
478 STRING
479 PROPERTIES
480 Name #PriceGroup
481 HelpText #@SYS15620
482 Table #CustTable
483 ExtendedDataType
484 ARRAY
485 #CustPriceGroup
486 #
487 ENDARRAY
488 ENDPROPERTIES
489
490 FIELD #MultiLineDisc
491 Id 23
492 STRING
493 PROPERTIES
494 Name #MultiLineDisc
495 HelpText #@SYS6705
496 Table #CustTable
497 ExtendedDataType
498 ARRAY
499 #CustMultiLineDiscCode
500 #
501 ENDARRAY
502 ENDPROPERTIES
503
504 FIELD #EndDisc
505 Id 24
506 STRING
507 PROPERTIES
508 Name #EndDisc
509 HelpText #@SYS3140
510 Table #CustTable
511 ExtendedDataType
512 ARRAY
513 #CustEndDiscCode
514 #
515 ENDARRAY
516 ENDPROPERTIES
517
518 FIELD #VATNum
519 Id 25
520 STRING
521 PROPERTIES
522 Name #VATNum
523 HelpText #@SYS12082
524 Table #CustTable
525 ExtendedDataType
526 ARRAY
527 #VATNum
528 #
529 ENDARRAY
530 StringSize #20
531 ENDPROPERTIES
532
533 FIELD #CountryRegionId
534 Id 26
535 STRING
536 PROPERTIES
537 Name #CountryRegionId
538 Table #CustTable
539 ExtendedDataType
540 ARRAY
541 #AddressCountryRegionId
542 #
543 ENDARRAY
544 ENDPROPERTIES
545
546 FIELD #InventLocation
547 Id 27
548 STRING
549 PROPERTIES
550 Name #InventLocation
551 HelpText #@SYS16976
552 Table #CustTable
553 ExtendedDataType
554 ARRAY
555 #InventLocationId
556 #
557 ENDARRAY
558 ENDPROPERTIES
559
560 FIELD #DlvTerm
561 Id 28
562 STRING
563 PROPERTIES
564 Name #DlvTerm
565 HelpText #@SYS10971
566 Table #CustTable
567 ExtendedDataType
568 ARRAY
569 #CustDlvTermId
570 #
571 ENDARRAY
572 ENDPROPERTIES
573
574 FIELD #DlvMode
575 Id 29
576 STRING
577 PROPERTIES
578 Name #DlvMode
579 HelpText #@SYS11153
580 Table #CustTable
581 ExtendedDataType
582 ARRAY
583 #CustDlvModeId
584 #
585 ENDARRAY
586 ENDPROPERTIES
587
588 FIELD #MarkupGroup
589 Id 30
590 STRING
591 PROPERTIES
592 Name #MarkupGroup
593 Table #CustTable
594 ExtendedDataType
595 ARRAY
596 #CustMarkupGroupId
597 #
598 ENDARRAY
599 ENDPROPERTIES
600
601 FIELD #ClearingPeriod
602 Id 31
603 STRING
604 PROPERTIES
605 Name #ClearingPeriod
606 Table #CustTable
607 ExtendedDataType
608 ARRAY
609 #CustClearingPeriod
610 #
611 ENDARRAY
612 ENDPROPERTIES
613
614 FIELD #ZipCode
615 Id 32
616 STRING
617 PROPERTIES
618 Name #ZipCode
619 Table #CustTable
620 ExtendedDataType
621 ARRAY
622 #AddressZipCodeId
623 #
624 ENDARRAY
625 ENDPROPERTIES
626
627 FIELD #State
628 Id 33
629 STRING
630 PROPERTIES
631 Name #State
632 Table #CustTable
633 ExtendedDataType
634 ARRAY
635 #AddressStateId
636 #
637 ENDARRAY
638 ENDPROPERTIES
639
640 FIELD #County
641 Id 34
642 STRING
643 PROPERTIES
644 Name #County
645 Table #CustTable
646 ExtendedDataType
647 ARRAY
648 #AddressCountyId
649 #
650 ENDARRAY
651 ENDPROPERTIES
652
653 FIELD #URL
654 Id 35
655 STRING
656 PROPERTIES
657 Name #URL
658 Table #CustTable
659 ExtendedDataType
660 ARRAY
661 #URL
662 #
663 ENDARRAY
664 StringSize #255
665 ENDPROPERTIES
666
667 FIELD #Email
668 Id 36
669 STRING
670 PROPERTIES
671 Name #Email
672 Table #CustTable
673 ExtendedDataType
674 ARRAY
675 #Email
676 #
677 ENDARRAY
678 StringSize #80
679 ENDPROPERTIES
680
681 FIELD #CellularPhone
682 Id 37
683 STRING
684 PROPERTIES
685 Name #CellularPhone
686 HelpText #@SYS28156
687 Table #CustTable
688 ExtendedDataType
689 ARRAY
690 #PhoneMobile
691 #
692 ENDARRAY
693 StringSize #20
694 ENDPROPERTIES
695
696 FIELD #PhoneLocal
697 Id 38
698 STRING
699 PROPERTIES
700 Name #PhoneLocal
701 Table #CustTable
702 ExtendedDataType
703 ARRAY
704 #PhoneLocal
705 #
706 ENDARRAY
707 ENDPROPERTIES
708
709 FIELD #FreightZone
710 Id 39
711 STRING
712 PROPERTIES
713 Name #FreightZone
714 Table #CustTable
715 ExtendedDataType
716 ARRAY
717 #CustFreightZoneId
718 #
719 ENDARRAY
720 ENDPROPERTIES
721
722 FIELD #CreditRating
723 Id 40
724 STRING
725 PROPERTIES
726 Name #CreditRating
727 Table #CustTable
728 ExtendedDataType
729 ARRAY
730 #CustCreditRating
731 #
732 ENDARRAY
733 ENDPROPERTIES
734
735 FIELD #TaxGroup
736 Id 41
737 STRING
738 PROPERTIES
739 Name #TaxGroup
740 Table #CustTable
741 ExtendedDataType
742 ARRAY
743 #TaxGroup
744 #
745 ENDARRAY
746 ENDPROPERTIES
747
748 FIELD #StatisticsGroup
749 Id 42
750 STRING
751 PROPERTIES
752 Name #StatisticsGroup
753 Table #CustTable
754 ExtendedDataType
755 ARRAY
756 #CustStatGroupId
757 #
758 ENDARRAY
759 ENDPROPERTIES
760
761 FIELD #PaymMode
762 Id 43
763 STRING
764 PROPERTIES
765 Name #PaymMode
766 Table #CustTable
767 ExtendedDataType
768 ARRAY
769 #CustPaymMode
770 #
771 ENDARRAY
772 ENDPROPERTIES
773
774 FIELD #CommissionGroup
775 Id 44
776 STRING
777 PROPERTIES
778 Name #CommissionGroup
779 HelpText #@SYS8360
780 Table #CustTable
781 ExtendedDataType
782 ARRAY
783 #CommissCustomerGroup
784 #
785 ENDARRAY
786 ENDPROPERTIES
787
788 FIELD #BankAccount
789 Id 45
790 STRING
791 PROPERTIES
792 Name #BankAccount
793 Table #CustTable
794 ExtendedDataType
795 ARRAY
796 #CustBankAccountId
797 #
798 ENDARRAY
799 ENDPROPERTIES
800
801 FIELD #PaymSched
802 Id 46
803 STRING
804 PROPERTIES
805 Name #PaymSched
806 Table #CustTable
807 ExtendedDataType
808 ARRAY
809 #PaymSchedId
810 #
811 ENDARRAY
812 StringSize #30
813 ENDPROPERTIES
814
815 FIELD #NameAlias
816 Id 47
817 STRING
818 PROPERTIES
819 Name #NameAlias
820 Table #CustTable
821 AliasFor #AccountNum
822 ExtendedDataType
823 ARRAY
824 #CustTableAlias
825 #
826 ENDARRAY
827 StringSize #20
828 ENDPROPERTIES
829
830 FIELD #ContactPersonId
831 Id 48
832 STRING
833 PROPERTIES
834 Name #ContactPersonId
835 HelpText #@SYS26087
836 Table #CustTable
837 ExtendedDataType
838 ARRAY
839 #ContactPersonId
840 #
841 ENDARRAY
842 StringSize #20
843 ENDPROPERTIES
844
845 FIELD #InvoiceAddress
846 Id 49
847 ENUM
848 PROPERTIES
849 Name #InvoiceAddress
850 Table #CustTable
851 ExtendedDataType
852 ARRAY
853 #CustInvoiceAddress
854 #
855 ENDARRAY
856 EnumType #InvoiceOrderAccount
857 ENDPROPERTIES
858
859 FIELD #OurAccountNum
860 Id 50
861 STRING
862 PROPERTIES
863 Name #OurAccountNum
864 Table #CustTable
865 ExtendedDataType
866 ARRAY
867 #CustAccountExt
868 #
869 ENDARRAY
870 StringSize #20
871 ENDPROPERTIES
872
873 FIELD #SalesPoolId
874 Id 51
875 STRING
876 PROPERTIES
877 Name #SalesPoolId
878 Table #CustTable
879 ExtendedDataType
880 ARRAY
881 #CustSalesPoolId
882 #
883 ENDARRAY
884 ENDPROPERTIES
885
886 FIELD #InclTax
887 Id 60
888 ENUM
889 PROPERTIES
890 Name #InclTax
891 Table #CustTable
892 ExtendedDataType
893 ARRAY
894 #InclTax
895 #
896 ENDARRAY
897 EnumType #NoYes
898 ENDPROPERTIES
899
900 FIELD #CustItemGroupId
901 Id 61
902 STRING
903 PROPERTIES
904 Name #CustItemGroupId
905 Table #CustTable
906 ExtendedDataType
907 ARRAY
908 #CustItemGroupId
909 #
910 ENDARRAY
911 ENDPROPERTIES
912
913 FIELD #numberSequenceGroup
914 Id 62
915 STRING
916 PROPERTIES
917 Name #numberSequenceGroup
918 Table #CustTable
919 ExtendedDataType
920 ARRAY
921 #NumberSequenceGroupId
922 #
923 ENDARRAY
924 ENDPROPERTIES
925
926 FIELD #LanguageId
927 Id 63
928 STRING
929 PROPERTIES
930 Name #LanguageId
931 HelpText #@SYS4185
932 Mandatory #Yes
933 Table #CustTable
934 ExtendedDataType
935 ARRAY
936 #CustLanguageId
937 #
938 ENDARRAY
939 StringSize #7
940 ENDPROPERTIES
941
942 FIELD #PaymDayId
943 Id 64
944 STRING
945 PROPERTIES
946 Name #PaymDayId
947 Table #CustTable
948 ExtendedDataType
949 ARRAY
950 #CustPaymDayId
951 #
952 ENDARRAY
953 ENDPROPERTIES
954
955 FIELD #LineOfBusinessId
956 Id 65
957 STRING
958 PROPERTIES
959 Name #LineOfBusinessId
960 Table #CustTable
961 ExtendedDataType
962 ARRAY
963 #CustLineOfBusinessId
964 #
965 ENDARRAY
966 ENDPROPERTIES
967
968 FIELD #DestinationCodeId
969 Id 66
970 STRING
971 PROPERTIES
972 Name #DestinationCodeId
973 Table #CustTable
974 ExtendedDataType
975 ARRAY
976 #CustDestinationCodeId
977 #
978 ENDARRAY
979 ENDPROPERTIES
980
981 FIELD #GiroType
982 Id 67
983 ENUM
984 PROPERTIES
985 Name #GiroType
986 Table #CustTable
987 ExtendedDataType
988 ARRAY
989 #PaymentStubInvoiceId
990 #
991 ENDARRAY
992 EnumType #PaymentStub
993 ENDPROPERTIES
994
995 FIELD #SuppItemGroupId
996 Id 68
997 STRING
998 PROPERTIES
999 Name #SuppItemGroupId
1000 Table #CustTable
1001 ExtendedDataType
1002 ARRAY
1003 #CustSuppItemGroupId
1004 #
1005 ENDARRAY
1006 ENDPROPERTIES
1007
1008 FIELD #GiroTypeInterestNote
1009 Id 69
1010 ENUM
1011 PROPERTIES
1012 Name #GiroTypeInterestNote
1013 Table #CustTable
1014 ExtendedDataType
1015 ARRAY
1016 #PaymentStubInterestId
1017 #
1018 ENDARRAY
1019 EnumType #PaymentStub
1020 ENDPROPERTIES
1021
1022 FIELD #TaxLicenseNum
1023 Id 70
1024 STRING
1025 PROPERTIES
1026 Name #TaxLicenseNum
1027 Table #CustTable
1028 ExtendedDataType
1029 ARRAY
1030 #TaxPackagingLicenseNum
1031 #
1032 ENDARRAY
1033 StringSize #20
1034 ENDPROPERTIES
1035
1036 FIELD #WebSalesOrderDisplay
1037 Id 71
1038 ENUM
1039 PROPERTIES
1040 Name #WebSalesOrderDisplay
1041 Table #CustTable
1042 EnumType #ECPsalesOrdersViewType
1043 ENDPROPERTIES
1044
1045 FIELD #PaymSpec
1046 Id 72
1047 STRING
1048 PROPERTIES
1049 Name #PaymSpec
1050 Table #CustTable
1051 ExtendedDataType
1052 ARRAY
1053 #PaymSpec
1054 #
1055 ENDARRAY
1056 ENDPROPERTIES
1057
1058 FIELD #BankCentralBankPurposeText
1059 Id 73
1060 STRING
1061 PROPERTIES
1062 Name #BankCentralBankPurposeText
1063 Table #CustTable
1064 ExtendedDataType
1065 ARRAY
1066 #BankCentralBankPurposeText
1067 #
1068 ENDARRAY
1069 StringSize #140
1070 ENDPROPERTIES
1071
1072 FIELD #BankCentralBankPurposeCode
1073 Id 74
1074 STRING
1075 PROPERTIES
1076 Name #BankCentralBankPurposeCode
1077 Table #CustTable
1078 ExtendedDataType
1079 ARRAY
1080 #BankCentralBankPurposeCode
1081 #
1082 ENDARRAY
1083 ENDPROPERTIES
1084
1085 FIELD #DEL_PrintModuleType
1086 Id 75
1087 ENUM
1088 PROPERTIES
1089 Name #DEL_PrintModuleType
1090 Label #@SYS54502
1091 ConfigurationKey #SysDeletedObjects41
1092 Table #CustTable
1093 EnumType #DEL_ModuleCustSalesParameters
1094 ENDPROPERTIES
1095
1096 FIELD #City
1097 Id 76
1098 STRING
1099 PROPERTIES
1100 Name #City
1101 Table #CustTable
1102 ExtendedDataType
1103 ARRAY
1104 #AddressCity
1105 #
1106 ENDARRAY
1107 StringSize #60
1108 ENDPROPERTIES
1109
1110 FIELD #Street
1111 Id 77
1112 STRING
1113 PROPERTIES
1114 Name #Street
1115 Table #CustTable
1116 ExtendedDataType
1117 ARRAY
1118 #AddressStreet
1119 #
1120 ENDARRAY
1121 StringSize #250
1122 ENDPROPERTIES
1123
1124 FIELD #Pager
1125 Id 78
1126 STRING
1127 PROPERTIES
1128 Name #Pager
1129 Table #CustTable
1130 ExtendedDataType
1131 ARRAY
1132 #Pager
1133 #
1134 ENDARRAY
1135 StringSize #20
1136 ENDPROPERTIES
1137
1138 FIELD #SMS
1139 Id 79
1140 STRING
1141 PROPERTIES
1142 Name #SMS
1143 Table #CustTable
1144 ExtendedDataType
1145 ARRAY
1146 #SMS
1147 #
1148 ENDARRAY
1149 StringSize #80
1150 ENDPROPERTIES
1151
1152 FIELD #InterCompanyAllowIndirectCreation
1153 Id 80
1154 ENUM
1155 PROPERTIES
1156 Name #InterCompanyAllowIndirectCreation
1157 Table #CustTable
1158 ExtendedDataType
1159 ARRAY
1160 #InterCompanyAllowIndirectCreation
1161 #
1162 ENDARRAY
1163 EnumType #NoYes
1164 ENDPROPERTIES
1165
1166 FIELD #DEL_RefZipCode
1167 Id 81
1168 INT64
1169 PROPERTIES
1170 Name #DEL_RefZipCode
1171 AllowEditOnCreate #No
1172 AllowEdit #No
1173 ConfigurationKey #SysDeletedObjects40
1174 Table #CustTable
1175 ExtendedDataType
1176 ARRAY
1177 #RefRecId
1178 #
1179 ENDARRAY
1180 ENDPROPERTIES
1181
1182 FIELD #PackMaterialFeeLicenseNum
1183 Id 82
1184 STRING
1185 PROPERTIES
1186 Name #PackMaterialFeeLicenseNum
1187 Table #CustTable
1188 ExtendedDataType
1189 ARRAY
1190 #InventPackingMaterialFeeLicenseNum
1191 #
1192 ENDARRAY
1193 StringSize #20
1194 ENDPROPERTIES
1195
1196 FIELD #TaxBorderNumber_FI
1197 Id 83
1198 STRING
1199 PROPERTIES
1200 Name #TaxBorderNumber_FI
1201 Table #CustTable
1202 ExtendedDataType
1203 ARRAY
1204 #TaxBorderNumber_FI
1205 #
1206 ENDARRAY
1207 ENDPROPERTIES
1208
1209 FIELD #EinvoiceEANNum
1210 Id 84
1211 STRING
1212 PROPERTIES
1213 Name #EinvoiceEANNum
1214 ConfigurationKey #CRSEDenmark
1215 Table #CustTable
1216 ExtendedDataType
1217 ARRAY
1218 #EinvoiceEANNum
1219 #
1220 ENDARRAY
1221 StringSize #20
1222 ENDPROPERTIES
1223
1224 FIELD #FiscalCode
1225 Id 86
1226 STRING
1227 PROPERTIES
1228 Name #FiscalCode
1229 HelpText #@SYS79253
1230 Table #CustTable
1231 ExtendedDataType
1232 ARRAY
1233 #FiscalCode
1234 #
1235 ENDARRAY
1236 StringSize #16
1237 ENDPROPERTIES
1238
1239 FIELD #DlvReason
1240 Id 87
1241 STRING
1242 PROPERTIES
1243 Name #DlvReason
1244 Table #CustTable
1245 ExtendedDataType
1246 ARRAY
1247 #DlvReasonId
1248 #
1249 ENDARRAY
1250 ENDPROPERTIES
1251
1252 FIELD #ForecastDMPInclude
1253 Id 88
1254 ENUM
1255 PROPERTIES
1256 Name #ForecastDMPInclude
1257 Table #CustTable
1258 ExtendedDataType
1259 ARRAY
1260 #ForecastDMPInclude
1261 #
1262 ENDARRAY
1263 EnumType #NoYes
1264 ENDPROPERTIES
1265
1266 FIELD #GiroTypeCollectionletter
1267 Id 89
1268 ENUM
1269 PROPERTIES
1270 Name #GiroTypeCollectionletter
1271 Table #CustTable
1272 ExtendedDataType
1273 ARRAY
1274 #PaymentStubCollectionId
1275 #
1276 ENDARRAY
1277 EnumType #PaymentStub
1278 ENDPROPERTIES
1279
1280 FIELD #SalesCalendarId
1281 Id 90
1282 STRING
1283 PROPERTIES
1284 Name #SalesCalendarId
1285 Table #CustTable
1286 ExtendedDataType
1287 ARRAY
1288 #SalesCalendarId
1289 #
1290 ENDARRAY
1291 ENDPROPERTIES
1292
1293 FIELD #CustClassificationId
1294 Id 91
1295 STRING
1296 PROPERTIES
1297 Name #CustClassificationId
1298 Table #CustTable
1299 ExtendedDataType
1300 ARRAY
1301 #CustClassificationId
1302 #
1303 ENDARRAY
1304 ENDPROPERTIES
1305
1306 FIELD #InterCompanyDirectDelivery
1307 Id 92
1308 ENUM
1309 PROPERTIES
1310 Name #InterCompanyDirectDelivery
1311 Table #CustTable
1312 ExtendedDataType
1313 ARRAY
1314 #InterCompanyDirectDelivery
1315 #
1316 ENDARRAY
1317 EnumType #NoYes
1318 ENDPROPERTIES
1319
1320 FIELD #EnterpriseNumber
1321 Id 93
1322 STRING
1323 PROPERTIES
1324 Name #EnterpriseNumber
1325 Table #CustTable
1326 ExtendedDataType
1327 ARRAY
1328 #TaxEnterpriseNumber
1329 #
1330 ENDARRAY
1331 StringSize #50
1332 ENDPROPERTIES
1333
1334 FIELD #ShipCarrierAccount
1335 Id 94
1336 STRING
1337 PROPERTIES
1338 Name #ShipCarrierAccount
1339 ConfigurationKey #ShipCarrier
1340 Table #CustTable
1341 ExtendedDataType
1342 ARRAY
1343 #ShipCarrierAccount
1344 #
1345 ENDARRAY
1346 StringSize #25
1347 ENDPROPERTIES
1348
1349 FIELD #GiroTypeProjInvoice
1350 Id 95
1351 ENUM
1352 PROPERTIES
1353 Name #GiroTypeProjInvoice
1354 Table #CustTable
1355 ExtendedDataType
1356 ARRAY
1357 #PaymentStubProjId
1358 #
1359 ENDARRAY
1360 EnumType #PaymentStub
1361 ENDPROPERTIES
1362
1363 FIELD #InventSiteId
1364 Id 96
1365 STRING
1366 PROPERTIES
1367 Name #InventSiteId
1368 Table #CustTable
1369 ExtendedDataType
1370 ARRAY
1371 #InventSiteId
1372 #
1373 ENDARRAY
1374 ENDPROPERTIES
1375
1376 FIELD #OrderEntryDeadlineGroupId
1377 Id 97
1378 STRING
1379 PROPERTIES
1380 Name #OrderEntryDeadlineGroupId
1381 HelpText #@SYS109916
1382 Table #CustTable
1383 ExtendedDataType
1384 ARRAY
1385 #InventOrderEntryDeadlineGroupId
1386 #
1387 ENDARRAY
1388 ENDPROPERTIES
1389
1390 FIELD #ShipCarrierId
1391 Id 98
1392 STRING
1393 PROPERTIES
1394 Name #ShipCarrierId
1395 AllowEdit #No
1396 ConfigurationKey #ShipCarrier
1397 Table #CustTable
1398 ExtendedDataType
1399 ARRAY
1400 #ShipCarrierId
1401 #
1402 ENDARRAY
1403 ENDPROPERTIES
1404
1405 FIELD #ShipCarrierFuelSurcharge
1406 Id 99
1407 ENUM
1408 PROPERTIES
1409 Name #ShipCarrierFuelSurcharge
1410 ConfigurationKey #ShipCarrier
1411 Table #CustTable
1412 ExtendedDataType
1413 ARRAY
1414 #ShipCarrierFuelSurcharge
1415 #
1416 ENDARRAY
1417 EnumType #NoYes
1418 ENDPROPERTIES
1419
1420 FIELD #ShipCarrierBlindShipment
1421 Id 100
1422 ENUM
1423 PROPERTIES
1424 Name #ShipCarrierBlindShipment
1425 ConfigurationKey #ShipCarrier
1426 Table #CustTable
1427 ExtendedDataType
1428 ARRAY
1429 #ShipCarrierBlindShipment
1430 #
1431 ENDARRAY
1432 EnumType #NoYes
1433 ENDPROPERTIES
1434
1435 FIELD #PartyType
1436 Id 101
1437 ENUM
1438 PROPERTIES
1439 Name #PartyType
1440 Mandatory #Yes
1441 AllowEdit #No
1442 Table #CustTable
1443 EnumType #DirPartyType
1444 ENDPROPERTIES
1445
1446 FIELD #PartyId
1447 Id 102
1448 STRING
1449 PROPERTIES
1450 Name #PartyId
1451 AllowEdit #No
1452 Table #CustTable
1453 ExtendedDataType
1454 ARRAY
1455 #DirPartyId
1456 #
1457 ENDARRAY
1458 StringSize #20
1459 ENDPROPERTIES
1460
1461 FIELD #ShipCarrierAccountCode
1462 Id 103
1463 STRING
1464 PROPERTIES
1465 Name #ShipCarrierAccountCode
1466 ConfigurationKey #ShipCarrier
1467 Table #CustTable
1468 ExtendedDataType
1469 ARRAY
1470 #ShipCarrierAccountCode
1471 #
1472 ENDARRAY
1473 StringSize #20
1474 ENDPROPERTIES
1475
1476 FIELD #ProjPriceGroup
1477 Id 104
1478 STRING
1479 PROPERTIES
1480 Name #ProjPriceGroup
1481 Table #CustTable
1482 ExtendedDataType
1483 ARRAY
1484 #ProjPriceGroupID
1485 #
1486 ENDARRAY
1487 ENDPROPERTIES
1488
1489 FIELD #GiroTypeFreeTextInvoice
1490 Id 105
1491 ENUM
1492 PROPERTIES
1493 Name #GiroTypeFreeTextInvoice
1494 Label #@SYP2562
1495 HelpText #@SYP2563
1496 Table #CustTable
1497 ExtendedDataType
1498 ARRAY
1499 #PaymentStubInvoiceId
1500 #
1501 ENDARRAY
1502 EnumType #PaymentStub
1503 ENDPROPERTIES
1504
1505 FIELD #SyncEntityId
1506 Id 106
1507 GUID
1508 PROPERTIES
1509 Name #SyncEntityId
1510 Table #CustTable
1511 ExtendedDataType
1512 ARRAY
1513 #SyncEntityId
1514 #
1515 ENDARRAY
1516 ENDPROPERTIES
1517
1518 FIELD #SyncVersion
1519 Id 107
1520 INT64
1521 PROPERTIES
1522 Name #SyncVersion
1523 Table #CustTable
1524 ExtendedDataType
1525 ARRAY
1526 #SyncVersion
1527 #
1528 ENDARRAY
1529 ENDPROPERTIES
1530
1531 FIELD #Memo
1532 Id 108
1533 STRING
1534 PROPERTIES
1535 Name #Memo
1536 ConfigurationKey #SmmCRM
1537 Table #CustTable
1538 ExtendedDataType
1539 ARRAY
1540 #smmBusRelMemo
1541 #
1542 ENDARRAY
1543 StringSize #(Memo)
1544 ENDPROPERTIES
1545
1546 FIELD #SalesDistrictId
1547 Id 109
1548 STRING
1549 PROPERTIES
1550 Name #SalesDistrictId
1551 ConfigurationKey #SmmCRM
1552 Table #CustTable
1553 ExtendedDataType
1554 ARRAY
1555 #smmSalesDistrictId
1556 #
1557 ENDARRAY
1558 StringSize #20
1559 ENDPROPERTIES
1560
1561 FIELD #SegmentId
1562 Id 110
1563 STRING
1564 PROPERTIES
1565 Name #SegmentId
1566 ConfigurationKey #SmmCRM
1567 Table #CustTable
1568 ExtendedDataType
1569 ARRAY
1570 #smmSegmentId
1571 #
1572 ENDARRAY
1573 StringSize #20
1574 ENDPROPERTIES
1575
1576 FIELD #SubsegmentId
1577 Id 111
1578 STRING
1579 PROPERTIES
1580 Name #SubsegmentId
1581 ConfigurationKey #SmmCRM
1582 Table #CustTable
1583 ExtendedDataType
1584 ARRAY
1585 #smmSubsegmentId
1586 #
1587 ENDARRAY
1588 StringSize #20
1589 ENDPROPERTIES
1590
1591 FIELD #RFIDItemTagging
1592 Id 112
1593 ENUM
1594 PROPERTIES
1595 Name #RFIDItemTagging
1596 Table #CustTable
1597 ExtendedDataType
1598 ARRAY
1599 #RFIDItemTagging
1600 #
1601 ENDARRAY
1602 EnumType #NoYes
1603 ENDPROPERTIES
1604
1605 FIELD #RFIDCaseTagging
1606 Id 113
1607 ENUM
1608 PROPERTIES
1609 Name #RFIDCaseTagging
1610 Table #CustTable
1611 ExtendedDataType
1612 ARRAY
1613 #RFIDCaseTagging
1614 #
1615 ENDARRAY
1616 EnumType #NoYes
1617 ENDPROPERTIES
1618
1619 FIELD #RFIDPalletTagging
1620 Id 114
1621 ENUM
1622 PROPERTIES
1623 Name #RFIDPalletTagging
1624 Table #CustTable
1625 ExtendedDataType
1626 ARRAY
1627 #RFIDPalletTagging
1628 #
1629 ENDARRAY
1630 EnumType #NoYes
1631 ENDPROPERTIES
1632
1633 FIELD #CompanyChainId
1634 Id 115
1635 STRING
1636 PROPERTIES
1637 Name #CompanyChainId
1638 Table #CustTable
1639 ExtendedDataType
1640 ARRAY
1641 #smmChainId
1642 #
1643 ENDARRAY
1644 StringSize #20
1645 ENDPROPERTIES
1646
1647 FIELD #MainContactId
1648 Id 116
1649 STRING
1650 PROPERTIES
1651 Name #MainContactId
1652 Table #CustTable
1653 ExtendedDataType
1654 ARRAY
1655 #smmBusRelAccResponsible
1656 #
1657 ENDARRAY
1658 StringSize #20
1659 ENDPROPERTIES
1660
1661 FIELD #CompanyIdSiret
1662 Id 117
1663 STRING
1664 PROPERTIES
1665 Name #CompanyIdSiret
1666 Table #CustTable
1667 AnalysisVisibility #Low
1668 ExtendedDataType
1669 ARRAY
1670 #CompanyIdSiret
1671 #
1672 ENDARRAY
1673 StringSize #14
1674 ENDPROPERTIES
1675
1676 FIELD #CompanyIdNAF
1677 Id 118
1678 STRING
1679 PROPERTIES
1680 Name #CompanyIdNAF
1681 Table #CustTable
1682 AnalysisVisibility #Low
1683 ExtendedDataType
1684 ARRAY
1685 #CompanyIdNAF
1686 #
1687 ENDARRAY
1688 StringSize #4
1689 ENDPROPERTIES
1690
1691 FIELD #IdentificationNumber
1692 Id 122
1693 STRING
1694 PROPERTIES
1695 Name #IdentificationNumber
1696 Table #CustTable
1697 ExtendedDataType
1698 ARRAY
1699 #CustIdentificationNumber
1700 #
1701 ENDARRAY
1702 StringSize #50
1703 ENDPROPERTIES
1704
1705 FIELD #PartyCountry
1706 Id 123
1707 STRING
1708 PROPERTIES
1709 Name #PartyCountry
1710 Table #CustTable
1711 ExtendedDataType
1712 ARRAY
1713 #AddressCountryRegionId
1714 #
1715 ENDARRAY
1716 ENDPROPERTIES
1717
1718 FIELD #PartyState
1719 Id 124
1720 STRING
1721 PROPERTIES
1722 Name #PartyState
1723 Table #CustTable
1724 ExtendedDataType
1725 ARRAY
1726 #AddressStateId
1727 #
1728 ENDARRAY
1729 ENDPROPERTIES
1730
1731 FIELD #OrgId
1732 Id 127
1733 STRING
1734 PROPERTIES
1735 Name #OrgId
1736 Table #CustTable
1737 ExtendedDataType
1738 ARRAY
1739 #OrgId
1740 #
1741 ENDARRAY
1742 ENDPROPERTIES
1743
1744 FIELD #PaymIdType
1745 Id 128
1746 STRING
1747 PROPERTIES
1748 Name #PaymIdType
1749 Table #CustTable
1750 ExtendedDataType
1751 ARRAY
1752 #BankCustPaymIdType
1753 #
1754 ENDARRAY
1755 ENDPROPERTIES
1756
1757 FIELD #FactoringAccount
1758 Id 129
1759 STRING
1760 PROPERTIES
1761 Name #FactoringAccount
1762 Table #CustTable
1763 ExtendedDataType
1764 ARRAY
1765 #BankCustFactoringAccount
1766 #
1767 ENDARRAY
1768 StringSize #25
1769 ENDPROPERTIES
1770
1771 FIELD #DEL_NPIBankingPaymIdType
1772 Id 130
1773 STRING
1774 PROPERTIES
1775 Name #DEL_NPIBankingPaymIdType
1776 ConfigurationKey #SysDeletedObjects40
1777 Table #CustTable
1778 ExtendedDataType
1779 ARRAY
1780 #BankCustPaymIdType
1781 #
1782 ENDARRAY
1783 ENDPROPERTIES
1784
1785 FIELD #DEL_NPIBankingFactoringAccount
1786 Id 131
1787 STRING
1788 PROPERTIES
1789 Name #DEL_NPIBankingFactoringAccount
1790 ConfigurationKey #SysDeletedObjects40
1791 Table #CustTable
1792 ExtendedDataType
1793 ARRAY
1794 #BankCustFactoringAccount
1795 #
1796 ENDARRAY
1797 StringSize #25
1798 ENDPROPERTIES
1799
1800 FIELD #GiroTypeAccountStatement
1801 Id 153
1802 ENUM
1803 PROPERTIES
1804 Name #GiroTypeAccountStatement
1805 Table #CustTable
1806 ExtendedDataType
1807 ARRAY
1808 #PaymentStubAccountStatementId
1809 #
1810 ENDARRAY
1811 EnumType #PaymentStub
1812 ENDPROPERTIES
1813
1814 FIELD #CompanyType_MX
1815 Id 272
1816 ENUM
1817 PROPERTIES
1818 Name #CompanyType_MX
1819 Table #CustTable
1820 EnumType #CompanyType_MX
1821 ENDPROPERTIES
1822
1823 FIELD #RFC_MX
1824 Id 273
1825 STRING
1826 PROPERTIES
1827 Name #RFC_MX
1828 Table #CustTable
1829 ExtendedDataType
1830 ARRAY
1831 #RFC_MX
1832 #
1833 ENDARRAY
1834 StringSize #13
1835 ENDPROPERTIES
1836
1837 FIELD #CURP_MX
1838 Id 274
1839 STRING
1840 PROPERTIES
1841 Name #CURP_MX
1842 Table #CustTable
1843 ExtendedDataType
1844 ARRAY
1845 #CURP_MX
1846 #
1847 ENDARRAY
1848 StringSize #18
1849 ENDPROPERTIES
1850
1851 FIELD #StateInscription_MX
1852 Id 275
1853 STRING
1854 PROPERTIES
1855 Name #StateInscription_MX
1856 Table #CustTable
1857 ExtendedDataType
1858 ARRAY
1859 #StateInscription_MX
1860 #
1861 ENDARRAY
1862 StringSize #30
1863 ENDPROPERTIES
1864
1865 FIELD #ResidenceForeignCountryRegionId_IT
1866 Id 276
1867 STRING
1868 PROPERTIES
1869 Name #ResidenceForeignCountryRegionId_IT
1870 Label #@SYS81763
1871 HelpText #@SYP4491
1872 ConfigurationKey #CRSEItaly
1873 Table #CustTable
1874 ExtendedDataType
1875 ARRAY
1876 #AddressCountryRegionId
1877 #
1878 ENDARRAY
1879 ENDPROPERTIES
1880
1881 FIELD #BirthCountyCode_IT
1882 Id 280
1883 STRING
1884 PROPERTIES
1885 Name #BirthCountyCode_IT
1886 Label #@SYP4006
1887 HelpText #@SYP4007
1888 Table #CustTable
1889 ExtendedDataType
1890 ARRAY
1891 #AddressCountyCode_IT
1892 #
1893 ENDARRAY
1894 StringSize #2
1895 ENDPROPERTIES
1896
1897 FIELD #BirthDate_IT
1898 Id 281
1899 DATE
1900 PROPERTIES
1901 Name #BirthDate_IT
1902 Label #@SYS78855
1903 HelpText #@SYP4458
1904 ConfigurationKey #CRSEItaly
1905 Table #CustTable
1906 ExtendedDataType
1907 ARRAY
1908 #TransDate
1909 #
1910 ENDARRAY
1911 ENDPROPERTIES
1912
1913 FIELD #BirthPlace_IT
1914 Id 282
1915 STRING
1916 PROPERTIES
1917 Name #BirthPlace_IT
1918 Label #@SYS81761
1919 HelpText #@SYP4459
1920 ConfigurationKey #CRSEItaly
1921 Table #CustTable
1922 ExtendedDataType
1923 ARRAY
1924 #AddressCity
1925 #
1926 ENDARRAY
1927 StringSize #60
1928 ENDPROPERTIES
1929
1930 FIELD #EInvoice
1931 Id 289
1932 ENUM
1933 PROPERTIES
1934 Name #EInvoice
1935 Label #@EGU42879
1936 HelpText #@SYP4533
1937 ConfigurationKey #CRSENorway
1938 Table #CustTable
1939 ExtendedDataType
1940 ARRAY
1941 #NoYesId
1942 #
1943 ENDARRAY
1944 EnumType #NoYes
1945 ENDPROPERTIES
1946
1947 FIELD #PBACustGroupId
1948 Id 8002
1949 STRING
1950 PROPERTIES
1951 Name #PBACustGroupId
1952 Table #CustTable
1953 ExtendedDataType
1954 ARRAY
1955 #PBACustGroupId
1956 #
1957 ENDARRAY
1958 ENDPROPERTIES
1959
1960 FIELD #EGH_PublicIdentification
1961 Id 20001
1962 ENUM
1963 PROPERTIES
1964 Name #EGH_PublicIdentification
1965 Label #@EGU53
1966 Table #CustTable
1967 EnumType #EGH_PublicIdentification
1968 ENDPROPERTIES
1969
1970 FIELD #EGH_IdentifyNum
1971 Id 20002
1972 STRING
1973 PROPERTIES
1974 Name #EGH_IdentifyNum
1975 Table #CustTable
1976 ExtendedDataType
1977 ARRAY
1978 #EGH_IdentifyNum
1979 #
1980 ENDARRAY
1981 StringSize #20
1982 ENDPROPERTIES
1983
1984 FIELD #EGH_SummaryInvoice
1985 Id 20003
1986 ENUM
1987 PROPERTIES
1988 Name #EGH_SummaryInvoice
1989 Label #@EGU54
1990 HelpText #@EGU55
1991 ConfigurationKey #EGH_XellentProject
1992 Table #CustTable
1993 EnumType #NoYes
1994 ENDPROPERTIES
1995
1996 FIELD #DEL_EGH_NotatFilMarkering
1997 Id 20004
1998 ENUM
1999 PROPERTIES
2000 Name #DEL_EGH_NotatFilMarkering
2001 Label #@EGU636
2002 HelpText #@EGU637
2003 AllowEditOnCreate #No
2004 AllowEdit #No
2005 ConfigurationKey #EGH_XellentProject
2006 Table #CustTable
2007 EnumType #NoYes
2008 ENDPROPERTIES
2009
2010 FIELD #EXU_ContractTemplateNum
2011 Id 20005
2012 STRING
2013 PROPERTIES
2014 Name #EXU_ContractTemplateNum
2015 Table #CustTable
2016 ExtendedDataType
2017 ARRAY
2018 #EXU_ContractTemplateNum
2019 #
2020 ENDARRAY
2021 ENDPROPERTIES
2022
2023 FIELD #EXU_ResponsibleEmplId
2024 Id 20006
2025 STRING
2026 PROPERTIES
2027 Name #EXU_ResponsibleEmplId
2028 Table #CustTable
2029 ExtendedDataType
2030 ARRAY
2031 #EXU_ResponsibleEmplId
2032 #
2033 ENDARRAY
2034 StringSize #20
2035 ENDPROPERTIES
2036
2037 FIELD #EXU_AdditionalName
2038 Id 20007
2039 STRING
2040 PROPERTIES
2041 Name #EXU_AdditionalName
2042 Table #CustTable
2043 ExtendedDataType
2044 ARRAY
2045 #EXU_AdditionalName
2046 #
2047 ENDARRAY
2048 StringSize #60
2049 ENDPROPERTIES
2050
2051 FIELD #EXU_AlternativeCustomerCode
2052 Id 20008
2053 ENUM
2054 PROPERTIES
2055 Name #EXU_AlternativeCustomerCode
2056 Table #CustTable
2057 EnumType #EXU_AlternativeCustomerCode
2058 ENDPROPERTIES
2059
2060 FIELD #EXU_DEL_PNumber
2061 Id 20009
2062 INT
2063 PROPERTIES
2064 Name #EXU_DEL_PNumber
2065 Table #CustTable
2066 ExtendedDataType
2067 ARRAY
2068 #EXU_PNumber
2069 #
2070 ENDARRAY
2071 ENDPROPERTIES
2072
2073 FIELD #EXU_AlternativeCustomerNumber
2074 Id 20010
2075 STRING
2076 PROPERTIES
2077 Name #EXU_AlternativeCustomerNumber
2078 Table #CustTable
2079 ExtendedDataType
2080 ARRAY
2081 #EXU_AlternativeCustomerNumberStr
2082 #
2083 ENDARRAY
2084 StringSize #15
2085 ENDPROPERTIES
2086
2087 FIELD #EGH_WeighingFee
2088 Id 20011
2089 ENUM
2090 PROPERTIES
2091 Name #EGH_WeighingFee
2092 Label #@EGU1407
2093 HelpText #@EGU1416
2094 ConfigurationKey #EGH_XellentProject
2095 Table #CustTable
2096 EnumType #NoYes
2097 ENDPROPERTIES
2098
2099 FIELD #EXU_PNumber
2100 Id 20012
2101 STRING
2102 PROPERTIES
2103 Name #EXU_PNumber
2104 Table #CustTable
2105 ExtendedDataType
2106 ARRAY
2107 #EXU_PNumberStr
2108 #
2109 ENDARRAY
2110 ENDPROPERTIES
2111
2112 FIELD #EXU_AutoWebPassword
2113 Id 20013
2114 STRING
2115 PROPERTIES
2116 Name #EXU_AutoWebPassword
2117 Table #CustTable
2118 ExtendedDataType
2119 ARRAY
2120 #EXU_AutoWebPassword
2121 #
2122 ENDARRAY
2123 StringSize #20
2124 ENDPROPERTIES
2125
2126 FIELD #EXU_TechnicTxt3
2127 Id 20014
2128 STRING
2129 PROPERTIES
2130 Name #EXU_TechnicTxt3
2131 Label #@EGU7942
2132 Table #CustTable
2133 ExtendedDataType
2134 ARRAY
2135 #EXU_UtilInstTechnicTxt
2136 #
2137 ENDARRAY
2138 StringSize #30
2139 ENDPROPERTIES
2140
2141 FIELD #EXU_TechnicTxt2
2142 Id 20015
2143 STRING
2144 PROPERTIES
2145 Name #EXU_TechnicTxt2
2146 Label #@EGU7941
2147 Table #CustTable
2148 ExtendedDataType
2149 ARRAY
2150 #EXU_UtilInstTechnicTxt
2151 #
2152 ENDARRAY
2153 StringSize #30
2154 ENDPROPERTIES
2155
2156 FIELD #EXU_TechnicTxt1
2157 Id 20016
2158 STRING
2159 PROPERTIES
2160 Name #EXU_TechnicTxt1
2161 Label #@EGU7939
2162 Table #CustTable
2163 ExtendedDataType
2164 ARRAY
2165 #EXU_UtilInstTechnicTxt
2166 #
2167 ENDARRAY
2168 StringSize #30
2169 ENDPROPERTIES
2170
2171 FIELD #EXU_TechnicTxt4
2172 Id 20017
2173 STRING
2174 PROPERTIES
2175 Name #EXU_TechnicTxt4
2176 Label #@EGU7943
2177 Table #CustTable
2178 ExtendedDataType
2179 ARRAY
2180 #EXU_UtilInstTechnicTxt
2181 #
2182 ENDARRAY
2183 StringSize #30
2184 ENDPROPERTIES
2185
2186 FIELD #EXU_TechnicReal3
2187 Id 20018
2188 REAL
2189 PROPERTIES
2190 Name #EXU_TechnicReal3
2191 Label #@EGU7950
2192 Table #CustTable
2193 ExtendedDataType
2194 ARRAY
2195 #EXU_UtilInstTechnicReal
2196 #
2197 ENDARRAY
2198 ENDPROPERTIES
2199
2200 FIELD #EXU_TechnicReal2
2201 Id 20019
2202 REAL
2203 PROPERTIES
2204 Name #EXU_TechnicReal2
2205 Label #@EGU7949
2206 Table #CustTable
2207 ExtendedDataType
2208 ARRAY
2209 #EXU_UtilInstTechnicReal
2210 #
2211 ENDARRAY
2212 ENDPROPERTIES
2213
2214 FIELD #EXU_TechnicReal1
2215 Id 20020
2216 REAL
2217 PROPERTIES
2218 Name #EXU_TechnicReal1
2219 Label #@EGU7948
2220 Table #CustTable
2221 ExtendedDataType
2222 ARRAY
2223 #EXU_UtilInstTechnicReal
2224 #
2225 ENDARRAY
2226 ENDPROPERTIES
2227
2228 FIELD #EXU_TechnicReal4
2229 Id 20021
2230 REAL
2231 PROPERTIES
2232 Name #EXU_TechnicReal4
2233 Label #@EGU7951
2234 Table #CustTable
2235 ExtendedDataType
2236 ARRAY
2237 #EXU_UtilInstTechnicReal
2238 #
2239 ENDARRAY
2240 ENDPROPERTIES
2241
2242 FIELD #EXU_TechnicGroup3
2243 Id 20022
2244 STRING
2245 PROPERTIES
2246 Name #EXU_TechnicGroup3
2247 Label #@EGU7937
2248 Table #CustTable
2249 ExtendedDataType
2250 ARRAY
2251 #EXU_UtilInstTechnicGroup
2252 #
2253 ENDARRAY
2254 ENDPROPERTIES
2255
2256 FIELD #EXU_TechnicGroup2
2257 Id 20023
2258 STRING
2259 PROPERTIES
2260 Name #EXU_TechnicGroup2
2261 Label #@EGU7936
2262 Table #CustTable
2263 ExtendedDataType
2264 ARRAY
2265 #EXU_UtilInstTechnicGroup
2266 #
2267 ENDARRAY
2268 ENDPROPERTIES
2269
2270 FIELD #EXU_TechnicGroup1
2271 Id 20024
2272 STRING
2273 PROPERTIES
2274 Name #EXU_TechnicGroup1
2275 Label #@EGU7934
2276 Table #CustTable
2277 ExtendedDataType
2278 ARRAY
2279 #EXU_UtilInstTechnicGroup
2280 #
2281 ENDARRAY
2282 ENDPROPERTIES
2283
2284 FIELD #EXU_TechnicGroup4
2285 Id 20025
2286 STRING
2287 PROPERTIES
2288 Name #EXU_TechnicGroup4
2289 Label #@EGU7938
2290 Table #CustTable
2291 ExtendedDataType
2292 ARRAY
2293 #EXU_UtilInstTechnicGroup
2294 #
2295 ENDARRAY
2296 ENDPROPERTIES
2297
2298 FIELD #EXU_TechnicMemo1
2299 Id 20026
2300 STRING
2301 PROPERTIES
2302 Name #EXU_TechnicMemo1
2303 Label #@EGU9432
2304 Table #CustTable
2305 ExtendedDataType
2306 ARRAY
2307 #EXU_Str1999
2308 #
2309 ENDARRAY
2310 StringSize #1999
2311 ENDPROPERTIES
2312
2313 FIELD #EXU_TechnicMemo2
2314 Id 20027
2315 STRING
2316 PROPERTIES
2317 Name #EXU_TechnicMemo2
2318 Label #@EGU12677
2319 Table #CustTable
2320 ExtendedDataType
2321 ARRAY
2322 #EXU_Str1999
2323 #
2324 ENDARRAY
2325 StringSize #1999
2326 ENDPROPERTIES
2327
2328 FIELD #EXU_Arrears
2329 Id 20028
2330 ENUM
2331 PROPERTIES
2332 Name #EXU_Arrears
2333 Table #CustTable
2334 ExtendedDataType
2335 ARRAY
2336 #EXU_Arrears
2337 #
2338 ENDARRAY
2339 EnumType #NoYes
2340 ENDPROPERTIES
2341
2342 FIELD #EXU_TechnicDate1
2343 Id 20029
2344 DATE
2345 PROPERTIES
2346 Name #EXU_TechnicDate1
2347 Label #@EGU9042
2348 Table #CustTable
2349 ExtendedDataType
2350 ARRAY
2351 #EXU_UtilInstTechnicDate
2352 #
2353 ENDARRAY
2354 ENDPROPERTIES
2355
2356 FIELD #EXU_TechnicDate2
2357 Id 20030
2358 DATE
2359 PROPERTIES
2360 Name #EXU_TechnicDate2
2361 Label #@EGU12772
2362 Table #CustTable
2363 ExtendedDataType
2364 ARRAY
2365 #EXU_UtilInstTechnicDate
2366 #
2367 ENDARRAY
2368 ENDPROPERTIES
2369
2370 FIELD #EXU_TechnicDate3
2371 Id 20031
2372 DATE
2373 PROPERTIES
2374 Name #EXU_TechnicDate3
2375 Label #@EGU12771
2376 Table #CustTable
2377 ExtendedDataType
2378 ARRAY
2379 #EXU_UtilInstTechnicDate
2380 #
2381 ENDARRAY
2382 ENDPROPERTIES
2383
2384 FIELD #EXU_TechnicDate4
2385 Id 20032
2386 DATE
2387 PROPERTIES
2388 Name #EXU_TechnicDate4
2389 Label #@EGU16010
2390 Table #CustTable
2391 ExtendedDataType
2392 ARRAY
2393 #EXU_UtilInstTechnicDate
2394 #
2395 ENDARRAY
2396 ENDPROPERTIES
2397
2398 FIELD #EXU_ServiceCommunicationForm
2399 Id 20033
2400 ENUM
2401 PROPERTIES
2402 Name #EXU_ServiceCommunicationForm
2403 Table #CustTable
2404 EnumType #EXU_ServiceCommunicationForm
2405 ENDPROPERTIES
2406
2407 FIELD #EXU_ElectronicDataTransmission
2408 Id 20034
2409 ENUM
2410 PROPERTIES
2411 Name #EXU_ElectronicDataTransmission
2412 Label #@EGU16216
2413 ConfigurationKey #EXU_Service
2414 Table #CustTable
2415 EnumType #NoYes
2416 ENDPROPERTIES
2417
2418 FIELD #EXU_ServiceCommunicationFilepath
2419 Id 20035
2420 STRING
2421 PROPERTIES
2422 Name #EXU_ServiceCommunicationFilepath
2423 Label #@EGU17042
2424 ConfigurationKey #EXU_Service
2425 Table #CustTable
2426 ExtendedDataType
2427 ARRAY
2428 #FilePath
2429 #
2430 ENDARRAY
2431 StringSize #259
2432 ENDPROPERTIES
2433
2434 FIELD #EXU_ServiceFirmPassword
2435 Id 20036
2436 STRING
2437 PROPERTIES
2438 Name #EXU_ServiceFirmPassword
2439 Table #CustTable
2440 ExtendedDataType
2441 ARRAY
2442 #EXU_ServiceFirmPassword
2443 #
2444 ENDARRAY
2445 StringSize #20
2446 ENDPROPERTIES
2447
2448 FIELD #EXU_KMD_OnlySameContract
2449 Id 20037
2450 ENUM
2451 PROPERTIES
2452 Name #EXU_KMD_OnlySameContract
2453 Label #@EGU18606
2454 HelpText #@EGU18604
2455 ConfigurationKey #EXU_AalborgDK
2456 Table #CustTable
2457 ExtendedDataType
2458 ARRAY
2459 #NoYesId
2460 #
2461 ENDARRAY
2462 EnumType #NoYes
2463 ENDPROPERTIES
2464
2465 FIELD #EXU_ServiceReportPrintType
2466 Id 20038
2467 ENUM
2468 PROPERTIES
2469 Name #EXU_ServiceReportPrintType
2470 ConfigurationKey #EXU_Service
2471 Table #CustTable
2472 EnumType #EXU_ServiceReportPrintType
2473 ENDPROPERTIES
2474
2475 FIELD #EXU_RobinsonDate
2476 Id 20039
2477 DATE
2478 PROPERTIES
2479 Name #EXU_RobinsonDate
2480 Table #CustTable
2481 ExtendedDataType
2482 ARRAY
2483 #EXU_RobinsonDate
2484 #
2485 ENDARRAY
2486 ENDPROPERTIES
2487
2488 FIELD #EXU_PdataSubscription
2489 Id 20040
2490 ENUM
2491 PROPERTIES
2492 Name #EXU_PdataSubscription
2493 Table #CustTable
2494 ExtendedDataType
2495 ARRAY
2496 #EXU_PdataSubscriptionNoYes
2497 #
2498 ENDARRAY
2499 EnumType #NoYes
2500 ENDPROPERTIES
2501
2502 FIELD #EXU_RKIEndDate
2503 Id 20041
2504 DATE
2505 PROPERTIES
2506 Name #EXU_RKIEndDate
2507 ConfigurationKey #EXU_XellentBilling
2508 Table #CustTable
2509 ExtendedDataType
2510 ARRAY
2511 #EXU_CustRKIEndDate
2512 #
2513 ENDARRAY
2514 ENDPROPERTIES
2515
2516 FIELD #EXU_RKIStartDate
2517 Id 20042
2518 DATE
2519 PROPERTIES
2520 Name #EXU_RKIStartDate
2521 ConfigurationKey #EXU_XellentBilling
2522 Table #CustTable
2523 ExtendedDataType
2524 ARRAY
2525 #EXU_CustRKIStartDate
2526 #
2527 ENDARRAY
2528 ENDPROPERTIES
2529
2530 FIELD #EXU_RKI
2531 Id 20043
2532 ENUM
2533 PROPERTIES
2534 Name #EXU_RKI
2535 ConfigurationKey #EXU_XellentBilling
2536 Table #CustTable
2537 ExtendedDataType
2538 ARRAY
2539 #EXU_CustRKI
2540 #
2541 ENDARRAY
2542 EnumType #boolean
2543 ENDPROPERTIES
2544
2545 FIELD #EXU_RKIUserId
2546 Id 20044
2547 STRING
2548 PROPERTIES
2549 Name #EXU_RKIUserId
2550 AllowEditOnCreate #No
2551 AllowEdit #No
2552 ConfigurationKey #EXU_XellentBilling
2553 Table #CustTable
2554 ExtendedDataType
2555 ARRAY
2556 #EXU_CustRKIUserId
2557 #
2558 ENDARRAY
2559 StringSize #5
2560 ENDPROPERTIES
2561
2562 FIELD #EnableInternetLogin
2563 Id 20045
2564 ENUM
2565 PROPERTIES
2566 Name #EnableInternetLogin
2567 Label #@EXP7383
2568 HelpText #@EXP7540
2569 ConfigurationKey #EXU_EXP
2570 Table #CustTable
2571 ExtendedDataType
2572 ARRAY
2573 #NoYesId
2574 #
2575 ENDARRAY
2576 EnumType #NoYes
2577 ENDPROPERTIES
2578
2579 FIELD #EXU_RobinsonListEnrolled
2580 Id 20046
2581 ENUM
2582 PROPERTIES
2583 Name #EXU_RobinsonListEnrolled
2584 Table #CustTable
2585 ExtendedDataType
2586 ARRAY
2587 #EXU_RobinsonListEnrolled
2588 #
2589 ENDARRAY
2590 EnumType #boolean
2591 ENDPROPERTIES
2592
2593 FIELD #EXU_CustAddressProtected
2594 Id 20047
2595 ENUM
2596 PROPERTIES
2597 Name #EXU_CustAddressProtected
2598 Table #CustTable
2599 ExtendedDataType
2600 ARRAY
2601 #EXU_CustAddressProtected
2602 #
2603 ENDARRAY
2604 EnumType #boolean
2605 ENDPROPERTIES
2606
2607 FIELD #EGS_AutogiroCustBankAccountId
2608 Id 20048
2609 STRING
2610 PROPERTIES
2611 Name #EGS_AutogiroCustBankAccountId
2612 AllowEditOnCreate #No
2613 AllowEdit #No
2614 ConfigurationKey #EXU_VAR
2615 Table #CustTable
2616 ExtendedDataType
2617 ARRAY
2618 #CustBankAccountId
2619 #
2620 ENDARRAY
2621 ENDPROPERTIES
2622
2623 FIELD #EGS_AutogiroPaymentNumber
2624 Id 20049
2625 STRING
2626 PROPERTIES
2627 Name #EGS_AutogiroPaymentNumber
2628 AllowEditOnCreate #No
2629 AllowEdit #No
2630 Table #CustTable
2631 ExtendedDataType
2632 ARRAY
2633 #EGS_AutogiroPaymentNumber
2634 #
2635 ENDARRAY
2636 StringSize #12
2637 ENDPROPERTIES
2638
2639 FIELD #EGS_AutogiroTransDate
2640 Id 20050
2641 DATE
2642 PROPERTIES
2643 Name #EGS_AutogiroTransDate
2644 Label #@EGU10503
2645 AllowEditOnCreate #No
2646 AllowEdit #No
2647 ConfigurationKey #EXU_VAR
2648 Table #CustTable
2649 ExtendedDataType
2650 ARRAY
2651 #TransDate
2652 #
2653 ENDARRAY
2654 ENDPROPERTIES
2655
2656 FIELD #EGS_AutogiroStatus
2657 Id 20051
2658 ENUM
2659 PROPERTIES
2660 Name #EGS_AutogiroStatus
2661 AllowEditOnCreate #No
2662 AllowEdit #No
2663 ConfigurationKey #EXU_VAR
2664 Table #CustTable
2665 EnumType #EGS_AutogiroStatus
2666 ENDPROPERTIES
2667
2668 FIELD #EGS_KUBAStartDate
2669 Id 20052
2670 DATE
2671 PROPERTIES
2672 Name #EGS_KUBAStartDate
2673 Table #CustTable
2674 ExtendedDataType
2675 ARRAY
2676 #EGS_KUBAStartDate
2677 #
2678 ENDARRAY
2679 ENDPROPERTIES
2680
2681 FIELD #EGS_KUBAStatus
2682 Id 20053
2683 ENUM
2684 PROPERTIES
2685 Name #EGS_KUBAStatus
2686 ConfigurationKey #EXU_BillingSweden
2687 Table #CustTable
2688 EnumType #EGS_KUBAStatus
2689 ENDPROPERTIES
2690
2691 FIELD #EGS_Protect
2692 Id 20054
2693 ENUM
2694 PROPERTIES
2695 Name #EGS_Protect
2696 Table #CustTable
2697 ExtendedDataType
2698 ARRAY
2699 #EGS_Protect
2700 #
2701 ENDARRAY
2702 EnumType #NoYes
2703 ENDPROPERTIES
2704
2705 FIELD #EGS_Death
2706 Id 20055
2707 ENUM
2708 PROPERTIES
2709 Name #EGS_Death
2710 Label #@EGS4170
2711 Table #CustTable
2712 EnumType #NoYes
2713 ENDPROPERTIES
2714
2715 FIELD #EGS_Dateofdeath
2716 Id 20056
2717 DATE
2718 PROPERTIES
2719 Name #EGS_Dateofdeath
2720 Label #@SYS35824
2721 Table #CustTable
2722 ExtendedDataType
2723 ARRAY
2724 #EXU_Date
2725 #
2726 ENDARRAY
2727 ENDPROPERTIES
2728
2729 FIELD #EGS_ExpectedConsumptionPerYear
2730 Id 20057
2731 REAL
2732 PROPERTIES
2733 Name #EGS_ExpectedConsumptionPerYear
2734 Label #@EGS1489
2735 AllowEdit #No
2736 ConfigurationKey #EXU_VAR
2737 Table #CustTable
2738 ExtendedDataType
2739 ARRAY
2740 #EXU_ExpectedConsumptionPerYear
2741 #
2742 ENDARRAY
2743 ENDPROPERTIES
2744
2745 FIELD #EGS_GiroTypePaymentCase
2746 Id 20058
2747 ENUM
2748 PROPERTIES
2749 Name #EGS_GiroTypePaymentCase
2750 ConfigurationKey #EGS_CustGiro_SE
2751 Table #CustTable
2752 ExtendedDataType
2753 ARRAY
2754 #EGS_PaymentStubPaymentCaseId
2755 #
2756 ENDARRAY
2757 EnumType #PaymentStub
2758 ENDPROPERTIES
2759
2760 FIELD #EGS_EnergyAccountStartDate
2761 Id 20059
2762 DATE
2763 PROPERTIES
2764 Name #EGS_EnergyAccountStartDate
2765 Label #@SYS95815
2766 HelpText #@EGS6299
2767 ConfigurationKey #EGS_IntegrationEnergyAccount
2768 Table #CustTable
2769 ExtendedDataType
2770 ARRAY
2771 #TransDate
2772 #
2773 ENDARRAY
2774 ENDPROPERTIES
2775
2776 FIELD #EGS_EnergyAccountStopDate
2777 Id 20060
2778 DATE
2779 PROPERTIES
2780 Name #EGS_EnergyAccountStopDate
2781 Label #@EGU41446
2782 HelpText #@EGS6301
2783 ConfigurationKey #EGS_IntegrationEnergyAccount
2784 Table #CustTable
2785 ExtendedDataType
2786 ARRAY
2787 #TransDate
2788 #
2789 ENDARRAY
2790 ENDPROPERTIES
2791
2792 FIELD #EGS_EnergyAccountExportDate
2793 Id 20061
2794 DATE
2795 PROPERTIES
2796 Name #EGS_EnergyAccountExportDate
2797 Label #@SYS95619
2798 HelpText #@EGS6302
2799 ConfigurationKey #EGS_IntegrationEnergyAccount
2800 Table #CustTable
2801 ExtendedDataType
2802 ARRAY
2803 #TransDate
2804 #
2805 ENDARRAY
2806 ENDPROPERTIES
2807
2808 FIELD #EGS_EnergyAccount
2809 Id 20062
2810 ENUM
2811 PROPERTIES
2812 Name #EGS_EnergyAccount
2813 Label #@EGU41447
2814 HelpText #@EGS6304
2815 ConfigurationKey #EGS_IntegrationEnergyAccount
2816 Table #CustTable
2817 ExtendedDataType
2818 ARRAY
2819 #NoYesId
2820 #
2821 ENDARRAY
2822 EnumType #NoYes
2823 ENDPROPERTIES
2824
2825 FIELD #EGS_EnergyAccountCustInfoFile
2826 Id 20063
2827 ENUM
2828 PROPERTIES
2829 Name #EGS_EnergyAccountCustInfoFile
2830 Label #@EGU41453
2831 HelpText #@EGS6306
2832 ConfigurationKey #EGS_IntegrationEnergyAccount
2833 Table #CustTable
2834 ExtendedDataType
2835 ARRAY
2836 #NoYesId
2837 #
2838 ENDARRAY
2839 EnumType #NoYes
2840 ENDPROPERTIES
2841
2842 FIELD #EGS_EnergyAccountCustUpdated
2843 Id 20064
2844 ENUM
2845 PROPERTIES
2846 Name #EGS_EnergyAccountCustUpdated
2847 Label #@EGU41449
2848 HelpText #@EGS6308
2849 ConfigurationKey #EGS_IntegrationEnergyAccount
2850 Table #CustTable
2851 ExtendedDataType
2852 ARRAY
2853 #NoYesId
2854 #
2855 ENDARRAY
2856 EnumType #NoYes
2857 ENDPROPERTIES
2858
2859 FIELD #EGS_EnergyAccountStatus
2860 Id 20065
2861 ENUM
2862 PROPERTIES
2863 Name #EGS_EnergyAccountStatus
2864 ConfigurationKey #EGS_IntegrationEnergyAccount
2865 Table #CustTable
2866 ExtendedDataType
2867 ARRAY
2868 #EGS_EnergyAccStatus
2869 #
2870 ENDARRAY
2871 EnumType #EGS_EnergyAccountStatus
2872 ENDPROPERTIES
2873
2874 FIELD #EGS_EnergyAccountPaymModeOld
2875 Id 20066
2876 STRING
2877 PROPERTIES
2878 Name #EGS_EnergyAccountPaymModeOld
2879 Label #@EGS6356
2880 HelpText #@EGS6357
2881 ConfigurationKey #EGS_IntegrationEnergyAccount
2882 Table #CustTable
2883 ExtendedDataType
2884 ARRAY
2885 #CustPaymMode
2886 #
2887 ENDARRAY
2888 ENDPROPERTIES
2889
2890 FIELD #EGS_Volume
2891 Id 20067
2892 REAL
2893 PROPERTIES
2894 Name #EGS_Volume
2895 Label #@EGS6368
2896 Table #CustTable
2897 ExtendedDataType
2898 ARRAY
2899 #Volume
2900 #
2901 ENDARRAY
2902 ENDPROPERTIES
2903
2904 FIELD #EGS_VolumeLocked
2905 Id 20068
2906 ENUM
2907 PROPERTIES
2908 Name #EGS_VolumeLocked
2909 Label #@EGS6364
2910 Table #CustTable
2911 ExtendedDataType
2912 ARRAY
2913 #NoYesId
2914 #
2915 ENDARRAY
2916 EnumType #NoYes
2917 ENDPROPERTIES
2918
2919 FIELD #EGS_EnergyAccountMove
2920 Id 20069
2921 ENUM
2922 PROPERTIES
2923 Name #EGS_EnergyAccountMove
2924 Label #@EGS460
2925 HelpText #@EGS6430
2926 ConfigurationKey #EGS_IntegrationEnergyAccount
2927 Table #CustTable
2928 ExtendedDataType
2929 ARRAY
2930 #NoYesId
2931 #
2932 ENDARRAY
2933 EnumType #NoYes
2934 ENDPROPERTIES
2935
2936 FIELD #EGS_EnergyAccountDisconnect
2937 Id 20070
2938 ENUM
2939 PROPERTIES
2940 Name #EGS_EnergyAccountDisconnect
2941 Label #@EGS1232
2942 HelpText #@EGS6431
2943 ConfigurationKey #EGS_IntegrationEnergyAccount
2944 Table #CustTable
2945 ExtendedDataType
2946 ARRAY
2947 #NoYesId
2948 #
2949 ENDARRAY
2950 EnumType #NoYes
2951 ENDPROPERTIES
2952
2953 FIELD #EGS_MovingInAgreement
2954 Id 20071
2955 ENUM
2956 PROPERTIES
2957 Name #EGS_MovingInAgreement
2958 Label #@EGU41972
2959 HelpText #@EGU41973
2960 ConfigurationKey #EGS_RealEstateOwner
2961 Table #CustTable
2962 EnumType #NoYes
2963 ENDPROPERTIES
2964
2965 FIELD #EXU_Nemkonto
2966 Id 20072
2967 ENUM
2968 PROPERTIES
2969 Name #EXU_Nemkonto
2970 Label #@EGU38057
2971 ConfigurationKey #EXU_Nemkonto
2972 Table #CustTable
2973 ExtendedDataType
2974 ARRAY
2975 #NoYesId
2976 #
2977 ENDARRAY
2978 EnumType #NoYes
2979 ENDPROPERTIES
2980
2981 FIELD #EXU_CustOIOformat
2982 Id 20073
2983 ENUM
2984 PROPERTIES
2985 Name #EXU_CustOIOformat
2986 ConfigurationKey #eInvoiceDK
2987 Table #CustTable
2988 EnumType #EXU_CustOIOformat
2989 ENDPROPERTIES
2990
2991 FIELD #EXU_OwnerEmail
2992 Id 20074
2993 STRING
2994 PROPERTIES
2995 Name #EXU_OwnerEmail
2996 Label #@EGU41974
2997 HelpText #@EGU41975
2998 Table #CustTable
2999 ExtendedDataType
3000 ARRAY
3001 #Email
3002 #
3003 ENDARRAY
3004 StringSize #80
3005 ENDPROPERTIES
3006
3007 FIELD #EXU_GiroTypeBalanceStatement
3008 Id 20075
3009 ENUM
3010 PROPERTIES
3011 Name #EXU_GiroTypeBalanceStatement
3012 Table #CustTable
3013 ExtendedDataType
3014 ARRAY
3015 #EXU_PaymentStubBalanceStatementId
3016 #
3017 ENDARRAY
3018 EnumType #PaymentStub
3019 ENDPROPERTIES
3020
3021 FIELD #EXU_GiroTypePaymentCase
3022 Id 20076
3023 ENUM
3024 PROPERTIES
3025 Name #EXU_GiroTypePaymentCase
3026 Table #CustTable
3027 ExtendedDataType
3028 ARRAY
3029 #EXU_PaymentStubPaymentCaseId
3030 #
3031 ENDARRAY
3032 EnumType #PaymentStub
3033 ENDPROPERTIES
3034
3035 FIELD #EXU_EInvoiceUtilityType
3036 Id 20080
3037 ENUM
3038 PROPERTIES
3039 Name #EXU_EInvoiceUtilityType
3040 Label #@EGU42009
3041 ConfigurationKey #eInvoiceDK
3042 Table #CustTable
3043 EnumType #EXU_EInvoiceUtilityType
3044 ENDPROPERTIES
3045
3046 FIELD #EXU_ContactPermissionViasat
3047 Id 20081
3048 ENUM
3049 PROPERTIES
3050 Name #EXU_ContactPermissionViasat
3051 Table #CustTable
3052 ExtendedDataType
3053 ARRAY
3054 #EXU_ContactPermissionViasat
3055 #
3056 ENDARRAY
3057 EnumType #NoYes
3058 ENDPROPERTIES
3059
3060 FIELD #EXU_NoMovingInFee
3061 Id 20084
3062 ENUM
3063 PROPERTIES
3064 Name #EXU_NoMovingInFee
3065 Table #CustTable
3066 ExtendedDataType
3067 ARRAY
3068 #EXU_NoMovingInFee
3069 #
3070 ENDARRAY
3071 EnumType #NoYes
3072 ENDPROPERTIES
3073
3074 FIELD #EGS_SMSInvoice
3075 Id 20085
3076 STRING
3077 PROPERTIES
3078 Name #EGS_SMSInvoice
3079 Table #CustTable
3080 ExtendedDataType
3081 ARRAY
3082 #EGS_SMSInvoice
3083 #
3084 ENDARRAY
3085 StringSize #15
3086 ENDPROPERTIES
3087
3088 FIELD #EGS_eMailInvoice
3089 Id 20086
3090 STRING
3091 PROPERTIES
3092 Name #EGS_eMailInvoice
3093 Table #CustTable
3094 ExtendedDataType
3095 ARRAY
3096 #EGS_eMailInvoice
3097 #
3098 ENDARRAY
3099 StringSize #80
3100 ENDPROPERTIES
3101
3102 FIELD #EGS_WelcomeMultiInstallation
3103 Id 20087
3104 ENUM
3105 PROPERTIES
3106 Name #EGS_WelcomeMultiInstallation
3107 ConfigurationKey #EGS_ExtendedWelcomeLetter
3108 Table #CustTable
3109 EnumType #EGS_WelcomeMultiInstallation
3110 ENDPROPERTIES
3111
3112 FIELD #EGS_AlternativeCustomerCode_2
3113 Id 20088
3114 ENUM
3115 PROPERTIES
3116 Name #EGS_AlternativeCustomerCode_2
3117 Label #@EGS8152
3118 ConfigurationKey #EGS_EInvoice_otherPayer
3119 Table #CustTable
3120 EnumType #EXU_AlternativeCustomerCode
3121 ENDPROPERTIES
3122
3123 FIELD #EGS_AlternativeCustomerNumber_2
3124 Id 20089
3125 STRING
3126 PROPERTIES
3127 Name #EGS_AlternativeCustomerNumber_2
3128 Label #@EGS8151
3129 ConfigurationKey #EGS_EInvoice_otherPayer
3130 Table #CustTable
3131 ExtendedDataType
3132 ARRAY
3133 #EXU_AlternativeCustomerNumberStr
3134 #
3135 ENDARRAY
3136 StringSize #15
3137 ENDPROPERTIES
3138
3139 FIELD #EGS_LockAddress
3140 Id 20090
3141 ENUM
3142 PROPERTIES
3143 Name #EGS_LockAddress
3144 Table #CustTable
3145 ExtendedDataType
3146 ARRAY
3147 #EGS_LockAddress
3148 #
3149 ENDARRAY
3150 EnumType #NoYes
3151 ENDPROPERTIES
3152
3153 FIELD #EGS_LockCustAddress
3154 Id 20091
3155 ENUM
3156 PROPERTIES
3157 Name #EGS_LockCustAddress
3158 Label #@EGS8316
3159 Table #CustTable
3160 ExtendedDataType
3161 ARRAY
3162 #EGS_LockAddress
3163 #
3164 ENDARRAY
3165 EnumType #NoYes
3166 ENDPROPERTIES
3167
3168 ENDFIELDS
3169 GROUPS
3170 GROUP #AutoReport
3171 PROPERTIES
3172 Name #AutoReport
3173 ENDPROPERTIES
3174
3175 GROUPFIELDS
3176 #AccountNum
3177 #OrgId
3178 #Name
3179 #Address
3180 #Phone
3181 #Currency
3182 #CustGroup
3183 ENDGROUPFIELDS
3184 ENDGROUP
3185 GROUP #AutoLookup
3186 PROPERTIES
3187 Name #AutoLookup
3188 ENDPROPERTIES
3189
3190 GROUPFIELDS
3191 #AccountNum
3192 #Name
3193 #CustGroup
3194 #OurAccountNum
3195 #Phone
3196 #PartyId
3197 #NameAlias
3198 ENDGROUPFIELDS
3199 ENDGROUP
3200 GROUP #Address
3201 PROPERTIES
3202 Name #Address
3203 Label #@SYS9362
3204 ENDPROPERTIES
3205
3206 GROUPFIELDS
3207 #Street
3208 #ZipCode
3209 #City
3210 #County
3211 #State
3212 #CountryRegionId
3213 ENDGROUPFIELDS
3214 ENDGROUP
3215 GROUP #AddressDisplay
3216 PROPERTIES
3217 Name #AddressDisplay
3218 Label #@SYS9362
3219 ENDPROPERTIES
3220
3221 GROUPFIELDS
3222 #Address
3223 ENDGROUPFIELDS
3224 ENDGROUP
3225 GROUP #AddressLookup
3226 PROPERTIES
3227 Name #AddressLookup
3228 Label #@SYS88672
3229 ENDPROPERTIES
3230
3231 GROUPFIELDS
3232 #AccountNum
3233 #Name
3234 #NameAlias
3235 ENDGROUPFIELDS
3236 ENDGROUP
3237 GROUP #Administration
3238 PROPERTIES
3239 Name #Administration
3240 Label #@SYS9853
3241 ENDPROPERTIES
3242
3243 GROUPFIELDS
3244 #Blocked
3245 #OneTimeCustomer
3246 #StatisticsGroup
3247 #AccountStatement
3248 #ForecastDMPInclude
3249 #EGH_WeighingFee
3250 #EXU_RobinsonListEnrolled
3251 #EXU_CustAddressProtected
3252 #EXU_NoMovingInFee
3253 #EGS_WelcomeMultiInstallation
3254 #EGS_LockAddress
3255 #EGS_LockCustAddress
3256 ENDGROUPFIELDS
3257 ENDGROUP
3258 GROUP #Budget
3259 PROPERTIES
3260 Name #Budget
3261 Label #@SYS15436
3262 ENDPROPERTIES
3263
3264 GROUPFIELDS
3265 #ClearingPeriod
3266 ENDGROUPFIELDS
3267 ENDGROUP
3268 GROUP #CarrierInfo
3269 PROPERTIES
3270 Name #CarrierInfo
3271 Label #@SYS50722
3272 ENDPROPERTIES
3273
3274 GROUPFIELDS
3275 #ShipCarrierId
3276 #ShipCarrierAccountCode
3277 #ShipCarrierAccount
3278 #ShipCarrierBlindShipment
3279 ENDGROUPFIELDS
3280 ENDGROUP
3281 GROUP #Classification
3282 PROPERTIES
3283 Name #Classification
3284 Label #@SYS81508
3285 ENDPROPERTIES
3286
3287 GROUPFIELDS
3288 #CustClassificationId
3289 ENDGROUPFIELDS
3290 ENDGROUP
3291 GROUP #CompanyChain
3292 PROPERTIES
3293 Name #CompanyChain
3294 Label #@SYS105799
3295 ENDPROPERTIES
3296
3297 GROUPFIELDS
3298 #CompanyChainId
3299 ENDGROUPFIELDS
3300 ENDGROUP
3301 GROUP #ContactInfo
3302 PROPERTIES
3303 Name #ContactInfo
3304 Label #@SYS21663
3305 ENDPROPERTIES
3306
3307 GROUPFIELDS
3308 #Phone
3309 #PhoneLocal
3310 #CellularPhone
3311 #Pager
3312 #TeleFax
3313 #Email
3314 #SMS
3315 #URL
3316 #Telex
3317 #ContactPersonId
3318 #editContactPersonName
3319 #LineOfBusinessId
3320 #CompanyIdSiret
3321 #CompanyIdNAF
3322 #ResidenceForeignCountryRegionId_IT
3323 #BirthDate_IT
3324 #BirthPlace_IT
3325 #BirthCountyCode_IT
3326 #EXU_ContactPermissionViasat
3327 ENDGROUPFIELDS
3328 ENDGROUP
3329 GROUP #Credit
3330 PROPERTIES
3331 Name #Credit
3332 Label #@SYS7084
3333 ENDPROPERTIES
3334
3335 GROUPFIELDS
3336 #MandatoryCreditLimit
3337 #CreditRating
3338 #CreditMax
3339 ENDGROUPFIELDS
3340 ENDGROUP
3341 GROUP #Currency
3342 PROPERTIES
3343 Name #Currency
3344 Label #@sys7572
3345 ENDPROPERTIES
3346
3347 GROUPFIELDS
3348 #Currency
3349 ENDGROUPFIELDS
3350 ENDGROUP
3351 GROUP #Customer
3352 PROPERTIES
3353 Name #Customer
3354 Label #@SYS302
3355 ENDPROPERTIES
3356
3357 GROUPFIELDS
3358 #LanguageId
3359 ENDGROUPFIELDS
3360 ENDGROUP
3361 GROUP #CustomerSelfService
3362 PROPERTIES
3363 Name #CustomerSelfService
3364 Label #@SYS58654
3365 ENDPROPERTIES
3366
3367 GROUPFIELDS
3368 #WebSalesOrderDisplay
3369 ENDGROUPFIELDS
3370 ENDGROUP
3371 GROUP #Deleted
3372 PROPERTIES
3373 Name #Deleted
3374 Label #@SYS4197
3375 ENDPROPERTIES
3376
3377 GROUPFIELDS
3378 #DEL_NPIBankingPaymIdType
3379 #DEL_NPIBankingFactoringAccount
3380 ENDGROUPFIELDS
3381 ENDGROUP
3382 GROUP #Delivery
3383 PROPERTIES
3384 Name #Delivery
3385 Label #@SYS4508
3386 ENDPROPERTIES
3387
3388 GROUPFIELDS
3389 #FreightZone
3390 #DlvTerm
3391 #DlvMode
3392 #DlvReason
3393 #DestinationCodeId
3394 #SalesCalendarId
3395 #ShipCarrierFuelSurcharge
3396 ENDGROUPFIELDS
3397 ENDGROUP
3398 GROUP #DeliveryTerms
3399 PROPERTIES
3400 Name #DeliveryTerms
3401 Label #@SYS27703
3402 ENDPROPERTIES
3403
3404 GROUPFIELDS
3405 #PaymTermId
3406 #PaymMode
3407 #PaymSpec
3408 #PaymSched
3409 #CashDisc
3410 #BankAccount
3411 #PaymDayId
3412 ENDGROUPFIELDS
3413 ENDGROUP
3414 GROUP #Description
3415 PROPERTIES
3416 Name #Description
3417 Label #@SYS7576
3418 ENDPROPERTIES
3419
3420 GROUPFIELDS
3421 #EXU_AdditionalName
3422 #Name
3423 #NameAlias
3424 ENDGROUPFIELDS
3425 ENDGROUP
3426 GROUP #Dimension
3427 PROPERTIES
3428 Name #Dimension
3429 Label #@SYS5951
3430 ENDPROPERTIES
3431
3432 GROUPFIELDS
3433 #Dimension
3434 ENDGROUPFIELDS
3435 ENDGROUP
3436 GROUP #EGS_Autogiro
3437 PROPERTIES
3438 Name #EGS_Autogiro
3439 Label #@EGS80
3440 ENDPROPERTIES
3441
3442 GROUPFIELDS
3443 #EGS_AutogiroCustBankAccountId
3444 #EGS_AutogiroPaymentNumber
3445 #EGS_AutogiroTransDate
3446 #EGS_AutogiroStatus
3447 ENDGROUPFIELDS
3448 ENDGROUP
3449 GROUP #EGS_DistributionMethod
3450 PROPERTIES
3451 Name #EGS_DistributionMethod
3452 Label #@EGS6961
3453 ENDPROPERTIES
3454
3455 GROUPFIELDS
3456 #EGS_SMSInvoice
3457 #EGS_eMailInvoice
3458 ENDGROUPFIELDS
3459 ENDGROUP
3460 GROUP #EGS_EnergyAccount
3461 PROPERTIES
3462 Name #EGS_EnergyAccount
3463 Label #@EGU41447
3464 ENDPROPERTIES
3465
3466 GROUPFIELDS
3467 #EGS_EnergyAccount
3468 #EGS_EnergyAccountStartDate
3469 #EGS_EnergyAccountStatus
3470 #EGS_EnergyAccountCustInfoFile
3471 #EGS_EnergyAccountExportDate
3472 #EGS_EnergyAccountCustUpdated
3473 #PaymMode
3474 #EGS_EnergyAccountStopDate
3475 #EGS_EnergyAccountMove
3476 #EGS_EnergyAccountDisconnect
3477 ENDGROUPFIELDS
3478 ENDGROUP
3479 GROUP #EGS_KUBA
3480 PROPERTIES
3481 Name #EGS_KUBA
3482 Label #@EGS272
3483 ENDPROPERTIES
3484
3485 GROUPFIELDS
3486 #EGS_KUBAStatus
3487 #EGS_KUBAStartDate
3488 ENDGROUPFIELDS
3489 ENDGROUP
3490 GROUP #EGS_MovingInAgreement
3491 PROPERTIES
3492 Name #EGS_MovingInAgreement
3493 Label #@EGU37066
3494 ENDPROPERTIES
3495
3496 GROUPFIELDS
3497 #EGS_MovingInAgreement
3498 #EXU_OwnerEmail
3499 ENDGROUPFIELDS
3500 ENDGROUP
3501 GROUP #EGS_Protect
3502 PROPERTIES
3503 Name #EGS_Protect
3504 Label #@EGU41515
3505 ENDPROPERTIES
3506
3507 GROUPFIELDS
3508 #EGS_Protect
3509 ENDGROUPFIELDS
3510 ENDGROUP
3511 GROUP #EGS_Volume
3512 PROPERTIES
3513 Name #EGS_Volume
3514 Label #@EGS6368
3515 ENDPROPERTIES
3516
3517 GROUPFIELDS
3518 #EGS_Volume
3519 #EGS_VolumeLocked
3520 ENDGROUPFIELDS
3521 ENDGROUP
3522 GROUP #Einvoice
3523 PROPERTIES
3524 Name #Einvoice
3525 Label #@EGU42878
3526 ENDPROPERTIES
3527
3528 GROUPFIELDS
3529 #EinvoiceEANNum
3530 #EXU_CustOIOformat
3531 #EXU_EInvoiceUtilityType
3532 #EInvoice
3533 ENDGROUPFIELDS
3534 ENDGROUP
3535 GROUP #EPCharacteristics
3536 PROPERTIES
3537 Name #EPCharacteristics
3538 Label #@SYS108232
3539 ENDPROPERTIES
3540
3541 GROUPFIELDS
3542 #AccountNum
3543 #PartyId
3544 #PartyType
3545 #Name
3546 #CustGroup
3547 #Currency
3548 #LanguageId
3549 #CustClassificationId
3550 #Memo
3551 ENDGROUPFIELDS
3552 ENDGROUP
3553 GROUP #EPCharacteristics2
3554 PROPERTIES
3555 Name #EPCharacteristics2
3556 Label #@SYS108232
3557 ENDPROPERTIES
3558
3559 GROUPFIELDS
3560 #SegmentId
3561 #SubsegmentId
3562 #CompanyChainId
3563 #SalesDistrictId
3564 #MainContactId
3565 ENDGROUPFIELDS
3566 ENDGROUP
3567 GROUP #EPContactInfo
3568 PROPERTIES
3569 Name #EPContactInfo
3570 Label #@SYS21663
3571 ENDPROPERTIES
3572
3573 GROUPFIELDS
3574 #Phone
3575 #CellularPhone
3576 #TeleFax
3577 #URL
3578 #Email
3579 ENDGROUPFIELDS
3580 ENDGROUP
3581 GROUP #EPContactInfoAddEdit
3582 PROPERTIES
3583 Name #EPContactInfoAddEdit
3584 Label #@SYS21663
3585 ENDPROPERTIES
3586
3587 GROUPFIELDS
3588 #Phone
3589 #PhoneLocal
3590 #CellularPhone
3591 #Pager
3592 #TeleFax
3593 #Email
3594 #SMS
3595 #URL
3596 #Telex
3597 #ContactPersonId
3598 #editContactPersonName
3599 #LineOfBusinessId
3600 ENDGROUPFIELDS
3601 ENDGROUP
3602 GROUP #EPCreditInfo
3603 PROPERTIES
3604 Name #EPCreditInfo
3605 Label #@SYS7084
3606 ENDPROPERTIES
3607
3608 GROUPFIELDS
3609 #creditMaxCur
3610 #balanceAllCurrency
3611 ENDGROUPFIELDS
3612 ENDGROUP
3613 GROUP #EPCustomer
3614 PROPERTIES
3615 Name #EPCustomer
3616 Label #@SYS53631
3617 ENDPROPERTIES
3618
3619 GROUPFIELDS
3620 #CustGroup
3621 #LanguageId
3622 #Currency
3623 #Blocked
3624 ENDGROUPFIELDS
3625 ENDGROUP
3626 GROUP #EPFrench
3627 PROPERTIES
3628 Name #EPFrench
3629 Label #@SYS21663
3630 ENDPROPERTIES
3631
3632 GROUPFIELDS
3633 #CompanyIdSiret
3634 #CompanyIdNAF
3635 ENDGROUPFIELDS
3636 ENDGROUP
3637 GROUP #EPGeneral3
3638 PROPERTIES
3639 Name #EPGeneral3
3640 Label #@SYS108232
3641 ENDPROPERTIES
3642
3643 GROUPFIELDS
3644 #MandatoryCreditLimit
3645 #CreditRating
3646 #CreditMax
3647 #Blocked
3648 #OneTimeCustomer
3649 #StatisticsGroup
3650 #AccountStatement
3651 #ForecastDMPInclude
3652 ENDGROUPFIELDS
3653 ENDGROUP
3654 GROUP #EPMiniPage
3655 PROPERTIES
3656 Name #EPMiniPage
3657 Label #@SYS108232
3658 ENDPROPERTIES
3659
3660 GROUPFIELDS
3661 #Name
3662 #CustGroup
3663 #Address
3664 #Phone
3665 #PhoneLocal
3666 #Email
3667 #URL
3668 ENDGROUPFIELDS
3669 ENDGROUP
3670 GROUP #EPPayment1
3671 PROPERTIES
3672 Name #EPPayment1
3673 Label #@SYS108232
3674 ENDPROPERTIES
3675
3676 GROUPFIELDS
3677 #PaymTermId
3678 #PaymMode
3679 #PaymSpec
3680 ENDGROUPFIELDS
3681 ENDGROUP
3682 GROUP #EPPayment2
3683 PROPERTIES
3684 Name #EPPayment2
3685 Label #@SYS108232
3686 ENDPROPERTIES
3687
3688 GROUPFIELDS
3689 #PaymSched
3690 #PaymDayId
3691 #CashDisc
3692 #BankAccount
3693 ENDGROUPFIELDS
3694 ENDGROUP
3695 GROUP #EPSetup1
3696 PROPERTIES
3697 Name #EPSetup1
3698 Label #@SYS108232
3699 ENDPROPERTIES
3700
3701 GROUPFIELDS
3702 #InvoiceAccount
3703 #InvoiceAddress
3704 #numberSequenceGroup
3705 #GiroType
3706 #GiroTypeFreeTextInvoice
3707 #GiroTypeInterestNote
3708 #GiroTypeCollectionletter
3709 #GiroTypeProjInvoice
3710 ENDGROUPFIELDS
3711 ENDGROUP
3712 GROUP #EPSetup2
3713 PROPERTIES
3714 Name #EPSetup2
3715 Label #@SYS108232
3716 ENDPROPERTIES
3717
3718 GROUPFIELDS
3719 #FreightZone
3720 #DlvTerm
3721 #DlvMode
3722 #DlvReason
3723 #DestinationCodeId
3724 #SalesCalendarId
3725 #TaxGroup
3726 #VATNum
3727 #EnterpriseNumber
3728 #InclTax
3729 #TaxLicenseNum
3730 #FiscalCode
3731 #TaxBorderNumber_FI
3732 ENDGROUPFIELDS
3733 ENDGROUP
3734 GROUP #EPSetup3
3735 PROPERTIES
3736 Name #EPSetup3
3737 Label #@SYS108232
3738 ENDPROPERTIES
3739
3740 GROUPFIELDS
3741 #RFIDItemTagging
3742 #RFIDCaseTagging
3743 #RFIDPalletTagging
3744 #InterCompanyAutoCreateOrders
3745 #InterCompanyDirectDelivery
3746 #InterCompanyAllowIndirectCreation
3747 #EinvoiceEANNum
3748 #PackMaterialFeeLicenseNum
3749 ENDGROUPFIELDS
3750 ENDGROUP
3751 GROUP #ExpandIT
3752 PROPERTIES
3753 Name #ExpandIT
3754 Label #@EXP7332
3755 ENDPROPERTIES
3756
3757 GROUPFIELDS
3758 #EnableInternetLogin
3759 ENDGROUPFIELDS
3760 ENDGROUP
3761 GROUP #EXU_AlternateCustomerAccount
3762 PROPERTIES
3763 Name #EXU_AlternateCustomerAccount
3764 Label #@EGU12328
3765 ENDPROPERTIES
3766
3767 GROUPFIELDS
3768 #EXU_AlternativeCustomerCode
3769 #EXU_AlternativeCustomerNumber
3770 #EGS_AlternativeCustomerCode_2
3771 #EGS_AlternativeCustomerNumber_2
3772 #EXU_PNumber
3773 ENDGROUPFIELDS
3774 ENDGROUP
3775 GROUP #EXU_Billing
3776 PROPERTIES
3777 Name #EXU_Billing
3778 Label #@EGU7806
3779 ENDPROPERTIES
3780
3781 GROUPFIELDS
3782 #EXU_ContractTemplateNum
3783 #EXU_ResponsibleEmplId
3784 #EXU_Nemkonto
3785 ENDGROUPFIELDS
3786 ENDGROUP
3787 GROUP #EXU_BusinessSensitiveLookup
3788 PROPERTIES
3789 Name #EXU_BusinessSensitiveLookup
3790 Label #@SYS19920
3791 ENDPROPERTIES
3792
3793 GROUPFIELDS
3794 #AccountNum
3795 #Name
3796 #EXU_AdditionalName
3797 #NameAlias
3798 #Address
3799 #Phone
3800 #PhoneLocal
3801 #CellularPhone
3802 ENDGROUPFIELDS
3803 ENDGROUP
3804 GROUP #EXU_Inactive
3805 PROPERTIES
3806 Name #EXU_Inactive
3807 Label #@EGS4401
3808 ENDPROPERTIES
3809
3810 GROUPFIELDS
3811 #EGS_Death
3812 #EGS_Dateofdeath
3813 ENDGROUPFIELDS
3814 ENDGROUP
3815 GROUP #EXU_KMD
3816 PROPERTIES
3817 Name #EXU_KMD
3818 Label #@EGU18607
3819 ENDPROPERTIES
3820
3821 GROUPFIELDS
3822 #EXU_KMD_OnlySameContract
3823 ENDGROUPFIELDS
3824 ENDGROUP
3825 GROUP #EXU_RKI
3826 PROPERTIES
3827 Name #EXU_RKI
3828 Label #@EGU21175
3829 ENDPROPERTIES
3830
3831 GROUPFIELDS
3832 #EXU_RKI
3833 #EXU_RKIStartDate
3834 #EXU_RKIEndDate
3835 #EXU_RKIUserId
3836 ENDGROUPFIELDS
3837 ENDGROUP
3838 GROUP #EXU_ServiceCommunication
3839 PROPERTIES
3840 Name #EXU_ServiceCommunication
3841 Label #@EGU35997
3842 ENDPROPERTIES
3843
3844 GROUPFIELDS
3845 #EXU_ServiceCommunicationForm
3846 #EXU_ServiceCommunicationFilepath
3847 #EXU_ServiceReportPrintType
3848 #EXU_ElectronicDataTransmission
3849 #EXU_ServiceFirmPassword
3850 ENDGROUPFIELDS
3851 ENDGROUP
3852 GROUP #EXU_TechnicDate
3853 PROPERTIES
3854 Name #EXU_TechnicDate
3855 Label #@EGU20467
3856 ENDPROPERTIES
3857
3858 GROUPFIELDS
3859 #EXU_TechnicDate1
3860 #EXU_TechnicDate2
3861 #EXU_TechnicDate3
3862 #EXU_TechnicDate4
3863 ENDGROUPFIELDS
3864 ENDGROUP
3865 GROUP #EXU_TechnicGroup
3866 PROPERTIES
3867 Name #EXU_TechnicGroup
3868 Label #@EGU20466
3869 ENDPROPERTIES
3870
3871 GROUPFIELDS
3872 #EXU_TechnicGroup1
3873 #EXU_TechnicGroup2
3874 #EXU_TechnicGroup3
3875 #EXU_TechnicGroup4
3876 ENDGROUPFIELDS
3877 ENDGROUP
3878 GROUP #EXU_TechnicMemo
3879 PROPERTIES
3880 Name #EXU_TechnicMemo
3881 Label #@EGU20465
3882 ENDPROPERTIES
3883
3884 GROUPFIELDS
3885 #EXU_TechnicMemo1
3886 #EXU_TechnicMemo2
3887 ENDGROUPFIELDS
3888 ENDGROUP
3889 GROUP #EXU_TechnicReal
3890 PROPERTIES
3891 Name #EXU_TechnicReal
3892 Label #@EGU20464
3893 ENDPROPERTIES
3894
3895 GROUPFIELDS
3896 #EXU_TechnicReal1
3897 #EXU_TechnicReal2
3898 #EXU_TechnicReal3
3899 #EXU_TechnicReal4
3900 ENDGROUPFIELDS
3901 ENDGROUP
3902 GROUP #EXU_TechnicTxt
3903 PROPERTIES
3904 Name #EXU_TechnicTxt
3905 Label #@EGU20463
3906 ENDPROPERTIES
3907
3908 GROUPFIELDS
3909 #EXU_TechnicTxt1
3910 #EXU_TechnicTxt2
3911 #EXU_TechnicTxt3
3912 #EXU_TechnicTxt4
3913 ENDGROUPFIELDS
3914 ENDGROUP
3915 GROUP #Gateway
3916 PROPERTIES
3917 Name #Gateway
3918 Label #@SYS72001
3919 ENDPROPERTIES
3920
3921 GROUPFIELDS
3922 #balanceAllCurrency
3923 ENDGROUPFIELDS
3924 ENDGROUP
3925 GROUP #GiroMoneyTransferSlip
3926 PROPERTIES
3927 Name #GiroMoneyTransferSlip
3928 Label #@SYS2723
3929 ENDPROPERTIES
3930
3931 GROUPFIELDS
3932 #GiroType
3933 #GiroTypeFreeTextInvoice
3934 #GiroTypeInterestNote
3935 #GiroTypeCollectionletter
3936 #GiroTypeProjInvoice
3937 #GiroTypeAccountStatement
3938 #EGS_GiroTypePaymentCase
3939 #EXU_GiroTypePaymentCase
3940 #EXU_GiroTypeBalanceStatement
3941 ENDGROUPFIELDS
3942 ENDGROUP
3943 GROUP #GovernmentIdentification
3944 PROPERTIES
3945 Name #GovernmentIdentification
3946 Label #@SYS114299
3947 ENDPROPERTIES
3948
3949 GROUPFIELDS
3950 #IdentificationNumber
3951 #PartyCountry
3952 #PartyState
3953 ENDGROUPFIELDS
3954 ENDGROUP
3955 GROUP #Identification
3956 PROPERTIES
3957 Name #Identification
3958 Label #@SYS5711
3959 ENDPROPERTIES
3960
3961 GROUPFIELDS
3962 #AccountNum
3963 #PartyId
3964 #PartyType
3965 #OrgId
3966 ENDGROUPFIELDS
3967 ENDGROUP
3968 GROUP #Integration
3969 PROPERTIES
3970 Name #Integration
3971 Label #@SYS104440
3972 ENDPROPERTIES
3973
3974 GROUPFIELDS
3975 #SyncVersion
3976 #SyncEntityId
3977 ENDGROUPFIELDS
3978 ENDGROUP
3979 GROUP #Intercompany
3980 PROPERTIES
3981 Name #Intercompany
3982 Label #@SYS74106
3983 ENDPROPERTIES
3984
3985 GROUPFIELDS
3986 #InterCompanyAutoCreateOrders
3987 #InterCompanyDirectDelivery
3988 #InterCompanyAllowIndirectCreation
3989 ENDGROUPFIELDS
3990 ENDGROUP
3991 GROUP #Inventory
3992 PROPERTIES
3993 Name #Inventory
3994 Label #@SYS981
3995 ENDPROPERTIES
3996
3997 GROUPFIELDS
3998 #InventSiteId
3999 #InventLocation
4000 ENDGROUPFIELDS
4001 ENDGROUP
4002 GROUP #Invoice
4003 PROPERTIES
4004 Name #Invoice
4005 Label #@SYS12128
4006 ENDPROPERTIES
4007
4008 GROUPFIELDS
4009 #InvoiceAccount
4010 #InvoiceAddress
4011 #numberSequenceGroup
4012 ENDGROUPFIELDS
4013 ENDGROUP
4014 GROUP #LeadEditCustomerDetails
4015 PROPERTIES
4016 Name #LeadEditCustomerDetails
4017 Label #@SYS110471
4018 ENDPROPERTIES
4019
4020 GROUPFIELDS
4021 #Name
4022 #customerGroup
4023 #Currency
4024 #SegmentId
4025 #SubsegmentId
4026 #SalesDistrictId
4027 ENDGROUPFIELDS
4028 ENDGROUP
4029 GROUP #MainContact
4030 PROPERTIES
4031 Name #MainContact
4032 Label #@SYS105800
4033 ENDPROPERTIES
4034
4035 GROUPFIELDS
4036 #MainContactId
4037 ENDGROUPFIELDS
4038 ENDGROUP
4039 GROUP #Memo
4040 PROPERTIES
4041 Name #Memo
4042 Label #@SYS105801
4043 ENDPROPERTIES
4044
4045 GROUPFIELDS
4046 #Memo
4047 ENDGROUPFIELDS
4048 ENDGROUP
4049 GROUP #NotificationToTheCentralBank
4050 PROPERTIES
4051 Name #NotificationToTheCentralBank
4052 Label #@SYS67156
4053 ENDPROPERTIES
4054
4055 GROUPFIELDS
4056 #BankCentralBankPurposeCode
4057 #BankCentralBankPurposeText
4058 ENDGROUPFIELDS
4059 ENDGROUP
4060 GROUP #PackagingMaterialFee
4061 PROPERTIES
4062 Name #PackagingMaterialFee
4063 Label #@SYS72996
4064 ENDPROPERTIES
4065
4066 GROUPFIELDS
4067 #PackMaterialFeeLicenseNum
4068 ENDGROUPFIELDS
4069 ENDGROUP
4070 GROUP #Payment
4071 PROPERTIES
4072 Name #Payment
4073 Label #@SYS828
4074 ENDPROPERTIES
4075
4076 GROUPFIELDS
4077 #PaymTermId
4078 #PaymMode
4079 #PaymSpec
4080 #PaymSched
4081 #PaymDayId
4082 #CashDisc
4083 #BankAccount
4084 #FactoringAccount
4085 #PaymIdType
4086 #bankAccountNum
4087 ENDGROUPFIELDS
4088 ENDGROUP
4089 GROUP #Posting
4090 PROPERTIES
4091 Name #Posting
4092 Label #@SYS12919
4093 ENDPROPERTIES
4094
4095 GROUPFIELDS
4096 #CustGroup
4097 ENDGROUPFIELDS
4098 ENDGROUP
4099 GROUP #ProjPriceGroup
4100 PROPERTIES
4101 Name #ProjPriceGroup
4102 Label #@SYS80304
4103 ENDPROPERTIES
4104
4105 GROUPFIELDS
4106 #ProjPriceGroup
4107 ENDGROUPFIELDS
4108 ENDGROUP
4109 GROUP #RFIDTagging
4110 PROPERTIES
4111 Name #RFIDTagging
4112 Label #@SYS90171
4113 ENDPROPERTIES
4114
4115 GROUPFIELDS
4116 #RFIDItemTagging
4117 #RFIDCaseTagging
4118 #RFIDPalletTagging
4119 ENDGROUPFIELDS
4120 ENDGROUP
4121 GROUP #SalesDiscount
4122 PROPERTIES
4123 Name #SalesDiscount
4124 Label #@SYS14375
4125 ENDPROPERTIES
4126
4127 GROUPFIELDS
4128 #MultiLineDisc
4129 #EndDisc
4130 #PriceGroup
4131 #LineDisc
4132 ENDGROUPFIELDS
4133 ENDGROUP
4134 GROUP #SalesDistrict
4135 PROPERTIES
4136 Name #SalesDistrict
4137 Label #@SYS105802
4138 ENDPROPERTIES
4139
4140 GROUPFIELDS
4141 #SalesDistrictId
4142 ENDGROUPFIELDS
4143 ENDGROUP
4144 GROUP #SalesOrder
4145 PROPERTIES
4146 Name #SalesOrder
4147 Label #@SYS7443
4148 ENDPROPERTIES
4149
4150 GROUPFIELDS
4151 #MarkupGroup
4152 #InventSiteId
4153 #InventLocation
4154 #CustItemGroupId
4155 #CommissionGroup
4156 #SalesGroup
4157 #SalesPoolId
4158 #OurAccountNum
4159 #interCompanyCompanyId
4160 #PBACustGroupId
4161 #OrderEntryDeadlineGroupId
4162 ENDGROUPFIELDS
4163 ENDGROUP
4164 GROUP #SalesOrderOther
4165 PROPERTIES
4166 Name #SalesOrderOther
4167 Label #@SYS30289
4168 ENDPROPERTIES
4169
4170 GROUPFIELDS
4171 #SuppItemGroupId
4172 #ProjPriceGroup
4173 ENDGROUPFIELDS
4174 ENDGROUP
4175 GROUP #SalesTax
4176 PROPERTIES
4177 Name #SalesTax
4178 Label #@SYS5878
4179 ENDPROPERTIES
4180
4181 GROUPFIELDS
4182 #TaxGroup
4183 #VATNum
4184 #EnterpriseNumber
4185 #InclTax
4186 #TaxLicenseNum
4187 #FiscalCode
4188 #TaxBorderNumber_FI
4189 ENDGROUPFIELDS
4190 ENDGROUP
4191 GROUP #Segment
4192 PROPERTIES
4193 Name #Segment
4194 Label #@SYS105803
4195 ENDPROPERTIES
4196
4197 GROUPFIELDS
4198 #SegmentId
4199 ENDGROUPFIELDS
4200 ENDGROUP
4201 GROUP #Service
4202 PROPERTIES
4203 Name #Service
4204 Label #@SYS7780
4205 ENDPROPERTIES
4206
4207 GROUPFIELDS
4208 ENDGROUPFIELDS
4209 ENDGROUP
4210 GROUP #Subsegment
4211 PROPERTIES
4212 Name #Subsegment
4213 Label #@SYS105805
4214 ENDPROPERTIES
4215
4216 GROUPFIELDS
4217 #SubsegmentId
4218 ENDGROUPFIELDS
4219 ENDGROUP
4220 GROUP #SupplementaryItem
4221 PROPERTIES
4222 Name #SupplementaryItem
4223 Label #@SYS58240
4224 ENDPROPERTIES
4225
4226 GROUPFIELDS
4227 #SuppItemGroupId
4228 ENDGROUPFIELDS
4229 ENDGROUP
4230 GROUP #System
4231 PROPERTIES
4232 Name #System
4233 Label #@SYS4278
4234 ENDPROPERTIES
4235
4236 GROUPFIELDS
4237 #DEL_PrintModuleType
4238 ENDGROUPFIELDS
4239 ENDGROUP
4240 GROUP #TaxRegistration_MX
4241 PROPERTIES
4242 Name #TaxRegistration_MX
4243 Label #@SYP3479
4244 ENDPROPERTIES
4245
4246 GROUPFIELDS
4247 #CompanyType_MX
4248 #RFC_MX
4249 #CURP_MX
4250 #StateInscription_MX
4251 ENDGROUPFIELDS
4252 ENDGROUP
4253 GROUP #Vendor
4254 PROPERTIES
4255 Name #Vendor
4256 Label #@SYS9455
4257 ENDPROPERTIES
4258
4259 GROUPFIELDS
4260 #VendAccount
4261 ENDGROUPFIELDS
4262 ENDGROUP
4263 GROUP #WebCategoryBrowsing
4264 PROPERTIES
4265 Name #WebCategoryBrowsing
4266 Label #@SYS74258
4267 ENDPROPERTIES
4268
4269 GROUPFIELDS
4270 #CustGroup
4271 #Currency
4272 ENDGROUPFIELDS
4273 ENDGROUP
4274 ENDGROUPS
4275
4276 INDICES
4277 #AccountIdx
4278 Id 1
4279 PROPERTIES
4280 Name #AccountIdx
4281 AllowDuplicates #No
4282 ENDPROPERTIES
4283
4284 INDEXFIELDS
4285 #AccountNum
4286 ENDINDEXFIELDS
4287
4288 #PartyIdx
4289 Id 2
4290 PROPERTIES
4291 Name #PartyIdx
4292 ENDPROPERTIES
4293
4294 INDEXFIELDS
4295 #PartyId
4296 ENDINDEXFIELDS
4297
4298 #NameAliasIdx
4299 Id 4
4300 PROPERTIES
4301 Name #NameAliasIdx
4302 ENDPROPERTIES
4303
4304 INDEXFIELDS
4305 #NameAlias
4306 ENDINDEXFIELDS
4307
4308 #OurAccountNumIdx
4309 Id 5
4310 PROPERTIES
4311 Name #OurAccountNumIdx
4312 ENDPROPERTIES
4313
4314 INDEXFIELDS
4315 #OurAccountNum
4316 ENDINDEXFIELDS
4317
4318 #PhoneIdx
4319 Id 8001
4320 PROPERTIES
4321 Name #PhoneIdx
4322 ENDPROPERTIES
4323
4324 INDEXFIELDS
4325 #Phone
4326 #CellularPhone
4327 ENDINDEXFIELDS
4328
4329 #EXU_AltCustNumIdx
4330 Id 20001
4331 PROPERTIES
4332 Name #EXU_AltCustNumIdx
4333 ConfigurationKey #EXU_XellentBilling
4334 ENDPROPERTIES
4335
4336 INDEXFIELDS
4337 #EXU_AlternativeCustomerCode
4338 #EXU_AlternativeCustomerNumber
4339 #EXU_PNumber
4340 ENDINDEXFIELDS
4341
4342 #EXU_ZipCodeIdx
4343 Id 20002
4344 PROPERTIES
4345 Name #EXU_ZipCodeIdx
4346 ENDPROPERTIES
4347
4348 INDEXFIELDS
4349 #CountryRegionId
4350 #ZipCode
4351 #Street
4352 #EXU_RobinsonListEnrolled
4353 ENDINDEXFIELDS
4354
4355 #EXU_NameZipCodeIdx
4356 Id 20003
4357 PROPERTIES
4358 Name #EXU_NameZipCodeIdx
4359 ConfigurationKey #EXU_Trade
4360 ENDPROPERTIES
4361
4362 INDEXFIELDS
4363 #Name
4364 #ZipCode
4365 ENDINDEXFIELDS
4366
4367 #EXU_PartyAccountIdx
4368 Id 20004
4369 PROPERTIES
4370 Name #EXU_PartyAccountIdx
4371 ENDPROPERTIES
4372
4373 INDEXFIELDS
4374 #PartyId
4375 #AccountNum
4376 ENDINDEXFIELDS
4377
4378 #EGS_AltCustNum_2Idx
4379 Id 20005
4380 PROPERTIES
4381 Name #EGS_AltCustNum_2Idx
4382 ConfigurationKey #EGS_EInvoice_otherPayer
4383 ENDPROPERTIES
4384
4385 INDEXFIELDS
4386 #EGS_AlternativeCustomerCode_2
4387 #EGS_AlternativeCustomerNumber_2
4388 #EXU_PNumber
4389 ENDINDEXFIELDS
4390
4391 ENDINDICES
4392 REFERENCES
4393 REFERENCE #BankAccounts
4394 PROPERTIES
4395 Name #BankAccounts
4396 Table #CustBankAccount
4397 EntityRelationshipRole #@SYS123560
4398 ENDPROPERTIES
4399
4400 FIELDREFERENCES
4401 REFERENCETYPE NORMAL
4402 PROPERTIES
4403 Field #AccountNum
4404 RelatedField #CustAccount
4405 ENDPROPERTIES
4406
4407 REFERENCETYPE NORMAL
4408 PROPERTIES
4409 Field #BankAccount
4410 RelatedField #AccountID
4411 ENDPROPERTIES
4412
4413 ENDFIELDREFERENCES
4414 ENDREFERENCE
4415 REFERENCE #BirthCounty
4416 PROPERTIES
4417 Name #BirthCounty
4418 Table #AddressCounty
4419 ENDPROPERTIES
4420
4421 FIELDREFERENCES
4422 REFERENCETYPE NORMAL
4423 PROPERTIES
4424 Field #BirthCountyCode_IT
4425 RelatedField #CountyCode_IT
4426 ENDPROPERTIES
4427
4428 ENDFIELDREFERENCES
4429 ENDREFERENCE
4430 REFERENCE #County
4431 PROPERTIES
4432 Name #County
4433 Table #AddressCounty
4434 EntityRelationshipRole #@SYS123587
4435 ENDPROPERTIES
4436
4437 FIELDREFERENCES
4438 REFERENCETYPE NORMAL
4439 PROPERTIES
4440 Field #CountryRegionId
4441 RelatedField #CountryRegionId
4442 ENDPROPERTIES
4443
4444 REFERENCETYPE NORMAL
4445 PROPERTIES
4446 Field #State
4447 RelatedField #StateId
4448 ENDPROPERTIES
4449
4450 REFERENCETYPE NORMAL
4451 PROPERTIES
4452 Field #County
4453 RelatedField #CountyId
4454 ENDPROPERTIES
4455
4456 ENDFIELDREFERENCES
4457 ENDREFERENCE
4458 REFERENCE #CustBankAccount
4459 PROPERTIES
4460 Name #CustBankAccount
4461 Table #CustBankAccount
4462 ENDPROPERTIES
4463
4464 FIELDREFERENCES
4465 REFERENCETYPE NORMAL
4466 PROPERTIES
4467 Field #AccountNum
4468 RelatedField #CustAccount
4469 ENDPROPERTIES
4470
4471 REFERENCETYPE NORMAL
4472 PROPERTIES
4473 Field #EGS_AutogiroCustBankAccountId
4474 RelatedField #AccountID
4475 ENDPROPERTIES
4476
4477 ENDFIELDREFERENCES
4478 ENDREFERENCE
4479 REFERENCE #CustPaymentModeSpec
4480 PROPERTIES
4481 Name #CustPaymentModeSpec
4482 Table #CustPaymModeSpec
4483 EntityRelationshipRole #@SYS125116
4484 ENDPROPERTIES
4485
4486 FIELDREFERENCES
4487 REFERENCETYPE NORMAL
4488 PROPERTIES
4489 Field #PaymMode
4490 RelatedField #PaymMode
4491 ENDPROPERTIES
4492
4493 REFERENCETYPE NORMAL
4494 PROPERTIES
4495 Field #PaymSpec
4496 RelatedField #Specification
4497 ENDPROPERTIES
4498
4499 ENDFIELDREFERENCES
4500 ENDREFERENCE
4501 REFERENCE #DirPartyView
4502 PROPERTIES
4503 Name #DirPartyView
4504 Table #DirPartyView
4505 Validate #No
4506 EntityRelationshipRole #@SYS124637
4507 ENDPROPERTIES
4508
4509 FIELDREFERENCES
4510 REFERENCETYPE NORMAL
4511 PROPERTIES
4512 Field #PartyId
4513 RelatedField #PartyId
4514 ENDPROPERTIES
4515
4516 ENDFIELDREFERENCES
4517 ENDREFERENCE
4518 REFERENCE #EXU_ContractTemplate
4519 PROPERTIES
4520 Name #EXU_ContractTemplate
4521 Table #EXU_ContractTemplate
4522 ENDPROPERTIES
4523
4524 FIELDREFERENCES
4525 REFERENCETYPE NORMAL
4526 PROPERTIES
4527 Field #EXU_ContractTemplateNum
4528 RelatedField #ContractTemplateNum
4529 ENDPROPERTIES
4530
4531 ENDFIELDREFERENCES
4532 ENDREFERENCE
4533 REFERENCE #EXU_TechnicGroup1
4534 PROPERTIES
4535 Name #EXU_TechnicGroup1
4536 Table #EXU_GroupTable
4537 ENDPROPERTIES
4538
4539 FIELDREFERENCES
4540 REFERENCETYPE EXTERNFIXED
4541 PROPERTIES
4542 Value #32
4543 Table #EXU_GroupTable
4544 RelatedField #GroupCode
4545 ENDPROPERTIES
4546
4547 REFERENCETYPE NORMAL
4548 PROPERTIES
4549 Field #EXU_TechnicGroup1
4550 RelatedField #GroupNum
4551 ENDPROPERTIES
4552
4553 ENDFIELDREFERENCES
4554 ENDREFERENCE
4555 REFERENCE #EXU_TechnicGroup2
4556 PROPERTIES
4557 Name #EXU_TechnicGroup2
4558 Table #EXU_GroupTable
4559 ENDPROPERTIES
4560
4561 FIELDREFERENCES
4562 REFERENCETYPE EXTERNFIXED
4563 PROPERTIES
4564 Value #33
4565 Table #EXU_GroupTable
4566 RelatedField #GroupCode
4567 ENDPROPERTIES
4568
4569 REFERENCETYPE NORMAL
4570 PROPERTIES
4571 Field #EXU_TechnicGroup2
4572 RelatedField #GroupNum
4573 ENDPROPERTIES
4574
4575 ENDFIELDREFERENCES
4576 ENDREFERENCE
4577 REFERENCE #EXU_TechnicGroup3
4578 PROPERTIES
4579 Name #EXU_TechnicGroup3
4580 Table #EXU_GroupTable
4581 ENDPROPERTIES
4582
4583 FIELDREFERENCES
4584 REFERENCETYPE EXTERNFIXED
4585 PROPERTIES
4586 Value #34
4587 Table #EXU_GroupTable
4588 RelatedField #GroupCode
4589 ENDPROPERTIES
4590
4591 REFERENCETYPE NORMAL
4592 PROPERTIES
4593 Field #EXU_TechnicGroup3
4594 RelatedField #GroupNum
4595 ENDPROPERTIES
4596
4597 ENDFIELDREFERENCES
4598 ENDREFERENCE
4599 REFERENCE #EXU_TechnicGroup4
4600 PROPERTIES
4601 Name #EXU_TechnicGroup4
4602 Table #EXU_GroupTable
4603 ENDPROPERTIES
4604
4605 FIELDREFERENCES
4606 REFERENCETYPE EXTERNFIXED
4607 PROPERTIES
4608 Value #35
4609 Table #EXU_GroupTable
4610 RelatedField #GroupCode
4611 ENDPROPERTIES
4612
4613 REFERENCETYPE NORMAL
4614 PROPERTIES
4615 Field #EXU_TechnicGroup4
4616 RelatedField #GroupNum
4617 ENDPROPERTIES
4618
4619 ENDFIELDREFERENCES
4620 ENDREFERENCE
4621 REFERENCE #PartyState
4622 PROPERTIES
4623 Name #PartyState
4624 Table #AddressState
4625 EntityRelationshipRole #@SYS125117
4626 ENDPROPERTIES
4627
4628 FIELDREFERENCES
4629 REFERENCETYPE NORMAL
4630 PROPERTIES
4631 Field #PartyState
4632 RelatedField #StateId
4633 ENDPROPERTIES
4634
4635 REFERENCETYPE NORMAL
4636 PROPERTIES
4637 Field #PartyCountry
4638 RelatedField #CountryRegionId
4639 ENDPROPERTIES
4640
4641 ENDFIELDREFERENCES
4642 ENDREFERENCE
4643 REFERENCE #smmBusRelSubSegmentGroup
4644 PROPERTIES
4645 Name #smmBusRelSubSegmentGroup
4646 Table #smmBusRelSubSegmentGroup
4647 EntityRelationshipRole #@SYS124723
4648 ENDPROPERTIES
4649
4650 FIELDREFERENCES
4651 REFERENCETYPE NORMAL
4652 PROPERTIES
4653 Field #SubsegmentId
4654 RelatedField #SubsegmentId
4655 ENDPROPERTIES
4656
4657 REFERENCETYPE NORMAL
4658 PROPERTIES
4659 Field #SegmentId
4660 RelatedField #SegmentId
4661 ENDPROPERTIES
4662
4663 ENDFIELDREFERENCES
4664 ENDREFERENCE
4665 REFERENCE #State
4666 PROPERTIES
4667 Name #State
4668 Table #AddressState
4669 EntityRelationshipRole #@SYS123582
4670 ENDPROPERTIES
4671
4672 FIELDREFERENCES
4673 REFERENCETYPE NORMAL
4674 PROPERTIES
4675 Field #CountryRegionId
4676 RelatedField #CountryRegionId
4677 ENDPROPERTIES
4678
4679 REFERENCETYPE NORMAL
4680 PROPERTIES
4681 Field #State
4682 RelatedField #StateId
4683 ENDPROPERTIES
4684
4685 ENDFIELDREFERENCES
4686 ENDREFERENCE
4687 REFERENCE #VatNum
4688 PROPERTIES
4689 Name #VatNum
4690 Table #TaxVATNumTable
4691 EntityRelationshipRole #@SYS125042
4692 ENDPROPERTIES
4693
4694 FIELDREFERENCES
4695 REFERENCETYPE NORMAL
4696 PROPERTIES
4697 Field #VATNum
4698 RelatedField #VATNum
4699 ENDPROPERTIES
4700
4701 ENDFIELDREFERENCES
4702 ENDREFERENCE
4703 ENDREFERENCES
4704
4705 DELETEACTIONS
4706 #PrintMgmtDocInstance
4707 PROPERTIES
4708 Table #PrintMgmtDocInstance
4709 DeleteAction #Cascade
4710 ENDPROPERTIES
4711
4712 #SalesQuotationTable
4713 PROPERTIES
4714 Table #SalesQuotationTable
4715 DeleteAction #Restricted
4716 ENDPROPERTIES
4717
4718 #smmResponsibilitiesEmplTable
4719 PROPERTIES
4720 Table #smmResponsibilitiesEmplTable
4721 DeleteAction #Cascade
4722 ENDPROPERTIES
4723
4724 #InventTestAssociationTable
4725 PROPERTIES
4726 Table #InventTestAssociationTable
4727 DeleteAction #Restricted
4728 ENDPROPERTIES
4729
4730 #EGS_CustUTILTSTable
4731 PROPERTIES
4732 Table #EGS_CustUTILTSTable
4733 DeleteAction #Restricted
4734 ENDPROPERTIES
4735
4736 #KOBBaseReference
4737 PROPERTIES
4738 Table #KOBBaseReference
4739 ENDPROPERTIES
4740
4741 #CustInvoiceTable
4742 PROPERTIES
4743 Table #CustInvoiceTable
4744 DeleteAction #Restricted
4745 ENDPROPERTIES
4746
4747 #ProjInvoiceTable
4748 PROPERTIES
4749 Table #ProjInvoiceTable
4750 DeleteAction #Restricted
4751 ENDPROPERTIES
4752
4753 #SysCompanyUserInfo
4754 PROPERTIES
4755 Table #SysCompanyUserInfo
4756 DeleteAction #Cascade
4757 ENDPROPERTIES
4758
4759 #ExtCodeValueTable
4760 PROPERTIES
4761 Table #ExtCodeValueTable
4762 DeleteAction #Cascade
4763 ENDPROPERTIES
4764
4765 #EXU_ContractTable
4766 PROPERTIES
4767 Table #EXU_ContractTable
4768 DeleteAction #Restricted
4769 ENDPROPERTIES
4770
4771 #EXU_DutyAndTaxReportTable
4772 PROPERTIES
4773 Table #EXU_DutyAndTaxReportTable
4774 DeleteAction #Restricted
4775 ENDPROPERTIES
4776
4777 #EXU_Installation
4778 PROPERTIES
4779 Table #EXU_Installation
4780 DeleteAction #Restricted
4781 ENDPROPERTIES
4782
4783 #WMSBillOfLading
4784 PROPERTIES
4785 Table #WMSBillOfLading
4786 DeleteAction #Restricted
4787 ENDPROPERTIES
4788
4789 #SuppItemTable
4790 PROPERTIES
4791 Table #SuppItemTable
4792 DeleteAction #Cascade
4793 ENDPROPERTIES
4794
4795 #SalesBasket
4796 PROPERTIES
4797 Table #SalesBasket
4798 DeleteAction #Cascade
4799 ENDPROPERTIES
4800
4801 #PriceDiscAdmTrans
4802 PROPERTIES
4803 Table #PriceDiscAdmTrans
4804 DeleteAction #Cascade
4805 ENDPROPERTIES
4806
4807 #MarkupAutoTable
4808 PROPERTIES
4809 Table #MarkupAutoTable
4810 DeleteAction #Cascade
4811 ENDPROPERTIES
4812
4813 #ECPParameters
4814 PROPERTIES
4815 Table #ECPParameters
4816 DeleteAction #Restricted
4817 ENDPROPERTIES
4818
4819 #CustVendExternalItem
4820 PROPERTIES
4821 Table #CustVendExternalItem
4822 DeleteAction #Cascade
4823 ENDPROPERTIES
4824
4825 #ContactPerson
4826 PROPERTIES
4827 Table #ContactPerson
4828 DeleteAction #Cascade
4829 ENDPROPERTIES
4830
4831 #BusinessStatisticsData
4832 PROPERTIES
4833 Table #BusinessStatisticsData
4834 DeleteAction #Cascade
4835 ENDPROPERTIES
4836
4837 #ProjTable
4838 PROPERTIES
4839 Table #ProjTable
4840 DeleteAction #Restricted
4841 ENDPROPERTIES
4842
4843 #PriceDiscTable
4844 PROPERTIES
4845 Table #PriceDiscTable
4846 DeleteAction #Cascade
4847 ENDPROPERTIES
4848
4849 #ForecastSales
4850 PROPERTIES
4851 Table #ForecastSales
4852 DeleteAction #Restricted
4853 ENDPROPERTIES
4854
4855 #CommissionCalc
4856 PROPERTIES
4857 Table #CommissionCalc
4858 DeleteAction #Cascade
4859 ENDPROPERTIES
4860
4861 #CustInvoiceJour
4862 PROPERTIES
4863 Table #CustInvoiceJour
4864 DeleteAction #Restricted
4865 ENDPROPERTIES
4866
4867 #SalesTable
4868 PROPERTIES
4869 Table #SalesTable
4870 DeleteAction #Restricted
4871 ENDPROPERTIES
4872
4873 #CustLedgerAccounts
4874 PROPERTIES
4875 Table #CustLedgerAccounts
4876 DeleteAction #Cascade
4877 ENDPROPERTIES
4878
4879 #Address
4880 PROPERTIES
4881 Table #Address
4882 DeleteAction #Cascade
4883 ENDPROPERTIES
4884
4885 #CustBankAccount
4886 PROPERTIES
4887 Table #CustBankAccount
4888 DeleteAction #Cascade
4889 ENDPROPERTIES
4890
4891 #CustTrans
4892 PROPERTIES
4893 Table #CustTrans
4894 DeleteAction #Restricted
4895 ENDPROPERTIES
4896
4897 #DocuRef
4898 PROPERTIES
4899 Table #DocuRef
4900 DeleteAction #Cascade
4901 ENDPROPERTIES
4902
4903 #SalesJournalAutoSummary
4904 PROPERTIES
4905 Table #SalesJournalAutoSummary
4906 DeleteAction #Cascade
4907 ENDPROPERTIES
4908
4909 #smmBusRelTable
4910 PROPERTIES
4911 Table #smmBusRelTable
4912 DeleteAction #Cascade
4913 ENDPROPERTIES
4914
4915 #EXU_AutorisationTable
4916 PROPERTIES
4917 Table #EXU_AutorisationTable
4918 DeleteAction #Restricted
4919 ENDPROPERTIES
4920
4921 ENDDELETEACTIONS
4922
4923 METHODS
4924 Version: 3
4925 SOURCE #AxCustTable
4926 #public AxCustTable axCustTable()
4927 #{
4928 # return AxCustTable::newCustTable(this);
4929 #}
4930 #
4931 ENDSOURCE
4932 SOURCE #balanceAllCurrency
4933 #//BP Deviation Documented
4934 #display AmountCur balanceAllCurrency(CustCurrencyCode _currencyCode = this.Currency)
4935 #{
4936 # return this.CustVendTable::balanceAllCurrency(_currencyCode);
4937 #}
4938 ENDSOURCE
4939 SOURCE #balanceCurPerDate
4940 #server AmountCur balanceCurPerDate(TransDate _transactionDate = systemdateget(),
4941 # CurrencyCode _currencyCode = CompanyInfo::standardCurrency())
4942 #{
4943 # return this.CustVendTable::balanceCurPerDate(_transactionDate, _currencyCode);
4944 #}
4945 ENDSOURCE
4946 SOURCE #BalanceCurrency
4947 #AmountCur balanceCurrency(TransDate _fromDate = dateNull(),
4948 # TransDate _toDate = dateMax(),
4949 # CurrencyCode _fromCurrency = '',
4950 # CurrencyCode _toCurrency = '')
4951 #{
4952 # return this.CustVendTable::balanceCurrency(_fromDate,
4953 # _toDate,
4954 # _fromCurrency,
4955 # _toCurrency);
4956 #}
4957 ENDSOURCE
4958 SOURCE #BalanceMST
4959 #//BP Deviation Documented
4960 #display AmountMST balanceMST(FromDate _fromDate = dateNull(),
4961 # ToDate _toDate = dateMax())
4962 #{
4963 # return this.CustVendTable::balanceMST(_fromDate, _toDate);
4964 #}
4965 ENDSOURCE
4966 SOURCE #BalancePerDate
4967 #server AmountMST balancePerDate(TransDate _transactionDate = systemdateget())
4968 #{
4969 # return this.CustVendTable::balancePerDate(_transactionDate);
4970 #}
4971 ENDSOURCE
4972 SOURCE #bankAccountNum
4973 #//BP Deviation documented
4974 #display BankAccount bankAccountNum()
4975 #{
4976 # return CustBankAccount::find(this.AccountNum, this.BankAccount).AccountNum;
4977 #}
4978 ENDSOURCE
4979 SOURCE #canDisplayCreditLimit
4980 #/// <summary>
4981 #/// Gets whether the credit limit can be displayed.
4982 #/// </summary>
4983 #/// <returns>
4984 #/// true if the credit limit can be displayed; otherwise, false.
4985 #/// </returns>
4986 #/// <remarks>
4987 #/// The determination is based on whether a meaningful value has been entered.
4988 #/// </remarks>
4989 #public boolean canDisplayCreditLimit()
4990 #{
4991 # boolean canDisplay;
4992 # ;
4993 #
4994 # canDisplay =
4995 # (this.CreditMax != 0) &&
4996 # (this.Currency != '') &&
4997 # (this.Currency == CompanyInfo::standardCurrency());
4998 #
4999 # return canDisplay;
5000 #}
5001 #
5002 ENDSOURCE
5003 SOURCE #cashDiscName
5004 #//BP Deviation Documented
5005 #display CustCashDiscName cashDiscName()
5006 #{
5007 # return CashDisc::find(this.CashDisc).Description;
5008 #}
5009 ENDSOURCE
5010 SOURCE #CheckAccountBlocked
5011 #boolean checkAccountBlocked(AmountCur _amountCur)
5012 #{
5013 # boolean ret = true;
5014 #
5015 # if (this.Blocked == CustVendorBlocked::All ||
5016 # (this.Blocked == CustVendorBlocked::Invoice && _amountCur > 0))
5017 # {
5018 # ret = checkFailed(strfmt("@SYS7987", this.AccountNum));
5019 # }
5020 # return ret;
5021 #}
5022 ENDSOURCE
5023 SOURCE #CheckBlockedAll
5024 #boolean checkBlockedAll()
5025 #{
5026 # boolean ret = true;
5027 #
5028 # if (this.Blocked == CustVendorBlocked::All)
5029 # {
5030 # ret = checkFailed(strfmt("@SYS18389", this.AccountNum, CustVendorBlocked::All));
5031 # }
5032 # return ret;
5033 #}
5034 ENDSOURCE
5035 SOURCE #checkVATNumUsed
5036 #boolean checkVATNumUsed()
5037 #{
5038 # boolean ret = true;
5039 # CustTable tmpCustTable;
5040 # ;
5041 #
5042 # if (TaxParameters::find().VatBookEnable == NoYes::Yes && this.vatNum)
5043 # {
5044 # select firstonly tmpCustTable
5045 # where tmpCustTable.RecId != this.RecId &&
5046 # tmpCustTable.vatNum == this.vatNum;
5047 # if (tmpCustTable.RecId)
5048 # {
5049 # ret = checkFailed(strfmt("@SYS79490",fieldpname(CustTable, vatNum)));
5050 # }
5051 # }
5052 # return ret;
5053 #}
5054 ENDSOURCE
5055 SOURCE #ClearingAccount
5056 #//BP Deviation Documented
5057 #display LedgerAccount clearingAccount(CustPostingProfile postingProfile = CustParameters::find().PostingProfile)
5058 #{
5059 # return this.CustVendTable::clearingAccount(postingProfile, this.AccountNum);
5060 #}
5061 ENDSOURCE
5062 SOURCE #ClearingAccountGroup
5063 #LedgerAccount clearingAccountGroup(CustAccount _custAccount,
5064 # CustPostingProfile _custPostingProfile = CustParameters::find().PostingProfile)
5065 #{
5066 # CustLedgerAccounts custLedgerAccounts;
5067 #
5068 # return CustVendLedgerAccounts::clearingAccount(_custAccount,
5069 # _custPostingProfile,
5070 # custLedgerAccounts,
5071 # TableGroupAll::GroupId);
5072 #}
5073 ENDSOURCE
5074 SOURCE #ClearingPeriod
5075 #ClearingPeriod clearingPeriod()
5076 #{
5077 # return (this.ClearingPeriod ? this.ClearingPeriod : CustGroup::find(this.CustGroup).clearingPeriod());
5078 #}
5079 ENDSOURCE
5080 SOURCE #convertCurrencyCode
5081 #server void convertCurrencyCode()
5082 #{
5083 # CurrencyCode origCurrencyCode;
5084 # SalesTable salesTable;
5085 # CustInvoiceTable custInvoiceTable;
5086 # ;
5087 #
5088 # origCurrencyCode = this.orig().Currency;
5089 #
5090 # ttsbegin;
5091 #
5092 # salesTable = SalesTable::custOpenOrders(this.AccountNum,true);
5093 #
5094 # while (salesTable)
5095 # {
5096 # if (salesTable.CurrencyCode == origCurrencyCode)
5097 # {
5098 # salesTable.convertCurrencyCode(this.Currency);
5099 # salesTable.update();
5100 # }
5101 # next salesTable;
5102 # }
5103 #
5104 # custInvoiceTable = CustInvoiceTable::custOpenInvoices(this.AccountNum,true);
5105 #
5106 # while (custInvoiceTable)
5107 # {
5108 # if (custInvoiceTable.CurrencyCode == origCurrencyCode)
5109 # {
5110 # custInvoiceTable.convertCurrencyCode(this.Currency);
5111 # custInvoiceTable.update();
5112 # }
5113 # next custInvoiceTable;
5114 # }
5115 #
5116 # ttscommit;
5117 #}
5118 #
5119 ENDSOURCE
5120 SOURCE #countryName
5121 #//BP Deviation Documented
5122 #display AddressCountryRegionName countryName()
5123 #{
5124 # return AddressCountryRegion::find(this.CountryRegionId).Name;
5125 #}
5126 ENDSOURCE
5127 SOURCE #countyName
5128 #//BP Deviation Documented
5129 #display AddressCountyName countyName()
5130 #{
5131 # return AddressCounty::find(this.CountryRegionId, this.State, this.County).Name;
5132 #}
5133 ENDSOURCE
5134 SOURCE #creditMaxCur
5135 #//BP Deviation Documented
5136 #display CustCreditMaxCur creditMaxCur()
5137 #{
5138 # return Currency::curAmount(this.CreditMax, this.Currency);
5139 #}
5140 ENDSOURCE
5141 SOURCE #currencyName
5142 #//BP Deviation Documented
5143 #display CurrencyName currencyName()
5144 #{
5145 # return Currency::find(this.Currency).Txt;
5146 #}
5147 ENDSOURCE
5148 SOURCE #customerGroup
5149 #//BP Deviation documented
5150 #display smmCustomerGroup customerGroup()
5151 #{
5152 # ;
5153 # return CustGroup::find(this.CustGroup).Name;
5154 #}
5155 #
5156 ENDSOURCE
5157 SOURCE #delete
5158 #void delete()
5159 #{
5160 # VendTable vendTable;
5161 #
5162 #// EGS_32374864OKF_Generis JRT 2009-02-27 -Begin
5163 # EGS_BasicDataTrigger basicDataTrigger;
5164 #// EGS_32374864OKF_Generis JRT 2009-02-27 -End
5165 # SyncAppCompany syncAppCompany;
5166 # // --> DALUN 11-04-2012 5.04 Task EXU_V504_SS0007138
5167 # EXU_ReceivingSystemEventData eventData;
5168 # // <-- DALUN 11-04-2012 5.04 Task EXU_V504_SS0007138
5169 #
5170 # // --> XXSBT 16-04-2012 5.04 Task DU0007042
5171 # EXU_ContractTable exu_ContractTable;
5172 # EXU_UtilityInstallation exu_UtilityInstallation;
5173 # EXU_ISSafeLogTable exu_ISSafeLogTable, exu_ISSafeLogTableUpdate ;
5174 # EXU_Installation exu_Installation;
5175 # // <-- XXSBT 16-04-2012 5.04 Task DU0007042
5176 # ;
5177 #
5178 # ttsbegin;
5179 #
5180 # // Delete the business relation
5181 # smmBusRelTable::deleteFromCustVend(this.TableId,this.PartyId);
5182 #
5183 # // Remove links to contact person
5184 # ContactPerson::removeCustVendLink(this.TableId, this.AccountNum);
5185 #
5186 # InventPosting::deleteFromCust(this.AccountNum);
5187 # if(CustParameters::find().SalesCycle)
5188 # {
5189 # SalesPurchCycle::deleteFromCust(this.AccountNum);
5190 # }
5191 #
5192 # if (this.VendAccount)
5193 # {
5194 # vendTable = VendTable::find(this.VendAccount, true);
5195 #
5196 # if (vendTable)
5197 # {
5198 # vendTable.CustAccount = '';
5199 # vendTable.update();
5200 # }
5201 # }
5202 #
5203 # // For the Customer lookup,
5204 # // Set the delete flag for this Customer integrated the Project Server application associated with current company
5205 # syncAppCompany = SyncAppCompany::find(curext(), SyncAppType::ProjectServer);
5206 # if (syncAppCompany)
5207 # {
5208 # SyncCustTableLookup::deleteLookupNodes(syncAppCompany.AppId, curext(), this.AccountNum);
5209 # }
5210 #
5211 # super();
5212 #
5213 # // Auto delete party at backend
5214 # DirParty::autoDeleteParty(this.PartyId);
5215 #
5216 # smmTransLog::initTrans(this, smmLogAction::delete);
5217 # if(isConfigurationKeyEnabled(configurationKeyNum(EXU_Var)))
5218 # {
5219 #
5220 # // EGS_32374864OKF_Generis JRT 2009-02-27 -Begin
5221 # //--> ANLIN 25-08-2015 EXU_SS0023596_Lime
5222 # //if (isConfigurationKeyEnabled(configurationkeynum(EGS_MDMS)))
5223 # if (isConfigurationKeyEnabled(configurationkeynum(EGS_BasicDataChange)))
5224 # //<-- ANLIN 25-08-2015 EXU_SS0023596_Lime
5225 # {
5226 # basicDataTrigger = EGS_BasicDataTrigger::newBasicDataTrigger(this, EventLogType::Delete);
5227 # basicDataTrigger.run();
5228 # }
5229 # // EGS_32374864OKF_Generis JRT 2009-02-27 -End
5230 # }
5231 #
5232 # // --> DALUN 11-04-2012 5.04 Task EXU_V504_SS0007138
5233 # if (isConfigurationKeyEnabled(configurationkeynum(EXU_ReceivingSystems)))
5234 # {
5235 # eventData = EXU_ReceivingSystemEventData::newDataEvent(this, EventLogType::Delete);
5236 # eventData.run();
5237 # }
5238 # // <-- DALUN 11-04-2012 5.04 Task EXU_V504_SS0007138
5239 #
5240 # // --> XXSBT 16-04-2012 5.04 Task DU0007042
5241 # while select exu_ContractTable
5242 # where exu_ContractTable.CustAccount == this.AccountNum &&
5243 # exu_ContractTable.ContractType == EXU_ContractType::Installation
5244 # exists join exu_UtilityInstallation
5245 # exists join exu_ISSafeLogTable
5246 # where exu_UtilityInstallation.InstNum == exu_ContractTable.AttachmentNum &&
5247 # exu_UtilityInstallation.InstStatus == EXU_InstStatus::Active &&
5248 # exu_ISSafeLogTable.InstNum == exu_ContractTable.AttachmentNum
5249 # {
5250 # select firstonly forupdate exu_ISSafeLogTableUpdate
5251 # where exu_ISSafeLogTableUpdate.InstNum == exu_ContractTable.AttachmentNum;
5252 #
5253 # if (exu_ISSafeLogTableUpdate.RecId)
5254 # {
5255 # exu_ISSafeLogTableUpdate.Changed = NoYes::Yes;
5256 # exu_ISSafeLogTableUpdate.update();
5257 # }
5258 # }
5259 #
5260 # while select exu_Installation
5261 # where exu_Installation.InstOwner == this.AccountNum
5262 # exists join exu_UtilityInstallation
5263 # exists join exu_ISSafeLogTable
5264 # where exu_UtilityInstallation.InstNum == exu_Installation.InstNum &&
5265 # exu_UtilityInstallation.InstStatus == EXU_InstStatus::Active &&
5266 # exu_ISSafeLogTable.InstNum == exu_Installation.InstNum
5267 # {
5268 # select firstonly forupdate exu_ISSafeLogTableUpdate
5269 # where exu_ISSafeLogTableUpdate.InstNum == exu_Installation.InstNum;
5270 #
5271 # if (exu_ISSafeLogTableUpdate.RecId)
5272 # {
5273 # exu_ISSafeLogTableUpdate.Changed = NoYes::Yes;
5274 # exu_ISSafeLogTableUpdate.update();
5275 # }
5276 # }
5277 # // <-- XXSBT 16-04-2012 5.04 Task DU0007042
5278 # ttscommit;
5279 #}
5280 #
5281 ENDSOURCE
5282 SOURCE #DeliveryAddress
5283 #void deliveryAddress()
5284 #{
5285 # Address address;
5286 # ;
5287 #
5288 # address = DirPartyAddress::findAddress(this, AddressType::Delivery);
5289 #
5290 # if (address)
5291 # {
5292 # this.Name = address.Name;
5293 # this.Address = address.Address;
5294 # this.ZipCode = address.ZipCode;
5295 # this.CountryRegionId = address.CountryRegionId;
5296 # this.County = address.County;
5297 # this.State = address.State;
5298 # this.Street = address.Street;
5299 # this.City = address.City;
5300 # }
5301 #}
5302 ENDSOURCE
5303 SOURCE #DiffCurrencyCodes
5304 #container diffCurrencyCodes()
5305 #{
5306 # CustTrans custTranslocal;
5307 # container currencyCodes;
5308 # ;
5309 #
5310 # while select CurrencyCode from custTranslocal
5311 # group by CurrencyCode
5312 # where custTranslocal.AccountNum == this.AccountNum
5313 # {
5314 # currencyCodes += custTranslocal.CurrencyCode;
5315 # }
5316 #
5317 # return currencyCodes;
5318 #}
5319 ENDSOURCE
5320 SOURCE #DiffCurrencyCodesOnOpen
5321 #container diffCurrencyCodesOnOpen(TransDate _transactionDate = systemdateget())
5322 #{
5323 # CustTrans custTranslocal;
5324 # container currencyCodes;
5325 # ;
5326 #
5327 # while select CurrencyCode from custTranslocal
5328 # group by CurrencyCode
5329 # where custTranslocal.AccountNum == this.AccountNum
5330 # {
5331 # if (this.balanceCurPerDate(_transactionDate, custTranslocal.CurrencyCode))
5332 # {
5333 # currencyCodes += custTranslocal.CurrencyCode;
5334 # }
5335 # }
5336 #
5337 # return currencyCodes;
5338 #}
5339 ENDSOURCE
5340 SOURCE #editContactPersonName
5341 #//AOSRunMode::Called
5342 #//BP Deviation Documented
5343 #edit ContactPersonName editContactPersonName(boolean _set, ContactPersonName _name)
5344 #{
5345 # return this.CustVendTable::editContactPersonName(_set, _name);
5346 #}
5347 ENDSOURCE
5348 SOURCE #EG_InitInclTaxFromUserEmpl
5349 #// EDB-gruppen/2008.01.29/mb, VEC03_3800_006 - AutoInsertDepartment
5350 #public void EG_InitInclTaxFromUserEmpl()
5351 #{
5352 # EmplTable emplTable = EmplTable::find(EmplTable::userId2EmplId(curuserid()));
5353 # ;
5354 # if (emplTable.Dimension [1] && Dimensions::find(SysDimension::Department, emplTable.Dimension [1]).EG_Shop)
5355 # this.InclTax = true;
5356 #}
5357 ENDSOURCE
5358 SOURCE #EG_WPAAddress
5359 #// LGL 01-06-2010 4.04 Task 13739 : Imported again after deleted (Not shown in cross refrence, do not delete)
5360 #public str EG_WPAAddress()
5361 #{
5362 #;
5363 # return substr(this.Address,1, 64);
5364 #}
5365 ENDSOURCE
5366 SOURCE #egh_HasAlternativeAddress
5367 #// EGH LRJ 24/05/2007 FG 8212
5368 #public boolean egh_HasAlternativeAddress()
5369 #{
5370 # return EXU_TH_CustTable::newData(this).egh_HasAlternativeAddress();
5371 #}
5372 ENDSOURCE
5373 SOURCE #EGH_NotatFilReg
5374 #// BP Deviation Documented.
5375 #display boolean EGH_NotatFilReg()
5376 #{
5377 # ;
5378 # return EXU_TH_CustTable::newData(this).EGH_NotatFilReg();
5379 #}
5380 ENDSOURCE
5381 SOURCE #EGH_PaymDesc
5382 #// BP Deviation Documented.
5383 #display Description EGH_PaymDesc()
5384 #// EGH FG9884
5385 #{
5386 # ;
5387 # return PaymTerm::find(this.PaymTermId).Description;
5388 #}
5389 #
5390 ENDSOURCE
5391 SOURCE #egs_AmountLimitexists
5392 #//EGS 31983924OKF MIF 081118
5393 #//BP Deviation Documented
5394 #Display boolean egs_AmountLimitexists()
5395 #{
5396 # boolean ret = false;
5397 # EXU_ContractTemplateAmountLimit exu_ContractTemplateAmountLimit;
5398 # ;
5399 # select firstonly exu_ContractTemplateAmountLimit
5400 # where exu_ContractTemplateAmountLimit.EGS_CustRelation == this.AccountNum;
5401 # if (exu_ContractTemplateAmountLimit)
5402 # {
5403 # ret = true;
5404 # }
5405 # return ret;
5406 #}
5407 ENDSOURCE
5408 SOURCE #egs_GetBankID
5409 #// EGS_37654788OKF_FMI_movingin ALK 20100428
5410 #public BankID egs_GetBankID()
5411 #{
5412 # return EXU_TH_CustTable::newData(this).egs_GetBankID();
5413 #}
5414 ENDSOURCE
5415 SOURCE #EGS_getCampaignDate
5416 #//EGS 28754477XSF MHX 20080207
5417 #date EGS_getCampaignDate()
5418 #{
5419 # return smmCampaignTable::find(smmCampaignSelection::find(smmBusRelTable::findCust(this.AccountNum).BusRelAccount).CampaignId).CampaignDate;
5420 #}
5421 ENDSOURCE
5422 SOURCE #egs_GetCountryID
5423 #// EGS_37654788OKF_FMI_movingin ALK 20100428
5424 #public AddressCountryRegionId egs_GetCountryID()
5425 #{
5426 # return EXU_TH_CustTable::newData(this).egs_GetCountryID();
5427 #}
5428 ENDSOURCE
5429 SOURCE #endDiscName
5430 #//BP Deviation Documented
5431 #display EndDiscName endDiscName()
5432 #{
5433 # return PriceDiscGroup::find(ModuleInventCustVend::Cust,
5434 # PriceGroupType::EndDiscGroup,
5435 # this.EndDisc).Name;
5436 #}
5437 #
5438 ENDSOURCE
5439 SOURCE #exceedMax
5440 #AmountMST exceedMax(Amount _nowBalance)
5441 #{
5442 # return (this.CreditMax ? max(0, _nowBalance - this.CreditMax) : 0);
5443 #}
5444 #
5445 ENDSOURCE
5446 SOURCE #existOpenOrders
5447 #boolean existOpenOrders()
5448 #{
5449 # ;
5450 # return (SalesTable::existCustOpenOrder(this.AccountNum) || CustInvoiceTable::existCustOpenInvoice(this.AccountNum));
5451 #}
5452 #
5453 ENDSOURCE
5454 SOURCE #EXU_balanceDueMST
5455 #// EGU 27-08-2009 ARS 5.0 Upgrade - Error Fix -->
5456 #public AmountMST EXU_balanceDueMST(TransDate _transDate = dateNull(),
5457 # FromDate _fromDate = dateNull(),
5458 # ToDate _toDate = dateMax())
5459 #{
5460 #
5461 # return EXU_TH_CustTable::newData(this).EXU_balanceDueMST(_transDate,
5462 # _fromDate,
5463 # _toDate);
5464 #}
5465 ENDSOURCE
5466 SOURCE #exu_City
5467 #//--> ARS 11-06-2010 4.03 Task 13096 Bug 305
5468 #public AddressCity exu_City()
5469 #{
5470 # return AddressZipCode::find(this.ZipCode).City;
5471 #}
5472 ENDSOURCE
5473 SOURCE #EXU_Collection
5474 #// BP Deviation Documented.
5475 #display NoYes EXU_Collection()
5476 #{
5477 # ;
5478 # return EXU_TH_CustTable::newData(this).EXU_Collection();
5479 #}
5480 ENDSOURCE
5481 SOURCE #EXU_CustName1
5482 #// BP Deviation Documented.
5483 #Display Name EXU_CustName1()
5484 #{
5485 # return EXU_TH_CustTable::newData(this).EXU_CustName1();
5486 #}
5487 ENDSOURCE
5488 SOURCE #EXU_CustName2
5489 #// BP Deviation Documented.
5490 #Display Name EXU_CustName2()
5491 #{
5492 # return EXU_TH_CustTable::newData(this).EXU_CustName2();
5493 #}
5494 #
5495 ENDSOURCE
5496 SOURCE #EXU_EANExtCodeInsert
5497 #// EXU FG7116 FL 18.09.2006
5498 #public void EXU_EANExtCodeInsert(ExtCodeValue _ExtCodeValue, EXU_CustContactPersonId _custContactPersonId)
5499 #{
5500 # ;
5501 # EXU_TH_CustTable::newData(this).EXU_EANExtCodeInsert(_ExtCodeValue, _custContactPersonId);
5502 #}
5503 ENDSOURCE
5504 SOURCE #exu_GetContactPerson
5505 #// EXU FG5009 10.11.2005 NA (get EAN number)
5506 #public ContactPersonName exu_GetContactPerson()
5507 #{
5508 # return EXU_TH_CustTable::newData(this).exu_GetContactPerson();
5509 #}
5510 ENDSOURCE
5511 SOURCE #exu_GetEAN
5512 #// EXU FG5009 26.10.2005 NA (get EAN number)
5513 #public ExtCodeValue exu_GetEAN()
5514 #{
5515 # return EXU_TH_CustTable::newData(this).exu_GetEAN();
5516 #}
5517 ENDSOURCE
5518 SOURCE #EXU_getFirstMiddleLastName
5519 #// --> NAJ 20-06-2011 5.03 Task DU0002269
5520 #public Container EXU_getFirstMiddleLastName()
5521 #{
5522 # str custName;
5523 # int length;
5524 # int firstSpace, secondSpace;
5525 # Container nameContainer;
5526 # ;
5527 #
5528 # custName = this.Name;
5529 # length = strlen(custName);
5530 #
5531 # firstSpace = strfind(custName, " ", 1 , length);
5532 # secondSpace = strfind(custName, " ", firstSpace+1, length - firstSpace);
5533 #
5534 # nameContainer += substr(custName, 1, firstSpace-1);
5535 #
5536 # if (!secondSpace)
5537 # {
5538 # nameContainer += " ";
5539 # nameContainer += substr(custName, firstSpace+1, (length - firstSpace));
5540 # }
5541 # else
5542 # {
5543 # nameContainer += substr(custName, firstSpace+1, (secondSpace-1));
5544 # nameContainer += substr(custName, (secondSpace + 1), (length - secondSpace));
5545 # }
5546 #
5547 # return nameContainer;
5548 #}
5549 ENDSOURCE
5550 SOURCE #exu_GetGLNID
5551 #// KJEDL 2017-04-07 EXU_SV0047082_AxaptaInvoiceEDI
5552 #public ExtCodeValue exu_GetGLNID()
5553 #{
5554 # return EXU_TH_CustTable::newData(this).egs_GetGLNID();
5555 #}
5556 ENDSOURCE
5557 SOURCE #EXU_getMailMergeFields
5558 #// BP Deviation Documented.
5559 #Public Container EXU_getMailMergeFields(EXU_MailMergeModules _modules,
5560 # EXU_MailMergePatternName _name)
5561 #{
5562 # ;
5563 #
5564 # return EXU_TH_CustTable::newData(this).EXU_getMailMergeFields(_modules, _name);
5565 #}
5566 ENDSOURCE
5567 SOURCE #EXU_getPreferredCommunication
5568 #/// <summary>
5569 #/// Gets the preferred communication mode for selected customer
5570 #/// </summary>
5571 #/// <param name="_communicationTopic">
5572 #/// Type like ReadingRequisition
5573 #/// </param>
5574 #/// <returns>
5575 #/// Returns communication topic method record
5576 #/// </returns>
5577 #/// <remarks>
5578 #/// // --> NAJ 19-07-2011 5.04 Task DU0003412
5579 #/// </remarks>
5580 #EXU_CommunicationTopicMethod EXU_getPreferredCommunication(EXU_CommunicationTopic _communicationTopic)
5581 #{
5582 # EXU_CommunicationTopicMethod communicationMethodLocal;
5583 # EXU_CustomerCommunicationTopics exu_CustomerCommunicationTopics;
5584 # EXU_CommunicationTopics exu_CommunicationTopics;
5585 # EXU_CommunicationTopicMethod exu_CommunicationTopicMethod;
5586 # boolean prefCommunFound;
5587 # ;
5588 #
5589 # // 1) Check if there is setup for Customer with Reading Notification
5590 # while select exu_CustomerCommunicationTopics
5591 # where exu_CustomerCommunicationTopics.AccountNum == this.AccountNum
5592 # join exu_CommunicationTopics
5593 # where exu_CommunicationTopics.Topic == exu_CustomerCommunicationTopics.CommunicationTopic &&
5594 # exu_CommunicationTopics.CommunicationTopic == _communicationTopic
5595 # {
5596 # select exu_CommunicationTopicMethod
5597 # where exu_CommunicationTopicMethod.Topic == exu_CommunicationTopics.Topic &&
5598 # exu_CommunicationTopicMethod.CommunicationMethod == exu_CustomerCommunicationTopics.CommunicationMethod;
5599 #
5600 # communicationMethodLocal = exu_CommunicationTopicMethod;
5601 # prefCommunFound = true;
5602 # }
5603 #
5604 # // 2) If Pt. 1 false, means No setup has been made at Customer Communication, then check if we have any Default Notification
5605 # if(!prefCommunFound)
5606 # {
5607 # select exu_CommunicationTopics
5608 # where exu_CommunicationTopics.CommunicationTopic == _communicationTopic
5609 # join exu_CommunicationTopicMethod
5610 # where exu_CommunicationTopicMethod.Topic == exu_CommunicationTopics.Topic &&
5611 # exu_CommunicationTopicMethod.DefaultCommunication == NoYes::Yes;
5612 #
5613 # if(exu_CommunicationTopicMethod.RecId != 0)
5614 # {
5615 # communicationMethodLocal = exu_CommunicationTopicMethod;
5616 # }
5617 # }
5618 #
5619 # return communicationMethodLocal;
5620 #}
5621 ENDSOURCE
5622 SOURCE #EXU_InvoiceAccount
5623 #// EXU LRJ 31/08/2006 FG 6187
5624 #CustAccount EXU_InvoiceAccount()
5625 #{
5626 # return EXU_TH_CustTable::newData(this).EXU_InvoiceAccount();
5627 #}
5628 ENDSOURCE
5629 SOURCE #EXU_MorePermissions
5630 #//BP Deviation Documented
5631 #display boolean EXU_MorePermissions()
5632 #{
5633 # ;
5634 # return EXU_PersDataSec_PermissionTable::MorePermissions(this.PartyId);
5635 #}
5636 ENDSOURCE
5637 SOURCE #exu_MultiArchive
5638 #//EGU 20080711 FG9840 PMI
5639 #void exu_MultiArchive()
5640 #{
5641 # EXU_InstParameters EXU_InstParameters = EXU_InstParameters::find();
5642 # int custAccount2int;
5643 # ;
5644 #
5645 # if (str2numok(this.AccountNum))
5646 # {
5647 # //--> VIG Task 11452 on 13th May 2009. gave str2int for Assignment/Comparison Loses Precision.
5648 # custAccount2int = str2int(this.AccountNum);
5649 # //<-- VIG Task 11452 on 13th May 2009. gave str2int for Assignment/Comparison Loses Precision.
5650 # if (custAccount2int > 90000000)
5651 # {
5652 # custAccount2int = custAccount2int -90000000;
5653 # }
5654 #
5655 #//20080924 PMI: Iflg. resultat fra test winapi::shellExecute(strfmt("%1?%2/%3",EXU_InstParameters.MultiArchiveURL,EXU_InstParameters.MultiArchiveCust,custAccount2int));
5656 # winapi::shellExecute(strfmt("%1%2%3",EXU_InstParameters.MultiArchiveURL,EXU_InstParameters.MultiArchiveCust,custAccount2int));
5657 # }
5658 #}
5659 ENDSOURCE
5660 SOURCE #EXU_OpenTransFound
5661 #// FG 9149 OM 20.11.07
5662 #// BP Deviation Documented.
5663 #display EXU_Integer EXU_OpenTransFound()
5664 #{
5665 # #resAppl
5666 # CustTransOpen CustTransOpen;
5667 # imageListAppl imageListAppl;
5668 # ;
5669 # if (!CustParameters::find().EXU_OpenTransMark)
5670 # return 0;
5671 # imageListAppl = new ImageListAppl_ISC();
5672 # select count (recId)
5673 # from CustTransOpen
5674 # where CustTransOpen.AccountNum == this.AccountNum;
5675 # if (CustTransOpen.RecId)
5676 # {
5677 # select count (recId)
5678 # from CustTransOpen
5679 # where CustTransOpen.AccountNum == this.AccountNum &&
5680 # CustTransOpen.DueDate < today();
5681 # if (CustTransOpen.RecId)
5682 # {
5683 # return imageListAppl.image(#ImageError);
5684 # }
5685 # else
5686 # {
5687 # return imageListAppl.image(#ImageWarning);
5688 # }
5689 # }
5690 # else
5691 # {
5692 # return -1;
5693 # }
5694 #}
5695 ENDSOURCE
5696 SOURCE #exu_primaryAddress
5697 #public display Addressing exu_primaryAddress()
5698 #{
5699 # ;
5700 # return DirPartyAddress::findPrimaryAddress(this.PartyId).Address;
5701 #}
5702 ENDSOURCE
5703 SOURCE #EXU_PrimaryPermission
5704 #//BP Deviation Documented
5705 #display EXU_PersDataSec_PermissionTypeID EXU_PrimaryPermission()
5706 #{
5707 # ;
5708 # return EXU_PersDataSec_PermissionTable::PrimaryPermission(this.PartyId);
5709 #}
5710 ENDSOURCE
5711 SOURCE #EXU_PrimaryPermissionStartDateTime
5712 #//BP Deviation Documented
5713 #display StartDateTime EXU_PrimaryPermissionStartDateTime()
5714 #{
5715 # ;
5716 # return EXU_PersDataSec_PermissionTable::PrimaryPermissionStartDateTime(this.PartyId);
5717 #}
5718 ENDSOURCE
5719 SOURCE #EXU_setConstructedNumber
5720 #public boolean EXU_setConstructedNumber()
5721 #{
5722 # return EXU_TH_CustTable::newData(this).EXU_setConstructedNumber();
5723 #}
5724 ENDSOURCE
5725 SOURCE #exu_UpdateMovingInAdditionalName
5726 #// --> SBT 05-08-2011 5.04 Task SS0001578
5727 #public void exu_UpdateMovingInAdditionalName()
5728 #{
5729 # EXU_MovingTable exu_MovingTable;
5730 # ;
5731 #
5732 # ttsbegin;
5733 #
5734 # while select forupdate exu_MovingTable
5735 # where exu_MovingTable.CustAccountIn == this.AccountNum &&
5736 # exu_MovingTable.Status == EXU_MovingStatus::Registreted && // ANLIN 01-02-2017 EXU_SV0045189_performance
5737 # exu_MovingTable.AdditionalName != this.EXU_AdditionalName // ANLIN 01-02-2017 EXU_SV0045189_performance
5738 # {
5739 # //--> ANLIN 01-02-2017 EXU_SV0045189_performance
5740 #// if(exu_MovingTable)
5741 #// {
5742 #// // --> DALUN 16-10-2013 5.04 Task SS0019213
5743 #// //exu_MovingTable.AdditionalName = this.EXU_AdditionalName;
5744 #// if (exu_MovingTable.Status == EXU_MovingStatus::Registreted)
5745 #// {
5746 # //<-- ANLIN 01-02-2017 EXU_SV0045189_performance
5747 # exu_MovingTable.AdditionalName = this.EXU_AdditionalName;
5748 #// }
5749 # // <-- DALUN 16-10-2013 5.04 Task SS0019213
5750 # exu_MovingTable.update();
5751 #// }
5752 # }
5753 #
5754 # ttscommit;
5755 #}
5756 ENDSOURCE
5757 SOURCE #exu_UpdateMovingInName
5758 #// --> SBT 05-08-2011 5.04 Task SS0001578
5759 #public void exu_UpdateMovingInName()
5760 #{
5761 # EXU_MovingTable exu_MovingTable;
5762 # ;
5763 #
5764 # ttsbegin;
5765 #
5766 # while select forupdate exu_MovingTable
5767 # where exu_MovingTable.CustAccountIn == this.AccountNum &&
5768 # exu_MovingTable.Status == EXU_MovingStatus::Registreted && // ANLIN 01-02-2017 EXU_SV0045189_performance
5769 # exu_MovingTable.Name != this.Name // ANLIN 01-02-2017 EXU_SV0045189_performance
5770 # {
5771 # //--> ANLIN 01-02-2017 EXU_SV0045189_performance
5772 #// if(exu_MovingTable)
5773 #// {
5774 #// // --> DALUN 16-10-2013 5.04 Task SS0019213
5775 #// //exu_MovingTable.Name = this.Name;
5776 #// if (exu_MovingTable.Status == EXU_MovingStatus::Registreted)
5777 #// {
5778 # //<-- ANLIN 01-02-2017 EXU_SV0045189_performance
5779 # exu_MovingTable.Name = this.Name;
5780 #// }
5781 # // <-- DALUN 16-10-2013 5.04 Task SS0019213
5782 # exu_MovingTable.update();
5783 #// }
5784 # }
5785 #
5786 # ttscommit;
5787 #}
5788 ENDSOURCE
5789 SOURCE #firstOpenPayment
5790 #CustTransOpen firstOpenPayment()
5791 #{
5792 # CustTransOpen custTransOpen;
5793 # ;
5794 #
5795 # custTransOpen = this.CustVendTable::firstOpenPayment();
5796 #
5797 # return custTransOpen;
5798 #}
5799 ENDSOURCE
5800 SOURCE #firstSettledPayment
5801 #CustSettlement firstSettledPayment()
5802 #{
5803 # CustSettlement custSettlement;
5804 # ;
5805 #
5806 # custSettlement = this.CustVendTable::firstSettledPayment();
5807 #
5808 # return custSettlement;
5809 #}
5810 ENDSOURCE
5811 SOURCE #freeValueCur
5812 #//BP Deviation Documented
5813 #display CustCreditFreeValueCur freeValueCur(AmountMST _adjustment = 0)
5814 #{
5815 # return this.CustVendTable::freeValueCur(_adjustment);
5816 #}
5817 ENDSOURCE
5818 SOURCE #freeValueMST
5819 #//BP Deviation Documented
5820 #display CustCreditFreeValueMST freeValueMST(AmountMST _adjustment = 0)
5821 #{
5822 # return this.CustVendTable::freeValueMST(_adjustment);
5823 #}
5824 ENDSOURCE
5825 SOURCE #getCurrenciesForAllTrans
5826 #/// <summary>
5827 #/// Gets the list of currencies for the transactions in the specified date range.
5828 #/// </summary>
5829 #/// <param name="_startDate">
5830 #/// The date of the first transactions to be included.
5831 #/// </param>
5832 #/// <param name="_endDate">
5833 #/// The date of the last transactions to be included.
5834 #/// </param>
5835 #/// <param name="_includeReversedTrans">
5836 #/// A Boolean value that indicates whether to include reversed transactions.
5837 #/// </param>
5838 #/// <returns>
5839 #/// A list of currencies.
5840 #/// </returns>
5841 #/// <remarks>
5842 #/// Exchange adjustment transactions are not included. A unique currency is
5843 #/// only included in the list once.
5844 #/// </remarks>
5845 #public container getCurrenciesForAllTrans(
5846 # TransDate _startDate,
5847 # TransDate _endDate,
5848 # boolean _includeReversedTrans)
5849 #{
5850 # CustTrans trans;
5851 # Query q;
5852 # QueryRun run;
5853 # QueryBuildDataSource dataSource;
5854 # QueryBuildDataSource reversalDataSource;
5855 # QueryBuildRange range;
5856 # container currencyList;
5857 # ;
5858 #
5859 # Debug::assert(this.AccountNum != '');
5860 # Debug::assert(_startDate <= _endDate);
5861 #
5862 #
5863 # q = new Query();
5864 # dataSource = q.addDataSource(tablenum(CustTrans));
5865 #
5866 # dataSource.addGroupByField(fieldnum(CustTrans, CurrencyCode));
5867 #
5868 # range = dataSource.addRange(fieldnum(CustTrans, AccountNum));
5869 # range.value(SysQuery::value(this.AccountNum));
5870 #
5871 # range = dataSource.addRange(fieldnum(CustTrans, TransDate));
5872 # range.value(SysQuery::range(_startDate, _endDate));
5873 #
5874 # range = dataSource.addRange(fieldnum(CustTrans, TransType));
5875 # range.value(SysQuery::valueNot(LedgerTransType::ExchAdjustment));
5876 #
5877 # if (!_includeReversedTrans)
5878 # {
5879 # reversalDataSource = dataSource.addDataSource(tablenum(TransactionReversalTrans));
5880 # reversalDataSource.joinMode(JoinMode::NoExistsJoin);
5881 # reversalDataSource.addLink(fieldnum(CustTrans, TableId), fieldnum(TransactionReversalTrans, RefTableId));
5882 # reversalDataSource.addLink(fieldnum(CustTrans, RecId), fieldnum(TransactionReversalTrans, RefRecId));
5883 # reversalDataSource.addRange(fieldnum(TransactionReversalTrans, Reversed)).value(enum2str(NoYes::Yes));
5884 # }
5885 #
5886 # run = new QueryRun(q);
5887 # while (run.next())
5888 # {
5889 # trans = run.get(tablenum(CustTrans));
5890 #
5891 # currencyList += trans.CurrencyCode;
5892 # }
5893 #
5894 # return currencyList;
5895 #}
5896 #
5897 ENDSOURCE
5898 SOURCE #getCurrenciesForOpenTrans
5899 #/// <summary>
5900 #/// Gets the list of currencies for the open transactions in the specified date range.
5901 #/// </summary>
5902 #/// <param name="_startDate">
5903 #/// The date of the first open transactions to be included.
5904 #/// </param>
5905 #/// <param name="_endDate">
5906 #/// The date of the last open transactions to be included.
5907 #/// </param>
5908 #/// <param name="_includeReversedTrans">
5909 #/// A Boolean value that indicates whether to include reversed transactions.
5910 #/// </param>
5911 #/// <returns>
5912 #/// A list of currencies.
5913 #/// </returns>
5914 #/// <remarks>
5915 #/// Exchange adjustment transactions are not included. A unique currency is
5916 #/// only included in the list once.
5917 #/// </remarks>
5918 #public container getCurrenciesForOpenTrans(
5919 # TransDate _startDate,
5920 # TransDate _endDate,
5921 # boolean _includeReversedTrans)
5922 #{
5923 # CurrencyCode currency;
5924 # container currencyList;
5925 # container tempList;
5926 # int i;
5927 # ;
5928 #
5929 # Debug::assert(this.AccountNum != '');
5930 # Debug::assert(_startDate <= _endDate);
5931 #
5932 #
5933 # tempList = this.getCurrenciesForAllTrans(_startDate, _endDate, _includeReversedTrans);
5934 #
5935 # for (i = 1; i <= conlen(tempList); i++)
5936 # {
5937 # currency = conpeek(tempList, i);
5938 #
5939 # if (this.balanceCurPerDate(_endDate, currency) != 0)
5940 # {
5941 # currencyList += currency;
5942 # }
5943 # }
5944 #
5945 # return currencyList;
5946 #}
5947 #
5948 ENDSOURCE
5949 SOURCE #getSettleDate
5950 #public TransDate getSettleDate(SettleDatePrinc _saveDatePrinciple = SettleDatePrinc::DateOfPayment,
5951 # TransDate _saveDate = dateNull())
5952 #{
5953 # return this.CustVendTable::getSettleDate(_saveDatePrinciple, _saveDate);
5954 #}
5955 ENDSOURCE
5956 SOURCE #GraphicsByAgeAllocate
5957 #client void graphicsByAgeAllocate(Graphics_ByAgeAllocation _graph)
5958 #{
5959 # this.CustVendTable::graphicsByAgeAllocate(_graph, NoYes::No);
5960 #}
5961 ENDSOURCE
5962 SOURCE #HasForecastSales
5963 #//BP Deviation Documented
5964 #display ForecastHasSales hasForecastSales()
5965 #{
5966 # return (select forecastSales
5967 # where forecastSales.CustAccountId == this.AccountNum).RecId != 0;
5968 #}
5969 ENDSOURCE
5970 SOURCE #initFromContactInfo
5971 #void initFromContactInfo()
5972 #{
5973 # this.CustVendTable::initFromContactInfo();
5974 #}
5975 ENDSOURCE
5976 SOURCE #InitFromCustGroup
5977 #void initFromCustGroup(CustGroup _custGroup)
5978 #{
5979 # this.PaymTermId = _custGroup.PaymTermId;
5980 # this.PaymSched = PaymTerm::find(this.PaymTermId).PaymSched;
5981 #
5982 # //
5983 # //If default tax group is set on customer group
5984 # //than sales tax group on customers is filled in by default from TaxGroupId
5985 # //
5986 # if(_custGroup.TaxGroupId)
5987 # {
5988 # this.TaxGroup = _custGroup.TaxGroupId;
5989 # }
5990 #}
5991 ENDSOURCE
5992 SOURCE #initFromCustInvoiceTable
5993 #void initFromCustInvoiceTable(CustInvoiceTable _custInvoiceTable)
5994 #{
5995 # this.Name = _custInvoiceTable.Name;
5996 # this.NameAlias = '';
5997 # AddressMap::initMapFromMap(this, _custInvoiceTable);
5998 #
5999 # this.OneTimeCustomer = _custInvoiceTable.OneTimeCustomer;
6000 #}
6001 ENDSOURCE
6002 SOURCE #initFromDirParty
6003 #void initFromDirParty(DirParty _party)
6004 #{
6005 # ;
6006 #
6007 # if (_party.parmType() != DirPartyType::None)
6008 # {
6009 # this.PartyType = _party.parmType();
6010 # }
6011 #
6012 #
6013 # // basic info
6014 # if (_party.parmBasicInfo())
6015 # {
6016 # this.Name = _party.parmName();
6017 # this.NameAlias = _party.parmNameAlias();
6018 # this.LanguageId = _party.parmLanguageId();
6019 # this.EXU_AdditionalName = _party.parmExu_AdditionalName(); // MKX 15-09-2010 5.03 Task 14192
6020 # }
6021 # // communication info
6022 # if (_party.parmCommunicationInfo())
6023 # {
6024 # this.DirECommunicationMap::initCommInfoFromDirParty(_party);
6025 # }
6026 # // address
6027 # if (_party.parmAddressInfo())
6028 # {
6029 # this.AddressMap::initFromDirParty(_party);
6030 # }
6031 #}
6032 ENDSOURCE
6033 SOURCE #initFromECPCustSignUp
6034 #void initFromECPCustSignUp(ECPCustSignUp _ecpCustSignUp)
6035 #{
6036 # this.Name = _ecpCustSignUp.Name;
6037 # this.Email = _ecpCustSignUp.Email;
6038 # this.TeleFax = _ecpCustSignUp.TeleFax;
6039 # this.Phone = _ecpCustSignUp.Phone;
6040 # this.LanguageId = _ecpCustSignUp.LanguageId;
6041 # this.NameAlias = '';
6042 #
6043 # AddressMap::initMapFromMap(this, _ecpCustSignUp);
6044 #}
6045 ENDSOURCE
6046 SOURCE #initFromSalesQuotationTable
6047 #void initFromSalesQuotationTable(SalesQuotationTable _salesQuotationTable)
6048 #{
6049 # this.Name = _salesQuotationTable.DeliveryName;
6050 # this.NameAlias = '';
6051 #
6052 # AddressMap::initMapFromMap(this, _salesQuotationTable);
6053 #}
6054 ENDSOURCE
6055 SOURCE #InitFromSalesTable
6056 #void initFromSalesTable(SalesTable _salesTable)
6057 #{
6058 # this.Name = _salesTable.DeliveryName;
6059 # this.OneTimeCustomer = _salesTable.OneTimeCustomer;
6060 # this.NameAlias = '';
6061 #
6062 # AddressMap::initMapFromMap(this, _salesTable);
6063 #}
6064 ENDSOURCE
6065 SOURCE #initValue
6066 #void initValue()
6067 #{
6068 # CustFormletterParameters custFormletterParameters;
6069 # CompanyInfo companyInfo;
6070 # EXU_TH_CustTable handler = EXU_TH_CustTable::newData(this);
6071 # ;
6072 #
6073 # super();
6074 #
6075 # // If the languageId and Currency are empty strings a blank new cutomer is created in the table and thus
6076 # // the following values should be initialised with default values. If the languageId and Currency are non-empty
6077 # // the customer is created from a template and the values should not be touched.
6078 # if(this.LanguageId == '' || this.Currency == '')
6079 # {
6080 # companyInfo = CompanyInfo::find();
6081 # this.LanguageId = companyInfo.LanguageId;
6082 # this.Currency = companyInfo.CurrencyCode;
6083 #
6084 # custFormletterParameters = CustFormletterParameters::find();
6085 # this.GiroType = custFormletterParameters.GiroOnInvoice;
6086 # this.GiroTypeInterestNote = custFormletterParameters.GiroOnInterest;
6087 # this.GiroTypeCollectionletter = custFormletterParameters.GiroOnCollectionletter;
6088 # this.GiroTypeFreeTextInvoice = custFormletterParameters.GiroOnFreeTextInvoice;
6089 #
6090 # this.GiroTypeProjInvoice = ProjFormletterParameters::find().GiroOnInvoice;
6091 # this.GiroTypeAccountStatement = CustFormletterParameters::find().GiroOnAccountStatement;
6092 #
6093 # if(isConfigurationKeyEnabled(configurationKeyNum(EXU_Var)))
6094 # {
6095 # // VAR-Modification on 28 Okt 2009 by EKR - Begin EGS_33805743EGS
6096 # if (isConfigurationkeyEnabled(configurationkeynum(EGS_CustGiro_SE)))
6097 # {
6098 # this.EGS_GiroTypePaymentCase = CustFormLetterParameters::find().EGS_GiroOnPaymentCase;
6099 # }
6100 # // VAR-Modification on 28 Okt 2009 by EKR - End EGS_33805743EGS
6101 # }
6102 # }
6103 #
6104 # if (isConfigurationkeyEnabled(configurationkeynum(EXU_Xellent)))
6105 # {
6106 # handler.initValuePost();
6107 # }
6108 # if (isConfigurationKeyEnabled(configurationkeynum(EG_DataExchange)))
6109 # {
6110 # this.EG_InitInclTaxFromUserEmpl(); // EDB-gruppen/2008.01.29/mb, VEC03_3800_006 - AutoInsertDepartment
6111 # }
6112 #
6113 # //--> MKX 20-09-2010 5.03 Task 14195
6114 # //this.PartyType = DirParameters::find().CustDefaultPartyType;
6115 #
6116 #// --> XXJRI 16-05-2013 5.04 Task EXU_V504_N0013740
6117 #// this.PartyType = DirParameters::exu_GetCustDefaultPartyType();
6118 #
6119 # if (isConfigurationkeyEnabled(configurationkeynum(EXU_DVInfrastructure)) &&
6120 # !isConfigurationkeyEnabled(configurationkeynum(EXU_Bodo)))
6121 # {
6122 # this.PartyType = DirPartyType::Organization;
6123 # }
6124 # else
6125 # {
6126 # if (this.PartyType == DirPartyType::None)
6127 # {
6128 # this.PartyType = DirParameters::find().CustDefaultPartyType;
6129 # }
6130 # }
6131 #// <-- XXJRI 16-05-2013 5.04 Task EXU_V504_N0013740
6132 # //<-- MKX 20-09-2010 5.03 Task 14195
6133 #}
6134 #
6135 ENDSOURCE
6136 SOURCE #Insert
6137 #void insert(boolean _updateSmmBusRelTable = true) // BGF 08-02-2011 5.03 Task DU0001799 parm _updateSmmBusRelTable added
6138 #{
6139 # SyncAppCompany syncAppCompany;
6140 # DirPartyId localDirPartyId;
6141 #
6142 # EXU_TH_CustTable handler = EXU_TH_CustTable::newData(this);
6143 # // --> XXNEG 09-11-2011 5.04 Task DU0005881
6144 # #define.EmptyString("")
6145 # #define.SpaceBR("<br>")
6146 # // <-- XXNEG 09-11-2011 5.04 Task DU0005881
6147 # ;
6148 #
6149 # //--> KJEDL 2016-02-10 EXU_SV0035073_CountryRegionId
6150 # if (isConfigurationkeyEnabled(configurationkeynum(EXU_Xellent)))
6151 # {
6152 # handler.insertPre();
6153 # }
6154 # //<-- KJEDL 2016-02-10 EXU_SV0035073_CountryRegionId
6155 #
6156 # ttsbegin;
6157 #
6158 # handler.updateDimNo5(false);// FILAR 20-12-2011 5.04 Task DU0006763
6159 #
6160 # this.setNameAlias();
6161 #
6162 # // Check if not associated to Party
6163 # if (!this.PartyId)
6164 # {
6165 # // Create a Party entry for customer
6166 # localDirPartyId = DirParty::createPartyFromCommon(this).PartyId;
6167 # }
6168 # else
6169 # {
6170 # DirParty::updatePartyFromCommonInsert(this.PartyId,this);
6171 # }
6172 #
6173 # this.Address = StrReplace(this.Address, #SpaceBR, #EmptyString); // --> XXNEG 05-12-2011 5.04 Task DU0005881
6174 #
6175 # super();
6176 #
6177 # //When some field of a new customer is invalid and fails to be inserted, the PartId should be null.
6178 # if(localDirPartyId)
6179 # {
6180 # this.PartyId = localDirPartyId;
6181 # this.doUpdate();
6182 # }
6183 #
6184 # SalesJournalAutoSummary::initAllFromCustTable(this);
6185 #
6186 # smmTransLog::initTrans(this, smmLogAction::insert);
6187 #
6188 # // Integrate this new customer with the integrated Project Server app associated with the current company
6189 # syncAppCompany = SyncAppCompany::find(curext(), SyncAppType::ProjectServer);
6190 # if (syncAppCompany)
6191 # {
6192 # SyncCustTableLookup::insertLookupNodes(syncAppCompany.AppId, curext(), this.AccountNum, this.Name);
6193 # }
6194 #
6195 # // Add links to contact person
6196 # ContactPerson::addCustVendLink(this.TableId, this.PartyId, this.AccountNum);
6197 #
6198 # ttscommit;
6199 #
6200 # if (isConfigurationkeyEnabled(configurationkeynum(EXU_Xellent)))
6201 # {
6202 # handler.parmUpdateSmmBusRelTable(_updateSmmBusRelTable); // BGF 08-02-2011 5.03 Task DU0001799
6203 # handler.insertPost();
6204 # }
6205 #
6206 #}
6207 #
6208 #
6209 #
6210 ENDSOURCE
6211 SOURCE #interCompanyAccount
6212 #//BP Deviation Documented
6213 #display InterCompanyCustomer interCompanyAccount()
6214 #{
6215 # AifEndpoint aifEndpoint;
6216 # boolean interCompanyOrg;
6217 # ;
6218 # aifEndpoint = AifEndpoint::findInterCompanyEnabled(this.interCompanyEndpointId());
6219 # if (aifEndpoint.InterCompanyOrg)
6220 # {
6221 # changecompany(aifEndpoint.InterCompanyCompanyId)
6222 # {
6223 # interCompanyOrg = AifEndpoint::findInterCompany(aifEndpoint.DataAreaId).InterCompanyOrg;
6224 # }
6225 # }
6226 # return interCompanyOrg;
6227 #}
6228 ENDSOURCE
6229 SOURCE #interCompanyAccountExist
6230 #boolean interCompanyAccountExist()
6231 #{
6232 # ;
6233 # return (this.interCompanyAccount());
6234 #}
6235 ENDSOURCE
6236 SOURCE #interCompanyCompanyId
6237 #//BP Deviation Documented
6238 #display InterCompanyCompanyId interCompanyCompanyId()
6239 #{
6240 # InterCompanyCompanyId interCompanyCompanyId;
6241 # ;
6242 #
6243 # if (this.interCompanyAccountExist())
6244 # {
6245 # interCompanyCompanyId = AifEndpoint::findInterCompanyEnabled(this.interCompanyEndpointId()).InterCompanyCompanyId;
6246 # }
6247 #
6248 # return interCompanyCompanyId;
6249 #}
6250 ENDSOURCE
6251 SOURCE #interCompanyEndpointId
6252 #AifEndpointId interCompanyEndpointId()
6253 #{
6254 # return AifEndpointConstraint::findInterCompanyEndpointId(this);
6255 #}
6256 ENDSOURCE
6257 SOURCE #inventSiteActive
6258 #boolean inventSiteActive()
6259 #{;
6260 # return classfactory.inventDimGlobal().inventSiteActiveWithoutItem();
6261 #}
6262 ENDSOURCE
6263 SOURCE #InvoiceAccountName
6264 #//BP Deviation Documented
6265 #display CustInvoiceAccountName invoiceAccountName()
6266 #{
6267 # return CustTable::find(this.InvoiceAccount).Name;
6268 #}
6269 ENDSOURCE
6270 SOURCE #invoiceAddress
6271 #Address invoiceAddress()
6272 #{
6273 # Address address = Address::find(this.TableId, this.RecId, AddressType::Invoice);
6274 # ;
6275 # if (!address)
6276 # {
6277 # address.clear();
6278 # address.CountryRegionId = this.CountryRegionId;
6279 # address.County = this.County;
6280 # address.Email = this.Email;
6281 # address.sms = this.sms;
6282 # address.Name = this.Name;
6283 # address.Phone = this.Phone;
6284 # address.PhoneLocal = this.PhoneLocal;
6285 # address.CellularPhone = this.CellularPhone;
6286 # address.Pager = this.Pager;
6287 # address.State = this.State;
6288 # address.TeleFax = this.TeleFax;
6289 # address.Telex = this.Telex;
6290 # address.url = this.url;
6291 # address.ZipCode = this.ZipCode;
6292 # address.Street = this.Street;
6293 # address.City = this.City;
6294 # address.Address = this.Address;
6295 # }
6296 # return address;
6297 #}
6298 ENDSOURCE
6299 SOURCE #LastCollectionLetterJour
6300 #CustCollectionLetterJour lastCollectionLetterJour()
6301 #{
6302 # CustCollectionLetterJour custCollectionLetterJour;
6303 #
6304 # select firstonly custCollectionLetterJour
6305 # order CollectionLetterNum desc
6306 # where custCollectionLetterJour.AccountNum == this.AccountNum;
6307 #
6308 # return custCollectionLetterJour;
6309 #}
6310 ENDSOURCE
6311 SOURCE #LastInterestJournal
6312 #CustInterestJour lastInterestJournal()
6313 #{
6314 # CustInterestJour custInterestJour;
6315 #
6316 # select firstonly custInterestJour
6317 # order InterestNote desc
6318 # where custInterestJour.AccountNum == this.AccountNum;
6319 #
6320 # return custInterestJour;
6321 #}
6322 ENDSOURCE
6323 SOURCE #LastInvoice
6324 #CustInvoiceJour lastInvoice(NoYes _invoiceCustomer = NoYes::Yes)
6325 #{
6326 # CustInvoiceJour custInvoiceJour;
6327 # ;
6328 #
6329 # select firstonly custInvoiceJour
6330 # index hint InvoiceAccountIdx
6331 # order by InvoiceDate desc, InvoiceId desc
6332 # where custInvoiceJour.InvoiceAccount == this.AccountNum &&
6333 # custInvoiceJour.InvoiceId;
6334 # return custInvoiceJour;
6335 #}
6336 ENDSOURCE
6337 SOURCE #LastInvoiceDate
6338 #//BP Deviation Documented
6339 #display InvoiceDate lastInvoiceDate()
6340 #{
6341 # return this.lastInvoice(NoYes::Yes).InvoiceDate;
6342 #}
6343 ENDSOURCE
6344 SOURCE #LastPayment
6345 #CustTrans lastPayment()
6346 #{
6347 # CustTrans custTrans;
6348 #
6349 # select firstonly custTrans
6350 # index hint AccountDateIdx
6351 # order by TransDate desc, Voucher desc
6352 # where custTrans.AccountNum == this.AccountNum &&
6353 # custTrans.Invoice == '' &&
6354 # custTrans.AmountCur < 0;
6355 #
6356 # return custTrans;
6357 #}
6358 ENDSOURCE
6359 SOURCE #LastPaymentDate
6360 #//BP Deviation Documented
6361 #display TransDate lastPaymentDate()
6362 #{
6363 # return this.lastPayment().TransDate;
6364 #}
6365 ENDSOURCE
6366 SOURCE #lastProjInvoice
6367 #ProjInvoiceJour lastProjInvoice()
6368 #{
6369 # ProjInvoiceJour projInvoiceJour;
6370 # ;
6371 #
6372 # select firstonly projInvoiceJour
6373 # index hint InvoiceAccountIdx
6374 # order by InvoiceDate desc, ProjInvoiceId desc
6375 # where projInvoiceJour.InvoiceAccount == this.AccountNum &&
6376 # projInvoiceJour.ProjInvoiceId;
6377 # return projInvoiceJour;
6378 #}
6379 #
6380 ENDSOURCE
6381 SOURCE #lastProjInvoiceDate
6382 #//BP Deviation Documented
6383 #display InvoiceDate lastProjInvoiceDate()
6384 #{
6385 # return this.lastProjInvoice().InvoiceDate;
6386 #}
6387 ENDSOURCE
6388 SOURCE #lineDiscName
6389 #//BP Deviation Documented
6390 #display LineDiscName lineDiscName()
6391 #{
6392 # return PriceDiscGroup::find(ModuleInventCustVend::Cust,
6393 # PriceGroupType::LineDiscGroup,
6394 # this.LineDisc).Name;
6395 #}
6396 ENDSOURCE
6397 SOURCE #modifiedField
6398 #public void modifiedField(fieldId _fieldId)
6399 #{
6400 # AxCustTable axCustTable;
6401 # Object formDataSource;
6402 # DlvMode dlvMode;
6403 # #ISOCountryRegionCodes
6404 # TaxEnterpriseNumber taxEnterpriseNumberWithoutLeadingText;
6405 # TaxVATNumTable taxVATNumTable;
6406 # AddressCountryRegion addressCountryRegion;
6407 # #DEFINE.NumberRangeSep("1234567890.")
6408 # EXU_TH_CustTable exu_TH_CustTable = EXU_TH_CustTable::newData(this); // EXU LRJ 03/04/2008 FG 9828
6409 #
6410 #// EGS ALK 20071205 FG 28896481XSF MDMS, begin
6411 # EXU_ContractTable exu_ContractTable;
6412 # EXU_ContractPartTable exu_ContractPartTable;
6413 # EXU_UtilityInstallation eXU_UtilityInstallation;
6414 # EXU_DelPoint eXU_DelPoint;
6415 #// EGS ALK 20071205 FG 28896481XSF MDMS, end
6416 # EXU_DelPoint eXU_DelPointUpd; // ANLIN 10-03-2017 EXU_SV0045189_performance
6417 # ;
6418 #
6419 # super(_fieldId);
6420 # if(isConfigurationKeyEnabled(configurationKeyNum(EXU_Var)))
6421 # {
6422 # // EGS ALK 20071205 FG 28896481XSF MDMS, begin
6423 # if(isConfigurationkeyEnabled(configurationkeynum(EGS_MDMS)))
6424 # {
6425 # switch (_fieldId)
6426 # {
6427 # case fieldNum(CustTable, Name):
6428 # case fieldNum(CustTable, Street):
6429 # case fieldNum(CustTable, EXU_AdditionalName):
6430 # case fieldNum(CustTable, ZipCode):
6431 # case fieldNum(CustTable, City):
6432 # case fieldNum(CustTable, Phone):
6433 # case fieldNum(CustTable, CellularPhone):
6434 # case fieldNum(CustTable, AccountNum):
6435 # //--> ANLIN 01-02-2017 EXU_SV0045189_performance
6436 # // rewrite
6437 #// while select exu_ContractTable
6438 #// where exu_ContractTable.CustAccount == this.AccountNum
6439 #// {
6440 #// while select exu_ContractPartTable
6441 #// where exu_ContractPartTable.ContractNum == exu_ContractTable.ContractNum
6442 #// {
6443 #// select firstonly eXU_UtilityInstallation
6444 #// where eXU_UtilityInstallation.CompanyId == exu_ContractPartTable.CompanyId
6445 #// && eXU_UtilityInstallation.DeliveryCategory == exu_ContractPartTable.DeliveryCategory
6446 #// && eXU_UtilityInstallation.InstNum == exu_ContractPartTable.InstAgreeNum;
6447 #//
6448 #// //--> ANLIN 02-09-2011 5.04 Task SS0003502_ExpToMDMS
6449 #// if (eXU_UtilityInstallation.InstStatus != EXU_InstStatus::ShotDown)
6450 #// {
6451 #// //<-- ANLIN 02-09-2011 5.04 Task SS0003502_ExpToMDMS
6452 #// ttsbegin;
6453 #// select forupdate exu_DelPoint
6454 #// where exu_DelPoint.DeliveryCategory == eXU_UtilityInstallation.DeliveryCategory
6455 #// && exu_DelPoint.CompanyId == eXU_UtilityInstallation.CompanyId
6456 #// && exu_DelPoint.AttachmentNum == eXU_UtilityInstallation.InstNum;
6457 #//
6458 #// exu_DelPoint.EGS_ExportToMDMS = NoYes::Yes;
6459 #// // VAR-Modification on 17 Jan 2008 by TSD - Begin EGS_FG_60747725
6460 #// if(exu_DelPoint) //Update metoden ger felvarningar om post saknas
6461 #// // VAR-Modification on 17 Jan 2008 by TSD - End
6462 #// exu_DelPoint.update();
6463 #// ttscommit;
6464 #// }//ANLIN 02-09-2011 5.04 Task SS0003502_ExpToMDMS
6465 #// }
6466 #// }
6467 # ////////////////////////
6468 # while select exu_ContractTable
6469 # where exu_ContractTable.CustAccount == this.AccountNum
6470 # join exu_ContractPartTable
6471 # where exu_ContractPartTable.ContractNum == exu_ContractTable.ContractNum
6472 # join eXU_UtilityInstallation
6473 # where eXU_UtilityInstallation.InstNum == exu_ContractPartTable.InstAgreeNum &&
6474 # eXU_UtilityInstallation.DeliveryCategory == exu_ContractPartTable.DeliveryCategory &&
6475 # eXU_UtilityInstallation.CompanyId == exu_ContractPartTable.CompanyId &&
6476 # eXU_UtilityInstallation.InstStatus != EXU_InstStatus::ShotDown
6477 # join exu_DelPoint
6478 # where exu_DelPoint.AttachmentNum == eXU_UtilityInstallation.InstNum &&
6479 # exu_DelPoint.DeliveryCategory == eXU_UtilityInstallation.DeliveryCategory &&
6480 # exu_DelPoint.CompanyId == eXU_UtilityInstallation.CompanyId &&
6481 # exu_DelPoint.EGS_ExportToMDMS == NoYes::No
6482 # {
6483 # ttsbegin;
6484 # select firstOnly forupdate eXU_DelPointUpd
6485 # where eXU_DelPointUpd.RecId == exu_DelPoint.RecId;
6486 #
6487 # eXU_DelPointUpd.EGS_ExportToMDMS = NoYes::Yes;
6488 # eXU_DelPointUpd.update();
6489 # ttscommit;
6490 # }
6491 # //<-- ANLIN 01-02-2017 EXU_SV0045189_performance
6492 # break;
6493 # }
6494 # }
6495 # // EGS ALK 20071205 FG 28896481XSF MDMS, end
6496 # }
6497 #
6498 # if (this.isFormDataSource())
6499 # {
6500 # if (formDataSourceHasMethod(this.dataSource(),classstr(AxCustTable)))
6501 # {
6502 # formDataSource = this.dataSource();
6503 # axCustTable = formDataSource.axCustTable();
6504 # }
6505 # }
6506 # else
6507 # {
6508 # axCustTable = this.axCustTable();
6509 # }
6510 #
6511 # if (axCustTable)
6512 # {
6513 # axCustTable.setFieldAsTouched(_fieldId);
6514 # axCustTable.modify();
6515 # if (this.dataSource())
6516 # {
6517 # if (formDataSourceHasMethod(this.dataSource(),identifierstr(fieldModified)))
6518 # {
6519 # formDataSource = this.dataSource();
6520 # formDataSource.fieldModified();
6521 # }
6522 # }
6523 # }
6524 # else
6525 # {
6526 # switch(_fieldId)
6527 # {
6528 # case fieldnum(CustTable, PartyType) :
6529 # if (this.PartyId)
6530 # {
6531 # this.initFromDirParty(DirParty::constructBlank(this.PartyType));
6532 # }
6533 # this.IdentificationNumber = '';
6534 # this.PartyCountry = '';
6535 # this.PartyState = '';
6536 # break;
6537 #
6538 # case fieldnum(CustTable, PartyId) :
6539 # this.initFromDirParty(DirParty::constructFromPartyId(this.PartyId));
6540 # break;
6541 #
6542 # case fieldnum(CustTable, PaymTermId) :
6543 # this.PaymSched = PaymTerm::find(this.PaymTermId).PaymSched;
6544 # break;
6545 #
6546 # case fieldnum(CustTable, Name) :
6547 # DirParty::modifiedNameField(this);
6548 # this.setNameAlias();
6549 # this.exu_UpdateMovingInName(); // --> SBT 05-08-2011 5.04 Task SS0001578
6550 # break;
6551 #
6552 # //--> MKX 15-09-2010 5.03 Task 14192
6553 # case fieldnum(CustTable, EXU_AdditionalName) :
6554 # {
6555 # DirParty::EXU_modifiedAdditionalNameField(this);
6556 # this.exu_UpdateMovingInAdditionalName();// --> SBT 05-08-2011 5.04 Task SS0001578
6557 # break;
6558 # }
6559 # //<-- MKX 15-09-2010 5.03 Task 14192
6560 #
6561 # case fieldnum(CustTable, CustGroup) :
6562 # this.initFromCustGroup(CustGroup::find(this.CustGroup));
6563 # break;
6564 #
6565 # case fieldnum(CustTable, PaymMode) :
6566 # this.CustVendTable::paymModeModified();
6567 # break;
6568 #
6569 # case fieldnum(CustTable, ContactPersonId) :
6570 # this.initFromContactInfo();
6571 # break;
6572 #
6573 # case fieldnum(CustTable, BankCentralBankPurposeCode) :
6574 # this.CustVendTable::modifiedBankCentralBankPurposeCode();
6575 # break;
6576 # case fieldnum(CustTable, InventSiteId) :
6577 # this.InventStorageDimMap::modifiedField(fieldnum(InventStorageDimMap, InventSiteId));
6578 # break;
6579 # case fieldnum(CustTable, InventLocation) :
6580 # this.InventStorageDimMap::modifiedField(fieldnum(InventStorageDimMap, InventLocationId));
6581 # break;
6582 # //shipping module
6583 # case fieldnum(CustTable, DlvMode) :
6584 # dlvMode = DlvMode::find(this.DlvMode);
6585 # this.ShipCarrierId = dlvMode.ShipCarrierId;
6586 # this.ShipCarrierAccountCode = dlvMode.ShipCarrierAccountCode;
6587 # break;
6588 #
6589 # case fieldnum(CustTable, OrgId) :
6590 # if(CustParameters::find().CustAccountOrgIdCreate)
6591 # {
6592 # if(this.RecId == 0
6593 # && (this.AccountNum == '' ||
6594 # Box::yesNo("@SYS113290", DialogButton::Yes) == DialogButton::Yes))
6595 # {
6596 # this.AccountNum = this.OrgId;
6597 # }
6598 # else
6599 # {
6600 # if(strcmp(this.OrgId, substr(this.AccountNum, 1, strlen(this.OrgId))) != 0
6601 # && Box::yesNo(strfmt("@SYS113291", this.AccountNum), DialogButton::Yes) == DialogButton::Yes)
6602 # {
6603 # this.OrgId = this.orig().OrgId;
6604 # }
6605 # }
6606 # }
6607 # break;
6608 #
6609 # case fieldnum(CustTable, EnterpriseNumber) :
6610 # if (this.EnterpriseNumber && AddressCountryRegion::find(this.CountryRegionId).isOcode == #isoBE)
6611 # {
6612 # if (TaxEnterpriseBranchNumber_BE::checkVatObligation(this.EnterpriseNumber))
6613 # {
6614 # taxEnterpriseNumberWithoutLeadingText = strkeep(this.EnterpriseNumber, #NumberRangeSep);
6615 # this.vatNum = taxEnterpriseNumberWithoutLeadingText;
6616 #
6617 # select firstonly RecId
6618 # from taxVATNumTable
6619 # where taxVATNumTable.vatNum == taxEnterpriseNumberWithoutLeadingText
6620 # exists join addressCountryRegion
6621 # where taxVATNumTable.CountryRegionId == addressCountryRegion.CountryRegionId
6622 # && addressCountryRegion.isOcode == #isoBE;
6623 #
6624 # if (taxVATNumTable.RecId == 0)
6625 # {
6626 # ttsbegin;
6627 # taxVATNumTable.vatNum = taxEnterpriseNumberWithoutLeadingText;
6628 # taxVATNumTable.CountryRegionId = this.CountryRegionId;
6629 # taxVATNumTable.Name = this.Name;
6630 #
6631 # taxVATNumTable.insert();
6632 # ttscommit;
6633 # }
6634 # }
6635 # else
6636 # {
6637 # this.vatNum = "";
6638 # }
6639 # }
6640 # break;
6641 #
6642 # // <GMX>
6643 # case fieldnum(CustTable, CompanyType_MX) :
6644 # this.RFC_MX = '';
6645 # this.CURP_MX = '';
6646 # this.StateInscription_MX = '';
6647 # break;
6648 # // </GMX>
6649 # }
6650 # this.AddressMap::modifiedField(_fieldId);
6651 #
6652 # // EXU --> LRJ 03/04/2008 FG 9828
6653 # if (isConfigurationkeyEnabled(configurationkeynum(EXU_XellentBilling)))
6654 # {
6655 # exu_TH_CustTable.modifiedFieldPost(_fieldId);
6656 # }
6657 # // EXU <-- LRJ 03/04/2008 FG 9828
6658 # }
6659 #}
6660 #
6661 ENDSOURCE
6662 SOURCE #MultiLineDiscName
6663 #//BP Deviation Documented
6664 #display MultiLineDiscName multiLineDiscName()
6665 #{
6666 # return PriceDiscGroup::find(ModuleInventCustVend::Cust,
6667 # PriceGroupType::MultiLineDiscGroup,
6668 # this.MultiLineDisc).Name;
6669 #}
6670 ENDSOURCE
6671 SOURCE #openBalanceCur
6672 #public AmountCur openBalanceCur(TransDate _fromDate = dateNull(),
6673 # TransDate _toDate = dateMax(),
6674 # TransDate _assessmentDate = dateNull(),
6675 # CurrencyCode _currency = CompanyInfo::standardCurrency())
6676 #{
6677 # ;
6678 # return this.CustVendTable::openBalanceCur(_fromDate, _toDate, _assessmentDate, _currency);
6679 #}
6680 ENDSOURCE
6681 SOURCE #OpenBalanceMST
6682 #//BP Deviation Documented
6683 #display AmountMST openBalanceMST(FromDate _fromDate = dateNull(),
6684 # ToDate _toDate = dateMax(),
6685 # TransDate _assessmentDate = dateNull())
6686 #{
6687 # return this.CustVendTable::openBalanceMST(_fromDate, _toDate, _assessmentDate);
6688 #}
6689 ENDSOURCE
6690 SOURCE #openBalanceMSTDoc
6691 #AmountMST openBalanceMSTDoc(TransDate _transDate = dateNull(),
6692 # FromDate _fromDate = dateNull(),
6693 # ToDate _toDate = dateMax())
6694 #{
6695 # return this.CustVendTable::openBalanceMSTDoc(_transDate, _fromDate, _toDate);
6696 #}
6697 #
6698 ENDSOURCE
6699 SOURCE #OpenBalanceMSTDue
6700 #AmountMST openBalanceMSTDue(TransDate _transDate = dateNull(),
6701 # FromDate _fromDate = dateNull(),
6702 # ToDate _toDate = dateMax())
6703 #{
6704 # return this.CustVendTable::openBalanceMSTDue(_transDate, _fromDate, _toDate);
6705 #}
6706 ENDSOURCE
6707 SOURCE #openInvoiceBalanceMST
6708 #//BP Deviation Documented
6709 #display AmountMST openInvoiceBalanceMST(FromDate _fromDate = dateNull(),
6710 # ToDate _toDate = dateMax(),
6711 # TransDate _assessmentDate = dateNull())
6712 #{
6713 # CustTrans custTrans;
6714 # CustTransOpen custTransOpen;
6715 # CustSettlement custSettlement;
6716 # AmountMST openBalanceMST = 0;
6717 # ;
6718 #
6719 # if (_assessmentDate)
6720 # {
6721 # if (!(hasFieldAccess(tablenum(CustSettlement), fieldnum(CustSettlement, SettleAmountMST) &&
6722 # hasFieldAccess(tablenum(CustSettlement), fieldnum(CustSettlement, ExchAdjustment)))))
6723 # throw error("@SYS57330");
6724 #
6725 # select sum(SettleAmountMST),sum(ExchAdjustment) from custSettlement
6726 # group by AccountNum
6727 # where custSettlement.AccountNum == this.AccountNum
6728 # && custSettlement.TransDate > _assessmentDate
6729 # join custTrans
6730 # where custTrans.RecId == custSettlement.TransRecId
6731 # && custTrans.TransDate >= _fromDate
6732 # && custTrans.TransDate <= _toDate
6733 # && (custTrans.Invoice != ''
6734 # || (custTrans.Invoice == '' && custTrans.AmountMST > 0));
6735 #
6736 # openBalanceMST += custSettlement.SettleAmountMST + custSettlement.ExchAdjustment;
6737 # openBalanceMST += this.openInvoiceBalanceMST(_fromDate, _toDate);
6738 # }
6739 # else
6740 # {
6741 # if (!hasFieldAccess(tablenum(CustTransOpen), fieldnum(CustTransOpen, AmountMST)))
6742 # throw error("@SYS57330");
6743 #
6744 # while select sum(AmountMST) from custTransOpen
6745 # group by RefRecId
6746 # where custTransOpen.AccountNum == this.AccountNum
6747 # && custTransOpen.TransDate >= _fromDate
6748 # && custTransOpen.TransDate <= _toDate
6749 # join custTrans
6750 # where custTrans.RecId == custTransOpen.RefRecId
6751 # && (custTrans.Invoice != ''
6752 # || (custTrans.Invoice == '' && custTrans.AmountMST > 0))
6753 # {
6754 # openBalanceMST += custTransOpen.AmountMST;
6755 # }
6756 # }
6757 #
6758 # return openBalanceMST;
6759 #}
6760 ENDSOURCE
6761 SOURCE #openinvoiceBalanceMSTDoc
6762 #AmountMST openinvoiceBalanceMSTDoc(TransDate _transDate = dateNull(),
6763 # FromDate _fromDate = dateNull(),
6764 # ToDate _toDate = dateMax())
6765 #{
6766 # CustTrans custTrans;
6767 # CustTransOpen custTransOpen;
6768 # AmountMST amountMST = 0;
6769 # ;
6770 # while select sum(AmountMST) from custTransOpen
6771 # order by RefRecId
6772 # where custTransOpen.AccountNum == this.AccountNum
6773 # && custTransOpen.TransDate <= _transDate
6774 # exists join custTrans
6775 # where custTrans.RecId == custTransOpen.RefRecId
6776 # && ((custTrans.DocumentDate
6777 # && custTrans.DocumentDate >= _fromDate
6778 # && custTrans.DocumentDate <= _toDate)
6779 # || (!custTrans.DocumentDate
6780 # && custTrans.TransDate >= _fromDate
6781 # && custTrans.TransDate <= _toDate))
6782 # && (custTrans.Invoice != ''
6783 # || (custTrans.Invoice == '' && custTrans.AmountMST > 0))
6784 # {
6785 # amountMST += custTransOpen.AmountMST;
6786 # }
6787 # return amountMST;
6788 #}
6789 #
6790 ENDSOURCE
6791 SOURCE #openInvoiceBalanceMSTDue
6792 #AmountMST openInvoiceBalanceMSTDue(TransDate _transDate = dateNull(),
6793 # FromDate _fromDate = dateNull(),
6794 # ToDate _toDate = dateMax())
6795 #{
6796 # CustTransOpen custTransOpen;
6797 # CustTrans custTrans;
6798 # AmountMST amountMST = 0;
6799 #
6800 # while select sum(AmountMST) from custTransOpen
6801 # group by RefRecId
6802 # where custTransOpen.AccountNum == this.AccountNum
6803 # && custTransOpen.TransDate <= _transDate
6804 # && custTransOpen.DueDate >= _fromDate
6805 # && custTransOpen.DueDate <= _toDate
6806 # join custTrans
6807 # where custTrans.RecId == custTransOpen.RefRecId
6808 # && (custTrans.Invoice != ''
6809 # || (custTrans.Invoice == '' && custTrans.AmountMST > 0))
6810 # {
6811 # amountMST += custTransOpen.AmountMST;
6812 # }
6813 # return amountMST;
6814 #}
6815 #
6816 ENDSOURCE
6817 SOURCE #openPaymentBalanceMST
6818 #//BP Deviation Documented
6819 #display AmountMST openPaymentBalanceMST(FromDate _fromDate = dateNull(),
6820 # ToDate _toDate = dateMax(),
6821 # TransDate _assessmentDate = dateNull())
6822 #{
6823 # CustTrans custTrans;
6824 # CustTransOpen custTransOpen;
6825 # CustSettlement custSettlement;
6826 # AmountMST openBalanceMST = 0;
6827 # ;
6828 #
6829 # if (_assessmentDate)
6830 # {
6831 # if (!(hasFieldAccess(tablenum(CustSettlement), fieldnum(CustSettlement, SettleAmountMST) &&
6832 # hasFieldAccess(tablenum(CustSettlement), fieldnum(CustSettlement, ExchAdjustment)))))
6833 # throw error("@SYS57330");
6834 #
6835 # select sum(SettleAmountMST), sum(ExchAdjustment) from custSettlement
6836 # group by AccountNum
6837 # where custSettlement.AccountNum == this.AccountNum
6838 # && custSettlement.TransDate > _assessmentDate
6839 # join custTrans
6840 # where custTrans.RecId == custSettlement.TransRecId
6841 # && custTrans.TransDate >= _fromDate
6842 # && custTrans.TransDate <= _toDate
6843 # && custTrans.Invoice == ''
6844 # && custTrans.AmountMST < 0;
6845 #
6846 # openBalanceMST = custSettlement.SettleAmountMST + custSettlement.ExchAdjustment;
6847 # openBalanceMST += this.openPaymentBalanceMST(_fromDate, _toDate);
6848 # }
6849 # else
6850 # {
6851 # if (!hasFieldAccess(tablenum(CustTransOpen), fieldnum(CustTransOpen, AmountMST)))
6852 # throw error("@SYS57330");
6853 #
6854 # while select sum(AmountMST) from custTransOpen
6855 # group by RefRecId
6856 # where custTransOpen.AccountNum == this.AccountNum
6857 # && custTransOpen.TransDate >= _fromDate
6858 # && custTransOpen.TransDate <= _toDate
6859 # join custTrans
6860 # where custTrans.RecId == custTransOpen.RefRecId
6861 # && custTrans.Invoice == ''
6862 # && custTrans.AmountMST < 0
6863 # {
6864 # openBalanceMST += custTransOpen.AmountMST;
6865 # }
6866 # }
6867 #
6868 # return openBalanceMST;
6869 #}
6870 ENDSOURCE
6871 SOURCE #openPaymentBalanceMSTDoc
6872 #AmountMST openPaymentBalanceMSTDoc(TransDate _transDate = dateNull(),
6873 # FromDate _fromDate = dateNull(),
6874 # ToDate _toDate = dateMax())
6875 #{
6876 # CustTrans custTrans;
6877 # CustTransOpen custTransOpen;
6878 # AmountMST amountMST;
6879 #
6880 # while select sum(AmountMST) from custTransOpen
6881 # order by RefRecId
6882 # where custTransOpen.AccountNum == this.AccountNum
6883 # && custTransOpen.TransDate <= _transDate
6884 # exists join custTrans
6885 # where custTrans.RecId == custTransOpen.RefRecId
6886 # && ((custTrans.DocumentDate
6887 # && custTrans.DocumentDate >= _fromDate
6888 # && custTrans.DocumentDate <= _toDate)
6889 # || (!custTrans.DocumentDate
6890 # && custTrans.TransDate >= _fromDate
6891 # && custTrans.TransDate <= _toDate))
6892 # && custTrans.AmountMST < 0
6893 # && custTrans.Invoice == ''
6894 # {
6895 # amountMST += custTransOpen.AmountMST;
6896 # }
6897 # return amountMST;
6898 #}
6899 #
6900 ENDSOURCE
6901 SOURCE #openPaymentBalanceMSTDue
6902 #AmountMST openPaymentBalanceMSTDue(TransDate _transDate = dateNull(),
6903 # FromDate _fromDate = dateNull(),
6904 # ToDate _toDate = dateMax())
6905 #{
6906 # CustTransOpen custTransOpen;
6907 # CustTrans custTrans;
6908 # AmountMST amountMST;
6909 #
6910 # while select sum(AmountMST) from custTransOpen
6911 # group by RefRecId
6912 # where custTransOpen.AccountNum == this.AccountNum
6913 # && custTransOpen.TransDate <= _transDate
6914 # && custTransOpen.DueDate >= _fromDate
6915 # && custTransOpen.DueDate <= _toDate
6916 # join custTrans
6917 # where custTrans.RecId == custTransOpen.RefRecId
6918 # && custTrans.Invoice == ''
6919 # && custTrans.AmountMST < 0
6920 # {
6921 # amountMST += custTransOpen.AmountMST;
6922 # }
6923 # return amountMST;
6924 #}
6925 #
6926 ENDSOURCE
6927 SOURCE #paymName
6928 #//BP Deviation Documented
6929 #display Description paymName()
6930 #{
6931 # return this.CustVendTable::paymName();
6932 #}
6933 ENDSOURCE
6934 SOURCE #PriceDiscGroupName
6935 #//BP Deviation Documented
6936 #display PriceDiscName priceDiscGroupName()
6937 #{
6938 # return PriceDiscGroup::find(ModuleInventCustVend::Cust,
6939 # PriceGroupType::PriceGroup,
6940 # this.PriceGroup).Name;
6941 #}
6942 ENDSOURCE
6943 SOURCE #projectListName
6944 #//BP Deviation Documented
6945 #display Name projectListName()
6946 #{
6947 # return "@SYS62154";
6948 #}
6949 ENDSOURCE
6950 SOURCE #PromptCust
6951 #str promptCust()
6952 #{
6953 # return strfmt('%1 %2\n%3 %4\n%5 %6',fieldpname(CustTable, AccountNum), this.AccountNum,
6954 # fieldpname(CustTable, Name), this.Name,
6955 # fieldpname(CustTable, Address), this.Address);
6956 #}
6957 ENDSOURCE
6958 SOURCE #RemainAmountCurPeriod
6959 #//BP Deviation Documented
6960 #display AmountCur remainAmountCurPeriod(TransDate _fromDate = dateNull(),
6961 # TransDate _todate = systemdateget(),
6962 # CurrencyCode _currencyCode = this.Currency)
6963 #{
6964 # CustTrans custTrans;
6965 #
6966 # select sum (AmountCur), sum (SettleAmountCur) from custTrans
6967 # group by CurrencyCode
6968 # where custTrans.AccountNum == this.AccountNum &&
6969 # custTrans.TransDate >= _fromDate &&
6970 # custTrans.TransDate <= _todate &&
6971 # custTrans.CurrencyCode == _currencyCode;
6972 #
6973 # return (custTrans.AmountCur - custTrans.SettleAmountCur);
6974 #}
6975 ENDSOURCE
6976 SOURCE #renamePrimaryKey
6977 #public void renamePrimaryKey()
6978 #{
6979 # boolean isVirtual;
6980 # DataArea company;
6981 # CustTable originalCustTable;
6982 # LedgerJournalTrans ledgerJournalTrans;
6983 # VirtualDataAreaList virtualCompanies;
6984 # container concreteCompanies;
6985 # int concreteCompanyCount;
6986 # CompanyId outerCompany;
6987 # int innerLoopCounter;
6988 # CompanyId innerCompany;
6989 # ;
6990 #
6991 # // Capture the renamed record
6992 # originalCustTable = this.orig();
6993 #
6994 # super();
6995 #
6996 # select firstonly company where company.Id == this.DataAreaId;
6997 # isVirtual = company.IsVirtual;
6998 #
6999 # if (isVirtual)
7000 # {
7001 # // Customer is in a virtual company
7002 #
7003 # // Capture the concrete companies that are part of the customer's virtual company
7004 # while select virtualCompanies where virtualCompanies.VirtualDataArea == this.DataAreaId
7005 # {
7006 # concreteCompanies += virtualCompanies.Id;
7007 # }
7008 #
7009 # concreteCompanyCount = conlen(concreteCompanies);
7010 #
7011 # if (isConfigurationkeyEnabled(configurationkeynum(LedgerAdvIntercompanyAccounting)))
7012 # {
7013 # // Intercompany is enabled - need to loop over all concrete companies
7014 # while select company
7015 # where company.IsVirtual == false
7016 # {
7017 # outerCompany = company.Id;
7018 #
7019 # // Update related records for each concrete company
7020 # changecompany(outerCompany)
7021 # {
7022 # // Reset the ledgerJournalTrans
7023 # ledgerJournalTrans = null;
7024 # ledgerJournalTrans.skipDataMethods(true);
7025 #
7026 # // Loop over concrete companies in the virtual company
7027 # for (innerLoopCounter = 1; innerLoopCounter <= concreteCompanyCount; innerLoopCounter++)
7028 # {
7029 # innerCompany = conpeek(concreteCompanies, innerLoopCounter);
7030 #
7031 # // Update records with this customer as primary account
7032 # update_recordset ledgerJournalTrans
7033 # setting AccountNum = this.AccountNum
7034 # where ledgerJournalTrans.Company == innerCompany &&
7035 # ledgerJournalTrans.AccountType == LedgerJournalACType::Cust &&
7036 # ledgerJournalTrans.AccountNum == originalCustTable.AccountNum;
7037 #
7038 # // Update records with this customer as offset account
7039 # update_recordset ledgerJournalTrans
7040 # setting OffsetAccount = this.AccountNum
7041 # where ledgerJournalTrans.OffsetCompany == innerCompany &&
7042 # ledgerJournalTrans.OffsetAccountType == LedgerJournalACType::Cust &&
7043 # ledgerJournalTrans.OffsetAccount == originalCustTable.AccountNum;
7044 # }
7045 # }
7046 # }
7047 # }
7048 # else
7049 # {
7050 # // Intercompany is disabled - need to loop over concrete companies in the virtual company
7051 # for (innerLoopCounter = 1; innerLoopCounter <= concreteCompanyCount; innerLoopCounter++)
7052 # {
7053 # innerCompany = conpeek(concreteCompanies, innerLoopCounter);
7054 #
7055 # changecompany(innerCompany)
7056 # {
7057 # // Reset the ledgerJournalTrans
7058 # ledgerJournalTrans = null;
7059 # ledgerJournalTrans.skipDataMethods(true);
7060 #
7061 # // Update records with this customer as primary account
7062 # // OffsetAccount will be updated in super() from the relation.
7063 # update_recordset ledgerJournalTrans
7064 # setting AccountNum = this.AccountNum
7065 # where ledgerJournalTrans.Company == innerCompany &&
7066 # ledgerJournalTrans.AccountType == LedgerJournalACType::Cust &&
7067 # ledgerJournalTrans.AccountNum == originalCustTable.AccountNum;
7068 # }
7069 # }
7070 # }
7071 # }
7072 # else
7073 # {
7074 # // Customer that is being updated is not in a virtual company
7075 # // If intercompany is enabled, must update the intercompany transactions for all other companies
7076 # if (isConfigurationkeyEnabled(configurationkeynum(LedgerAdvIntercompanyAccounting)))
7077 # {
7078 # while select company
7079 # where company.IsVirtual == false
7080 # {
7081 # outerCompany = company.Id;
7082 #
7083 # // Update related records for each concrete company
7084 # changecompany(outerCompany)
7085 # {
7086 # // Reset the ledgerJournalTrans
7087 # ledgerJournalTrans = null;
7088 # ledgerJournalTrans.skipDataMethods(true);
7089 #
7090 # // Update records with this customer as primary account
7091 # update_recordset ledgerJournalTrans
7092 # setting AccountNum = this.AccountNum
7093 # where ledgerJournalTrans.Company == originalCustTable.DataAreaId &&
7094 # ledgerJournalTrans.AccountType == LedgerJournalACType::Cust &&
7095 # ledgerJournalTrans.AccountNum == originalCustTable.AccountNum;
7096 # }
7097 # }
7098 # }
7099 # }
7100 #}
7101 ENDSOURCE
7102 SOURCE #SetAccountOnVend
7103 #server void setAccountOnVend(CustTable custTable_Orig)
7104 #{
7105 # VendTable vendTable;
7106 # ;
7107 #
7108 # ttsbegin;
7109 #
7110 # if (this.VendAccount != custTable_Orig.VendAccount)
7111 # {
7112 # if (custTable_Orig.VendAccount)
7113 # {
7114 # vendTable = VendTable::find(custTable_Orig.VendAccount,true);
7115 #
7116 # if (vendTable)
7117 # {
7118 # vendTable.CustAccount = '';
7119 # vendTable.update();
7120 # }
7121 # }
7122 #
7123 # if (this.VendAccount)
7124 # {
7125 # vendTable = VendTable::find(this.VendAccount,true);
7126 # if (vendTable)
7127 # {
7128 # vendTable.CustAccount = this.AccountNum;
7129 # vendTable.update();
7130 # }
7131 # }
7132 #
7133 #
7134 # }
7135 #
7136 # ttscommit;
7137 #}
7138 ENDSOURCE
7139 SOURCE #SetNameAlias
7140 #void setNameAlias()
7141 #{
7142 # if (! this.NameAlias)
7143 # {
7144 # this.NameAlias = this.Name;
7145 # }
7146 #}
7147 ENDSOURCE
7148 SOURCE #settlementBuffer
7149 #CustSettlement settlementBuffer()
7150 #{
7151 # CustSettlement custSettlement;
7152 # ;
7153 # return custSettlement;
7154 #}
7155 ENDSOURCE
7156 SOURCE #showPartyMatchIcon
7157 #//BP Deviation documented
7158 #display DirPartyMatchIcon showPartyMatchIcon()
7159 #{
7160 # ;
7161 # return DirParty::showPartyMatchIcon(this);
7162 #}
7163 ENDSOURCE
7164 SOURCE #stateName
7165 #//BP Deviation Documented
7166 #display AddressStatename stateName()
7167 #{
7168 # return AddressState::find(this.CountryRegionId, this.State).Name;
7169 #}
7170 ENDSOURCE
7171 SOURCE #SumAccount
7172 #//BP Deviation Documented
7173 #display LedgerAccount sumAccount(CustPostingProfile _custPostingProfile = CustParameters::find().PostingProfile)
7174 #{
7175 # return CustLedgerAccounts::sumAccount(this.AccountNum, _custPostingProfile);
7176 #}
7177 ENDSOURCE
7178 SOURCE #TaxGroupName
7179 #//BP Deviation Documented
7180 #display TaxGroupName taxGroupName()
7181 #{
7182 # return TaxGroupHeading::find(this.TaxGroup).TaxGroupName;
7183 #}
7184 ENDSOURCE
7185 SOURCE #transBuffer
7186 #CustTrans transBuffer()
7187 #{
7188 # CustTrans custTrans;
7189 # ;
7190 #
7191 # return custTrans;
7192 #}
7193 ENDSOURCE
7194 SOURCE #transOpenBuffer
7195 #CustTransOpen transOpenBuffer()
7196 #{
7197 # CustTransOpen custTransOpen;
7198 # ;
7199 #
7200 # return custTransOpen;
7201 #}
7202 ENDSOURCE
7203 SOURCE #Update
7204 #//--> MIHAK 05-02-2015 EXU_SS0027052_Z06EToIncorrSupplier
7205 #//void update(boolean _updateSmmBusRelTable = true, boolean _updateParty = true)
7206 #void update(boolean _updateSmmBusRelTable = true,
7207 # boolean _updateParty = true,
7208 # EGS_CustTableParameters _custTableParameters = EGS_CustTableParameters::withParams())
7209 #//<-- MIHAK 05-02-2015 EXU_SS0027052_Z06EToIncorrSupplier
7210 #{
7211 # CustTable this_Orig = this.orig();
7212 # recVersion rv = this_Orig.RecVersion;
7213 # EXU_TH_CustTable handler = EXU_TH_CustTable::newData(this);
7214 # // --> XXNEG 09-11-2011 5.04 Task DU0005881
7215 # #define.EmptyString("")
7216 # #define.SpaceBR("<br>")
7217 # // <-- XXNEG 09-11-2011 5.04 Task DU0005881
7218 # EXU_ContractTable exu_ContractTable; // ANLIN 16-04-2014 EXU_SS0016628_mailSMSinvoice
7219 # EGS_AutogiroTable egs_AutogiroTable; // ANLIN 02-09-2014 EXU_SS0023179_AutogiroStatus
7220 # EGS_AutogiroTable egs_AutogiroTableUpd; // ANLIN 02-09-2014 EXU_SS0023179_AutogiroStatus
7221 # boolean smsInvoiceCleared = false; // ANLIN 29-10-2014 EXU_SS0026434_mailSMSinvoice
7222 # ;
7223 #
7224 # if (isConfigurationkeyEnabled(configurationkeynum(EXU_Xellent)))
7225 # {
7226 # handler.parmCustTableParameters(_custTableParameters); // MIHAK 05-02-2015 EXU_SS0027052_Z06EToIncorrSupplier
7227 # handler.updatePre();
7228 # }
7229 #
7230 # ttsbegin;
7231 #
7232 # //--> FILAR 20-12-2011 5.04 Task DU0006763
7233 # handler.updateDimNo5(true);
7234 # //<-- FILAR 20-12-2011 5.04 Task DU0006763
7235 #
7236 # this.setNameAlias();
7237 #
7238 # if(isConfigurationkeyEnabled(configurationkeynum(EXU_XellentBilling)))
7239 # {
7240 # handler.updatePreContractTable();
7241 # }
7242 #
7243 # if (_updateParty)
7244 # {
7245 # DirParty::updatePartyFromCommon(this.PartyId, this);
7246 # }
7247 # //--> KJEDL 2017-09-25 EXU_SV0050590_AddressAddress
7248 # if (this.Street != this_orig.Street ||
7249 # this.ZipCode != this_orig.ZipCode ||
7250 # this.City != this_orig.City ||
7251 # this.CountryRegionId != this_orig.CountryRegionId ||
7252 # this.State != this_orig.State ||
7253 # this.County != this_orig.County)
7254 # {
7255 # this.Address = Address::formatAddress(this.Street,
7256 # this.ZipCode,
7257 # this.City,
7258 # this.CountryRegionId,
7259 # this.State,
7260 # this.County);
7261 # }
7262 # //<-- KJEDL 2017-09-25 EXU_SV0050590_AddressAddress
7263 #
7264 # this.Address = StrReplace(this.Address, #SpaceBR, #EmptyString); // --> XXNEG 05-12-2011 5.04 Task DU0005881
7265 #
7266 # //--> ANLIN 12-06-2014 EXU_SS0024247_SMSMailInvoice
7267 # if(isConfigurationKeyEnabled(configurationKeyNum(EGS_BillingExpandedDistributionMethod)))
7268 # {
7269 # if (CustParameters::find().EGS_DistributionMethodSMSeMail &&
7270 # this.EGS_SMSInvoice != '' && // ANLIN 30-10-2014 EXU_SS0026434_mailSMSinvoice
7271 # this.EGS_AutogiroStatus != EGS_AutogiroStatus::ActiveAgreement)
7272 # {
7273 # this.EGS_SMSInvoice = '';
7274 # smsInvoiceCleared = true; // ANLIN 29-10-2014 EXU_SS0026434_mailSMSinvoice
7275 # //--> ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7276 # //this.EGS_eMailInvoice = '';
7277 # //<-- ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7278 # while select forupdate exu_ContractTable
7279 # where exu_ContractTable.CustAccount == this.AccountNum &&
7280 # exu_ContractTable.AutogiroStatus != EGS_AutogiroStatus::ActiveAgreement &&
7281 # //--> ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7282 # //(exu_ContractTable.EGS_SMSInvoice != '' ||
7283 # // exu_ContractTable.EGS_eMailInvoice != '')
7284 # exu_ContractTable.EGS_SMSInvoice != ''
7285 # //<-- ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7286 # {
7287 # exu_ContractTable.EGS_SMSInvoice = '';
7288 # //--> ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7289 # //exu_ContractTable.EGS_eMailInvoice = '';
7290 # //<-- ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7291 # exu_ContractTable.update();
7292 # }
7293 # }
7294 # }
7295 # //<-- ANLIN 12-06-2014 EXU_SS0024247_SMSMailInvoice
7296 #
7297 # super();
7298 #
7299 # if (_updateSmmBusRelTable)
7300 # {
7301 # smmBusRelTable::updateFromCustTableSFA2(this, '', false);
7302 # }
7303 #
7304 # this.setAccountOnVend(this_Orig);
7305 #
7306 # if (this_Orig.CustGroup != this.CustGroup)
7307 # {
7308 # ForecastSales::setCustGroupId(this.AccountNum,
7309 # this_Orig.CustGroup,
7310 # this.CustGroup);
7311 # }
7312 # //--> ANLIN 02-09-2014 EXU_SS0023179_AutogiroStatus
7313 # if (this_Orig.EGS_AutogiroStatus != this.EGS_AutogiroStatus)
7314 # {
7315 # //--> ANLIN 19-12-2014 EXU_SS0027427_autogiro
7316 # // Of some strange reason we get an update conflict when importing the AutoGiro file????? So the code is rewritten.
7317 # //select firstonly forupdate egs_AutogiroTable
7318 # select firstonly egs_AutogiroTable
7319 # //<-- ANLIN 19-12-2014 EXU_SS0027427_autogiro
7320 # order by transdate desc
7321 # where egs_AutogiroTable.ConsentCode == EXU_ConsentCode::Customer &&
7322 # egs_AutogiroTable.CustAccount == this.AccountNum &&
7323 #// egs_AutogiroTable.TransDate == this.EGS_AutogiroTransDate &&
7324 # egs_AutogiroTable.PaymentNumber == this.EGS_AutogiroPaymentNumber;
7325 #
7326 # if (egs_AutogiroTable.RecId)
7327 # {
7328 # //--> ANLIN 19-12-2014 EXU_SS0027427_autogiro
7329 #// egs_AutogiroTable.AutogiroStatus = this.EGS_AutogiroStatus;
7330 #// egs_AutogiroTable.doupdate();
7331 # egs_AutogiroTableUpd.clear();
7332 # egs_AutogiroTableUpd.skipDataMethods(true);
7333 # update_recordset egs_AutogiroTableUpd
7334 # setting AutogiroStatus = this.EGS_AutogiroStatus
7335 # where egs_AutogiroTableUpd.RecId == egs_AutogiroTable.RecId;
7336 # egs_AutogiroTableUpd.skipDataMethods(false);
7337 # //<-- ANLIN 19-12-2014 EXU_SS0027427_autogiro
7338 # }
7339 # }
7340 # //<-- ANLIN 02-09-2014 EXU_SS0023179_AutogiroStatus
7341 #
7342 # smmTransLog::initTrans(this, smmLogAction::update);
7343 #//--> ANLIN 12-06-2014 EXU_SS0024247_SMSMailInvoice
7344 #// Move up before super
7345 #// //--> ANLIN 15-04-2014 EXU_SS0016628_mailSMSinvoice
7346 #// if(isConfigurationKeyEnabled(configurationKeyNum(EGS_BillingExpandedDistributionMethod)))
7347 #// {
7348 #// if (CustParameters::find().EGS_DistributionMethodSMSeMail &&
7349 #// this.EGS_AutogiroStatus != EGS_AutogiroStatus::ActiveAgreement)
7350 #// {
7351 #// this.EGS_SMSInvoice = '';
7352 #// //--> ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7353 #// //this.EGS_eMailInvoice = '';
7354 #// //<-- ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7355 #// while select forupdate exu_ContractTable
7356 #// where exu_ContractTable.CustAccount == this.AccountNum &&
7357 #// exu_ContractTable.AutogiroStatus != EGS_AutogiroStatus::ActiveAgreement &&
7358 #// //--> ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7359 #// //(exu_ContractTable.EGS_SMSInvoice != '' ||
7360 #// // exu_ContractTable.EGS_eMailInvoice != '')
7361 #// exu_ContractTable.EGS_SMSInvoice != ''
7362 #// //<-- ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7363 #// {
7364 #// exu_ContractTable.EGS_SMSInvoice = '';
7365 #// //--> ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7366 #// //exu_ContractTable.EGS_eMailInvoice = '';
7367 #// //<-- ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7368 #// exu_ContractTable.update();
7369 #// }
7370 #// }
7371 #// }
7372 #// //<-- ANLIN 15-04-2014 EXU_SS0016628_mailSMSinvoice
7373 #//<-- ANLIN 12-06-2014 EXU_SS0024247_SMSMailInvoice
7374 # //--> ANLIN 29-10-2014 EXU_SS0026434_mailSMSinvoice
7375 # if (!smsInvoiceCleared && this_Orig.EGS_SMSInvoice != this.EGS_SMSInvoice)
7376 # {
7377 # if (box::yesNo("@EGS7189", DialogButton::No) == DialogButton::Yes)
7378 # {// Ska kundens alla kontrakt uppdateras med distributionssätt SMS faktura
7379 # while select forupdate exu_ContractTable
7380 # where exu_ContractTable.CustAccount == this.AccountNum &&
7381 # exu_ContractTable.EGS_eMailInvoice == ''
7382 # {
7383 # exu_ContractTable.EGS_SMSInvoice = this.EGS_SMSInvoice;
7384 # exu_ContractTable.update();
7385 # }
7386 # }
7387 # }
7388 # if (this_Orig.EGS_eMailInvoice != this.EGS_eMailInvoice)
7389 # {
7390 # if (box::yesNo("@EGS7190", DialogButton::No) == DialogButton::Yes)
7391 # {// Ska kundens alla kontrakt uppdateras med distributionssätt ePost faktura
7392 # while select forupdate exu_ContractTable
7393 # where exu_ContractTable.CustAccount == this.AccountNum &&
7394 # exu_ContractTable.EGS_SMSInvoice == ''
7395 # {
7396 # exu_ContractTable.EGS_eMailInvoice = this.EGS_eMailInvoice;
7397 # exu_ContractTable.update();
7398 # }
7399 # }
7400 # }
7401 # //<-- ANLIN 29-10-2014 EXU_SS0026434_mailSMSinvoice
7402 #
7403 # // If the customer name has changed
7404 # if(this.RecVersion != rv && this_Orig.Name != this.Name)
7405 # {
7406 # // Set the flag for customer lookup nodes for this customer to Update
7407 # SyncCustTableLookup::updateLookupNodes(curext(), this.AccountNum, this.Name);
7408 # }
7409 #
7410 # if (isConfigurationkeyEnabled(configurationkeynum(EXU_Xellent)))
7411 # {
7412 # handler.updatePost();
7413 # }
7414 # else
7415 # {
7416 # ttscommit;
7417 # }
7418 #
7419 #}
7420 ENDSOURCE
7421 SOURCE #validateDelete
7422 #boolean validateDelete()
7423 #{
7424 # boolean ret;
7425 # CustTable custTable;
7426 # SalesTable salesTable;
7427 # ;
7428 #
7429 # ret = super();
7430 #
7431 # if (this.AccountNum)
7432 # {
7433 # select count(RecId) from custTable
7434 # where custTable.InvoiceAccount == this.AccountNum;
7435 #
7436 # if (custTable.RecId)
7437 # {
7438 # ret = checkFailed("@SYS67133");
7439 # }
7440 #
7441 # select count(RecId) from salesTable
7442 # where salesTable.InvoiceAccount == this.AccountNum;
7443 #
7444 # if (salesTable.RecId)
7445 # {
7446 # ret = checkFailed(strfmt("@SYS75284", tablepname(SalesTable)));
7447 # }
7448 # }
7449 #
7450 # return ret;
7451 #}
7452 ENDSOURCE
7453 SOURCE #validateField
7454 #boolean validateField(fieldId p1)
7455 #{
7456 # #isoCountryRegionCodes
7457 # boolean ret;
7458 # EXU_TH_CustTable handler = EXU_TH_CustTable::newData(this);
7459 #// EXU_ContractTable eXU_ContractTable; // ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7460 # ExtCodeValueTable extCodeValueTable; // ANLIN 28-10-2014 EXU_SS0026434_mailSMSinvoice
7461 # ExtCodeTable extCodeTable; // ANLIN 28-10-2014 EXU_SS0026434_mailSMSinvoice
7462 # ;
7463 #
7464 # if(!this.AddressMap::validatePostalCode(p1))
7465 # {
7466 # return false;
7467 # }
7468 #
7469 # ret = super(p1);
7470 #
7471 # if (ret)
7472 # {
7473 # switch (p1)
7474 # {
7475 # //--> TOSAN 03-01-2012 5.04 Task DU0005556
7476 # case fieldnum(CustTable, eInvoice) :
7477 # if (This.EInvoice == noyes::Yes && !This.VATNum)
7478 # {
7479 # //--> XXNEG 19-03-2012 5.04 Task DU0008082
7480 # //warning("@EGU42354");
7481 # warning("@EGU42910");
7482 # //<-- XXNEG 19-03-2012 5.04 Task DU0008082
7483 # }
7484 # ret = true;
7485 # break;
7486 #
7487 # //<-- TOSAN 03-01-2012 5.04 Task DU0005556
7488 # case fieldnum(CustTable, vatNum) :
7489 # ret = TaxVATNumTable::checkVATNum(this.vatNum, this, p1);
7490 # ret = ret && TaxEnterpriseBranchNumber_BE::checkEnterPriseNumber(this.EnterpriseNumber, this.vatNum, true);
7491 # if (ret)
7492 # {
7493 # ret = this.checkVATNumUsed();
7494 # }
7495 # break;
7496 #
7497 # case fieldnum(CustTable, CreditMax) :
7498 # if (this.CreditMax < 0)
7499 # {
7500 # ret = checkFailed("@SYS69970");
7501 # }
7502 # break;
7503 #
7504 # case fieldnum(CustTable, EnterpriseNumber) :
7505 # if (this.EnterpriseNumber && AddressCountryRegion::find(this.CountryRegionId).isOcode != #isoBE)
7506 # {
7507 # ret = checkFailed("@SYS117686");
7508 # }
7509 # else
7510 # {
7511 # ret = ret && TaxEnterpriseBranchNumber_BE::checkEnterPriseNumber(this.EnterpriseNumber);
7512 # }
7513 # break;
7514 #
7515 # case fieldnum(CustTable, InventLocation) :
7516 # ret = this.InventStorageDimMap::validateField(fieldnum(InventStorageDimMap, InventLocationId));
7517 # break;
7518 #
7519 # case fieldnum(CustTable, OrgId) :
7520 # if(CustParameters::find().CustOrgIdValidate
7521 # && this.CustVendTable::checkOrgId() == false)
7522 # {
7523 # ret = checkFailed("@SYS113286");
7524 # }
7525 # break;
7526 #
7527 # // <GMX>
7528 # case fieldnum(CustTable, Rfc_MX) :
7529 # if (EInvoiceParameters_MX::isElectronicInvoiceEnabled())
7530 # {
7531 # ret = TaxRegistrationValidation_MX::validateRFC(this.RFC_MX, this.CompanyType_MX);
7532 # }
7533 # break;
7534 #
7535 # case fieldnum(CustTable, Curp_MX) :
7536 # if (EInvoiceParameters_MX::isElectronicInvoiceEnabled())
7537 # {
7538 # ret = TaxRegistrationValidation_MX::validateCurp(this.CURP_MX, this.CompanyType_MX);
7539 # }
7540 # break;
7541 #
7542 # case fieldnum(CustTable, StateInscription_MX):
7543 # if (EInvoiceParameters_MX::isElectronicInvoiceEnabled())
7544 # {
7545 # ret = TaxRegistrationValidation_MX::validateStateInscription(this.StateInscription_MX);
7546 # }
7547 # break;
7548 # // </GMX>
7549 #
7550 #// --> PEHSV 2011-10-24 DU0001175
7551 # case fieldnum(CustTable, EinvoiceEANNum):
7552 #// TODO ret = CustTable::checkEInvoiceEAN(this.EinvoiceEANNum);
7553 # break;
7554 #// <-- PEHSV 2011-10-24 DU0001175
7555 # //--> ANLIN 10-04-2014 EXU_SS0016628_mailSMSinvoice
7556 # case fieldNum(CustTable, EGS_eMailInvoice):
7557 # {
7558 # if (this.EGS_eMailInvoice != '')
7559 # {
7560 # //--> ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7561 #// if(CustParameters::find().EGS_DistributionMethodSMSeMail && this.EGS_AutogiroStatus != EGS_AutogiroStatus::ActiveAgreement)
7562 #// {
7563 #// ret = checkfailed("@EGS6980");
7564 #// }
7565 #// else
7566 # //<-- ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7567 # if (this.EGS_SMSInvoice != '')
7568 # {
7569 # ret = checkfailed("@EGS6975");
7570 # }
7571 # else if (!strfind(this.EGS_eMailInvoice, '@', 1, strlen(this.EGS_eMailInvoice)))
7572 # {
7573 # ret = checkFailed("@EGS6970");
7574 # }
7575 #//--> ANLIN 28-10-2014 EXU_SS0026434_mailSMSinvoice
7576 #// //--> ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7577 #// select firstOnly eXU_ContractTable
7578 #// where eXU_ContractTable.CustAccount == this.AccountNum &&
7579 #// //--> ANLIN 15-10-2014 EXU_SS0025756_mailSMSinvoice
7580 #// (eXU_ContractTable.ContractEndDate >= systemdateget() ||
7581 #// eXU_ContractTable.ContractEndDate == DateNull()) &&
7582 #// //<-- ANLIN 15-10-2014 EXU_SS0025756_mailSMSinvoice
7583 #// (eXU_ContractTable.EGS_EDIInvoice == NoYes::Yes || eXU_ContractTable.eInvoiceEANNum != '');
7584 #//
7585 #// if (eXU_ContractTable.RecId)
7586 #// {
7587 #// warning("@EGS7069");
7588 #// }
7589 #// //<-- ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7590 # else if (this.EGS_EnergyAccountStatus == EGS_EnergyAccountStatus::Active)
7591 # {
7592 # ret = checkfailed("@EGS6977");
7593 # }
7594 # else
7595 # {
7596 # select firstOnly extCodeValueTable
7597 # where extCodeValueTable.ExtCodeRelationTableId == this.TableId &&
7598 # extCodeValueTable.ExtCodeRelationRecId == this.RecId;
7599 # if (extCodeValueTable.RecId)
7600 # {
7601 # select firstOnly extCodeTable
7602 # where extCodeTable.ExtCodeTableId == extCodeValueTable.ExtCodeTableTableId &&
7603 # extCodeTable.ExtCodeId == extCodeValueTable.ExtCodeId &&
7604 # extCodeTable.DimensionCode == extCodeValueTable.DimensionCode;
7605 #
7606 # ret = checkfailed(strfmt("@EGS7188", extCodeTable.ExtCodeDescription));
7607 # }
7608 # }
7609 #//<-- ANLIN 28-10-2014 EXU_SS0026434_mailSMSinvoice
7610 # }
7611 # break;
7612 # }
7613 # case fieldNum(CustTable, EGS_SMSInvoice):
7614 # {
7615 # if (this.EGS_SMSInvoice != '')
7616 # {
7617 # if(CustParameters::find().EGS_DistributionMethodSMSeMail && this.EGS_AutogiroStatus != EGS_AutogiroStatus::ActiveAgreement)
7618 # {
7619 # ret = checkfailed("@EGS6980");
7620 # }
7621 # else if (this.EGS_eMailInvoice != '')
7622 # {
7623 # ret = checkfailed("@EGS6976");
7624 # }
7625 #//--> ANLIN 28-10-2014 EXU_SS0026434_mailSMSinvoice
7626 #// //--> ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7627 #// select firstOnly eXU_ContractTable
7628 #// where eXU_ContractTable.CustAccount == this.AccountNum &&
7629 #// //--> ANLIN 15-10-2014 EXU_SS0025756_mailSMSinvoice
7630 #// (eXU_ContractTable.ContractEndDate >= systemdateget() ||
7631 #// eXU_ContractTable.ContractEndDate == DateNull()) &&
7632 #// //<-- ANLIN 15-10-2014 EXU_SS0025756_mailSMSinvoice
7633 #// (eXU_ContractTable.EGS_EDIInvoice == NoYes::Yes || eXU_ContractTable.eInvoiceEANNum != '');
7634 #//
7635 #// if (eXU_ContractTable.RecId)
7636 #// {
7637 #// warning("@EGS7069");
7638 #// }
7639 #// //<-- ANLIN 04-06-2014 EXU_SS0024247_SMSMailInvoice
7640 # else if (this.EGS_EnergyAccountStatus == EGS_EnergyAccountStatus::Active)
7641 # {
7642 # ret = checkfailed("@EGS6977");
7643 # }
7644 # else
7645 # {
7646 # select firstOnly extCodeValueTable
7647 # where extCodeValueTable.ExtCodeRelationTableId == this.TableId &&
7648 # extCodeValueTable.ExtCodeRelationRecId == this.RecId;
7649 # if (extCodeValueTable.RecId)
7650 # {
7651 # select firstOnly extCodeTable
7652 # where extCodeTable.ExtCodeTableId == extCodeValueTable.ExtCodeTableTableId &&
7653 # extCodeTable.ExtCodeId == extCodeValueTable.ExtCodeId &&
7654 # extCodeTable.DimensionCode == extCodeValueTable.DimensionCode;
7655 #
7656 # ret = checkfailed(strfmt("@EGS7188", extCodeTable.ExtCodeDescription));
7657 # }
7658 # }
7659 #//<-- ANLIN 28-10-2014 EXU_SS0026434_mailSMSinvoice
7660 # }
7661 # break;
7662 # }
7663 # //<-- ANLIN 10-04-2014 EXU_SS0016628_mailSMSinvoice
7664 #
7665 # }
7666 #
7667 # if (isConfigurationkeyEnabled(configurationkeynum(EXU_Xellent)))
7668 # {
7669 # ret = ret && handler.validateFieldPost(ret,p1);
7670 # }
7671 # }
7672 # return ret;
7673 #}
7674 #
7675 ENDSOURCE
7676 SOURCE #validateIdentificationForCreditLimit
7677 #/// <summary>
7678 #/// Validates whether the <c>IdentificationNumber</c> for the <c>CreditLimit</c> is required.
7679 #/// </summary>
7680 #/// <returns>
7681 #/// true if the <c>IdentificationNumber</c> is require. otherwise, false.
7682 #/// </returns>
7683 #/// <remarks>
7684 #/// This method is called when the <c>IdentificationNumber</c> is not entered.
7685 #/// It returns false if the <c>CreditIdentificationRequire</c> is yes, the <c>MandatoryCreditLimit</c> is yes,
7686 #/// and the <c>CreditMax</c> is greater than zero.
7687 #/// It returns false if the <c>CreditIdentificationRequire</c> is yes, the <c>MandatoryCreditLimit</c> is no,
7688 #/// and the <c>CreditMax</c> is greater than or equal to zero.
7689 #/// It returns false if the <c>CreditIdentificationRequire</c> is the minimum limit and the <c>CreditMax</c>
7690 #/// is greater than or equal to the <c>CreditLimit</c>.
7691 #/// It returns false if the <c>CreditIdentificationRequire</c> is the minimum limit, the <c>MandatoryCreditLimit</c> is no,
7692 #/// the <c>CreditMax</c> is zero, and the <c>CreditLimit</c> is greater than zero.
7693 #/// </remarks>
7694 #private boolean validateIdentificationForCreditLimit()
7695 #{
7696 # boolean ret;
7697 # CustParameters custParameters;
7698 # #define.Zero(0)
7699 # ;
7700 #
7701 # custParameters = CustParameters::find();
7702 # switch(custParameters.CreditIdentificationRequire)
7703 # {
7704 # case CreditIdentificationRequireType::Yes:
7705 # if(this.MandatoryCreditLimit == NoYes::Yes && this.CreditMax > #Zero)
7706 # {
7707 # ret = false;
7708 # }
7709 # else if(this.MandatoryCreditLimit == NoYes::No && this.CreditMax >= #Zero)
7710 # {
7711 # ret = false;
7712 # }
7713 # else
7714 # {
7715 # ret = true;
7716 # }
7717 # break;
7718 # case CreditIdentificationRequireType::MinimumLimit:
7719 # if(this.CreditMax >= custParameters.CreditLimit)
7720 # {
7721 # ret = false;
7722 # }
7723 # else if(this.CreditMax == #Zero && custParameters.CreditLimit > #Zero && this.MandatoryCreditLimit == NoYes::No)
7724 # {
7725 # ret = false;
7726 # }
7727 # else
7728 # {
7729 # ret = true;
7730 # }
7731 # break;
7732 # case CreditIdentificationRequireType::No:
7733 # ret = true;
7734 # break;
7735 # default:
7736 # throw error(strfmt("@SYS12580",custParameters.CreditIdentificationRequire));
7737 # }
7738 #
7739 # return ret;
7740 #}
7741 #
7742 ENDSOURCE
7743 SOURCE #validateWrite
7744 #/// <summary>
7745 #/// Validates the current <c>CustTable</c> table buffer.
7746 #/// </summary>
7747 #/// <returns>
7748 #/// true if the table buffer is valid; otherwise, false.
7749 #/// </returns>
7750 #/// <remarks>
7751 #/// It checks the <c>IdentificationNumber</c>. If it is not entered it calls the <c>validateIdentificationForCreditLimit</c>
7752 #/// method to check the necessary conditions for the <c>IdentificationNumber</c>.
7753 #/// </remarks>
7754 #
7755 #boolean validateWrite()
7756 #{
7757 # #isoCountryRegionCodes
7758 # boolean ret;
7759 # EXU_TH_CustTable handler = EXU_TH_CustTable::newData(this);
7760 #
7761 # ret = super();
7762 #
7763 # ret = ret && appl.dimensionSetValidation().checkDimension(this, fieldnum(CustTable, Dimension), true);
7764 #
7765 # if (ret)
7766 # {
7767 # if (PaymTerm::isCashAccount(this.PaymTermId) && this.PaymSched)
7768 # {
7769 # ret = checkFailed("@SYS25074");
7770 # }
7771 #
7772 # if (!this.OneTimeCustomer && TaxVATNumTable::isVATNumMandatory(CustParameters::find().MandatoryVATNum, this))
7773 # {
7774 # ret = checkFailed("@SYS54494");
7775 # }
7776 #
7777 # if (isConfigurationkeyEnabled(configurationkeynum(EXU_XellentBilling)))
7778 # {
7779 # ret = ret && handler.validateWriteXellent();
7780 # ret = ret && handler.validateWritePost(ret); // EXU LRJ 03/044/2008 FG 9828
7781 # }
7782 #
7783 # }
7784 #
7785 # if (ret)
7786 # {
7787 # ret = appl.dimensionSetValidation().checkDimension(this, fieldnum(CustTable, Dimension), true);
7788 # }
7789 #
7790 # if (isConfigurationkeyEnabled(configurationkeynum(EXU_Service)))
7791 # {
7792 # ret = ret && handler.validateWritePost(ret);
7793 # }
7794 #
7795 # // Add check MandatoryTaxGroup is set on CustParameters.
7796 # if (ret && CustParameters::find().MandatoryTaxGroup && !this.TaxGroup)
7797 # {
7798 # ret = checkFailed("@SYS113299");
7799 # }
7800 #
7801 # if(ret && CustParameters::find().CustMandatoryOrgId && !this.OrgId)
7802 # {
7803 # ret = checkFailed("@SYS113297");
7804 # }
7805 #
7806 # if(!this.IdentificationNumber)
7807 # {
7808 # if(!this.validateIdentificationForCreditLimit())
7809 # {
7810 # switch(this.PartyType)
7811 # {
7812 # case DirPartyType::Organization:
7813 # ret = checkFailed(strfmt("@SYS114304","@SYS114297"));
7814 # break;
7815 # case DirPartyType::Person:
7816 # ret = checkFailed(strfmt("@SYS114304","@SYS114298"));
7817 # break;
7818 # default:
7819 # throw error(strfmt("@SYS12580",this.PartyType));
7820 # }
7821 # }
7822 # }
7823 # //SIG - start
7824 # // Check if not associated to Party
7825 # if (isConfigurationkeyEnabled(configurationkeynum(SIG)) && ret && !this.RecId && !this.PartyId)
7826 # {
7827 # // Create a Party entry for customer
7828 # this.PartyId = DirParty::createPartyFromCommon(this).PartyId;
7829 # }
7830 # //SIG - end
7831 #
7832 # // <GMX>
7833 # if (EInvoiceParameters_MX::isElectronicInvoiceEnabled())
7834 # {
7835 # ret = TaxRegistrationValidation_MX::validateCustomerTaxRegistration(this) && ret;
7836 # }
7837 # // </GMX>
7838 #
7839 # return ret;
7840 #}
7841 #
7842 ENDSOURCE
7843 SOURCE #VendorAccountName
7844 #//BP Deviation Documented
7845 #display VendInvoiceAccountName vendorAccountName()
7846 #{
7847 # return VendTable::find(this.VendAccount).Name;
7848 #}
7849 ENDSOURCE
7850 SOURCE #write
7851 #public void write()
7852 #{
7853 #
7854 # EXU_TH_CustTable handler = EXU_TH_CustTable::newData(this);
7855 # ;
7856 #
7857 # if(isConfigurationkeyEnabled(configurationkeynum(EXU_XellentBilling)))
7858 # {
7859 # handler.writePre();
7860 # }
7861 # super();
7862 #}
7863 ENDSOURCE
7864 SOURCE #blocked
7865 #static CustVendorBlocked blocked(CustAccount _custAccount)
7866 #{
7867 # return CustTable::find(_custAccount).Blocked;
7868 #}
7869 ENDSOURCE
7870 SOURCE #canCustomerBeUpdated
7871 #static boolean canCustomerBeUpdated(CustAccount _custAccount,
7872 # CustInvoiceAccount _invoiceAccount,
7873 # DocumentStatus _documentStatus = DocumentStatus::None)
7874 #{
7875 # boolean ok = true;
7876 # ;
7877 #
7878 # if (_documentStatus == DocumentStatus::Invoice ||
7879 # _documentStatus == DocumentStatus::PickingList ||
7880 # _documentStatus == DocumentStatus::PackingSlip ||
7881 # _documentStatus == DocumentStatus::FreeTextInvoice)
7882 # {
7883 # ok = (!(CustTable::blocked(_custAccount) != CustVendorBlocked::No ||
7884 # CustTable::blocked(_invoiceAccount) != CustVendorBlocked::No));
7885 # }
7886 # else
7887 # {
7888 # ok = (!(CustTable::blocked(_custAccount) == CustVendorBlocked::All));
7889 # }
7890 # return ok;
7891 #}
7892 ENDSOURCE
7893 SOURCE #checkCreditLimit
7894 #server static boolean checkCreditLimit(CustAccount _custAccount,
7895 # TypeOfCreditmaxCheck _check = CustParameters::find().CreditMaxCheck,
7896 # AmountMST _amountMST = 0,
7897 # boolean _warning = CustParameters::find().CreditLineError == CreditLineErrorType::Warning)
7898 #{
7899 # CustCreditLimit custCL = new CustCreditLimit(CustTable::find(_custAccount));
7900 #
7901 # custCL.addAmountMST(_amountMST);
7902 # custCL.typeOfCreditMaxCheck(_check);
7903 # custCL.warning(_warning);
7904 #
7905 # return (custCL.check() || _warning); // return true if warning is true regardless of the check
7906 #}
7907 #
7908 ENDSOURCE
7909 SOURCE #checkEInvoiceEAN
7910 #public static boolean checkEInvoiceEAN(EinvoiceEANNum _einvoiceEANNum)
7911 #{
7912 # boolean ret = true;
7913 # EinvoiceEANNum eanNum = _einvoiceEANNum;
7914 #
7915 # int eanSum;
7916 # Counter c;
7917 # int multiply = 3;
7918 # char chkDgt;
7919 # ;
7920 #
7921 #// --> EXU
7922 #/*
7923 # if (strlen(eanNum) != 13)
7924 # {
7925 # throw error(strfmt("@SYS100770", eanNum));
7926 # }
7927 #*/
7928 #// <-- EXU
7929 #
7930 # // --> GDP 28-12-2010 5.03 Task 14536 - Refactoring EXU_BUS/EXU_VAR
7931 # if (!str2IntOk(eanNum))
7932 # {
7933 # ret = checkfailed(strfmt("@SYS100771", eanNum));
7934 # return ret;
7935 # }
7936 # // <-- GDP 28-12-2010 5.03 Task 14536 - Refactoring EXU_BUS/EXU_VAR
7937 #
7938 # if (isConfigurationKeyEnabled(configurationKeyNum(EXU_VAR)))
7939 # {
7940 # if (strlen(eanNum) == 13)
7941 # {
7942 # for (c = 12; c >= 1; c--)
7943 # {
7944 # eanSum += multiply * str2int(substr(eanNum, c, 1));
7945 #
7946 # if (multiply == 3)
7947 # {
7948 # multiply = 1;
7949 # }
7950 # else
7951 # {
7952 # multiply = 3;
7953 # }
7954 # }
7955 #
7956 # chkDgt = int2str(any2int(roundUp(eanSum, 10)) - eanSum);
7957 #
7958 # if (substr(eanNum, 13,1) != chkDgt)
7959 # {
7960 # ret = checkfailed(strfmt("@SYS100772", eanNum));
7961 # }
7962 # }
7963 # else
7964 # {
7965 # if (strlen(eanNum) != 12)
7966 # ret = checkfailed(strfmt("@EGS4292", eanNum));
7967 # }
7968 # }
7969 # else
7970 # //Only perform check on EInvoiceEAN if the country is Denmark
7971 # if (eanNum && isConfigurationkeyEnabled(configurationkeynum(CRSEDenmark)))
7972 # {
7973 # if (strlen(eanNum) != 13)
7974 # {
7975 # ret = checkfailed(strfmt("@SYS100770", eanNum));
7976 # }
7977 #
7978 # if (ret && !str2IntOk(eanNum))
7979 # {
7980 # ret = checkfailed(strfmt("@SYS100771", eanNum));
7981 # }
7982 #
7983 # for (c = 12; c >= 1; c--)
7984 # {
7985 # eanSum += multiply * str2int(substr(eanNum, c, 1));
7986 #
7987 # if (multiply == 3)
7988 # {
7989 # multiply = 1;
7990 # }
7991 # else
7992 # {
7993 # multiply = 3;
7994 # }
7995 # }
7996 #
7997 # chkDgt = int2str(any2int(roundUp(eanSum, 10)) - eanSum);
7998 #
7999 # if (ret && substr(eanNum, 13,1) != chkDgt)
8000 # {
8001 # ret = checkfailed(strfmt("@SYS100772", eanNum));
8002 # }
8003 # }
8004 # //<-- LETHO 03-08-2011 5.04 Task DU0002201_LETHO_2
8005 #
8006 # return ret;
8007 #}
8008 ENDSOURCE
8009 SOURCE #checkEInvoiceEAN_OLD
8010 #public static void checkEInvoiceEAN_OLD(EinvoiceEANNum _einvoiceEANNum)
8011 #{
8012 # boolean ok = true;
8013 # EinvoiceEANNum eanNum = _einvoiceEANNum;
8014 #
8015 # int eanSum;
8016 # Counter c;
8017 # int multiply = 3;
8018 # char chkDgt;
8019 # ;
8020 #
8021 # // --> GDP 28-12-2010 5.03 Task 14536 - Refactoring EXU_BUS/EXU_VAR
8022 # if (!str2IntOk(eanNum))
8023 # {
8024 # throw error(strfmt("@SYS100771", eanNum));
8025 # }
8026 # // <-- GDP 28-12-2010 5.03 Task 14536 - Refactoring EXU_BUS/EXU_VAR
8027 # //--> LETHO 03-08-2011 5.04 Task DU0002201_LETHO_2
8028 # /*
8029 # if(isConfigurationKeyEnabled(configurationKeyNum(EXU_Bus)))
8030 # {
8031 # if (strlen(eanNum) != 13)
8032 # {
8033 # throw error(strfmt("@SYS100770", eanNum));
8034 # }
8035 # // --> GDP 28-12-2010 5.03 Task 14536 - Refactoring EXU_BUS/EXU_VAR
8036 # //if (!str2IntOk(eanNum))
8037 # //{
8038 # // throw error(strfmt("@SYS100771", eanNum));
8039 # //}
8040 # // <-- GDP 28-12-2010 5.03 Task 14536 - Refactoring EXU_BUS/EXU_VAR
8041 # for (c = 12; c >= 1; c--)
8042 # {
8043 # eanSum += multiply * str2int(substr(eanNum, c, 1));
8044 #
8045 # if (multiply == 3)
8046 # {
8047 # multiply = 1;
8048 # }
8049 # else
8050 # {
8051 # multiply = 3;
8052 # }
8053 # }
8054 #
8055 # chkDgt = int2str(any2int(roundUp(eanSum, 10)) - eanSum);
8056 #
8057 # if (substr(eanNum, 13,1) != chkDgt)
8058 # {
8059 # throw error(strfmt("@SYS100772", eanNum));
8060 # }
8061 # }
8062 # else if(isConfigurationKeyEnabled(configurationKeyNum(EXU_Var)))
8063 # {
8064 # // JRS20080812 30784888EGS Make the 13th cheksum digit not mandatory
8065 # // --> GDP 28-12-2010 5.03 Task 14536 - Refactoring EXU_BUS/EXU_VAR
8066 # //if (!str2IntOk(eanNum))
8067 # //{
8068 # // throw error(strfmt("@SYS100771", eanNum));
8069 # //}
8070 # // <-- GDP 28-12-2010 5.03 Task 14536 - Refactoring EXU_BUS/EXU_VAR
8071 # if (strlen(eanNum) == 13)
8072 # {
8073 # for (c = 12; c >= 1; c--)
8074 # {
8075 # eanSum += multiply * str2int(substr(eanNum, c, 1));
8076 #
8077 # if (multiply == 3)
8078 # {
8079 # multiply = 1;
8080 # }
8081 # else
8082 # {
8083 # multiply = 3;
8084 # }
8085 # }
8086 #
8087 # chkDgt = int2str(any2int(roundUp(eanSum, 10)) - eanSum);
8088 #
8089 # if (substr(eanNum, 13,1) != chkDgt)
8090 # {
8091 # throw error(strfmt("@SYS100772", eanNum));
8092 # }
8093 # }
8094 # else
8095 # {
8096 # if (strlen(eanNum) != 12)
8097 # throw error(strfmt("@EGS4292", eanNum));
8098 # }
8099 # }
8100 # */
8101 #
8102 # if (isConfigurationKeyEnabled(configurationKeyNum(EXU_VAR)))
8103 # {
8104 # if (strlen(eanNum) == 13)
8105 # {
8106 # for (c = 12; c >= 1; c--)
8107 # {
8108 # eanSum += multiply * str2int(substr(eanNum, c, 1));
8109 #
8110 # if (multiply == 3)
8111 # {
8112 # multiply = 1;
8113 # }
8114 # else
8115 # {
8116 # multiply = 3;
8117 # }
8118 # }
8119 #
8120 # chkDgt = int2str(any2int(roundUp(eanSum, 10)) - eanSum);
8121 #
8122 # if (substr(eanNum, 13,1) != chkDgt)
8123 # {
8124 # throw error(strfmt("@SYS100772", eanNum));
8125 # }
8126 # }
8127 # else
8128 # {
8129 # if (strlen(eanNum) != 12)
8130 # throw error(strfmt("@EGS4292", eanNum));
8131 # }
8132 # }
8133 # else
8134 # {
8135 # if (strlen(eanNum) != 13)
8136 # {
8137 # throw error(strfmt("@SYS100770", eanNum));
8138 # }
8139 # for (c = 12; c >= 1; c--)
8140 # {
8141 # eanSum += multiply * str2int(substr(eanNum, c, 1));
8142 #
8143 # if (multiply == 3)
8144 # {
8145 # multiply = 1;
8146 # }
8147 # else
8148 # {
8149 # multiply = 3;
8150 # }
8151 # }
8152 #
8153 # chkDgt = int2str(any2int(roundUp(eanSum, 10)) - eanSum);
8154 #
8155 # if (substr(eanNum, 13,1) != chkDgt)
8156 # {
8157 # throw error(strfmt("@SYS100772", eanNum));
8158 # }
8159 # }
8160 # //<-- LETHO 03-08-2011 5.04 Task DU0002201_LETHO_2
8161 #}
8162 ENDSOURCE
8163 SOURCE #checkExist
8164 #static boolean checkExist(CustAccount _custAccount)
8165 #{
8166 # boolean ret = true;
8167 #
8168 # if (_custAccount && !CustTable::exist(_custAccount))
8169 # {
8170 # ret = checkFailed(strfmt(CustTable::txtNotExist(), _custAccount));
8171 # }
8172 #
8173 # return ret;
8174 #}
8175 ENDSOURCE
8176 SOURCE #checkExistAndOpen
8177 #static boolean checkExistAndOpen(CustAccount _custAccount,
8178 # AmountCur _amountCur)
8179 #{
8180 # boolean ret;
8181 # CustTable custTable;
8182 # ;
8183 #
8184 # custTable = CustTable::find(_custAccount);
8185 #
8186 # if (! custTable)
8187 # {
8188 # ret = checkFailed(strfmt("@SYS4730", _custAccount));
8189 # }
8190 # else
8191 # {
8192 # ret = custTable.checkAccountBlocked(_amountCur);
8193 # }
8194 #
8195 # return ret;
8196 #}
8197 ENDSOURCE
8198 SOURCE #createOneTimeAccount
8199 #server static CustAccount createOneTimeAccount(Common _common)
8200 #{
8201 # NumberSeq numberSeq;
8202 # CustTable custTable;
8203 # ;
8204 #
8205 # if (!CustTable::createOneTimeAccountValidate())
8206 # return '';
8207 #
8208 # ttsbegin;
8209 #
8210 # numberSeq = NumberSeq::newGetNum(CustParameters::numRefOneTimeCustomerAccount());
8211 #
8212 # custTable = CustTable::find(CustParameters::find().DefaultCust);
8213 #
8214 # custTable.AccountNum = numberSeq.num();
8215 # custTable.PartyId = '';
8216 #
8217 # switch (_common.TableId)
8218 # {
8219 # case tablenum(CustInvoiceTable) :
8220 # custTable.initFromCustInvoiceTable(_common);
8221 # break;
8222 #
8223 # case tablenum(SalesTable) :
8224 # custTable.initFromSalesTable(_common);
8225 # break;
8226 #
8227 # case tablenum(SalesQuotationTable) :
8228 # custTable.initFromSalesQuotationTable(_common);
8229 # break;
8230 #
8231 # default :
8232 # throw error(strfmt("@SYS18917",tableid2name(_common.TableId)));
8233 # }
8234 #
8235 # custTable.insert();
8236 #
8237 # ttscommit;
8238 #
8239 # return custTable.AccountNum;
8240 #}
8241 #
8242 ENDSOURCE
8243 SOURCE #createOneTimeAccountValidate
8244 #static boolean createOneTimeAccountValidate()
8245 #{
8246 # boolean ok = true;
8247 #
8248 # if (!CustTable::find(CustParameters::find().DefaultCust))
8249 # {
8250 # ok = checkFailed("@SYS57574");
8251 # }
8252 # return ok;
8253 #}
8254 ENDSOURCE
8255 SOURCE #creditMax
8256 #static AmountMST creditMax(CustAccount _custAccount)
8257 #{
8258 # return CustTable::find(_custAccount).CreditMax;
8259 #}
8260 ENDSOURCE
8261 SOURCE #deleteOneTimeAccount
8262 #server static void deleteOneTimeAccount(CustAccount _custAccount)
8263 #{
8264 # CustTable custTable = CustTable::find(_custAccount);
8265 # NumberSequenceTable numberSequenceTable;
8266 # NumberSequenceReference numberSequenceReference;
8267 # SalesTable salesTable;
8268 # ;
8269 # if (!custTable)
8270 # return;
8271 #
8272 # select firstonly salesTable
8273 # where salesTable.CustAccount == _custAccount;
8274 #
8275 # if (salesTable.RecId)
8276 # return;
8277 #
8278 # ttsbegin;
8279 #
8280 # delete_from custTable
8281 # where custTable.AccountNum == _custAccount;
8282 #
8283 # numberSequenceReference = CustParameters::numRefOneTimeCustomerAccount();
8284 # if (numberSequenceReference)
8285 # {
8286 # numberSequenceTable = NumberSequenceTable::find(numberSequenceReference.NumberSequence);
8287 # if (numberSequenceTable.Continuous)
8288 # {
8289 # NumberSeq::release(numberSequenceTable.NumberSequence, _custAccount);
8290 # }
8291 # }
8292 #
8293 # ttscommit;
8294 #
8295 #}
8296 #
8297 ENDSOURCE
8298 SOURCE #egh_NotificationValidAuthorization
8299 #// EGH LRJ 01/06/2007 FG 8212
8300 #static boolean egh_NotificationValidAuthorization(CustAccount _custAccount,
8301 # EGH_NotificationDate _notificationDate)
8302 #{
8303 # return EXU_STH_CustTable::construct().egh_NotificationValidAuthorization(_custAccount,_notificationDate);
8304 #}
8305 ENDSOURCE
8306 SOURCE #EGS_AuthenticateCustomer
8307 #// This function is part of the integration of xellent portal with malarenergi web site.
8308 #// This method handels the authentication of a customer
8309 #// EGS, YRA, 14.05.07 mailto: yra@edbgruppen.dk
8310 #
8311 #
8312 #// start EGS_30415491XSF_Authenticate 2008-04-31 FGU
8313 #// Have changed the input parameter to EXU_AlternativeCustomerNumberStr since the old one was to short.
8314 #//static boolean EGS_AuthenticateCustomer(CustAccount _custAccount,
8315 #// EXU_PNumberStr _personalIdentityNumber)
8316 #// end EGS_30415491XSF_Authenticate 2008-04-31 FGU
8317 #static boolean EGS_AuthenticateCustomer(CustAccount _custAccount,
8318 # EXU_AlternativeCustomerNumberStr _personalIdentityNumber)
8319 #{
8320 # CustTable custTable;
8321 # boolean ret;
8322 # ;
8323 #
8324 # if (_custAccount && _personalIdentityNumber)
8325 # {
8326 #
8327 # select firstonly custTable
8328 # index hint AccountIdx
8329 # where custTable.accountNum == _custAccount
8330 #// VAR-Modification on 24 Jan 2008 by EXT - Begin
8331 #// && custTable.EXU_PNumber == _personalIdentityNumber;
8332 # && custTable.EXU_AlternativeCustomerNumber == _personalIdentityNumber;
8333 #// VAR-Modification on 24 Jan 2008 by EXT - End
8334 #
8335 # if(custTable)
8336 # {
8337 # ret = true;
8338 # }
8339 # else
8340 # {
8341 # ret = false;
8342 # }
8343 # }
8344 # else
8345 # {
8346 # ret = false;
8347 # }
8348 #
8349 # return ret;
8350 #}
8351 ENDSOURCE
8352 SOURCE #EGS_findByAlternativeNumber
8353 #//EGU --> 2006.02.21, inserted by egu/TTJ
8354 #static CustTable EGS_findByAlternativeNumber(EXU_AlternativeCustomerNumberStr _customerNumber,
8355 # boolean _forUpdate = false)
8356 #{
8357 # CustTable custTable;
8358 # ;
8359 #
8360 # if (_customerNumber)
8361 # {
8362 # custTable.selectForUpdate(_forUpdate);
8363 #
8364 # select firstonly custTable
8365 # index hint EXU_AltCustNumIdx
8366 # where custTable.EXU_AlternativeCustomerNumber == _customerNumber;
8367 # }
8368 # return custTable;
8369 #}
8370 ENDSOURCE
8371 SOURCE #EGS_findByAltNumberAndCustGroup
8372 #//EXU_SV0054702 MIFAL 2018-05-08
8373 #static CustTable EGS_findByAltNumberAndCustGroup(EXU_AlternativeCustomerNumberStr _customerNumber,
8374 # CustGroupId _custGroup,
8375 # boolean _forUpdate = false)
8376 #{
8377 # CustTable custTable;
8378 # ;
8379 #
8380 # if (_customerNumber)
8381 # {
8382 # custTable.selectForUpdate(_forUpdate);
8383 #
8384 # select firstonly custTable
8385 # index hint EXU_AltCustNumIdx
8386 # where custTable.EXU_AlternativeCustomerNumber == _customerNumber
8387 # && custTable.CustGroup == _custGroup;
8388 # }
8389 # return custTable;
8390 #}
8391 ENDSOURCE
8392 SOURCE #exist
8393 #static boolean exist(CustAccount _custAccount)
8394 #{
8395 # return _custAccount && (select firstonly RecId from custTable
8396 # index hint AccountIdx
8397 # where custTable.AccountNum == _custAccount).RecId != 0;
8398 #}
8399 ENDSOURCE
8400 SOURCE #existDlvMode
8401 #/// <summary>
8402 #/// Checks if the delivery mode is used on a customer record.
8403 #/// </summary>
8404 #/// <param name="_dlvModeId">
8405 #/// The <c>DlvModeId</c> value that specifies the delivery mode record.
8406 #/// </param>
8407 #/// <returns>
8408 #/// true if the deliver mode is used on a customer; otherwise, false.
8409 #/// </returns>
8410 #public static server boolean existDlvMode(DlvModeId _dlvModeId)
8411 #{
8412 # CustTable custTable;
8413 # ;
8414 #
8415 # if (_dlvModeId == '')
8416 # {
8417 # return false;
8418 # }
8419 #
8420 # select firstonly
8421 # RecId from custTable
8422 # where
8423 # custTable.DlvMode == _dlvModeId;
8424 #
8425 # return (custTable.RecId != 0);
8426 #}
8427 #
8428 ENDSOURCE
8429 SOURCE #EXU_findDPRCVR
8430 #static CustTable EXU_findDPRCVR(EXU_AlternativeCustomerCode _alternativeCustomerCode,
8431 # EXU_AlternativeCustomerNumberStr _alternativeCustomerNumber,
8432 # EXU_PNumberStr _pNumber,
8433 # boolean _forUpdate = false)
8434 #{
8435 # ;
8436 # return EXU_STH_CustTable::construct().EXU_findDPRCVR(_alternativeCustomerCode,
8437 # _alternativeCustomerNumber,
8438 # _pNumber,
8439 # _forUpdate);
8440 #}
8441 ENDSOURCE
8442 SOURCE #EXU_getMailMergePatternName
8443 #// BP Deviation Documented.
8444 #static Public Container EXU_getMailMergePatternName(EXU_MailMergeModules _modules,
8445 # EXU_MailMergePatternName _name,
8446 # Str 3 _prefix = '',
8447 # Str 3 _suffix = '')
8448 #{
8449 # ;
8450 # return EXU_STH_CustTable::construct().EXU_getMailMergePatternName(new DictTable(tablenum(CustTable)).makeRecord(),
8451 # _modules,
8452 # _name,
8453 # _prefix,
8454 # _suffix);
8455 #}
8456 ENDSOURCE
8457 SOURCE #EXU_lookupCustId
8458 #// FRGUL 07-11-2011 5.04 Task SS0004819
8459 #public client static void EXU_lookupCustId(Object _ctrl)
8460 #{
8461 # Args args;
8462 # FormRun formRun;
8463 # ;
8464 #
8465 # args = new Args();
8466 # args.name(formstr(EXU_CustNumberLookup));
8467 # args.caller(_ctrl);
8468 # formRun = classfactory.formRunClass(args);
8469 # formRun.init();
8470 # _ctrl.performFormLookup(formRun);
8471 #}
8472 ENDSOURCE
8473 SOURCE #EXU_MailMergeCreateFields2View
8474 #static void EXU_MailMergeCreateFields2View(EXU_MailMergeModules _module,
8475 # NoYes _isRepeating,
8476 # EXU_MailMergeGroupNum _groupNumDK,
8477 # EXU_MailMergeGroupNum _groupNumUS,
8478 # Str 3 _prefix,
8479 # Str 3 _postfix)
8480 #{
8481 # ;
8482 #
8483 # EXU_STH_CustTable::construct().EXU_MailMergeCreateFields2View(_module,
8484 # _isRepeating,
8485 # _groupNumDK,
8486 # _groupNumUS,
8487 # _prefix,
8488 # _postfix,
8489 # new DictTable(tablenum(CustTable)).makeRecord());
8490 #}
8491 ENDSOURCE
8492 SOURCE #EXU_WebAccountNum
8493 #// --> BVR 30-08-2011 5.04 Task DU0004733
8494 #public static CustAccount EXU_WebAccountNum(CustAccount _custAccount,
8495 # Email _email,
8496 # str _password)
8497 #{
8498 # CustTable custTable;
8499 # EXU_WebUSerTable exu_WebUserTable;
8500 # CustAccount custAccount;
8501 # ;
8502 #
8503 # if (_email && _custAccount)
8504 # {
8505 # select custTable
8506 # where custTable.AccountNum == _custAccount &&
8507 # custTable.Email == _email
8508 # join exu_WebUserTable
8509 # where exu_WebUserTable.WebLogin == custTable.AccountNum;
8510 #
8511 # if(CustTable.RecId && exu_WebUserTable.getWebPasswordStr() == _password)
8512 # {
8513 # custAccount = custTable.AccountNum;
8514 # }
8515 # }
8516 # else if (_email)
8517 # {
8518 # while select custTable
8519 # where custTable.Email == _email
8520 # join exu_WebUserTable
8521 # where exu_WebUserTable.WebLogin == custTable.AccountNum
8522 # {
8523 # // If more than one User Email has same passwords, then return null
8524 # if(exu_WebUserTable.getWebPasswordStr() == _password)
8525 # {
8526 # if(custAccount)
8527 # {
8528 # custAccount = '';
8529 # break;
8530 # }
8531 # else
8532 # {
8533 # custAccount = custTable.AccountNum;
8534 # }
8535 # }
8536 # }
8537 # }
8538 #
8539 # return custAccount;
8540 #}
8541 ENDSOURCE
8542 SOURCE #find
8543 #static CustTable find(CustAccount _custAccount,
8544 # boolean _forUpdate = false)
8545 #{
8546 # CustTable custTable;
8547 # ;
8548 #
8549 # if (_custAccount)
8550 # {
8551 # if (_forUpdate)
8552 # custTable.selectForUpdate(_forUpdate);
8553 #
8554 # select firstonly custTable
8555 # index hint AccountIdx
8556 # where custTable.AccountNum == _custAccount;
8557 # }
8558 # return custTable;
8559 #}
8560 ENDSOURCE
8561 SOURCE #findByCompany
8562 #/// <summary>
8563 #/// Finds the specified record in the CustTable table.
8564 #/// </summary>
8565 #/// <param name="_company">
8566 #/// The company of the customer record.
8567 #/// </param>
8568 #/// <param name="_custAccount">
8569 #/// The account number of the customer record.
8570 #/// </param>
8571 #/// <param name="_forUpdate">
8572 #/// A Boolean value that indicates whether to read the record for update; optional.
8573 #/// </param>
8574 #/// <returns>
8575 #/// A record in the CustTable table; otherwise, an empty record.
8576 #/// </returns>
8577 #public static CustTable findByCompany(
8578 # dataAreaId _company,
8579 # CustAccount _custAccount,
8580 # boolean _forUpdate = false)
8581 #{
8582 # CustTable cust;
8583 # ;
8584 #
8585 # changecompany(_company)
8586 # {
8587 # cust = CustTable::find(_custAccount, _forUpdate);
8588 # }
8589 #
8590 # return cust;
8591 #}
8592 ENDSOURCE
8593 SOURCE #findByPartyId
8594 #static CustTable findByPartyId(DirPartyId _partyId,
8595 # boolean _forUpdate = false)
8596 #{
8597 # CustTable custTable;
8598 # ;
8599 #
8600 # if (_partyId)
8601 # {
8602 # if (_forUpdate)
8603 # custTable.selectForUpdate(_forUpdate);
8604 #
8605 # select firstonly custTable
8606 # where custTable.PartyId == _partyId;
8607 # }
8608 # return custTable;
8609 #}
8610 ENDSOURCE
8611 SOURCE #findRecId
8612 #static CustTable findRecId(recId _recId,
8613 # boolean _forUpdate = false)
8614 #{
8615 # CustTable custTable;
8616 # ;
8617 #
8618 # if (_recId)
8619 # {
8620 # custTable.selectForUpdate(_forUpdate);
8621 #
8622 # select firstonly custTable
8623 # where custTable.RecId == _recId;
8624 # }
8625 # return custTable;
8626 #}
8627 ENDSOURCE
8628 SOURCE #groupId
8629 #static CustGroupId groupId(CustAccount _custAccount)
8630 #{
8631 # return CustTable::find(_custAccount).CustVendTable::groupId();
8632 #}
8633 ENDSOURCE
8634 SOURCE #inventSiteIdCustItem
8635 #/// <summary>
8636 #/// Looks up site Id for an item depending on the customer if multisite is enabled
8637 #/// </summary>
8638 #/// <param name="_custAccount">
8639 #/// The customer buying the item
8640 #/// </param>
8641 #/// <param name="_itemId">
8642 #/// The id of the ietm
8643 #/// </param>
8644 #/// <returns>
8645 #/// The site from which the item is sold to the customer (e.g. in which the warehouse can be found)
8646 #/// </returns>
8647 #
8648 #static InventSiteId inventSiteIdCustItem(CustAccount _custAccount, ItemId _itemId)
8649 #{
8650 # InventItemSalesSetup inventItemSalesSetup = InventItemSalesSetup::findDefault(_itemId);
8651 # CustTable custTable;
8652 # CompanyInfo companyInfo;
8653 # InventSiteId inventSiteIdItem;
8654 #
8655 # ;
8656 #
8657 # if(inventItemSalesSetup)
8658 # {
8659 # inventSiteIdItem = inventItemSalesSetup.inventSiteId();
8660 #
8661 # if(inventItemSalesSetup.MandatoryInventSite)
8662 # return inventSiteIdItem;
8663 # }
8664 #
8665 # custTable = CustTable::find(_custAccount);
8666 #
8667 # if(custTable.InventSiteId)
8668 # return custTable.InventSiteId;
8669 #
8670 # if (inventSiteIdItem)
8671 # return inventSiteIdItem;
8672 #
8673 # companyInfo = CompanyInfo::find();
8674 #
8675 # if(companyInfo.fallBackSiteId())
8676 # return companyInfo.fallBackSiteId();
8677 #
8678 # return '';
8679 #}
8680 ENDSOURCE
8681 SOURCE #isCustDKPublic
8682 #public static NoYes isCustDKPublic(CustInvoiceAccount _invoiceAccount)
8683 #{
8684 #// PEHSV 2011-10-24 DU0001175
8685 #
8686 # boolean ret = false;
8687 # CustTable custTableLoc;
8688 # #ISOCountryRegionCodes
8689 # ;
8690 #
8691 # custTableLoc = CustTable::find(_invoiceAccount);
8692 # if (custTableLoc.eInvoice == NoYes::Yes)
8693 # {
8694 # if (custTableLoc.CountryRegionId == #isoDK)
8695 # {
8696 # if (custTableLoc.EinvoiceEANNum)
8697 # {
8698 # ret = true;
8699 # }
8700 # }
8701 # else
8702 # {
8703 # ret = true;
8704 # }
8705 # }
8706 #
8707 # return ret;
8708 #}
8709 ENDSOURCE
8710 SOURCE #jumpRefCustomer
8711 #client static void jumpRefCustomer(AccountNum _accountNum,CompanyId _companyId = curext())
8712 #{
8713 # Args args;
8714 # CompanyId companyId;
8715 # FormRun formRun;
8716 # ;
8717 #
8718 # // The following block is needed for the case that intercompany transactions is disabled and someone passes
8719 # // in an empty string. Ideally one would remove the "curext()" defaulting from the paramter list, but this
8720 # // code was added as part of a bug fix, and did not have the scope or need of changing the interface.
8721 # if (!_companyId)
8722 # {
8723 # companyId = curext();
8724 # }
8725 # else
8726 # {
8727 # companyId = _companyId;
8728 # if (! xDataArea::exist(companyId))
8729 # {
8730 # throw error(strfmt("@SYS10666", companyId));
8731 # }
8732 # }
8733 #
8734 # changecompany(companyId)
8735 # {
8736 # args = new Args(formstr(CustTable));
8737 # args.record(_accountNum ? CustTable::find(_accountNum) : args.record());
8738 # formRun = classfactory.formRunClass(args);
8739 # formRun.init();
8740 # formRun.run();
8741 # formRun.wait();
8742 # }
8743 #}
8744 ENDSOURCE
8745 SOURCE #lookupCustomer
8746 #client static void lookupCustomer(FormStringControl _formStringControl, CompanyId _companyId = curext())
8747 #{
8748 # Args args;
8749 # CompanyId companyId;
8750 # FormRun formRun;
8751 # ;
8752 #
8753 # // The following block is needed for the case that intercompany transactions is disabled and someone passes
8754 # // in an empty string. Ideally one would remove the "curext()" defaulting from the paramter list, but this
8755 # // code was added as part of a bug fix, and did not have the scope or need of changing the interface.
8756 # if (!_companyId)
8757 # {
8758 # companyId = curext();
8759 # }
8760 # else
8761 # {
8762 # companyId = _companyId;
8763 # if (! xDataArea::exist(companyId))
8764 # {
8765 # throw error(strfmt("@SYS10666", companyId));
8766 # }
8767 # }
8768 #
8769 # changecompany(companyId)
8770 # {
8771 # args = new Args();
8772 # args.name(formstr(CustTableLookup));
8773 # args.caller(_formStringControl);
8774 # args.lookupField(fieldnum(CustTable, AccountNum));
8775 # args.lookupValue(_formStringControl.text());
8776 # formRun = classfactory.formRunClass(args);
8777 # formRun.init();
8778 # _formStringControl.performFormLookup(formRun);
8779 # }
8780 #}
8781 ENDSOURCE
8782 SOURCE #projPriceGroup
8783 #static ProjPriceGroupID projPriceGroup(CustAccount _custAccount)
8784 #{
8785 # ;
8786 # return (select firstonly ProjPriceGroup from custTable
8787 # where custTable.AccountNum == _custAccount).ProjPriceGroup;
8788 #}
8789 #
8790 ENDSOURCE
8791 SOURCE #promptAddress
8792 #static str promptAddress(CustAccount _custAccount, AddressType addressType = AddressType::None)
8793 #{
8794 # CustTable custTable = CustTable::find(_custAccount);
8795 # Address address = DirPartyAddress::findAddress(custTable, addressType);
8796 # ;
8797 # if (address)
8798 # return (custTable.Name + '\n' + address.Address);
8799 #
8800 # return (custTable.Name + '\n' + custTable.Address);
8801 #}
8802 ENDSOURCE
8803 SOURCE #promptConvertCurrencyCode
8804 #client static boolean promptConvertCurrencyCode()
8805 #{
8806 # ;
8807 # return (Box::yesNo("@SYS81865", DialogButton::Yes) == DialogButton::Yes);
8808 #}
8809 ENDSOURCE
8810 SOURCE #txtNotExist
8811 #static TxtNotExist txtNotExist()
8812 #{
8813 # return "@SYS9779";
8814 #}
8815 ENDSOURCE
8816 SOURCE #webLookupCustTable
8817 #client static void webLookupCustTable()
8818 #{
8819 # webTableLookup webTableLookup;
8820 # Query query;
8821 #;
8822 #
8823 # webTableLookup = webTableLookup::newParameters(tablenum(CustTable));
8824 # webTableLookup.addLookupfield(fieldnum(CustTable, AccountNum),true);
8825 # webTableLookup.addLookupfield(fieldnum(CustTable, Name));
8826 #
8827 # query = new Query();
8828 # query.addDataSource(tablenum(CustTable));
8829 # webTableLookup.parmQuery(query);
8830 #
8831 # webTableLookup.run();
8832 #}
8833 ENDSOURCE
8834 ENDMETHODS
8835 ENDTABLE
8836
8837
8838***Element: CLS
8839
8840; Microsoft Dynamics AX Class: EGS_API_Entity_newCustomer har inte lästs in
8841; --------------------------------------------------------------------------------
8842 CLSVERSION 1
8843
8844 CLASS #EGS_API_Entity_newCustomer
8845 Id 25785
8846 PROPERTIES
8847 Name #EGS_API_Entity_newCustomer
8848 Extends #EGS_API_Entity
8849 RunOn #Called from
8850 ENDPROPERTIES
8851
8852 METHODS
8853 Version: 3
8854 SOURCE #checkCPRNumber
8855 #boolean checkCPRNumber(str _cprNumber)
8856 #{
8857 #
8858 # return EXU_Validations::checkCPRNumber(_cprNumber);
8859 #}
8860 ENDSOURCE
8861 SOURCE #checkCVRNumber
8862 #boolean checkCVRNumber(str _cprNumber)
8863 #{
8864 #
8865 # return EXU_Validations::checkCVRNumber(_cprNumber);
8866 #}
8867 ENDSOURCE
8868 SOURCE #classDeclaration
8869 #// FRGUL 2017-09-15 EXU_SV004687
8870 #class EGS_API_Entity_newCustomer extends EGS_API_Entity
8871 #{
8872 # #EGS_API
8873 #
8874 # AccountNum AccountNum;
8875 # CustTable custTable;
8876 # Address address;
8877 #
8878 # // --> EXU_SV0054702 MIFAL 2018-05-07
8879 # EXU_ReceivingSystemCust exu_ReceivingSystemCust;
8880 # EXU_ReceivingSystemEvent exu_ReceivingSystemEvent;
8881 # EXU_ReceivingSystem exu_ReceivingSystem;
8882 # // <-- EXU_SV0054702 MIFAL 2018-05-07
8883 #
8884 #}
8885 ENDSOURCE
8886 SOURCE #getTagValue
8887 #str getTagValue(XmlNode _node,str _tag)
8888 #{
8889 # XmlNode localNode = _node.selectSingleNode(_tag);
8890 # ;
8891 # if (localNode == null)
8892 # return "";
8893 # else
8894 # return localNode.text();
8895 #}
8896 #
8897 ENDSOURCE
8898 SOURCE #initCustomerFromNode
8899 #void initCustomerFromNode()
8900 #{
8901 #
8902 # //CustTable custTable;
8903 # // JOROS20131203 SS0018815 -->
8904 # smmBusRelTable smmBusRelTable;
8905 # ;
8906 #
8907 #// custTable = CustTable::find(this.parmAccountNum(),true);
8908 #//
8909 #// if (!custTable)
8910 #// {
8911 #// smmBusRelTable = smmBusRelTable::find(this.parmBusRelAccount(), true);
8912 #// custTable = custTable::findByPartyId(smmBusRelTable.PartyId, true);
8913 #// }
8914 #//
8915 #// if (custTable)
8916 #// {
8917 #// custTable.Phone = this.parmPhone();
8918 #// custTable.CellularPhone = this.parmCellularPhone();
8919 #// custTable.TeleFax = this.parmTeleFax();
8920 #// custTable.Email = this.parmEmail();
8921 #//
8922 #// custTable.update(); // ought to update the busrelaccount's contact info as well
8923 #// }
8924 #// else
8925 #// {
8926 #// smmBusRelTable.Phone = this.parmPhone();
8927 #// smmBusRelTable.CellularPhone = this.parmCellularPhone();
8928 #// smmBusRelTable.TeleFax = this.parmTeleFax();
8929 #// smmBusRelTable.Email = this.parmEmail();
8930 #//
8931 #// smmBusRelTable.update();
8932 #// }
8933 # // JOROS20131203 SS0018815 <--
8934 #}
8935 ENDSOURCE
8936 SOURCE #initFromNode
8937 #boolean initFromNode(XmlNode _node)
8938 #{
8939 # EXU_AlternativeCustomerCode AlternativeCustomerCode;
8940 # boolean ret = false;
8941 # CustGroup custGroup;
8942 # ;
8943 # custTable.Name = this.getTagValue(_node,'Name');
8944 # custTable.CustGroup = this.getTagValue(_node,'CustGroup');
8945 # custTable.EXU_AdditionalName = this.getTagValue(_node,'AdditionalName');
8946 # custTable.EXU_AlternativeCustomerCode = this.getTagValue(_node,'AlternativeCustomerCode') == "" ? EXU_AlternativeCustomerCode::None :str2enum(AlternativeCustomerCode, this.getTagValue(_node,'AlternativeCustomerCode'));
8947 #
8948 # custTable.PartyType = DirPartyType::Organization;
8949 #
8950 # custTable.EXU_AlternativeCustomerNumber = this.getTagValue(_node,'AlternativeCustomerNumber');
8951 # custTable.Phone = this.getTagValue(_node,'Phone');
8952 # custTable.CellularPhone = this.getTagValue(_node,'CellularPhone');
8953 # custTable.Email = this.getTagValue(_node,'Email');
8954 # custTable.Dimension[1] = this.getTagValue(_node,'Dimension1');
8955 # custTable.Dimension[2] = this.getTagValue(_node,'Dimension2');
8956 # custTable.Dimension[3] = this.getTagValue(_node,'Dimension3');
8957 # custTable.Dimension[4] = this.getTagValue(_node,'Dimension4');
8958 # custTable.Dimension[5] = this.getTagValue(_node,'Dimension5');
8959 # custTable.Dimension[6] = this.getTagValue(_node,'Dimension6');
8960 # custTable.PaymMode = this.getTagValue(_node,'PaymMode');
8961 # custTable.EXU_TechnicGroup1 = this.getTagValue(_node,'TechnicGroup1');
8962 # custTable.EXU_TechnicGroup2 = this.getTagValue(_node,'TechnicGroup2');
8963 # custTable.EXU_TechnicGroup3 = this.getTagValue(_node,'TechnicGroup3');
8964 # custTable.EXU_TechnicGroup4 = this.getTagValue(_node,'TechnicGroup4');
8965 # custTable.EXU_TechnicDate1 = str2date(this.getTagValue(_node,'TechnicDate1'),321);
8966 # custTable.EXU_TechnicDate2 = str2date(this.getTagValue(_node,'TechnicDate2'),321);
8967 # custTable.EXU_TechnicDate3 = str2date(this.getTagValue(_node,'TechnicDate3'),321);
8968 # custTable.EXU_TechnicDate4 = str2date(this.getTagValue(_node,'TechnicDate4'),321);
8969 # custTable.EXU_TechnicReal1 = str2num(this.getTagValue(_node,'TechnicReal1'));
8970 # custTable.EXU_TechnicReal2 = str2num(this.getTagValue(_node,'TechnicReal2'));
8971 # custTable.EXU_TechnicReal3 = str2num(this.getTagValue(_node,'TechnicReal3'));
8972 # custTable.EXU_TechnicReal4 = str2num(this.getTagValue(_node,'TechnicReal4'));
8973 # custTable.EXU_TechnicTxt1 = this.getTagValue(_node,'TechnicTxt1');
8974 # custTable.EXU_TechnicTxt2 = this.getTagValue(_node,'TechnicTxt2');
8975 # custTable.EXU_TechnicTxt3 = this.getTagValue(_node,'TechnicTxt3');
8976 # custTable.EXU_TechnicTxt4 = this.getTagValue(_node,'TechnicTxt4');
8977 # custTable.EXU_TechnicMemo1 = this.getTagValue(_node,'TechnicMemo1');
8978 # custTable.EXU_TechnicMemo2 = this.getTagValue(_node,'TechnicMemo2');
8979 #
8980 # custGroup = CustGroup::find(custTable.CustGroup);
8981 # custTable.PaymTermId = custGroup.PaymTermId;
8982 # custTable.ClearingPeriod = custGroup.ClearingPeriod;
8983 # custTable.TaxGroup = custGroup.TaxGroupId;
8984 #
8985 # if(custTable.TaxGroup == "")
8986 # {
8987 # custTable.TaxGroup = CustParameters::find().EGH_DefaultTaxGroup;
8988 # }
8989 # if(custTable.TaxGroup != "")
8990 # {
8991 # custTable.GiroType = CustFormletterParameters::find().GiroOnInvoice;
8992 # custTable.GiroTypeCollectionletter = CustFormletterParameters::find().GiroOnCollectionletter;
8993 # custTable.GiroTypeFreeTextInvoice = CustFormletterParameters::find().GiroOnFreeTextInvoice;
8994 # custTable.GiroTypeInterestNote = CustFormletterParameters::find().GiroOnInterest;
8995 # custTable.EGS_GiroTypePaymentCase = CustFormletterParameters::find().EGS_GiroOnPaymentCase;
8996 # }
8997 #
8998 # custTable.Street = this.getTagValue(_node,'Address/Street');
8999 # custTable.City = this.getTagValue(_node,'Address/City');
9000 # custTable.ZipCode = this.getTagValue(_node,'Address/ZipCode');
9001 # custTable.CountryRegionId = this.getTagValue(_node,'Address/CountryRegionId');
9002 # custTable.Currency = 'SEK';
9003 # custTable.LanguageId = 'sv'; // JOROS 23-04-2018 EXU_SV0055248_Labels 'SE';
9004 # custTable.Address = Address::formatAddress(custTable.Street,
9005 # custTable.ZipCode,
9006 # custTable.City,
9007 # custTable.CountryRegionId,
9008 # custTable.State,
9009 # custTable.County);
9010 #
9011 #
9012 #
9013 # // --> EXU_SV0054702 MIFAL 2018-05-07
9014 # exu_ReceivingSystemCust.SystemId = this.getTagValue(_node,'TargetSystem');
9015 # // <-- EXU_SV0054702 MIFAL 2018-05-07
9016 # if(this.validate(_node))
9017 # {
9018 # ttsbegin;
9019 # custTable.AccountNum = NumberSeq::newGetNum(CustParameters::numRefCustAccount()).num();
9020 # custTable.insert();
9021 # ttscommit;
9022 # custTable.reread();
9023 # //this.UpdateAddress(); // frgul 2018-03-01 EXU_SV0054219
9024 # // --> EXU_SV0054702 MIFAL 2018-05-07
9025 # this.UpdateReceivingSystem(_node);
9026 # // <-- EXU_SV0054702 MIFAL 2018-05-07
9027 # this.parmResponseErrorCode(#ResponseCode_OK);
9028 # ret = true;
9029 #
9030 # }
9031 # else
9032 # {
9033 # this.parmResponseErrorCode(#ResponseCode_NOT_OK);
9034 # }
9035 # return ret;
9036 #}
9037 ENDSOURCE
9038 SOURCE #parmAccountNum
9039 #public str parmAccountNum(str _AccountNum = AccountNum)
9040 #{
9041 # ;
9042 # AccountNum = _AccountNum;
9043 #
9044 # return AccountNum;
9045 #}
9046 #
9047 ENDSOURCE
9048 SOURCE #parmResponseCode
9049 #public str parmResponseCode(str _responseCode = responseCode)
9050 #{
9051 # ;
9052 # responseCode = _responseCode;
9053 #
9054 # return responseCode;
9055 #}
9056 #
9057 ENDSOURCE
9058 SOURCE #parmResponseErrorCode
9059 #public str parmResponseErrorCode(str _responseErrorCode = responseErrorCode)
9060 #{
9061 # ;
9062 # responseErrorCode = _responseErrorCode;
9063 #
9064 # return responseErrorCode;
9065 #}
9066 #
9067 ENDSOURCE
9068 SOURCE #parmResponseMessage
9069 #public str parmResponseMessage(str _responseMessage = responseMessage)
9070 #{
9071 # ;
9072 # responseMessage = _responseMessage;
9073 #
9074 # return responseMessage;
9075 #}
9076 #
9077 ENDSOURCE
9078 SOURCE #UpdateAddress
9079 #void UpdateAddress()
9080 #{
9081 #
9082 # ;
9083 # address = DirPartyTable::exu_getPrimaryAddress(custTable.PartyId);
9084 # if(address.RecId)
9085 # {
9086 # ttsbegin;
9087 # address.selectForUpdate(true);
9088 # address.type = Addresstype::Home;
9089 #
9090 # address.update(true,true);
9091 # ttscommit;
9092 # }
9093 #
9094 #}
9095 ENDSOURCE
9096 SOURCE #UpdateReceivingSystem
9097 #//EXU_SV0054702 MIFAL 2018-05-07
9098 #void UpdateReceivingSystem(XmlNode _node)
9099 #{
9100 #
9101 # ;
9102 #
9103 # if(!EXU_ReceivingSystemCust::find(exu_ReceivingSystemCust.SystemId,custTable.AccountNum))
9104 # {
9105 # ttsbegin;
9106 # exu_ReceivingSystemCust.AccountNum = custTable.AccountNum;
9107 # exu_ReceivingSystemCust.SystemId = this.getTagValue(_node,'TargetSystem');
9108 # exu_ReceivingSystemCust.insert();
9109 # ttscommit;
9110 # }
9111 #
9112 #}
9113 #
9114 ENDSOURCE
9115 SOURCE #validate
9116 #boolean validate(XmlNode _node)
9117 #{
9118 # boolean ret = true;
9119 # ;
9120 #
9121 #
9122 # // Obligated fields;
9123 # if(CustTable.Name == '')
9124 # {
9125 # this.parmResponseMessage(strfmt('@EGU18083', fieldPName(CustTable, Name)));
9126 # return false;
9127 # }
9128 # if(CustTable.CustGroup == '')
9129 # {
9130 # this.parmResponseMessage(strfmt('@EGU18083', fieldPName(CustTable, CustGroup)));
9131 # return false;
9132 # }
9133 # if(!CustGroup::exist(CustTable.CustGroup))
9134 # {
9135 # this.parmResponseMessage(strfmt("@EGS8227", fieldPName(CustTable, CustGroup)));
9136 # return false;
9137 # }
9138 # if(CustTable.EXU_AlternativeCustomerNumber == '')
9139 # {
9140 # this.parmResponseMessage(strfmt('@EGU18083', fieldPName(CustTable, EXU_AlternativeCustomerNumber)));
9141 # return false;
9142 # }
9143 # // --> EXU_SV0054702 MIFAL 2018-05-07
9144 # //if(CustTable::EGS_findByAlternativeNumber(CustTable.EXU_AlternativeCustomerNumber).RecId)
9145 # if(CustTable::EGS_findByAltNumberAndCustGroup(CustTable.EXU_AlternativeCustomerNumber,CustTable.CustGroup).RecId)
9146 # {
9147 # //this.parmResponseMessage(strfmt('Personnr. %1 finns redan för kund %2', CustTable.EXU_AlternativeCustomerNumber,CustTable.name));
9148 # this.parmResponseMessage(strfmt('Kombinationen av personnr %1 och kundgrupp %2 finns redan för kund %3', CustTable.EXU_AlternativeCustomerNumber,CustTable.CustGroup,CustTable.name));
9149 # return false;
9150 # }
9151 # // <-- EXU_SV0054702 MIFAL 2018-05-07
9152 # if(CustTable.EXU_AlternativeCustomerCode == EXU_AlternativeCustomerCode::None)
9153 # {
9154 # this.parmResponseMessage(strfmt('@EGU18083', fieldPName(CustTable, EXU_AlternativeCustomerCode)));
9155 # return false;
9156 # }
9157 #
9158 # //if(CustTable.PaymMode == "")
9159 # //{
9160 # // this.parmResponseMessage(strfmt('@EGU18083', fieldPName(CustTable, PaymMode)));
9161 # // return false;
9162 # //}
9163 # if(CustTable.PaymMode != "")
9164 # {
9165 # if(!CustPaymModeTable::exist(CustTable.PaymMode))
9166 # {
9167 # this.parmResponseMessage(strfmt('@EGS8170', CustTable.PaymMode));
9168 # return false;
9169 # }
9170 # }
9171 #
9172 # // Technical fields;
9173 # if(custTable.EXU_TechnicTxt2 != '')
9174 # {
9175 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicTxt2)))
9176 # {
9177 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicTxt2)));
9178 # return false;
9179 # }
9180 # }
9181 # if(custTable.EXU_TechnicTxt3 != '')
9182 # {
9183 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicTxt3)))
9184 # {
9185 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicTxt3)));
9186 # return false;
9187 # }
9188 # }
9189 # if(custTable.EXU_TechnicTxt4 != '')
9190 # {
9191 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicTxt4)))
9192 # {
9193 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicTxt4)));
9194 # return false;
9195 # }
9196 # }
9197 # if(custTable.EXU_TechnicTxt1 != '')
9198 # {
9199 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicTxt1)))
9200 # {
9201 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicTxt1)));
9202 # return false;
9203 # }
9204 # }
9205 #
9206 # if(this.getTagValue(_node,'TechnicDate1') != "")
9207 # {
9208 # if(!this.validateDate(this.getTagValue(_node,'TechnicDate1')))
9209 # {
9210 # this.parmResponseMessage(strfmt('@EGS8171', fieldPName(CustTable, EXU_TechnicDate1),this.getTagValue(_node,'TechnicDate1')));
9211 # return false;
9212 # }
9213 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicDate1)))
9214 # {
9215 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicDate1)));
9216 # return false;
9217 # }
9218 # }
9219 # if(this.getTagValue(_node,'TechnicDate2') != "")
9220 # {
9221 # if(!this.validateDate(this.getTagValue(_node,'TechnicDate2')))
9222 # {
9223 # this.parmResponseMessage(strfmt('@EGS8171', fieldPName(CustTable, EXU_TechnicDate2),this.getTagValue(_node,'TechnicDate2')));
9224 # return false;
9225 # }
9226 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicDate2)))
9227 # {
9228 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicDate2)));
9229 # return false;
9230 # }
9231 # }
9232 # if(this.getTagValue(_node,'TechnicDate3') != "")
9233 # {
9234 # if(!this.validateDate(this.getTagValue(_node,'TechnicDate3')))
9235 # {
9236 # this.parmResponseMessage(strfmt('@EGS8171', fieldPName(CustTable, EXU_TechnicDate3),this.getTagValue(_node,'TechnicDate3')));
9237 # return false;
9238 # }
9239 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicDate3)))
9240 # {
9241 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicDate3)));
9242 # return false;
9243 # }
9244 # }
9245 # if(this.getTagValue(_node,'TechnicDate4') != "")
9246 # {
9247 # if(!this.validateDate(this.getTagValue(_node,'TechnicDate4')))
9248 # {
9249 # this.parmResponseMessage(strfmt('@EGS8171', fieldPName(CustTable, EXU_TechnicDate4),this.getTagValue(_node,'TechnicDate4')));
9250 # return false;
9251 # }
9252 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicDate4)))
9253 # {
9254 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicDate4)));
9255 # return false;
9256 # }
9257 # }
9258 #
9259 # if(custTable.EXU_TechnicGroup1 != '')
9260 # {
9261 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicGroup1)))
9262 # {
9263 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicGroup1)));
9264 # return false;
9265 # }
9266 # if(!EXU_GroupTable::find(EXU_GroupCode::CustTechnicGroup1,custTable.EXU_TechnicGroup1))
9267 # {
9268 # this.parmResponseMessage(strfmt('@EGS8169',EXU_GroupCode::CustTechnicGroup1, fieldPName(CustTable, EXU_TechnicGroup1)));
9269 # return false;
9270 # }
9271 # }
9272 # if(custTable.EXU_TechnicGroup2 != '')
9273 # {
9274 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicGroup1)))
9275 # {
9276 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicGroup2)));
9277 # return false;
9278 # }
9279 # if(!EXU_GroupTable::find(EXU_GroupCode::CustTechnicGroup2,custTable.EXU_TechnicGroup2))
9280 # {
9281 # this.parmResponseMessage(strfmt('@EGS8169',EXU_GroupCode::CustTechnicGroup2, fieldPName(CustTable, EXU_TechnicGroup2)));
9282 # return false;
9283 # }
9284 # }
9285 # if(custTable.EXU_TechnicGroup3 != '')
9286 # {
9287 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicGroup3)))
9288 # {
9289 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicGroup3)));
9290 # return false;
9291 # }
9292 # if(!EXU_GroupTable::find(EXU_GroupCode::CustTechnicGroup3,custTable.EXU_TechnicGroup3))
9293 # {
9294 # this.parmResponseMessage(strfmt('@EGS8169',EXU_GroupCode::CustTechnicGroup3, fieldPName(CustTable, EXU_TechnicGroup3)));
9295 # return false;
9296 # }
9297 # }
9298 # if(custTable.EXU_TechnicGroup4 != '')
9299 # {
9300 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicGroup4)))
9301 # {
9302 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicGroup4)));
9303 # return false;
9304 # }
9305 # if(!EXU_GroupTable::find(EXU_GroupCode::CustTechnicGroup4,custTable.EXU_TechnicGroup4))
9306 # {
9307 # this.parmResponseMessage(strfmt('@EGS8169',EXU_GroupCode::CustTechnicGroup4, fieldPName(CustTable, EXU_TechnicGroup4)));
9308 # return false;
9309 # }
9310 # }
9311 #
9312 # if(custTable.EXU_TechnicMemo1 != '')
9313 # {
9314 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicMemo1)))
9315 # {
9316 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicMemo1)));
9317 # return false;
9318 # }
9319 # }
9320 #
9321 # if(custTable.EXU_TechnicMemo2 != '')
9322 # {
9323 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicMemo2)))
9324 # {
9325 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicMemo2)));
9326 # return false;
9327 # }
9328 # }
9329 #
9330 # if(this.getTagValue(_node,'TechnicReal1') != "")
9331 # {
9332 #
9333 # if(custTable.EXU_TechnicReal1 == 0.00)
9334 # {
9335 # this.parmResponseMessage(strfmt('@EGS8171', fieldPName(CustTable, EXU_TechnicReal1),this.getTagValue(_node,'TechnicReal1')));
9336 # return false;
9337 # }
9338 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicReal1)))
9339 # {
9340 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicReal1)));
9341 # return false;
9342 # }
9343 #
9344 # }
9345 #
9346 # if(this.getTagValue(_node,'TechnicReal2') != "")
9347 # {
9348 #
9349 # if(custTable.EXU_TechnicReal2 == 0.00)
9350 # {
9351 # this.parmResponseMessage(strfmt('@EGS8171', fieldPName(CustTable, EXU_TechnicReal2),this.getTagValue(_node,'TechnicReal2')));
9352 # return false;
9353 # }
9354 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicReal2)))
9355 # {
9356 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicReal2)));
9357 # return false;
9358 # }
9359 # }
9360 #
9361 # if(this.getTagValue(_node,'TechnicReal3') != "")
9362 # {
9363 #
9364 # if(custTable.EXU_TechnicReal3 == 0.00)
9365 # {
9366 # this.parmResponseMessage(strfmt('@EGS8171', fieldPName(CustTable, EXU_TechnicReal3),this.getTagValue(_node,'TechnicReal3')));
9367 # return false;
9368 # }
9369 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicReal3)))
9370 # {
9371 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicReal3)));
9372 # return false;
9373 # }
9374 # }
9375 # if(this.getTagValue(_node,'TechnicReal4') != "")
9376 # {
9377 #
9378 # if(custTable.EXU_TechnicReal4 == 0.00)
9379 # {
9380 # this.parmResponseMessage(strfmt('@EGS8171', fieldPName(CustTable, EXU_TechnicReal4),this.getTagValue(_node,'TechnicReal4')));
9381 # return false;
9382 # }
9383 # if (!this.validateTechnicafields(fieldPName(CustTable, EXU_TechnicReal4)))
9384 # {
9385 # this.parmResponseMessage(strfmt('@EGS8167', fieldPName(CustTable, EXU_TechnicReal4)));
9386 # return false;
9387 # }
9388 # }
9389 #
9390 # if(CustTable.EXU_AlternativeCustomerCode == EXU_AlternativeCustomerCode::CPR)
9391 # {
9392 # if(!this.checkCPRNumber(custTable.EXU_AlternativeCustomerNumber)|| strlen(custTable.EXU_AlternativeCustomerNumber) != 12)
9393 # {
9394 # this.parmResponseMessage(strfmt('@EGS134' + ' %1', CustTable.EXU_AlternativeCustomerCode));
9395 # Return false;
9396 # }
9397 # }
9398 # else if(CustTable.EXU_AlternativeCustomerCode == EXU_AlternativeCustomerCode::CVR)
9399 # {
9400 # if(!this.checkCVRNumber(custTable.EXU_AlternativeCustomerNumber))
9401 # {
9402 # this.parmResponseMessage(strfmt('@EGS134' + ' %1', CustTable.EXU_AlternativeCustomerCode));
9403 # Return false;
9404 # }
9405 # }
9406 # if(custTable.ZipCode != ''||custTable.City != '' )
9407 # {
9408 # if(!AddressZipCode::findZipCodeCity(CustTable.ZipCode,CustTable.City))
9409 # {
9410 # this.parmResponseMessage(strfmt('@SYS24626' ,CustTable.ZipCode));
9411 # Return false;
9412 # }
9413 # }
9414 # if(custTable.Dimension[1] != '')
9415 # {
9416 # if(!this.validateDimension(SysDimension::Department,custTable.Dimension[1]))
9417 # {
9418 # this.parmResponseMessage(strfmt('@SYS106625' ,SysDimension::Department,custTable.Dimension[1]));
9419 # Return false;
9420 # }
9421 # }
9422 # if(custTable.Dimension[2] != '')
9423 # {
9424 # if(!this.validateDimension(SysDimension::Center,custTable.Dimension[2]))
9425 # {
9426 # this.parmResponseMessage(strfmt('@SYS106625' ,SysDimension::Center,custTable.Dimension[2]));
9427 # Return false;
9428 # }
9429 # }
9430 # if(custTable.Dimension[3] != '')
9431 # {
9432 # if(!this.validateDimension(SysDimension::Purpose,custTable.Dimension[3]))
9433 # {
9434 # this.parmResponseMessage(strfmt('@SYS106625' ,SysDimension::Purpose,custTable.Dimension[3]));
9435 # Return false;
9436 # }
9437 # }
9438 # if(custTable.Dimension[4] != '')
9439 # {
9440 # if(!this.validateDimension(SysDimension::Report,custTable.Dimension[4]))
9441 # {
9442 # this.parmResponseMessage(strfmt('@SYS106625' ,SysDimension::Report,custTable.Dimension[4]));
9443 # Return false;
9444 # }
9445 # }
9446 # if(custTable.Dimension[5] != '')
9447 # {
9448 # if(!this.validateDimension(SysDimension::OppositeParty,custTable.Dimension[5]))
9449 # {
9450 # this.parmResponseMessage(strfmt('@SYS106625' ,SysDimension::OppositeParty,custTable.Dimension[5]));
9451 # Return false;
9452 # }
9453 # }
9454 # if(custTable.Dimension[6] != '')
9455 # {
9456 # if(!this.validateDimension(SysDimension::Product,custTable.Dimension[6]))
9457 # {
9458 # this.parmResponseMessage(strfmt('@SYS106625' ,SysDimension::Product,custTable.Dimension[6]));
9459 # Return false;
9460 # }
9461 # }
9462 # // --> EXU_SV0054702 MIFAL 2018-05-07
9463 # if(exu_ReceivingSystemCust.SystemId != '')
9464 # {
9465 # if(!exu_ReceivingSystem::find(exu_ReceivingSystemCust.SystemId).RecId)
9466 # {
9467 # this.parmResponseMessage(strfmt('MÃ¥lsystem %1 finns ej i systemet.' ,exu_ReceivingSystemCust.SystemId));
9468 # Return false;
9469 # }
9470 # }
9471 # // <-- EXU_SV0054702 MIFAL 2018-05-07
9472 #
9473 #
9474 #
9475 # return ret;
9476 #}
9477 ENDSOURCE
9478 SOURCE #validateAddress
9479 #boolean validateAddress()
9480 #{
9481 # boolean ret = true;
9482 # ;
9483 #
9484 #
9485 # // Obligated fields;
9486 # if(!Address.validateWrite())
9487 # {
9488 # this.parmResponseMessage(strfmt('@EGU18083', fieldPName(CustTable, Name)));
9489 # return false;
9490 # }
9491 #
9492 #
9493 # return ret;
9494 #}
9495 ENDSOURCE
9496 SOURCE #validateDate
9497 #public boolean validateDate(str _date)
9498 #{
9499 # boolean ret;
9500 # Date myDate;
9501 # ;
9502 #
9503 #
9504 # _date = strreplace(_date,"-","");
9505 # if(strlen(_date)!= 8)
9506 # {
9507 # return false;
9508 # }
9509 # if(date2str(EXU_DateFunctions::str2FormatDate(_date,DateFormat::YMD),321,2,0,2,0,4) != _date)
9510 # {
9511 # return false;
9512 # }
9513 #
9514 # return true;
9515 #
9516 #}
9517 ENDSOURCE
9518 SOURCE #validateDimension
9519 #boolean validateDimension(SysDimension _sysDimension, SysDim _sysDim)
9520 #{
9521 #
9522 #
9523 # Dimensions dimensions;
9524 # boolean ret = false;
9525 # ;
9526 # if(Dimensions::find(_sysDimension, _sysDim).RecId)
9527 # {
9528 # ret = true;
9529 # }
9530 #
9531 # return ret;
9532 #
9533 #}
9534 ENDSOURCE
9535 SOURCE #validateTechnicafields
9536 #boolean validateTechnicafields(str fieldName)
9537 #{
9538 #
9539 #
9540 # CustParameters custParameters;
9541 # boolean ret = false;
9542 # ;
9543 # custParameters = CustParameters::find();
9544 #
9545 # switch(fieldName)
9546 # {
9547 # case fieldPName(CustTable, EXU_TechnicGroup1) :
9548 # ret = custParameters.EXU_GuideTxtGroup1 ? true : false;
9549 # break;
9550 # case fieldPName(CustTable, EXU_TechnicGroup2) :
9551 # ret = custParameters.EXU_GuideTxtGroup2 ? true : false;
9552 # break;
9553 # case fieldPName(CustTable, EXU_TechnicGroup3) :
9554 # ret = custParameters.EXU_GuideTxtGroup3 ? true : false;
9555 # break;
9556 # case fieldPName(CustTable, EXU_TechnicGroup4) :
9557 # ret = custParameters.EXU_GuideTxtGroup4 ? true : false;
9558 # break;
9559 #
9560 # case fieldPName(CustTable, EXU_TechnicDate1) :
9561 # ret = custParameters.EXU_GuideTxtDate1 ? true : false;
9562 # break;
9563 # case fieldPName(CustTable, EXU_TechnicDate2) :
9564 # ret = custParameters.EXU_GuideTxtDate2 ? true : false;
9565 # break;
9566 # case fieldPName(CustTable, EXU_TechnicDate3) :
9567 # ret = custParameters.EXU_GuideTxtDate3 ? true : false;
9568 # break;
9569 # case fieldPName(CustTable, EXU_TechnicDate4) :
9570 # ret = custParameters.EXU_GuideTxtDate4 ? true : false;
9571 # break;
9572 # case fieldPName(CustTable, EXU_TechnicMemo1) :
9573 # ret = custParameters.EXU_GuideTxtMemo1 ? true : false;
9574 # break;
9575 # case fieldPName(CustTable, EXU_TechnicMemo2) :
9576 # ret = custParameters.EXU_GuideTxtMemo2 ? true : false;
9577 # break;
9578 # case fieldPName(CustTable, EXU_TechnicReal1) :
9579 # ret = custParameters.EXU_GuideTxtReal1 ? true : false;
9580 # break;
9581 # case fieldPName(CustTable, EXU_TechnicReal2) :
9582 # ret = custParameters.EXU_GuideTxtReal2 ? true : false;
9583 # break;
9584 # case fieldPName(CustTable, EXU_TechnicReal3) :
9585 # ret = custParameters.EXU_GuideTxtReal3 ? true : false;
9586 # break;
9587 # case fieldPName(CustTable, EXU_TechnicReal4) :
9588 # ret = custParameters.EXU_GuideTxtReal4 ? true : false;
9589 # break;
9590 #
9591 # case fieldPName(CustTable, EXU_TechnicTxt1) :
9592 # ret = custParameters.EXU_GuideTxtText1 ? true : false;
9593 # break;
9594 # case fieldPName(CustTable, EXU_TechnicTxt2) :
9595 # ret = custParameters.EXU_GuideTxtText2 ? true : false;
9596 # break;
9597 # case fieldPName(CustTable, EXU_TechnicTxt3) :
9598 # ret = custParameters.EXU_GuideTxtText3 ? true : false;
9599 # break;
9600 # case fieldPName(CustTable, EXU_TechnicTxt4) :
9601 # ret = custParameters.EXU_GuideTxtText4 ? true : false;
9602 # break;
9603 #
9604 #
9605 #
9606 # default : break;
9607 # }
9608 #
9609 # return ret;
9610 #
9611 #}
9612 ENDSOURCE
9613 SOURCE #xmlnewCustomerResponse
9614 #XMLNode xmlnewCustomerResponse(XMLDocument _document)
9615 #{
9616 # XMLNode fatherNode, fieldNode;
9617 # ;
9618 #
9619 # fatherNode = _document.createNode(XMLNodeType::ELEMENT, #NODEVALUE_Response, ""); // "Response"
9620 #
9621 # fieldNode = fatherNode.appendChild(_document.createElement('AccountNum')); // "ResponseCode"
9622 # fieldNode.appendChild(_document.createTextNode(custTable.AccountNum));
9623 # fieldNode = fatherNode.appendChild(_document.createElement(#NODEVALUE_ErrorCode)); // "ErrorCode"
9624 # fieldNode.appendChild(_document.createTextNode(this.parmResponseErrorCode()));
9625 # fieldNode = fatherNode.appendChild(_document.createElement(#NODEVALUE_ResponseMessage)); // "ResponseMessage"
9626 # fieldNode.appendChild(_document.createTextNode(this.parmResponseMessage()));
9627 #
9628 # return fatherNode;
9629 #/*
9630 #ResponseCode
9631 #ErrorCode
9632 #ResponseMessage
9633 # */
9634 #
9635 #}
9636 ENDSOURCE
9637 SOURCE #construct
9638 #public static EGS_API_Entity_newCustomer construct()
9639 #{
9640 # return new EGS_API_Entity_newCustomer();
9641 #}
9642 ENDSOURCE
9643 ENDMETHODS
9644 ENDCLASS
9645
9646***Element: PRN
9647
9648; Microsoft Dynamics AX Project : EXU_SV0054702 unloaded
9649; --------------------------------------------------------------------------------
9650 PROJECTVERSION 2
9651
9652 PROJECT #EXU_SV0054702
9653 SHARED
9654 PROPERTIES
9655 Name #EXU_SV0054702
9656 ENDPROPERTIES
9657
9658 PROJECTCLASS ProjectNode
9659 GROUP #Classes
9660 PROPERTIES
9661 Name #Classes
9662 ProjectGroupType #Classes
9663 GroupMask #
9664 PreventEditProperties #No
9665 ENDPROPERTIES
9666
9667 ENDGROUP
9668
9669 GROUP #Tables
9670 PROPERTIES
9671 Name #Tables
9672 ProjectGroupType #Tables
9673 GroupMask #
9674 PreventEditProperties #No
9675 ENDPROPERTIES
9676
9677 BEGINNODE
9678 FILETYPE 0
9679 UTILTYPE 44
9680 UTILOBJECTID 24715
9681 NODETYPE 204
9682 NAME #EXU_ReceivingSystemCust
9683 ENDNODE
9684 BEGINNODE
9685 FILETYPE 0
9686 UTILTYPE 44
9687 UTILOBJECTID 77
9688 NODETYPE 204
9689 NAME #CustTable
9690 ENDNODE
9691 ENDGROUP
9692
9693 BEGINNODE
9694 FILETYPE 0
9695 UTILTYPE 45
9696 UTILOBJECTID 25785
9697 NODETYPE 329
9698 NAME #EGS_API_Entity_newCustomer
9699 ENDNODE
9700 ENDPROJECT
9701
9702
9703***Element: END