erro de SPACEDISK(0) no WIN 10 na execução de DBFs

[bfinformatica]

bom dia prezados
Feliz 2019 a todos!

estou com problemas na gravação de BDFs no WIN 10
da erro de spacedisk(0)

Uso harbour + minigui com mysql, mas tenho alguns arquivos temporários
que uso em DBF

alguém ja passou por isso e que possa me ajudar

gratidão

[Kapiaba]

Veja se ajuda:

Código: Selecionar todos

FUNCTION VERIFICA_HD()

   LOCAL nSpaceDisk, lsucesso := .F.

   nSpaceDisk := DISKSPACE()

   // ? Tran( nSpaceDisk, "@E 999,999,999,999,999" )
   // @ 2,2 Say Tran( nSpaceDisk, "@E 999,999,999,999,999" )
   IF ( DISKSPACE() < 25000000.0 )

      MsgStop( OemToAnsi("ATEN€ÇO USUµRIO:     PERIGO EXTREMO   -   CUIDADO!!")+CRLF+;
               OemToAnsi("O ESPA€O DISPONÖVEL NO HD DO SERVIDOR ONDE         ")+CRLF+;
               OemToAnsi("ESTµ INSTALADO O PROGRAMA DO PLENO, ESTµ MUITO     ")+CRLF+;
               OemToAnsi("PEQUENO(Cheio).  POSSIVELMENTE PODERÇO OCORRER     ")+CRLF+;
               OemToAnsi("ERROS QUANDO TENTAR USAR O PLENO NO SERVIDOR.      ")+CRLF+;
               OemToAnsi("ACONSELHAMOS UMA SELEۂO  DOS  ARQUIVOS  QUE       ")+CRLF+;
               OemToAnsi("SE ENCONTRAM ATUALMENTE NO SEU SERVIDOR.           ")+CRLF+;
               OemToAnsi("OU TROQUE O HD(Hard Disk) DO COMPUTADOR...         ")+CRLF+;
               OemToAnsi("RECOMENDAMOS UM HD DE NO MINIMO: 500 Gigas.        ")+CRLF+;
               OemToAnsi("PE€A AO PESSOAL PARA SAIR DA REDE E NÇO USAR       ")+CRLF+;
               OemToAnsi("MAIS O PLENO, AT QUE SE RESOLVA O PROBLEMA.       ")+CRLF+;
               OemToAnsi("VERIFICAR ESPA€O(HD) DO SERVIDOR DE ARQUIVOS.      ")+CRLF+;
               OemToAnsi("ESPA€O DISPONIVEL NO HD DO SERVIDOR: "                    +;
               Tran( nSpaceDisk, "@E 999,999,999,999,999" + " Bytes Livres(Disponivel)  POUCO!!" ) )+CRLF+;
               OemToAnsi("COMUNIQUE ESTA MENSAGEM IMEDIANTAMENTE AO SEU      ")+CRLF+;
               OemToAnsi("TCNICO DE INFORMµTICA. CHAME UM TCNICO AGORA!!!  ")+CRLF+;
               OemToAnsi("URGENTE: CHAME O SEU TCNICO DE INFORMµTICA.       ")+CRLF+;
               OemToAnsi("NÇO TENTE GERAR NOTAS FISCAIS AT O SEU TCNICO    ")+CRLF+;
               OemToAnsi("LIBERAR ESPA€O NO HD DO SERVIDOR DE ARQUIVOS.      ")+CRLF+;
               OemToAnsi("FA€A UM <PRINT SCREEN> DESTA TELA E MOSTRE AO      ")+CRLF+;
               OemToAnsi("GERENTE, OU AO PROPRIETµRIO DA EMPRESA, URGENTE!!! ")+CRLF+;
               OemToAnsi("Pressione <ENTER> Para Continuar...                "),     ;
               OemToAnsi("Disco R¡gido(Servidor) Super Lotado(Cheio) Cuidado!") )

   ENDIF

RETURN NIL

[JoséQuintas]

da erro de spacedisk(0)

Traduza isso.
O que significa dar erro de spacedisk?
Qual a mensagem de erro?

[bfinformatica]

tem muita área na máquina, ocorre que seu colocar os DBFs montados funciona, porem quando tem uma atualização
que preciso regravar ele da erro.

Nesse caso, quando foi gravar a nova versao 20.0 deu erro.

if c_versao != c_vermst

setproperty("form_main","lbl_titulo","value",'AGUARDE.....ESTOU ATUALIZANDO A VERSÃO!!!')

dbcloseall()

criar_tabelas() // cria /corige tabelas MySQL
criadbf() // cria/corrige tabelas DBF
CriaCepdbf() // cria/corrige tabelas DBF do CEP
CriaCdx()
AbreDbfCdx()

dbselectarea('master')
if LockReg()
master->versao := Substr(c_versao,4,2)+Substr(c_versao,7,1)
master->diascon := 90
master->data_vig := x_data_vig // ctod('20/09/14')
master->(dbcommit())
master->(dbgotop())
endif

endif

[bfinformatica]

Kapiaba

grato pela colaboração. ) )

[bfinformatica]

consegui fazer funcionar com o executavel local.
Descobri que não estava atualizando dbf pela rede, mas local está tudo normal.

por enquanto, muito obrigado.

[Fernando queiroz]

já verificou se na estacao esta compartilhado para leitura e gravacao