Avatar billede hsund Juniormester
18. januar 2006 - 14:32 Der er 4 kommentarer og
2 løsninger

Popup af debitor notatfelt i ordrekartoteket.

Hej

Når jeg opretter en ordre i ordre kartoteket (med F2 og finder kundens konto nummer, trykker enter) når man så flytter curseren forbi "Søgenavnet" (i ordre kartoteket) skal et bestemt notat felt åbnes fra debitor kartotektet, hvis dette findes, "Overskriften" i notat feltet kan evt, hede "Bemærkninger til ordre" (jeg bruger mange notater på debitorer) i det notat felt skal så stå de oplysninger som fakturen skal indeholde rekv nr. kontakteperson etc.
Avatar billede Slettet bruger
18. januar 2006 - 22:03 #1
I f.eks. POST-FIELD triggeren på feltet kan du skrive:

SEARCH Notat USING NotatIdx
  WHERE NotatFileId == FileNum(DebKart)
    AND NotatRecId == DebKart[KontoIdx,OrdreKart.DebitorKonto].RecID
    AND Tekst == "Bemærkninger til ordre"

  #NotatBox(Notat,78,5,0,16,'Notat',"WATCH",NOCOMMIT)
  BREAK
END
Avatar billede hsund Juniormester
20. januar 2006 - 09:42 #2
Hej Rahp,

Tusinde tak for dit svar men det virker ikke helt, curseren stopper ved 3. linie ved OrdreKart.Debitorkonto (dette har jeg rettet til OrdKart.konto er det rigtigt)? herefter stopper curseren ved 4. linie foran # (C5 skriver Fejl : 1, Operandernes typer er ikke kompatible med operatoren), hvad er der forkert? Jeg har vist ikke fortalt jeg bruger C5, Ver.3, SP.3
Avatar billede Slettet bruger
21. januar 2006 - 07:35 #3
Her er en C5 udgave:

SEARCH Notat USING NotatIdx
  WHERE NotatFileId == FileNum(DebKart)
    AND NotatRecId == DebKart[KontoIdx, OrdKart.Konto].RecID
    AND Tekst == "Bemærkninger til ordre"

  #NotatBox(Notat,78,5,0,16,'Notat',1)
  BREAK
END
Avatar billede hsund Juniormester
23. januar 2006 - 10:34 #4
Hej Rahp,

Tusinde tak for dit svar men hvis jeg kopier det ind i POST-FIELD triggeren kommer notatet ikke frem på skærmen, har du nogen ide til hvorfor?
Avatar billede Slettet bruger
24. januar 2006 - 23:05 #5
Der mangler en linie efter #NotatBox...

SEARCH Notat USING NotatIdx
  WHERE NotatFileId == FileNum(DebKart)
    AND NotatRecId == DebKart[KontoIdx, OrdKart.Konto].RecID
    AND Tekst == "Bemærkninger til ordre"

  #NotatBox(Notat,78,5,0,16,'Notat',1)
  PROCESS #Proc_FrmRun &Parm
  BREAK
END
Avatar billede hsund Juniormester
25. januar 2006 - 11:10 #6
Hej Rahp,

Nu fungere det 100%, mange tak for hjælpen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester