Pytałem w Kamsofcie i odpowiedzieli że trzeba przeklikać ręcznie.
Ja zacząłem zmieniać powoli, choć nie ukrywam, że mam jeszcze nadzieję na jakiś skrypt...
Wystarczy w raporcie zwrotnym z tym błędem wybrać przycisk odfiltrowane i kliknąć przygotuj jeszcze raz do wysłania. Program powinien sam zmienić stawki, tak przynajmniej twierdzą informatycy z Kamsoftu z Poznania. Ja tak zrobiłam i wyrywkowo sprawdziłam, stawki zmieniły się.
Witam,
Należy ręcznie na każdym produkcie przez F4 popraw/ok przeliczyć stawkę.
Pozdrawiam,
Iwona Błoniarz
4260 Sekcja SSE PPS
Zakład Systemów Ambulatoryjnych
Wydział Systemów Ochrony Zdrowia
U mnie część świadczeń miała cenę 11.4000 a część 11.6700. Przed wysłaniem , plik xml sposobem znajdź i zamień w OpenOffisie zmieniłem na 11.6700, raport poszedł i wrócił bez błędów
Podczas opcji wyślij ponownie, stawka nie zmienia się ? umowa jest wgrana nowa - działa tylko opcja F4 i okej wtedy stawka zmienia się na 11.67
Wystarczy w raporcie zwrotnym z tym błędem wybrać przycisk odfiltrowane i kliknąć przygotuj jeszcze raz do wysłania. Program powinien sam zmienić stawki, tak przynajmniej twierdzą informatycy z Kamsoftu z Poznania. Ja tak zrobiłam i wyrywkowo sprawdziłam, stawki zmieniły się.
Jeśli trzeba tylko wciskać klawisze F4 i Enter i chyba strzałkę w dół to napisz makro w Excelu, które będzie przyciskać klawisze
np:
Sleep (3000) - żeby zdążyć się przepiąć na KS-PPS
for i=1 to 100 - ilość powtórzeń
SendKeys ("{F4}")
Sleep (200)
SendKeys ("~")
Sleep (200)
SendKeys ("{DOWN}")
Sleep (200)
next i
Na raz tak robiłem w różnych programach, gdy coś trzeba było poprawiać, stukając w kółko to samo
Nie wyważajcie otwartych drzwi :D
Wczytajcie zwrotny z błędami, potem jeszcze raz zaimportujcie umowę POZ, na pytanie o aktualizację produktów odpowiedź TAK. Jeszcze raz trzeba przygotować i wysyłać raport i temat zamknięty.
Sprawdzone, działa.
Spróbuj tak ( oczywiście PPS musi być uruchomiony na Rozliczenia->Świadczenia ):
Sub Zmiana()
Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate ("KS-PPS Rozliczenia")
For i = 1 To 4
WshShell.SendKeys ("{F4}")
Application.Wait (Now + TimeValue("0:00:05"))
WshShell.SendKeys ("{RIGHT}")
WshShell.SendKeys ("{F4}")
Application.Wait (Now + TimeValue("0:00:02"))
WshShell.SendKeys ("~")
Application.Wait (Now + TimeValue("0:00:05"))
WshShell.SendKeys ("~")
Application.Wait (Now + TimeValue("0:00:05"))
WshShell.SendKeys ("{DOWN}")
Next i
End Sub
Doświadczalnie można pozmniejszać TimeValue
oraz oczywiście ilość powtórzeń w pętli