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

interface

uses
  System.Classes, System.SysUtils, System.DateUtils, System.StrUtils
  ,System.Math
  ,intf.ZUGFeRDInvoiceDescriptor
  ,intf.ZUGFeRDProfileAwareXmlTextWriter
  ,intf.ZUGFeRDProfile
  ,intf.ZUGFeRDFormats;

type
  TZUGFeRDInvoiceDescriptorWriter = class abstract
  public
    procedure Save(descriptor: TZUGFeRDInvoiceDescriptor; stream: TStream; format :TZUGFeRDFormats = TZUGFeRDFormats.CII); overload; virtual; abstract;
    procedure Save(descriptor: TZUGFeRDInvoiceDescriptor; const filename: string; format :TZUGFeRDFormats = TZUGFeRDFormats.CII); overload;
    function Validate(descriptor: TZUGFeRDInvoiceDescriptor; throwExceptions: Boolean = True): Boolean; virtual; abstract;
  public
    procedure WriteOptionalElementString(writer: TZUGFeRDProfileAwareXmlTextWriter; const tagName, value: string; profile: TZUGFeRDProfiles = TZUGFERDPROFILES_DEFAULT);
    function _formatDecimal(value: Currency; numDecimals: Integer = 2): string;
    function _formatDate(date: TDateTime; formatAs102: Boolean = True; toUBLDate : Boolean = false): string;
  end;

implementation

procedure TZUGFeRDInvoiceDescriptorWriter.Save(
  descriptor: TZUGFeRDInvoiceDescriptor;
  const filename: string; format :TZUGFeRDFormats = TZUGFeRDFormats.CII);
var
  fs: TFileStream;
begin
  if Validate(descriptor, True) then
  begin
    fs := TFileStream.Create(filename, fmCreate or fmOpenWrite);
    try
      Save(descriptor, fs, format);
      //fs.Flush;
      //fs.Close;
    finally
      fs.Free;
    end;
  end;
end;

procedure TZUGFeRDInvoiceDescriptorWriter.WriteOptionalElementString(
  writer: TZUGFeRDProfileAwareXmlTextWriter;
  const tagName, value: string;
  profile: TZUGFeRDProfiles = TZUGFERDPROFILES_DEFAULT);
begin
  if not value.IsEmpty then
    writer.WriteElementString(tagName, value, profile);
end;

function TZUGFeRDInvoiceDescriptorWriter._formatDecimal(
  value: Currency; numDecimals: Integer): string;
var
  formatString: string;
  i: Integer;
begin
  //TODO Testen
  value := RoundTo(value,-numDecimals);
  formatString := '0.';
  for i := 0 to numDecimals - 1 do
    formatString := formatString + '0';

  Result := FormatFloat(formatString, value);
  Result := ReplaceText(Result,',','.');
end;

function TZUGFeRDInvoiceDescriptorWriter._formatDate(date: TDateTime;
  formatAs102: Boolean = true; toUBLDate : Boolean = false): string;
begin
  if formatAs102 then
    Result := FormatDateTime('yyyymmdd', date)
  else
  begin
    if toUBLDate then
      Result := FormatDateTime('yyyy-mm-dd', date)
    else
      Result := FormatDateTime('yyyy-mm-ddThh:nn:ss', date);
  end;
end;

end.