Błąd w raportach statystycznych

[Stan]

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

Czy mógłbyś to bardziej zrozumiale przedstawić. Napisałem w Excelu 2010 w edytorze VBA coś takiego
PrivateSub Zmiana()
sleep (3000) '- żeby zdążyć się przepiąć na KS-PPS
For i = 1 To 100 '- ilość powtórzeń
SendKeys ("{F4}")
sleep (200)
SendKeys ("{RIGHT}")
SendKeys ("{F4}")
SendKeys ("~")
sleep (200)
SendKeys ("~")
sleep (200)
Next i
End Sub
Uruchomiłem i żadnych ruchów klawiatura nie wykonuje.
Chodzi w ogóle o to, żeby klawiatura wykonywała:
F4
zmiana zakładki (w prawo)
F4
Enter
Enter
i zmiana rekordu na liście czyli strzałka w dół. Pomysł dobry bo pomógłby wyeliminować ręczną robotę.

[bart]

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

[pawel747]

Nie wyważajcie otwartych drzwi   
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.

[PiotrSz]

Nie wyważajcie otwartych drzwi   
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.

Dopiero od wersji 2015.00.4.0 tak to działa! Wcześniej tego nie było!

Pozdrawiam

[pawel747]

OK ale ta wersja jest już kilka dni więc zamiast główkować z VBA może lepiej aktualizację zrobić

[kapi]

Jest już nowa wersja więc problem się rozwiązał.
w makro które pisałem kilka dni temu, zabrakło deklaracji "sleep". Gdyby w przyszłości, ktoś musiał przyciskać w kółko takie same klawisze w jakimkolwiek programie to zamieszczam poniżej całe makro.
1. Excel musi mieć włączone makra,
2. Po uruchomieniu makra trzeba się przepiąć na okno programu w którym trzeba przyciskać klawisze.

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Zmiana()
Sleep (3000) '- żeby zdążyć się przepiąć na KS-PPS
For i = 1 To 100 '- ilość powtórzeń
SendKeys ("{F4}")
Sleep (200)
SendKeys ("{RIGHT}")
Sleep (200)
SendKeys ("{F4}")
Sleep (200)
SendKeys ("~")
Sleep (200)
SendKeys ("~")
Sleep (200)
Next i
End Sub

[bart]

sleep można zastąpić Application.Wait (Now + TimeValue("0:00:02"))
a przełączenie na okno danej aplikacji można "zaprogramować" poprzez AppActivate
z parametrem nazwy okna przykładowo - WshShell.AppActivate ("KS-PPS Rozliczenia") .

[Stan]

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

Super. Działa. To też jest jeden z dobrych sposobów na poprawę tych błędów w produktach bez klikania w klawiaturę. Pozdrawiam.

[Stan]

Wczoraj wysłałem do Kamsoftu takiego maila:

"Na witrynie MOW NFZ w SZOI ukazał się poniższy komunikat:
W związku ze zmianami wynikającymi z Zarz. nr 39/2015  Prezesa NFZ  przypominamy, że od miesiąca wrzesień 2015 porady lekarza POZ (raport SWX) należy sprawozdawać na nowych kodach usług:
5.01.00.0000121 - porada lekarska udzielona w miejscu udzielania świadczeń (wymagane rozpoznanie wg kodu klasyfikacji ICD-10; porada finansowana w ramach kapitacji)
5.01.00.0000122 - porada lekarska udzielona w domu pacjenta (wymagane rozpoznanie wg kodu klasyfikacji ICD-10; porada finansowana w ramach kapitacji)
Dotychczasowe kody usług  5.01.00.0000075, 5.01.00.0000076, 5.01.00.0000077, 5.01.00.0000078 z dniem 1.09.2015 przestają obowiązywać.
W związku z powyższym należy z portalu SZOI pobrać aktualny plik umowy (UMX)

Czy jest możliwość, żeby porady wpisane do KS-PPS w dniu 1 i 2 września po staremu t.j 5.01.00.0000075 zamienić automatycznie na nowe oznaczenie t.j 5.01.00.0000121."

Myślałem, że może Kamsoft prześle jakiś skrypt, żeby te błędy poprawiać. Niestety napisali, że trzeba to poprawić ręcznie.

W lutym 2015 roku do poprawiania błędów skorzystałem z makra Barta t.j.
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.

Czy ktoś z Szanownych Forumowiczów może jakoś przerobić to makro aby robiło tą zmianę produktu. Myślę, że zmiana ta powinna polegać na wpisanych w makro brakujących właściwych zapisów:
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:03"))
WshShell.SendKeys ("{RIGHT}")
WshShell.SendKeys ("{F4}")
Application.Wait (Now + TimeValue("0:00:02"))

' makro ma otworzyć w tym polu listę umów
' no i w tym miejscu makro ma wybrać kod pracy oznaczony 5.01.00.0000121

WshShell.SendKeys ("~")
Application.Wait (Now + TimeValue("0:00:03"))
WshShell.SendKeys ("~")
Application.Wait (Now + TimeValue("0:00:03"))
WshShell.SendKeys ("~")
Application.Wait (Now + TimeValue("0:00:03"))
WshShell.SendKeys ("{DOWN}")
Next i
End Sub

Nie ukrywam, że to wymaga znajomości wiedzy eksperta i myślę, że na forum takich nie brakuje. Dzięki za zainteresowanie i jakąkolwiek pomoc.

[bart]

Może prościej te kilka dni wrześniowych przeklikać (po wczytaniu aneksu do umowy) ??

[ted]

Za te  usługi i tak nie płacą. Zakładając że nie będą więcej potrzebne do generowania sprawozdań , tylko raz na koniec miesiąca to proponuje poprawić wygenerowany raport z usług. Zastosować znajdź-zmień w raporcie i poprawić odpowiednie wpisy. Kilka razy robiłem taki numer . Raport przechodził poprawnie a ja nie musiałem poprawiać wpisów (np tryb przyjęcia). Do tej pory nie potrzebowałem ponownie wysyłać tych usług. A jeżeli nawet to pojedyncze a te już można poprawić w programie

[Anita]

Aż wstyd się przyznać, ale ja pół miesiąca wpisywałam porady po staremu tj  5.01.00.0000075  i mam takie samo pytanie jak Stan " Czy jest możliwość, żeby porady wpisane do KS-PPS we wrzesniu po staremu t.j 5.01.00.0000075 zamienić automatycznie na nowe oznaczenie t.j 5.01.00.0000121."