-
Notifications
You must be signed in to change notification settings - Fork 0
/
InvoiceWS1.pas
1951 lines (1713 loc) · 84.1 KB
/
InvoiceWS1.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : https://servis.hizlibilisimteknolojileri.net/InvoiceService/InvoiceWS?wsdl
// >Import : https://servis.hizlibilisimteknolojileri.net/InvoiceService/InvoiceWS?wsdl>0
// Encoding : UTF-8
// Version : 1.0
// (23.11.2018 13:43:20 - - $Rev: 90173 $)
// ************************************************************************ //
unit InvoiceWS1;
interface
uses Soap.InvokeRegistry, Soap.SOAPHTTPClient, System.Types, Soap.XSBuiltIns;
const
IS_OPTN = $0001;
IS_UNBD = $0002;
IS_UNQL = $0008;
type
// ************************************************************************ //
// The following types, referred to in the WSDL document are not being represented
// in this file. They are either aliases[@] of other types represented or were referred
// to but never[!] declared in the document. The types from the latter category
// typically map to predefined/known XML or Embarcadero types; however, they could also
// indicate incorrect WSDL documents that failed to declare or import a schema type.
// ************************************************************************ //
// !:decimal - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:string - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:base64Binary - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:int - "http://www.w3.org/2001/XMLSchema"[Gbl]
TaxInfo = class; { "http://invoiceservice.entegrator.com/"[GblCplx] }
CreditInfo = class; { "http://invoiceservice.entegrator.com/"[GblCplx] }
EntResponse = class; { "http://invoiceservice.entegrator.com/"[GblCplx] }
InputDocument = class; { "http://invoiceservice.entegrator.com/"[GblCplx] }
DocumentInfo = class; { "http://invoiceservice.entegrator.com/"[GblCplx] }
ResponseUser = class; { "http://invoiceservice.entegrator.com/"[GblCplx] }
CreditAction = class; { "http://invoiceservice.entegrator.com/"[GblCplx] }
UserQueryResponse = class; { "http://invoiceservice.entegrator.com/"[GblCplx] }
flagSetter = class; { "http://invoiceservice.entegrator.com/"[GblCplx] }
UserAddresInfo = class; { "http://invoiceservice.entegrator.com/"[GblCplx] }
DocumentQueryResponse = class; { "http://invoiceservice.entegrator.com/"[GblCplx] }
ResponseDocument = class; { "http://invoiceservice.entegrator.com/"[GblCplx] }
{$SCOPEDENUMS ON}
{ "http://invoiceservice.entegrator.com/"[GblSmpl] }
CreditActionTypes = (BASLAMA, SATINALMA, DEVIR_GIRIS, HEDIYE, DEVIR_CIKIS, TRANSFER);
{$SCOPEDENUMS OFF}
Array_Of_TaxInfo = array of TaxInfo; { "http://invoiceservice.entegrator.com/"[GblUbnd] }
updateInvoiceResponse = array of EntResponse; { "http://invoiceservice.entegrator.com/"[Lit][GblCplx] }
Array_Of_ResponseDocument = array of ResponseDocument; { "http://invoiceservice.entegrator.com/"[GblUbnd] }
Array_Of_ResponseUser = array of ResponseUser; { "http://invoiceservice.entegrator.com/"[GblUbnd] }
updateInvoice = array of InputDocument; { "http://invoiceservice.entegrator.com/"[Lit][GblCplx] }
// ************************************************************************ //
// XML : TaxInfo, global, <complexType>
// Namespace : http://invoiceservice.entegrator.com/
// ************************************************************************ //
TaxInfo = class(TRemotable)
private
FtaxtTypeCode: string;
FtaxtTypeCode_Specified: boolean;
FtaxtTypeName: string;
FtaxtTypeName_Specified: boolean;
FtaxAmount: string;
FtaxAmount_Specified: boolean;
FtaxPercentage: string;
FtaxPercentage_Specified: boolean;
procedure SettaxtTypeCode(Index: Integer; const Astring: string);
function taxtTypeCode_Specified(Index: Integer): boolean;
procedure SettaxtTypeName(Index: Integer; const Astring: string);
function taxtTypeName_Specified(Index: Integer): boolean;
procedure SettaxAmount(Index: Integer; const Astring: string);
function taxAmount_Specified(Index: Integer): boolean;
procedure SettaxPercentage(Index: Integer; const Astring: string);
function taxPercentage_Specified(Index: Integer): boolean;
published
property taxtTypeCode: string Index (IS_OPTN or IS_UNQL) read FtaxtTypeCode write SettaxtTypeCode stored taxtTypeCode_Specified;
property taxtTypeName: string Index (IS_OPTN or IS_UNQL) read FtaxtTypeName write SettaxtTypeName stored taxtTypeName_Specified;
property taxAmount: string Index (IS_OPTN or IS_UNQL) read FtaxAmount write SettaxAmount stored taxAmount_Specified;
property taxPercentage: string Index (IS_OPTN or IS_UNQL) read FtaxPercentage write SettaxPercentage stored taxPercentage_Specified;
end;
// ************************************************************************ //
// XML : CreditInfo, global, <complexType>
// Namespace : http://invoiceservice.entegrator.com/
// ************************************************************************ //
CreditInfo = class(TRemotable)
private
Fcode: string;
Fexplanation: string;
FtotalCredit: TXSDecimal;
FremainCredit: TXSDecimal;
public
destructor Destroy; override;
published
property code: string Index (IS_UNQL) read Fcode write Fcode;
property explanation: string Index (IS_UNQL) read Fexplanation write Fexplanation;
property totalCredit: TXSDecimal Index (IS_UNQL) read FtotalCredit write FtotalCredit;
property remainCredit: TXSDecimal Index (IS_UNQL) read FremainCredit write FremainCredit;
end;
// ************************************************************************ //
// XML : EntResponse, global, <complexType>
// Namespace : http://invoiceservice.entegrator.com/
// ************************************************************************ //
EntResponse = class(TRemotable)
private
FdocumentUUID: string;
FdocumentUUID_Specified: boolean;
FdocumentID: string;
FdocumentID_Specified: boolean;
Fcode: string;
Fcode_Specified: boolean;
Fexplanation: string;
Fexplanation_Specified: boolean;
Fcause: string;
Fcause_Specified: boolean;
procedure SetdocumentUUID(Index: Integer; const Astring: string);
function documentUUID_Specified(Index: Integer): boolean;
procedure SetdocumentID(Index: Integer; const Astring: string);
function documentID_Specified(Index: Integer): boolean;
procedure Setcode(Index: Integer; const Astring: string);
function code_Specified(Index: Integer): boolean;
procedure Setexplanation(Index: Integer; const Astring: string);
function explanation_Specified(Index: Integer): boolean;
procedure Setcause(Index: Integer; const Astring: string);
function cause_Specified(Index: Integer): boolean;
published
property documentUUID: string Index (IS_OPTN or IS_UNQL) read FdocumentUUID write SetdocumentUUID stored documentUUID_Specified;
property documentID: string Index (IS_OPTN or IS_UNQL) read FdocumentID write SetdocumentID stored documentID_Specified;
property code: string Index (IS_OPTN or IS_UNQL) read Fcode write Setcode stored code_Specified;
property explanation: string Index (IS_OPTN or IS_UNQL) read Fexplanation write Setexplanation stored explanation_Specified;
property cause: string Index (IS_OPTN or IS_UNQL) read Fcause write Setcause stored cause_Specified;
end;
// ************************************************************************ //
// XML : InputDocument, global, <complexType>
// Namespace : http://invoiceservice.entegrator.com/
// ************************************************************************ //
InputDocument = class(TRemotable)
private
FdocumentUUID: string;
FxmlContent: string;
FsourceUrn: string;
FdestinationUrn: string;
FdocumentNoPrefix: string;
FdocumentNoPrefix_Specified: boolean;
FlocalId: string;
FlocalId_Specified: boolean;
FdocumentId: string;
FdocumentId_Specified: boolean;
FdocumentDate: string;
procedure SetdocumentNoPrefix(Index: Integer; const Astring: string);
function documentNoPrefix_Specified(Index: Integer): boolean;
procedure SetlocalId(Index: Integer; const Astring: string);
function localId_Specified(Index: Integer): boolean;
procedure SetdocumentId(Index: Integer; const Astring: string);
function documentId_Specified(Index: Integer): boolean;
published
property documentUUID: string Index (IS_UNQL) read FdocumentUUID write FdocumentUUID;
property xmlContent: string Index (IS_UNQL) read FxmlContent write FxmlContent;
property sourceUrn: string Index (IS_UNQL) read FsourceUrn write FsourceUrn;
property destinationUrn: string Index (IS_UNQL) read FdestinationUrn write FdestinationUrn;
property documentNoPrefix: string Index (IS_OPTN or IS_UNQL) read FdocumentNoPrefix write SetdocumentNoPrefix stored documentNoPrefix_Specified;
property localId: string Index (IS_OPTN or IS_UNQL) read FlocalId write SetlocalId stored localId_Specified;
property documentId: string Index (IS_OPTN or IS_UNQL) read FdocumentId write SetdocumentId stored documentId_Specified;
property documentDate: string Index (IS_UNQL) read FdocumentDate write FdocumentDate;
end;
Array_Of_DocumentInfo = array of DocumentInfo; { "http://invoiceservice.entegrator.com/"[GblUbnd] }
// ************************************************************************ //
// XML : DocumentInfo, global, <complexType>
// Namespace : http://invoiceservice.entegrator.com/
// ************************************************************************ //
DocumentInfo = class(TRemotable)
private
FdocumentDate: string;
FdocumentDate_Specified: boolean;
FdocumentNo: string;
FdocumentNo_Specified: boolean;
procedure SetdocumentDate(Index: Integer; const Astring: string);
function documentDate_Specified(Index: Integer): boolean;
procedure SetdocumentNo(Index: Integer; const Astring: string);
function documentNo_Specified(Index: Integer): boolean;
published
property documentDate: string Index (IS_OPTN or IS_UNQL) read FdocumentDate write SetdocumentDate stored documentDate_Specified;
property documentNo: string Index (IS_OPTN or IS_UNQL) read FdocumentNo write SetdocumentNo stored documentNo_Specified;
end;
// ************************************************************************ //
// XML : ResponseUser, global, <complexType>
// Namespace : http://invoiceservice.entegrator.com/
// ************************************************************************ //
ResponseUser = class(TRemotable)
private
Fvkn_tckn: string;
Fvkn_tckn_Specified: boolean;
Funvan_ad: string;
Funvan_ad_Specified: boolean;
Fetiket: string;
Fetiket_Specified: boolean;
Ftip: string;
Ftip_Specified: boolean;
FilkKayitZamani: string;
FilkKayitZamani_Specified: boolean;
FetiketKayitZamani: string;
FetiketKayitZamani_Specified: boolean;
procedure Setvkn_tckn(Index: Integer; const Astring: string);
function vkn_tckn_Specified(Index: Integer): boolean;
procedure Setunvan_ad(Index: Integer; const Astring: string);
function unvan_ad_Specified(Index: Integer): boolean;
procedure Setetiket(Index: Integer; const Astring: string);
function etiket_Specified(Index: Integer): boolean;
procedure Settip(Index: Integer; const Astring: string);
function tip_Specified(Index: Integer): boolean;
procedure SetilkKayitZamani(Index: Integer; const Astring: string);
function ilkKayitZamani_Specified(Index: Integer): boolean;
procedure SetetiketKayitZamani(Index: Integer; const Astring: string);
function etiketKayitZamani_Specified(Index: Integer): boolean;
published
property vkn_tckn: string Index (IS_OPTN or IS_UNQL) read Fvkn_tckn write Setvkn_tckn stored vkn_tckn_Specified;
property unvan_ad: string Index (IS_OPTN or IS_UNQL) read Funvan_ad write Setunvan_ad stored unvan_ad_Specified;
property etiket: string Index (IS_OPTN or IS_UNQL) read Fetiket write Setetiket stored etiket_Specified;
property tip: string Index (IS_OPTN or IS_UNQL) read Ftip write Settip stored tip_Specified;
property ilkKayitZamani: string Index (IS_OPTN or IS_UNQL) read FilkKayitZamani write SetilkKayitZamani stored ilkKayitZamani_Specified;
property etiketKayitZamani: string Index (IS_OPTN or IS_UNQL) read FetiketKayitZamani write SetetiketKayitZamani stored etiketKayitZamani_Specified;
end;
getCreditActionsforCustomerResponse = array of CreditAction; { "http://invoiceservice.entegrator.com/"[Lit][GblCplx] }
getUserAliasesResponse = array of UserAddresInfo; { "http://invoiceservice.entegrator.com/"[Lit][GblCplx] }
// ************************************************************************ //
// XML : CreditAction, global, <complexType>
// Namespace : http://invoiceservice.entegrator.com/
// ************************************************************************ //
CreditAction = class(TRemotable)
private
Fpurchase_date: string;
Fpurchase_count: TXSDecimal;
FconsideredCount: TXSDecimal;
Fcredit_unit: Integer;
Fcredit_pool_id: string;
Fbuyer_VKN_TCKN: string;
Faction_type: CreditActionTypes;
public
destructor Destroy; override;
published
property purchase_date: string Index (IS_UNQL) read Fpurchase_date write Fpurchase_date;
property purchase_count: TXSDecimal Index (IS_UNQL) read Fpurchase_count write Fpurchase_count;
property consideredCount: TXSDecimal Index (IS_UNQL) read FconsideredCount write FconsideredCount;
property credit_unit: Integer Index (IS_UNQL) read Fcredit_unit write Fcredit_unit;
property credit_pool_id: string Index (IS_UNQL) read Fcredit_pool_id write Fcredit_pool_id;
property buyer_VKN_TCKN: string Index (IS_UNQL) read Fbuyer_VKN_TCKN write Fbuyer_VKN_TCKN;
property action_type: CreditActionTypes Index (IS_UNQL) read Faction_type write Faction_type;
end;
// ************************************************************************ //
// XML : UserQueryResponse, global, <complexType>
// Namespace : http://invoiceservice.entegrator.com/
// ************************************************************************ //
UserQueryResponse = class(TRemotable)
private
FqueryState: Integer;
FstateExplanation: string;
FstateExplanation_Specified: boolean;
FuserCount: Integer;
Fusers: Array_Of_ResponseUser;
Fusers_Specified: boolean;
procedure SetstateExplanation(Index: Integer; const Astring: string);
function stateExplanation_Specified(Index: Integer): boolean;
procedure Setusers(Index: Integer; const AArray_Of_ResponseUser: Array_Of_ResponseUser);
function users_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property queryState: Integer Index (IS_UNQL) read FqueryState write FqueryState;
property stateExplanation: string Index (IS_OPTN or IS_UNQL) read FstateExplanation write SetstateExplanation stored stateExplanation_Specified;
property userCount: Integer Index (IS_UNQL) read FuserCount write FuserCount;
property users: Array_Of_ResponseUser Index (IS_OPTN or IS_UNBD or IS_UNQL) read Fusers write Setusers stored users_Specified;
end;
// ************************************************************************ //
// XML : flagSetter, global, <complexType>
// Namespace : http://invoiceservice.entegrator.com/
// ************************************************************************ //
flagSetter = class(TRemotable)
private
Fdocument_direction: string;
Fdocument_direction_Specified: boolean;
Fflag_name: string;
Fflag_name_Specified: boolean;
Fflag_value: Integer;
Fdocument_uuid: string;
Fdocument_uuid_Specified: boolean;
procedure Setdocument_direction(Index: Integer; const Astring: string);
function document_direction_Specified(Index: Integer): boolean;
procedure Setflag_name(Index: Integer; const Astring: string);
function flag_name_Specified(Index: Integer): boolean;
procedure Setdocument_uuid(Index: Integer; const Astring: string);
function document_uuid_Specified(Index: Integer): boolean;
published
property document_direction: string Index (IS_OPTN or IS_UNQL) read Fdocument_direction write Setdocument_direction stored document_direction_Specified;
property flag_name: string Index (IS_OPTN or IS_UNQL) read Fflag_name write Setflag_name stored flag_name_Specified;
property flag_value: Integer Index (IS_UNQL) read Fflag_value write Fflag_value;
property document_uuid: string Index (IS_OPTN or IS_UNQL) read Fdocument_uuid write Setdocument_uuid stored document_uuid_Specified;
end;
getUserAliases = array of string; { "http://invoiceservice.entegrator.com/"[Lit][GblCplx] }
// ************************************************************************ //
// XML : UserAddresInfo, global, <complexType>
// Namespace : http://invoiceservice.entegrator.com/
// ************************************************************************ //
UserAddresInfo = class(TRemotable)
private
Fvkn_tckn: string;
Fvkn_tckn_Specified: boolean;
FgbList: getUserAliases;
FgbList_Specified: boolean;
FpkList: getUserAliases;
FpkList_Specified: boolean;
procedure Setvkn_tckn(Index: Integer; const Astring: string);
function vkn_tckn_Specified(Index: Integer): boolean;
procedure SetgbList(Index: Integer; const AgetUserAliases: getUserAliases);
function gbList_Specified(Index: Integer): boolean;
procedure SetpkList(Index: Integer; const AgetUserAliases: getUserAliases);
function pkList_Specified(Index: Integer): boolean;
published
property vkn_tckn: string Index (IS_OPTN or IS_UNQL) read Fvkn_tckn write Setvkn_tckn stored vkn_tckn_Specified;
property gbList: getUserAliases Index (IS_OPTN or IS_UNBD or IS_UNQL) read FgbList write SetgbList stored gbList_Specified;
property pkList: getUserAliases Index (IS_OPTN or IS_UNBD or IS_UNQL) read FpkList write SetpkList stored pkList_Specified;
end;
// ************************************************************************ //
// XML : DocumentQueryResponse, global, <complexType>
// Namespace : http://invoiceservice.entegrator.com/
// ************************************************************************ //
DocumentQueryResponse = class(TRemotable)
private
FqueryState: Integer;
FstateExplanation: string;
FstateExplanation_Specified: boolean;
FdocumentsCount: Integer;
FmaxRecordIdinList: Integer;
Fdocuments: Array_Of_ResponseDocument;
Fdocuments_Specified: boolean;
procedure SetstateExplanation(Index: Integer; const Astring: string);
function stateExplanation_Specified(Index: Integer): boolean;
procedure Setdocuments(Index: Integer; const AArray_Of_ResponseDocument: Array_Of_ResponseDocument);
function documents_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property queryState: Integer Index (IS_UNQL) read FqueryState write FqueryState;
property stateExplanation: string Index (IS_OPTN or IS_UNQL) read FstateExplanation write SetstateExplanation stored stateExplanation_Specified;
property documentsCount: Integer Index (IS_UNQL) read FdocumentsCount write FdocumentsCount;
property maxRecordIdinList: Integer Index (IS_UNQL) read FmaxRecordIdinList write FmaxRecordIdinList;
property documents: Array_Of_ResponseDocument Index (IS_OPTN or IS_UNBD or IS_UNQL) read Fdocuments write Setdocuments stored documents_Specified;
end;
// ************************************************************************ //
// XML : ResponseDocument, global, <complexType>
// Namespace : http://invoiceservice.entegrator.com/
// ************************************************************************ //
ResponseDocument = class(TRemotable)
private
Fdocument_uuid: string;
Fdocument_uuid_Specified: boolean;
Fdocument_id: string;
Fdocument_id_Specified: boolean;
Fenvelope_uuid: string;
Fenvelope_uuid_Specified: boolean;
Fdocument_profile: string;
Fdocument_profile_Specified: boolean;
Fsystem_creation_time: string;
Fsystem_creation_time_Specified: boolean;
Fdocument_issue_date: string;
Fdocument_issue_date_Specified: boolean;
Fsource_id: string;
Fsource_id_Specified: boolean;
Fdestination_id: string;
Fdestination_id_Specified: boolean;
Fsource_urn: string;
Fsource_urn_Specified: boolean;
Fsource_title: string;
Fsource_title_Specified: boolean;
Fdestination_urn: string;
Fdestination_urn_Specified: boolean;
Fcurrency_code: string;
Fcurrency_code_Specified: boolean;
Finvoice_total: string;
Finvoice_total_Specified: boolean;
Fstate_code: string;
Fstate_code_Specified: boolean;
Fstate_explanation: string;
Fstate_explanation_Specified: boolean;
Fcause: string;
Fcause_Specified: boolean;
Fcontent_type: string;
Fcontent_type_Specified: boolean;
Fdocument_content: TByteDynArray;
Fdocument_content_Specified: boolean;
FemailSent: Integer;
FemailSentDate: string;
FemailSentDate_Specified: boolean;
Fcancelled: string;
Fcancelled_Specified: boolean;
Fcancel_date: string;
Fcancel_date_Specified: boolean;
Freference_document_uuid: string;
Freference_document_uuid_Specified: boolean;
Fresponse_document_uuid: string;
Fresponse_document_uuid_Specified: boolean;
Fresponse_code: string;
Fresponse_code_Specified: boolean;
Fresponse_validation_state: string;
Fresponse_validation_state_Specified: boolean;
Fresponse_received_date: string;
Fresponse_received_date_Specified: boolean;
Fgtb_reference_no: string;
Fgtb_reference_no_Specified: boolean;
Fgtb_gcb_tescil_no: string;
Fgtb_gcb_tescil_no_Specified: boolean;
Fgtb_fiili_ihracat_tarihi: string;
Fgtb_fiili_ihracat_tarihi_Specified: boolean;
Freserved1: string;
Freserved1_Specified: boolean;
Freserved2: string;
Freserved2_Specified: boolean;
Freserved3: string;
Freserved3_Specified: boolean;
Fdocument_type_code: string;
Fdocument_type_code_Specified: boolean;
Fnotes: getUserAliases;
Fnotes_Specified: boolean;
FdespatchInfo: Array_Of_DocumentInfo;
FdespatchInfo_Specified: boolean;
ForderInfo: DocumentInfo;
ForderInfo_Specified: boolean;
FtaxInfo: Array_Of_TaxInfo;
FtaxInfo_Specified: boolean;
FtaxInclusiveAmount: string;
FtaxInclusiveAmount_Specified: boolean;
FtaxExlusiveAmount: string;
FtaxExlusiveAmount_Specified: boolean;
FallowanceTotalAmount: string;
FallowanceTotalAmount_Specified: boolean;
FtaxAmount0015: string;
FtaxAmount0015_Specified: boolean;
FlineExtensionAmount: string;
FlineExtensionAmount_Specified: boolean;
FsuplierPersonName: string;
FsuplierPersonName_Specified: boolean;
FsupplierPersonMiddleName: string;
FsupplierPersonMiddleName_Specified: boolean;
FsupplierPersonFamilyName: string;
FsupplierPersonFamilyName_Specified: boolean;
FcustomerPersonName: string;
FcustomerPersonName_Specified: boolean;
FcustomerPersonMiddleName: string;
FcustomerPersonMiddleName_Specified: boolean;
FcustomerPersonFamilyName: string;
FcustomerPersonFamilyName_Specified: boolean;
Fdestination_title: string;
Fdestination_title_Specified: boolean;
Fis_read: string;
Fis_read_Specified: boolean;
Fis_archieved: string;
Fis_archieved_Specified: boolean;
Fis_accounted: string;
Fis_accounted_Specified: boolean;
Fis_transferred: string;
Fis_transferred_Specified: boolean;
Fis_printed: string;
Fis_printed_Specified: boolean;
Flocal_id: string;
Flocal_id_Specified: boolean;
FsendingType: string;
FsendingType_Specified: boolean;
FbuyerCustomerPartyName: string;
FbuyerCustomerPartyName_Specified: boolean;
FbuyerCustomerPersonName: string;
FbuyerCustomerPersonName_Specified: boolean;
FbuyerCustomerPersonFamilyName: string;
FbuyerCustomerPersonFamilyName_Specified: boolean;
procedure Setdocument_uuid(Index: Integer; const Astring: string);
function document_uuid_Specified(Index: Integer): boolean;
procedure Setdocument_id(Index: Integer; const Astring: string);
function document_id_Specified(Index: Integer): boolean;
procedure Setenvelope_uuid(Index: Integer; const Astring: string);
function envelope_uuid_Specified(Index: Integer): boolean;
procedure Setdocument_profile(Index: Integer; const Astring: string);
function document_profile_Specified(Index: Integer): boolean;
procedure Setsystem_creation_time(Index: Integer; const Astring: string);
function system_creation_time_Specified(Index: Integer): boolean;
procedure Setdocument_issue_date(Index: Integer; const Astring: string);
function document_issue_date_Specified(Index: Integer): boolean;
procedure Setsource_id(Index: Integer; const Astring: string);
function source_id_Specified(Index: Integer): boolean;
procedure Setdestination_id(Index: Integer; const Astring: string);
function destination_id_Specified(Index: Integer): boolean;
procedure Setsource_urn(Index: Integer; const Astring: string);
function source_urn_Specified(Index: Integer): boolean;
procedure Setsource_title(Index: Integer; const Astring: string);
function source_title_Specified(Index: Integer): boolean;
procedure Setdestination_urn(Index: Integer; const Astring: string);
function destination_urn_Specified(Index: Integer): boolean;
procedure Setcurrency_code(Index: Integer; const Astring: string);
function currency_code_Specified(Index: Integer): boolean;
procedure Setinvoice_total(Index: Integer; const Astring: string);
function invoice_total_Specified(Index: Integer): boolean;
procedure Setstate_code(Index: Integer; const Astring: string);
function state_code_Specified(Index: Integer): boolean;
procedure Setstate_explanation(Index: Integer; const Astring: string);
function state_explanation_Specified(Index: Integer): boolean;
procedure Setcause(Index: Integer; const Astring: string);
function cause_Specified(Index: Integer): boolean;
procedure Setcontent_type(Index: Integer; const Astring: string);
function content_type_Specified(Index: Integer): boolean;
procedure Setdocument_content(Index: Integer; const ATByteDynArray: TByteDynArray);
function document_content_Specified(Index: Integer): boolean;
procedure SetemailSentDate(Index: Integer; const Astring: string);
function emailSentDate_Specified(Index: Integer): boolean;
procedure Setcancelled(Index: Integer; const Astring: string);
function cancelled_Specified(Index: Integer): boolean;
procedure Setcancel_date(Index: Integer; const Astring: string);
function cancel_date_Specified(Index: Integer): boolean;
procedure Setreference_document_uuid(Index: Integer; const Astring: string);
function reference_document_uuid_Specified(Index: Integer): boolean;
procedure Setresponse_document_uuid(Index: Integer; const Astring: string);
function response_document_uuid_Specified(Index: Integer): boolean;
procedure Setresponse_code(Index: Integer; const Astring: string);
function response_code_Specified(Index: Integer): boolean;
procedure Setresponse_validation_state(Index: Integer; const Astring: string);
function response_validation_state_Specified(Index: Integer): boolean;
procedure Setresponse_received_date(Index: Integer; const Astring: string);
function response_received_date_Specified(Index: Integer): boolean;
procedure Setgtb_reference_no(Index: Integer; const Astring: string);
function gtb_reference_no_Specified(Index: Integer): boolean;
procedure Setgtb_gcb_tescil_no(Index: Integer; const Astring: string);
function gtb_gcb_tescil_no_Specified(Index: Integer): boolean;
procedure Setgtb_fiili_ihracat_tarihi(Index: Integer; const Astring: string);
function gtb_fiili_ihracat_tarihi_Specified(Index: Integer): boolean;
procedure Setreserved1(Index: Integer; const Astring: string);
function reserved1_Specified(Index: Integer): boolean;
procedure Setreserved2(Index: Integer; const Astring: string);
function reserved2_Specified(Index: Integer): boolean;
procedure Setreserved3(Index: Integer; const Astring: string);
function reserved3_Specified(Index: Integer): boolean;
procedure Setdocument_type_code(Index: Integer; const Astring: string);
function document_type_code_Specified(Index: Integer): boolean;
procedure Setnotes(Index: Integer; const AgetUserAliases: getUserAliases);
function notes_Specified(Index: Integer): boolean;
procedure SetdespatchInfo(Index: Integer; const AArray_Of_DocumentInfo: Array_Of_DocumentInfo);
function despatchInfo_Specified(Index: Integer): boolean;
procedure SetorderInfo(Index: Integer; const ADocumentInfo: DocumentInfo);
function orderInfo_Specified(Index: Integer): boolean;
procedure SettaxInfo(Index: Integer; const AArray_Of_TaxInfo: Array_Of_TaxInfo);
function taxInfo_Specified(Index: Integer): boolean;
procedure SettaxInclusiveAmount(Index: Integer; const Astring: string);
function taxInclusiveAmount_Specified(Index: Integer): boolean;
procedure SettaxExlusiveAmount(Index: Integer; const Astring: string);
function taxExlusiveAmount_Specified(Index: Integer): boolean;
procedure SetallowanceTotalAmount(Index: Integer; const Astring: string);
function allowanceTotalAmount_Specified(Index: Integer): boolean;
procedure SettaxAmount0015(Index: Integer; const Astring: string);
function taxAmount0015_Specified(Index: Integer): boolean;
procedure SetlineExtensionAmount(Index: Integer; const Astring: string);
function lineExtensionAmount_Specified(Index: Integer): boolean;
procedure SetsuplierPersonName(Index: Integer; const Astring: string);
function suplierPersonName_Specified(Index: Integer): boolean;
procedure SetsupplierPersonMiddleName(Index: Integer; const Astring: string);
function supplierPersonMiddleName_Specified(Index: Integer): boolean;
procedure SetsupplierPersonFamilyName(Index: Integer; const Astring: string);
function supplierPersonFamilyName_Specified(Index: Integer): boolean;
procedure SetcustomerPersonName(Index: Integer; const Astring: string);
function customerPersonName_Specified(Index: Integer): boolean;
procedure SetcustomerPersonMiddleName(Index: Integer; const Astring: string);
function customerPersonMiddleName_Specified(Index: Integer): boolean;
procedure SetcustomerPersonFamilyName(Index: Integer; const Astring: string);
function customerPersonFamilyName_Specified(Index: Integer): boolean;
procedure Setdestination_title(Index: Integer; const Astring: string);
function destination_title_Specified(Index: Integer): boolean;
procedure Setis_read(Index: Integer; const Astring: string);
function is_read_Specified(Index: Integer): boolean;
procedure Setis_archieved(Index: Integer; const Astring: string);
function is_archieved_Specified(Index: Integer): boolean;
procedure Setis_accounted(Index: Integer; const Astring: string);
function is_accounted_Specified(Index: Integer): boolean;
procedure Setis_transferred(Index: Integer; const Astring: string);
function is_transferred_Specified(Index: Integer): boolean;
procedure Setis_printed(Index: Integer; const Astring: string);
function is_printed_Specified(Index: Integer): boolean;
procedure Setlocal_id(Index: Integer; const Astring: string);
function local_id_Specified(Index: Integer): boolean;
procedure SetsendingType(Index: Integer; const Astring: string);
function sendingType_Specified(Index: Integer): boolean;
procedure SetbuyerCustomerPartyName(Index: Integer; const Astring: string);
function buyerCustomerPartyName_Specified(Index: Integer): boolean;
procedure SetbuyerCustomerPersonName(Index: Integer; const Astring: string);
function buyerCustomerPersonName_Specified(Index: Integer): boolean;
procedure SetbuyerCustomerPersonFamilyName(Index: Integer; const Astring: string);
function buyerCustomerPersonFamilyName_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property document_uuid: string Index (IS_OPTN or IS_UNQL) read Fdocument_uuid write Setdocument_uuid stored document_uuid_Specified;
property document_id: string Index (IS_OPTN or IS_UNQL) read Fdocument_id write Setdocument_id stored document_id_Specified;
property envelope_uuid: string Index (IS_OPTN or IS_UNQL) read Fenvelope_uuid write Setenvelope_uuid stored envelope_uuid_Specified;
property document_profile: string Index (IS_OPTN or IS_UNQL) read Fdocument_profile write Setdocument_profile stored document_profile_Specified;
property system_creation_time: string Index (IS_OPTN or IS_UNQL) read Fsystem_creation_time write Setsystem_creation_time stored system_creation_time_Specified;
property document_issue_date: string Index (IS_OPTN or IS_UNQL) read Fdocument_issue_date write Setdocument_issue_date stored document_issue_date_Specified;
property source_id: string Index (IS_OPTN or IS_UNQL) read Fsource_id write Setsource_id stored source_id_Specified;
property destination_id: string Index (IS_OPTN or IS_UNQL) read Fdestination_id write Setdestination_id stored destination_id_Specified;
property source_urn: string Index (IS_OPTN or IS_UNQL) read Fsource_urn write Setsource_urn stored source_urn_Specified;
property source_title: string Index (IS_OPTN or IS_UNQL) read Fsource_title write Setsource_title stored source_title_Specified;
property destination_urn: string Index (IS_OPTN or IS_UNQL) read Fdestination_urn write Setdestination_urn stored destination_urn_Specified;
property currency_code: string Index (IS_OPTN or IS_UNQL) read Fcurrency_code write Setcurrency_code stored currency_code_Specified;
property invoice_total: string Index (IS_OPTN or IS_UNQL) read Finvoice_total write Setinvoice_total stored invoice_total_Specified;
property state_code: string Index (IS_OPTN or IS_UNQL) read Fstate_code write Setstate_code stored state_code_Specified;
property state_explanation: string Index (IS_OPTN or IS_UNQL) read Fstate_explanation write Setstate_explanation stored state_explanation_Specified;
property cause: string Index (IS_OPTN or IS_UNQL) read Fcause write Setcause stored cause_Specified;
property content_type: string Index (IS_OPTN or IS_UNQL) read Fcontent_type write Setcontent_type stored content_type_Specified;
property document_content: TByteDynArray Index (IS_OPTN or IS_UNQL) read Fdocument_content write Setdocument_content stored document_content_Specified;
property emailSent: Integer Index (IS_UNQL) read FemailSent write FemailSent;
property emailSentDate: string Index (IS_OPTN or IS_UNQL) read FemailSentDate write SetemailSentDate stored emailSentDate_Specified;
property cancelled: string Index (IS_OPTN or IS_UNQL) read Fcancelled write Setcancelled stored cancelled_Specified;
property cancel_date: string Index (IS_OPTN or IS_UNQL) read Fcancel_date write Setcancel_date stored cancel_date_Specified;
property reference_document_uuid: string Index (IS_OPTN or IS_UNQL) read Freference_document_uuid write Setreference_document_uuid stored reference_document_uuid_Specified;
property response_document_uuid: string Index (IS_OPTN or IS_UNQL) read Fresponse_document_uuid write Setresponse_document_uuid stored response_document_uuid_Specified;
property response_code: string Index (IS_OPTN or IS_UNQL) read Fresponse_code write Setresponse_code stored response_code_Specified;
property response_validation_state: string Index (IS_OPTN or IS_UNQL) read Fresponse_validation_state write Setresponse_validation_state stored response_validation_state_Specified;
property response_received_date: string Index (IS_OPTN or IS_UNQL) read Fresponse_received_date write Setresponse_received_date stored response_received_date_Specified;
property gtb_reference_no: string Index (IS_OPTN or IS_UNQL) read Fgtb_reference_no write Setgtb_reference_no stored gtb_reference_no_Specified;
property gtb_gcb_tescil_no: string Index (IS_OPTN or IS_UNQL) read Fgtb_gcb_tescil_no write Setgtb_gcb_tescil_no stored gtb_gcb_tescil_no_Specified;
property gtb_fiili_ihracat_tarihi: string Index (IS_OPTN or IS_UNQL) read Fgtb_fiili_ihracat_tarihi write Setgtb_fiili_ihracat_tarihi stored gtb_fiili_ihracat_tarihi_Specified;
property reserved1: string Index (IS_OPTN or IS_UNQL) read Freserved1 write Setreserved1 stored reserved1_Specified;
property reserved2: string Index (IS_OPTN or IS_UNQL) read Freserved2 write Setreserved2 stored reserved2_Specified;
property reserved3: string Index (IS_OPTN or IS_UNQL) read Freserved3 write Setreserved3 stored reserved3_Specified;
property document_type_code: string Index (IS_OPTN or IS_UNQL) read Fdocument_type_code write Setdocument_type_code stored document_type_code_Specified;
property notes: getUserAliases Index (IS_OPTN or IS_UNBD or IS_UNQL) read Fnotes write Setnotes stored notes_Specified;
property despatchInfo: Array_Of_DocumentInfo Index (IS_OPTN or IS_UNBD or IS_UNQL) read FdespatchInfo write SetdespatchInfo stored despatchInfo_Specified;
property orderInfo: DocumentInfo Index (IS_OPTN or IS_UNQL) read ForderInfo write SetorderInfo stored orderInfo_Specified;
property taxInfo: Array_Of_TaxInfo Index (IS_OPTN or IS_UNBD or IS_UNQL) read FtaxInfo write SettaxInfo stored taxInfo_Specified;
property taxInclusiveAmount: string Index (IS_OPTN or IS_UNQL) read FtaxInclusiveAmount write SettaxInclusiveAmount stored taxInclusiveAmount_Specified;
property taxExlusiveAmount: string Index (IS_OPTN or IS_UNQL) read FtaxExlusiveAmount write SettaxExlusiveAmount stored taxExlusiveAmount_Specified;
property allowanceTotalAmount: string Index (IS_OPTN or IS_UNQL) read FallowanceTotalAmount write SetallowanceTotalAmount stored allowanceTotalAmount_Specified;
property taxAmount0015: string Index (IS_OPTN or IS_UNQL) read FtaxAmount0015 write SettaxAmount0015 stored taxAmount0015_Specified;
property lineExtensionAmount: string Index (IS_OPTN or IS_UNQL) read FlineExtensionAmount write SetlineExtensionAmount stored lineExtensionAmount_Specified;
property suplierPersonName: string Index (IS_OPTN or IS_UNQL) read FsuplierPersonName write SetsuplierPersonName stored suplierPersonName_Specified;
property supplierPersonMiddleName: string Index (IS_OPTN or IS_UNQL) read FsupplierPersonMiddleName write SetsupplierPersonMiddleName stored supplierPersonMiddleName_Specified;
property supplierPersonFamilyName: string Index (IS_OPTN or IS_UNQL) read FsupplierPersonFamilyName write SetsupplierPersonFamilyName stored supplierPersonFamilyName_Specified;
property customerPersonName: string Index (IS_OPTN or IS_UNQL) read FcustomerPersonName write SetcustomerPersonName stored customerPersonName_Specified;
property customerPersonMiddleName: string Index (IS_OPTN or IS_UNQL) read FcustomerPersonMiddleName write SetcustomerPersonMiddleName stored customerPersonMiddleName_Specified;
property customerPersonFamilyName: string Index (IS_OPTN or IS_UNQL) read FcustomerPersonFamilyName write SetcustomerPersonFamilyName stored customerPersonFamilyName_Specified;
property destination_title: string Index (IS_OPTN or IS_UNQL) read Fdestination_title write Setdestination_title stored destination_title_Specified;
property is_read: string Index (IS_OPTN or IS_UNQL) read Fis_read write Setis_read stored is_read_Specified;
property is_archieved: string Index (IS_OPTN or IS_UNQL) read Fis_archieved write Setis_archieved stored is_archieved_Specified;
property is_accounted: string Index (IS_OPTN or IS_UNQL) read Fis_accounted write Setis_accounted stored is_accounted_Specified;
property is_transferred: string Index (IS_OPTN or IS_UNQL) read Fis_transferred write Setis_transferred stored is_transferred_Specified;
property is_printed: string Index (IS_OPTN or IS_UNQL) read Fis_printed write Setis_printed stored is_printed_Specified;
property local_id: string Index (IS_OPTN or IS_UNQL) read Flocal_id write Setlocal_id stored local_id_Specified;
property sendingType: string Index (IS_OPTN or IS_UNQL) read FsendingType write SetsendingType stored sendingType_Specified;
property buyerCustomerPartyName: string Index (IS_OPTN or IS_UNQL) read FbuyerCustomerPartyName write SetbuyerCustomerPartyName stored buyerCustomerPartyName_Specified;
property buyerCustomerPersonName: string Index (IS_OPTN or IS_UNQL) read FbuyerCustomerPersonName write SetbuyerCustomerPersonName stored buyerCustomerPersonName_Specified;
property buyerCustomerPersonFamilyName: string Index (IS_OPTN or IS_UNQL) read FbuyerCustomerPersonFamilyName write SetbuyerCustomerPersonFamilyName stored buyerCustomerPersonFamilyName_Specified;
end;
// ************************************************************************ //
// Namespace : http://invoiceservice.entegrator.com/
// transport : http://schemas.xmlsoap.org/soap/http
// style : document
// use : literal
// binding : InvoiceWSPortBinding
// service : InvoiceWS
// port : InvoiceWSPort
// URL : http://servis.hizlibilisimteknolojileri.net/InvoiceService/InvoiceWS
// ************************************************************************ //
InvoiceWS = interface(IInvokable)
['{07851DEB-551D-FDE9-DF25-61D08B9BFE70}']
function getCustomerCreditCount(const vkn_tckn: string): CreditInfo; stdcall;
function getCustomerCreditSpace(const vkn_tckn: string): CreditInfo; stdcall;
function sendInvoiceWithoutDocumentId(const inputDocumentList: updateInvoice): updateInvoiceResponse; stdcall;
function controlInvoiceXML(const invoiceXML: string): EntResponse; stdcall;
function getCustomerPKList: UserQueryResponse; stdcall;
function uploadInvoiceList(const invoiceListXML: string; const sourceUrn: string; const documentPrefix: string; const xsltPath: string): EntResponse; stdcall;
function sendApplicationResponse(const inputDocumentList: updateInvoice): updateInvoiceResponse; stdcall;
function controlApplicationResponseXML(const appResponseXML: string): EntResponse; stdcall;
function getCustomerGBList: UserQueryResponse; stdcall;
function getCreditActionsforCustomer(const vkn_tckn: string): getCreditActionsforCustomerResponse; stdcall;
function cancelInvoice(const invoiceUUID: string): EntResponse; stdcall;
function updateInvoice(const inputDocumentList: updateInvoice): updateInvoiceResponse; stdcall;
function saveToTaslak(const inputDocumentList: updateInvoice): updateInvoiceResponse; stdcall;
function sendInvoice(const inputDocumentList: updateInvoice): updateInvoiceResponse; stdcall;
function getUserAliases(const vknTcknList: getUserAliases): getUserAliasesResponse; stdcall;
function getPrefixList: DocumentQueryResponse; stdcall;
function setDocumentFlag(const flagSetter: flagSetter): EntResponse; stdcall;
end;
function GetInvoiceWS(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): InvoiceWS;
implementation
uses System.SysUtils;
function GetInvoiceWS(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): InvoiceWS;
const
defWSDL = 'https://servis.hizlibilisimteknolojileri.net/InvoiceService/InvoiceWS?wsdl';
defURL = 'http://servis.hizlibilisimteknolojileri.net/InvoiceService/InvoiceWS';
defSvc = 'InvoiceWS';
defPrt = 'InvoiceWSPort';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as InvoiceWS);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
procedure TaxInfo.SettaxtTypeCode(Index: Integer; const Astring: string);
begin
FtaxtTypeCode := Astring;
FtaxtTypeCode_Specified := True;
end;
function TaxInfo.taxtTypeCode_Specified(Index: Integer): boolean;
begin
Result := FtaxtTypeCode_Specified;
end;
procedure TaxInfo.SettaxtTypeName(Index: Integer; const Astring: string);
begin
FtaxtTypeName := Astring;
FtaxtTypeName_Specified := True;
end;
function TaxInfo.taxtTypeName_Specified(Index: Integer): boolean;
begin
Result := FtaxtTypeName_Specified;
end;
procedure TaxInfo.SettaxAmount(Index: Integer; const Astring: string);
begin
FtaxAmount := Astring;
FtaxAmount_Specified := True;
end;
function TaxInfo.taxAmount_Specified(Index: Integer): boolean;
begin
Result := FtaxAmount_Specified;
end;
procedure TaxInfo.SettaxPercentage(Index: Integer; const Astring: string);
begin
FtaxPercentage := Astring;
FtaxPercentage_Specified := True;
end;
function TaxInfo.taxPercentage_Specified(Index: Integer): boolean;
begin
Result := FtaxPercentage_Specified;
end;
destructor CreditInfo.Destroy;
begin
System.SysUtils.FreeAndNil(FtotalCredit);
System.SysUtils.FreeAndNil(FremainCredit);
inherited Destroy;
end;
procedure EntResponse.SetdocumentUUID(Index: Integer; const Astring: string);
begin
FdocumentUUID := Astring;
FdocumentUUID_Specified := True;
end;
function EntResponse.documentUUID_Specified(Index: Integer): boolean;
begin
Result := FdocumentUUID_Specified;
end;
procedure EntResponse.SetdocumentID(Index: Integer; const Astring: string);
begin
FdocumentID := Astring;
FdocumentID_Specified := True;
end;
function EntResponse.documentID_Specified(Index: Integer): boolean;
begin
Result := FdocumentID_Specified;
end;
procedure EntResponse.Setcode(Index: Integer; const Astring: string);
begin
Fcode := Astring;
Fcode_Specified := True;
end;
function EntResponse.code_Specified(Index: Integer): boolean;
begin
Result := Fcode_Specified;
end;
procedure EntResponse.Setexplanation(Index: Integer; const Astring: string);
begin
Fexplanation := Astring;
Fexplanation_Specified := True;
end;
function EntResponse.explanation_Specified(Index: Integer): boolean;
begin
Result := Fexplanation_Specified;
end;
procedure EntResponse.Setcause(Index: Integer; const Astring: string);
begin
Fcause := Astring;
Fcause_Specified := True;
end;
function EntResponse.cause_Specified(Index: Integer): boolean;
begin
Result := Fcause_Specified;
end;
procedure InputDocument.SetdocumentNoPrefix(Index: Integer; const Astring: string);
begin
FdocumentNoPrefix := Astring;
FdocumentNoPrefix_Specified := True;
end;
function InputDocument.documentNoPrefix_Specified(Index: Integer): boolean;
begin
Result := FdocumentNoPrefix_Specified;
end;
procedure InputDocument.SetlocalId(Index: Integer; const Astring: string);
begin
FlocalId := Astring;
FlocalId_Specified := True;
end;
function InputDocument.localId_Specified(Index: Integer): boolean;
begin
Result := FlocalId_Specified;
end;
procedure InputDocument.SetdocumentId(Index: Integer; const Astring: string);
begin
FdocumentId := Astring;
FdocumentId_Specified := True;
end;
function InputDocument.documentId_Specified(Index: Integer): boolean;
begin
Result := FdocumentId_Specified;
end;
procedure DocumentInfo.SetdocumentDate(Index: Integer; const Astring: string);
begin
FdocumentDate := Astring;
FdocumentDate_Specified := True;
end;
function DocumentInfo.documentDate_Specified(Index: Integer): boolean;
begin
Result := FdocumentDate_Specified;
end;
procedure DocumentInfo.SetdocumentNo(Index: Integer; const Astring: string);
begin
FdocumentNo := Astring;
FdocumentNo_Specified := True;
end;
function DocumentInfo.documentNo_Specified(Index: Integer): boolean;
begin
Result := FdocumentNo_Specified;
end;
procedure ResponseUser.Setvkn_tckn(Index: Integer; const Astring: string);
begin
Fvkn_tckn := Astring;
Fvkn_tckn_Specified := True;
end;
function ResponseUser.vkn_tckn_Specified(Index: Integer): boolean;
begin
Result := Fvkn_tckn_Specified;
end;
procedure ResponseUser.Setunvan_ad(Index: Integer; const Astring: string);
begin
Funvan_ad := Astring;
Funvan_ad_Specified := True;
end;
function ResponseUser.unvan_ad_Specified(Index: Integer): boolean;
begin
Result := Funvan_ad_Specified;
end;
procedure ResponseUser.Setetiket(Index: Integer; const Astring: string);
begin
Fetiket := Astring;
Fetiket_Specified := True;
end;
function ResponseUser.etiket_Specified(Index: Integer): boolean;
begin
Result := Fetiket_Specified;
end;
procedure ResponseUser.Settip(Index: Integer; const Astring: string);
begin
Ftip := Astring;
Ftip_Specified := True;
end;
function ResponseUser.tip_Specified(Index: Integer): boolean;
begin
Result := Ftip_Specified;
end;
procedure ResponseUser.SetilkKayitZamani(Index: Integer; const Astring: string);
begin
FilkKayitZamani := Astring;
FilkKayitZamani_Specified := True;
end;
function ResponseUser.ilkKayitZamani_Specified(Index: Integer): boolean;
begin
Result := FilkKayitZamani_Specified;
end;
procedure ResponseUser.SetetiketKayitZamani(Index: Integer; const Astring: string);
begin
FetiketKayitZamani := Astring;
FetiketKayitZamani_Specified := True;
end;
function ResponseUser.etiketKayitZamani_Specified(Index: Integer): boolean;
begin
Result := FetiketKayitZamani_Specified;
end;
destructor CreditAction.Destroy;