Skip to content

Instantly share code, notes, and snippets.

View xavierzwirtz's full-sized avatar

Xavier Zwirtz xavierzwirtz

  • BirdDog Software
  • Oklahoma City
View GitHub Profile
<<<<<<< local
Dim m_oItemLocation As IItemLocation '1/6/15 rlz
Dim m_oEntityForm As IEntityForm
Dim m_oEntity As IEntity
||||||| base
=======
Private m_oShipVia As IShipVia '2/18/15 rlz
Private m_oLocation As ILocation '2/18/15 rlz
>>>>>>> other
query {
for p in queryable<Person>() do
where(query {
for e in queryable<Employee>() do
where(e.DepartmentId = Some(!departmentId))
select e.PersonId
contains p.PersonId
})
select p
}
[{
"Name": "Startrac",
"Children": [{
"Name": "Spinners",
"Children": [{
"Name": "Elite 9-7080",
"Children": [{
"Name": "SG800-7080",
"Fields": {
"model_id": 1249
[
{
"Description": "Startrac",
"Children": [
{
"Description": "Spinners",
"Children": [
{
"Description": "Elite 9-7080",
"Children": [
open System
//leaderboard #1
let leaderboard1 =
let ln = System.Console.In.ReadLine //;;
[1..(int (ln()))] |> List.map (fun x-> ln().Split([|' '|]) |> Array.map int |> Array.reduce (+)) |> List.iter System.Console.WriteLine
//leaderboard #2
let leaderboard2 =
@xavierzwirtz
xavierzwirtz / gist:f674e409e68bea85175e
Last active August 29, 2015 14:21
Schema migration
{
Name = "WebCategories"
Up = fun(m) ->
m.Create.Table("BDWebCategories")
.WithStandard() // creates the standard birddog object 4 table
.WithColumn("LongDescription").LongString()
|> ignore
Down = fun(m) ->
SELECT
obj.name AS trigger_name
,USER_NAME(obj.uid) AS trigger_owner
,s.name AS table_schema
,OBJECT_NAME(parent_obj) AS table_name
,OBJECTPROPERTY( obj.id, 'ExecIsUpdateTrigger') AS isupdate
,OBJECTPROPERTY( obj.id, 'ExecIsDeleteTrigger') AS isdelete
,OBJECTPROPERTY( obj.id, 'ExecIsInsertTrigger') AS isinsert
,OBJECTPROPERTY( obj.id, 'ExecIsAfterTrigger') AS isafter
,OBJECTPROPERTY( obj.id, 'ExecIsInsteadOfTrigger') AS isinsteadof
SELECT
obj.name AS trigger_name
,USER_NAME(obj.uid) AS trigger_owner
,s.name AS table_schema
,comments.text AS text
,OBJECT_NAME(parent_obj) AS table_name
,OBJECTPROPERTY( obj.id, 'ExecIsUpdateTrigger') AS isupdate
,OBJECTPROPERTY( obj.id, 'ExecIsDeleteTrigger') AS isdelete
,OBJECTPROPERTY( obj.id, 'ExecIsInsertTrigger') AS isinsert
,OBJECTPROPERTY( obj.id, 'ExecIsAfterTrigger') AS isafter
CREATE TRIGGER dbo.bdTRAuditBDCARTSDELETE ON dbo.BDCarts
FOR DELETE
AS
DECLARE @SyncLoc VARCHAR(50)
SET @SyncLoc = (
SELECT stringvalue
FROM bdkeyvalues WITH (NOLOCK)
WHERE keyname = 'synclocation'
)
BirdDogSoftware.Domain.DatabaseException: 245 Conversion failed when converting the varchar value 'admin' to data type bit.
at BirdDogSoftware.Domain.DataBase.HandleError(SqlException Err, String SQL, DataSet DS) in C:\Birddog\9.5\BirdDogSoftwareLayer\BirdDogSoftware\Domain\DataBase.vb:line 1655
at BirdDogSoftware.Domain.DataBase.UpdateDataSet(String Sql, DataSet& DS, Int32 TimeoutSeconds, Boolean IsRetry) in C:\Birddog\9.5\BirdDogSoftwareLayer\BirdDogSoftware\Domain\DataBase.vb:line 1161
at BirdDogSoftware.Domain.DomainObject.Save() in C:\Birddog\9.5\BirdDogSoftwareLayer\BirdDogSoftware\Domain\DomainObject.vb:line 110
at BirdDogSoftware.Domain.DomainObjectBase.ApplyEdit() in C:\Birddog\9.5\BirdDogSoftwareLayer\BirdDogSoftware\Domain\DomainObjectBase.vb:line 311
at BirdDogSoftware.FrameWork.Cart.IOrder2010Open_ApplyEdit() in C:\Birddog\9.5\BirdDogFrameworkLayer\BirdDogSoftware.FrameWork\orders\Cart.vb:line 4076
at BirdDogSoftware.Web.AppCon.LoginUser(HttpSessionState CurrentSession, String