Página 1 de 1
erro de SPACEDISK(0) no WIN 10 na execução de DBFs
Enviado: 02 Jan 2019 10:30
por 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
erro de SPACEDISK(0) no WIN 10 na execução de DBFs
Enviado: 02 Jan 2019 14:02
por 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("TCNICO DE INFORMµTICA. CHAME UM TCNICO AGORA!!! ")+CRLF+;
OemToAnsi("URGENTE: CHAME O SEU TCNICO DE INFORMµTICA. ")+CRLF+;
OemToAnsi("NÇO TENTE GERAR NOTAS FISCAIS AT O SEU TCNICO ")+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
erro de SPACEDISK(0) no WIN 10 na execução de DBFs
Enviado: 02 Jan 2019 22:45
por JoséQuintas
bfinformatica escreveu:da erro de spacedisk(0)
Traduza isso.
O que significa dar erro de spacedisk?
Qual a mensagem de erro?
erro de SPACEDISK(0) no WIN 10 na execução de DBFs
Enviado: 02 Jan 2019 23:35
por 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
erro de SPACEDISK(0) no WIN 10 na execução de DBFs
Enviado: 02 Jan 2019 23:50
por bfinformatica
Kapiaba
grato pela colaboração.
)
)
erro de SPACEDISK(0) no WIN 10 na execução de DBFs
Enviado: 03 Jan 2019 22:37
por 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.
erro de SPACEDISK(0) no WIN 10 na execução de DBFs
Enviado: 04 Jan 2019 23:46
por Fernando queiroz
já verificou se na estacao esta compartilhado para leitura e gravacao