intf.ZUGFeRDTaxRegistrationSchemeID.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.ZUGFeRDTaxRegistrationSchemeID;

interface

uses
  System.SysUtils,
  intf.ZUGFeRDHelper;

type
  /// <summary>
  /// For a reference see:
  /// https://service.unece.org/trade/untdid/d21a/tred/tred1153.htm
  /// </summary>
  TZUGFeRDTaxRegistrationSchemeID = (
    {.DefinitionStart}
    // automatically converted by PSC#ToDelphiDefinition

    /// <summary>
    /// Fiscal number
    /// 
    /// Tax payer's number. Number assigned to individual
    /// persons as well as to corporates by a public
    /// institution; this number is different from the VAT
    /// registration number.
    /// </summary>
    FC,

    /// <summary>
    /// VAT registration number
    /// 
    /// Unique number assigned by the relevant tax authority to
    /// identify a party for use in relation to Value Added Tax
    /// (VAT).
    /// </summary>
    VA,

    /// <summary>
    /// Unknown/ invalid value
    /// </summary>
    Unknown

    {.DefinitionEnd}
  );

implementation

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

procedure InitMapping;
begin
  {.MapStart}
  // Mapping generated by PSDelphiDefinitionMapper
  Map(FC,      'FC');
  Map(VA,      'VA');
  Map(Unknown, 'Unknown');
{.MapEnd}
end;

Initialization
  InitMapping;
end.