Xailer & OZ Software

Hello Ignacio, Jose
I can not run this piece of code (not file creation but progress dialog)
what;s wrong ????
FUNCTION SetupFiles()
LOCAL ii,prog1
LOCAL DBS:={}
With object Prog1:= TProgressDlg():New( )
:nCommonAVI := aviCOPYFILES
:lNoMinimize := .T.
:lAutoTime := .T.
:lNoCancel := .T.
:lCenter := .T.
:Create()
END
Prog1:Run()
Prog1:nValue:=10
Prog1:cTitle := "¸ëåã÷ïò & Äçìéïõñãßá Áñ÷åßùí"
IF ! FILE("MAIN.DBF")
AADD(DBS,{ "CODE" , "C", 06,0 })
AADD(DBS,{ "FIRST", "C" ,18,0 })
AADD(DBS,{ "LAST" , "C" ,30,0 })
AADD(DBS,{ "ADDR" , "C" ,30,0 })
AADD(DBS,{ "PZIP" , "C" ,07,0 })
AADD(DBS,{ "CITY" , "C" ,30,0 })
AADD(DBS,{ "TEL1" , "C" ,11,0 })
AADD(DBS,{ "TEL2" , "C" ,11,0 })
AADD(DBS,{ "FAX" , "C" ,11,0 })
DBCREATE("MAIN",DBS)
USE MAIN NEW
DBCREATEINDEX("MAIN","CODE",{||CODE})
DBCREATEINDEX("MAIN01","LAST",{||LAST})
Prog1:cText:="Äçìéïõñãßá Áñ÷åßïõ :"
Prog1:cMessage := "ÌÁÉÍ.DBF"
Prog1:Reset()
IF Prog1:nValue < 100 ; ProcessMessages() ;Endif
ENDIF
For ii:= 1 to 300000 ; Next
Prog1:nValue:=80
inkey(100)
Prog1:Stop()
RETURN nil

Ï "Dionisis Divaris" <sv1fkk@hol.gr> Ýãñáøå óôï ìÞíõìá
news:[email=4423bcff@ozsrvnegro.ozlan.local...]4423bcff@ozsrvnegro.ozlan.local...[/email]
> Hello Ignacio, Jose
>
> I can not run this piece of code (not file creation but progress dialog)
> what;s wrong ????
>
> FUNCTION SetupFiles()
> LOCAL ii,prog1
> LOCAL DBS:={}
> With object Prog1:= TProgressDlg():New( )
> :nCommonAVI := aviCOPYFILES
> :lNoMinimize := .T.
> :lAutoTime := .T.
> :lNoCancel := .T.
> :lCenter := .T.
> :Create()
> END
> Prog1:Run()
> Prog1:nValue:=10
> Prog1:cTitle := "¸ëåã÷ïò & Äçìéïõñãßá Áñ÷åßùí"
>
> IF ! FILE("MAIN.DBF")
>
> AADD(DBS,{ "CODE" , "C", 06,0 })
> AADD(DBS,{ "FIRST", "C" ,18,0 })
> AADD(DBS,{ "LAST" , "C" ,30,0 })
> AADD(DBS,{ "ADDR" , "C" ,30,0 })
> AADD(DBS,{ "PZIP" , "C" ,07,0 })
> AADD(DBS,{ "CITY" , "C" ,30,0 })
> AADD(DBS,{ "TEL1" , "C" ,11,0 })
> AADD(DBS,{ "TEL2" , "C" ,11,0 })
> AADD(DBS,{ "FAX" , "C" ,11,0 })
> DBCREATE("MAIN",DBS)
> USE MAIN NEW
> DBCREATEINDEX("MAIN","CODE",{||CODE})
> DBCREATEINDEX("MAIN01","LAST",{||LAST})
> Prog1:cText:="Äçìéïõñãßá Áñ÷åßïõ :"
> Prog1:cMessage := "ÌÁÉÍ.DBF"
> Prog1:Reset()
>
> IF Prog1:nValue < 100 ; ProcessMessages() ;Endif
> ENDIF
> For ii:= 1 to 300000 ; Next
> Prog1:nValue:=80
> inkey(100)
> Prog1:Stop()
>
> RETURN nil
Ok I Found the solution
I put a ProcessMessages() into a Delay loop and
all pending messages processed fine.
Works perfect.
TIA
Dionisis

Ï "Dionisis Divaris" <sv1fkk@hol.gr> Ýãñáøå óôï ìÞíõìá
news:[email=4423bcff@ozsrvnegro.ozlan.local...]4423bcff@ozsrvnegro.ozlan.local...[/email]
> Hello Ignacio, Jose
>
> I can not run this piece of code (not file creation but progress dialog)
> what;s wrong ????
>
> FUNCTION SetupFiles()
> LOCAL ii,prog1
> LOCAL DBS:={}
> With object Prog1:= TProgressDlg():New( )
> :nCommonAVI := aviCOPYFILES
> :lNoMinimize := .T.
> :lAutoTime := .T.
> :lNoCancel := .T.
> :lCenter := .T.
> :Create()
> END
> Prog1:Run()
> Prog1:nValue:=10
> Prog1:cTitle := "¸ëåã÷ïò & Äçìéïõñãßá Áñ÷åßùí"
>
> IF ! FILE("MAIN.DBF")
>
> AADD(DBS,{ "CODE" , "C", 06,0 })
> AADD(DBS,{ "FIRST", "C" ,18,0 })
> AADD(DBS,{ "LAST" , "C" ,30,0 })
> AADD(DBS,{ "ADDR" , "C" ,30,0 })
> AADD(DBS,{ "PZIP" , "C" ,07,0 })
> AADD(DBS,{ "CITY" , "C" ,30,0 })
> AADD(DBS,{ "TEL1" , "C" ,11,0 })
> AADD(DBS,{ "TEL2" , "C" ,11,0 })
> AADD(DBS,{ "FAX" , "C" ,11,0 })
> DBCREATE("MAIN",DBS)
> USE MAIN NEW
> DBCREATEINDEX("MAIN","CODE",{||CODE})
> DBCREATEINDEX("MAIN01","LAST",{||LAST})
> Prog1:cText:="Äçìéïõñãßá Áñ÷åßïõ :"
> Prog1:cMessage := "ÌÁÉÍ.DBF"
> Prog1:Reset()
>
> IF Prog1:nValue < 100 ; ProcessMessages() ;Endif
> ENDIF
> For ii:= 1 to 300000 ; Next
> Prog1:nValue:=80
> inkey(100)
> Prog1:Stop()
>
> RETURN nil
Ok I Found the solution
I put a ProcessMessages() into a Delay loop and
all pending messages processed fine.
Works perfect.
TIA
Dionisis