intf.ZUGFeRDPartyTypes.pas

{* Licensed to the Apache Software Foundation (ASF) under one
 * or more contributor license agreements.  See the NOTICE file
 * distributed with this work for additional information
 * regarding copyright ownership.  The ASF licenses this file
 * to you under the Apache License, Version 2.0 (the
 * "License"); you may not use this file except in compliance
 * with the License.  You may obtain a copy of the License at
 *
 *   http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing,
 * software distributed under the License is distributed on an
 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 * KIND, either express or implied.  See the License for the
 * specific language governing permissions and limitations
 * under the License.}

unit intf.ZUGFeRDPartyTypes;

interface

uses
  System.SysUtils,
  intf.ZUGFeRDHelper;

type
  TZUGFeRDPartyTypes = (
    {.DefinitionStart}
    // automatically converted by PSC#ToDelphiDefinition

    Unknown,
    SellerTradeParty,
    BuyerTradeParty,
    ShipToTradeParty,
    UltimateShipToTradeParty,
    ShipFromTradeParty,
    InvoiceeTradeParty,
    PayeeTradeParty,
    SalesAgentTradeParty,
    BuyerTaxRepresentativeTradeParty,
    ProductEndUserTradeParty,
    BuyerAgentTradeParty,
    InvoicerTradeParty,
    PayerTradeParty,
    SellerTaxRepresentativeTradeParty

    {.DefinitionEnd}
  );

implementation

procedure Map (EnumValue: TZUGFeRDPartyTypes; StringValue: string); inline;
begin
  TEnumExtensions<TZUGFeRDPartyTypes>.RegisterMapping(EnumValue, StringValue)
end;

procedure InitMapping;
begin
  {.MapStart}
  // Mapping generated by PSDelphiDefinitionMapper
  Map(Unknown,                           'Unknown');
  Map(SellerTradeParty,                  'SellerTradeParty');
  Map(BuyerTradeParty,                   'BuyerTradeParty');
  Map(ShipToTradeParty,                  'ShipToTradeParty');
  Map(UltimateShipToTradeParty,          'UltimateShipToTradeParty');
  Map(ShipFromTradeParty,                'ShipFromTradeParty');
  Map(InvoiceeTradeParty,                'InvoiceeTradeParty');
  Map(PayeeTradeParty,                   'PayeeTradeParty');
  Map(SalesAgentTradeParty,              'SalesAgentTradeParty');
  Map(BuyerTaxRepresentativeTradeParty,  'BuyerTaxRepresentativeTradeParty');
  Map(ProductEndUserTradeParty,          'ProductEndUserTradeParty');
  Map(BuyerAgentTradeParty,              'BuyerAgentTradeParty');
  Map(InvoicerTradeParty,                'InvoicerTradeParty');
  Map(PayerTradeParty,                   'PayerTradeParty');
  Map(SellerTaxRepresentativeTradeParty, 'SellerTaxRepresentativeTradeParty');
{.MapEnd}
end;

Initialization
  InitMapping;
end.