fushnisoft

DECLARE @ClarionDate INT = 47563
DECLARE @SqlDateTime DATETIME 

-- Convert the clarion DATE into and SQL DateTime
SET @SqlDateTime = DateAdd(day, @ClarionDate  - 4, '1801-01-01') 

SELECT @SqlDateTime AS 'SQL Date Time'

-- Now convert it back from and SQL DateTime to a Clarion Date
SET @ClarionDate = DateDiff(day, DateAdd(day, -4, '1801-01-01'), @SqlDateTime)

fushnisoft

      Member()
      Include('ConsoleSupport.inc'),ONCE
    Map
        MODULE('32-bit Windows API')
            ! General functions
            GetLastError(),DWORD,PASCAL
 
            ! Console functions
            GetStdHandle(DWORD),HANDLE,PASCAL,PROC,RAW
            WriteConsole(Handle,Long,Dword,long,long),bool,Raw,Pascal,name('WriteConsoleA')

fushnisoft

# Using the beta version of WinSCP http://winscp.net/eng/download.php
# Call this script to upload a file via FTP with progress feedback
# e.g. 
# .\fileupload.ps1 -username "myusername" -password "mypassword" -localfile "C:\files\MyFile.exe" -remotefile "/public_html/files/MyFile.exe"
# NOTE: This script assumes the WinSCP binaries are in a sub directory to the script. You can probably pass that as a parameter to be more flexible.

param (
  [string]$username,
  [string]$password,
  [string]$localFile,

fushnisoft

ECHO off
:delfile
del %1% 
if exist %1% goto fail
goto end
:fail
ECHO Unable to delete %1%, you probably still have it open!
EXIT /B 1
:end

fushnisoft

msbuild example for Clarion

This is an example of how to build a Clarion multi dll project from the command line. This was useful to be able to correctly build a multi-dll project containing circular references.

---

The BAT file

There are two calls so everything gets compiled.

fushnisoft

<?xml version="1.0"?>
<AppearanceProperties xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <DockTabStripAppearance>
    <xGradientBegin>-13816528</xGradientBegin>
    <xGradientEnd>-13816528</xGradientEnd>
    <xTextColor>ControlDark</xTextColor>
  </DockTabStripAppearance>
  <DockPadTitleAppearance>
    <xActiveBackColorGradientBegin>-16745780</xActiveBackColorGradientBegin>
    <xActiveBackColorGradientEnd>-16745780</xActiveBackColorGradientEnd>

fushnisoft

<AddIn name    = "ClarionHubMenu"
   author      = "ClarionHub"
   url         = "http://clarionhub.com"
   copyright   = ""
   description = "">
  <Manifest>
    <Identity name="ClarionHubMenu.Addin" version="1.0"/>
    <Dependency addin = "SharpDevelop" version = "2.1"/>
  </Manifest>

fushnisoft

using Hangfire;
using Microsoft.Owin;
using Microsoft.Owin.Hosting;
using Owin;
using Serilog;
using System;
using System.Data.SqlClient;
using Topshelf;

[assembly: OwinStartup(typeof(MyScheduler.Startup))]

fushnisoft

  MAP
    GetVT_Type(*BYTE),LONG
    GetVT_Type(*SHORT),LONG
    GetVT_Type(*USHORT),LONG
    GetVT_Type(*DATE),LONG
    GetVT_Type(*TIME),LONG
    GetVT_Type(*LONG),LONG
    GetVT_Type(*ULONG),LONG
    GetVT_Type(*SREAL),LONG
    GetVT_Type(*REAL),LONG

fushnisoft

#TEMPLATE (CBAltFix, 'Carl Barnes fix for Alt Key Lockup in Windows 7'),FAMILY('ABC','CW20')
#!===========================================================================
#! Warning! Version 2 of the template changes things.
#! The Global template AltWin7Fix_Global has been removed and is no longer needed.
#! The Frame template AltWin7Fix_Frame has been renamed because it has new questions
#! Only the Frame Extension template is required, it is where you specify all choices.
#! It has a new name AltWin7Fix_Frame2 so you must populate it again on the Frame.
#! If you used the first version of the template you will get errors when you open
#! an APP. Ignore the errors, you should open the Frame, go to Extenstions and add the new template.
#! *** Removed ===>#EXTENSION (AltWin7Fix_Global,'Fix Windows 7 Alt Key Lockup-Global-by Carl Barnes'), APPLICATION