developer toolbox

otpakovao u c:\harbour\bin

na dos konzoli rekao

set PATH=%PATH%:c:\harbour\bin

napravio c:\bringout\ tu stavio exe
napravio c:\bringout\fakt i tu stavio dbf-ove

u FAKT-u ću testirati

test_1.prg

procedure main()
local i

use FAKT via "DBFCDX" 

i:=0
do while !eof()
 ? i, fakt->idroba, fakt->kolicina
 skip
enddo

C:\bringout\FAKT>hbrun test_1.prg

         0 01                1.00000

harbour je striktniji nego clipper, pa tako trazi deklaraciju varijabli (local i), te trazi eksplicitno da se kaze fakt->kolicina itd

ovo se moze iskljuciti, ali sad ne znam kako.

test update-a dbf-a¶

procedure main()
local i

use fakt via "DBFCDX" exclusive

i:=0

set order to 0

go top
do while !eof()

 if fakt->idroba == "01" 
   replace fakt->idroba with "05" 
 endif

 skip

enddo

? "zavrseno" 

C:\bringout\FAKT>hbrun test_2.prg

zavrseno

ovo ne radi ...

ali ovo radi:

procedure main()
local i

use fakt via "DBFCDX" exclusive

i:=0

set order to 0

go top
do while !eof()

 if LEFT(fakt->idroba,2) == "01" 
   ? "replace", fakt->idroba
   replace fakt->idroba with "05" 
 endif

 skip

enddo

? "zavrseno" 

C:\bringout\FAKT>hbrun test_2.prg

replace 01
zavrseno

isti bi efekat dobili i da smo rekli TRIM umjesto LEFT, ili fakt->idroba = "01" (a ne ==)

je li sve ok ?

C:\bringout\FAKT>hbrun test_1.prg

         0 05                1.00000

jeste ... sifra je sada "05"

test_filter.prg

procedure main()
local i

cIdRoba:="01" 
use fakt via "DBFCDX" exclusive
set filter to "IDROBA=&cIdRoba" 

set order to 0
go top
? fakt->reccount()

cIdRoba:="05" 
set filter to "IDROBA=&cIdRoba" 
set order to 0
go top
? fakt->reccount()

ne radi, ispravke:

procedure main()
local cIdRoba

cIdRoba:="01" 
use fakt via "DBFCDX" exclusive
set filter to "IDROBA='&cIdRoba'" 

set order to 0
go top
? fakt->reccount()

cIdRoba:="05" 
set filter to "IDROBA='&cIdRoba'" 
set order to 0
go top
? fakt->reccount()

ma kakvi ja to brljam, evo ovo radi:

test_filter.prg

procedure main(cPar)

public cIdRoba

memvar->cIdRoba := cPar

//? memvar->cIdRoba

use fakt via "DBFCDX" exclusive
set filter to TRIM(fakt->IDROBA) == memvar->cIdRoba 

//set filter to "IDROBA='&cIdRoba'" 
go top
? "start" 
? "----------------------------------------------------" 
do while !eof()
   ? fakt->idroba
   skip
enddo

? "----------------------------------------------------" 
? "end" 

C:\bringout\FAKT>hbrun test_filter.prg 01

start
----------------------------------------------------
----------------------------------------------------
end
reccount() =          1

start
----------------------------------------------------
05
----------------------------------------------------
end
reccount() =          1

Nerazjašnjena pitanja¶

Da li nakon update-a baze ovim alatom treba reindeksirati bazu (da li je index compatibilan sa cliperovim) ? Mislim da ne treba, ali nisam to testirao

set order to tag¶

test_tag.prg

procedure main()

use fakt via "DBFCDX" exclusive
set order to tag "IDROBA" 

go top
? "start" 
? "----------------------------------------------------" 
do while !eof()
   ? fakt->idroba
   skip
enddo

? "----------------------------------------------------" 
? "end" 

C:\bringout\FAKT>hbrun test_tag.prg

start
----------------------------------------------------
05
----------------------------------------------------
end

radi i to izgleda. Ovo izgleda jer mi uzorak baš nije reprezentativan - imam samo jedan slog.

