 |
|
Strona 1 z 1
|
[ Posty: 15 ] |
|
Otwieranie okien przez AmBasic
| Autor |
Wiadomość |
|
Benji_Pete
Rejestracja: 2008-06-03, 12:18
Posty: 106
|
 Otwieranie okien przez AmBasic Czy można przez AmBasic otworzyć okno z dokumentem?
|
| 2009-08-11, 14:08 |
|
|
| Autor |
Wiadomość |
|
Mix-soft.pl
|
|
|
|
wrob
Ekspert
Rejestracja: 2008-04-18, 18:52 Posty: 5169 Pomógł: 59
|
Raczej nie da sie
- ale moze pisz w o jaki program pytasz
|
| 2009-08-11, 14:19 |
|
|
|
Benji_Pete
Rejestracja: 2008-06-03, 12:18
Posty: 106
|
Handel Forte
|
| 2009-08-11, 14:24 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3983 Pomógł: 445
|
np:. okno towaru o id = 65730
Kod: dispatch app = GetApplication()
app.CommandAp("OpenWindow", "TWX.TPL", 65730)
|
| 2009-08-11, 22:28 |
|
|
|
Benji_Pete
Rejestracja: 2008-06-03, 12:18
Posty: 106
|
A reszta okien?
|
| 2009-08-12, 08:16 |
|
|
|
Benji_Pete
Rejestracja: 2008-06-03, 12:18
Posty: 106
|
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 |
|
|
|
jerko
Rejestracja: 2008-06-03, 08:52
Posty: 7
|
Spróbuj PNX.TPL
|
| 2009-08-12, 15:27 |
|
|
|
barnie
Ekspert
Rejestracja: 2008-04-07, 13:26 Posty: 208 Pomógł: 2
|
ZNACZTWX.TPL
ZNACZKHX.TPL
ZNACZSPX.TPL
ZNACZZKX.TPL
itd...
|
| 2009-08-13, 22:47 |
|
|
|
barnie
Ekspert
Rejestracja: 2008-04-07, 13:26 Posty: 208 Pomógł: 2
|
OPISWYDX.TPL
OPISPRZYJKORX.TPL
OPISPRZYJX.TPL
OPISZKKORX.TPL
OPISZLX.TPL
OPISWYDKORX.TPL
itd..
|
| 2009-08-13, 22:50 |
|
|
|
Benji_Pete
Rejestracja: 2008-06-03, 12:18
Posty: 106
|
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 |
|
|
|
wrob
Ekspert
Rejestracja: 2008-04-18, 18:52 Posty: 5169 Pomógł: 59
|
А moze mozna uzyc czegos w stylu sendkeys do tego? :)
|
| 2009-08-17, 17:47 |
|
|
|
Benji_Pete
Rejestracja: 2008-06-03, 12:18
Posty: 106
|
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 |
|
|
|
sqza
Rejestracja: 2009-01-13, 10:45
Posty: 86
|
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 |
|
|
|
sqza
Rejestracja: 2009-01-13, 10:45
Posty: 86
|
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 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3983 Pomógł: 445
|
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" :)
|
| 2009-09-11, 19:22 |
|
|
|
|
Strona 1 z 1
|
[ Posty: 15 ] |
|
Kto jest online |
Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 7 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
|
|
|
|
