13389 lines
499 KiB
XML
13389 lines
499 KiB
XML
<?xml version="1.0"?>
|
|
<RBProject version="2012r2.1" FormatVersion="2" MinIDEVersion="20070100">
|
|
<block type="Project" ID="0">
|
|
<ProjectSavedInVers>2012.021</ProjectSavedInVers>
|
|
<ProjMgrUser></ProjMgrUser>
|
|
<ProjMgrServer></ProjMgrServer>
|
|
<MajorVersion>1</MajorVersion>
|
|
<MinorVersion>0</MinorVersion>
|
|
<SubVersion>0</SubVersion>
|
|
<Release>0</Release>
|
|
<NonRelease>0</NonRelease>
|
|
<Region></Region>
|
|
<ShortVersion></ShortVersion>
|
|
<LongVersion></LongVersion>
|
|
<InfoVersion></InfoVersion>
|
|
<AutoIncVersion>0</AutoIncVersion>
|
|
<DefaultViewID>1547248127</DefaultViewID>
|
|
<ProjectType>0</ProjectType>
|
|
<DefaultLanguage>0</DefaultLanguage>
|
|
<CurrentLanguage>0</CurrentLanguage>
|
|
<DefaultEncoding>0</DefaultEncoding>
|
|
<BuildFlags>16384</BuildFlags>
|
|
<UseBuildsFolder>1</UseBuildsFolder>
|
|
<WebApp>0</WebApp>
|
|
<Icon>
|
|
</Icon>
|
|
<MacCreator></MacCreator>
|
|
<BuildCarbonName>My Application</BuildCarbonName>
|
|
<BuildCarbonMachOName>My Application</BuildCarbonMachOName>
|
|
<BundleIdentifier></BundleIdentifier>
|
|
<BuildSize>4194304</BuildSize>
|
|
<BuildMinSize>2097152</BuildMinSize>
|
|
<BuildSizeAsString>4096</BuildSizeAsString>
|
|
<BuildMinSizeAsString>2048</BuildMinSizeAsString>
|
|
<WinMDICaption></WinMDICaption>
|
|
<BuildWinName>My Application.exe</BuildWinName>
|
|
<BuildWinMDI>0</BuildWinMDI>
|
|
<BuildWinCompanyName></BuildWinCompanyName>
|
|
<BuildWinProductName></BuildWinProductName>
|
|
<BuildWinInternalName></BuildWinInternalName>
|
|
<UseGDIPlus>0</UseGDIPlus>
|
|
<BuildLinuxX86Name>MyApplication</BuildLinuxX86Name>
|
|
<DebuggerCommandLine></DebuggerCommandLine>
|
|
<WebPort>0</WebPort>
|
|
<WebProtocol>0</WebProtocol>
|
|
<WebDebugPort>8080</WebDebugPort>
|
|
<WebUseIntegratedBrowser>0</WebUseIntegratedBrowser>
|
|
<WebLaunchString>Launching...</WebLaunchString>
|
|
<WebHTMLHeader></WebHTMLHeader>
|
|
<WebDisconnectString>The application has gone off-line. Please try again later.</WebDisconnectString>
|
|
</block>
|
|
<block type="Module" ID="1269390717">
|
|
<ObjName>App</ObjName>
|
|
<ObjContainerID>0</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>Application</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<IsApplicationObject>1</IsApplicationObject>
|
|
<Compatibility></Compatibility>
|
|
<PropertyVal Name="MenuBar"><Hex bytes="9">373139383035373732</Hex></PropertyVal>
|
|
<ViewBehavior>
|
|
</ViewBehavior>
|
|
<Constant>
|
|
<ItemName>kFileQuitShortcut</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemName>kFileQuitShortcut</ItemName>
|
|
<ItemType>0</ItemType>
|
|
<ItemDef></ItemDef>
|
|
<ItemFlags>0</ItemFlags>
|
|
<ConstantInstance>
|
|
<ItemPlatform>1</ItemPlatform>
|
|
<ItemLanguage>0</ItemLanguage>
|
|
<ItemDef>Cmd+Q</ItemDef>
|
|
</ConstantInstance>
|
|
<ConstantInstance>
|
|
<ItemPlatform>5</ItemPlatform>
|
|
<ItemLanguage>0</ItemLanguage>
|
|
<ItemDef>Ctrl+Q</ItemDef>
|
|
</ConstantInstance>
|
|
</Constant>
|
|
<Constant>
|
|
<ItemName>kFileQuit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemName>kFileQuit</ItemName>
|
|
<ItemType>0</ItemType>
|
|
<ItemDef>&Quit</ItemDef>
|
|
<ItemFlags>0</ItemFlags>
|
|
<ConstantInstance>
|
|
<ItemPlatform>2</ItemPlatform>
|
|
<ItemLanguage>0</ItemLanguage>
|
|
<ItemDef>E&xit</ItemDef>
|
|
</ConstantInstance>
|
|
</Constant>
|
|
<Constant>
|
|
<ItemName>kEditClear</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemName>kEditClear</ItemName>
|
|
<ItemType>0</ItemType>
|
|
<ItemDef>&Delete</ItemDef>
|
|
<ItemFlags>0</ItemFlags>
|
|
<ConstantInstance>
|
|
<ItemPlatform>2</ItemPlatform>
|
|
<ItemLanguage>0</ItemLanguage>
|
|
<ItemDef>&Delete</ItemDef>
|
|
</ConstantInstance>
|
|
<ConstantInstance>
|
|
<ItemPlatform>5</ItemPlatform>
|
|
<ItemLanguage>0</ItemLanguage>
|
|
<ItemDef>&Delete</ItemDef>
|
|
</ConstantInstance>
|
|
</Constant>
|
|
</block>
|
|
<block type="Window" ID="1547248127">
|
|
<ObjName>Window1</ObjName>
|
|
<ObjContainerID>0</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>Window</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<PropertyVal Name="ImplicitInstance">True</PropertyVal>
|
|
<PropertyVal Name="MenuBar">719805772</PropertyVal>
|
|
<PropertyVal Name="MacProcID"><Hex bytes="1">30</Hex></PropertyVal>
|
|
<PropertyVal Name="MinimizeButton">True</PropertyVal>
|
|
<PropertyVal Name="MaximizeButton">False</PropertyVal>
|
|
<PropertyVal Name="LiveResize">True</PropertyVal>
|
|
<PropertyVal Name="Resizeable">True</PropertyVal>
|
|
<PropertyVal Name="CloseButton">True</PropertyVal>
|
|
<PropertyVal Name="MenuBarVisible">True</PropertyVal>
|
|
<PropertyVal Name="FullScreen">False</PropertyVal>
|
|
<PropertyVal Name="Visible">True</PropertyVal>
|
|
<PropertyVal Name="Title">Untitled</PropertyVal>
|
|
<PropertyVal Name="Backdrop"></PropertyVal>
|
|
<PropertyVal Name="BackColor"><Hex bytes="8">3136373737323135</Hex></PropertyVal>
|
|
<PropertyVal Name="HasBackColor">False</PropertyVal>
|
|
<PropertyVal Name="Composite">False</PropertyVal>
|
|
<PropertyVal Name="Frame"><Hex bytes="1">30</Hex></PropertyVal>
|
|
<PropertyVal Name="MaxHeight"><Hex bytes="5">3332303030</Hex></PropertyVal>
|
|
<PropertyVal Name="MaxWidth"><Hex bytes="5">3332303030</Hex></PropertyVal>
|
|
<PropertyVal Name="MinHeight"><Hex bytes="2">3634</Hex></PropertyVal>
|
|
<PropertyVal Name="MinWidth"><Hex bytes="2">3634</Hex></PropertyVal>
|
|
<PropertyVal Name="Height"><Hex bytes="3">343030</Hex></PropertyVal>
|
|
<PropertyVal Name="Width"><Hex bytes="3">363030</Hex></PropertyVal>
|
|
<PropertyVal Name="Placement"><Hex bytes="1">30</Hex></PropertyVal>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Interfaces</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Placement</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
<EditorType>Enum</EditorType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
<Enumeration>
|
|
<ItemDef>0 - Default</ItemDef>
|
|
<ItemDef>1 - Parent Window</ItemDef>
|
|
<ItemDef>2 - Main Screen</ItemDef>
|
|
<ItemDef>3 - Parent Window Screen</ItemDef>
|
|
<ItemDef>4 - Stagger</ItemDef>
|
|
</Enumeration>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Width</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>600</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Height</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>400</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>MinWidth</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>64</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>MinHeight</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>64</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>MaxWidth</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>32000</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>MaxHeight</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>32000</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Frame</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
<EditorType>Enum</EditorType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
<Enumeration>
|
|
<ItemDef>0 - Document</ItemDef>
|
|
<ItemDef>1 - Movable Modal</ItemDef>
|
|
<ItemDef>2 - Modal Dialog</ItemDef>
|
|
<ItemDef>3 - Floating Window</ItemDef>
|
|
<ItemDef>4 - Plain Box</ItemDef>
|
|
<ItemDef>5 - Shadowed Box</ItemDef>
|
|
<ItemDef>6 - Rounded Window</ItemDef>
|
|
<ItemDef>7 - Global Floating Window</ItemDef>
|
|
<ItemDef>8 - Sheet Window</ItemDef>
|
|
<ItemDef>9 - Metal Window</ItemDef>
|
|
<ItemDef>10 - Drawer Window</ItemDef>
|
|
<ItemDef>11 - Modeless Dialog</ItemDef>
|
|
</Enumeration>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Composite</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>False</PropertyValue>
|
|
<ItemType>Boolean</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>HasBackColor</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>False</PropertyValue>
|
|
<ItemType>Boolean</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>BackColor</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>&hFFFFFF</PropertyValue>
|
|
<ItemType>Color</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Backdrop</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<ItemType>Picture</ItemType>
|
|
<EditorType>Picture</EditorType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Title</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>Untitled</PropertyValue>
|
|
<ItemType>String</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Visible</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>True</PropertyValue>
|
|
<ItemType>Boolean</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>FullScreen</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>False</PropertyValue>
|
|
<ItemType>Boolean</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>MenuBarVisible</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>True</PropertyValue>
|
|
<ItemType>Boolean</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>CloseButton</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>True</PropertyValue>
|
|
<ItemType>Boolean</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Resizeable</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>True</PropertyValue>
|
|
<ItemType>Boolean</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>LiveResize</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>True</PropertyValue>
|
|
<ItemType>Boolean</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>MaximizeButton</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>False</PropertyValue>
|
|
<ItemType>Boolean</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>MinimizeButton</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>True</PropertyValue>
|
|
<ItemType>Boolean</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>MacProcID</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>MenuBar</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<ItemType>MenuBar</ItemType>
|
|
<EditorType>MenuBar</EditorType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>ImplicitInstance</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Appearance</PropertyGroup>
|
|
<PropertyValue>True</PropertyValue>
|
|
<EditorType>Boolean</EditorType>
|
|
<InheritsFrom>Window</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Menu" ID="719805772">
|
|
<ObjName>MenuBar1</ObjName>
|
|
<ObjContainerID>0</ObjContainerID>
|
|
<MenuItem>
|
|
<ItemSpecialMenu>0</ItemSpecialMenu>
|
|
<ItemName>FileMenu</ItemName>
|
|
<ItemText>&File</ItemText>
|
|
<ItemIndex>-2147483648</ItemIndex>
|
|
<ItemShortcut></ItemShortcut>
|
|
<MenuAutoEnable>1</MenuAutoEnable>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Superclass>MenuItem</Superclass>
|
|
<MenuItem>
|
|
<ItemSpecialMenu>0</ItemSpecialMenu>
|
|
<ItemName>FileQuit</ItemName>
|
|
<ItemText>#App.kFileQuit</ItemText>
|
|
<ItemIndex>-2147483648</ItemIndex>
|
|
<ItemShortcut>#App.kFileQuitShortcut</ItemShortcut>
|
|
<MenuShortcut>#App.kFileQuitShortcut</MenuShortcut>
|
|
<MenuAutoEnable>1</MenuAutoEnable>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Superclass>QuitMenuItem</Superclass>
|
|
</MenuItem>
|
|
</MenuItem>
|
|
<MenuItem>
|
|
<ItemSpecialMenu>0</ItemSpecialMenu>
|
|
<ItemName>EditMenu</ItemName>
|
|
<ItemText>&Edit</ItemText>
|
|
<ItemIndex>-2147483648</ItemIndex>
|
|
<ItemShortcut></ItemShortcut>
|
|
<MenuAutoEnable>1</MenuAutoEnable>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Superclass>MenuItem</Superclass>
|
|
<MenuItem>
|
|
<ItemSpecialMenu>0</ItemSpecialMenu>
|
|
<ItemName>EditUndo</ItemName>
|
|
<ItemText>&Undo</ItemText>
|
|
<ItemIndex>-2147483648</ItemIndex>
|
|
<ItemShortcut>Cmd+Z</ItemShortcut>
|
|
<MenuShortcut>Z</MenuShortcut>
|
|
<MenuShortcutModifier>1</MenuShortcutModifier>
|
|
<MenuAutoEnable>1</MenuAutoEnable>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Superclass>MenuItem</Superclass>
|
|
</MenuItem>
|
|
<MenuItem>
|
|
<ItemSpecialMenu>0</ItemSpecialMenu>
|
|
<ItemName></ItemName>
|
|
<ItemText>-</ItemText>
|
|
<ItemIndex>-2147483648</ItemIndex>
|
|
<ItemShortcut></ItemShortcut>
|
|
<MenuAutoEnable>1</MenuAutoEnable>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Superclass>MenuItem</Superclass>
|
|
</MenuItem>
|
|
<MenuItem>
|
|
<ItemSpecialMenu>0</ItemSpecialMenu>
|
|
<ItemName>EditCut</ItemName>
|
|
<ItemText>Cu&t</ItemText>
|
|
<ItemIndex>-2147483648</ItemIndex>
|
|
<ItemShortcut>Cmd+X</ItemShortcut>
|
|
<MenuShortcut>X</MenuShortcut>
|
|
<MenuShortcutModifier>1</MenuShortcutModifier>
|
|
<MenuAutoEnable>1</MenuAutoEnable>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Superclass>MenuItem</Superclass>
|
|
</MenuItem>
|
|
<MenuItem>
|
|
<ItemSpecialMenu>0</ItemSpecialMenu>
|
|
<ItemName>EditCopy</ItemName>
|
|
<ItemText>&Copy</ItemText>
|
|
<ItemIndex>-2147483648</ItemIndex>
|
|
<ItemShortcut>Cmd+C</ItemShortcut>
|
|
<MenuShortcut>C</MenuShortcut>
|
|
<MenuShortcutModifier>1</MenuShortcutModifier>
|
|
<MenuAutoEnable>1</MenuAutoEnable>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Superclass>MenuItem</Superclass>
|
|
</MenuItem>
|
|
<MenuItem>
|
|
<ItemSpecialMenu>0</ItemSpecialMenu>
|
|
<ItemName>EditPaste</ItemName>
|
|
<ItemText>&Paste</ItemText>
|
|
<ItemIndex>-2147483648</ItemIndex>
|
|
<ItemShortcut>Cmd+V</ItemShortcut>
|
|
<MenuShortcut>V</MenuShortcut>
|
|
<MenuShortcutModifier>1</MenuShortcutModifier>
|
|
<MenuAutoEnable>1</MenuAutoEnable>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Superclass>MenuItem</Superclass>
|
|
</MenuItem>
|
|
<MenuItem>
|
|
<ItemSpecialMenu>0</ItemSpecialMenu>
|
|
<ItemName>EditClear</ItemName>
|
|
<ItemText>#App.kEditClear</ItemText>
|
|
<ItemIndex>-2147483648</ItemIndex>
|
|
<ItemShortcut></ItemShortcut>
|
|
<MenuAutoEnable>1</MenuAutoEnable>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Superclass>MenuItem</Superclass>
|
|
</MenuItem>
|
|
<MenuItem>
|
|
<ItemSpecialMenu>0</ItemSpecialMenu>
|
|
<ItemName></ItemName>
|
|
<ItemText>-</ItemText>
|
|
<ItemIndex>-2147483648</ItemIndex>
|
|
<ItemShortcut></ItemShortcut>
|
|
<MenuAutoEnable>1</MenuAutoEnable>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Superclass>MenuItem</Superclass>
|
|
</MenuItem>
|
|
<MenuItem>
|
|
<ItemSpecialMenu>0</ItemSpecialMenu>
|
|
<ItemName>EditSelectAll</ItemName>
|
|
<ItemText>Select &All</ItemText>
|
|
<ItemIndex>-2147483648</ItemIndex>
|
|
<ItemShortcut>Cmd+A</ItemShortcut>
|
|
<MenuShortcut>A</MenuShortcut>
|
|
<MenuShortcutModifier>1</MenuShortcutModifier>
|
|
<MenuAutoEnable>1</MenuAutoEnable>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Superclass>MenuItem</Superclass>
|
|
</MenuItem>
|
|
</MenuItem>
|
|
</block>
|
|
<block type="BuildAutomation" ID="1000243259">
|
|
<ObjName>Build Automation</ObjName>
|
|
<ObjContainerID>0</ObjContainerID>
|
|
</block>
|
|
<block type="BuildStepsList" ID="586482103">
|
|
<ObjName>Linux</ObjName>
|
|
<ObjContainerID>1000243259</ObjContainerID>
|
|
</block>
|
|
<block type="BuildProjectStep" ID="54782197">
|
|
<ObjName>Build</ObjName>
|
|
<ObjContainerID>586482103</ObjContainerID>
|
|
</block>
|
|
<block type="BuildStepsList" ID="1601400869">
|
|
<ObjName>Mac OS X</ObjName>
|
|
<ObjContainerID>1000243259</ObjContainerID>
|
|
</block>
|
|
<block type="BuildProjectStep" ID="331874238">
|
|
<ObjName>Build</ObjName>
|
|
<ObjContainerID>1601400869</ObjContainerID>
|
|
</block>
|
|
<block type="BuildStepsList" ID="795303613">
|
|
<ObjName>Windows</ObjName>
|
|
<ObjContainerID>1000243259</ObjContainerID>
|
|
</block>
|
|
<block type="BuildProjectStep" ID="729621569">
|
|
<ObjName>Build</ObjName>
|
|
<ObjContainerID>795303613</ObjContainerID>
|
|
</block>
|
|
<block type="Module" ID="618102619">
|
|
<ObjName>BKS_ActiveRecord</ObjName>
|
|
<ObjContainerID>0</ObjContainerID>
|
|
<IsClass>0</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Begin</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Begin() As BKS_ActiveRecord.Transaction</SourceLine>
|
|
<SourceLine>return Begin(GetTypeInfo(BKS_ActiveRecord.Base))</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.Transaction</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Begin</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Begin(ty as Introspection.TypeInfo) As BKS_ActiveRecord.Transaction</SourceLine>
|
|
<SourceLine>'Start a transaction and return and object for it.</SourceLine>
|
|
<SourceLine>if ty=nil then</SourceLine>
|
|
<SourceLine>raise new NilObjectException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim adp as BKS_ActiveRecord.DatabaseAdapter</SourceLine>
|
|
<SourceLine>adp = GetContext.ConnectionAdapter_Get( ty )</SourceLine>
|
|
<SourceLine>if adp=nil then</SourceLine>
|
|
<SourceLine>raise new ActiveRecordException("No connection available for type: " + ty.FullName)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return new Transaction(adp)</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>ty as Introspection.TypeInfo</ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.Transaction</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Connect</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Connect(db as Database)</SourceLine>
|
|
<SourceLine>Connect(GetTypeInfo(BKS_ActiveRecord.Base), db)</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>db as Database</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Connect</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Connect(ty as Introspection.TypeInfo, db as Database)</SourceLine>
|
|
<SourceLine>if ty=nil or db=nil then</SourceLine>
|
|
<SourceLine>raise new NilObjectException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>dim adp as BKS_ActiveRecord.DatabaseAdapter</SourceLine>
|
|
<SourceLine>adp = CreateDatabaseAdapter(db)</SourceLine>
|
|
<SourceLine>GetContext.ConnectionAdapter_Set(ty, adp)</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>ty as Introspection.TypeInfo, db as Database</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>CreateDatabaseAdapter</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function CreateDatabaseAdapter(db as Database) As BKS_ActiveRecord.DatabaseAdapter</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeREALSQLDatabase</SourceLine>
|
|
<SourceLine>if db isa REALSQLDatabase then</SourceLine>
|
|
<SourceLine>return new REALSQLDatabaseAdapter(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeSQLiteDatabase and RBVersion>=2013</SourceLine>
|
|
<SourceLine>if db isa SQLiteDatabase then</SourceLine>
|
|
<SourceLine>return new SQLiteDatabaseAdapter(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeCubeDatabase</SourceLine>
|
|
<SourceLine>if db isa CubeSQLServer then</SourceLine>
|
|
<SourceLine>return new cubeSQLDatabaseAdapter(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeMSSQLServer</SourceLine>
|
|
<SourceLine>if db isa MSSQLServerDatabase then</SourceLine>
|
|
<SourceLine>return new MSSQLServerAdapter(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeMySQLCommunityServer</SourceLine>
|
|
<SourceLine>if db isa MySQLCommunityServer then</SourceLine>
|
|
<SourceLine>return new MySQLCommunityServerAdapter(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeOracle</SourceLine>
|
|
<SourceLine>if db isa OracleDatabase then</SourceLine>
|
|
<SourceLine>return new OracleAdapter(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludePostgreSQLDatabase</SourceLine>
|
|
<SourceLine>if db isa PostgreSQLDatabase then</SourceLine>
|
|
<SourceLine>return new PostgreSQLDatabaseAdapter(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim ex as new UnsupportedOperationException</SourceLine>
|
|
<SourceLine>ex.Message = "Unsupported database type: " + Introspection.GetType(db).FullName</SourceLine>
|
|
<SourceLine>raise ex</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>db as Database</ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.DatabaseAdapter</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Disconnect</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Disconnect()</SourceLine>
|
|
<SourceLine>'Disconnect the base active record class from the database</SourceLine>
|
|
<SourceLine>Disconnect( GetTypeInfo(BKS_ActiveRecord.Base) )</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Disconnect</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Disconnect(ty as Introspection.TypeInfo)</SourceLine>
|
|
<SourceLine>'Disconnect a specific active record class from the database</SourceLine>
|
|
<SourceLine>if ty=nil then</SourceLine>
|
|
<SourceLine>raise new NilObjectException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim ctx as BKS_ActiveRecord.P.Context = GetContext</SourceLine>
|
|
<SourceLine>ctx.ConnectionAdapter_Remove(ty)</SourceLine>
|
|
<SourceLine>#if RBVersion >= 2011.04</SourceLine>
|
|
<SourceLine>#if TargetWeb</SourceLine>
|
|
<SourceLine>if ctx.ConnectionAdapter_Count=0 then</SourceLine>
|
|
<SourceLine>'kill the context</SourceLine>
|
|
<SourceLine>dim lck as new BKS_ActiveRecord.P.ScopedLock(csCtx)</SourceLine>
|
|
<SourceLine>m_dictContext.Remove(Session.Identifier)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>ty as Introspection.TypeInfo</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Field</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Field(sFieldName as string) As BKS_ActiveRecord.FieldOpt</SourceLine>
|
|
<SourceLine>return new FieldOpt(sFieldName)</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>sFieldName as string</ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.FieldOpt</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindFieldProperty</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function FindFieldProperty(tyClass as Introspection.TypeInfo, sField as string) As Introspection.PropertyInfo</SourceLine>
|
|
<SourceLine>dim iPrefixType as integer = 0 //Created By ARGen</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>static arsAllowPrefix() as string = Array("dt", "s", "d", "b", "i", "i64", "c", "s") //Created By ARGen</SourceLine>
|
|
<SourceLine>static arsAllowSuffix() as string = Array("_dt", "_s", "_d", "_b", "_i", "_i64", "_c", "_s") //Created By ARGen</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'Match the field to a property of the class.</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>select case iPrefixType</SourceLine>
|
|
<SourceLine>case 0 </SourceLine>
|
|
<SourceLine>//No prefix/Suffix</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for each pi as Introspection.PropertyInfo in tyClass.GetProperties</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if pi.Name = sField then</SourceLine>
|
|
<SourceLine>return pi 'accept exact match</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>case 1 </SourceLine>
|
|
<SourceLine>//Prefix</SourceLine>
|
|
<SourceLine>for each pi as Introspection.PropertyInfo in tyClass.GetProperties</SourceLine>
|
|
<SourceLine>if pi.Name.Right(sField.Len) = sField then</SourceLine>
|
|
<SourceLine>'check for a prefix match</SourceLine>
|
|
<SourceLine>dim sPrefix as string = pi.Name.Mid(1, pi.Name.Len - sField.Len)</SourceLine>
|
|
<SourceLine>if arsAllowPrefix.IndexOf(sPrefix) >-1 then</SourceLine>
|
|
<SourceLine>return pi</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>case 2 </SourceLine>
|
|
<SourceLine>//Suffix</SourceLine>
|
|
<SourceLine>for each pi as Introspection.PropertyInfo in tyClass.GetProperties</SourceLine>
|
|
<SourceLine>if pi.name.left(sField.Len) = sField then</SourceLine>
|
|
<SourceLine>'Check for suffix match</SourceLine>
|
|
<SourceLine>dim sSuffix as string = pi.Name.Right(pi.Name.Len - sField.Len)</SourceLine>
|
|
<SourceLine>if arsAllowSuffix.IndexOf(sSuffix) > -1 then</SourceLine>
|
|
<SourceLine>return pi</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>case else</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>tyClass as Introspection.TypeInfo, sField as string</ItemParams>
|
|
<ItemResult>Introspection.PropertyInfo</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindMatchingTable</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function FindMatchingTable(adp as BKS_ActiveRecord.DatabaseAdapter, sClassName as string) As string</SourceLine>
|
|
<SourceLine>dim sTable as string = sClassName</SourceLine>
|
|
<SourceLine>if adp.HasTable( sTable ) then</SourceLine>
|
|
<SourceLine>return sTable</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>sTable = "tbl" + sClassName</SourceLine>
|
|
<SourceLine>if adp.HasTable( sTable ) then</SourceLine>
|
|
<SourceLine>return sTable</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'if the class is clsSomething, look for Something and tblSomething</SourceLine>
|
|
<SourceLine>'but not if the letter after cls is lowercase</SourceLine>
|
|
<SourceLine>dim sFourth as string = Mid(sClassName,4,1)</SourceLine>
|
|
<SourceLine>if Left( sClassName, 3 ) = "cls" and _</SourceLine>
|
|
<SourceLine>StrComp( sFourth, "A", 0 ) >= 0 and _</SourceLine>
|
|
<SourceLine>StrComp( sFourth, "Z", 0 ) <=0 then</SourceLine>
|
|
<SourceLine>sTable = sClassName.Mid(4)</SourceLine>
|
|
<SourceLine>if adp.HasTable( sTable ) then</SourceLine>
|
|
<SourceLine>return sTable</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>sTable = "tbl" + sTable</SourceLine>
|
|
<SourceLine>if adp.HasTable( sTable ) then</SourceLine>
|
|
<SourceLine>return sTable</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return ""</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>adp as BKS_ActiveRecord.DatabaseAdapter, sClassName as string</ItemParams>
|
|
<ItemResult>string</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetContext</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetContext() As BKS_ActiveRecord.P.Context</SourceLine>
|
|
<SourceLine>if m_ctxDefault is nil then</SourceLine>
|
|
<SourceLine>m_ctxDefault = new BKS_ActiveRecord.P.Context</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if RBVersion >= 2011.04</SourceLine>
|
|
<SourceLine>#if TargetWeb</SourceLine>
|
|
<SourceLine>if not Session.Available then</SourceLine>
|
|
<SourceLine>return m_ctxDefault</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim lck as new BKS_ActiveRecord.P.ScopedLock(csCtx)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if m_dictContext=nil then</SourceLine>
|
|
<SourceLine>m_dictContext = new Dictionary</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if not m_dictContext.HasKey(Session.Identifier) then</SourceLine>
|
|
<SourceLine>m_dictContext.Value(Session.Identifier) = new BKS_ActiveRecord.P.Context</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>return m_dictContext.Value(Session.Identifier)</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return m_ctxDefault</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.P.Context</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetTableDefs</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetTableDefs() As BKS_ActiveRecord.TableDef()</SourceLine>
|
|
<SourceLine>dim aroTableDef() as BKS_ActiveRecord.TableDef</SourceLine>
|
|
<SourceLine>for each oTableInfo as BKS_ActiveRecord.P.TableInfo in GetContext.TableInfo_List</SourceLine>
|
|
<SourceLine>dim aro() as BKS_ActiveRecord.FieldDef</SourceLine>
|
|
<SourceLine>for each oFieldInfo as BKS_ActiveRecord.P.FieldInfo in oTableInfo.aroField</SourceLine>
|
|
<SourceLine>dim o as new BKS_ActiveRecord.FieldDef( _</SourceLine>
|
|
<SourceLine>oFieldInfo.sFieldName, oFieldInfo.enFieldType, _</SourceLine>
|
|
<SourceLine>oFieldInfo.bPrimaryKey, oFieldInfo.bForeignKey)</SourceLine>
|
|
<SourceLine>aro.Append(o)</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine>dim oTableDef as new BKS_ActiveRecord.TableDef(oTableInfo.sTableName, oTableInfo.sPrimaryKey, aro)</SourceLine>
|
|
<SourceLine>aroTableDef.Append(oTableDef)</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine>return aroTableDef</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.TableDef()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetTableInfo</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetTableInfo(ty as Introspection.TypeInfo) As BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>'check the info cache and return the mapping if it exists</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo = GetContext.TableInfo_Get(ty)</SourceLine>
|
|
<SourceLine>if oTableInfo<>nil then</SourceLine>
|
|
<SourceLine>return oTableInfo</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'try to map the class to a table by name</SourceLine>
|
|
<SourceLine>dim adp as BKS_ActiveRecord.DatabaseAdapter = GetContext.ConnectionAdapter_Get( ty )</SourceLine>
|
|
<SourceLine>if adp<>nil then</SourceLine>
|
|
<SourceLine>dim sTable as string</SourceLine>
|
|
<SourceLine>sTable = FindMatchingTable( adp, ty.Name )</SourceLine>
|
|
<SourceLine>if sTable<>"" then</SourceLine>
|
|
<SourceLine>Table adp.Db, sTable, ty</SourceLine>
|
|
<SourceLine>return GetContext.TableInfo_Get(ty)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'table not registered and not found by name</SourceLine>
|
|
<SourceLine>dim ex as RuntimeException</SourceLine>
|
|
<SourceLine>ex.Message = "Class does not have a table registered for it: " + ty.FullName</SourceLine>
|
|
<SourceLine>raise ex</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>ty as Introspection.TypeInfo</ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.P.TableInfo</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetTypeConstructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetTypeConstructor(oTableInfo as BKS_ActiveRecord.P.TableInfo) As Introspection.ConstructorInfo</SourceLine>
|
|
<SourceLine>dim oConstructor as Introspection.ConstructorInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for each o as Introspection.ConstructorInfo in oTableInfo.tyClass.GetConstructors</SourceLine>
|
|
<SourceLine>dim aroParam() as Introspection.ParameterInfo = o.GetParameters</SourceLine>
|
|
<SourceLine>if aroParam.Ubound = 0 then</SourceLine>
|
|
<SourceLine>if aroParam(0).ParameterType.FullName = "RecordSet" then</SourceLine>
|
|
<SourceLine>oConstructor = o</SourceLine>
|
|
<SourceLine>exit for</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return oConstructor</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oTableInfo as BKS_ActiveRecord.P.TableInfo</ItemParams>
|
|
<ItemResult>Introspection.ConstructorInfo</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>MapFieldInfo</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function MapFieldInfo(tyClass as Introspection.TypeInfo, rs as RecordSet, aroFieldOpt() as FieldOpt) As BKS_ActiveRecord.P.FieldInfo</SourceLine>
|
|
<SourceLine>' static arsAllowPrefix() as string = Array("m_", "m_id","i","s","dtm","dt","b","d","v","pict")</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim sField as string = rs.Field("ColumnName").StringValue</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'extract the field option if one was passed in for this field</SourceLine>
|
|
<SourceLine>dim oFieldOpt as FieldOpt</SourceLine>
|
|
<SourceLine>for each o as FieldOpt in aroFieldOpt</SourceLine>
|
|
<SourceLine>if o.FieldName=sField then</SourceLine>
|
|
<SourceLine>oFieldOpt = o</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if oFieldOpt<>nil and oFieldOpt.IsIgnored then</SourceLine>
|
|
<SourceLine>return nil 'ignore this field</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'Find the database field type</SourceLine>
|
|
<SourceLine>dim enFieldType as DbType</SourceLine>
|
|
<SourceLine>dim iFieldType as integer = rs.Field("FieldType").IntegerValue</SourceLine>
|
|
<SourceLine>select case iFieldType</SourceLine>
|
|
<SourceLine>case 2 'smallint</SourceLine>
|
|
<SourceLine>enFieldType = DbType.DSmallInt</SourceLine>
|
|
<SourceLine>case 3 'integer</SourceLine>
|
|
<SourceLine>enFieldType = DbType.DInteger</SourceLine>
|
|
<SourceLine>case 5 'text or varchar</SourceLine>
|
|
<SourceLine>enFieldType = DbType.DText</SourceLine>
|
|
<SourceLine>case 6 'float</SourceLine>
|
|
<SourceLine>enFieldType = DbType.DFloat</SourceLine>
|
|
<SourceLine>case 7 'double</SourceLine>
|
|
<SourceLine>enFieldType = DbType.DDouble</SourceLine>
|
|
<SourceLine>case 8 'date</SourceLine>
|
|
<SourceLine>enFieldType = DbType.DDate</SourceLine>
|
|
<SourceLine>case 9 'time</SourceLine>
|
|
<SourceLine>enFieldType = DbType.DTime</SourceLine>
|
|
<SourceLine>case 10 'timestamp</SourceLine>
|
|
<SourceLine>enFieldType = DbType.DTimestamp</SourceLine>
|
|
<SourceLine>case 12 'boolean</SourceLine>
|
|
<SourceLine>enFieldType = DbType.DBoolean</SourceLine>
|
|
<SourceLine>case 14 'binary</SourceLine>
|
|
<SourceLine>enFieldType = DbType.DBlob</SourceLine>
|
|
<SourceLine>case 19 'int64</SourceLine>
|
|
<SourceLine>enFieldType = DbType.DInt64</SourceLine>
|
|
<SourceLine>case else</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>end select</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'Match the field to a property of the class.</SourceLine>
|
|
<SourceLine>' Properties are named with a prefix: <prefix>FieldName = FieldName</SourceLine>
|
|
<SourceLine>dim piFound as Introspection.PropertyInfo</SourceLine>
|
|
<SourceLine>piFound = FindFieldProperty(tyClass, sField)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if piFound=nil then</SourceLine>
|
|
<SourceLine>BKS_Debug.Assert( false, "No property for field: " + sField )</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim oFieldInfo as new BKS_ActiveRecord.P.FieldInfo(sField, piFound)</SourceLine>
|
|
<SourceLine>oFieldInfo.enFieldType = enFieldType</SourceLine>
|
|
<SourceLine>if rs.Field("IsPrimary") then</SourceLine>
|
|
<SourceLine>oFieldInfo.bPrimaryKey = true</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>if oFieldOpt=nil then</SourceLine>
|
|
<SourceLine>if sField.Left(2) = "id" or sField.Left(4) = "m_id" then</SourceLine>
|
|
<SourceLine>oFieldInfo.bForeignKey = true</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>oFieldInfo.bForeignKey = oFieldOpt.IsForeignKey</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return oFieldInfo</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>tyClass as Introspection.TypeInfo, rs as RecordSet, aroFieldOpt() as FieldOpt</ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.P.FieldInfo</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>MapTableInfo</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function MapTableInfo(db as Database, sTable as string, tyClass as Introspection.TypeInfo, aroFieldOpt() as FieldOpt) As BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>'Map fields in the database to properties on the class and</SourceLine>
|
|
<SourceLine>'return a list of <field> : <propertyInfo> pairs.</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>' dim pi as Introspection.Propertyinfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>oTableInfo = new BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>oTableInfo.tyClass = tyClass</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim rs as RecordSet = Db.FieldSchema(sTable)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>BKS_Debug.Assert(rs.EOF=false, "Table not found: " + sTable)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oFieldInfo as BKS_ActiveRecord.P.FieldInfo</SourceLine>
|
|
<SourceLine>oFieldInfo = MapFieldInfo(tyClass, rs, aroFieldOpt)</SourceLine>
|
|
<SourceLine>if oFieldInfo<>nil then</SourceLine>
|
|
<SourceLine>if oFieldInfo.bPrimaryKey then</SourceLine>
|
|
<SourceLine>oTableInfo.sPrimaryKey = oFieldInfo.sFieldName</SourceLine>
|
|
<SourceLine>oTableInfo.piPrimaryKey = oFieldInfo.piFieldProperty</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>oTableInfo.aroField.Append(oFieldInfo)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>BKS_Debug.Assert(oTableInfo.sPrimaryKey<>"", "The table needs to have a primary key")</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>oTableInfo.sTableName = sTable</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return oTableInfo</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>db as Database, sTable as string, tyClass as Introspection.TypeInfo, aroFieldOpt() as FieldOpt</ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.P.TableInfo</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>MapTableInfo</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function MapTableInfo(tyClass as Introspection.TypeInfo, oTableDef as BKS_ActiveRecord.TableDef) As BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>'Map fields in the database to properties on the class and</SourceLine>
|
|
<SourceLine>'return a list of <field> : <propertyInfo> pairs.</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>' dim pi as Introspection.Propertyinfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>oTableInfo = new BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>oTableInfo.sTableName = oTableDef.sTableName</SourceLine>
|
|
<SourceLine>oTableInfo.sPrimaryKey = oTableDef.sPrimaryKey</SourceLine>
|
|
<SourceLine>oTableInfo.piPrimaryKey = FindFieldProperty(tyClass, oTableInfo.sPrimaryKey)</SourceLine>
|
|
<SourceLine>if oTableInfo.piPrimaryKey=nil then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>oTableInfo.tyClass = tyClass</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for each oFieldDef as BKS_ActiveRecord.FieldDef in oTableDef.aroField</SourceLine>
|
|
<SourceLine>dim oFieldInfo as new BKS_ActiveRecord.P.FieldInfo( _</SourceLine>
|
|
<SourceLine>oFieldDef.sFieldName, _</SourceLine>
|
|
<SourceLine>FindFieldProperty(tyClass, oFieldDef.sFieldName))</SourceLine>
|
|
<SourceLine>oFieldInfo.bPrimaryKey = oFieldDef.IsPrimaryKey</SourceLine>
|
|
<SourceLine>oFieldInfo.bForeignKey = oFieldDef.IsForeignKey</SourceLine>
|
|
<SourceLine>oFieldInfo.enFieldType = oFieldDef.enFieldType</SourceLine>
|
|
<SourceLine>if oFieldInfo.piFieldProperty=nil then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>oTableInfo.aroField.Append(oFieldInfo)</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return oTableInfo</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>tyClass as Introspection.TypeInfo, oTableDef as BKS_ActiveRecord.TableDef</ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.P.TableInfo</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Query</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Query(ty as Introspection.TypeInfo, sCriteria as string = "", sOrder as string = "") As Variant()</SourceLine>
|
|
<SourceLine>dim adp as BKS_ActiveRecord.DatabaseAdapter</SourceLine>
|
|
<SourceLine>adp = GetContext.ConnectionAdapter_Get( ty )</SourceLine>
|
|
<SourceLine>if adp=nil then</SourceLine>
|
|
<SourceLine>raise new RuntimeException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if not ty.IsSubclassOf( GetTypeInfo( Base ) ) then</SourceLine>
|
|
<SourceLine>dim ex as new RuntimeException</SourceLine>
|
|
<SourceLine>ex.Message = "Invalid type"</SourceLine>
|
|
<SourceLine>raise ex</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim aro() as Variant</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo = GetTableInfo( ty )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim oConstructor as Introspection.ConstructorInfo</SourceLine>
|
|
<SourceLine>oConstructor = GetTypeConstructor(oTableInfo)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim rs as RecordSet</SourceLine>
|
|
<SourceLine>rs = adp.SelectList(oTableInfo.sTableName, sCriteria, sOrder)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim arv() as Variant</SourceLine>
|
|
<SourceLine>arv.Append(rs)</SourceLine>
|
|
<SourceLine>dim oBase as Base = oConstructor.Invoke(arv)</SourceLine>
|
|
<SourceLine>aro.Append( oBase )</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return aro</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>ty as Introspection.TypeInfo, sCriteria as string = "", sOrder as string = ""</ItemParams>
|
|
<ItemResult>Variant()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>QueryRecordset</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function QueryRecordset(ty as Introspection.TypeInfo, sql as String) As RecordSet</SourceLine>
|
|
<SourceLine>dim adp as BKS_ActiveRecord.DatabaseAdapter</SourceLine>
|
|
<SourceLine>adp = GetContext.ConnectionAdapter_Get( ty )</SourceLine>
|
|
<SourceLine>if adp=nil then</SourceLine>
|
|
<SourceLine>raise new RuntimeException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if not ty.IsSubclassOf( GetTypeInfo( Base ) ) then</SourceLine>
|
|
<SourceLine>dim ex as new RuntimeException</SourceLine>
|
|
<SourceLine>ex.Message = "Invalid type"</SourceLine>
|
|
<SourceLine>raise ex</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return adp.SQLSelect(sql)</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>ty as Introspection.TypeInfo, sql as String</ItemParams>
|
|
<ItemResult>RecordSet</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>stringFromDbType</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function stringFromDbType(enDbType as BKS_ActiveRecord.DbType) As string</SourceLine>
|
|
<SourceLine>select case enDbType</SourceLine>
|
|
<SourceLine>case DbType.DInteger</SourceLine>
|
|
<SourceLine>return "DInteger"</SourceLine>
|
|
<SourceLine>case DbType.DSmallInt</SourceLine>
|
|
<SourceLine>return "DSmallInt"</SourceLine>
|
|
<SourceLine>case DbType.DDouble</SourceLine>
|
|
<SourceLine>return "DDouble"</SourceLine>
|
|
<SourceLine>case DbType.DDate</SourceLine>
|
|
<SourceLine>return "DDate"</SourceLine>
|
|
<SourceLine>case DbType.DTime</SourceLine>
|
|
<SourceLine>return "DTime"</SourceLine>
|
|
<SourceLine>case DbType.DTimestamp</SourceLine>
|
|
<SourceLine>return "DTimestamp"</SourceLine>
|
|
<SourceLine>case DbType.DBoolean</SourceLine>
|
|
<SourceLine>return "DBoolean"</SourceLine>
|
|
<SourceLine>case DbType.DBlob</SourceLine>
|
|
<SourceLine>return "DBlob"</SourceLine>
|
|
<SourceLine>case DbType.DText</SourceLine>
|
|
<SourceLine>return "DText"</SourceLine>
|
|
<SourceLine>case DbType.DInt64</SourceLine>
|
|
<SourceLine>return "DInt64"</SourceLine>
|
|
<SourceLine>case DbType.DFloat</SourceLine>
|
|
<SourceLine>return "DFloat"</SourceLine>
|
|
<SourceLine>case else</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>end select</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>enDbType as BKS_ActiveRecord.DbType</ItemParams>
|
|
<ItemResult>string</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Table</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Table(db as Database, sTable as string, tyClass as Introspection.TypeInfo, ParamArray aroFieldOpt() as FieldOpt)</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'Record the mapping between the type and the table.</SourceLine>
|
|
<SourceLine>oTableInfo = BKS_ActiveRecord.MapTableInfo( db, sTable, tyClass, aroFieldOpt )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>GetContext.TableInfo_Set(tyClass, oTableInfo)</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>db as Database, sTable as string, tyClass as Introspection.TypeInfo, ParamArray aroFieldOpt() as FieldOpt</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Table</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Table(tyClass as Introspection.TypeInfo, oTableDef as BKS_ActiveRecord.TableDef)</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'Record the mapping between the type and the table.</SourceLine>
|
|
<SourceLine>oTableInfo = BKS_ActiveRecord.MapTableInfo(tyClass, oTableDef)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>GetContext.TableInfo_Set(tyClass, oTableInfo)</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>tyClass as Introspection.TypeInfo, oTableDef as BKS_ActiveRecord.TableDef</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>csCtx</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>csCtx As CriticalSection</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>csCtx As CriticalSection</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<SetAccessor>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Set</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>End Set</SourceLine>
|
|
</SetAccessor>
|
|
<GetAccessor>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Get</SourceLine>
|
|
<SourceLine>if m_csCtx=nil then</SourceLine>
|
|
<SourceLine>'Mutexes work on Mac and Linux but not Windows.</SourceLine>
|
|
<SourceLine>'CriticalSections work on Windows but not Mac.</SourceLine>
|
|
<SourceLine>'(Verified as of 2011 R4.1)</SourceLine>
|
|
<SourceLine>#if TargetWin32</SourceLine>
|
|
<SourceLine>m_csCtx = new CriticalSection</SourceLine>
|
|
<SourceLine>#else</SourceLine>
|
|
<SourceLine>m_csCtx = new Mutex("")</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>return m_csCtx</SourceLine>
|
|
<SourceLine>End Get</SourceLine>
|
|
</GetAccessor>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>m_csCtx</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_csCtx As CriticalSection</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_csCtx As CriticalSection</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>m_ctxDefault</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_ctxDefault As BKS_ActiveRecord.P.Context</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_ctxDefault As BKS_ActiveRecord.P.Context</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>m_dictContext</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_dictContext As Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_dictContext As Dictionary</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
<Constant>
|
|
<ItemName>kDoubleNullSentinal</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemName>kDoubleNullSentinal</ItemName>
|
|
<ItemType>2</ItemType>
|
|
<ItemDef>1.7E+308</ItemDef>
|
|
<ItemFlags>1</ItemFlags>
|
|
</Constant>
|
|
<Enumeration>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemName>DbType</ItemName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<ItemType>Integer</ItemType>
|
|
<ItemName>DbType</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>DInteger</SourceLine>
|
|
<SourceLine>DSmallInt</SourceLine>
|
|
<SourceLine>DDouble</SourceLine>
|
|
<SourceLine>DDate</SourceLine>
|
|
<SourceLine>DTime</SourceLine>
|
|
<SourceLine>DTimestamp</SourceLine>
|
|
<SourceLine>DBoolean</SourceLine>
|
|
<SourceLine>DBlob</SourceLine>
|
|
<SourceLine>DText</SourceLine>
|
|
<SourceLine>DInt64</SourceLine>
|
|
<SourceLine>DFloat</SourceLine>
|
|
</ItemSource>
|
|
</Enumeration>
|
|
</block>
|
|
<block type="Module" ID="1072333800">
|
|
<ObjName>P</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>0</IsClass>
|
|
<ItemFlags>2</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="1031427782">
|
|
<ObjName>Context</ObjName>
|
|
<ObjContainerID>1072333800</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>ConnectionAdapter_Count</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function ConnectionAdapter_Count() As Integer</SourceLine>
|
|
<SourceLine>dim lck as new BKS_ActiveRecord.P.ScopedLock(m_cs)</SourceLine>
|
|
<SourceLine>#pragma unused lck</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if m_dictTypeDb=nil then</SourceLine>
|
|
<SourceLine>return 0</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>return m_dictTypeDb.Count</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Integer</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>ConnectionAdapter_Get</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function ConnectionAdapter_Get(ty as Introspection.TypeInfo) As DatabaseAdapter</SourceLine>
|
|
<SourceLine>'Start with this class and search the hash table in BKS_ActiveRecord for</SourceLine>
|
|
<SourceLine>'a database to use.</SourceLine>
|
|
<SourceLine>dim lck as new BKS_ActiveRecord.P.ScopedLock(m_cs)</SourceLine>
|
|
<SourceLine>dim adp as BKS_ActiveRecord.DatabaseAdapter</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if m_dictTypeDb=nil then</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'start with the given type and walk up the inheritance chain</SourceLine>
|
|
<SourceLine>'looking for a databsae connection</SourceLine>
|
|
<SourceLine>while ty<>nil</SourceLine>
|
|
<SourceLine>adp = m_dictTypeDb.Lookup(ty.FullName, nil )</SourceLine>
|
|
<SourceLine>if adp<>nil then</SourceLine>
|
|
<SourceLine>exit while</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>ty = ty.BaseType</SourceLine>
|
|
<SourceLine>wend</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return adp</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>ty as Introspection.TypeInfo</ItemParams>
|
|
<ItemResult>DatabaseAdapter</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>ConnectionAdapter_Remove</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub ConnectionAdapter_Remove(ty as Introspection.TypeInfo)</SourceLine>
|
|
<SourceLine>'Disconnect a specific active record class from the database</SourceLine>
|
|
<SourceLine>if ty=nil then</SourceLine>
|
|
<SourceLine>raise new NilObjectException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if not ty.IsSubclassOf( GetTypeInfo(BKS_ActiveRecord.Base) ) then</SourceLine>
|
|
<SourceLine>raise new ActiveRecordException("Invalid type. Expected a subclass of BKS_ActiveRecord.Base")</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim lck as new BKS_ActiveRecord.P.ScopedLock(m_cs)</SourceLine>
|
|
<SourceLine>if m_dictTypeDb<>nil then</SourceLine>
|
|
<SourceLine>m_dictTypeDb.Remove(ty.FullName)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>ty as Introspection.TypeInfo</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>ConnectionAdapter_Set</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub ConnectionAdapter_Set(ty as Introspection.TypeInfo, adp as BKS_ActiveRecord.DatabaseAdapter)</SourceLine>
|
|
<SourceLine>'Connect a specific active record class and all of its subclasses to a database</SourceLine>
|
|
<SourceLine>if ty=nil or adp=nil then</SourceLine>
|
|
<SourceLine>raise new NilObjectException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if not ty.IsSubclassOf( GetTypeInfo(BKS_ActiveRecord.Base) ) then</SourceLine>
|
|
<SourceLine>raise new ActiveRecordException("Invalid type. Expected a subclass of BKS_ActiveRecord.Base")</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'add the database using the full type name of the type as a key</SourceLine>
|
|
<SourceLine>'Base will use this to find the appropriate adapter.</SourceLine>
|
|
<SourceLine>dim lck as new BKS_ActiveRecord.P.ScopedLock(m_cs)</SourceLine>
|
|
<SourceLine>if m_dictTypeDb=nil then</SourceLine>
|
|
<SourceLine>m_dictTypeDb = new Dictionary</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_dictTypeDb.Value(ty.FullName) = adp</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>ty as Introspection.TypeInfo, adp as BKS_ActiveRecord.DatabaseAdapter</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor()</SourceLine>
|
|
<SourceLine>'Mutexes work on Mac and Linux but not Windows.</SourceLine>
|
|
<SourceLine>'CriticalSections work on Windows but not Mac.</SourceLine>
|
|
<SourceLine>'(Verified as of 2011 R4.1)</SourceLine>
|
|
<SourceLine>#if TargetWin32</SourceLine>
|
|
<SourceLine>m_cs = new CriticalSection</SourceLine>
|
|
<SourceLine>#else</SourceLine>
|
|
<SourceLine>m_cs = new Mutex("")</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>TableInfo_Get</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function TableInfo_Get(ty as Introspection.TypeInfo) As BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>dim lck as new BKS_ActiveRecord.P.ScopedLock(m_cs)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'check the info cache and return the mapping if it exists</SourceLine>
|
|
<SourceLine>if m_dictTypeTableInfo=nil then</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return m_dictTypeTableInfo.Lookup(ty.FullName, nil)</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>ty as Introspection.TypeInfo</ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.P.TableInfo</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>TableInfo_List</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function TableInfo_List() As BKS_ActiveRecord.P.TableInfo()</SourceLine>
|
|
<SourceLine>dim lck as new BKS_ActiveRecord.P.ScopedLock(m_cs)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'check the info cache and return the mapping if it exists</SourceLine>
|
|
<SourceLine>dim aro() as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>if m_dictTypeTableInfo=nil then</SourceLine>
|
|
<SourceLine>return aro</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for each sKey as string in m_dictTypeTableInfo.Keys</SourceLine>
|
|
<SourceLine>dim o as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>o = m_dictTypeTableInfo.Value(sKey)</SourceLine>
|
|
<SourceLine>aro.Append(o)</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine>return aro</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.P.TableInfo()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>TableInfo_Set</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub TableInfo_Set(ty as Introspection.TypeInfo, oTableInfo as BKS_ActiveRecord.P.TableInfo)</SourceLine>
|
|
<SourceLine>dim lck as new BKS_ActiveRecord.P.ScopedLock(m_cs)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if m_dictTypeTableInfo=nil then</SourceLine>
|
|
<SourceLine>m_dictTypeTableInfo = new Dictionary</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_dictTypeTableInfo.Value(ty.FullName) = oTableInfo</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>ty as Introspection.TypeInfo, oTableInfo as BKS_ActiveRecord.P.TableInfo</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>m_cs</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_cs As CriticalSection</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_cs As CriticalSection</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>m_dictTypeDb</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_dictTypeDb As Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_dictTypeDb As Dictionary</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>m_dictTypeTableInfo</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_dictTypeTableInfo As Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_dictTypeTableInfo As Dictionary</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="718750296">
|
|
<ObjName>ScopedLock</ObjName>
|
|
<ObjContainerID>1072333800</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(cs as CriticalSection)</SourceLine>
|
|
<SourceLine>if cs is nil then</SourceLine>
|
|
<SourceLine>raise new ActiveRecordException("Lock is set to Nil")</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_cs = cs</SourceLine>
|
|
<SourceLine>m_cs.Enter</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>cs as CriticalSection</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Destructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Destructor()</SourceLine>
|
|
<SourceLine>m_cs.Leave</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Note>
|
|
<ItemName>Overview</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<NoteLine>Overview</NoteLine>
|
|
<NoteLine>The Constructor for this class accepts a CriticalSection and immediately calls the Enter method.</NoteLine>
|
|
<NoteLine>The Destructor calls Leave.</NoteLine>
|
|
<NoteLine></NoteLine>
|
|
<NoteLine>You can use this class to hold a lock for the duration of the object's life. For example, if you</NoteLine>
|
|
<NoteLine>create it at the beginning of a method than the lock will be held until the method is complete.</NoteLine>
|
|
<NoteLine>The advantage of this is that the object will be destroyed regardless of how the method ends,</NoteLine>
|
|
<NoteLine>via a return statement or an exception or whatever.</NoteLine>
|
|
</ItemSource>
|
|
<ItemFlags>0</ItemFlags>
|
|
</Note>
|
|
<Property>
|
|
<ItemName>m_cs</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_cs As CriticalSection</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_cs As CriticalSection</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="440727303">
|
|
<ObjName>FieldInfo</ObjName>
|
|
<ObjContainerID>1072333800</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(sField as string, pi as Introspection.PropertyInfo)</SourceLine>
|
|
<SourceLine>self.sFieldName = sField</SourceLine>
|
|
<SourceLine>self.piFieldProperty = pi</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>sField as string, pi as Introspection.PropertyInfo</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>IsKey</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function IsKey() As Boolean</SourceLine>
|
|
<SourceLine>return (bForeignKey or bPrimaryKey)</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Boolean</ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>bForeignKey</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bForeignKey As boolean</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bForeignKey As boolean</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bPrimaryKey</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bPrimaryKey As boolean</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bPrimaryKey As boolean</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>enFieldType</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>enFieldType As BKS_ActiveRecord.DbType</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>enFieldType As BKS_ActiveRecord.DbType</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>piFieldProperty</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>piFieldProperty As Introspection.PropertyInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>piFieldProperty As Introspection.PropertyInfo</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sFieldName</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sFieldName As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sFieldName As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>bForeignKey</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>boolean</ItemType>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>bPrimaryKey</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>boolean</ItemType>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>sFieldName</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>String</ItemType>
|
|
<EditorType>MultiLineEditor</EditorType>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="632699824">
|
|
<ObjName>TableInfo</ObjName>
|
|
<ObjContainerID>1072333800</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>aroField()</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>aroField() As BKS_ActiveRecord.P.FieldInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>aroField() As BKS_ActiveRecord.P.FieldInfo</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>piPrimaryKey</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>piPrimaryKey As Introspection.PropertyInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>piPrimaryKey As Introspection.PropertyInfo</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sPrimaryKey</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sPrimaryKey As string</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sPrimaryKey As string</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sTableName</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sTableName As string</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sTableName As string</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>tyClass</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>tyClass As Introspection.TypeInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>tyClass As Introspection.TypeInfo</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>sPrimaryKey</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>string</ItemType>
|
|
<EditorType>MultiLineEditor</EditorType>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>sTableName</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>string</ItemType>
|
|
<EditorType>MultiLineEditor</EditorType>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="1594422477">
|
|
<ObjName>Base</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Clone</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Clone() As Variant</SourceLine>
|
|
<SourceLine>dim ty as Introspection.TypeInfo = Introspection.GetType( self )</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo = GetTableInfo( ty )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim oSuperConstructor as Introspection.ConstructorInfo</SourceLine>
|
|
<SourceLine>dim oCopyConstructor as Introspection.ConstructorInfo</SourceLine>
|
|
<SourceLine>dim oDefaultConstructor as Introspection.ConstructorInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'Look for three types of constructors (lowest priority first):</SourceLine>
|
|
<SourceLine>' (1) Default constructors (i.e. no parameters)</SourceLine>
|
|
<SourceLine>' (2) Constructors that take a parameter of which self's class is a subtype</SourceLine>
|
|
<SourceLine>' (3) Constructors that take a parameter which matches this class type</SourceLine>
|
|
<SourceLine>'</SourceLine>
|
|
<SourceLine>'For example if there's a class call User derived like this:</SourceLine>
|
|
<SourceLine>' BKS_ActiveRecord.Base -> clsActiveRecord -> User</SourceLine>
|
|
<SourceLine>'Then the program will look for constructors like the following:</SourceLine>
|
|
<SourceLine>' (1) Constructor()</SourceLine>
|
|
<SourceLine>' (2) Constructor(BKS_ActiveRecord.Base)</SourceLine>
|
|
<SourceLine>' (3) Constructor(clsActiveRecord)</SourceLine>
|
|
<SourceLine>' (4) Constructor(User)</SourceLine>
|
|
<SourceLine>'If it finds more than one it will use the one that's farthest down the list.</SourceLine>
|
|
<SourceLine>'The point of this is to give users a way of customizing how their objects</SourceLine>
|
|
<SourceLine>'get cloned, all they need to do is add the appropriate constructor</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for each o as Introspection.ConstructorInfo in ty.GetConstructors</SourceLine>
|
|
<SourceLine>dim aroParam() as Introspection.ParameterInfo</SourceLine>
|
|
<SourceLine>aroParam = o.GetParameters</SourceLine>
|
|
<SourceLine>if aroParam.Ubound < 0 then</SourceLine>
|
|
<SourceLine>'default constructor</SourceLine>
|
|
<SourceLine>oDefaultConstructor = o</SourceLine>
|
|
<SourceLine>elseif aroParam.Ubound=0 and _</SourceLine>
|
|
<SourceLine>ty.IsSubclassOf( aroParam(0).ParameterType ) then</SourceLine>
|
|
<SourceLine>'copy constructor that takes a super class</SourceLine>
|
|
<SourceLine>if oSuperConstructor=nil then</SourceLine>
|
|
<SourceLine>oSuperConstructor = o</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>dim aroCurrentParam() as Introspection.ParameterInfo</SourceLine>
|
|
<SourceLine>aroCurrentParam = oSuperConstructor.GetParameters</SourceLine>
|
|
<SourceLine>if aroParam(0).ParameterType.IsSubclassOf( aroCurrentParam(0).ParameterType ) then</SourceLine>
|
|
<SourceLine>'if the parameter type of this constructor is derived from the parameter type</SourceLine>
|
|
<SourceLine>'of the last one, then this one should have priority</SourceLine>
|
|
<SourceLine>oSuperConstructor = o</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>elseif aroParam.Ubound=0 and _</SourceLine>
|
|
<SourceLine>aroParam(0).ParameterType is ty then</SourceLine>
|
|
<SourceLine>'copy constructor that takes this class</SourceLine>
|
|
<SourceLine>oCopyConstructor = o</SourceLine>
|
|
<SourceLine>exit for</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'Create an instance using the constructor we found</SourceLine>
|
|
<SourceLine>dim oClone as Base</SourceLine>
|
|
<SourceLine>dim vSelf as Variant = self</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if oCopyConstructor<>nil then</SourceLine>
|
|
<SourceLine>oClone = oCopyConstructor.Invoke( Array(vSelf) )</SourceLine>
|
|
<SourceLine>elseif oSuperConstructor<>nil then</SourceLine>
|
|
<SourceLine>oClone = oSuperConstructor.Invoke( Array(vSelf) )</SourceLine>
|
|
<SourceLine>elseif oDefaultConstructor<>nil then</SourceLine>
|
|
<SourceLine>oClone = oDefaultConstructor.Invoke</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>'we should always be able to find a default constructor</SourceLine>
|
|
<SourceLine>BKS_Debug.Assert( false, _</SourceLine>
|
|
<SourceLine>"Class does not have a default constructor" )</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'Copy the properties into the new instance</SourceLine>
|
|
<SourceLine>for each oField as BKS_ActiveRecord.P.FieldInfo in oTableInfo.aroField</SourceLine>
|
|
<SourceLine>dim pi as Introspection.PropertyInfo = oField.piFieldProperty</SourceLine>
|
|
<SourceLine>if not (pi is oTableInfo.piPrimaryKey) then</SourceLine>
|
|
<SourceLine>'copy every saved property except the primary key</SourceLine>
|
|
<SourceLine>pi.Value(oClone) = pi.Value(self)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return oClone</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Variant</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor()</SourceLine>
|
|
<SourceLine>'Empty</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(rs as RecordSet)</SourceLine>
|
|
<SourceLine>ReadRecord(rs)</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>rs as RecordSet</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Db() As Database</SourceLine>
|
|
<SourceLine>return GetDatabaseAdapter.Db</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Database</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Delete</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Delete()</SourceLine>
|
|
<SourceLine>if self.IsNew then</SourceLine>
|
|
<SourceLine>return</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim adp as BKS_ActiveRecord.DatabaseAdapter = GetDatabaseAdapter</SourceLine>
|
|
<SourceLine>adp.BeginTransaction</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>BeforeDelete</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>adp.DeleteRecord( self )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>AfterDelete</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>adp.CommitTransaction</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>catch ex as RuntimeException</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>adp.RollbackTransaction</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>raise ex</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetDatabaseAdapter</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetDatabaseAdapter() As DatabaseAdapter</SourceLine>
|
|
<SourceLine>return GetContext.ConnectionAdapter_Get(Introspection.GetType(self))</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>DatabaseAdapter</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetTableName</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetTableName() As String</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(self) )</SourceLine>
|
|
<SourceLine>Return oTableInfo.sTableName</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>String</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>ID</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function ID() As Int64</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(self) )</SourceLine>
|
|
<SourceLine>return oTableInfo.piPrimaryKey.Value(self)</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Int64</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>ID</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub ID(assigns id as Int64)</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(self) )</SourceLine>
|
|
<SourceLine>oTableInfo.piPrimaryKey.Value(self) = id</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>assigns id as Int64</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>IsModified</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function IsModified() As boolean</SourceLine>
|
|
<SourceLine>return IsRecordModified</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>boolean</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>IsNew</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function IsNew() As boolean</SourceLine>
|
|
<SourceLine>return ID<=0</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>boolean</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>IsRecordModified</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function IsRecordModified() As boolean</SourceLine>
|
|
<SourceLine>dim bModified as boolean</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(self) )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for each oFieldInfo as BKS_ActiveRecord.P.FieldInfo in oTableInfo.aroField</SourceLine>
|
|
<SourceLine>dim pi as Introspection.PropertyInfo = oFieldInfo.piFieldProperty</SourceLine>
|
|
<SourceLine>dim vProperty as Variant = pi.Value( self )</SourceLine>
|
|
<SourceLine>dim vSavedValue as Variant</SourceLine>
|
|
<SourceLine>if m_dictSavedPropertyValue<>nil then</SourceLine>
|
|
<SourceLine>vSavedValue = m_dictSavedPropertyValue.Lookup(pi.Name, nil)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'cast the saved value so the type matches the property type</SourceLine>
|
|
<SourceLine>select case vProperty.Type</SourceLine>
|
|
<SourceLine>case Variant.TypeInteger</SourceLine>
|
|
<SourceLine>vSavedValue = vSavedValue.IntegerValue</SourceLine>
|
|
<SourceLine>case Variant.TypeLong</SourceLine>
|
|
<SourceLine>vSavedValue = vSavedValue.Int64Value</SourceLine>
|
|
<SourceLine>case Variant.TypeSingle</SourceLine>
|
|
<SourceLine>vSavedValue = vSavedValue.SingleValue</SourceLine>
|
|
<SourceLine>case Variant.TypeDouble</SourceLine>
|
|
<SourceLine>vSavedValue = vSavedValue.DoubleValue</SourceLine>
|
|
<SourceLine>case Variant.TypeCurrency</SourceLine>
|
|
<SourceLine>vSavedValue = vSavedValue.CurrencyValue</SourceLine>
|
|
<SourceLine>case Variant.TypeString</SourceLine>
|
|
<SourceLine>vSavedValue = vSavedValue.StringValue</SourceLine>
|
|
<SourceLine>case Variant.TypeBoolean</SourceLine>
|
|
<SourceLine>vSavedValue = vSavedValue.BooleanValue</SourceLine>
|
|
<SourceLine>case Variant.TypeColor</SourceLine>
|
|
<SourceLine>vSavedValue = vSavedValue.ColorValue</SourceLine>
|
|
<SourceLine>end select</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if vProperty.Type=Variant.TypeString then</SourceLine>
|
|
<SourceLine>'do a case sensitive compare for strings</SourceLine>
|
|
<SourceLine>if StrComp(vProperty.StringValue, vSavedValue.StringValue, 0)<>0 then</SourceLine>
|
|
<SourceLine>bModified = true</SourceLine>
|
|
<SourceLine>exit for</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>'use the default comparison operator for everything else</SourceLine>
|
|
<SourceLine>if vProperty<>vSavedValue then</SourceLine>
|
|
<SourceLine>bModified = true</SourceLine>
|
|
<SourceLine>exit for</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return bModified</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>boolean</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Load</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Load(iRecordID as Int64) As boolean</SourceLine>
|
|
<SourceLine>'Load record with the given ID. Return true if the record is found.</SourceLine>
|
|
<SourceLine>dim rs as RecordSet</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>rs = GetDatabaseAdapter.SelectRecord( self, iRecordID )</SourceLine>
|
|
<SourceLine>if rs.EOF then</SourceLine>
|
|
<SourceLine>return false</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>ReadRecord( rs )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return true</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>iRecordID as Int64</ItemParams>
|
|
<ItemResult>boolean</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Operator_Compare</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Operator_Compare(rhs as BKS_ActiveRecord.Base) As integer</SourceLine>
|
|
<SourceLine>if rhs is nil then</SourceLine>
|
|
<SourceLine>return 1</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'the two records are equal if they are actually the same object or</SourceLine>
|
|
<SourceLine>'if they're the same type and have the same ID (except if they're new).</SourceLine>
|
|
<SourceLine>if rhs is self or _</SourceLine>
|
|
<SourceLine>( Introspection.GetType(self)=Introspection.GetType(rhs) and _</SourceLine>
|
|
<SourceLine>rhs.ID=ID and not IsNew ) then</SourceLine>
|
|
<SourceLine>return 0</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'this ordering is arbitrary. Equality is really the case we're after.</SourceLine>
|
|
<SourceLine>if ID<rhs.ID then</SourceLine>
|
|
<SourceLine>return -1</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>return 1</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>rhs as BKS_ActiveRecord.Base</ItemParams>
|
|
<ItemResult>integer</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>ReadRecord</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub ReadRecord(rs as RecordSet)</SourceLine>
|
|
<SourceLine>'Read current record out of rs into properties</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(self) )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>ReadRecord( rs, oTableInfo, m_dictSavedPropertyValue )</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>rs as RecordSet</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>ReadRecord</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub ReadRecord(rs as RecordSet, oTableInfo as BKS_ActiveRecord.P.TableInfo, byref dictSavedPropertyValue as Dictionary)</SourceLine>
|
|
<SourceLine>'Read current record out of rs into properties</SourceLine>
|
|
<SourceLine>dim dictFieldValue as new Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for each oFieldInfo as BKS_ActiveRecord.P.FieldInfo in oTableInfo.aroField</SourceLine>
|
|
<SourceLine>dim oField as DatabaseField = rs.Field( oFieldInfo.sFieldName )</SourceLine>
|
|
<SourceLine>dim pi as Introspection.PropertyInfo = oFieldInfo.piFieldProperty</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if oField is nil then</SourceLine>
|
|
<SourceLine>BKS_Debug.Assert( false, _</SourceLine>
|
|
<SourceLine>"A field needed to populate this record wasn't provided: " + _</SourceLine>
|
|
<SourceLine>oFieldInfo.sFieldName )</SourceLine>
|
|
<SourceLine>continue</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim vProperty as Variant</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if pi.PropertyType.Name = "Double" then</SourceLine>
|
|
<SourceLine>if oField.Value=nil then</SourceLine>
|
|
<SourceLine>vProperty = BKS_ActiveRecord.kDoubleNullSentinal</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>vProperty = oField.Value</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>elseif pi.PropertyType.Name = "String" then</SourceLine>
|
|
<SourceLine>dim s as string = oField.StringValue</SourceLine>
|
|
<SourceLine>if Encoding(s) is nil then</SourceLine>
|
|
<SourceLine>s = DefineEncoding(s, Encodings.UTF8)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>vProperty = s</SourceLine>
|
|
<SourceLine>elseif pi.PropertyType.IsPrimitive then</SourceLine>
|
|
<SourceLine>vProperty = oField.Value</SourceLine>
|
|
<SourceLine>elseif pi.PropertyType = GetTypeInfo(Date) then</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim v as Variant = oField.Value</SourceLine>
|
|
<SourceLine>if v = nil or v = "" then</SourceLine>
|
|
<SourceLine>vProperty=nil</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>dim dt as new Date</SourceLine>
|
|
<SourceLine>dim dOffset as double = dt.GMTOffset</SourceLine>
|
|
<SourceLine>dt.GMTOffset = 0</SourceLine>
|
|
<SourceLine>dt.SQLDateTime = v.StringValue</SourceLine>
|
|
<SourceLine>dt.GMTOffset = dOffset</SourceLine>
|
|
<SourceLine>vProperty=dt</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>vProperty= oField.Value</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>pi.Value(self) = vProperty</SourceLine>
|
|
<SourceLine>dictFieldValue.Value(pi.Name) = vProperty</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dictSavedPropertyValue = dictFieldValue</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>rs as RecordSet, oTableInfo as BKS_ActiveRecord.P.TableInfo, byref dictSavedPropertyValue as Dictionary</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Save</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Save()</SourceLine>
|
|
<SourceLine>dim adp as BKS_ActiveRecord.DatabaseAdapter = GetDatabaseAdapter</SourceLine>
|
|
<SourceLine>adp.BeginTransaction</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>BeforeSave</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if IsNew then</SourceLine>
|
|
<SourceLine>BeforeCreate</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>ID = adp.InsertRecord( self, m_dictSavedPropertyValue )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>AfterSave</SourceLine>
|
|
<SourceLine>AfterCreate</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>BeforeUpdate</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if IsRecordModified then</SourceLine>
|
|
<SourceLine>adp.UpdateRecord(self, m_dictSavedPropertyValue)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>AfterSave</SourceLine>
|
|
<SourceLine>AfterUpdate</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>adp.CommitTransaction</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>exception ex as RuntimeException</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>adp.RollbackTransaction</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>raise ex</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Validate</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Validate(oError as BKS_ActiveRecord.ValidationErrors) As boolean</SourceLine>
|
|
<SourceLine>RaiseEvent Validate( oError )</SourceLine>
|
|
<SourceLine>return ( oError.ErrorCount = 0 )</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oError as BKS_ActiveRecord.ValidationErrors</ItemParams>
|
|
<ItemResult>boolean</ItemResult>
|
|
</Method>
|
|
<Hook>
|
|
<ItemName>AfterCreate</ItemName>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>33</ItemFlags>
|
|
<SystemFlags>0</SystemFlags>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Hook>
|
|
<Hook>
|
|
<ItemName>AfterDelete</ItemName>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>33</ItemFlags>
|
|
<SystemFlags>0</SystemFlags>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Hook>
|
|
<Hook>
|
|
<ItemName>AfterSave</ItemName>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>33</ItemFlags>
|
|
<SystemFlags>0</SystemFlags>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Hook>
|
|
<Hook>
|
|
<ItemName>AfterUpdate</ItemName>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>33</ItemFlags>
|
|
<SystemFlags>0</SystemFlags>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Hook>
|
|
<Hook>
|
|
<ItemName>BeforeCreate</ItemName>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>33</ItemFlags>
|
|
<SystemFlags>0</SystemFlags>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Hook>
|
|
<Hook>
|
|
<ItemName>BeforeDelete</ItemName>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>33</ItemFlags>
|
|
<SystemFlags>0</SystemFlags>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Hook>
|
|
<Hook>
|
|
<ItemName>BeforeSave</ItemName>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>33</ItemFlags>
|
|
<SystemFlags>0</SystemFlags>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Hook>
|
|
<Hook>
|
|
<ItemName>BeforeUpdate</ItemName>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>33</ItemFlags>
|
|
<SystemFlags>0</SystemFlags>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Hook>
|
|
<Hook>
|
|
<ItemName>Validate</ItemName>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemFlags>33</ItemFlags>
|
|
<SystemFlags>0</SystemFlags>
|
|
<ItemParams>oErrors as BKS_ActiveRecord.ValidationErrors</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Hook>
|
|
<Property>
|
|
<ItemName>m_dictSavedPropertyValue</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_dictSavedPropertyValue As Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_dictSavedPropertyValue As Dictionary</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="1157640479">
|
|
<ObjName>BaseList</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(ty as Introspection.TypeInfo, sCriteria as string = "", sOrder as string = "")</SourceLine>
|
|
<SourceLine>m_tyElement = ty</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if not ty.IsSubclassOf(GetTypeInfo(BKS_ActiveRecord.Base)) then</SourceLine>
|
|
<SourceLine>dim ex as new RuntimeException</SourceLine>
|
|
<SourceLine>ex.Message = "Invalid type"</SourceLine>
|
|
<SourceLine>raise ex</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim adp as BKS_ActiveRecord.DatabaseAdapter</SourceLine>
|
|
<SourceLine>adp = GetContext.ConnectionAdapter_Get( ty )</SourceLine>
|
|
<SourceLine>if adp=nil then</SourceLine>
|
|
<SourceLine>raise new RuntimeException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim rs as RecordSet</SourceLine>
|
|
<SourceLine>' dim aro() as Variant</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo = GetTableInfo( ty )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim sql as string = "SELECT " + oTableInfo.sPrimaryKey + _</SourceLine>
|
|
<SourceLine>" FROM " + oTableInfo.sTableName</SourceLine>
|
|
<SourceLine>if sCriteria<>"" then</SourceLine>
|
|
<SourceLine>sql = sql + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if sOrder<>"" then</SourceLine>
|
|
<SourceLine>sql = sql + " ORDER BY " + sOrder</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim arid() as Int64</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>rs = adp.SQLSelect(sql)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim oField as DatabaseField = rs.IdxField(1)</SourceLine>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>arid.Append(oField.Int64Value)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>m_arid = arid</SourceLine>
|
|
<SourceLine>redim m_aro(m_arid.Ubound)</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>ty as Introspection.TypeInfo, sCriteria as string = "", sOrder as string = ""</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>ElementType</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function ElementType() As Introspection.TypeInfo</SourceLine>
|
|
<SourceLine>return m_tyElement</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Introspection.TypeInfo</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Item</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Item(index as integer) As BKS_ActiveRecord.Base</SourceLine>
|
|
<SourceLine>if m_aro(index)<>nil then</SourceLine>
|
|
<SourceLine>return m_aro(index)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>const kBatchSize = 50</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>LoadRange(index, Min(index+kBatchSize-1, m_arid.Ubound))</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return m_aro(index)</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>index as integer</ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.Base</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>LoadRange</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub LoadRange(startIndex as integer, endIndex as integer)</SourceLine>
|
|
<SourceLine>dim sPrimaryKey as string = GetTableInfo(m_tyElement).sPrimaryKey</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim aridix() as integer</SourceLine>
|
|
<SourceLine>dim arid() as Int64</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for i as integer = startIndex to endIndex</SourceLine>
|
|
<SourceLine>aridix.Append(i)</SourceLine>
|
|
<SourceLine>arid.Append(m_arid(i))</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>arid.SortWith(aridix)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim arsId() as string</SourceLine>
|
|
<SourceLine>for i as integer = 0 to arid.Ubound</SourceLine>
|
|
<SourceLine>arsId.Append(Str(arid(i)))</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim sCriteria as string</SourceLine>
|
|
<SourceLine>sCriteria = sPrimaryKey + " IN (" + Join(arsId, ",") + ")"</SourceLine>
|
|
<SourceLine>dim arv() as Variant = BKS_ActiveRecord.Query(m_tyElement, sCriteria, sPrimaryKey)</SourceLine>
|
|
<SourceLine>for i as integer = 0 to arv.Ubound</SourceLine>
|
|
<SourceLine>dim oRecord as BKS_ActiveRecord.Base = arv(i)</SourceLine>
|
|
<SourceLine>if oRecord.ID = arid(i) then</SourceLine>
|
|
<SourceLine>m_aro(aridix(i)) = oRecord</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>startIndex as integer, endIndex as integer</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Operator_Subscript</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Operator_Subscript(index as Integer) As BKS_ActiveRecord.Base</SourceLine>
|
|
<SourceLine>return Item(index)</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>index as Integer</ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.Base</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Ubound</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Ubound() As integer</SourceLine>
|
|
<SourceLine>return m_arid.Ubound</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>integer</ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>m_arid()</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_arid() As Int64</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_arid() As Int64</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>m_aro()</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_aro() As BKS_ActiveRecord.Base</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_aro() As BKS_ActiveRecord.Base</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>m_tyElement</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_tyElement As Introspection.TypeInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_tyElement As Introspection.TypeInfo</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="261705539">
|
|
<ObjName>FieldDef</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(sFieldName as string, enFieldType as BKS_ActiveRecord.DbType, bPrimaryKey as boolean, bForeignKey as boolean)</SourceLine>
|
|
<SourceLine>self.sFieldName = sFieldName</SourceLine>
|
|
<SourceLine>self.enFieldType = enFieldType</SourceLine>
|
|
<SourceLine>self.IsPrimaryKey = bPrimaryKey</SourceLine>
|
|
<SourceLine>self.IsForeignKey = bForeignKey</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>sFieldName as string, enFieldType as BKS_ActiveRecord.DbType, bPrimaryKey as boolean, bForeignKey as boolean</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>enFieldType</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>enFieldType As BKS_ActiveRecord.DbType</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>enFieldType As BKS_ActiveRecord.DbType</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>IsForeignKey</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>IsForeignKey As boolean</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>IsForeignKey As boolean</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>IsPrimaryKey</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>IsPrimaryKey As boolean</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>IsPrimaryKey As boolean</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sFieldName</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sFieldName As string</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sFieldName As string</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>IsForeignKey</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>boolean</ItemType>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>IsPrimaryKey</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>boolean</ItemType>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>sFieldName</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>string</ItemType>
|
|
<EditorType>MultiLineEditor</EditorType>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="438501723">
|
|
<ObjName>TableDef</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(sTableName as string, sPrimaryKey as string, aroField() as BKS_ActiveRecord.FieldDef)</SourceLine>
|
|
<SourceLine>self.sTableName = sTableName</SourceLine>
|
|
<SourceLine>self.sPrimaryKey = sPrimaryKey</SourceLine>
|
|
<SourceLine>self.aroField = aroField</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>sTableName as string, sPrimaryKey as string, aroField() as BKS_ActiveRecord.FieldDef</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>aroField()</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>aroField() As BKS_ActiveRecord.FieldDef</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>aroField() As BKS_ActiveRecord.FieldDef</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sPrimaryKey</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sPrimaryKey As string</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sPrimaryKey As string</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sTableName</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sTableName As string</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sTableName As string</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>sPrimaryKey</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>string</ItemType>
|
|
<EditorType>MultiLineEditor</EditorType>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>sTableName</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>string</ItemType>
|
|
<EditorType>MultiLineEditor</EditorType>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="1882082410">
|
|
<ObjName>FieldOpt</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(sFieldName as string)</SourceLine>
|
|
<SourceLine>m_sFieldName = sFieldName</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>sFieldName as string</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FieldName</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function FieldName() As String</SourceLine>
|
|
<SourceLine>return m_sFieldName</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>String</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>ForeignKey</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function ForeignKey() As BKS_ActiveRecord.FieldOpt</SourceLine>
|
|
<SourceLine>m_bForeignKey = true</SourceLine>
|
|
<SourceLine>return self</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.FieldOpt</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Ignored</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Ignored() As BKS_ActiveRecord.FieldOpt</SourceLine>
|
|
<SourceLine>m_bIgnored = true</SourceLine>
|
|
<SourceLine>return self</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>BKS_ActiveRecord.FieldOpt</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>IsForeignKey</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function IsForeignKey() As Boolean</SourceLine>
|
|
<SourceLine>return m_bForeignKey</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Boolean</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>IsIgnored</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function IsIgnored() As Boolean</SourceLine>
|
|
<SourceLine>return m_bIgnored</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Boolean</ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>m_bForeignKey</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_bForeignKey As boolean</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_bForeignKey As boolean</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>m_bIgnored</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_bIgnored As Boolean</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_bIgnored As Boolean</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>m_sFieldName</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_sFieldName As string</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_sFieldName As string</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="1872445013">
|
|
<ObjName>ValidationErrors</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Append</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Append(sMessage as string)</SourceLine>
|
|
<SourceLine>m_arsError.Append( sMessage )</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>sMessage as string</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Clear</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Clear()</SourceLine>
|
|
<SourceLine>redim m_arsError( -1 )</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Error</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Error(index as Integer) As string</SourceLine>
|
|
<SourceLine>return m_arsError(index)</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>index as Integer</ItemParams>
|
|
<ItemResult>string</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>ErrorCount</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function ErrorCount() As integer</SourceLine>
|
|
<SourceLine>return m_arsError.Ubound + 1</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>integer</ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>m_arsError()</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_arsError() As string</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_arsError() As string</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="957987159">
|
|
<ObjName>MSSQLServerAdapter</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>BKS_ActiveRecord.DatabaseAdapter</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(oDb as Object)</SourceLine>
|
|
<SourceLine>'If you are not connecting to MSSQLServer and do not have the MSSQLServer plugin delete this class (MSSQLServerAdapter)</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeMSSQLServer</SourceLine>
|
|
<SourceLine>dim db as MSSQLServerDatabase = MSSQLServerDatabase(oDb)</SourceLine>
|
|
<SourceLine>if db=nil then</SourceLine>
|
|
<SourceLine>raise new RuntimeException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_db = db</SourceLine>
|
|
<SourceLine>#else</SourceLine>
|
|
<SourceLine>raise new UnsupportedOperationException</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oDb as Object</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Db() As Database</SourceLine>
|
|
<SourceLine>return m_db</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Database</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetLastInsertID</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetLastInsertID() As Int64</SourceLine>
|
|
<SourceLine>dim rs as RecordSet</SourceLine>
|
|
<SourceLine>rs = SQLSelect("SELECT @@IDENTITY;")</SourceLine>
|
|
<SourceLine>return rs.IdxField(1).Int64Value</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Int64</ItemResult>
|
|
</Method>
|
|
<Note>
|
|
<ItemName>Note</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<NoteLine>Note</NoteLine>
|
|
<NoteLine></NoteLine>
|
|
<NoteLine>If you are not connecting to MSSQLServer and do not have the MSSQLServer plugin delete this class (MSSQLServerAdapter)</NoteLine>
|
|
</ItemSource>
|
|
<ItemFlags>0</ItemFlags>
|
|
</Note>
|
|
<Property>
|
|
<ItemName>m_db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_db As Database</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_db As Database</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="1205296560">
|
|
<ObjName>MySQLCommunityServerAdapter</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>BKS_ActiveRecord.DatabaseAdapter</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(oDb as Object)</SourceLine>
|
|
<SourceLine>'If you are not connecting to MySQL and do not have the MySQLCommunityPlugin plugin delete this class (MySQLCommunityServerAdapter)</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeMySQLCommunityServer</SourceLine>
|
|
<SourceLine>dim db as MySQLCommunityServer = MySQLCommunityServer(oDb)</SourceLine>
|
|
<SourceLine>if db=nil then</SourceLine>
|
|
<SourceLine>raise new RuntimeException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_db = db</SourceLine>
|
|
<SourceLine>#else</SourceLine>
|
|
<SourceLine>raise new UnsupportedOperationException</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oDb as Object</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Db() As Database</SourceLine>
|
|
<SourceLine>return m_db</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Database</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetLastInsertID</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetLastInsertID() As Int64</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeMySQLCommunityServer</SourceLine>
|
|
<SourceLine>return MySQLCommunityServer(m_db).GetInsertID</SourceLine>
|
|
<SourceLine>#else</SourceLine>
|
|
<SourceLine>raise new UnsupportedOperationException</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Int64</ItemResult>
|
|
</Method>
|
|
<Note>
|
|
<ItemName>Note</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<NoteLine>Note</NoteLine>
|
|
<NoteLine>If you are not connecting to MySQL and </NoteLine>
|
|
<NoteLine>do not have the MySQLCommunityPlugin plugin delete this class (MySQLCommunityServerAdapter)</NoteLine>
|
|
</ItemSource>
|
|
<ItemFlags>0</ItemFlags>
|
|
</Note>
|
|
<Property>
|
|
<ItemName>m_db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_db As Database</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_db As Database</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="206058575">
|
|
<ObjName>PostgreSQLDatabaseAdapter</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>BKS_ActiveRecord.DatabaseAdapter</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>BindValues</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function BindValues(stmt as PreparedSQLStatement, oRecord as BKS_ActiveRecord.Base, aroField() as BKS_ActiveRecord.P.FieldInfo) As Dictionary</SourceLine>
|
|
<SourceLine>dim dictFieldValue as new Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for i as integer = 0 to aroField.Ubound</SourceLine>
|
|
<SourceLine>dim oField as BKS_ActiveRecord.P.FieldInfo = aroField(i)</SourceLine>
|
|
<SourceLine>dim pi as Introspection.PropertyInfo = oField.piFieldProperty</SourceLine>
|
|
<SourceLine>dim v as Variant = pi.Value(oRecord)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>stmt.Bind(i, v)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dictFieldValue.Value(pi.Name) = v</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return dictFieldValue</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>stmt as PreparedSQLStatement, oRecord as BKS_ActiveRecord.Base, aroField() as BKS_ActiveRecord.P.FieldInfo</ItemParams>
|
|
<ItemResult>Dictionary</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(oDb as Object)</SourceLine>
|
|
<SourceLine>'If you are not connecting to PostgreSQL and do not have the PostgreSQLPlugin plugin delete this class (PostgreSQLDatabaseAdapter)</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludePostgreSQLDatabase</SourceLine>
|
|
<SourceLine>dim db as PostgreSQLDatabase = PostgreSQLDatabase(oDb)</SourceLine>
|
|
<SourceLine>if db=nil then</SourceLine>
|
|
<SourceLine>raise new RuntimeException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_db = db</SourceLine>
|
|
<SourceLine>#else</SourceLine>
|
|
<SourceLine>raise new UnsupportedOperationException</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oDb as Object</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Db() As Database</SourceLine>
|
|
<SourceLine>return m_db</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Database</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetLastInsertID</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetLastInsertID() As Int64</SourceLine>
|
|
<SourceLine>dim rs as RecordSet</SourceLine>
|
|
<SourceLine>rs = SQLSelect("SELECT LASTVAL();")</SourceLine>
|
|
<SourceLine>return rs.IdxField(1).Int64Value</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Int64</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>InsertRecord</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function InsertRecord(oRecord as BKS_ActiveRecord.Base, byref dictSavedPropertyValue as Dictionary) As Int64</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim dictFieldValue as Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(oRecord) )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim arsField() as string</SourceLine>
|
|
<SourceLine>dim arsPlaceholder() as string</SourceLine>
|
|
<SourceLine>dim aroField() as BKS_ActiveRecord.P.FieldInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for each oField as BKS_ActiveRecord.P.FieldInfo in oTableInfo.aroField</SourceLine>
|
|
<SourceLine>if oField.bPrimaryKey then</SourceLine>
|
|
<SourceLine>continue</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>arsField.Append(oField.sFieldName)</SourceLine>
|
|
<SourceLine>arsPlaceholder.Append("$" + str(arsPlaceholder.Ubound + 2) )</SourceLine>
|
|
<SourceLine>aroField.Append(oField)</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim sql as string</SourceLine>
|
|
<SourceLine>sql = "INSERT INTO " + oTableInfo.sTableName</SourceLine>
|
|
<SourceLine>sql = sql + "(" + Join(arsField, ",") + ")"</SourceLine>
|
|
<SourceLine>sql = sql + " VALUES "</SourceLine>
|
|
<SourceLine>sql = sql + "(" + Join(arsPlaceholder, ",") + ")"</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim stmt as PreparedSQLStatement</SourceLine>
|
|
<SourceLine>stmt = db.Prepare(sql)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dictFieldValue = BindValues(stmt, oRecord, aroField)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>stmt.SQLExecute</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_ActiveRecord.DatabaseException(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim iRecordID as Int64 = GetLastInsertID</SourceLine>
|
|
<SourceLine>dictFieldValue.Value( oTableInfo.piPrimaryKey.Name ) = iRecordID</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'store the newly saved property values</SourceLine>
|
|
<SourceLine>dictSavedPropertyValue = dictFieldValue</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return iRecordID</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oRecord as BKS_ActiveRecord.Base, byref dictSavedPropertyValue as Dictionary</ItemParams>
|
|
<ItemResult>Int64</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>UpdateRecord</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub UpdateRecord(oRecord as BKS_ActiveRecord.Base, byref dictSavedPropertyValue as Dictionary)</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim dictFieldValue as Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(oRecord) )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim arsField() as string</SourceLine>
|
|
<SourceLine>dim aroField() as BKS_ActiveRecord.P.FieldInfo</SourceLine>
|
|
<SourceLine>dim oPrimaryKeyField as BKS_ActiveRecord.P.FieldInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for each oField as BKS_ActiveRecord.P.FieldInfo in oTableInfo.aroField</SourceLine>
|
|
<SourceLine>if oField.bPrimaryKey then</SourceLine>
|
|
<SourceLine>oPrimaryKeyField = oField</SourceLine>
|
|
<SourceLine>continue</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>arsField.Append(oField.sFieldName + "=$" + str(arsField.ubound + 2) )</SourceLine>
|
|
<SourceLine>aroField.Append(oField)</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim sql as string</SourceLine>
|
|
<SourceLine>sql = "UPDATE " + oTableInfo.sTableName + " SET "</SourceLine>
|
|
<SourceLine>sql = sql + Join(arsField, ",")</SourceLine>
|
|
<SourceLine>sql = sql + " WHERE " + oTableInfo.sPrimaryKey + "=$" + str(arsField.ubound + 2)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim stmt as PreparedSQLStatement</SourceLine>
|
|
<SourceLine>stmt = db.Prepare(sql)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>aroField.Append(oPrimaryKeyField)</SourceLine>
|
|
<SourceLine>dictFieldValue = BindValues(stmt, oRecord, aroField)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>stmt.SQLExecute</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_ActiveRecord.DatabaseException(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'store the newly saved property values</SourceLine>
|
|
<SourceLine>dictSavedPropertyValue = dictFieldValue</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oRecord as BKS_ActiveRecord.Base, byref dictSavedPropertyValue as Dictionary</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Note>
|
|
<ItemName>Note</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<NoteLine>Note</NoteLine>
|
|
<NoteLine>If you are not connecting to PostgreSQL and do not have the PostgreSQLPlugin plugin delete this class (PostgreSQLDatabaseAdapter)</NoteLine>
|
|
</ItemSource>
|
|
<ItemFlags>0</ItemFlags>
|
|
</Note>
|
|
<Property>
|
|
<ItemName>m_db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_db As Database</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_db As Database</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="1482847867">
|
|
<ObjName>REALSQLDatabaseAdapter</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>BKS_ActiveRecord.DatabaseAdapter</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>BeginTransaction</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub BeginTransaction()</SourceLine>
|
|
<SourceLine>if m_iTransactionCt=0 and not m_db.AutoCommit then</SourceLine>
|
|
<SourceLine>try</SourceLine>
|
|
<SourceLine>m_db.Commit 'commit the auto transaction</SourceLine>
|
|
<SourceLine>catch ex as RuntimeException</SourceLine>
|
|
<SourceLine>'ignore this one</SourceLine>
|
|
<SourceLine>end try</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if m_iTransactionCt=0 then</SourceLine>
|
|
<SourceLine>SQLExecute( "BEGIN" )</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_iTransactionCt = m_iTransactionCt + 1</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>CommitTransaction</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub CommitTransaction()</SourceLine>
|
|
<SourceLine>m_iTransactionCt = m_iTransactionCt - 1</SourceLine>
|
|
<SourceLine>if m_iTransactionCt=0 then</SourceLine>
|
|
<SourceLine>Db.Commit</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>dim ex as new BKS_ActiveRecord.DatabaseException(db, "Commit")</SourceLine>
|
|
<SourceLine>db.Rollback</SourceLine>
|
|
<SourceLine>raise ex</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(oDb as Object)</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeREALSQLDatabase</SourceLine>
|
|
<SourceLine>dim db as REALSQLDatabase = REALSQLDatabase(oDb)</SourceLine>
|
|
<SourceLine>if db=nil then</SourceLine>
|
|
<SourceLine>raise new RuntimeException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_db = db</SourceLine>
|
|
<SourceLine>#else</SourceLine>
|
|
<SourceLine>raise new UnsupportedOperationException</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oDb as Object</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Db() As Database</SourceLine>
|
|
<SourceLine>return m_db</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Database</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetLastInsertID</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetLastInsertID() As Int64</SourceLine>
|
|
<SourceLine>return m_db.LastRowID</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Int64</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>RollbackTransaction</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub RollbackTransaction()</SourceLine>
|
|
<SourceLine>m_iTransactionCt = m_iTransactionCt - 1</SourceLine>
|
|
<SourceLine>if m_iTransactionCt=0 then</SourceLine>
|
|
<SourceLine>Db.Rollback</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>m_db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_db As REALSQLDatabase</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_db As REALSQLDatabase</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>m_iTransactionCt</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_iTransactionCt As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_iTransactionCt As Integer</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="676394040">
|
|
<ObjName>SQLiteDatabaseAdapter</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>BKS_ActiveRecord.DatabaseAdapter</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>BeginTransaction</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub BeginTransaction()</SourceLine>
|
|
<SourceLine>if m_iTransactionCt=0 then</SourceLine>
|
|
<SourceLine>try</SourceLine>
|
|
<SourceLine>m_db.Commit 'commit the auto transaction</SourceLine>
|
|
<SourceLine>catch ex as RuntimeException</SourceLine>
|
|
<SourceLine>'ignore this one</SourceLine>
|
|
<SourceLine>end try</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if m_iTransactionCt=0 then</SourceLine>
|
|
<SourceLine>SQLExecute( "BEGIN" )</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_iTransactionCt = m_iTransactionCt + 1</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>CommitTransaction</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub CommitTransaction()</SourceLine>
|
|
<SourceLine>m_iTransactionCt = m_iTransactionCt - 1</SourceLine>
|
|
<SourceLine>if m_iTransactionCt=0 then</SourceLine>
|
|
<SourceLine>Db.Commit</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>dim ex as new BKS_ActiveRecord.DatabaseException(db, "Commit")</SourceLine>
|
|
<SourceLine>db.Rollback</SourceLine>
|
|
<SourceLine>raise ex</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(oDb as Object)</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeSQLiteDatabase and RBVersion>=2013</SourceLine>
|
|
<SourceLine>dim db as SQLiteDatabase = SQLiteDatabase(oDb)</SourceLine>
|
|
<SourceLine>if db=nil then</SourceLine>
|
|
<SourceLine>raise new RuntimeException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_db = db</SourceLine>
|
|
<SourceLine>#else</SourceLine>
|
|
<SourceLine>raise new UnsupportedOperationException</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oDb as Object</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Db() As Database</SourceLine>
|
|
<SourceLine>return m_db</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Database</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetLastInsertID</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetLastInsertID() As Int64</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeSQLiteDatabase and RBVersion>=2013</SourceLine>
|
|
<SourceLine>return SQLiteDatabase(m_db).LastRowID</SourceLine>
|
|
<SourceLine>#else</SourceLine>
|
|
<SourceLine>raise new UnsupportedOperationException</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Int64</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>RollbackTransaction</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub RollbackTransaction()</SourceLine>
|
|
<SourceLine>m_iTransactionCt = m_iTransactionCt - 1</SourceLine>
|
|
<SourceLine>if m_iTransactionCt=0 then</SourceLine>
|
|
<SourceLine>Db.Rollback</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>m_db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_db As Database</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_db As Database</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>m_iTransactionCt</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_iTransactionCt As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_iTransactionCt As Integer</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="1523703515">
|
|
<ObjName>DatabaseAdapter</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>BeginTransaction</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub BeginTransaction()</SourceLine>
|
|
<SourceLine>SQLExecute( "BEGIN" )</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>BindId</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub BindId(stmt as PreparedSQLStatement, i as integer, id as Int64)</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeREALSQLDatabase</SourceLine>
|
|
<SourceLine>if db isa REALSQLDatabase then</SourceLine>
|
|
<SourceLine>stmt.BindType(i, REALSQLPreparedStatement.SQLITE_INT64)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeSQLiteDatabase and RBVersion>=2013</SourceLine>
|
|
<SourceLine>if db isa SQLiteDatabase then</SourceLine>
|
|
<SourceLine>stmt.BindType(i, SQLitePreparedStatement.SQLITE_INT64)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeMySQLCommunityServer</SourceLine>
|
|
<SourceLine>if db isa MySQLCommunityServer then</SourceLine>
|
|
<SourceLine>stmt.BindType(i, MySQLPreparedStatement.MYSQL_TYPE_LONGLONG)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludePostgreSQLDatabase</SourceLine>
|
|
<SourceLine>if db isa PostgreSQLDatabase then</SourceLine>
|
|
<SourceLine>//PostgreSQL doesn't do binding the same way</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeMSSQLServer</SourceLine>
|
|
<SourceLine>if db isa MSSQLServerDatabase then</SourceLine>
|
|
<SourceLine>stmt.BindType(i, MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_INT)</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeOracle</SourceLine>
|
|
<SourceLine>if db isa OracleDatabase then</SourceLine>
|
|
<SourceLine>stmt.BindType(i, OracleSQLPreparedStatement.SQL_TYPE_INTEGER)</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#If BKS_ActiveRecordConfig.kIncludeCubeDatabase</SourceLine>
|
|
<SourceLine>if db isa CubeSQLServer then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>stmt.Bind(i, id)</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>stmt as PreparedSQLStatement, i as integer, id as Int64</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>BindNull</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub BindNull(stmt as PreparedSQLStatement, i as integer)</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeMySQLCommunityServer</SourceLine>
|
|
<SourceLine>if db isa MySQLCommunityServer then</SourceLine>
|
|
<SourceLine>stmt.BindType(i, MySQLPreparedStatement.MYSQL_TYPE_NULL)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeREALSQLDatabase</SourceLine>
|
|
<SourceLine>if db isa REALSQLDatabase then</SourceLine>
|
|
<SourceLine>stmt.BindType(i, REALSQLPreparedStatement.SQLITE_NULL)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeSQLiteDatabase and RBVersion>=2013</SourceLine>
|
|
<SourceLine>if db isa SQLiteDatabase then</SourceLine>
|
|
<SourceLine>stmt.BindType(i, SQLitePreparedStatement.SQLITE_NULL)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludePostgreSQLDatabase</SourceLine>
|
|
<SourceLine>if db isa PostgreSQLDatabase then</SourceLine>
|
|
<SourceLine>//PostgreSQL doesn't do binding the same way</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeMSSQLServer</SourceLine>
|
|
<SourceLine>if db isa MSSQLServerDatabase then</SourceLine>
|
|
<SourceLine>stmt.BindType(i, MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_NULL)</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeOracle</SourceLine>
|
|
<SourceLine>if db isa OracleDatabase then</SourceLine>
|
|
<SourceLine>stmt.BindType(i, OracleSQLPreparedStatement.SQL_TYPE_NULL)</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>stmt as PreparedSQLStatement, i as integer</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>BindValues</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function BindValues(stmt as PreparedSQLStatement, oRecord as BKS_ActiveRecord.Base, aroField() as BKS_ActiveRecord.P.FieldInfo) As Dictionary</SourceLine>
|
|
<SourceLine>dim dictFieldValue as new Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for i as integer = 0 to aroField.Ubound</SourceLine>
|
|
<SourceLine>dim oField as BKS_ActiveRecord.P.FieldInfo = aroField(i)</SourceLine>
|
|
<SourceLine>dim pi as Introspection.PropertyInfo = oField.piFieldProperty</SourceLine>
|
|
<SourceLine>dim v as Variant = pi.Value(oRecord)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim iDbType as integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>select case db</SourceLine>
|
|
<SourceLine>case nil</SourceLine>
|
|
<SourceLine>'empty. This just let's it compile if someone turns off all the constants</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeREALSQLDatabase</SourceLine>
|
|
<SourceLine>case isa REALSQLDatabase</SourceLine>
|
|
<SourceLine>select case aroField(i).enFieldType</SourceLine>
|
|
<SourceLine>case DbType.DInteger</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_INTEGER</SourceLine>
|
|
<SourceLine>case DbType.DSmallInt</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_INTEGER</SourceLine>
|
|
<SourceLine>case DbType.DDouble</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_DOUBLE</SourceLine>
|
|
<SourceLine>case DbType.DDate</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DTime</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DTimestamp</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DBoolean</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_BOOLEAN</SourceLine>
|
|
<SourceLine>case DbType.DBlob</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_BLOB</SourceLine>
|
|
<SourceLine>case DbType.DText</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DInt64</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_INT64</SourceLine>
|
|
<SourceLine>case DbType.DFloat</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_DOUBLE</SourceLine>
|
|
<SourceLine>case else</SourceLine>
|
|
<SourceLine>break 'unsupported type</SourceLine>
|
|
<SourceLine>end select</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeSQLiteDatabase and RBVersion>=2013</SourceLine>
|
|
<SourceLine>case isa SQLiteDatabase</SourceLine>
|
|
<SourceLine>select case aroField(i).enFieldType</SourceLine>
|
|
<SourceLine>case DbType.DInteger</SourceLine>
|
|
<SourceLine>iDbType = SQLitePreparedStatement.SQLITE_INTEGER</SourceLine>
|
|
<SourceLine>case DbType.DSmallInt</SourceLine>
|
|
<SourceLine>iDbType = SQLitePreparedStatement.SQLITE_INTEGER</SourceLine>
|
|
<SourceLine>case DbType.DDouble</SourceLine>
|
|
<SourceLine>iDbType = SQLitePreparedStatement.SQLITE_DOUBLE</SourceLine>
|
|
<SourceLine>case DbType.DDate</SourceLine>
|
|
<SourceLine>iDbType = SQLitePreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DTime</SourceLine>
|
|
<SourceLine>iDbType = SQLitePreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DTimestamp</SourceLine>
|
|
<SourceLine>iDbType = SQLitePreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DBoolean</SourceLine>
|
|
<SourceLine>iDbType = SQLitePreparedStatement.SQLITE_BOOLEAN</SourceLine>
|
|
<SourceLine>case DbType.DBlob</SourceLine>
|
|
<SourceLine>iDbType = SQLitePreparedStatement.SQLITE_BLOB</SourceLine>
|
|
<SourceLine>case DbType.DText</SourceLine>
|
|
<SourceLine>iDbType = SQLitePreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DInt64</SourceLine>
|
|
<SourceLine>iDbType = SQLitePreparedStatement.SQLITE_INT64</SourceLine>
|
|
<SourceLine>case DbType.DFloat</SourceLine>
|
|
<SourceLine>iDbType = SQLitePreparedStatement.SQLITE_DOUBLE</SourceLine>
|
|
<SourceLine>case else</SourceLine>
|
|
<SourceLine>break 'unsupported type</SourceLine>
|
|
<SourceLine>end select</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeMySQLCommunityServer</SourceLine>
|
|
<SourceLine>case isa MySQLCommunityServer</SourceLine>
|
|
<SourceLine>select case aroField(i).enFieldType</SourceLine>
|
|
<SourceLine>case DbType.DInteger</SourceLine>
|
|
<SourceLine>iDbType = MySQLPreparedStatement.MYSQL_TYPE_LONG</SourceLine>
|
|
<SourceLine>case DbType.DSmallInt</SourceLine>
|
|
<SourceLine>iDbType = MySQLPreparedStatement.MYSQL_TYPE_SHORT</SourceLine>
|
|
<SourceLine>case DbType.DDouble</SourceLine>
|
|
<SourceLine>iDbType = MySQLPreparedStatement.MYSQL_TYPE_DOUBLE</SourceLine>
|
|
<SourceLine>case DbType.DDate</SourceLine>
|
|
<SourceLine>iDbType = MySQLPreparedStatement.MYSQL_TYPE_DATE</SourceLine>
|
|
<SourceLine>case DbType.DTime</SourceLine>
|
|
<SourceLine>iDbType = MySQLPreparedStatement.MYSQL_TYPE_TIME</SourceLine>
|
|
<SourceLine>case DbType.DTimestamp</SourceLine>
|
|
<SourceLine>iDbType = MySQLPreparedStatement.MYSQL_TYPE_TIMESTAMP</SourceLine>
|
|
<SourceLine>case DbType.DBoolean</SourceLine>
|
|
<SourceLine>iDbType = MySQLPreparedStatement.MYSQL_TYPE_TINY</SourceLine>
|
|
<SourceLine>case DbType.DBlob</SourceLine>
|
|
<SourceLine>iDbType = MySQLPreparedStatement.MYSQL_TYPE_BLOB</SourceLine>
|
|
<SourceLine>case DbType.DText</SourceLine>
|
|
<SourceLine>iDbType = MySQLPreparedStatement.MYSQL_TYPE_STRING</SourceLine>
|
|
<SourceLine>case DbType.DInt64</SourceLine>
|
|
<SourceLine>iDbType = MySQLPreparedStatement.MYSQL_TYPE_LONGLONG</SourceLine>
|
|
<SourceLine>case DbType.DFloat</SourceLine>
|
|
<SourceLine>iDbType = MySQLPreparedStatement.MYSQL_TYPE_DOUBLE</SourceLine>
|
|
<SourceLine>case else</SourceLine>
|
|
<SourceLine>break 'unsupported type</SourceLine>
|
|
<SourceLine>end select</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>//Postgres doesn't use bind types.</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeMSSQLServer</SourceLine>
|
|
<SourceLine>case isa MSSQLServerDatabase</SourceLine>
|
|
<SourceLine>select case aroField(i).enFieldType</SourceLine>
|
|
<SourceLine>case DbType.DInteger</SourceLine>
|
|
<SourceLine>iDbType = MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_BIGINT</SourceLine>
|
|
<SourceLine>case DbType.DSmallInt</SourceLine>
|
|
<SourceLine>iDbType = MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_SMALLINT</SourceLine>
|
|
<SourceLine>case DbType.DDouble</SourceLine>
|
|
<SourceLine>iDbType = MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_DOUBLE</SourceLine>
|
|
<SourceLine>case DbType.DDate</SourceLine>
|
|
<SourceLine>iDbType = MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_DATE</SourceLine>
|
|
<SourceLine>case DbType.DTime</SourceLine>
|
|
<SourceLine>iDbType = MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_TIME</SourceLine>
|
|
<SourceLine>case DbType.DTimestamp</SourceLine>
|
|
<SourceLine>iDbType = MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_DATETIME</SourceLine>
|
|
<SourceLine>case DbType.DBoolean</SourceLine>
|
|
<SourceLine>iDbType = MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_TINYINT</SourceLine>
|
|
<SourceLine>case DbType.DBlob</SourceLine>
|
|
<SourceLine>iDbType = MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_BINARY</SourceLine>
|
|
<SourceLine>case DbType.DText</SourceLine>
|
|
<SourceLine>iDbType = MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_STRING</SourceLine>
|
|
<SourceLine>case DbType.DInt64</SourceLine>
|
|
<SourceLine>iDbType = MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_BIGINT</SourceLine>
|
|
<SourceLine>case DbType.DFloat</SourceLine>
|
|
<SourceLine>iDbType = MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_FLOAT</SourceLine>
|
|
<SourceLine>case else</SourceLine>
|
|
<SourceLine>break 'unsupported type</SourceLine>
|
|
<SourceLine>end select</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeOracle</SourceLine>
|
|
<SourceLine>case isa OracleDatabase</SourceLine>
|
|
<SourceLine>select case aroField(i).enFieldType</SourceLine>
|
|
<SourceLine>case DbType.DInteger</SourceLine>
|
|
<SourceLine>iDbType = OracleSQLPreparedStatement.SQL_TYPE_INTEGER</SourceLine>
|
|
<SourceLine>case DbType.DSmallInt</SourceLine>
|
|
<SourceLine>iDbType = OracleSQLPreparedStatement.SQL_TYPE_INTEGER</SourceLine>
|
|
<SourceLine>case DbType.DDouble</SourceLine>
|
|
<SourceLine>iDbType = OracleSQLPreparedStatement.SQL_TYPE_FLOAT</SourceLine>
|
|
<SourceLine>case DbType.DDate</SourceLine>
|
|
<SourceLine>iDbType = OracleSQLPreparedStatement.SQL_TYPE_DATE</SourceLine>
|
|
<SourceLine>case DbType.DTime</SourceLine>
|
|
<SourceLine>iDbType = OracleSQLPreparedStatement.SQL_TYPE_STRING</SourceLine>
|
|
<SourceLine>case DbType.DTimestamp</SourceLine>
|
|
<SourceLine>iDbType = OracleSQLPreparedStatement.SQL_TYPE_DATE</SourceLine>
|
|
<SourceLine>case DbType.DBoolean</SourceLine>
|
|
<SourceLine>iDbType = OracleSQLPreparedStatement.SQL_TYPE_INTEGER</SourceLine>
|
|
<SourceLine>case DbType.DBlob</SourceLine>
|
|
<SourceLine>iDbType = OracleSQLPreparedStatement.SQL_TYPE_CLOB</SourceLine>
|
|
<SourceLine>case DbType.DText</SourceLine>
|
|
<SourceLine>iDbType = OracleSQLPreparedStatement.SQL_TYPE_STRING</SourceLine>
|
|
<SourceLine>case DbType.DInt64</SourceLine>
|
|
<SourceLine>iDbType = OracleSQLPreparedStatement.SQL_TYPE_INTEGER</SourceLine>
|
|
<SourceLine>case DbType.DFloat</SourceLine>
|
|
<SourceLine>iDbType = OracleSQLPreparedStatement.SQL_TYPE_FLOAT</SourceLine>
|
|
<SourceLine>case else</SourceLine>
|
|
<SourceLine>break 'unsupported type</SourceLine>
|
|
<SourceLine>end select</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeCubeDatabase</SourceLine>
|
|
<SourceLine>case isa CubeSQLServer</SourceLine>
|
|
<SourceLine>select case aroField(i).enFieldType</SourceLine>
|
|
<SourceLine>case DbType.DInteger</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_INTEGER</SourceLine>
|
|
<SourceLine>case DbType.DSmallInt</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_INTEGER</SourceLine>
|
|
<SourceLine>case DbType.DDouble</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_DOUBLE</SourceLine>
|
|
<SourceLine>case DbType.DDate</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DTime</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DTimestamp</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DBoolean</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_BOOLEAN</SourceLine>
|
|
<SourceLine>case DbType.DBlob</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_BLOB</SourceLine>
|
|
<SourceLine>case DbType.DText</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DInt64</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_INT64</SourceLine>
|
|
<SourceLine>case DbType.DFloat</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_DOUBLE</SourceLine>
|
|
<SourceLine>case else</SourceLine>
|
|
<SourceLine>break 'unsupported type</SourceLine>
|
|
<SourceLine>end select</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>end select</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>stmt.BindType(i, iDbType)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if oField.IsKey and v.IntegerValue<=0 then</SourceLine>
|
|
<SourceLine>'if the field is a key and it's 0 or less, then set it to NULL</SourceLine>
|
|
<SourceLine>BindNull(stmt, i)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>elseif pi.PropertyType.Name="Date" or (pi.PropertyType.Name="Variant" and v.Type=Variant.TypeDate) then</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim dt as Date = v.DateValue</SourceLine>
|
|
<SourceLine>if dt=nil then</SourceLine>
|
|
<SourceLine>BindNull(stmt, i)</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>dim dt1 as new Date</SourceLine>
|
|
<SourceLine>dt1.GMTOffset = dt.GMTOffset</SourceLine>
|
|
<SourceLine>dt1.TotalSeconds = dt.TotalSeconds</SourceLine>
|
|
<SourceLine>v = dt1 'copied for the saved value</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim dt2 as new Date</SourceLine>
|
|
<SourceLine>dt2.GMTOffset = dt.GMTOffset</SourceLine>
|
|
<SourceLine>dt2.TotalSeconds = dt.TotalSeconds</SourceLine>
|
|
<SourceLine>dt2.GMTOffset = 0</SourceLine>
|
|
<SourceLine>dt = dt2</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if oField.enFieldType=BKS_ActiveRecord.DbType.DDate then</SourceLine>
|
|
<SourceLine>stmt.Bind(i, dt.SQLDate)</SourceLine>
|
|
<SourceLine>elseif oField.enFieldType=BKS_ActiveRecord.DbType.DTimestamp then</SourceLine>
|
|
<SourceLine>stmt.Bind(i, dt.SQLDateTime)</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>stmt.Bind(i, dt.SQLDateTime)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>elseif pi.PropertyType.Name="Double" and v.DoubleValue = BKS_ActiveRecord.kDoubleNullSentinal then</SourceLine>
|
|
<SourceLine>BindNull(stmt, i)</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>stmt.Bind(i, v)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dictFieldValue.Value(pi.Name) = v</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return dictFieldValue</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>stmt as PreparedSQLStatement, oRecord as BKS_ActiveRecord.Base, aroField() as BKS_ActiveRecord.P.FieldInfo</ItemParams>
|
|
<ItemResult>Dictionary</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>CommitTransaction</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub CommitTransaction()</SourceLine>
|
|
<SourceLine>Db.Commit</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor()</SourceLine>
|
|
<SourceLine>'Empty</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Db() As Database</SourceLine>
|
|
<SourceLine>BKS_Debug.Assert( false, "needs to be implemented in subclass" )</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Database</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>DeleteRecord</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub DeleteRecord(oRecord as BKS_ActiveRecord.Base)</SourceLine>
|
|
<SourceLine>dim sql as string</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(oRecord) )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>sql = "DELETE FROM " + oTableInfo.sTableName + _</SourceLine>
|
|
<SourceLine>" WHERE " + oTableInfo.sPrimaryKey + "=?"</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim stmt as PreparedSQLStatement</SourceLine>
|
|
<SourceLine>stmt = db.Prepare(sql)</SourceLine>
|
|
<SourceLine>BindId(stmt, 0, oRecord.ID)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>stmt.SQLExecute</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_ActiveRecord.DatabaseException(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oRecord as BKS_ActiveRecord.Base</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetLastInsertID</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetLastInsertID() As Int64</SourceLine>
|
|
<SourceLine>BKS_Debug.Assert( false, "needs to be implemented in subclass" )</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Int64</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>HasTable</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function HasTable(sTableName as String) As boolean</SourceLine>
|
|
<SourceLine>dim rs as RecordSet</SourceLine>
|
|
<SourceLine>rs = Db.TableSchema</SourceLine>
|
|
<SourceLine>while not rs.EOF</SourceLine>
|
|
<SourceLine>if rs.IdxField(1).StringValue = sTableName then</SourceLine>
|
|
<SourceLine>return true</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>wend</SourceLine>
|
|
<SourceLine>return false</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>sTableName as String</ItemParams>
|
|
<ItemResult>boolean</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>InsertRecord</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function InsertRecord(oRecord as BKS_ActiveRecord.Base, byref dictSavedPropertyValue as Dictionary) As Int64</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim dictFieldValue as Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(oRecord) )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim arsField() as string</SourceLine>
|
|
<SourceLine>dim arsPlaceholder() as string</SourceLine>
|
|
<SourceLine>dim aroField() as BKS_ActiveRecord.P.FieldInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for each oField as BKS_ActiveRecord.P.FieldInfo in oTableInfo.aroField</SourceLine>
|
|
<SourceLine>if oField.bPrimaryKey then</SourceLine>
|
|
<SourceLine>continue</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>arsField.Append(oField.sFieldName)</SourceLine>
|
|
<SourceLine>arsPlaceholder.Append("?")</SourceLine>
|
|
<SourceLine>aroField.Append(oField)</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim sql as string</SourceLine>
|
|
<SourceLine>sql = "INSERT INTO " + oTableInfo.sTableName</SourceLine>
|
|
<SourceLine>sql = sql + "(" + Join(arsField, ",") + ")"</SourceLine>
|
|
<SourceLine>sql = sql + " VALUES "</SourceLine>
|
|
<SourceLine>sql = sql + "(" + Join(arsPlaceholder, ",") + ")"</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim stmt as PreparedSQLStatement</SourceLine>
|
|
<SourceLine>stmt = db.Prepare(sql)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dictFieldValue = BindValues(stmt, oRecord, aroField)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>stmt.SQLExecute</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_ActiveRecord.DatabaseException(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim iRecordID as Int64 = GetLastInsertID</SourceLine>
|
|
<SourceLine>dictFieldValue.Value( oTableInfo.piPrimaryKey.Name ) = iRecordID</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'store the newly saved property values</SourceLine>
|
|
<SourceLine>dictSavedPropertyValue = dictFieldValue</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return iRecordID</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oRecord as BKS_ActiveRecord.Base, byref dictSavedPropertyValue as Dictionary</ItemParams>
|
|
<ItemResult>Int64</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>RollbackTransaction</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub RollbackTransaction()</SourceLine>
|
|
<SourceLine>Db.Rollback</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>SelectList</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function SelectList(sTable as string, sCondition as string = "", sOrder as string = "") As RecordSet</SourceLine>
|
|
<SourceLine>dim sSQL as string = "SELECT * FROM " + sTable + " "</SourceLine>
|
|
<SourceLine>if sCondition<>"" then</SourceLine>
|
|
<SourceLine>sSQL = sSQL + "WHERE " + sCondition</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if sOrder<>"" then</SourceLine>
|
|
<SourceLine>sSQL = sSQL + " ORDER BY " + sOrder</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>sSQL = sSQL + ";"</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return SQLSelect(sSQL)</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>sTable as string, sCondition as string = "", sOrder as string = ""</ItemParams>
|
|
<ItemResult>RecordSet</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>SelectRecord</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function SelectRecord(oRecord as BKS_ActiveRecord.Base, iRecordID as integer) As RecordSet</SourceLine>
|
|
<SourceLine>dim sql as string</SourceLine>
|
|
<SourceLine>dim rs as RecordSet</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(oRecord) )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>sql = "SELECT * FROM " + oTableInfo.sTableName + _</SourceLine>
|
|
<SourceLine>" WHERE " + oTableInfo.sPrimaryKey + "=?"</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim stmt as PreparedSQLStatement</SourceLine>
|
|
<SourceLine>stmt = db.Prepare(sql)</SourceLine>
|
|
<SourceLine>BindId(stmt, 0, iRecordID)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>rs = stmt.SQLSelect</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_ActiveRecord.DatabaseException(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return rs</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oRecord as BKS_ActiveRecord.Base, iRecordID as integer</ItemParams>
|
|
<ItemResult>RecordSet</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>SQLExecute</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub SQLExecute(sql as String)</SourceLine>
|
|
<SourceLine>db.SQLExecute( sql )</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_ActiveRecord.DatabaseException( db, sql )</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>sql as String</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>SQLSelect</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function SQLSelect(sql as String) As RecordSet</SourceLine>
|
|
<SourceLine>dim rs as RecordSet = db.SQLSelect( sql )</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_ActiveRecord.DatabaseException( db, sql )</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>return rs</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>sql as String</ItemParams>
|
|
<ItemResult>RecordSet</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>UpdateRecord</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub UpdateRecord(oRecord as BKS_ActiveRecord.Base, byref dictSavedPropertyValue as Dictionary)</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim dictFieldValue as Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(oRecord) )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim arsField() as string</SourceLine>
|
|
<SourceLine>dim aroField() as BKS_ActiveRecord.P.FieldInfo</SourceLine>
|
|
<SourceLine>dim oPrimaryKeyField as BKS_ActiveRecord.P.FieldInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for each oField as BKS_ActiveRecord.P.FieldInfo in oTableInfo.aroField</SourceLine>
|
|
<SourceLine>if oField.bPrimaryKey then</SourceLine>
|
|
<SourceLine>oPrimaryKeyField = oField</SourceLine>
|
|
<SourceLine>continue</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>arsField.Append(oField.sFieldName + "=?")</SourceLine>
|
|
<SourceLine>aroField.Append(oField)</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine>dim sql as string</SourceLine>
|
|
<SourceLine>sql = "UPDATE " + oTableInfo.sTableName + " SET "</SourceLine>
|
|
<SourceLine>sql = sql + Join(arsField, ",")</SourceLine>
|
|
<SourceLine>sql = sql + " WHERE " + oTableInfo.sPrimaryKey + "=?"</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim stmt as PreparedSQLStatement</SourceLine>
|
|
<SourceLine>stmt = db.Prepare(sql)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>aroField.Append(oPrimaryKeyField)</SourceLine>
|
|
<SourceLine>dictFieldValue = BindValues(stmt, oRecord, aroField)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>stmt.SQLExecute</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_ActiveRecord.DatabaseException(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'store the newly saved property values</SourceLine>
|
|
<SourceLine>dictSavedPropertyValue = dictFieldValue</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oRecord as BKS_ActiveRecord.Base, byref dictSavedPropertyValue as Dictionary</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="142502936">
|
|
<ObjName>DatabaseException</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>RuntimeException</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(db as Database, sql as string = "")</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>ErrorCode = db.ErrorCode</SourceLine>
|
|
<SourceLine>ErrorMessage = db.ErrorMessage</SourceLine>
|
|
<SourceLine>Message = Str( ErrorCode ) + ": " + ErrorMessage</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>ErrorMessage = "Unknown error"</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if sql <> "" then</SourceLine>
|
|
<SourceLine>Message = Message + EndOfLine + " " + sql</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>db as Database, sql as string = ""</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(sMessage as string, sSQL as string)</SourceLine>
|
|
<SourceLine>if sMessage <> "" then</SourceLine>
|
|
<SourceLine>me.Message = sMessage</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if sSQL <> "" then</SourceLine>
|
|
<SourceLine>me.Message = me.Message + EndOfLine + " " + sSQL</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>sMessage as string, sSQL as string</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>ErrorCode</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>ErrorCode As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>ErrorCode As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>ErrorMessage</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>ErrorMessage As string</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>ErrorMessage As string</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Message</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>String</ItemType>
|
|
<EditorType>MultiLineEditor</EditorType>
|
|
<InheritsFrom>RuntimeException</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>ErrorNumber</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
<InheritsFrom>RuntimeException</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>ErrorCode</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>ErrorMessage</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>string</ItemType>
|
|
<EditorType>MultiLineEditor</EditorType>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="602595753">
|
|
<ObjName>ActiveRecordException</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>RuntimeException</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(s as String)</SourceLine>
|
|
<SourceLine>self.Message = s</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>4096</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>s as String</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Message</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>String</ItemType>
|
|
<EditorType>MultiLineEditor</EditorType>
|
|
<InheritsFrom>RuntimeException</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>ErrorNumber</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
<InheritsFrom>RuntimeException</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="293958225">
|
|
<ObjName>Transaction</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Commit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Commit()</SourceLine>
|
|
<SourceLine>if m_adp=nil then</SourceLine>
|
|
<SourceLine>raise new ActiveRecordException("The transaction was already completed")</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_adp.CommitTransaction</SourceLine>
|
|
<SourceLine>m_adp = nil</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(adp as BKS_ActiveRecord.DatabaseAdapter)</SourceLine>
|
|
<SourceLine>if adp=nil then</SourceLine>
|
|
<SourceLine>raise new ActiveRecordException("Nil argument")</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>adp.BeginTransaction</SourceLine>
|
|
<SourceLine>m_adp = adp</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>adp as BKS_ActiveRecord.DatabaseAdapter</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Destructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Destructor()</SourceLine>
|
|
<SourceLine>'If the user hasn't explictly committed the transaction then do a rollback</SourceLine>
|
|
<SourceLine>if m_adp<>nil then</SourceLine>
|
|
<SourceLine>m_adp.RollbackTransaction</SourceLine>
|
|
<SourceLine>m_adp = nil</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Rollback</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Rollback()</SourceLine>
|
|
<SourceLine>if m_adp=nil then</SourceLine>
|
|
<SourceLine>raise new ActiveRecordException("The transaction was already completed")</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_adp.RollbackTransaction</SourceLine>
|
|
<SourceLine>m_adp = nil</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>m_adp</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_adp As BKS_ActiveRecord.DatabaseAdapter</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_adp As BKS_ActiveRecord.DatabaseAdapter</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="1343516281">
|
|
<ObjName>OracleAdapter</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>BKS_ActiveRecord.DatabaseAdapter</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(oDb as Object)</SourceLine>
|
|
<SourceLine>'If you are not connecting to Oracle and do not have the OraclePlugin plugin delete this class (OracleAdapter)</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeOracle</SourceLine>
|
|
<SourceLine>dim db as OracleDatabase = OracleDatabase(oDb)</SourceLine>
|
|
<SourceLine>if db=nil then</SourceLine>
|
|
<SourceLine>raise new RuntimeException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_db = db</SourceLine>
|
|
<SourceLine>#else</SourceLine>
|
|
<SourceLine>raise new UnsupportedOperationException</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oDb as Object</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Db() As Database</SourceLine>
|
|
<SourceLine>return m_db</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Database</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetLastInsertID</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetLastInsertID() As Int64</SourceLine>
|
|
<SourceLine>dim rs as RecordSet</SourceLine>
|
|
<SourceLine>rs = SQLSelect("SELECT LASTVAL();")</SourceLine>
|
|
<SourceLine>return rs.IdxField(1).Int64Value</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Int64</ItemResult>
|
|
</Method>
|
|
<Note>
|
|
<ItemName>Note</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<NoteLine>Note</NoteLine>
|
|
<NoteLine>If you are not connecting to Oracle and do not have the OraclePlugin plugin delete this class (OracleAdapter)</NoteLine>
|
|
</ItemSource>
|
|
<ItemFlags>0</ItemFlags>
|
|
</Note>
|
|
<Property>
|
|
<ItemName>m_db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_db As Database</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_db As Database</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="1835087015">
|
|
<ObjName>cubeSQLDatabaseAdapter</ObjName>
|
|
<ObjContainerID>618102619</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>BKS_ActiveRecord.DatabaseAdapter</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>BeginTransaction</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub BeginTransaction()</SourceLine>
|
|
<SourceLine>'If you are not connecting to CubeSQLServer and do not have the CubeSQLServer plugin delete this class (cubeSQLDatabaseAdapter)</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeCubeDatabase</SourceLine>
|
|
<SourceLine>dim db as CubeSQLServer = CubeSQLServer(m_db)</SourceLine>
|
|
<SourceLine>if m_iTransactionCt=0 and not db.AutoCommit then</SourceLine>
|
|
<SourceLine>try</SourceLine>
|
|
<SourceLine>m_db.Commit 'commit the auto transaction</SourceLine>
|
|
<SourceLine>catch ex as RuntimeException</SourceLine>
|
|
<SourceLine>'ignore this one</SourceLine>
|
|
<SourceLine>end try</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if m_iTransactionCt=0 then</SourceLine>
|
|
<SourceLine>SQLExecute( "BEGIN" )</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_iTransactionCt = m_iTransactionCt + 1</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>BindValues</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function BindValues(oStmt as Object, oRecord as BKS_ActiveRecord.Base, aroField() as BKS_ActiveRecord.P.FieldInfo) As Dictionary</SourceLine>
|
|
<SourceLine>// Overriding the parent class ...</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeCubeDatabase</SourceLine>
|
|
<SourceLine>dim stmt as cubeSQLVM = cubeSQLVM(oStmt)</SourceLine>
|
|
<SourceLine>dim dictFieldValue as new Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for i as integer = 0 to aroField.Ubound</SourceLine>
|
|
<SourceLine>dim oField as BKS_ActiveRecord.P.FieldInfo = aroField(i)</SourceLine>
|
|
<SourceLine>dim pi as Introspection.PropertyInfo = oField.piFieldProperty</SourceLine>
|
|
<SourceLine>dim v as Variant = pi.Value(oRecord)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim iDbType as integer</SourceLine>
|
|
<SourceLine>select case aroField(i).enFieldType</SourceLine>
|
|
<SourceLine>case DbType.DInteger</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_INTEGER</SourceLine>
|
|
<SourceLine>case DbType.DSmallInt</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_INTEGER</SourceLine>
|
|
<SourceLine>case DbType.DDouble</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_DOUBLE</SourceLine>
|
|
<SourceLine>case DbType.DDate</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DTime</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DTimestamp</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DBoolean</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_BOOLEAN</SourceLine>
|
|
<SourceLine>case DbType.DBlob</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_BLOB</SourceLine>
|
|
<SourceLine>case DbType.DText</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>case DbType.DInt64</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_INT64</SourceLine>
|
|
<SourceLine>case DbType.DFloat</SourceLine>
|
|
<SourceLine>iDbType = REALSQLPreparedStatement.SQLITE_DOUBLE</SourceLine>
|
|
<SourceLine>case else</SourceLine>
|
|
<SourceLine>break 'unsupported type</SourceLine>
|
|
<SourceLine>end select</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if oField.IsKey and v.IntegerValue<=0 then</SourceLine>
|
|
<SourceLine>'if the field is a key and it's 0 or less, then set it to NULL</SourceLine>
|
|
<SourceLine>iDBType = REALSQLPreparedStatement.SQLITE_NULL</SourceLine>
|
|
<SourceLine>elseif pi.PropertyType.Name="Date" or _</SourceLine>
|
|
<SourceLine>(pi.PropertyType.Name="Variant" and v.Type=Variant.TypeDate) then</SourceLine>
|
|
<SourceLine>dim dt as Date = v.DateValue</SourceLine>
|
|
<SourceLine>if dt=nil then</SourceLine>
|
|
<SourceLine>iDBType = REALSQLPreparedStatement.SQLITE_NULL</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>dim dt1 as new Date</SourceLine>
|
|
<SourceLine>dt1.GMTOffset = dt.GMTOffset</SourceLine>
|
|
<SourceLine>dt1.TotalSeconds = dt.TotalSeconds</SourceLine>
|
|
<SourceLine>v = dt1 'copied for the saved value</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim dt2 as new Date</SourceLine>
|
|
<SourceLine>dt2.GMTOffset = dt.GMTOffset</SourceLine>
|
|
<SourceLine>dt2.TotalSeconds = dt.TotalSeconds</SourceLine>
|
|
<SourceLine>dt2.GMTOffset = 0</SourceLine>
|
|
<SourceLine>dt = dt2</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if oField.enFieldType=BKS_ActiveRecord.DbType.DDate then</SourceLine>
|
|
<SourceLine>iDBType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>elseif oField.enFieldType=BKS_ActiveRecord.DbType.DTimestamp then</SourceLine>
|
|
<SourceLine>iDBType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>iDBType = REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>elseif pi.PropertyType.Name="Double" and _</SourceLine>
|
|
<SourceLine>v.DoubleValue = BKS_ActiveRecord.kDoubleNullSentinal then</SourceLine>
|
|
<SourceLine>iDBType = REALSQLPreparedStatement.SQLITE_NULL</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>// stmt.Bind(i, v)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>dictFieldValue.Value(pi.Name) = v</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>select case iDbType</SourceLine>
|
|
<SourceLine>case REALSQLPreparedStatement.SQLITE_INTEGER</SourceLine>
|
|
<SourceLine>stmt.BindInt(i + 1, v.IntegerValue)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>case REALSQLPreparedStatement.SQLITE_DOUBLE</SourceLine>
|
|
<SourceLine>stmt.BindDouble(i + 1, v.DoubleValue)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>case REALSQLPreparedStatement.SQLITE_TEXT</SourceLine>
|
|
<SourceLine>stmt.BindText(i + 1, v.StringValue)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>case REALSQLPreparedStatement.SQLITE_BOOLEAN</SourceLine>
|
|
<SourceLine>stmt.BindInt(i + 1, v.IntegerValue)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>case REALSQLPreparedStatement.SQLITE_BLOB</SourceLine>
|
|
<SourceLine>stmt.BindBlob(i + 1, v)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>case REALSQLPreparedStatement.SQLITE_INT64</SourceLine>
|
|
<SourceLine>stmt.BindInt64(i + 1, v.Int64Value)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>end select</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return dictFieldValue</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oStmt as Object, oRecord as BKS_ActiveRecord.Base, aroField() as BKS_ActiveRecord.P.FieldInfo</ItemParams>
|
|
<ItemResult>Dictionary</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>CommitTransaction</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub CommitTransaction()</SourceLine>
|
|
<SourceLine>m_iTransactionCt = m_iTransactionCt - 1</SourceLine>
|
|
<SourceLine>if m_iTransactionCt=0 then</SourceLine>
|
|
<SourceLine>Db.Commit</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>dim ex as new BKS_ActiveRecord.DatabaseException(db, "Commit")</SourceLine>
|
|
<SourceLine>db.Rollback</SourceLine>
|
|
<SourceLine>raise ex</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(oDb as Object)</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeCubeDatabase</SourceLine>
|
|
<SourceLine>dim db as CubeSQLServer = CubeSQLServer(oDb)</SourceLine>
|
|
<SourceLine>if db=nil then</SourceLine>
|
|
<SourceLine>raise new RuntimeException</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>m_db = db</SourceLine>
|
|
<SourceLine>#else</SourceLine>
|
|
<SourceLine>dim ex as new UnsupportedOperationException</SourceLine>
|
|
<SourceLine>ex.Message = "CubeSQL is not enabled"</SourceLine>
|
|
<SourceLine>raise ex</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oDb as Object</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function Db() As Database</SourceLine>
|
|
<SourceLine>return m_db</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Database</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>DeleteRecord</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub DeleteRecord(oRecord as BKS_ActiveRecord.Base)</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeCubeDatabase</SourceLine>
|
|
<SourceLine>dim db as CubeSQLServer = CubeSQLServer(m_db)</SourceLine>
|
|
<SourceLine>dim sql as string</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(oRecord) )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>sql = "DELETE FROM " + oTableInfo.sTableName + _</SourceLine>
|
|
<SourceLine>" WHERE " + oTableInfo.sPrimaryKey + "=?1"</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim stmt as CubeSQLVM</SourceLine>
|
|
<SourceLine>stmt = db.VMPrepare(sql)</SourceLine>
|
|
<SourceLine>stmt.BindInt64(1, oRecord.ID)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>stmt.VMExecute</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_ActiveRecord.DatabaseException(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oRecord as BKS_ActiveRecord.Base</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>GetLastInsertID</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function GetLastInsertID() As Int64</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeCubeDatabase</SourceLine>
|
|
<SourceLine>dim db as CubeSQLServer = CubeSQLServer(m_db)</SourceLine>
|
|
<SourceLine>return db.LastRowID</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Int64</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>InsertRecord</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function InsertRecord(oRecord as BKS_ActiveRecord.Base, byref dictSavedPropertyValue as Dictionary) As Int64</SourceLine>
|
|
<SourceLine>// Overriding the parent class ...</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeCubeDatabase</SourceLine>
|
|
<SourceLine>dim db as CubeSQLServer = CubeSQLServer(m_db)</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim dictFieldValue as Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(oRecord) )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim arsField() as string</SourceLine>
|
|
<SourceLine>dim arsPlaceholder() as string</SourceLine>
|
|
<SourceLine>dim aroField() as BKS_ActiveRecord.P.FieldInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim i as integer</SourceLine>
|
|
<SourceLine>for each oField as BKS_ActiveRecord.P.FieldInfo in oTableInfo.aroField</SourceLine>
|
|
<SourceLine>if oField.bPrimaryKey then</SourceLine>
|
|
<SourceLine>continue</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>arsField.Append(oField.sFieldName)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>i = i + 1</SourceLine>
|
|
<SourceLine>arsPlaceholder.Append("?" + str(i))</SourceLine>
|
|
<SourceLine>aroField.Append(oField)</SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine>dim sql as string</SourceLine>
|
|
<SourceLine>sql = "INSERT INTO " + oTableInfo.sTableName</SourceLine>
|
|
<SourceLine>sql = sql + "(" + Join(arsField, ",") + ")"</SourceLine>
|
|
<SourceLine>sql = sql + " VALUES "</SourceLine>
|
|
<SourceLine>sql = sql + "(" + Join(arsPlaceholder, ",") + ")"</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim stmt as CubeSQLVM</SourceLine>
|
|
<SourceLine>stmt = db.VMPrepare(sql)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dictFieldValue = BindValues(stmt, oRecord, aroField)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>stmt.VMExecute</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_ActiveRecord.DatabaseException(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim iRecordID as Int64 = GetLastInsertID</SourceLine>
|
|
<SourceLine>dictFieldValue.Value( oTableInfo.piPrimaryKey.Name ) = iRecordID</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'store the newly saved property values</SourceLine>
|
|
<SourceLine>dictSavedPropertyValue = dictFieldValue</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return iRecordID</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oRecord as BKS_ActiveRecord.Base, byref dictSavedPropertyValue as Dictionary</ItemParams>
|
|
<ItemResult>Int64</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>RollbackTransaction</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub RollbackTransaction()</SourceLine>
|
|
<SourceLine>m_iTransactionCt = m_iTransactionCt - 1</SourceLine>
|
|
<SourceLine>if m_iTransactionCt=0 then</SourceLine>
|
|
<SourceLine>Db.Rollback</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>SelectRecord</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function SelectRecord(oRecord as BKS_ActiveRecord.Base, iRecordID as Int64) As RecordSet</SourceLine>
|
|
<SourceLine>// Overriding the parent class ...</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeCubeDatabase</SourceLine>
|
|
<SourceLine>dim db as CubeSQLServer = CubeSQLServer(m_db)</SourceLine>
|
|
<SourceLine>dim sql as string</SourceLine>
|
|
<SourceLine>dim rs as RecordSet</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(oRecord) )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>sql = "SELECT * FROM " + oTableInfo.sTableName + _</SourceLine>
|
|
<SourceLine>" WHERE " + oTableInfo.sPrimaryKey + "=?1"</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim stmt as CubeSQLVM</SourceLine>
|
|
<SourceLine>stmt = db.VMPrepare(sql)</SourceLine>
|
|
<SourceLine>// stmt.BindType(0, REALSQLPreparedStatement.SQLITE_INT64)</SourceLine>
|
|
<SourceLine>stmt.BindInt64(1, iRecordID)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>rs = stmt.VMSelect</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_ActiveRecord.DatabaseException(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return rs</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oRecord as BKS_ActiveRecord.Base, iRecordID as Int64</ItemParams>
|
|
<ItemResult>RecordSet</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>UpdateRecord</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub UpdateRecord(oRecord as BKS_ActiveRecord.Base, byref dictSavedPropertyValue as Dictionary)</SourceLine>
|
|
<SourceLine>// Overriding the parent class ...</SourceLine>
|
|
<SourceLine>#if BKS_ActiveRecordConfig.kIncludeCubeDatabase</SourceLine>
|
|
<SourceLine>dim db as CubeSQLServer = CubeSQLServer(m_db)</SourceLine>
|
|
<SourceLine>dim oTableInfo as BKS_ActiveRecord.P.TableInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim dictFieldValue as Dictionary</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>oTableInfo = GetTableInfo( Introspection.GetType(oRecord) )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim arsField() as string</SourceLine>
|
|
<SourceLine>dim aroField() as BKS_ActiveRecord.P.FieldInfo</SourceLine>
|
|
<SourceLine>dim oPrimaryKeyField as BKS_ActiveRecord.P.FieldInfo</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim i as integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>for each oField as BKS_ActiveRecord.P.FieldInfo in oTableInfo.aroField</SourceLine>
|
|
<SourceLine>if oField.bPrimaryKey then</SourceLine>
|
|
<SourceLine>oPrimaryKeyField = oField</SourceLine>
|
|
<SourceLine>continue</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>i = i + 1</SourceLine>
|
|
<SourceLine>arsField.Append(oField.sFieldName + "=?" + str(i))</SourceLine>
|
|
<SourceLine>aroField.Append(oField)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>next</SourceLine>
|
|
<SourceLine>dim sql as string</SourceLine>
|
|
<SourceLine>sql = "UPDATE " + oTableInfo.sTableName + " SET "</SourceLine>
|
|
<SourceLine>sql = sql + Join(arsField, ",")</SourceLine>
|
|
<SourceLine>sql = sql + " WHERE " + oTableInfo.sPrimaryKey + "=?"</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>dim stmt as CubeSQLVM</SourceLine>
|
|
<SourceLine>stmt = db.VMPrepare(sql)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>aroField.Append(oPrimaryKeyField)</SourceLine>
|
|
<SourceLine>dictFieldValue = me.BindValues(stmt, oRecord, aroField)</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>stmt.VMExecute</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_ActiveRecord.DatabaseException(db)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>'store the newly saved property values</SourceLine>
|
|
<SourceLine>dictSavedPropertyValue = dictFieldValue</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>oRecord as BKS_ActiveRecord.Base, byref dictSavedPropertyValue as Dictionary</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Note>
|
|
<ItemName>CubeSQLServer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<NoteLine>CubeSQLServer</NoteLine>
|
|
<NoteLine>If you are not connecting to CubeSQLServer and </NoteLine>
|
|
<NoteLine>do not have the CubeSQLServer plugin delete this class (cubeSQLDatabaseAdapter)</NoteLine>
|
|
</ItemSource>
|
|
<ItemFlags>0</ItemFlags>
|
|
</Note>
|
|
<Property>
|
|
<ItemName>m_db</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_db As Database</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_db As Database</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>m_iTransactionCt</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>m_iTransactionCt As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>m_iTransactionCt As Integer</ItemDeclaration>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="147339697">
|
|
<ObjName>BKS_Database</ObjName>
|
|
<ObjContainerID>0</ObjContainerID>
|
|
<IsClass>0</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>SQLExecuteRaiseOnError</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub SQLExecuteRaiseOnError(extends db as Database, sql as String)</SourceLine>
|
|
<SourceLine>db.SQLExecute( sql )</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_Database.DatabaseException( db.ErrorMessage, sql )</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>extends db as Database, sql as String</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>SQLSelectRaiseOnError</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function SQLSelectRaiseOnError(extends db as Database, sql as String) As RecordSet</SourceLine>
|
|
<SourceLine>dim rs as RecordSet = db.SQLSelect( sql )</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>raise new BKS_Database.DatabaseException( db.ErrorMessage, sql )</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>return rs</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>extends db as Database, sql as String</ItemParams>
|
|
<ItemResult>RecordSet</ItemResult>
|
|
</Method>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="289659294">
|
|
<ObjName>DatabaseException</ObjName>
|
|
<ObjContainerID>147339697</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>RuntimeException</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(db as Database, sql as string = "")</SourceLine>
|
|
<SourceLine>if db.Error then</SourceLine>
|
|
<SourceLine>ErrorCode = db.ErrorCode</SourceLine>
|
|
<SourceLine>ErrorMessage = db.ErrorMessage</SourceLine>
|
|
<SourceLine>Message = Str( ErrorCode ) + ": " + ErrorMessage</SourceLine>
|
|
<SourceLine>else</SourceLine>
|
|
<SourceLine>ErrorMessage = "Unknown error"</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if sql <> "" then</SourceLine>
|
|
<SourceLine>Message = Message + EndOfLine + " " + sql</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>db as Database, sql as string = ""</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(sMessage as string, sSQL as string)</SourceLine>
|
|
<SourceLine>if sMessage <> "" then</SourceLine>
|
|
<SourceLine>me.Message = sMessage</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if sSQL <> "" then</SourceLine>
|
|
<SourceLine>me.Message = me.Message + EndOfLine + " " + sSQL</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>sMessage as string, sSQL as string</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>ErrorCode</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>ErrorCode As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>ErrorCode As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>ErrorMessage</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>ErrorMessage As string</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>ErrorMessage As string</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Message</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>String</ItemType>
|
|
<EditorType>MultiLineEditor</EditorType>
|
|
<InheritsFrom>RuntimeException</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>ErrorNumber</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
<InheritsFrom>RuntimeException</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>ErrorCode</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>ErrorMessage</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>string</ItemType>
|
|
<EditorType>MultiLineEditor</EditorType>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Folder" ID="1986983246">
|
|
<ObjName>BKS_Core</ObjName>
|
|
<ObjContainerID>0</ObjContainerID>
|
|
</block>
|
|
<block type="Module" ID="1856721478">
|
|
<ObjName>BKS_Debug</ObjName>
|
|
<ObjContainerID>1986983246</ObjContainerID>
|
|
<IsClass>0</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Assert</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Assert(bCondition as boolean, sMessage as string = "")</SourceLine>
|
|
<SourceLine>#if DebugBuild then</SourceLine>
|
|
<SourceLine>if not bCondition then</SourceLine>
|
|
<SourceLine>Raise new BKS_AssertFailedException(sMessage)</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>#endif</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>1</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>bCondition as boolean, sMessage as string = ""</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="Module" ID="833022995">
|
|
<ObjName>BKS_AssertFailedException</ObjName>
|
|
<ObjContainerID>1856721478</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>RuntimeException</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Constructor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Constructor(sMessage as string)</SourceLine>
|
|
<SourceLine>if sMessage <> "" then</SourceLine>
|
|
<SourceLine>Me.Message = sMessage</SourceLine>
|
|
<SourceLine>end if</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>sMessage as string</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<ViewBehavior>
|
|
<ViewProperty>
|
|
<ObjName>Name</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Index</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<PropertyValue>-2147483648</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Super</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>ID</PropertyGroup>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Left</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Top</ObjName>
|
|
<Visible>1</Visible>
|
|
<PropertyGroup>Position</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<InheritsFrom>Object</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>Message</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<ItemType>String</ItemType>
|
|
<EditorType>MultiLineEditor</EditorType>
|
|
<InheritsFrom>RuntimeException</InheritsFrom>
|
|
</ViewProperty>
|
|
<ViewProperty>
|
|
<ObjName>ErrorNumber</ObjName>
|
|
<PropertyGroup>Behavior</PropertyGroup>
|
|
<PropertyValue>0</PropertyValue>
|
|
<ItemType>Integer</ItemType>
|
|
<InheritsFrom>RuntimeException</InheritsFrom>
|
|
</ViewProperty>
|
|
</ViewBehavior>
|
|
</block>
|
|
<block type="UIState" ID="0">
|
|
<WindowState>
|
|
<OpenTab>
|
|
<ObjContainerID>0</ObjContainerID>
|
|
<EditSplit>448</EditSplit>
|
|
<ProjectListSortColumn>3</ProjectListSortColumn>
|
|
<ProjectListColumnSortDirection>1</ProjectListColumnSortDirection>
|
|
</OpenTab>
|
|
<LastLocation>(Home)</LastLocation>
|
|
<EditBounds><Rect left="156" top="117" width="1159" height="1201"/></EditBounds>
|
|
</WindowState>
|
|
</block>
|
|
|
|
<block type="Module" ID="801328863">
|
|
<ObjName>BKS_ActiveRecordConfig</ObjName>
|
|
<ObjContainerID>0</ObjContainerID>
|
|
<IsClass>0</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Constant>
|
|
<ItemName>kIncludeCubeDatabase</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemName>kIncludeCubeDatabase</ItemName>
|
|
<ItemType>3</ItemType>
|
|
<ItemDef>False</ItemDef>
|
|
<ItemFlags>1</ItemFlags>
|
|
</Constant>
|
|
<Constant>
|
|
<ItemName>kIncludeMSSQLServer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemName>kIncludeMSSQLServer</ItemName>
|
|
<ItemType>3</ItemType>
|
|
<ItemDef>False</ItemDef>
|
|
<ItemFlags>1</ItemFlags>
|
|
</Constant>
|
|
<Constant>
|
|
<ItemName>kIncludeMySQLCommunityServer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemName>kIncludeMySQLCommunityServer</ItemName>
|
|
<ItemType>3</ItemType>
|
|
<ItemDef>True</ItemDef>
|
|
<ItemFlags>1</ItemFlags>
|
|
</Constant>
|
|
<Constant>
|
|
<ItemName>kIncludeOracle</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemName>kIncludeOracle</ItemName>
|
|
<ItemType>3</ItemType>
|
|
<ItemDef>False</ItemDef>
|
|
<ItemFlags>1</ItemFlags>
|
|
</Constant>
|
|
<Constant>
|
|
<ItemName>kIncludePostgreSQLDatabase</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemName>kIncludePostgreSQLDatabase</ItemName>
|
|
<ItemType>3</ItemType>
|
|
<ItemDef>False</ItemDef>
|
|
<ItemFlags>1</ItemFlags>
|
|
</Constant>
|
|
<Constant>
|
|
<ItemName>kIncludeREALSQLDatabase</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemName>kIncludeREALSQLDatabase</ItemName>
|
|
<ItemType>3</ItemType>
|
|
<ItemDef>False</ItemDef>
|
|
<ItemFlags>1</ItemFlags>
|
|
</Constant>
|
|
<Constant>
|
|
<ItemName>kIncludeSQLiteDatabase</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemName>kIncludeSQLiteDatabase</ItemName>
|
|
<ItemType>3</ItemType>
|
|
<ItemDef>False</ItemDef>
|
|
<ItemFlags>1</ItemFlags>
|
|
</Constant>
|
|
</block>
|
|
<block type="Module" ID="1226391017">
|
|
<ObjName>DataFile</ObjName>
|
|
<ObjContainerID>0</ObjContainerID>
|
|
<IsClass>0</IsClass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Method>
|
|
<ItemName>Register</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub Register(db as MySQLCommunityServer)</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_auslieferungsliste", GetTypeInfo( tbl_auslieferungsliste ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_auslieferungsschein_bestellung", GetTypeInfo( tbl_auslieferungsschein_bestellung ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_auslieferungsscheine", GetTypeInfo( tbl_auslieferungsscheine ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_benutzer", GetTypeInfo( tbl_benutzer ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_bestellungen", GetTypeInfo( tbl_bestellungen ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_cmr", GetTypeInfo( tbl_cmr ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_coa", GetTypeInfo( tbl_coa ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_coa_bestellung", GetTypeInfo( tbl_coa_bestellung ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_hilfswerte_coa", GetTypeInfo( tbl_hilfswerte_coa ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_kunden", GetTypeInfo( tbl_kunden ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_kunden_adressen", GetTypeInfo( tbl_kunden_adressen ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_laenderkennungen", GetTypeInfo( tbl_laenderkennungen ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_mikrobiologie", GetTypeInfo( tbl_mikrobiologie ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_mikrobiologie_auslieferungsschein", GetTypeInfo( tbl_mikrobiologie_auslieferungsschein ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_mikrobiologie_bestellung", GetTypeInfo( tbl_mikrobiologie_bestellung ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_paletten", GetTypeInfo( tbl_paletten ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_speditionen", GetTypeInfo( tbl_speditionen ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_speditionen_adressen", GetTypeInfo( tbl_speditionen_adressen ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_transport_ust", GetTypeInfo( tbl_transport_ust ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_verpackungen", GetTypeInfo( tbl_verpackungen ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_werk", GetTypeInfo( tbl_werk ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "tbl_zusammengefasste_bestellungen", GetTypeInfo( tbl_zusammengefasste_bestellungen ) )</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Table( db, "view_logistik_auftraege", GetTypeInfo( view_logistik_auftraege ) )</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>33</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams>db as MySQLCommunityServer</ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
<Property>
|
|
<ItemName>gDB</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>gDB As MySQLCommunityServer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>gDB As MySQLCommunityServer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>OpenDB</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Function OpenDB() As Boolean</SourceLine>
|
|
<SourceLine>dim db as new MySQLCommunityServer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>db.Host = "localhost"</SourceLine>
|
|
<SourceLine>db.Port = 3306</SourceLine>
|
|
<SourceLine>db.DatabaseName = "steinickev4"</SourceLine>
|
|
<SourceLine>db.UserName = "root"</SourceLine>
|
|
<SourceLine>db.Password = "test" //think about obfuscating this string</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>if db.Connect = false then</SourceLine>
|
|
<SourceLine>MsgBox "Couldn't Connect" + EndOfLine + db.ErrorMessage</SourceLine>
|
|
<SourceLine>return false</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>gDB = db</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>//Important to tell ActiveRecord what the connection is!</SourceLine>
|
|
<SourceLine>BKS_ActiveRecord.Connect( gdb )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>//Make any db updates here before registering</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>//Register the tables with ActiveRecord</SourceLine>
|
|
<SourceLine>Register( gdb )</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
<SourceLine>return true</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult>Boolean</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>CloseDB</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>Sub CloseDB()</SourceLine>
|
|
<SourceLine>if gDB <> nil then</SourceLine>
|
|
<SourceLine>gDB.close</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>End Sub</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName></AliasName>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
<ItemParams></ItemParams>
|
|
<ItemResult></ItemResult>
|
|
</Method>
|
|
</block>
|
|
<block type="Module" ID="338596001">
|
|
<ObjName>ActiveRecordBase</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>BKS_ActiveRecord.Base</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
</block>
|
|
<block type="Module" ID="445677331">
|
|
<ObjName>tbl_auslieferungsliste</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>bestellung_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bestellung_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bestellung_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>benutzerwerk_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>benutzerwerk_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>benutzerwerk_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>checked</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>checked As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>checked As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kunden_titel</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_titel As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_titel As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>artikel_bezeichnung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>artikel_bezeichnung As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>artikel_bezeichnung As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>artikel_nummer_intern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>artikel_nummer_intern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>artikel_nummer_intern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>abruf_nummer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>abruf_nummer As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>abruf_nummer As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>menge</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>menge As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>menge As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>auslieferungsdatum</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>auslieferungsdatum As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>auslieferungsdatum As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bemerkungen</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bemerkungen As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bemerkungen As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_auslieferungsliste()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_auslieferungsliste() as DataFile.tbl_auslieferungsliste = DataFile.tbl_auslieferungsliste.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_auslieferungsliste() as DataFile.tbl_auslieferungsliste</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_auslieferungsliste "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_auslieferungsliste</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_auslieferungsliste</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_auslieferungsliste.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_auslieferungsliste</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_auslieferungsliste()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_auslieferungsliste</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_auslieferungsliste as DataFile.tbl_auslieferungsliste = DataFile.tbl_auslieferungsliste.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_auslieferungsliste WHERE = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_auslieferungsliste as new DataFile.tbl_auslieferungsliste</SourceLine>
|
|
<SourceLine>tbl_auslieferungsliste.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_auslieferungsliste</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_auslieferungsliste</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="176147174">
|
|
<ObjName>tbl_auslieferungsschein_bestellung</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kunden_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bestellung_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bestellung_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bestellung_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kunden_titel</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_titel As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_titel As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>coa_kontakt</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>coa_kontakt As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>coa_kontakt As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>artikel_bezeichnung_extern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>artikel_bezeichnung_extern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>artikel_bezeichnung_extern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>artikel_bezeichnung_intern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>artikel_bezeichnung_intern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>artikel_bezeichnung_intern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kontrakt_extern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kontrakt_extern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kontrakt_extern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kontrakt_intern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kontrakt_intern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kontrakt_intern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>artikel_nummer_extern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>artikel_nummer_extern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>artikel_nummer_extern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>artikel_nummer_intern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>artikel_nummer_intern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>artikel_nummer_intern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>spezial_kunde</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>spezial_kunde As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>spezial_kunde As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sensorik1</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sensorik1 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sensorik1 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sensorik2</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sensorik2 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sensorik2 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sensorik3</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sensorik3 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sensorik3 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>schnitt_koernung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>schnitt_koernung As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>schnitt_koernung As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>muster</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>muster As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>muster As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>schuettgewicht</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>schuettgewicht As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>schuettgewicht As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>stampfvolumen</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>stampfvolumen As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>stampfvolumen As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>abruf_nummer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>abruf_nummer As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>abruf_nummer As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>farbe</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>farbe As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>farbe As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>aussehen</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>aussehen As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>aussehen As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>feuchtigkeit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>feuchtigkeit As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>feuchtigkeit As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sand</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sand As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sand As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>asche</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>asche As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>asche As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mhd</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mhd As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mhd As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bulkindex</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bulkindex As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bulkindex As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>attribut_auswahl</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>attribut_auswahl As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>attribut_auswahl As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sieb1</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sieb1 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sieb1 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sieb2</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sieb2 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sieb2 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sieb3</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sieb3 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sieb3 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sieb4</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sieb4 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sieb4 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sieb5</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sieb5 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sieb5 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sieb6</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sieb6 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sieb6 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mikrobiologie</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mikrobiologie As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mikrobiologie As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>statistiknummer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>statistiknummer As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>statistiknummer As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bemerkung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bemerkung As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bemerkung As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>zusatz</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>zusatz As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>zusatz As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>menge</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>menge As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>menge As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>menge_lbs</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>menge_lbs As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>menge_lbs As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>menge_brutto</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>menge_brutto As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>menge_brutto As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>verpackung_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>verpackung_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>verpackung_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>verpackung_anzahl</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>verpackung_anzahl As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>verpackung_anzahl As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>verpackung_gewicht</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>verpackung_gewicht As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>verpackung_gewicht As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>paletten_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>paletten_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>paletten_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>paletten_anzahl</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>paletten_anzahl As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>paletten_anzahl As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>palettenverpackung_anzahl</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>palettenverpackung_anzahl As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>palettenverpackung_anzahl As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>auslieferungs_auftrags_nummer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>auslieferungs_auftrags_nummer As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>auslieferungs_auftrags_nummer As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>fa_nummer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>fa_nummer As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>fa_nummer As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>letzte_lieferung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>letzte_lieferung As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>letzte_lieferung As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>auslieferungsdatum</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>auslieferungsdatum As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>auslieferungsdatum As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>anlieferungsdatum</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>anlieferungsdatum As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>anlieferungsdatum As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>auslieferungsschein_titel</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>auslieferungsschein_titel As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>auslieferungsschein_titel As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_auslieferungsschein_bestellung()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_auslieferungsschein_bestellung() as DataFile.tbl_auslieferungsschein_bestellung = DataFile.tbl_auslieferungsschein_bestellung.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_auslieferungsschein_bestellung() as DataFile.tbl_auslieferungsschein_bestellung</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_auslieferungsschein_bestellung "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_auslieferungsschein_bestellung</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_auslieferungsschein_bestellung</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_auslieferungsschein_bestellung.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_auslieferungsschein_bestellung</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_auslieferungsschein_bestellung()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_auslieferungsschein_bestellung</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_auslieferungsschein_bestellung as DataFile.tbl_auslieferungsschein_bestellung = DataFile.tbl_auslieferungsschein_bestellung.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_auslieferungsschein_bestellung WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_auslieferungsschein_bestellung as new DataFile.tbl_auslieferungsschein_bestellung</SourceLine>
|
|
<SourceLine>tbl_auslieferungsschein_bestellung.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_auslieferungsschein_bestellung</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_auslieferungsschein_bestellung</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="1993105279">
|
|
<ObjName>tbl_auslieferungsscheine</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kunden_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kunden_titel</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_titel As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_titel As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>coa_kontakt</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>coa_kontakt As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>coa_kontakt As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>artikel_bezeichnung_extern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>artikel_bezeichnung_extern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>artikel_bezeichnung_extern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>artikel_bezeichnung_intern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>artikel_bezeichnung_intern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>artikel_bezeichnung_intern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kontrakt_extern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kontrakt_extern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kontrakt_extern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kontrakt_intern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kontrakt_intern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kontrakt_intern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>artikel_nummer_extern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>artikel_nummer_extern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>artikel_nummer_extern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>artikel_nummer_intern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>artikel_nummer_intern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>artikel_nummer_intern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>spezial_kunde</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>spezial_kunde As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>spezial_kunde As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sensorik1</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sensorik1 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sensorik1 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sensorik2</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sensorik2 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sensorik2 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sensorik3</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sensorik3 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sensorik3 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>schnitt_koernung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>schnitt_koernung As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>schnitt_koernung As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>muster</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>muster As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>muster As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>schuettgewicht</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>schuettgewicht As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>schuettgewicht As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>stampfvolumen</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>stampfvolumen As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>stampfvolumen As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>abruf_nummer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>abruf_nummer As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>abruf_nummer As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>farbe</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>farbe As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>farbe As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>aussehen</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>aussehen As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>aussehen As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>feuchtigkeit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>feuchtigkeit As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>feuchtigkeit As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sand</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sand As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sand As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>asche</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>asche As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>asche As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mhd</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mhd As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mhd As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bulkindex</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bulkindex As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bulkindex As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>attribut_auswahl</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>attribut_auswahl As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>attribut_auswahl As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sieb1</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sieb1 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sieb1 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sieb2</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sieb2 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sieb2 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sieb3</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sieb3 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sieb3 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sieb4</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sieb4 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sieb4 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sieb5</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sieb5 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sieb5 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>sieb6</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>sieb6 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>sieb6 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mikrobiologie</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mikrobiologie As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mikrobiologie As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>statistiknummer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>statistiknummer As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>statistiknummer As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bemerkung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bemerkung As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bemerkung As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>zusatz</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>zusatz As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>zusatz As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>menge</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>menge As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>menge As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>menge_lbs</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>menge_lbs As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>menge_lbs As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>menge_brutto</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>menge_brutto As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>menge_brutto As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>verpackung_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>verpackung_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>verpackung_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>verpackung_anzahl</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>verpackung_anzahl As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>verpackung_anzahl As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>verpackung_gewicht</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>verpackung_gewicht As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>verpackung_gewicht As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>paletten_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>paletten_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>paletten_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>paletten_anzahl</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>paletten_anzahl As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>paletten_anzahl As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>palettenverpackung_anzahl</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>palettenverpackung_anzahl As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>palettenverpackung_anzahl As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>auslieferungs_auftrags_nummer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>auslieferungs_auftrags_nummer As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>auslieferungs_auftrags_nummer As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>fa_nummer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>fa_nummer As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>fa_nummer As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>letzte_lieferung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>letzte_lieferung As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>letzte_lieferung As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>auslieferungsdatum</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>auslieferungsdatum As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>auslieferungsdatum As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>anlieferungsdatum</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>anlieferungsdatum As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>anlieferungsdatum As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>auslieferungsschein_titel</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>auslieferungsschein_titel As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>auslieferungsschein_titel As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_auslieferungsscheine()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_auslieferungsscheine() as DataFile.tbl_auslieferungsscheine = DataFile.tbl_auslieferungsscheine.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_auslieferungsscheine() as DataFile.tbl_auslieferungsscheine</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_auslieferungsscheine "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_auslieferungsscheine</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_auslieferungsscheine</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_auslieferungsscheine.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_auslieferungsscheine</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_auslieferungsscheine()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_auslieferungsscheine</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_auslieferungsscheine as DataFile.tbl_auslieferungsscheine = DataFile.tbl_auslieferungsscheine.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_auslieferungsscheine WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_auslieferungsscheine as new DataFile.tbl_auslieferungsscheine</SourceLine>
|
|
<SourceLine>tbl_auslieferungsscheine.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_auslieferungsscheine</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_auslieferungsscheine</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="518252293">
|
|
<ObjName>tbl_benutzer</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>benutzername</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>benutzername As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>benutzername As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>benutzerpasswort</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>benutzerpasswort As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>benutzerpasswort As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>anrede</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>anrede As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>anrede As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>vorname</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>vorname As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>vorname As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>nachname</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>nachname As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>nachname As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>abteilung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>abteilung As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>abteilung As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>emailadresse</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>emailadresse As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>emailadresse As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>durchwahl</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>durchwahl As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>durchwahl As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bemerkungen</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bemerkungen As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bemerkungen As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>benutzerwerk_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>benutzerwerk_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>benutzerwerk_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>adminuser</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>adminuser As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>adminuser As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>token</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>token As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>token As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_benutzer()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_benutzer() as DataFile.tbl_benutzer = DataFile.tbl_benutzer.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_benutzer() as DataFile.tbl_benutzer</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_benutzer "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_benutzer</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_benutzer</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_benutzer.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_benutzer</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_benutzer()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_benutzer</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_benutzer as DataFile.tbl_benutzer = DataFile.tbl_benutzer.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_benutzer WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_benutzer as new DataFile.tbl_benutzer</SourceLine>
|
|
<SourceLine>tbl_benutzer.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_benutzer</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_benutzer</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="1606870316">
|
|
<ObjName>tbl_bestellungen</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kunden_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>auslieferungsschein_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>auslieferungsschein_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>auslieferungsschein_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bearbeiter_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bearbeiter_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bearbeiter_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>benutzerwerk_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>benutzerwerk_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>benutzerwerk_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>auslieferungs_datum</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>auslieferungs_datum As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>auslieferungs_datum As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>anlieferungs_datum</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>anlieferungs_datum As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>anlieferungs_datum As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kunden_nummer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_nummer As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_nummer As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>abruf_nummer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>abruf_nummer As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>abruf_nummer As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>status</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>status As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>status As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_bestellungen()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_bestellungen() as DataFile.tbl_bestellungen = DataFile.tbl_bestellungen.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_bestellungen() as DataFile.tbl_bestellungen</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_bestellungen "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_bestellungen</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_bestellungen</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_bestellungen.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_bestellungen</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_bestellungen()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_bestellungen</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_bestellungen as DataFile.tbl_bestellungen = DataFile.tbl_bestellungen.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_bestellungen WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_bestellungen as new DataFile.tbl_bestellungen</SourceLine>
|
|
<SourceLine>tbl_bestellungen.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_bestellungen</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_bestellungen</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="263272862">
|
|
<ObjName>tbl_cmr</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>bestellung_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bestellung_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bestellung_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>benutzerwerk_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>benutzerwerk_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>benutzerwerk_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deliverynote</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deliverynote As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deliverynote As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>invoice</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>invoice As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>invoice As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mrn</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mrn As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mrn As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>statistiknummer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>statistiknummer As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>statistiknummer As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kunden_adressen_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_adressen_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_adressen_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kunden_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_cmr()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_cmr() as DataFile.tbl_cmr = DataFile.tbl_cmr.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_cmr() as DataFile.tbl_cmr</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_cmr "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_cmr</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_cmr</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_cmr.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_cmr</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_cmr()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_cmr</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_cmr as DataFile.tbl_cmr = DataFile.tbl_cmr.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_cmr WHERE = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_cmr as new DataFile.tbl_cmr</SourceLine>
|
|
<SourceLine>tbl_cmr.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_cmr</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_cmr</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="186513829">
|
|
<ObjName>tbl_coa</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>auslieferungsschein_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>auslieferungsschein_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>auslieferungsschein_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>hilfswerte_coa_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>hilfswerte_coa_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>hilfswerte_coa_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>werte</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>werte As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>werte As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_datum</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_datum As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_datum As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_editierdatum</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_editierdatum As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_editierdatum As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_coa()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_coa() as DataFile.tbl_coa = DataFile.tbl_coa.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_coa() as DataFile.tbl_coa</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_coa "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_coa</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_coa</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_coa.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_coa</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_coa()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_coa</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_coa as DataFile.tbl_coa = DataFile.tbl_coa.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_coa WHERE = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_coa as new DataFile.tbl_coa</SourceLine>
|
|
<SourceLine>tbl_coa.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_coa</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_coa</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="196744656">
|
|
<ObjName>tbl_coa_bestellung</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>bestellung_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bestellung_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bestellung_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>hilfswerte_coa_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>hilfswerte_coa_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>hilfswerte_coa_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>werte</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>werte As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>werte As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>werte_coa</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>werte_coa As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>werte_coa As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_coa_bestellung()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_coa_bestellung() as DataFile.tbl_coa_bestellung = DataFile.tbl_coa_bestellung.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_coa_bestellung() as DataFile.tbl_coa_bestellung</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_coa_bestellung "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_coa_bestellung</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_coa_bestellung</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_coa_bestellung.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_coa_bestellung</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_coa_bestellung()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_coa_bestellung</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_coa_bestellung as DataFile.tbl_coa_bestellung = DataFile.tbl_coa_bestellung.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_coa_bestellung WHERE = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_coa_bestellung as new DataFile.tbl_coa_bestellung</SourceLine>
|
|
<SourceLine>tbl_coa_bestellung.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_coa_bestellung</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_coa_bestellung</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="439036882">
|
|
<ObjName>tbl_hilfswerte_coa</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>title</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>title As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>title As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_hilfswerte_coa()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_hilfswerte_coa() as DataFile.tbl_hilfswerte_coa = DataFile.tbl_hilfswerte_coa.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_hilfswerte_coa() as DataFile.tbl_hilfswerte_coa</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_hilfswerte_coa "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_hilfswerte_coa</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_hilfswerte_coa</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_hilfswerte_coa.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_hilfswerte_coa</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_hilfswerte_coa()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_hilfswerte_coa</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_hilfswerte_coa as DataFile.tbl_hilfswerte_coa = DataFile.tbl_hilfswerte_coa.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_hilfswerte_coa WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_hilfswerte_coa as new DataFile.tbl_hilfswerte_coa</SourceLine>
|
|
<SourceLine>tbl_hilfswerte_coa.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_hilfswerte_coa</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_hilfswerte_coa</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="172504784">
|
|
<ObjName>tbl_kunden</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kunden_nummer</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_nummer As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_nummer As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>titel</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>titel As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>titel As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>zahlungsbedingung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>zahlungsbedingung As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>zahlungsbedingung As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>coa_kontakt</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>coa_kontakt As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>coa_kontakt As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mhd</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mhd As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mhd As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kontrakt_extern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kontrakt_extern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kontrakt_extern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kontrakt_intern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kontrakt_intern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kontrakt_intern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bemerkungen</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bemerkungen As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bemerkungen As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_kunden()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_kunden() as DataFile.tbl_kunden = DataFile.tbl_kunden.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_kunden() as DataFile.tbl_kunden</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_kunden "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_kunden</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_kunden</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_kunden.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_kunden</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_kunden()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_kunden</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_kunden as DataFile.tbl_kunden = DataFile.tbl_kunden.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_kunden WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_kunden as new DataFile.tbl_kunden</SourceLine>
|
|
<SourceLine>tbl_kunden.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_kunden</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_kunden</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="1988135057">
|
|
<ObjName>tbl_kunden_adressen</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kunden_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>name1</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>name1 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>name1 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>name2</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>name2 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>name2 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>name3</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>name3 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>name3 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>land</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>land As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>land As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>plz</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>plz As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>plz As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>ort</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>ort As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>ort As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>strasse</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>strasse As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>strasse As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>telefon</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>telefon As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>telefon As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>telefax</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>telefax As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>telefax As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>email</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>email As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>email As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>adressenart</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>adressenart As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>adressenart As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bemerkungen</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bemerkungen As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bemerkungen As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>dummy_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>dummy_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>dummy_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_kunden_adressen()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_kunden_adressen() as DataFile.tbl_kunden_adressen = DataFile.tbl_kunden_adressen.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_kunden_adressen() as DataFile.tbl_kunden_adressen</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_kunden_adressen "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_kunden_adressen</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_kunden_adressen</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_kunden_adressen.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_kunden_adressen</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_kunden_adressen()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_kunden_adressen</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_kunden_adressen as DataFile.tbl_kunden_adressen = DataFile.tbl_kunden_adressen.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_kunden_adressen WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_kunden_adressen as new DataFile.tbl_kunden_adressen</SourceLine>
|
|
<SourceLine>tbl_kunden_adressen.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_kunden_adressen</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_kunden_adressen</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="447911122">
|
|
<ObjName>tbl_laenderkennungen</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bezeichnung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bezeichnung As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bezeichnung As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>postkuerzel</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>postkuerzel As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>postkuerzel As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_laenderkennungen()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_laenderkennungen() as DataFile.tbl_laenderkennungen = DataFile.tbl_laenderkennungen.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_laenderkennungen() as DataFile.tbl_laenderkennungen</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_laenderkennungen "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_laenderkennungen</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_laenderkennungen</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_laenderkennungen.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_laenderkennungen</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_laenderkennungen()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_laenderkennungen</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_laenderkennungen as DataFile.tbl_laenderkennungen = DataFile.tbl_laenderkennungen.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_laenderkennungen WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_laenderkennungen as new DataFile.tbl_laenderkennungen</SourceLine>
|
|
<SourceLine>tbl_laenderkennungen.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_laenderkennungen</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_laenderkennungen</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="1084202259">
|
|
<ObjName>tbl_mikrobiologie</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mikrobiologie_bezeichnung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mikrobiologie_bezeichnung As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mikrobiologie_bezeichnung As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_mikrobiologie()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_mikrobiologie() as DataFile.tbl_mikrobiologie = DataFile.tbl_mikrobiologie.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_mikrobiologie() as DataFile.tbl_mikrobiologie</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_mikrobiologie "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_mikrobiologie</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_mikrobiologie</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_mikrobiologie.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_mikrobiologie</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_mikrobiologie()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_mikrobiologie</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_mikrobiologie as DataFile.tbl_mikrobiologie = DataFile.tbl_mikrobiologie.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_mikrobiologie WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_mikrobiologie as new DataFile.tbl_mikrobiologie</SourceLine>
|
|
<SourceLine>tbl_mikrobiologie.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_mikrobiologie</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_mikrobiologie</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="679163565">
|
|
<ObjName>tbl_mikrobiologie_auslieferungsschein</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>auslieferungsschein_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>auslieferungsschein_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>auslieferungsschein_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mikrobiologie_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mikrobiologie_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mikrobiologie_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mikrobiologie_werte</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mikrobiologie_werte As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mikrobiologie_werte As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mikrobiologie_spezifikation</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mikrobiologie_spezifikation As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mikrobiologie_spezifikation As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mikrobiologie_coa_checked</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mikrobiologie_coa_checked As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mikrobiologie_coa_checked As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_mikrobiologie_auslieferungsschein()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_mikrobiologie_auslieferungsschein() as DataFile.tbl_mikrobiologie_auslieferungsschein = DataFile.tbl_mikrobiologie_auslieferungsschein.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_mikrobiologie_auslieferungsschein() as DataFile.tbl_mikrobiologie_auslieferungsschein</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_mikrobiologie_auslieferungsschein "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_mikrobiologie_auslieferungsschein</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_mikrobiologie_auslieferungsschein</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_mikrobiologie_auslieferungsschein.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_mikrobiologie_auslieferungsschein</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_mikrobiologie_auslieferungsschein()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_mikrobiologie_auslieferungsschein</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_mikrobiologie_auslieferungsschein as DataFile.tbl_mikrobiologie_auslieferungsschein = DataFile.tbl_mikrobiologie_auslieferungsschein.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_mikrobiologie_auslieferungsschein WHERE = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_mikrobiologie_auslieferungsschein as new DataFile.tbl_mikrobiologie_auslieferungsschein</SourceLine>
|
|
<SourceLine>tbl_mikrobiologie_auslieferungsschein.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_mikrobiologie_auslieferungsschein</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_mikrobiologie_auslieferungsschein</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="1993209603">
|
|
<ObjName>tbl_mikrobiologie_bestellung</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>bestellung_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bestellung_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bestellung_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mikrobiologie_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mikrobiologie_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mikrobiologie_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mikrobiologie_werte</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mikrobiologie_werte As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mikrobiologie_werte As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mikrobiologie_spezifikation</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mikrobiologie_spezifikation As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mikrobiologie_spezifikation As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mikrobiologie_coa_checked</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mikrobiologie_coa_checked As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mikrobiologie_coa_checked As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_mikrobiologie_bestellung()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_mikrobiologie_bestellung() as DataFile.tbl_mikrobiologie_bestellung = DataFile.tbl_mikrobiologie_bestellung.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_mikrobiologie_bestellung() as DataFile.tbl_mikrobiologie_bestellung</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_mikrobiologie_bestellung "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_mikrobiologie_bestellung</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_mikrobiologie_bestellung</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_mikrobiologie_bestellung.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_mikrobiologie_bestellung</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_mikrobiologie_bestellung()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_mikrobiologie_bestellung</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_mikrobiologie_bestellung as DataFile.tbl_mikrobiologie_bestellung = DataFile.tbl_mikrobiologie_bestellung.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_mikrobiologie_bestellung WHERE = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_mikrobiologie_bestellung as new DataFile.tbl_mikrobiologie_bestellung</SourceLine>
|
|
<SourceLine>tbl_mikrobiologie_bestellung.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_mikrobiologie_bestellung</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_mikrobiologie_bestellung</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="906054124">
|
|
<ObjName>tbl_paletten</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>paletten_bezeichnung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>paletten_bezeichnung As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>paletten_bezeichnung As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>paletten_gewicht</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>paletten_gewicht As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>paletten_gewicht As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_paletten()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_paletten() as DataFile.tbl_paletten = DataFile.tbl_paletten.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_paletten() as DataFile.tbl_paletten</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_paletten "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_paletten</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_paletten</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_paletten.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_paletten</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_paletten()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_paletten</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_paletten as DataFile.tbl_paletten = DataFile.tbl_paletten.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_paletten WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_paletten as new DataFile.tbl_paletten</SourceLine>
|
|
<SourceLine>tbl_paletten.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_paletten</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_paletten</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="1701811470">
|
|
<ObjName>tbl_speditionen</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>titel</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>titel As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>titel As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>email1</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>email1 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>email1 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>email2</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>email2 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>email2 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>email3</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>email3 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>email3 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>email4</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>email4 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>email4 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>email5</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>email5 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>email5 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>email6</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>email6 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>email6 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_speditionen()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_speditionen() as DataFile.tbl_speditionen = DataFile.tbl_speditionen.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_speditionen() as DataFile.tbl_speditionen</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_speditionen "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_speditionen</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_speditionen</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_speditionen.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_speditionen</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_speditionen()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_speditionen</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_speditionen as DataFile.tbl_speditionen = DataFile.tbl_speditionen.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_speditionen WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_speditionen as new DataFile.tbl_speditionen</SourceLine>
|
|
<SourceLine>tbl_speditionen.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_speditionen</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_speditionen</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="1639927863">
|
|
<ObjName>tbl_speditionen_adressen</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>spedition_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>spedition_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>spedition_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>titel</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>titel As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>titel As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>name1</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>name1 As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>name1 As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>strasse</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>strasse As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>strasse As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>plz</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>plz As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>plz As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>ort</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>ort As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>ort As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>land</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>land As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>land As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>telefon</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>telefon As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>telefon As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>telefax</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>telefax As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>telefax As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>ansprechpartner</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>ansprechpartner As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>ansprechpartner As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_speditionen_adressen()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_speditionen_adressen() as DataFile.tbl_speditionen_adressen = DataFile.tbl_speditionen_adressen.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_speditionen_adressen() as DataFile.tbl_speditionen_adressen</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_speditionen_adressen "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_speditionen_adressen</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_speditionen_adressen</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_speditionen_adressen.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_speditionen_adressen</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_speditionen_adressen()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_speditionen_adressen</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_speditionen_adressen as DataFile.tbl_speditionen_adressen = DataFile.tbl_speditionen_adressen.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_speditionen_adressen WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_speditionen_adressen as new DataFile.tbl_speditionen_adressen</SourceLine>
|
|
<SourceLine>tbl_speditionen_adressen.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_speditionen_adressen</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_speditionen_adressen</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="715236888">
|
|
<ObjName>tbl_transport_ust</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>bestellung_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bestellung_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bestellung_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kunden_adressen_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_adressen_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_adressen_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>spedition_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>spedition_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>spedition_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>benutzerwerk_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>benutzerwerk_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>benutzerwerk_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>spedition_adresse</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>spedition_adresse As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>spedition_adresse As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>liefer_adresse</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>liefer_adresse As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>liefer_adresse As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>mengen_angaben</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>mengen_angaben As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>mengen_angaben As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>gewicht_angaben</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>gewicht_angaben As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>gewicht_angaben As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>artikel_beschreibung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>artikel_beschreibung As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>artikel_beschreibung As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>auslieferungs_datum</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>auslieferungs_datum As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>auslieferungs_datum As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>anlieferungs_datum</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>anlieferungs_datum As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>anlieferungs_datum As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>frachtzahler</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>frachtzahler As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>frachtzahler As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>warenwert</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>warenwert As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>warenwert As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>anrede</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>anrede As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>anrede As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bemerkungen</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bemerkungen As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bemerkungen As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>kunden_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_transport_ust()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_transport_ust() as DataFile.tbl_transport_ust = DataFile.tbl_transport_ust.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_transport_ust() as DataFile.tbl_transport_ust</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_transport_ust "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_transport_ust</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_transport_ust</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_transport_ust.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_transport_ust</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_transport_ust()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_transport_ust</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_transport_ust as DataFile.tbl_transport_ust = DataFile.tbl_transport_ust.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_transport_ust WHERE = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_transport_ust as new DataFile.tbl_transport_ust</SourceLine>
|
|
<SourceLine>tbl_transport_ust.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_transport_ust</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_transport_ust</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="684032705">
|
|
<ObjName>tbl_verpackungen</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>verpackung_bezeichnung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>verpackung_bezeichnung As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>verpackung_bezeichnung As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>verpackung_gewicht</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>verpackung_gewicht As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>verpackung_gewicht As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>verpackung_faktor</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>verpackung_faktor As Double</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>verpackung_faktor As Double</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_verpackungen()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_verpackungen() as DataFile.tbl_verpackungen = DataFile.tbl_verpackungen.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_verpackungen() as DataFile.tbl_verpackungen</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_verpackungen "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_verpackungen</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_verpackungen</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_verpackungen.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_verpackungen</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_verpackungen()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_verpackungen</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_verpackungen as DataFile.tbl_verpackungen = DataFile.tbl_verpackungen.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_verpackungen WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_verpackungen as new DataFile.tbl_verpackungen</SourceLine>
|
|
<SourceLine>tbl_verpackungen.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_verpackungen</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_verpackungen</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="468626845">
|
|
<ObjName>tbl_werk</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>namebezeichnung</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>namebezeichnung As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>namebezeichnung As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>namezusatz</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>namezusatz As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>namezusatz As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>strasse</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>strasse As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>strasse As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>strassezusatz</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>strassezusatz As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>strassezusatz As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>plz</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>plz As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>plz As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>ort</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>ort As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>ort As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>laenderid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>laenderid As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>laenderid As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>deleted As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>deleted As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>active</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>active As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>active As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_deleted</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_deleted As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_deleted As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_werk()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_werk() as DataFile.tbl_werk = DataFile.tbl_werk.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_werk() as DataFile.tbl_werk</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_werk "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_werk</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_werk</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_werk.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_werk</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_werk()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_werk</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_werk as DataFile.tbl_werk = DataFile.tbl_werk.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_werk WHERE uid = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_werk as new DataFile.tbl_werk</SourceLine>
|
|
<SourceLine>tbl_werk.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_werk</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_werk</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="1151707978">
|
|
<ObjName>tbl_zusammengefasste_bestellungen</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>master_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>master_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>master_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>child_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>child_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>child_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>lastuser_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>lastuser_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>lastuser_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_created</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_created As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_created As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>system_lastedit</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>system_lastedit As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>system_lastedit As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.tbl_zusammengefasste_bestellungen()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim arotbl_zusammengefasste_bestellungen() as DataFile.tbl_zusammengefasste_bestellungen = DataFile.tbl_zusammengefasste_bestellungen.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim arotbl_zusammengefasste_bestellungen() as DataFile.tbl_zusammengefasste_bestellungen</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From tbl_zusammengefasste_bestellungen "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return arotbl_zusammengefasste_bestellungen</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.tbl_zusammengefasste_bestellungen</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>arotbl_zusammengefasste_bestellungen.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return arotbl_zusammengefasste_bestellungen</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.tbl_zusammengefasste_bestellungen()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.tbl_zusammengefasste_bestellungen</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim tbl_zusammengefasste_bestellungen as DataFile.tbl_zusammengefasste_bestellungen = DataFile.tbl_zusammengefasste_bestellungen.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from tbl_zusammengefasste_bestellungen WHERE = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim tbl_zusammengefasste_bestellungen as new DataFile.tbl_zusammengefasste_bestellungen</SourceLine>
|
|
<SourceLine>tbl_zusammengefasste_bestellungen.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return tbl_zusammengefasste_bestellungen</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.tbl_zusammengefasste_bestellungen</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
<block type="Module" ID="786475234">
|
|
<ObjName>view_logistik_auftraege</ObjName>
|
|
<ObjContainerID>1226391017</ObjContainerID>
|
|
<IsClass>1</IsClass>
|
|
<Superclass>DataFile.ActiveRecordBase</Superclass>
|
|
<ItemFlags>1</ItemFlags>
|
|
<IsInterface>0</IsInterface>
|
|
<Compatibility></Compatibility>
|
|
<Property>
|
|
<ItemName>kunden_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>kunden_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>kunden_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>titel</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>titel As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>titel As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>auslieferungs_datum</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>auslieferungs_datum As Date</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>auslieferungs_datum As Date</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>artikel_bezeichnung_intern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>artikel_bezeichnung_intern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>artikel_bezeichnung_intern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>artikel_bezeichnung_extern</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>artikel_bezeichnung_extern As String</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>artikel_bezeichnung_extern As String</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Property>
|
|
<ItemName>bestellung_uid</ItemName>
|
|
<Compatibility></Compatibility>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine>bestellung_uid As Integer</SourceLine>
|
|
<SourceLine></SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<ItemDeclaration>bestellung_uid As Integer</ItemDeclaration>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>0</Shared>
|
|
</Property>
|
|
<Method>
|
|
<ItemName>List</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function List(sCriteria as string = "", sOrderBy as string = "") As DataFile.view_logistik_auftraege()</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>// dim aroview_logistik_auftraege() as DataFile.view_logistik_auftraege = DataFile.view_logistik_auftraege.List("fieldName = somevalue", "fieldName")</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim aroview_logistik_auftraege() as DataFile.view_logistik_auftraege</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>s = "select * From view_logistik_auftraege "</SourceLine>
|
|
<SourceLine>if sCriteria <> "" then</SourceLine>
|
|
<SourceLine>s = s + " WHERE " + sCriteria</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>if sOrderBy.trim <> "" then </SourceLine>
|
|
<SourceLine>s = s + " ORDER BY " + sOrderBy</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine>If gdb.error then</SourceLine>
|
|
<SourceLine>break</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return aroview_logistik_auftraege</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>do until rs.EOF</SourceLine>
|
|
<SourceLine>dim oRecord as new DataFile.view_logistik_auftraege</SourceLine>
|
|
<SourceLine>oRecord.ReadRecord(rs)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>aroview_logistik_auftraege.Append(oRecord)</SourceLine>
|
|
<SourceLine>rs.MoveNext</SourceLine>
|
|
<SourceLine>loop</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine/>
|
|
<SourceLine>return aroview_logistik_auftraege</SourceLine>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>sCriteria as string = "", sOrderBy as string = ""</ItemParams>
|
|
<ItemResult>DataFile.view_logistik_auftraege()</ItemResult>
|
|
</Method>
|
|
<Method>
|
|
<ItemName>FindByID</ItemName>
|
|
<Compatibility/>
|
|
<Visible>1</Visible>
|
|
<ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<SourceLine> Shared Function FindByID(id as Integer) As DataFile.view_logistik_auftraege</SourceLine>
|
|
<SourceLine>//Usage:</SourceLine>
|
|
<SourceLine>//dim view_logistik_auftraege as DataFile.view_logistik_auftraege = DataFile.view_logistik_auftraege.FindByID( id )</SourceLine>
|
|
<SourceLine>dim s as string</SourceLine>
|
|
<SourceLine>s = "Select * from view_logistik_auftraege WHERE = " + str(id)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim rs as RecordSet = gDB.SQLSelect(s)</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>if gdb.error then</SourceLine>
|
|
<SourceLine>System.debugLog gDB.ErrorMessage</SourceLine>
|
|
<SourceLine>return nil</SourceLine>
|
|
<SourceLine>end</SourceLine>
|
|
<SourceLine>if rs.RecordCount = 0 then return nil</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>dim view_logistik_auftraege as new DataFile.view_logistik_auftraege</SourceLine>
|
|
<SourceLine>view_logistik_auftraege.ReadRecord(rs)</SourceLine>
|
|
<SourceLine>return view_logistik_auftraege</SourceLine>
|
|
<SourceLine/>
|
|
<SourceLine>End Function</SourceLine>
|
|
</ItemSource>
|
|
<TextEncoding>134217984</TextEncoding>
|
|
<AliasName/>
|
|
<ItemFlags>0</ItemFlags>
|
|
<Shared>1</Shared>
|
|
<ItemParams>id as Integer</ItemParams>
|
|
<ItemResult>DataFile.view_logistik_auftraege</ItemResult>
|
|
</Method>
|
|
|
|
</block>
|
|
</RBProject> |