Xailer & OZ Software

Prezados Senhores,
Gostaria que não aparecesse a janela de erro do dataset (em anexo) Como
posso fazer ?
Obrigado,
Marcelo Coelho Silva
Mhacker Software do Brasil
---------------------------
With Object ::oDbf
:cName := cNome
If ::lPack
:lShared := .f.
:lDisplayErrors := .f. // desligando mensagem de erro
If :Open() // linha 126
oCbo:lChecked := !(:Pack(.f.))
EndIf
else
:lDisplayErrors := .t.
:lShared := .t.
If :Open()
oCbo:lChecked := !(:Reindex(.t., ::oProgressBar1, .t.))
EndIf
EndIf
:lOpen := .f.
ProcessMessages()
End With
-----------------------------
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com
--

Vc já tentou a propriedade lDisplayErrors do DataSet Marcelo?
"Marcelo Coelho Silva" wrote in message news:[email=53c6a7d6@svctag-j7w3v3j....]53c6a7d6@svctag-j7w3v3j....[/email]
Prezados Senhores,
Gostaria que não aparecesse a janela de erro do dataset (em anexo) Como
posso fazer ?
Obrigado,
Marcelo Coelho Silva
Mhacker Software do Brasil
---------------------------
With Object ::oDbf
:cName := cNome
If ::lPack
:lShared := .f.
:lDisplayErrors := .f. // desligando mensagem de erro
If :Open() // linha 126
oCbo:lChecked := !(:Pack(.f.))
EndIf
else
:lDisplayErrors := .t.
:lShared := .t.
If :Open()
oCbo:lChecked := !(:Reindex(.t., ::oProgressBar1, .t.))
EndIf
EndIf
:lOpen := .f.
ProcessMessages()
End With
-----------------------------
---
Este email está limpo de ví­rus e malwares porque a proteção do avast!
Antiví­rus está ativa.
http://www.avast.com
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com

Prezado Cassiano,
Obrigado pela atenção. Sim já tentei a propriedade lDisplayErrors
(conforme trecho do código que envie).
att.
Marcelo.
Em 16/07/2014 22:30, Cassiano de Oliveira escreveu:
> Vc já tentou a propriedade lDisplayErrors do DataSet Marcelo?
>
> "Marcelo Coelho Silva" wrote in message news:[email=53c6a7d6@svctag-j7w3v3j....]53c6a7d6@svctag-j7w3v3j....[/email]
>
> Prezados Senhores,
>
> Gostaria que não aparecesse a janela de erro do dataset (em anexo) Como
> posso fazer ?
>
> Obrigado,
>
> Marcelo Coelho Silva
> Mhacker Software do Brasil
>
> ---------------------------
>
>
> With Object ::oDbf
> :cName := cNome
> If ::lPack
> :lShared := .f.
> :lDisplayErrors := .f. // desligando mensagem de erro
> If :Open() // linha 126
> oCbo:lChecked := !(:Pack(.f.))
> EndIf
> else
> :lDisplayErrors := .t.
> :lShared := .t.
> If :Open()
> oCbo:lChecked := !(:Reindex(.t., ::oProgressBar1, .t.))
> EndIf
> EndIf
> :lOpen := .f.
> ProcessMessages()
> End With
>
> -----------------------------
>
>
> ---
> Este email está limpo de ví­rus e malwares porque a proteção do avast!
> Antiví­rus está ativa.
> http://www.avast.com
>
> ---
> Este email está limpo de ví­rus e malwares porque a proteção do avast!
> Antiví­rus está ativa.
> http://www.avast.com
>
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com

Foi mal, correria, nem li direito, desculpe.
"Marcelo Coelho Silva" wrote in message news:[email=53c6a7d6@svctag-j7w3v3j....]53c6a7d6@svctag-j7w3v3j....[/email]
Prezados Senhores,
Gostaria que não aparecesse a janela de erro do dataset (em anexo) Como
posso fazer ?
Obrigado,
Marcelo Coelho Silva
Mhacker Software do Brasil
---------------------------
With Object ::oDbf
:cName := cNome
If ::lPack
:lShared := .f.
:lDisplayErrors := .f. // desligando mensagem de erro
If :Open() // linha 126
oCbo:lChecked := !(:Pack(.f.))
EndIf
else
:lDisplayErrors := .t.
:lShared := .t.
If :Open()
oCbo:lChecked := !(:Reindex(.t., ::oProgressBar1, .t.))
EndIf
EndIf
:lOpen := .f.
ProcessMessages()
End With
-----------------------------
---
Este email está limpo de ví­rus e malwares porque a proteção do avast!
Antiví­rus está ativa.
http://www.avast.com
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com