DDE Exempel

Skapad av Kenny Westermark, Ändrad den Tors, 13 apr., 2023 vid 2:20 E.M. 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;

Var artikeln till hjälp?

Toppen!

Tack för din feedback

Vi beklagar att det inte var till hjälp

Tack för din feedback

Berätta för oss hur vi kan förbättra den här artikeln!

Välj minst en av orsakerna

Feddback skickat

Vi uppskattar din feedback och uppdaterar artikeln vid behov