bero

procedure TForm1.SendActionExecute(Sender: TObject);
var
  LWebHook: IMessageBuffer;
  LMessage: IMessage;
  LStopWatch: TStopWatch;
  vAttachment: IAttachment;
  vField: IFields;
begin
  LStopWatch := TStopWatch.StartNew;

bero

function TInvoicingPool.CreateInvoice(aInvoiceDrawerParty: TDepartment; aCustomerParty: TDepartment): TInvoice;
begin
  Assert(Assigned(aInvoiceDrawerParty), 'Invalid parameter (InvoiceOwner missing)');
  Assert(Assigned(aCustomerParty), 'Invalid parameter (customer missing)');
  Result := GetApplicationKernel.CreateAMObjectByClass(TInvoice) as TInvoice;
  with Result do
  begin
    // systemorg/defaultdept is owner of all the invoices - set defaultdept as owner...
    // ...even if user happened to be logged on to some other department when invoice was made...
    // ...since only defaultdept has all the required edi-data needed in order to send eInvoices...

bero

unit uEtl;

interface

uses
  Generics.Collections;

type
  IETL = interface
    function Transform(aOld: TDictionary<integer, TList<string>>): TDictionary<string, integer>;

bero

unit uRaindrops;

interface

type
  TRainDrop = class
  public
    function Convert(Value: Integer): string;
  end;

bero

unit Unit3;

interface

procedure TestMemory;

implementation

uses
  Classes,

bero

function HasNoDaylightTime(aAddress: TAbstractAddress): Boolean;
begin
  Result := (aAddress.CountryAlias = 'af') or
            (aAddress.CountryAlias = 'dz') or
            (aAddress.CountryAlias = 'as') or
            (aAddress.CountryAlias = 'ao') or
            (aAddress.CountryAlias = 'ai') or
            (aAddress.CountryAlias = 'ag') or
            (aAddress.CountryAlias = 'ar') or
            (aAddress.CountryAlias = 'am') or

bero

unit SystemConfigCommon;

type
  TSystemConfigCommon = class
  private
    function GetUseBatchQueries: Boolean;
  public
    property UseBatchQueries: Boolean read GetUseBatchQueries;
  end;	

bero

program Project7;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  DateUtils;

bero

program Project6;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;