Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-11-24, 19:20x



Odpowiedz w temacie  [ Posty: 15 ] 
Otwieranie okien przez AmBasic 
Autor Wiadomość

Rejestracja: 2008-06-03, 12:18
Posty: 106
Post Otwieranie okien przez AmBasic
Czy można przez AmBasic otworzyć okno z dokumentem?


2009-08-11, 14:08
Wyświetl profil
Autor Wiadomość
 


Ekspert
Ekspert
Awatar użytkownika

Rejestracja: 2008-04-18, 18:52
Posty: 5169
Pomógł: 59
Post 
Raczej nie da sie
- ale moze pisz w o jaki program pytasz


2009-08-11, 14:19
Wyświetl profil

Rejestracja: 2008-06-03, 12:18
Posty: 106
Post 
Handel Forte


2009-08-11, 14:24
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 4000
Pomógł: 448
Post 
np:. okno towaru o id = 65730
Kod:
dispatch app = GetApplication()
app.CommandAp("OpenWindow", "TWX.TPL", 65730)

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2009-08-11, 22:28
Wyświetl profil

Rejestracja: 2008-06-03, 12:18
Posty: 106
Post 
A reszta okien?


2009-08-12, 08:16
Wyświetl profil

Rejestracja: 2008-06-03, 12:18
Posty: 106
Post 
Znalazłem metodą prób i błędów (zmieniamy drugi parametr):

Dok sprzedaży - "SP.TPL"
Dok zakupu - "ZK.TPL"
Dok magazynowy - "MG.TPL"
Magazyny - "MGX.TPL"
jak wcześniej napisał kolega - Towary - "TPX.TPL"
Zamówienie obce - "ZO.TPL"
Zamówienie własne - "ZW.TPL"
Kontrahenci - "KHX.TPL"
Urzędy - "URX.TPL"

Nie wiem jak są płatności. Próbowałem PO, PN i nic. Może zna ktoś jeszcze jakieś?

PS. Jeśli w id podamy 0 to utworzy się nowy dokument (czy kartoteka). Jeśli kartoteka to możemy wypełniać, jeśli dokument to zapisze się w bufor (trzeba kliknąć "Edytuj")


2009-08-12, 08:36
Wyświetl profil

Rejestracja: 2008-06-03, 08:52
Posty: 7
Post 
Spróbuj PNX.TPL


2009-08-12, 15:27
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2008-04-07, 13:26
Posty: 208
Pomógł: 2
Post 
ZNACZTWX.TPL
ZNACZKHX.TPL
ZNACZSPX.TPL
ZNACZZKX.TPL

itd...


2009-08-13, 22:47
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2008-04-07, 13:26
Posty: 208
Pomógł: 2
Post 
OPISWYDX.TPL
OPISPRZYJKORX.TPL
OPISPRZYJX.TPL
OPISZKKORX.TPL
OPISZLX.TPL
OPISWYDKORX.TPL
itd..


2009-08-13, 22:50
Wyświetl profil

Rejestracja: 2008-06-03, 12:18
Posty: 106
Post 
A może ktoś wie, czy istnieją jeszcze inne komendy oprócz "OpenWindow". Pewnie CloseWindow, ale raczej chodziłoby mi o np. przestawienie widoku dokumentu na "Pełny".


2009-08-17, 08:13
Wyświetl profil
Ekspert
Ekspert
Awatar użytkownika

Rejestracja: 2008-04-18, 18:52
Posty: 5169
Pomógł: 59
Post 
А moze mozna uzyc czegos w stylu sendkeys do tego? :)


2009-08-17, 17:47
Wyświetl profil

Rejestracja: 2008-06-03, 12:18
Posty: 106
Post 
Czy jest w takim razie metoda CloseWindow, która zamknęłaby okno wywołane przez OpenWindow??

Dzięki z góry


2009-08-20, 13:24
Wyświetl profil

Rejestracja: 2009-01-13, 10:45
Posty: 86
Post 
Czy jest możliwość uzyskania powyżej opisanej funkcjonalności (otwieranie okien dokumentów, towarów, kontrahentów itp itd) w Handlu Premium ??

Przetestowałem tą samą funkcję i niestety nie działa.


2009-08-26, 08:27
Wyświetl profil

Rejestracja: 2009-01-13, 10:45
Posty: 86
Post 
Jeszcze jedno pytanie w tym wątku.

Czy jest możliwe wyświetlenie okna np. kartoteki wybranego kontrahenta lub listy kontrahentów z przyciskiem Użyj - i ewentualnie gdzie mogą być przechowywane dane wybranego kontrahenta.


2009-09-04, 12:43
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 4000
Pomógł: 448
Post 
Do tego przydały by polecenie Link. A z tego co mi wiadomo w AMBasicu nie działają - tylko w VBA.Kiedyś wymyśliłem coś takiego do wersji FORTE (łatwe do zaimplementowania w PREMIUM przy użyciu ShowListWindow) :

W raporcie:
Kod:
//--------------------------------
int sub OnCommand(int id, int msg)
//--------------------------------

endsub   

//--------------------------------
int sub Uzyj()
//--------------------------------   

PutIni("SP","uzyj","99999999")

dispatch xSp = xFactory.NewObject("BDokSp")

dispatch xSpParams = xSp.Params()
xSpParams.opis = "To się pojawi w nagłówku okna"

dispatch xIdRows = xFactory.NewObject("IdRows")

xIdRows.Add(65554)
xIdRows.Add(65568)

xSpParams.wybrane = xIdRows
xSp.Load(xSpParams)
OpenWindow(xSp)

while GetIni("SP","Uzyj") == "99999999"   

wend

message using "Wybrano dokument %s", GetIni("SP","Uzyj")

endsub


FORM "Pseudo Link", 100,50
   BUTTON "Dokumenty", 5,5, 80,20, Uzyj()
execForm OnCommand(-1)


w Raporcie \Procedury\Raporty z menu kartotek\Sprzedaż
Kod:
int err = SetTaggedPos( FS )
PutIni("SP","uzyj", (using "%l",GetLineId(err)) )
NoOutPut()


Nie jest to zbyt eleganckie, ale jak na moje wystarczyło. Dlatego nazywa się "Pseudo Link" :)

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2009-09-11, 19:22
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 15 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. Sendkeys procedury wywołane z okien.

w Programowanie

Bartosh89

2

2904

2014-06-17, 14:02

rafal Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki Skalowanie okien FAL FIK MKP

w Techniczne

Mich@l

3

3776

2020-08-03, 09:45

Mich@l Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. FKF 2017 Jak zapamiętać ustawienia okien

w Programy Księgowe

matrixmm

0

2058

2017-02-10, 23:22

matrixmm Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Wywoływanie okien dokumentów - HMP 2010 i wyżej

w Programowanie

mrEM

7

5043

2012-07-04, 12:04

rafal Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 21 gości


Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Przejdź do:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant