INSERT Analytics.DBO.TMP_sap1 (
TYPE_REQUEST,
ID,
TITLE,
DESCRIPTION,
STATUS,
PRIORITY,
SUPPORT_GROUP,
SUPPORT_GROUP_NAME,
CREATED_DATE,
FIRST_ASSIGNED_DATE,
REACTION_TIME,
STATUS_SLA_REACTION,
RESOLVED_DATE,
CLOSED_DATE,
RESOLVED_TIME,
STATUS_SLA_RESOLVED,
RATING,
BUSINESS_SERVICE,
cat1,
cat2,
cat3
)
select :0,:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,:13,:14,:15,:16,:17,:18,:19,:20
union all select :21,:22,:23,:24,:25,:26,:27,:28,:29,:30,:31,:32,:33,:34,:35,:36,:37,:38,:39,:40,:41
union all select ...

    case Field.DataType of
      ftBCD, ftCurrency:
        PCurrency(@Column.Data[0])^ := Field.AsCurrency;
      ftDate:
        with PDBDate(@Column^.Data[0])^ do
          DecodeDate(Field.AsDateTime, Word(year), month, day);
      ftTime:
        with PDBTime(@Column^.Data[0])^ do
          DecodeTime(Field.AsDateTime, hour, minute, second, MSec);
      ftDateTime, ftTimeStamp:
        with PDBTimeStamp(@Column^.Data[0])^ do
        begin
          DecodeDate(Field.AsDateTime, Word(year), month, day);
          DecodeTime(Field.AsDateTime, hour, minute, second, MSec);
          fraction := MSec * 1000000;
        end;
      else
        Field.GetData(@Column^.Data[0], False);
    end;
    Column^.Status := DBSTATUS_S_OK;
    case Field.DataType of
      ftString, ftMemo:
        Column^.Length := StrLen(PAnsiChar(@Column^.Data[0]));
      ftWideString, ftWideMemo:
        Column^.Length := StrLen(PWideChar(@Column^.Data[0])) * SizeOf(WideChar);
      else
        Column^.Length := Field.DataSize;
    end;

      ftFloat:
        PDouble(@Column.Data[0])^ := Field.AsFloat;

      ftString, ftMemo:
        begin
          Column^.Length := StrLen(PAnsiChar(field.AsString));
          PPAnsiChar(@Column.Data[0])^ := PAnsiChar(field.AsString);
        end;

    case Field.DataType of
      ftInteger:
        PInteger(@Column.Data[0])^ := Field.AsInteger;
      ftBCD, ftCurrency:
        PCurrency(@Column.Data[0])^ := Field.AsCurrency;
      ftFloat:
        PDouble(@Column.Data[0])^ := Field.AsFloat;
      ftDate:
        with PDBDate(@Column^.Data[0])^ do
          DecodeDate(Field.AsDateTime, Word(year), month, day);
      ftTime:
        with PDBTime(@Column^.Data[0])^ do
          DecodeTime(Field.AsDateTime, hour, minute, second, MSec);
      ftDateTime, ftTimeStamp:
        with PDBTimeStamp(@Column^.Data[0])^ do
        begin
          DecodeDate(Field.AsDateTime, Word(year), month, day);
          DecodeTime(Field.AsDateTime, hour, minute, second, MSec);
          fraction := MSec * 1000000;
        end;
      ftString, ftMemo:
        begin
          stringValue := field.AsString;
          Column^.Length := length(stringValue);
          move(stringValue[1], Column^.Data[0], Column^.Length);