rad pod linux-om¶

i wine-om

bringout@nmraka-2:~/fmk$ scp fmk@dosbox.sigma-com.net:~/sc/fmk_data/FAKT/KUM1/* .

instalirao sam wine apt-get install wine

u ~/.wine/

napravio istu strukturu kao i na windows

c:/bringout/FAKt
c:/harbour/bin

pokrenuo

$ winecmd cmd

i dobio dos konzolu

u konzoli rekao

set PATH=%PATH%:c:\harbour\bin

hehe radi sve, čak i više nego pod windows-ima jer mi hbrun ispravno prikaže konzolu i mogu da koristim interaktivno komande na "."

hbrun . prompt

.use fakt via "dbfcdx" 
.list idroba, kolicina

ali ima iproblem. Kada izađe iz harbour aplikacije wineconsole je nedostupna ...

sve ovo sam uradio da ispitam "set order to tag" na većem uzorku

gornji primjer ne radi, jer tag "IDROBA" izgleda i ne postoji. Interesatno je da harbour ćutke proguta nepostojeći tag i ostavi order na 0 (bez ordera).

ovo međutim radi:

procedure main(cTag)

local i:=0, n_limit:=30

//set AUTOPEN ON
use roba via "DBFCDX" exclusive

set order to TAG &cTag
//set order to TAG "NAZ" 

? indexord()
inkey(0)

go top

? "start" 
? "----------------------------------------------------" 
do while !eof()
   ? roba->id, roba->naz
   skip
   i++
   if i > n_limit
         exit
   endif
enddo

? "----------------------------------------------------" 
? "end" 
inkey(0)

ovo gore prikazuje 30 prvih proizvod prikazanih po željenom tag-u

iz ubuntu konzole mogu da kažem:

prikaži prvih 30, sortirano po id

bringout@nmraka-2:~/.wine/drive_c/bringout/FAKT$ wine c:\\harbour\\bin\\hbrun test_tag.prg ID

prikaži prvih 30 sortirano po nazivu

bringout@nmraka-2:~/.wine/drive_c/bringout/FAKT$ wine c:\\harbour\\bin\\hbrun test_tag.prg NAZ

dobro meni je fox trebao radi modifikacije polja tabele, zato što mi je u chs skript uletio neki karakter kojeg ne vidim nigdje i dobio sam polje u DBF-u koje je imalo naziv, npr:

• IDROBA+neki čudni karakter

modifikacijom nisam mogao to riješiti jer nisam mogao da ukucam taj karakter nigdje

sve je nastalo na osnovu linuxa, jer je nekakvom kombinacijom tipki poslije slova "A" uletilo to nešto čudno...

E sada treba da se promjeni naziv polja...

sa fox-om ili sličnim alatom sam to uradio za 3 sekunde, modifikovao polje

mislim da ne trebamo pretjerivati !

Saša Vranić je napisao/la:

sa fox-om ili sličnim alatom sam to uradio za 3 sekunde, modifikovao polje

mislim da ne trebamo pretjerivati !

ne shvatam šta misliš da pretjerujem ?

a shvatio sam, ima gui za pregled polja i modifikaciju struktura.

Svejedno fox ne može biti opcija, s obzirom da je piratska kopija.

ovaj me je članak podsjetio na data architect-a kao "dbu replacement": http://objectmix.com/clipper/165474-need-dbu-replacement.html

kod instalacije pita OEM language: odabrao sam BOSNIAN (na dnu liste(

probao arc32, pravo je bugovit, interesatno da sam u pod wine-om editovao strukturu FAKT tabele (prijavljivao je bugove ali je završio posao) dok pod native windowsima iskače ko lud na sam pomen Table/Properties

our-xbu xharbour freeware

haha ovaj tek roka ko lud ne mogu ni odabrati tabelu on me izbaci

http://a2.pluto.it/a2936.htm

756.1 What is it

nanoBase (2) is a Dos program that works essentially as:

• a dot command line xBase,
• a menu driven xBase,
• a xBase program interpreter.

nanoBase 1997 is compiled in two versions: a small one to be used with old computers (x86-16 with 640 Kibyte RAM), and a second one to be used with better computers, at least i286 (or better) with 2 Mibyte RAM.

hbrun dbedit¶

ovo takođe radi

bringout@nmraka-2:~/.wine/drive_c/bringout/FAKT$ wine c:\\harbour\\bin\\hbrun test_4.prg

procedure main()

SET DATE TO GERMAN

use fakt via "DBFCDX" exclusive
set order to tag "1" 
dbedit()

međutim samo mogu da vidim, ne mogu da ispravljam tabelu ? koja je tipka za ulazak u edit mod kod dbedit funkcije ?

harbour, prikaz strukture tabele¶

procedure main()

SET DATE TO GERMAN

use fakt via "DBFCDX" exclusive

__dbCopyXStruct( "fakt_stru" )
USE fakt_stru

? "FAKT structure" 

LIST field->field_type, field->field_name, field->field_dec, field->field_len TO FILE struct.txt

inkey(0)

šta ja ustvari radim ? pravim set snippet-a sa kojima se onda može praviti beskonačna kombinatorika pri administriranju dbf-ova

ovdje sam zapeo, kao da ARRAY funkcije (ASIZE itd) nisu ulinkane u HBRUN pa prijavljuje nepostojeće funkcije ? to treba još pogledati

procedure main()
local i, aF
SET DATE TO GERMAN

use fakt via "DBFCDX" exclusive

//__dbCopyXStruct( "fakt_stru" )
//USE fakt_stru

aF := fakt->(AFIELDS())

? vartype(aF)

quit

for i:=1 to ASIZE(aF)
  ? aF[0,0]
next

//? AFIELDS[0,0]

? fieldpos("IDROBA")

//for i:=1 to LEN(fakt->AFIELDS())
//  ? fieldname(i)
//next

inkey(0)

vsasa je napisao

kada dođem na teren provedem sate i sate, kao i prije terena samog i onda nakon što razvalim nešto ljudima skontamo da hbrun ipak neće dobro raditi ako je XP SP1 instalacija, dok će kod SP2 i raditi, a kod SP nikako !!! Ali je to sve kod ljudi i na uštrb naših korisnika. To je kvaka i to je žalosno ali taj procenat je veći kod opensource software-a. Ne bih da me se pogrešno shvati u smislu da ja sada bježim od koncepta OpenSource-a !!! NEEE, ne bježim, ali treba biti razuman i imati granicu kod ovakvih stvari, a mi ljudi od software-a bar to znamo, šta vrijedi a šta ne vrijedi... Ljudi inače kupe neki pristojan software-e u takve namjene, prvenstveno siguran !!! što je jako bitno. Ne mogu se igrati i misliti da li se može deklarisati ARRAY ovako ili onako i igrati sa tuđim podacima. Mislim da sam vidio nekada CDBFEdit i CDBFView software, da sam ga čak i testirao u DEMO modu i on to radi kako treba i bez pola muke. Opet, ne kažem da mi sada trebamo kupiti CDBFView, ali u kontekstu priče želim da me se shvati.

Odabir alata treba da zadovolji određene kriterije.

U našem developer/serviser toolset-u izbjegavam zatvoren software.

Druga negativna osobina ovoga i ovakvih alata je da su windows only.

alat treba biti iznimno koristan, i da ništa slično od otvorenog software-a takvog nivo, da bi prošao mimo ovih kriterija.

već ranije sam ovo komentarisao na pomenutom ticketu

vsasa:

kada dođem na teren provedem sate i sate, kao i prije terena samog i onda nakon što razvalim nešto ljudima skontamo da hbrun ipak neće dobro raditi ...

e baš karikiraš.
Prije svake administrativne operacije na tabelama radiš backup pa onda čačkaš, sa fox-om ili hbrun-om je isto.

Fox 20, krekovana aplikacija iz 90 i neke, je baš pouzdana alat. Na stranu što je u našoj firmi zabranjeno korištenje nelegalnog software-a.

Time sam objasnio kriterije o kojima treba voditi računa po pitanju izbora servisnih i developerskih alata.

i na sašin prijedlog odgovorio