Witam. Mam problem z wygenerowaniem pliku XML, ponieważ unit wygenerowany ze schematu Ministerstwa zgłasza mi błędy. Do tej pory przeżyłem dwie wersje JPK_VAT (2 i 3). Z wersją 2 miałem małe zgrzyty, była to dla mnie nowość. Nakierował mnie kAzek. Jeszcze raz dziękuję. Na wersję 3 przeszedłem bez problemu. Teraz mam problem z nową wersją JPK_V7M. Jak w wersji Delphi 7 utworzę ze schematu unit (File-New-Other-XML Data Binding) to kompilator zgłasza mi błędy. Wygenerowany unit to:
{******************************************************************************}
{ }
{ XML Data Binding }
{ }
{ Generated on: 2020-05-28 23:31:09 }
{ Generated from: C:\Users\Chojecki S│awomir\Downloads\schemat (1).xsd }
{ Settings stored in: C:\Users\Chojecki S│awomir\Downloads\schemat (1).xdb }
{ }
{******************************************************************************}
unit schemat1;
interface
uses xmldom, XMLDoc, XMLIntf;
type
{ Forward Decls }
IXMLJPK = interface;
IXMLTNaglowek = interface;
IXMLTPodmiotDowolnyBezAdresu = interface;
IXMLDeklaracja = interface;
IXMLPozycjeSzczegolowe = interface;
IXMLSprzedazWiersz = interface;
IXMLSprzedazWierszList = interface;
IXMLSprzedazCtrl = interface;
IXMLZakupWiersz = interface;
IXMLZakupWierszList = interface;
IXMLZakupCtrl = interface;
IXMLNaglowek = interface;
IXMLKodFormularza = interface;
IXMLCelZlozenia = interface;
IXMLKodFormularzaDekl = interface;
IXMLTIdentyfikatorOsobyNiefizycznej = interface;
IXMLPodmiot1 = interface;
IXMLOsobaFizyczna = interface;
IXMLOsobaNiefizyczna = interface;
{ IXMLJPK }
IXMLJPK = interface(IXMLNode)
['{D0DB2FBB-4BD6-4D0D-B868-2FC96499D035}']
{ Property Accessors }
function Get_Naglowek: IXMLNaglowek;
function Get_Podmiot1: IXMLPodmiot1;
function Get_Deklaracja: IXMLDeklaracja;
function Get_SprzedazWiersz: IXMLSprzedazWierszList;
function Get_SprzedazCtrl: IXMLSprzedazCtrl;
function Get_ZakupWiersz: IXMLZakupWierszList;
function Get_ZakupCtrl: IXMLZakupCtrl;
{ Methods & Properties }
property Naglowek: IXMLNaglowek read Get_Naglowek;
property Podmiot1: IXMLPodmiot1 read Get_Podmiot1;
property Deklaracja: IXMLDeklaracja read Get_Deklaracja;
property SprzedazWiersz: IXMLSprzedazWierszList read Get_SprzedazWiersz;
property SprzedazCtrl: IXMLSprzedazCtrl read Get_SprzedazCtrl;
property ZakupWiersz: IXMLZakupWierszList read Get_ZakupWiersz;
property ZakupCtrl: IXMLZakupCtrl read Get_ZakupCtrl;
end;
{ IXMLTNaglowek }
IXMLTNaglowek = interface(IXMLNode)
['{4F0CA7D2-AD5B-49C7-B6CD-94E6335C60D9}']
{ Property Accessors }
function Get_KodFormularza: IXMLKodFormularza;
function Get_WariantFormularza: ShortInt;
function Get_DataWytworzeniaJPK: WideString;
function Get_NazwaSystemu: WideString;
function Get_CelZlozenia: IXMLCelZlozenia;
function Get_KodUrzedu: WideString;
function Get_Rok: WideString;
function Get_Miesiac: ShortInt;
function Get_KodFormularzaDekl: IXMLKodFormularzaDekl;
function Get_WariantFormularzaDekl: ShortInt;
procedure Set_WariantFormularza(Value: ShortInt);
procedure Set_DataWytworzeniaJPK(Value: WideString);
procedure Set_NazwaSystemu(Value: WideString);
procedure Set_KodUrzedu(Value: WideString);
procedure Set_Rok(Value: WideString);
procedure Set_Miesiac(Value: ShortInt);
procedure Set_WariantFormularzaDekl(Value: ShortInt);
{ Methods & Properties }
property KodFormularza: IXMLKodFormularza read Get_KodFormularza;
property WariantFormularza: ShortInt read Get_WariantFormularza write Set_WariantFormularza;
property DataWytworzeniaJPK: WideString read Get_DataWytworzeniaJPK write Set_DataWytworzeniaJPK;
property NazwaSystemu: WideString read Get_NazwaSystemu write Set_NazwaSystemu;
property CelZlozenia: IXMLCelZlozenia read Get_CelZlozenia;
property KodUrzedu: WideString read Get_KodUrzedu write Set_KodUrzedu;
property Rok: WideString read Get_Rok write Set_Rok;
property Miesiac: ShortInt read Get_Miesiac write Set_Miesiac;
property KodFormularzaDekl: IXMLKodFormularzaDekl read Get_KodFormularzaDekl;
property WariantFormularzaDekl: ShortInt read Get_WariantFormularzaDekl write Set_WariantFormularzaDekl;
end;
{ IXMLTPodmiotDowolnyBezAdresu }
IXMLTPodmiotDowolnyBezAdresu = interface(IXMLNode)
['{C790524C-B28B-41F8-BB44-7454F86816C1}']
{ Property Accessors }
function Get_OsobaFizyczna: IXMLOsobaFizyczna;
function Get_OsobaNiefizyczna: IXMLOsobaNiefizyczna;
{ Methods & Properties }
property OsobaFizyczna: IXMLOsobaFizyczna read Get_OsobaFizyczna;
property OsobaNiefizyczna: IXMLOsobaNiefizyczna read Get_OsobaNiefizyczna;
end;
{ IXMLDeklaracja }
IXMLDeklaracja = interface(IXMLNode)
['{72E963F8-3286-40FF-B1D9-881823819F92}']
{ Property Accessors }
function Get_PozycjeSzczegolowe: IXMLPozycjeSzczegolowe;
function Get_Pouczenia: WideString;
procedure Set_Pouczenia(Value: WideString);
{ Methods & Properties }
property PozycjeSzczegolowe: IXMLPozycjeSzczegolowe read Get_PozycjeSzczegolowe;
property Pouczenia: WideString read Get_Pouczenia write Set_Pouczenia;
end;
{ IXMLPozycjeSzczegolowe }
IXMLPozycjeSzczegolowe = interface(IXMLNode)
['{44B46DA3-2822-4CB0-804B-2B0DDC40C9C0}']
{ Property Accessors }
function Get_P_10: Integer;
function Get_P_11: Integer;
function Get_P_12: Integer;
function Get_P_13: Integer;
function Get_P_14: Integer;
function Get_P_15: Integer;
function Get_P_16: Integer;
function Get_P_17: Integer;
function Get_P_18: Integer;
function Get_P_19: Integer;
function Get_P_20: Integer;
function Get_P_21: Integer;
function Get_P_22: Integer;
function Get_P_23: Integer;
function Get_P_24: Integer;
function Get_P_25: Integer;
function Get_P_26: Integer;
function Get_P_27: Integer;
function Get_P_28: Integer;
function Get_P_29: Integer;
function Get_P_30: Integer;
function Get_P_31: Integer;
function Get_P_32: Integer;
function Get_P_33: WideString;
function Get_P_34: WideString;
function Get_P_35: WideString;
function Get_P_36: WideString;
function Get_P_37: Integer;
function Get_P_38: Integer;
function Get_P_39: WideString;
function Get_P_40: Integer;
function Get_P_41: Integer;
function Get_P_42: Integer;
function Get_P_43: Integer;
function Get_P_44: Integer;
function Get_P_45: Integer;
function Get_P_46: WideString;
function Get_P_47: WideString;
function Get_P_48: Integer;
function Get_P_49: WideString;
function Get_P_50: WideString;
function Get_P_51: WideString;
function Get_P_52: WideString;
function Get_P_53: WideString;
function Get_P_54: WideString;
function Get_P_55: ShortInt;
function Get_P_56: ShortInt;
function Get_P_57: ShortInt;
function Get_P_58: ShortInt;
function Get_P_59: ShortInt;
function Get_P_60: WideString;
function Get_P_61: WideString;
function Get_P_62: WideString;
function Get_P_63: ShortInt;
function Get_P_64: ShortInt;
function Get_P_65: ShortInt;
function Get_P_66: ShortInt;
function Get_P_67: ShortInt;
function Get_P_68: WideString;
function Get_P_69: WideString;
function Get_P_ORDZU: WideString;
procedure Set_P_10(Value: Integer);
procedure Set_P_11(Value: Integer);
procedure Set_P_12(Value: Integer);
procedure Set_P_13(Value: Integer);
procedure Set_P_14(Value: Integer);
procedure Set_P_15(Value: Integer);
procedure Set_P_16(Value: Integer);
procedure Set_P_17(Value: Integer);
procedure Set_P_18(Value: Integer);
procedure Set_P_19(Value: Integer);
procedure Set_P_20(Value: Integer);
procedure Set_P_21(Value: Integer);
procedure Set_P_22(Value: Integer);
procedure Set_P_23(Value: Integer);
procedure Set_P_24(Value: Integer);
procedure Set_P_25(Value: Integer);
procedure Set_P_26(Value: Integer);
procedure Set_P_27(Value: Integer);
procedure Set_P_28(Value: Integer);
procedure Set_P_29(Value: Integer);
procedure Set_P_30(Value: Integer);
procedure Set_P_31(Value: Integer);
procedure Set_P_32(Value: Integer);
procedure Set_P_33(Value: WideString);
procedure Set_P_34(Value: WideString);
procedure Set_P_35(Value: WideString);
procedure Set_P_36(Value: WideString);
procedure Set_P_37(Value: Integer);
procedure Set_P_38(Value: Integer);
procedure Set_P_39(Value: WideString);
procedure Set_P_40(Value: Integer);
procedure Set_P_41(Value: Integer);
procedure Set_P_42(Value: Integer);
procedure Set_P_43(Value: Integer);
procedure Set_P_44(Value: Integer);
procedure Set_P_45(Value: Integer);
procedure Set_P_46(Value: WideString);
procedure Set_P_47(Value: WideString);
procedure Set_P_48(Value: Integer);
procedure Set_P_49(Value: WideString);
procedure Set_P_50(Value: WideString);
procedure Set_P_51(Value: WideString);
procedure Set_P_52(Value: WideString);
procedure Set_P_53(Value: WideString);
procedure Set_P_54(Value: WideString);
procedure Set_P_55(Value: ShortInt);
procedure Set_P_56(Value: ShortInt);
procedure Set_P_57(Value: ShortInt);
procedure Set_P_58(Value: ShortInt);
procedure Set_P_59(Value: ShortInt);
procedure Set_P_60(Value: WideString);
procedure Set_P_61(Value: WideString);
procedure Set_P_62(Value: WideString);
procedure Set_P_63(Value: ShortInt);
procedure Set_P_64(Value: ShortInt);
procedure Set_P_65(Value: ShortInt);
procedure Set_P_66(Value: ShortInt);
procedure Set_P_67(Value: ShortInt);
procedure Set_P_68(Value: WideString);
procedure Set_P_69(Value: WideString);
procedure Set_P_ORDZU(Value: WideString);
{ Methods & Properties }
property P_10: Integer read Get_P_10 write Set_P_10;
property P_11: Integer read Get_P_11 write Set_P_11;
property P_12: Integer read Get_P_12 write Set_P_12;
property P_13: Integer read Get_P_13 write Set_P_13;
property P_14: Integer read Get_P_14 write Set_P_14;
property P_15: Integer read Get_P_15 write Set_P_15;
property P_16: Integer read Get_P_16 write Set_P_16;
property P_17: Integer read Get_P_17 write Set_P_17;
property P_18: Integer read Get_P_18 write Set_P_18;
property P_19: Integer read Get_P_19 write Set_P_19;
property P_20: Integer read Get_P_20 write Set_P_20;
property P_21: Integer read Get_P_21 write Set_P_21;
property P_22: Integer read Get_P_22 write Set_P_22;
property P_23: Integer read Get_P_23 write Set_P_23;
property P_24: Integer read Get_P_24 write Set_P_24;
property P_25: Integer read Get_P_25 write Set_P_25;
property P_26: Integer read Get_P_26 write Set_P_26;
property P_27: Integer read Get_P_27 write Set_P_27;
property P_28: Integer read Get_P_28 write Set_P_28;
property P_29: Integer read Get_P_29 write Set_P_29;
property P_30: Integer read Get_P_30 write Set_P_30;
property P_31: Integer read Get_P_31 write Set_P_31;
property P_32: Integer read Get_P_32 write Set_P_32;
property P_33: WideString read Get_P_33 write Set_P_33;
property P_34: WideString read Get_P_34 write Set_P_34;
property P_35: WideString read Get_P_35 write Set_P_35;
property P_36: WideString read Get_P_36 write Set_P_36;
property P_37: Integer read Get_P_37 write Set_P_37;
property P_38: Integer read Get_P_38 write Set_P_38;
property P_39: WideString read Get_P_39 write Set_P_39;
property P_40: Integer read Get_P_40 write Set_P_40;
property P_41: Integer read Get_P_41 write Set_P_41;
property P_42: Integer read Get_P_42 write Set_P_42;
property P_43: Integer read Get_P_43 write Set_P_43;
property P_44: Integer read Get_P_44 write Set_P_44;
property P_45: Integer read Get_P_45 write Set_P_45;
property P_46: WideString read Get_P_46 write Set_P_46;
property P_47: WideString read Get_P_47 write Set_P_47;
property P_48: Integer read Get_P_48 write Set_P_48;
property P_49: WideString read Get_P_49 write Set_P_49;
property P_50: WideString read Get_P_50 write Set_P_50;
property P_51: WideString read Get_P_51 write Set_P_51;
property P_52: WideString read Get_P_52 write Set_P_52;
property P_53: WideString read Get_P_53 write Set_P_53;
property P_54: WideString read Get_P_54 write Set_P_54;
property P_55: ShortInt read Get_P_55 write Set_P_55;
property P_56: ShortInt read Get_P_56 write Set_P_56;
property P_57: ShortInt read Get_P_57 write Set_P_57;
property P_58: ShortInt read Get_P_58 write Set_P_58;
property P_59: ShortInt read Get_P_59 write Set_P_59;
property P_60: WideString read Get_P_60 write Set_P_60;
property P_61: WideString read Get_P_61 write Set_P_61;
property P_62: WideString read Get_P_62 write Set_P_62;
property P_63: ShortInt read Get_P_63 write Set_P_63;
property P_64: ShortInt read Get_P_64 write Set_P_64;
property P_65: ShortInt read Get_P_65 write Set_P_65;
property P_66: ShortInt read Get_P_66 write Set_P_66;
property P_67: ShortInt read Get_P_67 write Set_P_67;
property P_68: WideString read Get_P_68 write Set_P_68;
property P_69: WideString read Get_P_69 write Set_P_69;
property P_ORDZU: WideString read Get_P_ORDZU write Set_P_ORDZU;
end;
{ IXMLSprzedazWiersz }
IXMLSprzedazWiersz = interface(IXMLNode)
['{9CC5EEC9-B99E-4922-A488-DDE301A6B90D}']
{ Property Accessors }
function Get_LpSprzedazy: WideString;
function Get_KodKrajuNadaniaTIN: WideString;
function Get_NrKontrahenta: WideString;
function Get_NazwaKontrahenta: WideString;
function Get_DowodSprzedazy: WideString;
function Get_DataWystawienia: WideString;
function Get_DataSprzedazy: WideString;
function Get_TypDokumentu: WideString;
function Get_GTU_01: ShortInt;
function Get_GTU_02: ShortInt;
function Get_GTU_03: ShortInt;
function Get_GTU_04: ShortInt;
function Get_GTU_05: ShortInt;
function Get_GTU_06: ShortInt;
function Get_GTU_07: ShortInt;
function Get_GTU_08: ShortInt;
function Get_GTU_09: ShortInt;
function Get_GTU_10: ShortInt;
function Get_GTU_11: ShortInt;
function Get_GTU_12: ShortInt;
function Get_GTU_13: ShortInt;
function Get_SW: ShortInt;
function Get_EE: ShortInt;
function Get_TP: ShortInt;
function Get_TT_WNT: ShortInt;
function Get_TT_D: ShortInt;
function Get_MR_T: ShortInt;
function Get_MR_UZ: ShortInt;
function Get_I_42: ShortInt;
function Get_I_63: ShortInt;
function Get_B_SPV: ShortInt;
function Get_B_SPV_DOSTAWA: ShortInt;
function Get_B_MPV_PROWIZJA: ShortInt;
function Get_MPP: ShortInt;
function Get_KorektaPodstawyOpodt: ShortInt;
function Get_K_10: WideString;
function Get_K_11: WideString;
function Get_K_12: WideString;
function Get_K_13: WideString;
function Get_K_14: WideString;
function Get_K_15: WideString;
function Get_K_16: WideString;
function Get_K_17: WideString;
function Get_K_18: WideString;
function Get_K_19: WideString;
function Get_K_20: WideString;
function Get_K_21: WideString;
function Get_K_22: WideString;
function Get_K_23: WideString;
function Get_K_24: WideString;
function Get_K_25: WideString;
function Get_K_26: WideString;
function Get_K_27: WideString;
function Get_K_28: WideString;
function Get_K_29: WideString;
function Get_K_30: WideString;
function Get_K_31: WideString;
function Get_K_32: WideString;
function Get_K_33: WideString;
function Get_K_34: WideString;
function Get_K_35: WideString;
function Get_K_36: WideString;
function Get_SprzedazVAT_Marza: WideString;
procedure Set_LpSprzedazy(Value: WideString);
procedure Set_KodKrajuNadaniaTIN(Value: WideString);
procedure Set_NrKontrahenta(Value: WideString);
procedure Set_NazwaKontrahenta(Value: WideString);
procedure Set_DowodSprzedazy(Value: WideString);
procedure Set_DataWystawienia(Value: WideString);
procedure Set_DataSprzedazy(Value: WideString);
procedure Set_TypDokumentu(Value: WideString);
procedure Set_GTU_01(Value: ShortInt);
procedure Set_GTU_02(Value: ShortInt);
procedure Set_GTU_03(Value: ShortInt);
procedure Set_GTU_04(Value: ShortInt);
procedure Set_GTU_05(Value: ShortInt);
procedure Set_GTU_06(Value: ShortInt);
procedure Set_GTU_07(Value: ShortInt);
procedure Set_GTU_08(Value: ShortInt);
procedure Set_GTU_09(Value: ShortInt);
procedure Set_GTU_10(Value: ShortInt);
procedure Set_GTU_11(Value: ShortInt);
procedure Set_GTU_12(Value: ShortInt);
procedure Set_GTU_13(Value: ShortInt);
procedure Set_SW(Value: ShortInt);
procedure Set_EE(Value: ShortInt);
procedure Set_TP(Value: ShortInt);
procedure Set_TT_WNT(Value: ShortInt);
procedure Set_TT_D(Value: ShortInt);
procedure Set_MR_T(Value: ShortInt);
procedure Set_MR_UZ(Value: ShortInt);
procedure Set_I_42(Value: ShortInt);
procedure Set_I_63(Value: ShortInt);
procedure Set_B_SPV(Value: ShortInt);
procedure Set_B_SPV_DOSTAWA(Value: ShortInt);
procedure Set_B_MPV_PROWIZJA(Value: ShortInt);
procedure Set_MPP(Value: ShortInt);
procedure Set_KorektaPodstawyOpodt(Value: ShortInt);
procedure Set_K_10(Value: WideString);
procedure Set_K_11(Value: WideString);
procedure Set_K_12(Value: WideString);
procedure Set_K_13(Value: WideString);
procedure Set_K_14(Value: WideString);
procedure Set_K_15(Value: WideString);
procedure Set_K_16(Value: WideString);
procedure Set_K_17(Value: WideString);
procedure Set_K_18(Value: WideString);
procedure Set_K_19(Value: WideString);
procedure Set_K_20(Value: WideString);
procedure Set_K_21(Value: WideString);
procedure Set_K_22(Value: WideString);
procedure Set_K_23(Value: WideString);
procedure Set_K_24(Value: WideString);
procedure Set_K_25(Value: WideString);
procedure Set_K_26(Value: WideString);
procedure Set_K_27(Value: WideString);
procedure Set_K_28(Value: WideString);
procedure Set_K_29(Value: WideString);
procedure Set_K_30(Value: WideString);
procedure Set_K_31(Value: WideString);
procedure Set_K_32(Value: WideString);
procedure Set_K_33(Value: WideString);
procedure Set_K_34(Value: WideString);
procedure Set_K_35(Value: WideString);
procedure Set_K_36(Value: WideString);
procedure Set_SprzedazVAT_Marza(Value: WideString);
{ Methods & Properties }
property LpSprzedazy: WideString read Get_LpSprzedazy write Set_LpSprzedazy;
property KodKrajuNadaniaTIN: WideString read Get_KodKrajuNadaniaTIN write Set_KodKrajuNadaniaTIN;
property NrKontrahenta: WideString read Get_NrKontrahenta write Set_NrKontrahenta;
property NazwaKontrahenta: WideString read Get_NazwaKontrahenta write Set_NazwaKontrahenta;
property DowodSprzedazy: WideString read Get_DowodSprzedazy write Set_DowodSprzedazy;
property DataWystawienia: WideString read Get_DataWystawienia write Set_DataWystawienia;
property DataSprzedazy: WideString read Get_DataSprzedazy write Set_DataSprzedazy;
property TypDokumentu: WideString read Get_TypDokumentu write Set_TypDokumentu;
property GTU_01: ShortInt read Get_GTU_01 write Set_GTU_01;
property GTU_02: ShortInt read Get_GTU_02 write Set_GTU_02;
property GTU_03: ShortInt read Get_GTU_03 write Set_GTU_03;
property GTU_04: ShortInt read Get_GTU_04 write Set_GTU_04;
property GTU_05: ShortInt read Get_GTU_05 write Set_GTU_05;
property GTU_06: ShortInt read Get_GTU_06 write Set_GTU_06;
property GTU_07: ShortInt read Get_GTU_07 write Set_GTU_07;
property GTU_08: ShortInt read Get_GTU_08 write Set_GTU_08;
property GTU_09: ShortInt read Get_GTU_09 write Set_GTU_09;
property GTU_10: ShortInt read Get_GTU_10 write Set_GTU_10;
property GTU_11: ShortInt read Get_GTU_11 write Set_GTU_11;
property GTU_12: ShortInt read Get_GTU_12 write Set_GTU_12;
property GTU_13: ShortInt read Get_GTU_13 write Set_GTU_13;
property SW: ShortInt read Get_SW write Set_SW;
property EE: ShortInt read Get_EE write Set_EE;
property TP: ShortInt read Get_TP write Set_TP;
property TT_WNT: ShortInt read Get_TT_WNT write Set_TT_WNT;
property TT_D: ShortInt read Get_TT_D write Set_TT_D;
property MR_T: ShortInt read Get_MR_T write Set_MR_T;
property MR_UZ: ShortInt read Get_MR_UZ write Set_MR_UZ;
property I_42: ShortInt read Get_I_42 write Set_I_42;
property I_63: ShortInt read Get_I_63 write Set_I_63;
property B_SPV: ShortInt read Get_B_SPV write Set_B_SPV;
property B_SPV_DOSTAWA: ShortInt read Get_B_SPV_DOSTAWA write Set_B_SPV_DOSTAWA;
property B_MPV_PROWIZJA: ShortInt read Get_B_MPV_PROWIZJA write Set_B_MPV_PROWIZJA;
property MPP: ShortInt read Get_MPP write Set_MPP;
property KorektaPodstawyOpodt: ShortInt read Get_KorektaPodstawyOpodt write Set_KorektaPodstawyOpodt;
property K_10: WideString read Get_K_10 write Set_K_10;
property K_11: WideString read Get_K_11 write Set_K_11;
property K_12: WideString read Get_K_12 write Set_K_12;
property K_13: WideString read Get_K_13 write Set_K_13;
property K_14: WideString read Get_K_14 write Set_K_14;
property K_15: WideString read Get_K_15 write Set_K_15;
property K_16: WideString read Get_K_16 write Set_K_16;
property K_17: WideString read Get_K_17 write Set_K_17;
property K_18: WideString read Get_K_18 write Set_K_18;
property K_19: WideString read Get_K_19 write Set_K_19;
property K_20: WideString read Get_K_20 write Set_K_20;
property K_21: WideString read Get_K_21 write Set_K_21;
property K_22: WideString read Get_K_22 write Set_K_22;
property K_23: WideString read Get_K_23 write Set_K_23;
property K_24: WideString read Get_K_24 write Set_K_24;
property K_25: WideString read Get_K_25 write Set_K_25;
property K_26: WideString read Get_K_26 write Set_K_26;
property K_27: WideString read Get_K_27 write Set_K_27;
property K_28: WideString read Get_K_28 write Set_K_28;
property K_29: WideString read Get_K_29 write Set_K_29;
property K_30: WideString read Get_K_30 write Set_K_30;
property K_31: WideString read Get_K_31 write Set_K_31;
property K_32: WideString read Get_K_32 write Set_K_32;
property K_33: WideString read Get_K_33 write Set_K_33;
property K_34: WideString read Get_K_34 write Set_K_34;
property K_35: WideString read Get_K_35 write Set_K_35;
property K_36: WideString read Get_K_36 write Set_K_36;
property SprzedazVAT_Marza: WideString read Get_SprzedazVAT_Marza write Set_SprzedazVAT_Marza;
end;
{ IXMLSprzedazWierszList }
IXMLSprzedazWierszList = interface(IXMLNodeCollection)
['{80B466CC-F2A8-48D0-AD5A-7228A6A0C813}']
{ Methods & Properties }
function Add: IXMLSprzedazWiersz;
function Insert(const Index: Integer): IXMLSprzedazWiersz;
function Get_Item(Index: Integer): IXMLSprzedazWiersz;
property Items[Index: Integer]: IXMLSprzedazWiersz read Get_Item; default;
end;
{ IXMLSprzedazCtrl }
IXMLSprzedazCtrl = interface(IXMLNode)
['{1D85B80F-C578-47A5-8D75-464AAD1B85B4}']
{ Property Accessors }
function Get_LiczbaWierszySprzedazy: LongWord;
function Get_PodatekNalezny: WideString;
procedure Set_LiczbaWierszySprzedazy(Value: LongWord);
procedure Set_PodatekNalezny(Value: WideString);
{ Methods & Properties }
property LiczbaWierszySprzedazy: LongWord read Get_LiczbaWierszySprzedazy write Set_LiczbaWierszySprzedazy;
property PodatekNalezny: WideString read Get_PodatekNalezny write Set_PodatekNalezny;
end;
{ IXMLZakupWiersz }
IXMLZakupWiersz = interface(IXMLNode)
['{0A8A02D8-FF9A-400A-A5A7-D20DB1137FCB}']
{ Property Accessors }
function Get_LpZakupu: WideString;
function Get_KodKrajuNadaniaTIN: WideString;
function Get_NrDostawcy: WideString;
function Get_NazwaDostawcy: WideString;
function Get_DowodZakupu: WideString;
function Get_DataZakupu: WideString;
function Get_DataWplywu: WideString;
function Get_DokumentZakupu: WideString;
function Get_MPP: ShortInt;
function Get_IMP: ShortInt;
function Get_K_40: WideString;
function Get_K_41: WideString;
function Get_K_42: WideString;
function Get_K_43: WideString;
function Get_K_44: WideString;
function Get_K_45: WideString;
function Get_K_46: WideString;
function Get_K_47: WideString;
function Get_ZakupVAT_Marza: WideString;
procedure Set_LpZakupu(Value: WideString);
procedure Set_KodKrajuNadaniaTIN(Value: WideString);
procedure Set_NrDostawcy(Value: WideString);
procedure Set_NazwaDostawcy(Value: WideString);
procedure Set_DowodZakupu(Value: WideString);
procedure Set_DataZakupu(Value: WideString);
procedure Set_DataWplywu(Value: WideString);
procedure Set_DokumentZakupu(Value: WideString);
procedure Set_MPP(Value: ShortInt);
procedure Set_IMP(Value: ShortInt);
procedure Set_K_40(Value: WideString);
procedure Set_K_41(Value: WideString);
procedure Set_K_42(Value: WideString);
procedure Set_K_43(Value: WideString);
procedure Set_K_44(Value: WideString);
procedure Set_K_45(Value: WideString);
procedure Set_K_46(Value: WideString);
procedure Set_K_47(Value: WideString);
procedure Set_ZakupVAT_Marza(Value: WideString);
{ Methods & Properties }
property LpZakupu: WideString read Get_LpZakupu write Set_LpZakupu;
property KodKrajuNadaniaTIN: WideString read Get_KodKrajuNadaniaTIN write Set_KodKrajuNadaniaTIN;
property NrDostawcy: WideString read Get_NrDostawcy write Set_NrDostawcy;
property NazwaDostawcy: WideString read Get_NazwaDostawcy write Set_NazwaDostawcy;
property DowodZakupu: WideString read Get_DowodZakupu write Set_DowodZakupu;
property DataZakupu: WideString read Get_DataZakupu write Set_DataZakupu;
property DataWplywu: WideString read Get_DataWplywu write Set_DataWplywu;
property DokumentZakupu: WideString read Get_DokumentZakupu write Set_DokumentZakupu;
property MPP: ShortInt read Get_MPP write Set_MPP;
property IMP: ShortInt read Get_IMP write Set_IMP;
property K_40: WideString read Get_K_40 write Set_K_40;
property K_41: WideString read Get_K_41 write Set_K_41;
property K_42: WideString read Get_K_42 write Set_K_42;
property K_43: WideString read Get_K_43 write Set_K_43;
property K_44: WideString read Get_K_44 write Set_K_44;
property K_45: WideString read Get_K_45 write Set_K_45;
property K_46: WideString read Get_K_46 write Set_K_46;
property K_47: WideString read Get_K_47 write Set_K_47;
property ZakupVAT_Marza: WideString read Get_ZakupVAT_Marza write Set_ZakupVAT_Marza;
end;
{ IXMLZakupWierszList }
IXMLZakupWierszList = interface(IXMLNodeCollection)
['{CB9E0356-DFB2-4004-90B7-E4D372B47AD0}']
{ Methods & Properties }
function Add: IXMLZakupWiersz;
function Insert(const Index: Integer): IXMLZakupWiersz;
function Get_Item(Index: Integer): IXMLZakupWiersz;
property Items[Index: Integer]: IXMLZakupWiersz read Get_Item; default;
end;
{ IXMLZakupCtrl }
IXMLZakupCtrl = interface(IXMLNode)
['{31C3EAA3-6E46-438C-9179-F692E360F4A6}']
{ Property Accessors }
function Get_LiczbaWierszyZakupow: LongWord;
function Get_PodatekNaliczony: WideString;
procedure Set_LiczbaWierszyZakupow(Value: LongWord);
procedure Set_PodatekNaliczony(Value: WideString);
{ Methods & Properties }
property LiczbaWierszyZakupow: LongWord read Get_LiczbaWierszyZakupow write Set_LiczbaWierszyZakupow;
property PodatekNaliczony: WideString read Get_PodatekNaliczony write Set_PodatekNaliczony;
end;
{ IXMLNaglowek }
IXMLNaglowek = interface(IXMLTNaglowek)
['{C7B5D43A-6333-4CCF-BD72-89B9C36849A7}']
end;
{ IXMLKodFormularza }
IXMLKodFormularza = interface(IXMLNode)
['{A9B2F94A-F1C2-44C1-A5F7-E633FD1845C4}']
{ Property Accessors }
function Get_KodSystemowy: WideString;
function Get_WersjaSchemy: WideString;
procedure Set_KodSystemowy(Value: WideString);
procedure Set_WersjaSchemy(Value: WideString);
{ Methods & Properties }
property KodSystemowy: WideString read Get_KodSystemowy write Set_KodSystemowy;
property WersjaSchemy: WideString read Get_WersjaSchemy write Set_WersjaSchemy;
end;
{ IXMLCelZlozenia }
IXMLCelZlozenia = interface(IXMLNode)
['{D9D2B3F4-5EE2-4E80-8586-BE7AB1DB6132}']
{ Property Accessors }
function Get_Poz: WideString;
procedure Set_Poz(Value: WideString);
{ Methods & Properties }
property Poz: WideString read Get_Poz write Set_Poz;
end;
{ IXMLKodFormularzaDekl }
IXMLKodFormularzaDekl = interface(IXMLNode)
['{B31A8682-EE44-4DAF-9912-7273584F2F40}']
{ Property Accessors }
function Get_KodSystemowy: WideString;
function Get_KodPodatku: WideString;
function Get_RodzajZobowiazania: WideString;
function Get_WersjaSchemy: WideString;
procedure Set_KodSystemowy(Value: WideString);
procedure Set_KodPodatku(Value: WideString);
procedure Set_RodzajZobowiazania(Value: WideString);
procedure Set_WersjaSchemy(Value: WideString);
{ Methods & Properties }
property KodSystemowy: WideString read Get_KodSystemowy write Set_KodSystemowy;
property KodPodatku: WideString read Get_KodPodatku write Set_KodPodatku;
property RodzajZobowiazania: WideString read Get_RodzajZobowiazania write Set_RodzajZobowiazania;
property WersjaSchemy: WideString read Get_WersjaSchemy write Set_WersjaSchemy;
end;
{ IXMLTIdentyfikatorOsobyNiefizycznej }
IXMLTIdentyfikatorOsobyNiefizycznej = interface(IXMLNode)
['{90E3249F-EC88-45B8-B4A4-ECC36C9F0E31}']
{ Property Accessors }
function Get_NIP: WideString;
function Get_PelnaNazwa: WideString;
procedure Set_NIP(Value: WideString);
procedure Set_PelnaNazwa(Value: WideString);
{ Methods & Properties }
property NIP: WideString read Get_NIP write Set_NIP;
property PelnaNazwa: WideString read Get_PelnaNazwa write Set_PelnaNazwa;
end;
{ IXMLPodmiot1 }
IXMLPodmiot1 = interface(IXMLTPodmiotDowolnyBezAdresu)
['{CA519F68-E8BA-4BD6-B876-8E06615FDC2E}']
{ Property Accessors }
function Get_Rola: WideString;
procedure Set_Rola(Value: WideString);
{ Methods & Properties }
property Rola: WideString read Get_Rola write Set_Rola;
end;
{ IXMLOsobaFizyczna }
IXMLOsobaFizyczna = interface(IXMLTIdentyfikatorOsobyFizycznej2)
['{CB6C8A14-5C8A-44AF-B605-95C575AD5FBF}']
{ Property Accessors }
function Get_Email: WideString;
function Get_Telefon: WideString;
procedure Set_Email(Value: WideString);
procedure Set_Telefon(Value: WideString);
{ Methods & Properties }
property Email: WideString read Get_Email write Set_Email;
property Telefon: WideString read Get_Telefon write Set_Telefon;
end;
{ IXMLOsobaNiefizyczna }
IXMLOsobaNiefizyczna = interface(IXMLTIdentyfikatorOsobyNiefizycznej)
['{D9FB2E2E-A9FD-40B8-8A05-CB52626D3D2F}']
{ Property Accessors }
function Get_Email: WideString;
function Get_Telefon: WideString;
procedure Set_Email(Value: WideString);
procedure Set_Telefon(Value: WideString);
{ Methods & Properties }
property Email: WideString read Get_Email write Set_Email;
property Telefon: WideString read Get_Telefon write Set_Telefon;
end;
{ Forward Decls }
TXMLJPK = class;
TXMLTNaglowek = class;
TXMLTPodmiotDowolnyBezAdresu = class;
TXMLDeklaracja = class;
TXMLPozycjeSzczegolowe = class;
TXMLSprzedazWiersz = class;
TXMLSprzedazWierszList = class;
TXMLSprzedazCtrl = class;
TXMLZakupWiersz = class;
TXMLZakupWierszList = class;
TXMLZakupCtrl = class;
TXMLNaglowek = class;
TXMLKodFormularza = class;
TXMLCelZlozenia = class;
TXMLKodFormularzaDekl = class;
TXMLTIdentyfikatorOsobyNiefizycznej = class;
TXMLPodmiot1 = class;
TXMLOsobaFizyczna = class;
TXMLOsobaNiefizyczna = class;
{ TXMLJPK }
TXMLJPK = class(TXMLNode, IXMLJPK)
private
FSprzedazWiersz: IXMLSprzedazWierszList;
FZakupWiersz: IXMLZakupWierszList;
protected
{ IXMLJPK }
function Get_Naglowek: IXMLNaglowek;
function Get_Podmiot1: IXMLPodmiot1;
function Get_Deklaracja: IXMLDeklaracja;
function Get_SprzedazWiersz: IXMLSprzedazWierszList;
function Get_SprzedazCtrl: IXMLSprzedazCtrl;
function Get_ZakupWiersz: IXMLZakupWierszList;
function Get_ZakupCtrl: IXMLZakupCtrl;
public
procedure AfterConstruction; override;
end;
{ TXMLTNaglowek }
TXMLTNaglowek = class(TXMLNode, IXMLTNaglowek)
protected
{ IXMLTNaglowek }
function Get_KodFormularza: IXMLKodFormularza;
function Get_WariantFormularza: ShortInt;
function Get_DataWytworzeniaJPK: WideString;
function Get_NazwaSystemu: WideString;
function Get_CelZlozenia: IXMLCelZlozenia;
function Get_KodUrzedu: WideString;
function Get_Rok: WideString;
function Get_Miesiac: ShortInt;
function Get_KodFormularzaDekl: IXMLKodFormularzaDekl;
function Get_WariantFormularzaDekl: ShortInt;
procedure Set_WariantFormularza(Value: ShortInt);
procedure Set_DataWytworzeniaJPK(Value: WideString);
procedure Set_NazwaSystemu(Value: WideString);
procedure Set_KodUrzedu(Value: WideString);
procedure Set_Rok(Value: WideString);
procedure Set_Miesiac(Value: ShortInt);
procedure Set_WariantFormularzaDekl(Value: ShortInt);
public
procedure AfterConstruction; override;
end;
{ TXMLTPodmiotDowolnyBezAdresu }
TXMLTPodmiotDowolnyBezAdresu = class(TXMLNode, IXMLTPodmiotDowolnyBezAdresu)
protected
{ IXMLTPodmiotDowolnyBezAdresu }
function Get_OsobaFizyczna: IXMLOsobaFizyczna;
function Get_OsobaNiefizyczna: IXMLOsobaNiefizyczna;
public
procedure AfterConstruction; override;
end;
{ TXMLDeklaracja }
TXMLDeklaracja = class(TXMLNode, IXMLDeklaracja)
protected
{ IXMLDeklaracja }
function Get_PozycjeSzczegolowe: IXMLPozycjeSzczegolowe;
function Get_Pouczenia: WideString;
procedure Set_Pouczenia(Value: WideString);
public
procedure AfterConstruction; override;
end;
{ TXMLPozycjeSzczegolowe }
TXMLPozycjeSzczegolowe = class(TXMLNode, IXMLPozycjeSzczegolowe)
protected
{ IXMLPozycjeSzczegolowe }
function Get_P_10: Integer;
function Get_P_11: Integer;
function Get_P_12: Integer;
function Get_P_13: Integer;
function Get_P_14: Integer;
function Get_P_15: Integer;
function Get_P_16: Integer;
function Get_P_17: Integer;
function Get_P_18: Integer;
function Get_P_19: Integer;
function Get_P_20: Integer;
function Get_P_21: Integer;
function Get_P_22: Integer;
function Get_P_23: Integer;
function Get_P_24: Integer;
function Get_P_25: Integer;
function Get_P_26: Integer;
function Get_P_27: Integer;
function Get_P_28: Integer;
function Get_P_29: Integer;
function Get_P_30: Integer;
function Get_P_31: Integer;
function Get_P_32: Integer;
function Get_P_33: WideString;
function Get_P_34: WideString;
function Get_P_35: WideString;
function Get_P_36: WideString;
function Get_P_37: Integer;
function Get_P_38: Integer;
function Get_P_39: WideString;
function Get_P_40: Integer;
function Get_P_41: Integer;
function Get_P_42: Integer;
function Get_P_43: Integer;
function Get_P_44: Integer;
function Get_P_45: Integer;
function Get_P_46: WideString;
function Get_P_47: WideString;
function Get_P_48: Integer;
function Get_P_49: WideString;
function Get_P_50: WideString;
function Get_P_51: WideString;
function Get_P_52: WideString;
function Get_P_53: WideString;
function Get_P_54: WideString;
function Get_P_55: ShortInt;
function Get_P_56: ShortInt;
function Get_P_57: ShortInt;
function Get_P_58: ShortInt;
function Get_P_59: ShortInt;
function Get_P_60: WideString;
function Get_P_61: WideString;
function Get_P_62: WideString;
function Get_P_63: ShortInt;
function Get_P_64: ShortInt;
function Get_P_65: ShortInt;
function Get_P_66: ShortInt;
function Get_P_67: ShortInt;
function Get_P_68: WideString;
function Get_P_69: WideString;
function Get_P_ORDZU: WideString;
procedure Set_P_10(Value: Integer);
procedure Set_P_11(Value: Integer);
procedure Set_P_12(Value: Integer);
procedure Set_P_13(Value: Integer);
procedure Set_P_14(Value: Integer);
procedure Set_P_15(Value: Integer);
procedure Set_P_16(Value: Integer);
procedure Set_P_17(Value: Integer);
procedure Set_P_18(Value: Integer);
procedure Set_P_19(Value: Integer);
procedure Set_P_20(Value: Integer);
procedure Set_P_21(Value: Integer);
procedure Set_P_22(Value: Integer);
procedure Set_P_23(Value: Integer);
procedure Set_P_24(Value: Integer);
procedure Set_P_25(Value: Integer);
procedure Set_P_26(Value: Integer);
procedure Set_P_27(Value: Integer);
procedure Set_P_28(Value: Integer);
procedure Set_P_29(Value: Integer);
procedure Set_P_30(Value: Integer);
procedure Set_P_31(Value: Integer);
procedure Set_P_32(Value: Integer);
procedure Set_P_33(Value: WideString);
procedure Set_P_34(Value: WideString);
procedure Set_P_35(Value: WideString);
procedure Set_P_36(Value: WideString);
procedure Set_P_37(Value: Integer);
procedure Set_P_38(Value: Integer);
procedure Set_P_39(Value: WideString);
procedure Set_P_40(Value: Integer);
procedure Set_P_41(Value: Integer);
procedure Set_P_42(Value: Integer);
procedure Set_P_43(Value: Integer);
procedure Set_P_44(Value: Integer);
procedure Set_P_45(Value: Integer);
procedure Set_P_46(Value: WideString);
procedure Set_P_47(Value: WideString);
procedure Set_P_48(Value: Integer);
procedure Set_P_49(Value: WideString);
procedure Set_P_50(Value: WideString);
procedure Set_P_51(Value: WideString);
procedure Set_P_52(Value: WideString);
procedure Set_P_53(Value: WideString);
procedure Set_P_54(Value: WideString);
procedure Set_P_55(Value: ShortInt);
procedure Set_P_56(Value: ShortInt);
procedure Set_P_57(Value: ShortInt);
procedure Set_P_58(Value: ShortInt);
procedure Set_P_59(Value: ShortInt);
procedure Set_P_60(Value: WideString);
procedure Set_P_61(Value: WideString);
procedure Set_P_62(Value: WideString);
procedure Set_P_63(Value: ShortInt);
procedure Set_P_64(Value: ShortInt);
procedure Set_P_65(Value: ShortInt);
procedure Set_P_66(Value: ShortInt);
procedure Set_P_67(Value: ShortInt);
procedure Set_P_68(Value: WideString);
procedure Set_P_69(Value: WideString);
procedure Set_P_ORDZU(Value: WideString);
end;
{ TXMLSprzedazWiersz }
TXMLSprzedazWiersz = class(TXMLNode, IXMLSprzedazWiersz)
protected
{ IXMLSprzedazWiersz }
function Get_LpSprzedazy: WideString;
function Get_KodKrajuNadaniaTIN: WideString;
function Get_NrKontrahenta: WideString;
function Get_NazwaKontrahenta: WideString;
function Get_DowodSprzedazy: WideString;
function Get_DataWystawienia: WideString;
function Get_DataSprzedazy: WideString;
function Get_TypDokumentu: WideString;
function Get_GTU_01: ShortInt;
function Get_GTU_02: ShortInt;
function Get_GTU_03: ShortInt;
function Get_GTU_04: ShortInt;
function Get_GTU_05: ShortInt;
function Get_GTU_06: ShortInt;
function Get_GTU_07: ShortInt;
function Get_GTU_08: ShortInt;
function Get_GTU_09: ShortInt;
function Get_GTU_10: ShortInt;
function Get_GTU_11: ShortInt;
function Get_GTU_12: ShortInt;
function Get_GTU_13: ShortInt;
function Get_SW: ShortInt;
function Get_EE: ShortInt;
function Get_TP: ShortInt;
function Get_TT_WNT: ShortInt;
function Get_TT_D: ShortInt;
function Get_MR_T: ShortInt;
function Get_MR_UZ: ShortInt;
function Get_I_42: ShortInt;
function Get_I_63: ShortInt;
function Get_B_SPV: ShortInt;
function Get_B_SPV_DOSTAWA: ShortInt;
function Get_B_MPV_PROWIZJA: ShortInt;
function Get_MPP: ShortInt;
function Get_KorektaPodstawyOpodt: ShortInt;
function Get_K_10: WideString;
function Get_K_11: WideString;
function Get_K_12: WideString;
function Get_K_13: WideString;
function Get_K_14: WideString;
function Get_K_15: WideString;
function Get_K_16: WideString;
function Get_K_17: WideString;
function Get_K_18: WideString;
function Get_K_19: WideString;
function Get_K_20: WideString;
function Get_K_21: WideString;
function Get_K_22: WideString;
function Get_K_23: WideString;
function Get_K_24: WideString;
function Get_K_25: WideString;
function Get_K_26: WideString;
function Get_K_27: WideString;
function Get_K_28: WideString;
function Get_K_29: WideString;
function Get_K_30: WideString;
function Get_K_31: WideString;
function Get_K_32: WideString;
function Get_K_33: WideString;
function Get_K_34: WideString;
function Get_K_35: WideString;
function Get_K_36: WideString;
function Get_SprzedazVAT_Marza: WideString;
procedure Set_LpSprzedazy(Value: WideString);
procedure Set_KodKrajuNadaniaTIN(Value: WideString);
procedure Set_NrKontrahenta(Value: WideString);
procedure Set_NazwaKontrahenta(Value: WideString);
procedure Set_DowodSprzedazy(Value: WideString);
procedure Set_DataWystawienia(Value: WideString);
procedure Set_DataSprzedazy(Value: WideString);
procedure Set_TypDokumentu(Value: WideString);
procedure Set_GTU_01(Value: ShortInt);
procedure Set_GTU_02(Value: ShortInt);
procedure Set_GTU_03(Value: ShortInt);
procedure Set_GTU_04(Value: ShortInt);
procedure Set_GTU_05(Value: ShortInt);
procedure Set_GTU_06(Value: ShortInt);
procedure Set_GTU_07(Value: ShortInt);
procedure Set_GTU_08(Value: ShortInt);
procedure Set_GTU_09(Value: ShortInt);
procedure Set_GTU_10(Value: ShortInt);
procedure Set_GTU_11(Value: ShortInt);
procedure Set_GTU_12(Value: ShortInt);
procedure Set_GTU_13(Value: ShortInt);
procedure Set_SW(Value: ShortInt);
procedure Set_EE(Value: ShortInt);
procedure Set_TP(Value: ShortInt);
procedure Set_TT_WNT(Value: ShortInt);
procedure Set_TT_D(Value: ShortInt);
procedure Set_MR_T(Value: ShortInt);
procedure Set_MR_UZ(Value: ShortInt);
procedure Set_I_42(Value: ShortInt);
procedure Set_I_63(Value: ShortInt);
procedure Set_B_SPV(Value: ShortInt);
procedure Set_B_SPV_DOSTAWA(Value: ShortInt);
procedure Set_B_MPV_PROWIZJA(Value: ShortInt);
procedure Set_MPP(Value: ShortInt);
procedure Set_KorektaPodstawyOpodt(Value: ShortInt);
procedure Set_K_10(Value: WideString);
procedure Set_K_11(Value: WideString);
procedure Set_K_12(Value: WideString);
procedure Set_K_13(Value: WideString);
procedure Set_K_14(Value: WideString);
procedure Set_K_15(Value: WideString);
procedure Set_K_16(Value: WideString);
procedure Set_K_17(Value: WideString);
procedure Set_K_18(Value: WideString);
procedure Set_K_19(Value: WideString);
procedure Set_K_20(Value: WideString);
procedure Set_K_21(Value: WideString);
procedure Set_K_22(Value: WideString);
procedure Set_K_23(Value: WideString);
procedure Set_K_24(Value: WideString);
procedure Set_K_25(Value: WideString);
procedure Set_K_26(Value: WideString);
procedure Set_K_27(Value: WideString);
procedure Set_K_28(Value: WideString);
procedure Set_K_29(Value: WideString);
procedure Set_K_30(Value: WideString);
procedure Set_K_31(Value: WideString);
procedure Set_K_32(Value: WideString);
procedure Set_K_33(Value: WideString);
procedure Set_K_34(Value: WideString);
procedure Set_K_35(Value: WideString);
procedure Set_K_36(Value: WideString);
procedure Set_SprzedazVAT_Marza(Value: WideString);
end;
{ TXMLSprzedazWierszList }
TXMLSprzedazWierszList = class(TXMLNodeCollection, IXMLSprzedazWierszList)
protected
{ IXMLSprzedazWierszList }
function Add: IXMLSprzedazWiersz;
function Insert(const Index: Integer): IXMLSprzedazWiersz;
function Get_Item(Index: Integer): IXMLSprzedazWiersz;
end;
{ TXMLSprzedazCtrl }
TXMLSprzedazCtrl = class(TXMLNode, IXMLSprzedazCtrl)
protected
{ IXMLSprzedazCtrl }
function Get_LiczbaWierszySprzedazy: LongWord;
function Get_PodatekNalezny: WideString;
procedure Set_LiczbaWierszySprzedazy(Value: LongWord);
procedure Set_PodatekNalezny(Value: WideString);
end;
{ TXMLZakupWiersz }
TXMLZakupWiersz = class(TXMLNode, IXMLZakupWiersz)
protected
{ IXMLZakupWiersz }
function Get_LpZakupu: WideString;
function Get_KodKrajuNadaniaTIN: WideString;
function Get_NrDostawcy: WideString;
function Get_NazwaDostawcy: WideString;
function Get_DowodZakupu: WideString;
function Get_DataZakupu: WideString;
function Get_DataWplywu: WideString;
function Get_DokumentZakupu: WideString;
function Get_MPP: ShortInt;
function Get_IMP: ShortInt;
function Get_K_40: WideString;
function Get_K_41: WideString;
function Get_K_42: WideString;
function Get_K_43: WideString;
function Get_K_44: WideString;
function Get_K_45: WideString;
function Get_K_46: WideString;
function Get_K_47: WideString;
function Get_ZakupVAT_Marza: WideString;
procedure Set_LpZakupu(Value: WideString);
procedure Set_KodKrajuNadaniaTIN(Value: WideString);
procedure Set_NrDostawcy(Value: WideString);
procedure Set_NazwaDostawcy(Value: WideString);
procedure Set_DowodZakupu(Value: WideString);
procedure Set_DataZakupu(Value: WideString);
procedure Set_DataWplywu(Value: WideString);
procedure Set_DokumentZakupu(Value: WideString);
procedure Set_MPP(Value: ShortInt);
procedure Set_IMP(Value: ShortInt);
procedure Set_K_40(Value: WideString);
procedure Set_K_41(Value: WideString);
procedure Set_K_42(Value: WideString);
procedure Set_K_43(Value: WideString);
procedure Set_K_44(Value: WideString);
procedure Set_K_45(Value: WideString);
procedure Set_K_46(Value: WideString);
procedure Set_K_47(Value: WideString);
procedure Set_ZakupVAT_Marza(Value: WideString);
end;
{ TXMLZakupWierszList }
TXMLZakupWierszList = class(TXMLNodeCollection, IXMLZakupWierszList)
protected
{ IXMLZakupWierszList }
function Add: IXMLZakupWiersz;
function Insert(const Index: Integer): IXMLZakupWiersz;
function Get_Item(Index: Integer): IXMLZakupWiersz;
end;
{ TXMLZakupCtrl }
TXMLZakupCtrl = class(TXMLNode, IXMLZakupCtrl)
protected
{ IXMLZakupCtrl }
function Get_LiczbaWierszyZakupow: LongWord;
function Get_PodatekNaliczony: WideString;
procedure Set_LiczbaWierszyZakupow(Value: LongWord);
procedure Set_PodatekNaliczony(Value: WideString);
end;
{ TXMLNaglowek }
TXMLNaglowek = class(TXMLTNaglowek, IXMLNaglowek)
protected
{ IXMLNaglowek }
end;
{ TXMLKodFormularza }
TXMLKodFormularza = class(TXMLNode, IXMLKodFormularza)
protected
{ IXMLKodFormularza }
function Get_KodSystemowy: WideString;
function Get_WersjaSchemy: WideString;
procedure Set_KodSystemowy(Value: WideString);
procedure Set_WersjaSchemy(Value: WideString);
end;
{ TXMLCelZlozenia }
TXMLCelZlozenia = class(TXMLNode, IXMLCelZlozenia)
protected
{ IXMLCelZlozenia }
function Get_Poz: WideString;
procedure Set_Poz(Value: WideString);
end;
{ TXMLKodFormularzaDekl }
TXMLKodFormularzaDekl = class(TXMLNode, IXMLKodFormularzaDekl)
protected
{ IXMLKodFormularzaDekl }
function Get_KodSystemowy: WideString;
function Get_KodPodatku: WideString;
function Get_RodzajZobowiazania: WideString;
function Get_WersjaSchemy: WideString;
procedure Set_KodSystemowy(Value: WideString);
procedure Set_KodPodatku(Value: WideString);
procedure Set_RodzajZobowiazania(Value: WideString);
procedure Set_WersjaSchemy(Value: WideString);
end;
{ TXMLTIdentyfikatorOsobyNiefizycznej }
TXMLTIdentyfikatorOsobyNiefizycznej = class(TXMLNode, IXMLTIdentyfikatorOsobyNiefizycznej)
protected
{ IXMLTIdentyfikatorOsobyNiefizycznej }
function Get_NIP: WideString;
function Get_PelnaNazwa: WideString;
procedure Set_NIP(Value: WideString);
procedure Set_PelnaNazwa(Value: WideString);
end;
{ TXMLPodmiot1 }
TXMLPodmiot1 = class(TXMLTPodmiotDowolnyBezAdresu, IXMLPodmiot1)
protected
{ IXMLPodmiot1 }
function Get_Rola: WideString;
procedure Set_Rola(Value: WideString);
end;
{ TXMLOsobaFizyczna }
TXMLOsobaFizyczna = class(TXMLTIdentyfikatorOsobyFizycznej2, IXMLOsobaFizyczna)
protected
{ IXMLOsobaFizyczna }
function Get_Email: WideString;
function Get_Telefon: WideString;
procedure Set_Email(Value: WideString);
procedure Set_Telefon(Value: WideString);
end;
{ TXMLOsobaNiefizyczna }
TXMLOsobaNiefizyczna = class(TXMLTIdentyfikatorOsobyNiefizycznej, IXMLOsobaNiefizyczna)
protected
{ IXMLOsobaNiefizyczna }
function Get_Email: WideString;
function Get_Telefon: WideString;
procedure Set_Email(Value: WideString);
procedure Set_Telefon(Value: WideString);
end;
{ Global Functions }
function GetJPK(Doc: IXMLDocument): IXMLJPK;
function LoadJPK(const FileName: WideString): IXMLJPK;
function NewJPK: IXMLJPK;
const
TargetNamespace = 'http://crd.gov.pl/wzor/2020/02/25/9142/';
implementation
{ Global Functions }
function GetJPK(Doc: IXMLDocument): IXMLJPK;
begin
Result := Doc.GetDocBinding('JPK', TXMLJPK, TargetNamespace) as IXMLJPK;
end;
function LoadJPK(const FileName: WideString): IXMLJPK;
begin
Result := LoadXMLDocument(FileName).GetDocBinding('JPK', TXMLJPK, TargetNamespace) as IXMLJPK;
end;
function NewJPK: IXMLJPK;
begin
Result := NewXMLDocument.GetDocBinding('JPK', TXMLJPK, TargetNamespace) as IXMLJPK;
end;
{ TXMLJPK }
procedure TXMLJPK.AfterConstruction;
begin
RegisterChildNode('Naglowek', TXMLNaglowek);
RegisterChildNode('Podmiot1', TXMLPodmiot1);
RegisterChildNode('Deklaracja', TXMLDeklaracja);
RegisterChildNode('SprzedazWiersz', TXMLSprzedazWiersz);
RegisterChildNode('SprzedazCtrl', TXMLSprzedazCtrl);
RegisterChildNode('ZakupWiersz', TXMLZakupWiersz);
RegisterChildNode('ZakupCtrl', TXMLZakupCtrl);
FSprzedazWiersz := CreateCollection(TXMLSprzedazWierszList, IXMLSprzedazWiersz, 'SprzedazWiersz') as IXMLSprzedazWierszList;
FZakupWiersz := CreateCollection(TXMLZakupWierszList, IXMLZakupWiersz, 'ZakupWiersz') as IXMLZakupWierszList;
inherited;
end;
function TXMLJPK.Get_Naglowek: IXMLNaglowek;
begin
Result := ChildNodes['Naglowek'] as IXMLNaglowek;
end;
function TXMLJPK.Get_Podmiot1: IXMLPodmiot1;
begin
Result := ChildNodes['Podmiot1'] as IXMLPodmiot1;
end;
function TXMLJPK.Get_Deklaracja: IXMLDeklaracja;
begin
Result := ChildNodes['Deklaracja'] as IXMLDeklaracja;
end;
function TXMLJPK.Get_SprzedazWiersz: IXMLSprzedazWierszList;
begin
Result := FSprzedazWiersz;
end;
function TXMLJPK.Get_SprzedazCtrl: IXMLSprzedazCtrl;
begin
Result := ChildNodes['SprzedazCtrl'] as IXMLSprzedazCtrl;
end;
function TXMLJPK.Get_ZakupWiersz: IXMLZakupWierszList;
begin
Result := FZakupWiersz;
end;
function TXMLJPK.Get_ZakupCtrl: IXMLZakupCtrl;
begin
Result := ChildNodes['ZakupCtrl'] as IXMLZakupCtrl;
end;
{ TXMLTNaglowek }
procedure TXMLTNaglowek.AfterConstruction;
begin
RegisterChildNode('KodFormularza', TXMLKodFormularza);
RegisterChildNode('CelZlozenia', TXMLCelZlozenia);
RegisterChildNode('KodFormularzaDekl', TXMLKodFormularzaDekl);
inherited;
end;
function TXMLTNaglowek.Get_KodFormularza: IXMLKodFormularza;
begin
Result := ChildNodes['KodFormularza'] as IXMLKodFormularza;
end;
function TXMLTNaglowek.Get_WariantFormularza: ShortInt;
begin
Result := ChildNodes['WariantFormularza'].NodeValue;
end;
procedure TXMLTNaglowek.Set_WariantFormularza(Value: ShortInt);
begin
ChildNodes['WariantFormularza'].NodeValue := Value;
end;
function TXMLTNaglowek.Get_DataWytworzeniaJPK: WideString;
begin
Result := ChildNodes['DataWytworzeniaJPK'].Text;
end;
procedure TXMLTNaglowek.Set_DataWytworzeniaJPK(Value: WideString);
begin
ChildNodes['DataWytworzeniaJPK'].NodeValue := Value;
end;
function TXMLTNaglowek.Get_NazwaSystemu: WideString;
begin
Result := ChildNodes['NazwaSystemu'].Text;
end;
procedure TXMLTNaglowek.Set_NazwaSystemu(Value: WideString);
begin
ChildNodes['NazwaSystemu'].NodeValue := Value;
end;
function TXMLTNaglowek.Get_CelZlozenia: IXMLCelZlozenia;
begin
Result := ChildNodes['CelZlozenia'] as IXMLCelZlozenia;
end;
function TXMLTNaglowek.Get_KodUrzedu: WideString;
begin
Result := ChildNodes['KodUrzedu'].Text;
end;
procedure TXMLTNaglowek.Set_KodUrzedu(Value: WideString);
begin
ChildNodes['KodUrzedu'].NodeValue := Value;
end;
function TXMLTNaglowek.Get_Rok: WideString;
begin
Result := ChildNodes['Rok'].Text;
end;
procedure TXMLTNaglowek.Set_Rok(Value: WideString);
begin
ChildNodes['Rok'].NodeValue := Value;
end;
function TXMLTNaglowek.Get_Miesiac: ShortInt;
begin
Result := ChildNodes['Miesiac'].NodeValue;
end;
procedure TXMLTNaglowek.Set_Miesiac(Value: ShortInt);
begin
ChildNodes['Miesiac'].NodeValue := Value;
end;
function TXMLTNaglowek.Get_KodFormularzaDekl: IXMLKodFormularzaDekl;
begin
Result := ChildNodes['KodFormularzaDekl'] as IXMLKodFormularzaDekl;
end;
function TXMLTNaglowek.Get_WariantFormularzaDekl: ShortInt;
begin
Result := ChildNodes['WariantFormularzaDekl'].NodeValue;
end;
procedure TXMLTNaglowek.Set_WariantFormularzaDekl(Value: ShortInt);
begin
ChildNodes['WariantFormularzaDekl'].NodeValue := Value;
end;
{ TXMLTPodmiotDowolnyBezAdresu }
procedure TXMLTPodmiotDowolnyBezAdresu.AfterConstruction;
begin
RegisterChildNode('OsobaFizyczna', TXMLOsobaFizyczna);
RegisterChildNode('OsobaNiefizyczna', TXMLOsobaNiefizyczna);
inherited;
end;
function TXMLTPodmiotDowolnyBezAdresu.Get_OsobaFizyczna: IXMLOsobaFizyczna;
begin
Result := ChildNodes['OsobaFizyczna'] as IXMLOsobaFizyczna;
end;
function TXMLTPodmiotDowolnyBezAdresu.Get_OsobaNiefizyczna: IXMLOsobaNiefizyczna;
begin
Result := ChildNodes['OsobaNiefizyczna'] as IXMLOsobaNiefizyczna;
end;
{ TXMLDeklaracja }
procedure TXMLDeklaracja.AfterConstruction;
begin
RegisterChildNode('PozycjeSzczegolowe', TXMLPozycjeSzczegolowe);
inherited;
end;
function TXMLDeklaracja.Get_PozycjeSzczegolowe: IXMLPozycjeSzczegolowe;
begin
Result := ChildNodes['PozycjeSzczegolowe'] as IXMLPozycjeSzczegolowe;
end;
function TXMLDeklaracja.Get_Pouczenia: WideString;
begin
Result := ChildNodes['Pouczenia'].Text;
end;
procedure TXMLDeklaracja.Set_Pouczenia(Value: WideString);
begin
ChildNodes['Pouczenia'].NodeValue := Value;
end;
{ TXMLPozycjeSzczegolowe }
function TXMLPozycjeSzczegolowe.Get_P_10: Integer;
begin
Result := ChildNodes['P_10'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_10(Value: Integer);
begin
ChildNodes['P_10'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_11: Integer;
begin
Result := ChildNodes['P_11'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_11(Value: Integer);
begin
ChildNodes['P_11'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_12: Integer;
begin
Result := ChildNodes['P_12'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_12(Value: Integer);
begin
ChildNodes['P_12'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_13: Integer;
begin
Result := ChildNodes['P_13'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_13(Value: Integer);
begin
ChildNodes['P_13'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_14: Integer;
begin
Result := ChildNodes['P_14'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_14(Value: Integer);
begin
ChildNodes['P_14'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_15: Integer;
begin
Result := ChildNodes['P_15'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_15(Value: Integer);
begin
ChildNodes['P_15'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_16: Integer;
begin
Result := ChildNodes['P_16'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_16(Value: Integer);
begin
ChildNodes['P_16'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_17: Integer;
begin
Result := ChildNodes['P_17'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_17(Value: Integer);
begin
ChildNodes['P_17'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_18: Integer;
begin
Result := ChildNodes['P_18'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_18(Value: Integer);
begin
ChildNodes['P_18'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_19: Integer;
begin
Result := ChildNodes['P_19'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_19(Value: Integer);
begin
ChildNodes['P_19'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_20: Integer;
begin
Result := ChildNodes['P_20'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_20(Value: Integer);
begin
ChildNodes['P_20'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_21: Integer;
begin
Result := ChildNodes['P_21'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_21(Value: Integer);
begin
ChildNodes['P_21'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_22: Integer;
begin
Result := ChildNodes['P_22'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_22(Value: Integer);
begin
ChildNodes['P_22'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_23: Integer;
begin
Result := ChildNodes['P_23'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_23(Value: Integer);
begin
ChildNodes['P_23'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_24: Integer;
begin
Result := ChildNodes['P_24'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_24(Value: Integer);
begin
ChildNodes['P_24'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_25: Integer;
begin
Result := ChildNodes['P_25'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_25(Value: Integer);
begin
ChildNodes['P_25'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_26: Integer;
begin
Result := ChildNodes['P_26'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_26(Value: Integer);
begin
ChildNodes['P_26'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_27: Integer;
begin
Result := ChildNodes['P_27'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_27(Value: Integer);
begin
ChildNodes['P_27'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_28: Integer;
begin
Result := ChildNodes['P_28'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_28(Value: Integer);
begin
ChildNodes['P_28'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_29: Integer;
begin
Result := ChildNodes['P_29'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_29(Value: Integer);
begin
ChildNodes['P_29'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_30: Integer;
begin
Result := ChildNodes['P_30'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_30(Value: Integer);
begin
ChildNodes['P_30'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_31: Integer;
begin
Result := ChildNodes['P_31'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_31(Value: Integer);
begin
ChildNodes['P_31'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_32: Integer;
begin
Result := ChildNodes['P_32'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_32(Value: Integer);
begin
ChildNodes['P_32'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_33: WideString;
begin
Result := ChildNodes['P_33'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_33(Value: WideString);
begin
ChildNodes['P_33'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_34: WideString;
begin
Result := ChildNodes['P_34'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_34(Value: WideString);
begin
ChildNodes['P_34'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_35: WideString;
begin
Result := ChildNodes['P_35'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_35(Value: WideString);
begin
ChildNodes['P_35'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_36: WideString;
begin
Result := ChildNodes['P_36'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_36(Value: WideString);
begin
ChildNodes['P_36'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_37: Integer;
begin
Result := ChildNodes['P_37'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_37(Value: Integer);
begin
ChildNodes['P_37'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_38: Integer;
begin
Result := ChildNodes['P_38'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_38(Value: Integer);
begin
ChildNodes['P_38'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_39: WideString;
begin
Result := ChildNodes['P_39'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_39(Value: WideString);
begin
ChildNodes['P_39'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_40: Integer;
begin
Result := ChildNodes['P_40'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_40(Value: Integer);
begin
ChildNodes['P_40'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_41: Integer;
begin
Result := ChildNodes['P_41'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_41(Value: Integer);
begin
ChildNodes['P_41'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_42: Integer;
begin
Result := ChildNodes['P_42'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_42(Value: Integer);
begin
ChildNodes['P_42'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_43: Integer;
begin
Result := ChildNodes['P_43'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_43(Value: Integer);
begin
ChildNodes['P_43'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_44: Integer;
begin
Result := ChildNodes['P_44'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_44(Value: Integer);
begin
ChildNodes['P_44'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_45: Integer;
begin
Result := ChildNodes['P_45'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_45(Value: Integer);
begin
ChildNodes['P_45'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_46: WideString;
begin
Result := ChildNodes['P_46'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_46(Value: WideString);
begin
ChildNodes['P_46'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_47: WideString;
begin
Result := ChildNodes['P_47'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_47(Value: WideString);
begin
ChildNodes['P_47'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_48: Integer;
begin
Result := ChildNodes['P_48'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_48(Value: Integer);
begin
ChildNodes['P_48'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_49: WideString;
begin
Result := ChildNodes['P_49'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_49(Value: WideString);
begin
ChildNodes['P_49'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_50: WideString;
begin
Result := ChildNodes['P_50'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_50(Value: WideString);
begin
ChildNodes['P_50'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_51: WideString;
begin
Result := ChildNodes['P_51'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_51(Value: WideString);
begin
ChildNodes['P_51'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_52: WideString;
begin
Result := ChildNodes['P_52'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_52(Value: WideString);
begin
ChildNodes['P_52'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_53: WideString;
begin
Result := ChildNodes['P_53'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_53(Value: WideString);
begin
ChildNodes['P_53'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_54: WideString;
begin
Result := ChildNodes['P_54'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_54(Value: WideString);
begin
ChildNodes['P_54'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_55: ShortInt;
begin
Result := ChildNodes['P_55'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_55(Value: ShortInt);
begin
ChildNodes['P_55'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_56: ShortInt;
begin
Result := ChildNodes['P_56'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_56(Value: ShortInt);
begin
ChildNodes['P_56'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_57: ShortInt;
begin
Result := ChildNodes['P_57'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_57(Value: ShortInt);
begin
ChildNodes['P_57'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_58: ShortInt;
begin
Result := ChildNodes['P_58'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_58(Value: ShortInt);
begin
ChildNodes['P_58'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_59: ShortInt;
begin
Result := ChildNodes['P_59'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_59(Value: ShortInt);
begin
ChildNodes['P_59'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_60: WideString;
begin
Result := ChildNodes['P_60'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_60(Value: WideString);
begin
ChildNodes['P_60'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_61: WideString;
begin
Result := ChildNodes['P_61'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_61(Value: WideString);
begin
ChildNodes['P_61'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_62: WideString;
begin
Result := ChildNodes['P_62'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_62(Value: WideString);
begin
ChildNodes['P_62'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_63: ShortInt;
begin
Result := ChildNodes['P_63'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_63(Value: ShortInt);
begin
ChildNodes['P_63'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_64: ShortInt;
begin
Result := ChildNodes['P_64'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_64(Value: ShortInt);
begin
ChildNodes['P_64'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_65: ShortInt;
begin
Result := ChildNodes['P_65'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_65(Value: ShortInt);
begin
ChildNodes['P_65'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_66: ShortInt;
begin
Result := ChildNodes['P_66'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_66(Value: ShortInt);
begin
ChildNodes['P_66'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_67: ShortInt;
begin
Result := ChildNodes['P_67'].NodeValue;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_67(Value: ShortInt);
begin
ChildNodes['P_67'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_68: WideString;
begin
Result := ChildNodes['P_68'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_68(Value: WideString);
begin
ChildNodes['P_68'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_69: WideString;
begin
Result := ChildNodes['P_69'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_69(Value: WideString);
begin
ChildNodes['P_69'].NodeValue := Value;
end;
function TXMLPozycjeSzczegolowe.Get_P_ORDZU: WideString;
begin
Result := ChildNodes['P_ORDZU'].Text;
end;
procedure TXMLPozycjeSzczegolowe.Set_P_ORDZU(Value: WideString);
begin
ChildNodes['P_ORDZU'].NodeValue := Value;
end;
{ TXMLSprzedazWiersz }
function TXMLSprzedazWiersz.Get_LpSprzedazy: WideString;
begin
Result := ChildNodes['LpSprzedazy'].Text;
end;
procedure TXMLSprzedazWiersz.Set_LpSprzedazy(Value: WideString);
begin
ChildNodes['LpSprzedazy'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_KodKrajuNadaniaTIN: WideString;
begin
Result := ChildNodes['KodKrajuNadaniaTIN'].Text;
end;
procedure TXMLSprzedazWiersz.Set_KodKrajuNadaniaTIN(Value: WideString);
begin
ChildNodes['KodKrajuNadaniaTIN'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_NrKontrahenta: WideString;
begin
Result := ChildNodes['NrKontrahenta'].Text;
end;
procedure TXMLSprzedazWiersz.Set_NrKontrahenta(Value: WideString);
begin
ChildNodes['NrKontrahenta'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_NazwaKontrahenta: WideString;
begin
Result := ChildNodes['NazwaKontrahenta'].Text;
end;
procedure TXMLSprzedazWiersz.Set_NazwaKontrahenta(Value: WideString);
begin
ChildNodes['NazwaKontrahenta'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_DowodSprzedazy: WideString;
begin
Result := ChildNodes['DowodSprzedazy'].Text;
end;
procedure TXMLSprzedazWiersz.Set_DowodSprzedazy(Value: WideString);
begin
ChildNodes['DowodSprzedazy'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_DataWystawienia: WideString;
begin
Result := ChildNodes['DataWystawienia'].Text;
end;
procedure TXMLSprzedazWiersz.Set_DataWystawienia(Value: WideString);
begin
ChildNodes['DataWystawienia'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_DataSprzedazy: WideString;
begin
Result := ChildNodes['DataSprzedazy'].Text;
end;
procedure TXMLSprzedazWiersz.Set_DataSprzedazy(Value: WideString);
begin
ChildNodes['DataSprzedazy'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_TypDokumentu: WideString;
begin
Result := ChildNodes['TypDokumentu'].Text;
end;
procedure TXMLSprzedazWiersz.Set_TypDokumentu(Value: WideString);
begin
ChildNodes['TypDokumentu'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_GTU_01: ShortInt;
begin
Result := ChildNodes['GTU_01'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_GTU_01(Value: ShortInt);
begin
ChildNodes['GTU_01'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_GTU_02: ShortInt;
begin
Result := ChildNodes['GTU_02'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_GTU_02(Value: ShortInt);
begin
ChildNodes['GTU_02'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_GTU_03: ShortInt;
begin
Result := ChildNodes['GTU_03'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_GTU_03(Value: ShortInt);
begin
ChildNodes['GTU_03'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_GTU_04: ShortInt;
begin
Result := ChildNodes['GTU_04'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_GTU_04(Value: ShortInt);
begin
ChildNodes['GTU_04'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_GTU_05: ShortInt;
begin
Result := ChildNodes['GTU_05'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_GTU_05(Value: ShortInt);
begin
ChildNodes['GTU_05'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_GTU_06: ShortInt;
begin
Result := ChildNodes['GTU_06'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_GTU_06(Value: ShortInt);
begin
ChildNodes['GTU_06'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_GTU_07: ShortInt;
begin
Result := ChildNodes['GTU_07'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_GTU_07(Value: ShortInt);
begin
ChildNodes['GTU_07'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_GTU_08: ShortInt;
begin
Result := ChildNodes['GTU_08'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_GTU_08(Value: ShortInt);
begin
ChildNodes['GTU_08'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_GTU_09: ShortInt;
begin
Result := ChildNodes['GTU_09'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_GTU_09(Value: ShortInt);
begin
ChildNodes['GTU_09'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_GTU_10: ShortInt;
begin
Result := ChildNodes['GTU_10'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_GTU_10(Value: ShortInt);
begin
ChildNodes['GTU_10'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_GTU_11: ShortInt;
begin
Result := ChildNodes['GTU_11'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_GTU_11(Value: ShortInt);
begin
ChildNodes['GTU_11'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_GTU_12: ShortInt;
begin
Result := ChildNodes['GTU_12'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_GTU_12(Value: ShortInt);
begin
ChildNodes['GTU_12'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_GTU_13: ShortInt;
begin
Result := ChildNodes['GTU_13'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_GTU_13(Value: ShortInt);
begin
ChildNodes['GTU_13'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_SW: ShortInt;
begin
Result := ChildNodes['SW'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_SW(Value: ShortInt);
begin
ChildNodes['SW'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_EE: ShortInt;
begin
Result := ChildNodes['EE'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_EE(Value: ShortInt);
begin
ChildNodes['EE'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_TP: ShortInt;
begin
Result := ChildNodes['TP'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_TP(Value: ShortInt);
begin
ChildNodes['TP'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_TT_WNT: ShortInt;
begin
Result := ChildNodes['TT_WNT'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_TT_WNT(Value: ShortInt);
begin
ChildNodes['TT_WNT'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_TT_D: ShortInt;
begin
Result := ChildNodes['TT_D'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_TT_D(Value: ShortInt);
begin
ChildNodes['TT_D'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_MR_T: ShortInt;
begin
Result := ChildNodes['MR_T'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_MR_T(Value: ShortInt);
begin
ChildNodes['MR_T'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_MR_UZ: ShortInt;
begin
Result := ChildNodes['MR_UZ'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_MR_UZ(Value: ShortInt);
begin
ChildNodes['MR_UZ'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_I_42: ShortInt;
begin
Result := ChildNodes['I_42'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_I_42(Value: ShortInt);
begin
ChildNodes['I_42'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_I_63: ShortInt;
begin
Result := ChildNodes['I_63'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_I_63(Value: ShortInt);
begin
ChildNodes['I_63'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_B_SPV: ShortInt;
begin
Result := ChildNodes['B_SPV'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_B_SPV(Value: ShortInt);
begin
ChildNodes['B_SPV'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_B_SPV_DOSTAWA: ShortInt;
begin
Result := ChildNodes['B_SPV_DOSTAWA'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_B_SPV_DOSTAWA(Value: ShortInt);
begin
ChildNodes['B_SPV_DOSTAWA'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_B_MPV_PROWIZJA: ShortInt;
begin
Result := ChildNodes['B_MPV_PROWIZJA'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_B_MPV_PROWIZJA(Value: ShortInt);
begin
ChildNodes['B_MPV_PROWIZJA'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_MPP: ShortInt;
begin
Result := ChildNodes['MPP'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_MPP(Value: ShortInt);
begin
ChildNodes['MPP'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_KorektaPodstawyOpodt: ShortInt;
begin
Result := ChildNodes['KorektaPodstawyOpodt'].NodeValue;
end;
procedure TXMLSprzedazWiersz.Set_KorektaPodstawyOpodt(Value: ShortInt);
begin
ChildNodes['KorektaPodstawyOpodt'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_10: WideString;
begin
Result := ChildNodes['K_10'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_10(Value: WideString);
begin
ChildNodes['K_10'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_11: WideString;
begin
Result := ChildNodes['K_11'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_11(Value: WideString);
begin
ChildNodes['K_11'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_12: WideString;
begin
Result := ChildNodes['K_12'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_12(Value: WideString);
begin
ChildNodes['K_12'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_13: WideString;
begin
Result := ChildNodes['K_13'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_13(Value: WideString);
begin
ChildNodes['K_13'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_14: WideString;
begin
Result := ChildNodes['K_14'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_14(Value: WideString);
begin
ChildNodes['K_14'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_15: WideString;
begin
Result := ChildNodes['K_15'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_15(Value: WideString);
begin
ChildNodes['K_15'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_16: WideString;
begin
Result := ChildNodes['K_16'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_16(Value: WideString);
begin
ChildNodes['K_16'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_17: WideString;
begin
Result := ChildNodes['K_17'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_17(Value: WideString);
begin
ChildNodes['K_17'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_18: WideString;
begin
Result := ChildNodes['K_18'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_18(Value: WideString);
begin
ChildNodes['K_18'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_19: WideString;
begin
Result := ChildNodes['K_19'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_19(Value: WideString);
begin
ChildNodes['K_19'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_20: WideString;
begin
Result := ChildNodes['K_20'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_20(Value: WideString);
begin
ChildNodes['K_20'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_21: WideString;
begin
Result := ChildNodes['K_21'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_21(Value: WideString);
begin
ChildNodes['K_21'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_22: WideString;
begin
Result := ChildNodes['K_22'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_22(Value: WideString);
begin
ChildNodes['K_22'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_23: WideString;
begin
Result := ChildNodes['K_23'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_23(Value: WideString);
begin
ChildNodes['K_23'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_24: WideString;
begin
Result := ChildNodes['K_24'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_24(Value: WideString);
begin
ChildNodes['K_24'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_25: WideString;
begin
Result := ChildNodes['K_25'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_25(Value: WideString);
begin
ChildNodes['K_25'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_26: WideString;
begin
Result := ChildNodes['K_26'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_26(Value: WideString);
begin
ChildNodes['K_26'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_27: WideString;
begin
Result := ChildNodes['K_27'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_27(Value: WideString);
begin
ChildNodes['K_27'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_28: WideString;
begin
Result := ChildNodes['K_28'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_28(Value: WideString);
begin
ChildNodes['K_28'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_29: WideString;
begin
Result := ChildNodes['K_29'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_29(Value: WideString);
begin
ChildNodes['K_29'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_30: WideString;
begin
Result := ChildNodes['K_30'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_30(Value: WideString);
begin
ChildNodes['K_30'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_31: WideString;
begin
Result := ChildNodes['K_31'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_31(Value: WideString);
begin
ChildNodes['K_31'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_32: WideString;
begin
Result := ChildNodes['K_32'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_32(Value: WideString);
begin
ChildNodes['K_32'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_33: WideString;
begin
Result := ChildNodes['K_33'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_33(Value: WideString);
begin
ChildNodes['K_33'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_34: WideString;
begin
Result := ChildNodes['K_34'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_34(Value: WideString);
begin
ChildNodes['K_34'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_35: WideString;
begin
Result := ChildNodes['K_35'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_35(Value: WideString);
begin
ChildNodes['K_35'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_K_36: WideString;
begin
Result := ChildNodes['K_36'].Text;
end;
procedure TXMLSprzedazWiersz.Set_K_36(Value: WideString);
begin
ChildNodes['K_36'].NodeValue := Value;
end;
function TXMLSprzedazWiersz.Get_SprzedazVAT_Marza: WideString;
begin
Result := ChildNodes['SprzedazVAT_Marza'].Text;
end;
procedure TXMLSprzedazWiersz.Set_SprzedazVAT_Marza(Value: WideString);
begin
ChildNodes['SprzedazVAT_Marza'].NodeValue := Value;
end;
{ TXMLSprzedazWierszList }
function TXMLSprzedazWierszList.Add: IXMLSprzedazWiersz;
begin
Result := AddItem(-1) as IXMLSprzedazWiersz;
end;
function TXMLSprzedazWierszList.Insert(const Index: Integer): IXMLSprzedazWiersz;
begin
Result := AddItem(Index) as IXMLSprzedazWiersz;
end;
function TXMLSprzedazWierszList.Get_Item(Index: Integer): IXMLSprzedazWiersz;
begin
Result := List[Index] as IXMLSprzedazWiersz;
end;
{ TXMLSprzedazCtrl }
function TXMLSprzedazCtrl.Get_LiczbaWierszySprzedazy: LongWord;
begin
Result := ChildNodes['LiczbaWierszySprzedazy'].NodeValue;
end;
procedure TXMLSprzedazCtrl.Set_LiczbaWierszySprzedazy(Value: LongWord);
begin
ChildNodes['LiczbaWierszySprzedazy'].NodeValue := Value;
end;
function TXMLSprzedazCtrl.Get_PodatekNalezny: WideString;
begin
Result := ChildNodes['PodatekNalezny'].Text;
end;
procedure TXMLSprzedazCtrl.Set_PodatekNalezny(Value: WideString);
begin
ChildNodes['PodatekNalezny'].NodeValue := Value;
end;
{ TXMLZakupWiersz }
function TXMLZakupWiersz.Get_LpZakupu: WideString;
begin
Result := ChildNodes['LpZakupu'].Text;
end;
procedure TXMLZakupWiersz.Set_LpZakupu(Value: WideString);
begin
ChildNodes['LpZakupu'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_KodKrajuNadaniaTIN: WideString;
begin
Result := ChildNodes['KodKrajuNadaniaTIN'].Text;
end;
procedure TXMLZakupWiersz.Set_KodKrajuNadaniaTIN(Value: WideString);
begin
ChildNodes['KodKrajuNadaniaTIN'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_NrDostawcy: WideString;
begin
Result := ChildNodes['NrDostawcy'].Text;
end;
procedure TXMLZakupWiersz.Set_NrDostawcy(Value: WideString);
begin
ChildNodes['NrDostawcy'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_NazwaDostawcy: WideString;
begin
Result := ChildNodes['NazwaDostawcy'].Text;
end;
procedure TXMLZakupWiersz.Set_NazwaDostawcy(Value: WideString);
begin
ChildNodes['NazwaDostawcy'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_DowodZakupu: WideString;
begin
Result := ChildNodes['DowodZakupu'].Text;
end;
procedure TXMLZakupWiersz.Set_DowodZakupu(Value: WideString);
begin
ChildNodes['DowodZakupu'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_DataZakupu: WideString;
begin
Result := ChildNodes['DataZakupu'].Text;
end;
procedure TXMLZakupWiersz.Set_DataZakupu(Value: WideString);
begin
ChildNodes['DataZakupu'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_DataWplywu: WideString;
begin
Result := ChildNodes['DataWplywu'].Text;
end;
procedure TXMLZakupWiersz.Set_DataWplywu(Value: WideString);
begin
ChildNodes['DataWplywu'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_DokumentZakupu: WideString;
begin
Result := ChildNodes['DokumentZakupu'].Text;
end;
procedure TXMLZakupWiersz.Set_DokumentZakupu(Value: WideString);
begin
ChildNodes['DokumentZakupu'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_MPP: ShortInt;
begin
Result := ChildNodes['MPP'].NodeValue;
end;
procedure TXMLZakupWiersz.Set_MPP(Value: ShortInt);
begin
ChildNodes['MPP'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_IMP: ShortInt;
begin
Result := ChildNodes['IMP'].NodeValue;
end;
procedure TXMLZakupWiersz.Set_IMP(Value: ShortInt);
begin
ChildNodes['IMP'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_K_40: WideString;
begin
Result := ChildNodes['K_40'].Text;
end;
procedure TXMLZakupWiersz.Set_K_40(Value: WideString);
begin
ChildNodes['K_40'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_K_41: WideString;
begin
Result := ChildNodes['K_41'].Text;
end;
procedure TXMLZakupWiersz.Set_K_41(Value: WideString);
begin
ChildNodes['K_41'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_K_42: WideString;
begin
Result := ChildNodes['K_42'].Text;
end;
procedure TXMLZakupWiersz.Set_K_42(Value: WideString);
begin
ChildNodes['K_42'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_K_43: WideString;
begin
Result := ChildNodes['K_43'].Text;
end;
procedure TXMLZakupWiersz.Set_K_43(Value: WideString);
begin
ChildNodes['K_43'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_K_44: WideString;
begin
Result := ChildNodes['K_44'].Text;
end;
procedure TXMLZakupWiersz.Set_K_44(Value: WideString);
begin
ChildNodes['K_44'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_K_45: WideString;
begin
Result := ChildNodes['K_45'].Text;
end;
procedure TXMLZakupWiersz.Set_K_45(Value: WideString);
begin
ChildNodes['K_45'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_K_46: WideString;
begin
Result := ChildNodes['K_46'].Text;
end;
procedure TXMLZakupWiersz.Set_K_46(Value: WideString);
begin
ChildNodes['K_46'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_K_47: WideString;
begin
Result := ChildNodes['K_47'].Text;
end;
procedure TXMLZakupWiersz.Set_K_47(Value: WideString);
begin
ChildNodes['K_47'].NodeValue := Value;
end;
function TXMLZakupWiersz.Get_ZakupVAT_Marza: WideString;
begin
Result := ChildNodes['ZakupVAT_Marza'].Text;
end;
procedure TXMLZakupWiersz.Set_ZakupVAT_Marza(Value: WideString);
begin
ChildNodes['ZakupVAT_Marza'].NodeValue := Value;
end;
{ TXMLZakupWierszList }
function TXMLZakupWierszList.Add: IXMLZakupWiersz;
begin
Result := AddItem(-1) as IXMLZakupWiersz;
end;
function TXMLZakupWierszList.Insert(const Index: Integer): IXMLZakupWiersz;
begin
Result := AddItem(Index) as IXMLZakupWiersz;
end;
function TXMLZakupWierszList.Get_Item(Index: Integer): IXMLZakupWiersz;
begin
Result := List[Index] as IXMLZakupWiersz;
end;
{ TXMLZakupCtrl }
function TXMLZakupCtrl.Get_LiczbaWierszyZakupow: LongWord;
begin
Result := ChildNodes['LiczbaWierszyZakupow'].NodeValue;
end;
procedure TXMLZakupCtrl.Set_LiczbaWierszyZakupow(Value: LongWord);
begin
ChildNodes['LiczbaWierszyZakupow'].NodeValue := Value;
end;
function TXMLZakupCtrl.Get_PodatekNaliczony: WideString;
begin
Result := ChildNodes['PodatekNaliczony'].Text;
end;
procedure TXMLZakupCtrl.Set_PodatekNaliczony(Value: WideString);
begin
ChildNodes['PodatekNaliczony'].NodeValue := Value;
end;
{ TXMLNaglowek }
{ TXMLKodFormularza }
function TXMLKodFormularza.Get_KodSystemowy: WideString;
begin
Result := AttributeNodes['kodSystemowy'].Text;
end;
procedure TXMLKodFormularza.Set_KodSystemowy(Value: WideString);
begin
SetAttribute('kodSystemowy', Value);
end;
function TXMLKodFormularza.Get_WersjaSchemy: WideString;
begin
Result := AttributeNodes['wersjaSchemy'].Text;
end;
procedure TXMLKodFormularza.Set_WersjaSchemy(Value: WideString);
begin
SetAttribute('wersjaSchemy', Value);
end;
{ TXMLCelZlozenia }
function TXMLCelZlozenia.Get_Poz: WideString;
begin
Result := AttributeNodes['poz'].Text;
end;
procedure TXMLCelZlozenia.Set_Poz(Value: WideString);
begin
SetAttribute('poz', Value);
end;
{ TXMLKodFormularzaDekl }
function TXMLKodFormularzaDekl.Get_KodSystemowy: WideString;
begin
Result := AttributeNodes['kodSystemowy'].Text;
end;
procedure TXMLKodFormularzaDekl.Set_KodSystemowy(Value: WideString);
begin
SetAttribute('kodSystemowy', Value);
end;
function TXMLKodFormularzaDekl.Get_KodPodatku: WideString;
begin
Result := AttributeNodes['kodPodatku'].Text;
end;
procedure TXMLKodFormularzaDekl.Set_KodPodatku(Value: WideString);
begin
SetAttribute('kodPodatku', Value);
end;
function TXMLKodFormularzaDekl.Get_RodzajZobowiazania: WideString;
begin
Result := AttributeNodes['rodzajZobowiazania'].Text;
end;
procedure TXMLKodFormularzaDekl.Set_RodzajZobowiazania(Value: WideString);
begin
SetAttribute('rodzajZobowiazania', Value);
end;
function TXMLKodFormularzaDekl.Get_WersjaSchemy: WideString;
begin
Result := AttributeNodes['wersjaSchemy'].Text;
end;
procedure TXMLKodFormularzaDekl.Set_WersjaSchemy(Value: WideString);
begin
SetAttribute('wersjaSchemy', Value);
end;
{ TXMLTIdentyfikatorOsobyNiefizycznej }
function TXMLTIdentyfikatorOsobyNiefizycznej.Get_NIP: WideString;
begin
Result := ChildNodes['NIP'].Text;
end;
procedure TXMLTIdentyfikatorOsobyNiefizycznej.Set_NIP(Value: WideString);
begin
ChildNodes['NIP'].NodeValue := Value;
end;
function TXMLTIdentyfikatorOsobyNiefizycznej.Get_PelnaNazwa: WideString;
begin
Result := ChildNodes['PelnaNazwa'].Text;
end;
procedure TXMLTIdentyfikatorOsobyNiefizycznej.Set_PelnaNazwa(Value: WideString);
begin
ChildNodes['PelnaNazwa'].NodeValue := Value;
end;
{ TXMLPodmiot1 }
function TXMLPodmiot1.Get_Rola: WideString;
begin
Result := AttributeNodes['rola'].Text;
end;
procedure TXMLPodmiot1.Set_Rola(Value: WideString);
begin
SetAttribute('rola', Value);
end;
{ TXMLOsobaFizyczna }
function TXMLOsobaFizyczna.Get_Email: WideString;
begin
Result := ChildNodes['Email'].Text;
end;
procedure TXMLOsobaFizyczna.Set_Email(Value: WideString);
begin
ChildNodes['Email'].NodeValue := Value;
end;
function TXMLOsobaFizyczna.Get_Telefon: WideString;
begin
Result := ChildNodes['Telefon'].Text;
end;
procedure TXMLOsobaFizyczna.Set_Telefon(Value: WideString);
begin
ChildNodes['Telefon'].NodeValue := Value;
end;
{ TXMLOsobaNiefizyczna }
function TXMLOsobaNiefizyczna.Get_Email: WideString;
begin
Result := ChildNodes['Email'].Text;
end;
procedure TXMLOsobaNiefizyczna.Set_Email(Value: WideString);
begin
ChildNodes['Email'].NodeValue := Value;
end;
function TXMLOsobaNiefizyczna.Get_Telefon: WideString;
begin
Result := ChildNodes['Telefon'].Text;
end;
procedure TXMLOsobaNiefizyczna.Set_Telefon(Value: WideString);
begin
ChildNodes['Telefon'].NodeValue := Value;
end;
end.
[Error] schemat1.pas(705): Undeclared identifier: 'IXMLTIdentyfikatorOsobyFizycznej2'
[Error] schemat1.pas(705): Interface type required
[Error] schemat1.pas(1234): Undeclared identifier: 'TXMLTIdentyfikatorOsobyFizycznej2'
[Error] schemat1.pas(1234): Class type required
[Error] schemat1.pas(1432): Incompatible types: 'TXMLNodeClass' and 'Class reference'
[Error] schemat1.pas(3098): Undeclared identifier: 'ChildNodes'
[Error] schemat1.pas(3098): Missing operator or semicolon
[Error] schemat1.pas(3099): Statement expected, but expression of type 'Text' found
[Error] schemat1.pas(3103): Undeclared identifier: 'ChildNodes'
[Error] schemat1.pas(3103): Missing operator or semicolon
[Error] schemat1.pas(3108): Undeclared identifier: 'ChildNodes'
[Error] schemat1.pas(3108): Missing operator or semicolon
[Error] schemat1.pas(3109): Statement expected, but expression of type 'Text' found
[Error] schemat1.pas(3113): Undeclared identifier: 'ChildNodes'
[Error] schemat1.pas(3113): Missing operator or semicolon
[Fatal Error] elgos.dpr(52): Could not compile used unit 'schemat1.pas'
Nie wiem, czy to wina mojego Delphi, czy inna przyczyna. Być może te dalsze błędy będą konsekwencją pierwszego, czyli IXMLTIdentyfikatorOsobyFizycznej2. Jakby ktoś coś chciał mi powiedzieć. Nie jestem jakimś rasowym programistą, ale z podstawowymi rzeczami starałem sobie zawsze radzić.