DDE Exempel

Skapad av Kenny Westermark, Ändrad den Thu, 13 Apr 2023 vid 02:20 PM efter Kenny Westermark

function q_macroLab: boolean;
  var sKey, s1, sBArtNr, sPrisLista, sResult : string;
begin

  sKey := 'unique_key_'+sy2.PersSign;
  GetGlobalData(sKey, sPrisLista);

  If Not MultiGetString('Sök strukturrader', '|', 'ArtNr Komponent|Toppartikel i prislista', '|'+sPrisLista, '&', sResult) Then Exit;

  sBArtNr    := ExtractString(sResult, '|', 1);
  sPrisLista := ExtractString(sResult, '|', 2);

  SetGlobalData(sKey, sPrisLista);

  s1 := '[searchwhere(vsr.BArtNrStrukt = '+toSQL(sBArtNr)+' AND vsr.ArtNr IN (SELECT prl.ArtNr FROM prl WHERE prl.PrisLista='+ToSQL(sPrisLista)+' AND prl.ForetagKod='+sy1.ForetagKod+') )]';

  PostInternDDEExecute(s1);

end;