Läggdags

Då var det läggdags i Violas källare. Dagen har visat sig vare en väldigt produktiv lördag. Förberett en utbildning för vår kära förpackningstillverkare i Montreal, lagt till lite fält i deras datamodell, fixat övningsuppgifter och dokumentation samt börjat preppa på en demo som jag skall ha på onsdag (Mellan all utbildning....)

Det blev inte riktigt tid för att se film ikväll, men jag skall nog göra ett försök med att se Social Network innan jag sluter ögonen. Imorgon ställer jag klockan på 10.00 eftersom 10.30 är det Elfsborg - Mjällby på Orangevilles lokala TV kanal. Forza IFE!!

Klockan 14.00 beger jag mig mot lilla Frankrike igen - Quebec och MONTREAL!

Dagens bjudmakro från Violas källare:


function jna_kus_create_contact: boolean;
var  sPosition,sContactId,sPhoneNo,sMail,sCellphone,sName,sRes,sSQLStmt,sQuery: String;
iContactId, iPosition : Integer;
begin
   sQuery:='Name|Position|PhoneNo|Cellphone|Mail';
   sPosition := SqlGetstring('SELECT befattkod + "-", befattbeskr FROM x5 WHERE ForetagKod=' + sy1.ForetagKod);
    if Multigetstring('New Contact' , '|', sQuery, sName + '|<%DDL>'+ sPosition + '|||',chr(32), sRes) then
    begin
      sName:=extractstring(sRes,'|',1);
      sPosition:=extractstring(sRes,'|',2);
      sPhoneno:=extractstring(sRes,'|',3);
      sCellphone:=extractstring(sRes,'|',4);
      sMail:=extractstring(sRes,'|',5);
    if rtrim(sPosition) <> '' then
      begin
           sPosition:=substr(extractstring(sRes,'|',2),1,pos('-',extractstring(sRes,'|',2))-1);
           sSQLStmt:='EXEC jna_create_kp '+tosql(sy1.ForetagKod)+','+tosql(sy2.Perssign)+','+tosql(kus.ftgnr)+','+sPosition+','+tosql(sName)+','+tosql(sPhoneNo)+','+tosql(sCellphone)+','+tosql(sMail);
           SQLExecuteText(sSQLStmt);
           PostMenuCommand('refresh');
      end;
    end;                
end;