http://ebsromania.ro/download/demo.php
user: demo
parola: demo
ftp://ftp2.ebsromania.ro/
joi, 23 septembrie 2010
marți, 21 septembrie 2010
treeview
Function TVLister
Lparameters toTV
Local lnIndex,lnLastIndex
_Cliptext=''
With toTV
lnIndex = .Nodes(1).Root.FirstSibling.Index
lnLastIndex = .Nodes(1).Root.LastSibling.Index
_GetSubNodes(m.lnIndex,m.toTV,m.lnIndex)
Do While m.lnIndex # m.lnLastIndex
lnIndex = .Nodes(lnIndex).Next.Index
_GetSubNodes(m.lnIndex,m.toTV,m.lnIndex)
Enddo
EndWith
Return _Cliptext
Function _GetSubNodes
Lparameters tnIndex, toTV, tnRootIndex
Local lnIndex, lnLastIndex
With toTV
WriteNode(m.tnIndex,m.toTV, m.tnRootIndex)
If .Nodes(m.tnIndex).Children > 0
lnIndex = .Nodes(m.tnIndex).Child.Index
lnLastIndex = .Nodes(m.tnIndex).Child.LastSibling.Index
_GetSubNodes(m.lnIndex,m.toTV,m.tnRootIndex)
Do While m.lnIndex # m.lnLastIndex
lnIndex = .Nodes(lnIndex).Next.Index
_GetSubNodes(m.lnIndex,m.toTV,m.tnRootIndex)
Enddo
Endif
Endwith
Function WriteNode
Lparameters tnCurIndex, toTV,tnRootIndex
Local lnRootIndex, lnIndex, lcPrefix, lcKey, lnLevel
lnIndex = m.tnCurIndex
With toTV
lcPrefix = '+-' + .Nodes(m.lnIndex).Text
lnLevel = 0
Do While lnIndex # tnRootIndex
lnIndex = .Nodes(m.lnIndex).Parent.Index
lcPrefix = Iif(.Nodes(m.lnIndex).LastSibling.Index = m.lnIndex,' ','|')+Space(3)+m.lcPrefix
lnLevel = m.lnLevel + 1
EndDo
_Cliptext = _Cliptext + m.lcPrefix + Chr(13)
Endwith
Lparameters toTV
Local lnIndex,lnLastIndex
_Cliptext=''
With toTV
lnIndex = .Nodes(1).Root.FirstSibling.Index
lnLastIndex = .Nodes(1).Root.LastSibling.Index
_GetSubNodes(m.lnIndex,m.toTV,m.lnIndex)
Do While m.lnIndex # m.lnLastIndex
lnIndex = .Nodes(lnIndex).Next.Index
_GetSubNodes(m.lnIndex,m.toTV,m.lnIndex)
Enddo
EndWith
Return _Cliptext
Function _GetSubNodes
Lparameters tnIndex, toTV, tnRootIndex
Local lnIndex, lnLastIndex
With toTV
WriteNode(m.tnIndex,m.toTV, m.tnRootIndex)
If .Nodes(m.tnIndex).Children > 0
lnIndex = .Nodes(m.tnIndex).Child.Index
lnLastIndex = .Nodes(m.tnIndex).Child.LastSibling.Index
_GetSubNodes(m.lnIndex,m.toTV,m.tnRootIndex)
Do While m.lnIndex # m.lnLastIndex
lnIndex = .Nodes(lnIndex).Next.Index
_GetSubNodes(m.lnIndex,m.toTV,m.tnRootIndex)
Enddo
Endif
Endwith
Function WriteNode
Lparameters tnCurIndex, toTV,tnRootIndex
Local lnRootIndex, lnIndex, lcPrefix, lcKey, lnLevel
lnIndex = m.tnCurIndex
With toTV
lcPrefix = '+-' + .Nodes(m.lnIndex).Text
lnLevel = 0
Do While lnIndex # tnRootIndex
lnIndex = .Nodes(m.lnIndex).Parent.Index
lcPrefix = Iif(.Nodes(m.lnIndex).LastSibling.Index = m.lnIndex,' ','|')+Space(3)+m.lcPrefix
lnLevel = m.lnLevel + 1
EndDo
_Cliptext = _Cliptext + m.lcPrefix + Chr(13)
Endwith
http://weblogs.foxite.com/andykramek/archive/2009/04/25/8332.aspx
http://weblogs.foxite.com/andykramek/archive/2009/04/25/8332.aspx
luni, 20 septembrie 2010
HaHaHA
GUVERNUL ROMÂNIEI hotăreşte:
Art.1 Începînd cu data de 01.06.2010,pensionarii pot traversa pe culoarea roşie
a semaforului.
Art.2 Dacă în maximun 30 zile nu se vor obţine rezultate
mulţumitoare, începînd cu data de 01.07.2010 traversarea pe
culoarea rosie a semaforului devine OBLIGATORIE.
Art. 3 Pentru că tot nu se întrevede o relansare economică, de la 01.01.2011
măsura se poate extinde şi asupra bugetarilor.
Art. 4 Începînd cu data de 01.06.2010 Guvernul României oferă slujbe gratuite
tuturor şomerilor.
Slujbele vor fi oficiate de preoţi,episcopi,arhiepiscopi si de
Preafericitul, preşedinte al României.
Masuri anticriza
Propunem Guvernului urmatoarele masuri pentru iesirea din criza:
1. Reangajarea obligatorie a pensionarilor pentru a putea finaliza marile
realizari incepute in Epoca de Aur: Canalul Dunare – Marea Neagra , Dunare
–Bucuresti, constructia unei noi Case a Poporului, etc.
2. Impozitarea consumului de hartie igienica in functie de straturi deoarece in
asa vremuri cacacioase nu se poate trece cu vederea un asemenea potential . Cei
care nu maninca nimic si in consecinta nu “produc” vor plati un impozit
forfetar.
3. Taxa pe aer la un nivel de 0,04 euro/mc consumat. Numarul de mc consumati va
fi stabilit de catre specialistii Guvernului impreuna cu Medicii de familie, in
functie de capacitatea pulmonara a fiecarei persoane.
Astmatici au reducere de la 25% pina la 100% in cazul cind se opresc din
respirat mai mult de 15 minute.
4. Impozitarea pe kilogram. Orice roman peste 35 de kg este un “gras nesimtit
‘’ pe principiul lui Basescu “ slabutul il duce in spate pe cel gras “
5. Taxa pe vanturi trase, ca prea s-au obisnuit romanii sa-si dea aere. Se vor
monta detectoare la fundul fiecarui contribuabil care vor inregistra numarul
vanturilor trase, intensitatea sunetului, intensitatea mirosului.
Taxa va adauga 24% la factura de gaz si va fi obligatorie ca taxa “radio –Tv” de
pe factura de curent.
6. Taxa pe a doua limba vorbita. Daca au bani si timp sa invete o alta limba in
afara de romana sa le fie rusine si sa plateasca pentru asta pentru ca sigur o
fac intentionat ca sa poata pleca din tara . Taxa va fi de 50 % din valoarea
totala a alocatiei care a primit-o persoana respectiva pina la
virsta de 18 ani de la stat. Sunt scutiti de taxa ungurii din Harghita,Covasna
si Mures deoarece ei oricum nu stiu decit ungureste deci nu se pune problema ca
ar sti mai mult de o limba.
7. Orice barbat care are mai mult de 124899 de fire de par va plati o taxa pe
fir de par echivalent a 10 euro / 1000 fire de par . Peste 20000 de fire in plus
se va considera ca ai un alt cap si se va impozita dublu. Cei cu chelie
proeminenta si /sau cu suvita peste chelie sint scutiti.
8. Persoanele care isi rod unghiile vor achita TVA care va fi calculat la 100
de grame de unghii la un pret care va fi stabilit de catre guvern deoarece
consuma un aliment si e normal sa plateasca.
9. Persoanele cu dizabilitati care umbla in carucioare pe strazi (scaune
electrice conform D-soarei Elena Basescu) vor achita taxa de drum ca orice
autovehicul. Cei care nu au carucioare electrice, ci din acelea impinse de o
persoana (insotitor cu retributia micsorata cu 15%) vor plati “taxa de atelaj
impins/tras de animal de povara” (bou/vaca in cazul nostru) . Daca vor fi prinsi
cu taxa neplatita li se va confisca caruciorul si vor fi trimisi acasa pe jos.
10. Taxa de caldura pentru vara deoarece orice cetatean care tine geamul deschis
primeste gratuit incalzire prin bunavointa Sfintului Guvern si nu este normal.
Astfel pentru fiecare geam deschis vara , la caldura peste 18 grade se va plati
o “taxa de geam deschis” in valoare de 12 euro/geam.
La mai mult de 3 geamuri deschise se va considera a doua casa si se va impozita
dublu. Pentru geamurile inchise se va acorda o reducere de 50% dar numai pina la
24 de grade.
11. Sugarii si bebelusii care folosesc pampers (nesimtitii!!!) vor plati o taxa
de poluare in functie de gradul de periculozitate care il prezinta fiecare din
reziduurile acumulate in scutec.
Pentru stabilirea gradului de periculozitate in care se incadreaza fiecare
bebelus se vor trimite obligatoriu pina la 1 iulie 2010 pentru fiecare copil
intre 0 si 2 ani mostre din “produsul” rezultat si acumulat in pampersi la
sediul Guvernului pentru a fi analizate. Ulterior fiecare parinte va primi acasa
o declaratie de impozitare pe care o va achita in 24 de ore la cea mai apropiata
agentie CEC .
12. SI NU IN ULTIMUL RAND TAXA PE PROSTIE , CA SUNTEM ATAT DE PROSTI SI
ÎI RABDAM SA-SI BATA JOC DE NOI !!!!!!!
Art.1 Începînd cu data de 01.06.2010,pensionarii pot traversa pe culoarea roşie
a semaforului.
Art.2 Dacă în maximun 30 zile nu se vor obţine rezultate
mulţumitoare, începînd cu data de 01.07.2010 traversarea pe
culoarea rosie a semaforului devine OBLIGATORIE.
Art. 3 Pentru că tot nu se întrevede o relansare economică, de la 01.01.2011
măsura se poate extinde şi asupra bugetarilor.
Art. 4 Începînd cu data de 01.06.2010 Guvernul României oferă slujbe gratuite
tuturor şomerilor.
Slujbele vor fi oficiate de preoţi,episcopi,arhiepiscopi si de
Preafericitul, preşedinte al României.
Masuri anticriza
Propunem Guvernului urmatoarele masuri pentru iesirea din criza:
1. Reangajarea obligatorie a pensionarilor pentru a putea finaliza marile
realizari incepute in Epoca de Aur: Canalul Dunare – Marea Neagra , Dunare
–Bucuresti, constructia unei noi Case a Poporului, etc.
2. Impozitarea consumului de hartie igienica in functie de straturi deoarece in
asa vremuri cacacioase nu se poate trece cu vederea un asemenea potential . Cei
care nu maninca nimic si in consecinta nu “produc” vor plati un impozit
forfetar.
3. Taxa pe aer la un nivel de 0,04 euro/mc consumat. Numarul de mc consumati va
fi stabilit de catre specialistii Guvernului impreuna cu Medicii de familie, in
functie de capacitatea pulmonara a fiecarei persoane.
Astmatici au reducere de la 25% pina la 100% in cazul cind se opresc din
respirat mai mult de 15 minute.
4. Impozitarea pe kilogram. Orice roman peste 35 de kg este un “gras nesimtit
‘’ pe principiul lui Basescu “ slabutul il duce in spate pe cel gras “
5. Taxa pe vanturi trase, ca prea s-au obisnuit romanii sa-si dea aere. Se vor
monta detectoare la fundul fiecarui contribuabil care vor inregistra numarul
vanturilor trase, intensitatea sunetului, intensitatea mirosului.
Taxa va adauga 24% la factura de gaz si va fi obligatorie ca taxa “radio –Tv” de
pe factura de curent.
6. Taxa pe a doua limba vorbita. Daca au bani si timp sa invete o alta limba in
afara de romana sa le fie rusine si sa plateasca pentru asta pentru ca sigur o
fac intentionat ca sa poata pleca din tara . Taxa va fi de 50 % din valoarea
totala a alocatiei care a primit-o persoana respectiva pina la
virsta de 18 ani de la stat. Sunt scutiti de taxa ungurii din Harghita,Covasna
si Mures deoarece ei oricum nu stiu decit ungureste deci nu se pune problema ca
ar sti mai mult de o limba.
7. Orice barbat care are mai mult de 124899 de fire de par va plati o taxa pe
fir de par echivalent a 10 euro / 1000 fire de par . Peste 20000 de fire in plus
se va considera ca ai un alt cap si se va impozita dublu. Cei cu chelie
proeminenta si /sau cu suvita peste chelie sint scutiti.
8. Persoanele care isi rod unghiile vor achita TVA care va fi calculat la 100
de grame de unghii la un pret care va fi stabilit de catre guvern deoarece
consuma un aliment si e normal sa plateasca.
9. Persoanele cu dizabilitati care umbla in carucioare pe strazi (scaune
electrice conform D-soarei Elena Basescu) vor achita taxa de drum ca orice
autovehicul. Cei care nu au carucioare electrice, ci din acelea impinse de o
persoana (insotitor cu retributia micsorata cu 15%) vor plati “taxa de atelaj
impins/tras de animal de povara” (bou/vaca in cazul nostru) . Daca vor fi prinsi
cu taxa neplatita li se va confisca caruciorul si vor fi trimisi acasa pe jos.
10. Taxa de caldura pentru vara deoarece orice cetatean care tine geamul deschis
primeste gratuit incalzire prin bunavointa Sfintului Guvern si nu este normal.
Astfel pentru fiecare geam deschis vara , la caldura peste 18 grade se va plati
o “taxa de geam deschis” in valoare de 12 euro/geam.
La mai mult de 3 geamuri deschise se va considera a doua casa si se va impozita
dublu. Pentru geamurile inchise se va acorda o reducere de 50% dar numai pina la
24 de grade.
11. Sugarii si bebelusii care folosesc pampers (nesimtitii!!!) vor plati o taxa
de poluare in functie de gradul de periculozitate care il prezinta fiecare din
reziduurile acumulate in scutec.
Pentru stabilirea gradului de periculozitate in care se incadreaza fiecare
bebelus se vor trimite obligatoriu pina la 1 iulie 2010 pentru fiecare copil
intre 0 si 2 ani mostre din “produsul” rezultat si acumulat in pampersi la
sediul Guvernului pentru a fi analizate. Ulterior fiecare parinte va primi acasa
o declaratie de impozitare pe care o va achita in 24 de ore la cea mai apropiata
agentie CEC .
12. SI NU IN ULTIMUL RAND TAXA PE PROSTIE , CA SUNTEM ATAT DE PROSTI SI
ÎI RABDAM SA-SI BATA JOC DE NOI !!!!!!!
sâmbătă, 18 septembrie 2010
http://www.gpureview.com/show_cards.php?card1=431&card2=621
http://www.gpureview.com/show_cards.php?card1=431&card2=621
luni, 13 septembrie 2010
http://webcache.googleusercontent.com/search?q=cache:Buu9vDyjgXUJ:webspace.ulbsibiu.ro/florin.martin/attachments/lab_VFP%2520-%2520SQL%2520v3.doc+vfp+INSERT+SQL+record+pointer+problem&cd=3&hl=ro&ct=clnk&gl=ro
http://webcache.googleusercontent.com/search?q=cache:Buu9vDyjgXUJ:webspace.ulbsibiu.ro/florin.martin/attachments/lab_VFP%2520-%2520SQL%2520v3.doc+vfp+INSERT+SQL+record+pointer+problem&cd=3&hl=ro&ct=clnk&gl=ro
sâmbătă, 11 septembrie 2010
Get primary key columns
declare @TableName varchar(128)
select @TableName = 'mytbl'
select c.COLUMN_NAME
from INFORMATION_SCHEMA.TABLE_CONSTRAINTS pk ,
INFORMATION_SCHEMA.KEY_COLUMN_USAGE c
where pk.TABLE_NAME = @TableName
and CONSTRAINT_TYPE = 'PRIMARY KEY'
and c.TABLE_NAME = pk.TABLE_NAME
and c.CONSTRAINT_NAME = pk.CONSTRAINT_NAME
select @TableName = 'mytbl'
select c.COLUMN_NAME
from INFORMATION_SCHEMA.TABLE_CONSTRAINTS pk ,
INFORMATION_SCHEMA.KEY_COLUMN_USAGE c
where pk.TABLE_NAME = @TableName
and CONSTRAINT_TYPE = 'PRIMARY KEY'
and c.TABLE_NAME = pk.TABLE_NAME
and c.CONSTRAINT_NAME = pk.CONSTRAINT_NAME
joi, 9 septembrie 2010
DRAG AND DROP http://www.aksel.com/whitepapers/dragdrop.htm
http://www.aksel.com/whitepapers/dragdrop.htm
http://www.garfieldhudson.com/FreeVideos.aspx
Video VFP
http://www.garfieldhudson.com/FreeVideos.aspx
http://www.garfieldhudson.com/FreeVideos.aspx
Abonați-vă la:
Postări (Atom)