Czym zajmuje się KAMIENIARSTWO ?
Temat: Odsetki od nalezności.
...new // ordkey()=='OD_DATY' // ... FUNCTION odsetki(Kwota, Data_wymagalnosci, Data_zaplaty) // // ZALOZENIA: dopuszczalny poslizg: 1 dzien; rok obliczeniowy: 365 dni; // FIELD-Stopa [%] w skali roku; // nowa stopa obowiazuje od dnia FIELD-Od_daty wlacznie // local tmin, tmax := Data_zaplaty + 1, test := .T., suma := 0 if Data_zaplaty Data_wymagalnosci + 1 T_Stopa-( dbseek(tmax, .T.)) do while test T_Stopa-(dbskip(-1)) if T_Stopa-(bof()) // error('Brak danych lub niekompletne dane w tabeli T_Stopa') return -1 endif test := T_Stopa-Od_daty Data_wymagalnosci + 1 tmin := if(test, T_Stopa-Od_daty, Data_wymagalnosci + 1) ...
Źródło: topranking.pl/1252/odsetki,od,naleznosci.php
Temat: Clipper - cdx
On Tue, 19 Sep 2000 16:55:55 +0200, "Dariusz Młyński" <mlyn@best.com.plwrote: A może to jest baza obsługiwana pod fox ? A co to znaczy, że nie chcą się otworzyć ? Masz komunikat obłędzie itp. to jest fox sama baza sie ladnie otwiera niektore BAGi tez sie otwieraja nie otwieraja sie BAGi zawierajace wiecej niz 4 TAGi :-) komunikatu oczwiscie nie ma ...tzn. przy probie DbSeek(costam) Clipper warczy, ze zbior nie jest indexowany AK
Źródło: topranking.pl/1252/clipper,cdx.php
Temat: Clipper - zmiana aktywnej bazy
...select 1 use dziennik druga select 2 use produkty Jesli nie uzywasz select'a to przeslaniasz jedna baze druga Przelaczas sie miedzy bazami stosujac selecta. Zawsze aktywna jest ta ktory select jest wywolany ostatnio. Jesli chodzi o "ksiazki" to uzywam norton guida (sorry jesli przekrecilem nazwe) Ja robię tak: use dziennik NEW alias dzienniczek ... [exclusive/shared, indekx ...itd] use produkty NEW alias produkciki ... a dalej jadę tak if dzienniczek -( dbseek ( 'ljkgkfjg', TRUE ) dzienniczek -( dbdelete () ) itd.
Źródło: topranking.pl/1252/clipper,zmiana,aktywnej,bazy.php
Temat: Clipper, moze jednak sie da
...a zmieniana jest tez zmienna L/S exeka. Z wyrazeniami aliasowymi jest taki problem, ze opracowano w tym wlasnie celu funkcje FIELDWBLOCK(), gdzie litwra W oznacza WORKAREA. Posluguje sie nia, jednakze ta funkcja zapewnia jedynie dostep do danych w innych obszarach, nie zas metod - czyli sprawdzenia np. czy nie ma tam Eof(). O dziwo, jak chcialo by sie panowac nad otwarciami, to przechodza w blokach wyrazenia typu : ? 1-( Eof()) 2-( dbSkip( 1)) I pewnie przeszlo by B-( dbSeek( ...)). Ale komu chcialo by sie to kontrolowac obszary otwarc. Jak na razie, rozwiazalem to nastepujaco : Wlinkowuje funkcje, ktora dostarcza zmyslnego bloku kodu : Function InAlias() Return {|x,y,z| ( x)-( y:Eval( z))} ktora dostarcza bloku, ktory wykona inny - dostarczony blok, w wyznaczonym obszarze. Zwracam uwage na to, ze funkcja nie dostaje zadnych parametrow, natomiast blok kodu w czasie wykonania MUSI takowe dostac, z czego trzeci moze...
Źródło: topranking.pl/1252/clipper,moze,jednak,sie,da.php
Temat: Clipper i fakturowanie
... If wartosc == Nil numer := ++Field-numer ElseIf ValType( wartosc) == 'C' numer := Field-Numer ElseIf ValType( wartosc) == 'N' numer := Field-Numer := wartosc End /*DBCommit() ; */ dbUnLock() Select( b) End Return numer ********************* Pojawia sie tu funkcja BPT, ktora mozna w skrocie tak okreslic : Function Bpt( parametr) If ! dbSeek( parametr) dbAppend() Return .t. Else Rlock() End Return .f. ale w rzeczywistosci jest to o wiele bardziej skomplikowany element duzo wiekszego mechanizmu. Zwroci ona zawsze prawde dla pierwszego wywolania funkcji NUMER z nowym parametrem. Funkcja Use_Dbf( baza) przelacza sie na baze BAZA, lub otwiera ja wraz z indeksami jak nie jest otwarta. Dodatkowy parametr wartosc umozliwia zwrot numeru bez jego...
Źródło: topranking.pl/1252/40,clipper,i,fakturowanie.php
Temat: dev2000 - Form Builder - Szukanie
W bloku pierwszym wyswietlam perspektywe ograniczona jeszcze warunkiem where. Wyswietlam 24 rekordy (nazwa rekordy przepisana z palety wlasciwosci), wiec nie znam mozliwosci wstawienia w ten blok elementu skladajacego sie z jednego pola tekstowego. Caly blok jest w trybie przegladania i chce zeby tak pozostalo. Myslalem, ze moze dev2000 posiada jakas wbudowana funkcje pozwalajaca szukac - cos jak dbseek(pole) lub jakis find. Metoda polegajaca na stworzeniu petli pewnie dziala ale jest bardzo wolna i liczylem na to, ze jest cos bardziej efektywnego. Krystian Moja propozycja to wyrzucić drugi blok a paramter wyszukiwania wprowadzać w pierwszym sterując tylko odpowiednim trybem pracy formularza i nie zajmować się nr wierszy. Pozdrawiam
Źródło: topranking.pl/1253/dev2000,form,builder,szukanie.php
Temat: Testy BDFNTX Clippera 5.3
...aplikacji clipperowych nasuwa mi sie kolejny wniosek, i nie wiem czy moge postawic taka diagnoze, wiec sie pytam ogolu : czy zauwazyl ktos, ze gdy przejdzie sie na clippera 5.3 i pozostanie przy DBFNTX, a w kodzie stosuje sie lokowanie za pomoca dbRlock( RecNo()) a nie Rlock() - pozostawiajac blokade przez dluzszy czas, wyrzucany jest blad DBFNTX1035 lub 1037 ? Byc moze zauwazyl to ktos jeszcze przy Clipperze 5.2 ? Blad blokady zglaszaja przewaznie funkcje dbSkip() lub dbSeek(). Czy jest to kolejny blad w tym RDD ? Blad wystepuje w srodowisku sieciowym w otwarciach SHARED oczywiscie. Generowana jest przyczyna "TimeOut" - ale nigdzie nie pisze ile on wynosi. Marek Horodyski
Źródło: topranking.pl/1256/testy,bdfntx,clippera,5,3.php
Temat: indexowanie w Clip5.3
Ta dziwna procedura pochodzi chyba z ksiazki Ricka Spensa a on ma dobre przyklady. Jest dobra. Mozna tam podstawic tez jakas funkcje wyswietlajaca pasek. dbSeek() dziala tak szybko, ze nie ma co tam wyswietlac. Mozesz jescze sprobowac w dbCreateIndex( C_IndexName, C_Key, B_Key) podac inny C_Key ( bez wyswietlania procentowego) i B_Key z wyswietlaniem. Ale tego nie probowalem. Marek Horodyski
Źródło: topranking.pl/1252/indexowanie,w,clip5,3.php
Temat: Wielkosć indeksu w Clipperze.
... Use ZS_OS Index on SLOWNIK + STR(STALA, 5) TAG 01 TO ZS Index on SLOWNIK + Z_ALFA TAG 04 TO ZS Return Nil Marek Horodyski Jescze cos. Przy linkowaniu nie zapomnij dolinkawac 2-ch bibliotek DBFCDX i _DBFCDX. Tylko w 1 miejscu zauwazylem odmienne dzialanie CDXow : Gdy klucz jest DtoS( DATA) to na NTXach mozesz zrobic dbSeek( DATA) i on to znajdzie (to taki blad na korzysc programisty), w CDXach natomiast musisz dokonac konwersji
Źródło: topranking.pl/1252/wielkosc,indeksu,w,clipperze.php
Temat: MiniGui szukanie w locie
Witam Problem szukania w locie chyba rozwiązany? [...] *---------------------------------* Oczywiście msginfo() należy zastąpić procedurą z DBSEEK. Problem w tym, ze
Źródło: topranking.pl/1256/minigui,szukanie,w,locie.php
Temat: Clipper - Problem z CDX-em
Witam. Mam problem z indeksami z Rewizora (FoxPro v. 2.6). Korzystam Clippera 5.3b. Przy próbie szykania seek-iem wywala blad 1012 (databases not indexed). Program przykladowy wyglada tak: REQUEST DBFCDX ? allTrim('') USE 00konta VIA 'DBFCDX' INDEX 00konta NEW ALIAS konta SHARED ?ordsetfocus(1) ?ordsetfocus("KT_NR") go top do while !Eof() kto := kt_nr dbseek(kto) ? kt_nr SKIP enddo Linkowany blinkerem : Blinker fi aa, cdxlock LIB dbfcdx, _dbfcdx Pomozcie, potrzebne mi jest do komunikacji programu w Clipperze (juz napisanego) z Rewizorem. romek
Źródło: topranking.pl/1254/clipper,problem,z,cdx,em.php
Temat: Clipper. Problem z indeksami CDX w sieci
...zaktualizowana, indeksy są OK USE Oto drugi program dla drugiej stacji: ANNOUNCE RDDSYS REQUEST DBFCDX RDDSETDEFAULT("DBFCDX") USE "MY_BASE" INDEX "MY_CDX" SHARED NEW INKEY(0) // zatrzymanie, aż pierwszy program zaktualizuje bazę danych // wtedy poszukuję zaktualizowanej wartości ? DBSEEK("004") // wynik .F. DBGOTOP() // teraz chcę zobaczyć bazę danych z tej stacji DO WHILE .NOT. EOF() ? my_field DBSKIP() ENDDO USE // Baza danych została zaktualizowana, ale jej indeksy nie. Ten problem nie wystąpi przy użyciu standardowego drivera NTX. Czy ktoś zauważył to wcześniej? Czy istnieje jakieś rozwiązanie tego...
Źródło: topranking.pl/1253/clipper,problem,z,indeksami,cdx,w,sieci.php
Temat: clipper 5.3a
ZrobiĂłbym to tak: use baza_b exclusive index on NR to baza_b.ntx set index to baza_b.ntx select 0 use baza_a exclusive index on NR to baza_a.ntx set index to baza_a.ntx select 0 use baza_c exclusive index nn NR to baza_c.ntx set index to baza_c.ntx select baza_b go top do while !(eof() .or. bof()) select baza_a if dbSeek(baza_b-NR) selct baza_c if
Źródło: topranking.pl/1256/clipper,5,3a.php
Temat: clipper - preprocesor
Wpadlem na genialny pomysl :) zeby zmaienic SEEK na wywolanie funkcji myDbSeek(), ktora to dopiero wywolywala by dbSeek(), przy okazji notujac na konsoli ala novell dane z szukania. Najprosciej zmienic definicje polecenia w STD.CH , ale kurcze po zmianie nadal mam zamieniane SEEK na
Źródło: topranking.pl/1255/clipper,preprocesor.php
Temat: Pierwszy wolny numer
...sie dowiedziec jaki numer jest wolny (tzn. znalezc np. 421003 choc go w bazie nie ma). Czy ktos moze mi pomoc ? -- Pozdrawiam !!! ICQ 35029167 Można to rozwiązać na kilka sposbów. 1. Jeżeli to twoja robota dodaj tabelę WOLNEID.DBF usuwając coś wpisujesz id do niej, dodając nową pozycje pobierasz z niej 2. Możesz testować wystąpienie pierwszego wpolnego numeru (raczej ostatnioiego) tworząc pętlę local newid := 0 for i = lastid to 1 skip -1 if ! dbseek(i) if i0 newid:=i endif exit endif next 3. Można ieszce tak local nId := 0 go bottom nId := ID do while !(eof() .or. bof()) skip -1 if (ID - nId 1) nId -= 1 exit endif nId := ID enddo Pewnie można wymiślić jeszce coś ciekawszego. =========================================== Brunon Pieszka e-mail: brunon_pies@glowka.pol.pl...
Źródło: topranking.pl/1256/pierwszy,wolny,numer.php
Temat: Clipper 5.2e i NT
Witam. Czy ktos spotkal sie z nastepujacym problemem: - dwie kopie programu uruchomione na NT server 4.0, korzystajace ze wspolnych zbiorow (odczyt) - pojawia sie notorycznie blad: DBFNTX 1035: Lock Failure podczas DBSEEK - wylaczenie wlasnej obslugi bledow (pozostawienie standardowej) powoduje, ze blad sie nie pojawia (moge wprawdzie przechwytywac ten blad i zlecac "Retry" do skutku, ale nie wydaje mi sie, zeby to bylo dobrym rozwiazaniem) Clipper 5.2e / NetLib 6 / Blinker 4.30 lub 5 / nie korzystam z CTools tryb protected, ale to nie ma znaczenia - w trybie rzeczywistym jest to samo. Na NT zalozony patch nr 4. Ma ktos moze jakis pomysl, co moze byc...
Źródło: topranking.pl/1257/clipper,5,2e,i,nt.php
Temat: POSZUKUJE!
...+ 1) * t[ 1] / 100) d1 := ++t[ 2] o += Odsetka( d1, d2, k) End Return o STATIC Function stawka( d) /* Stawka - otrzymuje date, ktĂÂra jest ostatecznĄ datĄ zap aty. . 'stawka' sprawdza jaka stopa byla w danym dniu, i do . kiedy obowiazywala. */ Local t := Array( 2), s // koncowa data obowiazywania stawki z daty D If DBSeek( d, .t.) file:// trafil - wez stawke t[ 1] := If( Field-dni != 0, Field-stopa/Field-dni, 0) Skip t[ 2] := If( Eof(), Ctod( ''), Field-data - 1) Else file://nie trafi , wez date t[ 2] := If( Eof(), Ctod( ''), Field-data - 1) Skip -1 t[ 1] := If( Bof(), 0, If( Field-dni != 0, Field-stopa/Field-dni, 0)) End...
Źródło: topranking.pl/1252/32,poszukuje.php
Temat: clipper internal error 19
...ale indeksy juz nie NTX ale IDX lub CDX (takie rozszerzenie). To jest sposob indeksowania zgodny z FoxPro 2.0 . Indexy IDX sa takie same jak NTX, ale spakowane - duzo mniejsze objetosciowo. Indexy CDX natomiast gromadza wszystkie porzadki w 1 pliku, i tez sa spakowane. W 1 pliku mozesz miec nawet 99 porzadkow, a zbiorow mozesz miec wiecej niz 1. Indexy IDX i CDX znacznie szybciej sie indeksuja i sa szybsze w dzialaniu (wyszukiwanie po SEEK ...). Maja tez wiecej mozliwosci (np. dbSeek( xx, Nil, .t.) wyszuka ostatni element a nie pierwszy - np. - podaj ostatnia cene sprzedazy na towar!). Zmniejsza to tez ilosc otwartych plikow dla systemu operacyjnego, co nie jest bez znaczenia. RDD DBFCDX trzyma tez pola MEMO w plikach FPT a nie DBT, w sposob umozliwiajacy umieszczanie tam danych binarnych (np. grafika), a zwykle teksty sa trzymane w mniejszych "klastrach", przez co pliki te tez sa znacznie mniejsze. Plik EXE przy wlaczeniu...
Źródło: topranking.pl/1252/clipper,internal,error,19.php
Temat: Clipper /13002 Index lock error!
...Program kompilowany Clipperem 5.2e + Blinker 3.3. Działał od zawsze, zmian wielkich ostatnio nie było, a teraz problem wystąpił w sieci opartej na FastEthernecie, WINDOWS 2000. Czy są jakieś sugestie? wz A z jakim RDD aplikacja dziala ? Jakie sa klucze indeksowe przy biezacej tabeli ? Jaki masz stos wywolan ? Jakie jest srodowisko (Novell, Win, Samba) ? Wyglada ze RDD nie moze zablokowac jakiegos zbioru indeksowego przy zwyklej operacji dyskowej typu dbSkip(), dbSeek() lub cos podobnego. Marek Horodyski
Źródło: topranking.pl/1253/clipper,13002,index,lock,error.php
Temat: Clipper - wypelnianie dziur w numeracji
...- nNr IF( nDiff 1 ) nRecno :=RECNO() DO WHILE( --nDiff 0 ) APPEND BLANK FIELD-nr :=++nNr ENDDO DBGOTO( nRecno ) ENDIF nNr :=FIELD-nr SKIP ENDDO nDiff :=<numer koncowy-nNr DO WHILE( --nDiff 0 ) APPEND BLANK FIELD-nr :=++nNr ENDDO lub prosciej: INDEX ON STR(nr) TO _index SET INDEX TO _index FOR i:=nStart TO nEnd IF( ! DBSEEK( STR(i) ) ) DBAPPEND() FIELD-nr :=i ENDIF NEXT ? 'Pozdrawiam, Ryszard'
Źródło: topranking.pl/1252/clipper,wypelnianie,dziur,w,numeracji.php
Temat: MiniGui
...zapytania do rekordow pomiedzy 15 a 30". wiem i rozumiem, problem tylko przekona? klientów do innych rozwi?za? gdy s? przyzwyczajeni od lat ("przecie? by?o wygodniej i szybciej" :-) generalnie chodzi mi o seek wykonynywany na bie??co w czasie naciskania klawiszy przy wyszukiwaniu (tak dzia?a superbrowse pod FiveWin) (np. podgl?d na kartotek? magazynow? np.10000 pozycji, klawisz F3-nazwa i wpisujemy ci?g, a w czasie wpisywania nast?puje dbseek, potem tylko enter i towar wybrany) Ta lekka niedogodnosc w MiniGui daje sie ominac i to niezbyt wyrafinowanymi metodami. Tez brakowalo mi takiego rozwiazania i zrobilem to w ten sposób, ze pod oknem browsera zrobilem okienko tekstowe, w ktorym wyswietlaja sie kolejno naciskane klawisze. Nie trzeba naciskac zadnego klawisza aktuwujacego wyszukiwanie - przy wejsciu w funkcje - focus ustawiony jest na textbox i kazdy nacisniety klawisz wyswietla sie w...
Źródło: topranking.pl/1252/minigui.php
Temat: Przeszukiwanie plików DBF
...Pawłowski <d.pawlow@transkom.icnet.pl To: <pl-comp-lang-delphi-bazy-dan@newsgate.pl Sent: Thursday, September 28, 2000 9:42 AM Subject: Przeszukiwanie plików DBF Czy jedyną metodą przeszukiwania plików dbase'a z indeksami typu wyrażeniowego np.:"dtos(DATA_1)+NAZWISKO" jest T.SetKey; // Wartości Pól T.GoToKey; Inaczej mówiąc, czy można zastosować coś w stylu clipperowego Seek'a. Jeśli nie możesz obejść się bez DBSeek() to napisz jego odpowiednik a co do pytania to innej drogi nie ma - oczywiście zależnie od tego co chcemy uzyskać jest jeszcze LOCATE które działa uniwersalnie -.
Źródło: topranking.pl/1282/przeszukiwanie,plikow,dbf.php
Temat: Testy BDFNTX Clippera 5.3
Opis przyczyn : W clipperze mozna zablokowac np. 500 rekordow (parametr serwera), i do tej pory aplikacja ma kontrole na swoja praca. Ale jak zablokuje sie wszystkie, to wywala sie z bledem. Blad polega na tym, ze WAZNE-JEZELI OTWARTTE SA INDEXY, to instrukcje typu dbgoto(), dbskip() czy dbseek() tez potrzebuja blokowac rekordy, a niestety juz nie moga, i sie wywalaja. Programisci przechwycili blad i nienajlepiej go obsluzyli. Wszyscy ktorzy modyfikuja standardowe procedury obslugi bledow, powinni b, uwazac - chociaz standardowo robi sie tam Ping-Pong. Blad jest na tyle ciekawy - ze zle pracujaca aplikacja A potrafi wywalic aplikacje B. Uwaga dla wszystkich : -przy powrocie do glownego menu, jezeli programuje sie metoda trzymania...
Źródło: topranking.pl/1256/testy,bdfntx,clippera,5,3.php
Temat: Clipper - Problem z CDX-em
Jak tylko czytasz rewizora, to otworz baze bez indeksu i zaloa swoj w innym miejscu na czas obrobki danych. Problem w tym, ze mam zapisac dane do DBF-a ale wpierw np. wyszukac, czy istnieje konto jesli nie to załozyc, potem zadekretowac itd. Ale po pierwsze to nie wiem czy ja czegos nie robie zle z otwieraniem indeksow Rewizora. Ten sam kawalek kodu kompilowany w Clipciu 5.2e otwiera indeks i nawet "szuka" dbseek'iem ale nie znajduje i wylatuje na EoF(). romek
Źródło: topranking.pl/1254/clipper,problem,z,cdx,em.php
Temat: Clipper 5.3
Witam Niedawno zaczĂąłem pisać w clipperze 5.3 (do tej pory pisałem w 5.2 ) i w zwiĂązku z tym mam proĂśbę. Jak ktoĂś ma proste (niekoniecznie) przykłady programów napisanych z wykorzystaniem nowych możliwoĂści wersji 5.3 to bardzo był bym wdzięczny za przesłanie mi ich. MogĂą to być przykłady z jakiejĂś ksiĂążki. Przyjrzyj sie funkcjom zaczynajacym sie na ord...(), zobacz ze funkcja dbSeek() ma 3 parametr (pod CDXami), zobacz tez ze mozesz zalozyc relacje na 2 sposoby - w nowym, po ordSetRelation(), bedziesz mogl ograniczyc widziany zakres w obszarze zaleznym. I jeszcze tam takie rozne, np. dzialajace ordKeyNo(), ordKeyCount() - ale to wszysztko w dziedzinie ord...(). Przetestuj Scope() - kilka nowych klas (niestety nie uzywalem). Nowoscia sa sprawne i dobrze dzialajace cdxy oraz exospace. Aby tym wszystkim sie sprawnie poslugiwac,...
Źródło: topranking.pl/1257/clipper,5,3.php
Temat: clipper, tbrowse i filtr
...literki ustawic sie w obiekcie na rekordzie ktory sie od niej zaczyna, a po nacisnieciu nastepnej na rekordzie ktory sie zaczyna od nich obu itd.. PS. nie znam clippera :-) przeglad zrobilem z manuala :-) ale na filtrze poleglem :-) opisowo tak: 1. zakładasz zmienną x i zerujesz ją 2. odczytujesz ostatnio naciśnięty klawisz "LastKey()" i np. jeśli jest on z zakresu a..z i 0..9, to dodajesz go do x po czym wykonujesz skok do indeksu zgodnego z x np. " DBSEEK(x,.T.)" i tak w kółko w pętli 3. jeśli ostatnio naciśnięty klawisz jest spoza tego zakresu (np. zmiana kolumny), to czyścisz x i zabawa zaczyna się od punktu 2 ale tym razem dla indeksu odpowiedniego dla aktualnie wskazanej kolumny. to oczywiście bardzo lakoniczny opis ale powinien Cię nakierować. A swoją drogą co Cię skłoniło do clippera jedynie słusznego programu w swojej kategorii ;-) ? L.M.
Źródło: topranking.pl/1252/clipper,tbrowse,i,filtr.php
Temat: Clipper - przejście z NTX na CDX
...datę kalendarzową czy dane? Użyj jawnie konwersji do tekstowego wyrażenia indeksowego np. DTOS(DATA) lub STR(DATA) czy w ogólnej postaci cField1 + DToS(dField2)+ Str(nField3), zwłaszcza jeśli używasz sortowania polskiego z plikami NTXsort.OBJ. Pole typu "Date" i indeks jest po dacie. Bede musial pewnie przejsc na indeks on dtos(data) (uzywam NTXmaz.obj), ale to straszna robota - w dwudziestu kilku plikach *.prg wyszukac i zmienic wszystkie dbseek(data) na
Źródło: topranking.pl/1252/clipper,przejscie,z,ntx,na,cdx.php
Temat: MiniGui
...pomiedzy 15 a 30". wiem i rozumiem, problem tylko przekonać klientów do innych rozwiązań gdy są przyzwyczajeni od lat ("przecież było wygodniej i szybciej" :-) generalnie chodzi mi o seek wykonynywany na bieżąco w czasie naciskania klawiszy przy wyszukiwaniu (tak działa superbrowse pod FiveWin) (np. podgląd na kartotekę magazynową np.10000 pozycji, klawisz F3-nazwa i wpisujemy ciąg, a w czasie wpisywania następuje dbseek, potem tylko enter i towar wybrany) działa to bardzo szybko i widziałem nie raz panienkę klepiącą zlecenie szybciej niz klient nadążył dyktować muszę coś wymyślić równie funkcjonalnego, obsługiwanego tak samo szybko pozdrowienia Marek Rzeźwicki
Źródło: topranking.pl/1252/minigui.php
Temat: clipper
| Mam pewien problem proszę o pomoc lub wskazanie strony gdzie coś podobnego | znajde. | mam 2 bazy | baza1, baza2 | Chcę aby program pobierał dane z bazy1 i wstawiał w odpowiednie miejsce w bazie2. use baza2 append from baza1 all Hmmm... myslisz, ze to jest to _odpowiednie_miejsce_? Wydaje mi sie, ze predzej: use baza1 index baza1 new use baza2 index baza2 new baza1-( DbSeek(szukanie odpowiednich danych)) baza2-(
Źródło: topranking.pl/1408/clipper.php
Temat: xHarbour + POSNET
...te z kompilacja. Faktem jest to ze TY jestes w stanie poprawic sobie zauwazone bledy - ale przecietny ( no - niech bedzie "standardowy" :) programista clipperowy tego nie zrobi. Faktem jest tez, ze zapuscilem skrypty dzialajace pod clipperem pod xHarbour i na wyjsciu mialem elegancki arkusz excellowy (no. to juz bylo dopisane - pod Clipperem byl wydruk), ale niestety wykonywal sie kilka razy dluzej i mial odmienne wyniki. Przyczyna bylo odmienne dzialanie dbSeek() w CDXowym RDD. Ostatnio bylo duzo zmian w RDD, ale problem z przelinkowaniem toolsow w tej chwili uniemozliwia mi sprawdzenie tego - a nie chce sygnalizowac bledow ktore sa juz wyeliminowane. Tak ze gdzies w poniedzialek - wtorek (znowu wyjezdzam na weekend) byc moze to potwierdze. Ale na razie Clipper jak Lenin - ciagle zywy :) Pozdrawiam, Marek Horodyski
Źródło: topranking.pl/1256/xharbour,posnet.php
Temat: Baza danych SUBIEKT4
...2] := Field- tab[ Wie( tab, 'RAZEM')][ 2] := Field-DO_WARTDN tab[ Wie( tab, 'VAT_KWOTA')][ 2] := Field-DO_VATD tab[ Wie( tab, 'BRUTTO')][ 2] := Field-DO_DOZAPL tab[ Wie( tab, 'ZAPLACONO')][ 2] := Field-DO_ZAPLACO FAKTURY-( AppBla(), Gather( tab)) dbSelectArea( 'OBROTY'), dbSeek( PadL( DOKUMENT-DO_ID, 10,'0')) While Field-OB_DOID == DOKUMENT-DO_ID .AND. !Eof() tab1[ Wie( tab1, 'FAKTURA')][ 2] := Faktury-FAKTURA tab1[ Wie( tab1, 'ILOSC')][ 2] := Field-OB_ILOSC tab1[ Wie( tab1, 'CENA')][ 2] := Field-OB_CENAN ...
Źródło: topranking.pl/1254/baza,danych,subiekt4.php
Temat: Jak wyszukac w duzej bazie po czesci stringu
Jak mozna wyszukac w duzej bazie 9000 rekordow szybko najlepiej SEEK po czesci stringu?? Czy jest to wo ogole mozliwe, wg. ksiazki P.Rogowskiego SEEK wyszukuje po czesci takze nie udalo mi sie tego zrobic niestety. Pomozcie Marcin Otrebski dbSeek( wartosc, .t. [, .t.]) niestety nie szuka po czesci stringu, chyba ze bedziesz mial indeks o kluczu : 'COSTAM' $ NazwaPola. Indeks bedzie zawieral wyrazenie logiczne, i do zludzenia przypominal filtr lub zapytanie SQLowe. Wtedy piszesz : If
Źródło: topranking.pl/1256/jak,wyszukac,w,duzej,bazie,po,czesci,stringu.php
Temat: Czy warto...
...to samo jest w VO do pola bazy mozesz odwolac sie jak do zmiennej obiektu czyli oServer:nazwa_pola i to bez zadnych sztuczek (mozna rowniez identycznie jak w Clipperze) Porownaj np. taki kod: with Table1 do begin SetKey; FieldByName('Nazwisko').AsString := 'Nazwisko'; FieldByName('Imie').AsString := 'Imie'; GotoKey; end; z analogicznym w VO oServer:seek( 'NazwiskoImie' ) i z Clipperem alias-( DBSEEK('NazwiskoImie')) Zwroc uwage ze w powyzszych przykladach zarowno dla Clippera jak i dla VO w ogole nie pojawia sie nazwa pol! Nie wspominajac o takim drobiazgu jak to ze przy odwolaniu do pola uzywasz dodatkowej metody okreslajacej na sztywno typ pola (AsString). Tylko, że ja używam TQuery tzn. SQL: Query.SQL.Add( 'Select * from jakastambaza where nazwisko ='nazwisko' and imie='imie'); Oczywiście to tylko przykład wyboru, ale w podobny...
Źródło: topranking.pl/1406/czy,warto.php
Temat: Maska wyszukiwania w Clipperze
M&j napisał(a) w wiadomo ci: <373731B8.2DDB1@laser.net.pl... Witam, Czy moge zrobic wyszukiwanie w bazie clipperowskie (clipperem) tzn. szukam lancuha: "??stefan" gdzie ?? to dwa dowolne znaki? Szukanie musi byc wg indexu. Dokladniej o co chodzi z tym indeksem ? Jesli chodzi o jakas ekstra konstrukcje DBSeek() to raczej odpada, mozna poindeksowac plik funkcja SUBSTR( FIELD-nazwa pola, 3 ) i wtedy uzyc
Źródło: topranking.pl/1256/maska,wyszukiwania,w,clipperze.php
Temat: MiniGui szukanie w locie
...chyba rozwiązany? Sprawdźcie sami działa dokładnie tak jak w clipper-ku. oto przykład: *---------------------------------* DEFINE WINDOW okno_odb ; ... ... @ 56,10 BROWSE brow_1 WIDTH 120 HEIGHT 360; ... ... ... @ 10,10 TEXTBOX zsymbol MAXLENGTH 10 ; ON CHANGE {|| MsgInfo( okno_odb.zsymbol.value )} ... ... END WINDOW ... RETURN *---------------------------------* Oczywiście msginfo() należy zastąpić procedurą z DBSEEK. Pozdrawiam Krzysztof Stankiewicz
Źródło: topranking.pl/1256/minigui,szukanie,w,locie.php
Temat: NTX -> CDX
...i wartosci. Przykladowe uzycie : Faktury-Nr_Faktury := Numer( 'FAKTURY') jezeli chcesz miec numerowane faktury od 1 codziennie (analogicznie rocznie, miesiecznie itp.), to uzywasz : Faktury-Nr_faktury := Numer( 'FA' + DtoS( Date())) Funkcja dziala tak, ze w bazie SYSTEM_N odnajdzie lub zalozy nowy rekord dla nowej kategorii, i domyslnie zwroci : zwrot := ++Field-Numer // 1 w przypadku nowozalozonego rekordu. Uzyta tu funkcja BPT() moze byc odpowiednio zastapiona dbSeek() - taka jest jej rola. Zwraca .T. jak szukanej wartosci nie bylo i ona zalozyla rekord w biezacym obszarze (tu SYSTEM_N) do uzupelnienia lub .f. jak wartosc zostala znaleziona. Nie listuje jej, bo jest czescia wiekszej calosci - w trakcie jej dzialania moga wejsc dwie stacje w interakcje pomiedzy soba. BPT w kazdym przypadku zostawia rekord zablokowany, przygotowany do zapisow. Funkcja ta moga posluzyc sie tez inne funkcje, ale byloby to juz poza tematem...
Źródło: topranking.pl/1254/ntx,cdx.php
Temat: Algorytm liczenia odsetek od należności / zobowiązań dla faktur
...index roz_rozl new // ordkey() == 'KO+NF+DTOS(TP)' // // KO C11 // konto rozrachunkowe kontrahenta // NF C9 // id_faktury // ST N1 // strona księgowania // KW N12.2 // kwota // TP D // termin płatności lub data zapłaty // ... FUNCTION ods_dla_faktury(zko, znf) local zkw, ztp, razem := 0 roz_rozl-( dbseek(zko + znf)) ztp := roz_rozl-tp do while !roz_rozl-(eof()) .and. roz_rozl-ko == zko .and.; roz_rozl-nf == znf zkw := odsetki(roz_rozl-kw, ztp, roz_rozl-tp) // if error() // ... // endif do case case roz_rozl-st == DEBIT ...
Źródło: topranking.pl/1254/algorytm,liczenia,odsetek,od,naleznosci.php
Temat: mySQL - jak sprawdzic czy jest pole ?
Witam jak sprawdzic w mySQL czy tabela zawiera pole o okreslonej wartosci ? Chodzi o funkcje, ktora zwraca .T. lub .F. w zaleznosci od tego czy szukanie sie powiodlo ? Funkcja ma byc szybka i nie powinna zwracac wiersza, ktory trzeba odczytac, itd Cos w rodzaju Seek() czy DbSeek() dla xBase. pozdrawiam joryk
Źródło: topranking.pl/1253/mysql,jak,sprawdzic,czy,jest,pole.php
Temat: [Clipper]
...bazy. blad otwarcia - test np. po NerErr() uszkodzenie indeksow - no coz, dobrze polatany serwer plikow albo zastosowanie jakiegos dedykowanego serwra danych. Jaką zastosować metode np. przy numeracji dokumentów w sieci by numery sie nie powtarzały. Nadawac numery ktore pochodza z pola tabeli numerow. W skrocie : wywolanie : Faktury-Numer := DajNumer( 'NumeryFaktur') *---------------- i sama funkcja : Function DajNumer( czegoNumer) If !Numery-( dbSeek( czegoNumer)) Numery-( dbAppend()) Else While !Numery-( dbRlock()) End End Zwrot := ++Numery-Numer ; Numery-( dbUnLock()) Return zwrot Dziekuje. Pozdrawiam, Marek Horodyski
Źródło: topranking.pl/1252/12,clipper.php
Temat: Problem z NOVEL NETWARE 5
Funkcja o której piszę nie blokuje zadnych rekordów i plików. Jak otworzysz na serwerze w trybie SHARED to dbSkip() i dbSeek() lokuje baze na czas swojego dzialania. Moze trzeba zupgreadowac Novella, albo wymusic IPX-a. Novell 5 przesyla domyslnie po TCP/IP, a biblioteki clipperowe domyslnie kozystaja z IPX. Konwersja tez trwa.Lepszym rozwiazaniem moze okazac sie Novell 4.11. Marek Horodyski
Źródło: topranking.pl/1252/problem,z,novel,netware,5.php
Temat: Nietypowe indeksowanie
...nie lubię relacji i filtrów Clippera (już dawno się ich pozbyłem, z wyjątkiem paru nieistotnych miejsc). Już nie pamiętam co to było, ale dają czasami niezbyt zabawne rezultaty (np. odświerzenie browsera prze 10 min). Po trzecie sam jednak stosowałem takie karkołomne indeksy. W twoim przypadku zrobiłbym tak: 1) przed update wyłącz relację: SET RELATION TO 2) update 3) włącz relację A indeks miałby postać: STR(pid_klient)+(TOWARY)-( dbseek(POWIAZANIA-pid_towar),UPPER(nazwa)) To powinno działać. Sorry jeżeli coś pokręciłem w powyższym zapisie, ale nie pamiętam już składni Clippera. Musiałbym szukać mojego kodu lub ng. Mirek
Źródło: topranking.pl/1256/nietypowe,indeksowanie.php
Temat: Clipper /13002 Index lock error!
...| Mam następujący błąd Clipper-a: | /13002 Index lock error!: SYMBOL RDD to SixCDX - jak dotąd zachowywał się bez najmniejszych problemów. Nic dziwnego, że go nie znalazłem - opis powinien być w Norton Guidzie do Six. Indeks jest typu kompaktowego - 3 tagi, wyrażenia dość proste, krótkie Stos - w BLINKERZE to jest DEPTH 110 Środowisko jak już napisałem to WIN 2000 Przysłali mi log i po przeanalizowaniu okazało się, że wywala się rzeczywiście na DBSEEK(). Wyrażenie na aktywnym tagu to po prostu SYMBOL, gdzie SYMBOL to pole tekstowe 14 znakowe. Prościej być chyba nie może. 1. Zmień nazwę pola albo odwołuj się do niego wszędzie przez FIELD-SYMBOL. 2. Sprawdź, czy wyrażenia indeksowe mają wszędzie tę samą długość. Na wszelki wypadek użyj wszędzie jawnej konwersji typów z podaną długością stringu wynikowego, czyli STR(nLiczba,nZnakow), DTOS(dData), PAD(cTekst). 3....
Źródło: topranking.pl/1253/clipper,13002,index,lock,error.php
Temat: cdx - C5.3 i VO2.5 - niezgodny format
Witam Z dosyc szeroko zakrojonych testow wynika, ze formaty indeksow sa niezgodne. Narzedzia: VO 2.5 trial i Clipper 5.3b z roznymi kombinacjami cavo20nt.dll i ntxpl852.obj. Wynik: bledy poszukiwania dbseek przy "widocznym" rekordzie. Czy komus udalo sie pracowac na wspolnych danych z aplikacji napisanych w VO i Clipper ? Jesli tak, to bardzo prosze o jakies wskazowki. Z gory dziekuje za pomoc Pozdrawiam Piotr
Źródło: topranking.pl/1252/cdx,c5,3,i,vo2,5,niezgodny,format.php
Temat: Pilne! Clipper i wywalanie się baz!!!
To jest blad, ktory od dluzszego czasu namierzam. Jest to blad aplikacji i programisty wystepujacy na DBDNTX1035 lub 1037. Pozostawiasz zablokowane rekordy, a NTX tego nie znosi. Masz 2 wyjscia : - poprawic aplikacje (co nieraz jest niemozliwe !!!!) - przejsc na cl 5.3 i DBFCDX. Blad jest troche smieszny, bo nigdzie nie pisze jak dlugo mozna pozostawic rekord w zablokowaniu, a rozne takie dbSkip(), dbSeek() itp. tez blokuja rekordy na czas swojej pracy, a gdy i wyjdzie "timeOut" to zglaszaja blad. Jest to blad logiczny RDD, wystepujacy na szczegolnie na nowszym sprzecie. Marek Horodyski
Źródło: topranking.pl/1253/pilne,clipper,i,wywalanie,sie,baz.php
Temat: Szybki Set Filter
...funkcjonowanie filtrów. Nie trzeba nawet indeksować bazy z klauzulą FOR . Minus: cena bibliotek - ok 1 tys. zł. Znacznie tańsze rozwiązanie, którego sam używam, polega na zaprojektowaniu za pomocą klasy TBROWSE odpowiednika dbedit(), uwzględniającego warunki FOR i WHILE . Wtedy nawet z NTX-ami działa szybko. Wystarczy podmienic metody "gotop", "gobottom" i "skipnext" obiektu tBrowse() na wlasne (np.: oparte na dbSeek) i dziala _natychmiastowo_ - tez sprawdzone :)
Źródło: topranking.pl/1255/szybki,set,filter.php
