mojaSymfonia FORUM :: Wyświetl temat - Szukanie -po notatce c.d

Kod:

limit 80000 

string sCoWyszukac 

FORM "Wyszukaj dokumentów po opisie", 300,100 

    edit "",sCoWyszukac,5,5,285,20 
    button "Szukaj",110,40,80,20,2 

int rx = ExecForm 

if rx == -1 then error "" 

baseTW tw 
baseDk dk

ioRec ioLista 

long lPoz 
long lIdTw 

lPoz = SetTaggedPos(FS) 

while lPoz != 0 
    
        lIdTw = GetLineId( lPoz ) 
         dk.GetRecById( lIdTw )
            buf = dk.GetField("opis") 

        if Find Regular (using "{*}%s{*}", sCoWyszukac) then 
    
            ioLista.SetField("id",(using "%l", lIdTw)) 

        endif 

    lPoz = SetTaggedPos(NX)    
wend 

ShowListWindow( ioLista, "DK" ) 
NoOutPut()

Autor:	gregor [ 2008-12-19, 22:03 ]
Tytuł:	Szukanie -po notatce c.d
Jest na forum "szukanie towaru po notatce". Potzrebował bym modyfikacji tego raportu, aby można było odszukać dokument sprzedaży, lub magazynowy po opisie i po notatce. Nie wiem do których baz się odwołać, w której są dok. sprzedaży a wktórej magazynowe. Pozdrawiam

Autor:	rafal [ 2008-12-20, 00:02 ]
Tytuł:
Analogicznie do tego co pisał kiedyś barnie http://forum.mojasymfonia.pl/viewtopic.php?t=161 ZNAJDŹ : Kod: nt.SetKeySeg( "baza",22 ) DLA DOKUMENTÓW SPRZEDAŻY ZAMIEŃ NA : Kod: nt.SetKeySeg( "baza",16 ) DLA DOKUMENTÓW MAGAZYNOWYCH ZAMIEŃ NA : Kod: nt.SetKeySeg( "baza",33 ) ZNAJDŹ : Kod: ShowListWindow( ioLista, "TW" ) DLA DOKUMENTÓW SPRZEDAŻY ZAMIEŃ NA : Kod: ShowListWindow( ioLista, "DK" ) DLA DOKUMENTÓW MAGAZYNOWYCH ZAMIEŃ NA : Kod: ShowListWindow( ioLista, "MG" )

Autor:	gregor [ 2008-12-20, 19:42 ]
Tytuł:
Wielkie dzięki Rafal za wskazówki. Z notatek szuka doskonale, jednak z opisów nie. --czy opisy są w tej samej bazie co notatki, jeśli tak, to jak je wydobyć. gorąco pozdrawiam

Autor:	rafal [ 2008-12-20, 23:44 ]
Tytuł:
opis dokumentu znajduje się w polu ... opis w bazie DK (sprzedaż) lub w bazie MG (magazyn) tak więc dodatkowo musisz odczytać rekord nagłówka dokumentu Kod: BaseDK dk [...] dk.GetRecById( lIdTw ) następnie przypisać do zmiennej buf zawartość pola opis Kod: buf = dk.GetField( "opis" )

Autor:	gregor [ 2008-12-21, 16:33 ]
Tytuł:
No niestety, Przykro się przyznać, ale nie umię tego zrobić. Pozmieniałem, podstawiłem ale chyba nie to co powinienem.

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

Szukanie -po notatce c.d https://forum.mix-soft.pl/viewtopic.php?f=15&t=470	Strona 1 z 1

Autor:	rafal [ 2008-12-21, 16:40 ]
Tytuł:
Kod: limit 80000 string sCoWyszukac FORM "Wyszukaj dokumentów po opisie", 300,100 edit "",sCoWyszukac,5,5,285,20 button "Szukaj",110,40,80,20,2 int rx = ExecForm if rx == -1 then error "" baseTW tw baseDk dk ioRec ioLista long lPoz long lIdTw lPoz = SetTaggedPos(FS) while lPoz != 0 lIdTw = GetLineId( lPoz ) dk.GetRecById( lIdTw ) buf = dk.GetField("opis") if Find Regular (using "{}%s{}", sCoWyszukac) then ioLista.SetField("id",(using "%l", lIdTw)) endif lPoz = SetTaggedPos(NX) wend ShowListWindow( ioLista, "DK" ) NoOutPut()

Autor:	gregor [ 2008-12-21, 20:06 ]
Tytuł:
Wielkie dzięki. Życzę [glow=green]ZDROWYCH I SPOKOJNYCH ŚWIĄT BOŻEGO NARODZENIA[/glow] a w nowym 2009 roku wszelkiej pomyślności.

Strona 1 z 1	Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/