git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
88 lines
2.4 KiB
INI
88 lines
2.4 KiB
INI
[OneSchemaMethod-Delphi]
|
|
var
|
|
lDataSet:IDADataSet;
|
|
begin
|
|
{ This method body was auto-generated to retrieve the schema of your datasets.
|
|
You can now modify it to suite your needs. }
|
|
|
|
{ ToDO: Rename the Schema reference below to match the name of your Schema component }
|
|
|
|
result := Binary.Create();
|
|
lDataSet := %SCHEMA%.NewDataset(Connection, aDataSet);
|
|
BinAdapter.WriteDataset(result, lDataSet, [woSchema], 0);
|
|
end;
|
|
|
|
|
|
[OneGetMethod-Delphi]
|
|
var
|
|
lDataSet:IDADataSet;
|
|
begin
|
|
{ This method body was auto-generated to retrieve the rows of your datasets.
|
|
You can now modify it to suite your needs. }
|
|
|
|
{ ToDO: Rename the Schema reference below to match the name of your Schema component }
|
|
|
|
result := Binary.Create();
|
|
lDataSet := %SCHEMA%.NewDataset(Connection, aDataSet);
|
|
BinAdapter.WriteDataset(result, lDataSet, [woRows], -1);
|
|
end;
|
|
|
|
|
|
[OneUpdateMethod-Delphi]
|
|
begin
|
|
{ Implement yourself ;-}
|
|
result := nil;
|
|
end;
|
|
|
|
|
|
[SchemaMethodPerDataSet-Delphi]
|
|
var
|
|
lDataSet:IDADataSet;
|
|
begin
|
|
{ This method body was auto-generated to retrieve the schema of your %DATASET% dataset.
|
|
You can now modify it to suite your needs. }
|
|
|
|
{ ToDO: Rename the Schema reference below to match the name of your Schema component }
|
|
|
|
result := Binary.Create();
|
|
lDataSet := %SCHEMA%.NewDataset(Connection, %DATASET%);
|
|
BinAdapter.WriteDataset(result, lDataSet, [woSchema], 0);
|
|
end;
|
|
|
|
|
|
[GetMethodPerDataSet-Delphi]
|
|
var
|
|
lDataSet:IDADataSet;
|
|
begin
|
|
{ This method body was auto-generated to retrieve the rows of your %DATASET% dataset.
|
|
You can now modify it to suite your needs. }
|
|
|
|
{ ToDO: Rename the Schema reference below to match the name of your Schema component }
|
|
|
|
result := Binary.Create();
|
|
lDataSet := %SCHEMA%.NewDataset(Connection, %DATASET%);
|
|
BinAdapter.WriteDataset(result, lDataSet, [woRows], -1);
|
|
end;
|
|
|
|
|
|
[UpdateMethodPerDataSet-Delphi]
|
|
begin
|
|
{ Implement yourself ;-}
|
|
result := nil;
|
|
end;
|
|
|
|
[GetSchemaXmlMethod-Delphi]
|
|
begin
|
|
{ This method body was auto-generated to allow access to your XML schema.
|
|
You might want to disable this functionality in release builds for security
|
|
reasons by putting in the FDEFs below. }
|
|
|
|
{ ToDo: Rename the Schema reference below to match the name of your Schema component }
|
|
|
|
{.$IFDEF RELEASE_BUILD}
|
|
result := Binary.Create();
|
|
%SCHEMA%.SaveToStream(result);
|
|
{.$ELSE}
|
|
{ result := nil; }
|
|
{.$ENDIF RELEASE_BUILD}
|
|
end; |