IDtObjectDataFormat.UsePredefinedDateFormats

The UsePredefinedDateFormats property determines the use of the field date format predefinition according to the specified format using the IDtFieldDefinition.DateFormat property.

Comments

Example

Executing the example requires that the repository contains an ETL task with the ETL identifier. There is also the Data_Import.txt text file located in the C:\Temp\Data_Import folder.

First date, Second date, Third date

2010A2,2011M2,20120512

2008A2,2009M2,20100613

2006A2,2007M2,20080714

Add links to the Andy, Dal, Drawing, Dt, Etl, Forms and Metabase system assemblies.

Sub UserProc; Var     MB: IMetabase;     EtlTask: IEtlTask;     EtlProvider: IEtlPlainDataProvider;     TextProvider: IDtTextProvider;     DateFormat: IDtObjectDataFormat;     WxProvider: IWxRectangle;     WxETLProvider: IWxETLObject; Begin     MB := MetabaseClass.Active;     EtlTask := MB.ItemById("ETL").Edit As IEtlTask;     //Create object "Import from text"     EtlProvider := EtlTask.Create(EtlObjectType.PlainDataTextProvider) As IEtlPlainDataProvider;     EtlProvider := EtlProvider.Edit;     EtlProvider.Id := "Data_Import";     EtlProvider.Name := "Data_Import";     EtlProvider.Description := "Data_Import";     //Set up data provider     TextProvider := EtlProvider.Provider As IDtTextProvider;     TextProvider.File := "C:\Temp\Data_Import.txt";     DateFormat := TextProvider.StringDataFormat;     DateFormat.UsePredefinedDateFormats := True;     TextProvider.FieldsFromFile;     TextProvider.Fields.item(0).DateFormat := "$Year$A$Quarter$";     TextProvider.Fields.item(0).DataType := dbdatatype.Date;     TextProvider.Fields.item(1).DateFormat := "$Year$M$Quarter$";     TextProvider.Fields.item(1).DataType := dbdatatype.Date;     TextProvider.Fields.item(2).DateFormat := "$Year$$Month$$Day$";     TextProvider.Fields.item(2).DataType := dbdatatype.Date;     EtlProvider.FillDefault;     //Save provider     EtlProvider.Save;     //Create visual object     WxProvider := EtlTask.Workspace.CreateRectangle;     WxETLProvider := New WxETLObject.Create;     WxETLProvider.ETLObject := EtlProvider;     WxProvider.Style.TextPosition := WxTextPosition.Bottom;     WxProvider.Style.PictureMarginTop := -10;     WxProvider.PinPosition := New GxPointF.Create(50, 50);     WxProvider.Extension := WxETLProvider As IWxShapeExtension;     //Save task Etl     (EtlTask As IMetabaseObject).Save; End Sub UserProc;

On executing the example a new data provider will be created in ETL task - Import from text. The provider will be linked to the specified text file, various formats will be preconfigured to parse dates in various fields. As a result of import, the following values will be obtained:

IDtObjectDataFormat.UsePredefinedDateFormats

Syntax

Description

Comments

Example