Index: LEVER.mac.rou =================================================================== diff -u -r29059 -r35816 --- LEVER.mac.rou (.../LEVER.mac.rou) (revision 29059) +++ LEVER.mac.rou (.../LEVER.mac.rou) (revision 35816) @@ -264,14 +264,6 @@ . S Index=^KL1(LEVNr),MailAdres=$P(^KLE(Index,2),D,19) Quit MailAdres -ModEersteGoedkeurders - set Locals("K")=##class(CHUI.BKH.AankoopFactuurArchivering.impl.GoedkeurderSelector).%New().SelecteerMetOptieZonder("1e goedkeurder") - Quit - -UpdateEersteGoedkeurder - #dim LeverancierID As %String = $Piece(UI1," ",2) - Do ##class(APPS.ApplicatieContext).Instance().GeefAankoopFactuurArchiveringAPI().GeefEasyFormDataService().ZetEersteGoedkeurder(LeverancierID, K) - TKontnt ;Kontant\Au comptant\Barzahlung\Cash TRemb ;Rembours\Rembours\Rembours\Cash on delivery TKontPc ;met\avec\mit\with;korting\d'escompte\skonto\discount @@ -286,3 +278,4 @@ TWissel ;met wissel\par traitre\mit wechel\by bill TAval ;getekend voor aval\avalisee\avaliert\guaranteed +