mojaSymfonia FORUM
https://forum.mix-soft.pl/

Otwieranie okien przez AmBasic
https://forum.mix-soft.pl/viewtopic.php?f=15&t=1090		 Strona 1 z 1
Autor:  Benji_Pete [ 2009-08-11, 14:08 ]
Tytuł:  Otwieranie okien przez AmBasic
Czy można przez AmBasic otworzyć okno z dokumentem?
Autor:  wrob [ 2009-08-11, 14:19 ]
Tytuł: 
Raczej nie da sie
- ale moze pisz w o jaki program pytasz
Autor:  Benji_Pete [ 2009-08-11, 14:24 ]
Tytuł: 
Handel Forte
Autor:  rafal [ 2009-08-11, 22:28 ]
Tytuł: 
np:. okno towaru o id = 65730
Kod:
dispatch app = GetApplication()
app.CommandAp("OpenWindow", "TWX.TPL", 65730)
Autor:  Benji_Pete [ 2009-08-12, 08:16 ]
Tytuł: 
A reszta okien?
Autor:  Benji_Pete [ 2009-08-12, 08:36 ]
Tytuł: 
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")
Autor:  jerko [ 2009-08-12, 15:27 ]
Tytuł: 
Spróbuj PNX.TPL
Autor:  barnie [ 2009-08-13, 22:47 ]
Tytuł: 
ZNACZTWX.TPL
ZNACZKHX.TPL
ZNACZSPX.TPL
ZNACZZKX.TPL

itd...
Autor:  barnie [ 2009-08-13, 22:50 ]
Tytuł: 
OPISWYDX.TPL
OPISPRZYJKORX.TPL
OPISPRZYJX.TPL
OPISZKKORX.TPL
OPISZLX.TPL
OPISWYDKORX.TPL
itd..
Autor:  Benji_Pete [ 2009-08-17, 08:13 ]
Tytuł: 
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".
Autor:  wrob [ 2009-08-17, 17:47 ]
Tytuł: 
А moze mozna uzyc czegos w stylu sendkeys do tego? :)
Autor:  Benji_Pete [ 2009-08-20, 13:24 ]
Tytuł: 
Czy jest w takim razie metoda CloseWindow, która zamknęłaby okno wywołane przez OpenWindow??

Dzięki z góry
Autor:  sqza [ 2009-08-26, 08:27 ]
Tytuł: 
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.
Autor:  sqza [ 2009-09-04, 12:43 ]
Tytuł: 
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.
Autor:  rafal [ 2009-09-11, 19:22 ]
Tytuł: 
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" :)
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/