dos error 3

cendon · October 23, 2017

Bom dia srs, tudo bom?

Devo estar fazendo uma besteira muito grande muito grande numa rotina minha

mapeei um pasta da rede com uma letra S: porem não consigo acessar nenhum arquivo desta pasta mostra que o arquivo nao existe

tenho acesso pelo Prompt do DOS e pelo Fox (tenho uma maquina com windows 10 32) mas não consigo ver via fivewin

Error description: (DOS error 3)

DBFCDX/1001 Open error : S:\proposta.dbf

o codigo é o seguinte

function teste2()

sele 0
use s:\proposta shared

msgalert("funcionou")

close data
return

Alguem ja passou pelo problema?

kapiaba · October 23, 2017

// ERRSYSW.PRG

	   cErrorLog += cMessage  // +- NESTA LINHA, PONHA ISTO:
	   IF .NOT. EMPTY( e:osCode )  // INCLUIDO EM: 17/01/2014 - Joao
	      // ? DOSErro( e:osCode )  // mostra a falha +- linha: 788
	      MsgStop( OemtoAnsi( "ATEN€ÇO USUµRIO, ISTO  UM AVISO: " )+CRLF+      ;
               OemtoAnsi( "NÇO  ERRO DE PROGRAMA,  DE REDE." )+CRLF+CRLF+ ;
                        ( UPPER( cMessage )                    )+CRLF+CRLF+ ;
                        ( DOSErro( e:osCode )                  )+CRLF+CRLF+ ;
               OemToAnsi( "PROBLEMAS NA REDE DE COMPUTADORES." )+CRLF+      ;
               OemToAnsi( "RETIRE TODOS OS USUµRIOS DA REDE: " )+CRLF+      ;
               OemToAnsi( "DESLIGUE O SEU COMPUTADOR...      " )+CRLF+      ;
               OemToAnsi( "DESLIGUE O SERVIDOR DE ARQUIVOS..." )+CRLF+      ;
               OemToAnsi( "RELIGUE  O SERVIDOR DE ARQUIVOS..." )+CRLF+      ;
               OemToAnsi( "RELIGUE  O SEU COMPUTADOR...      " )+CRLF+      ;
               OemToAnsi( "PERSISTINDO O ERRO, CHAME O SEU   " )+CRLF+      ;
               OemToAnsi( "TCNICO DE COMPUTADORES.          " )+CRLF+      ;
               OemToAnsi( "ESTE NÇO  UM ERRO DE PROGRAMA.   " )+CRLF+      ;
               OemToAnsi( "CHAME SEU TCNICO DE REDE URGENTE." )+CRLF+      ;
               OemToAnsi( "VERSÇO DO PROG: "                   )+CRLF+      ;
               OemToAnsi( "TECLE <ENTER> PARA CONTINUAR...   " ),           ;
               OemToAnsi( "ERRO DE REDE OU NO SEU COMPUTADOR, CHAME TCNICO" ) )
	      cErroRede := "http://pt.kioskea.net/faq/7012-codigos-de-erros-do-windows-parte-1"
	      // ShellExecute(GetActiveWindow(),"open",'"'+cErroRede+'"', 0)
	   ENDIF
	
FUNCTION DOSERRO( QUAL )  // INCLUIDO EM: 17/01/2014 ERROS DE REDE...
	   PRIVATE FALHA[ 999 ]
	   IF QUAL = 0 .OR. QUAL > 120
      QUAL = 999
   ENDIF
	   FALHA[ 1 ]  = "NUMERO DE FUNCAO INVALIDA"
   // MUDEI EM: 24/02/2016 Para ficar mais claro a mensagem.
   FALHA[ 2 ]  = "ARQUIVO NAO ENCONTRADO NA PASTA DO PLENO: VERIFIQUE SUA REDE. "+ ;
                 "TEM UMA FALHA DE COMUNICACAO DO SEU COMPUTADOR COM O SERVIDOR "+ ;
                 "DE ARQUIVOS."
   FALHA[ 3 ]  = "CAMINHO OU ARQUIVO NAO ENCONTRADO"
   FALHA[ 4 ]  = "MUITOS ARQUIVOS ABERTOS"
   FALHA[ 5 ]  = "ACESSO NEGADO - LIBERE O ACESSO A PASTA ACIMA - CHAME O TECNICO."
   FALHA[ 6 ]  = "HANDLE INVALIDO - PROBELMAS NO HD."
   FALHA[ 7 ]  = "BLOCO DE CONTROLE DE MEMORIA DESTRUIDO"
   FALHA[ 8 ]  = "MEMORIA INSUFICIENTE - COLOQUE MAIS MEMORIA RAM"
   FALHA[ 9 ]  = "ENDERECO DE BLOCO DE MEMORIA INVALIDO"
   FALHA[ 10 ] = "DISPOSITIVO INVALIDO"
   FALHA[ 11 ] = "FORMATACAO INVALIDA"
   FALHA[ 12 ] = "CODIGO DE ACESSO INVALIDO"
   FALHA[ 13 ] = "DADOS INVALIDOS"
   FALHA[ 14 ] = "RESERVADO PARA USO FUTURO 14"
   FALHA[ 15 ] = "ACIONADOR DE DISCO(DRIVE) INVALIDO"
   FALHA[ 16 ] = "TENTOU REMOVER DO DIRETORIO CORRENTE"
   FALHA[ 17 ] = "DISPOSITIVO NAO E O MESMO"
   FALHA[ 18 ] = "NAO HA MAIS ARQUIVO"
   FALHA[ 19 ] = "DISCO PROTEGIDO CONTRA GRAVACAO - LIBERE O ACESSO DO HD."
   FALHA[ 20 ] = "UNIDADE DE DISCO DESCONHECIDA"
   FALHA[ 21 ] = "IMPOSSIVEL LEITURA DE DISCO - CHAME O TECNICO."
   FALHA[ 22 ] = "COMANDO DESCONHECIDO"
   FALHA[ 23 ] = "INFORMACAO ERRADA(CRC)"
   FALHA[ 24 ] = "COMPRIMENTO DA ESTRUTURA ESTA RUIM"
   FALHA[ 25 ] = "ERRO NA PESQUISA(SEEK)"
   FALHA[ 26 ] = "UNIDADE DE ARMAZENAGEM(MIDIA) DESCONHECIDO"
   FALHA[ 27 ] = "SETOR NAO ENCONTRADO - PROBLEMAS NO HD."
   FALHA[ 28 ] = "ACABOU O PAPEL DA IMPRESSORA"
   FALHA[ 29 ] = "GRAVACAO INVALIDA"
   FALHA[ 30 ] = "LEITURA INVALIDA"
   FALHA[ 31 ] = "FALHA GERAL- CHAME O TECNICO URGENTE."
   FALHA[ 32 ] = "VIOLACAO DE COMPARTILHAMENTO"
   FALHA[ 33 ] = "TENTATIVA DE ACESSAR UM ARQUIVO BLOQUEADO"
   FALHA[ 34 ] = "MUDANCA DE DISCO INVALIDA"
   FALHA[ 35 ] = "TENTATIVA DE ABRIR MAIS ARQUIVOS DO QUE O DEFINIDO NO COMANDO FCBS."
   FALHA[ 36 ] = "ESTOURO NO BUFFER DE COMPARTILHAMENTO."
   FALHA[ 37 ] = "RESERVADO PARA USO FUTURO 37"
   FALHA[ 38 ] = "RESERVADO PARA USO FUTURO 38"
   FALHA[ 39 ] = "RESERVADO PARA USO FUTURO 39"
   FALHA[ 40 ] = "RESERVADO PARA USO FUTURO 40"
   FALHA[ 41 ] = "RESERVADO PARA USO FUTURO 41"
   FALHA[ 42 ] = "RESERVADO PARA USO FUTURO 42"
   FALHA[ 43 ] = "RESERVADO PARA USO FUTURO 43"
   FALHA[ 44 ] = "RESERVADO PARA USO FUTURO 44"
   FALHA[ 45 ] = "RESERVADO PARA USO FUTURO 45"
   FALHA[ 46 ] = "RESERVADO PARA USO FUTURO 46"
   FALHA[ 47 ] = "RESERVADO PARA USO FUTURO 47"
   FALHA[ 48 ] = "RESERVADO PARA USO FUTURO 48"
   FALHA[ 49 ] = "RESERVADO PARA USO FUTURO 49"
   FALHA[ 50 ] = "REDE REQUERIDA NAO SUPORTADA"
   FALHA[ 51 ] = "COMPUTADOR REMOTO NAO ESTA RESPONDENDO"
   FALHA[ 52 ] = "NOME DA REDE DUPLICADO"
   FALHA[ 53 ] = "NOME DA REDE NAO ENCONTRADO"
   FALHA[ 54 ] = "REDE OCUPADA."
   FALHA[ 55 ] = "DISPOSITIVO DE REDE NAO MAIS EXISTENTE"
   FALHA[ 56 ] = "LIMITE DE COMANDOS DA BIOS EXCEDIDO"
   FALHA[ 57 ] = "ERRO DE HARDWARE NA PLACA DA REDE"
   FALHA[ 58 ] = "RESPOSTA INCORRETA DA REDE"
   FALHA[ 59 ] = "ERRO INESPERADO NA REDE - CHAME O TECNICO DE REDE."
   FALHA[ 60 ] = "PLACA REMOTA INCOMPATIVEL"
   FALHA[ 61 ] = "FILA DE IMPRESSAO ESTA CHEIA"
   FALHA[ 62 ] = "NAO EXISTE ESPACO SUFICIENTE PARA O ARQUIVO DE IMPRESSAO."
   FALHA[ 63 ] = "ARQUIVO DE IMPRESSAO ELIMINADO(ESPACO INSUFICIENTE)"
   FALHA[ 64 ] = "NOME DA REDE ELIMINADO"
   FALHA[ 65 ] = "ACESSO NAO PERMITIDO - LIBERE O ACESSO A PASTA ACIMA."
   FALHA[ 66 ] = "TIPO INCORRETO DE DISPOSITIVO DE REDE"
   FALHA[ 67 ] = "NOME DA REDE NAO ENCONTRADO"
   FALHA[ 68 ] = "LIMITE EXCEDIDO PARA O NOME DA REDE"
   FALHA[ 69 ] = "LIMITE DE SESSAO DA BIOS EXCEDIDO NA REDE"
   FALHA[ 70 ] = "PAUSA TEMPORARIA"
   FALHA[ 71 ] = "PEDIDO DE REDE NEGADO"
   FALHA[ 72 ] = "DISPOSITIVO DA IMPRESSORA OU DISCO PAUSADO."
   FALHA[ 73 ] = "RESERVADO PARA USO FUTURO 73"
   FALHA[ 74 ] = "RESERVADO PARA USO FUTURO 74"
   FALHA[ 75 ] = "RESERVADO PARA USO FUTURO 75"
   FALHA[ 76 ] = "RESERVADO PARA USO FUTURO 76"
   FALHA[ 77 ] = "MEMORIA INSUFICIENTE PARA OPERAR O EQUIPAMENTO. CHAME O TECNICO."
   FALHA[ 78 ] = "RESERVADO PARA USO FUTURO 78"
   FALHA[ 79 ] = "RESERVADO PARA USO FUTURO 79"
   FALHA[ 80 ] = "ARQUIVO JA EXISTENTE NO DISCO(HD)"
   FALHA[ 81 ] = "RESERVADO PARA USO FUTURO 81"
   FALHA[ 82 ] = "IMPOSSIVEL CRIAR DIRETORIO"
   FALHA[ 83 ] = "OCORREU FALHA EM INT 24H DO DOS"
   FALHA[ 84 ] = "EXCESSOS DE REDIRECIONAMENTOS"
   FALHA[ 85 ] = "REDIRECIONAMENTO DUPLICADO"
   FALHA[ 86 ] = "SENHA INVALIDA"
   FALHA[ 87 ] = "PARAMETRO INVALIDO OU INCORRETO."
   FALHA[ 88 ] = "ERRO AO ESCREVER PARA A REDE. DEFEITO TCNICO."
   FALHA[ 89 ] = "NENHUM ERRO OCORRIDO!"
   FALHA[ 90 ] = "erro de sistema."
   FALHA[ 91 ] = "Temporizador da tabela do serviço de transbordo."
   FALHA[ 92 ] = "Temporizador serviço tabela duplicar."
   FALHA[ 93 ] = "Nenhum item para trabalhar."
   FALHA[ 95 ] = "chamada de sistema interrompida."
   FALHA[ 99 ] = "Dispositivo em uso."
   FALHA[100]  = "usuário / sistema de limite de abertura do semáforo atingido."
   FALHA[101]  = "Exclusivo semáforo já possuía."
   FALHA[102]  = "DosCloseSem encontrada conjunto de semáforos."
   FALHA[103]  = "Há muitas solicitações de semáforos exclusivos."
   FALHA[104]  = "Operação inválida em tempo de interrupção."
   FALHA[105]  = "proprietário do semáforo anterior encerrado sem libertar semáforo."
   FALHA[106]  = "limite de Semaphore excedido."
   FALHA[107]  = "Insira o disco rígido B na unidade A."
   FALHA[108]  = "Unidade bloqueado por outro processo."
   FALHA[109]  = "Escreva no tubo com nenhum leitor."
   FALHA[110]  = "Open / Create falhou devido a ordem explícita falhar."
   FALHA[111]  = "Tampão passado para chamada de sistema muito pequeno para armazenar dados de retorno."
   FALHA[112]  = "Não há espaço suficiente no disco. Disco Cheio. Chame o Tecnico."
   FALHA[113]  = "Não é possível alocar uma outra estrutura de pesquisa e manusear."
   FALHA[114]  = "Alvo punho em DosDupHandle inválido."
   FALHA[115]  = "Usuário inválido endereço virtual."
   FALHA[116]  = "Erro na gravação de exibição ou o teclado ler."
   FALHA[117]  = "Categoria de DevIOCtl não definido."
   FALHA[118]  = "valor inválido passado para verificar bandeira."
   FALHA[119]  = "Nível quatro motorista não foi encontrado."
   FALHA[120]  = "Função Chamada inválida."
   FALHA[161]  = "Nome do caminho do PLENO inválido para a NF-e. Verifique o Icone da NF-e se o caminho esta igual ao do PLENO"
   FALHA[999]  = "ERRO NAO CATALOGADO INFORME O NUMERO DO ERRO AO SUPORTE."
	   /*
   Na maioria das vezes estes erros estão relacionados a uma falha de Hardware
   (parte fisica do computador)
   */
	RETURN( "PROBLEMA: " + FALHA[ QUAL ] )

kapiaba · October 23, 2017

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=15274&start=0

	\\nombre_servidor\nombre_recurso_compartido\mi_aplic\clientes.dbf

cendon · October 23, 2017

Obrigado Joao!

Vou aproveitar sua rotina e atualizar meu errorsys.

Quanto ao problema do mapeamento não sei se é um problema do fivewin ou do Windows10

Mas consegui contornar, o mapeamento deve ser executado de dentro do fivewin

Function MapDrive(cDriveLetter,cRemotePath,lPermanent,cUserName,cPassword)
Local oNetwork,oError
DEFAULT lPermanent:=.F.
oNetwork:=CreateObject("WScript.Network")
TRY
oNetwork:MapNetworkDrive(cDriveLetter, cRemotePath,lPermanent,cUserName,cPassword)
CATCH
MsgInfo("Rede com problemas: "+cDriveLetter+ " to "+cRemotePath+CRLF+;
        OemToAnsi("Desligue seu computador e religue")+CRLF+;
        OemToAnsi("Se o problema persistir entre em")+CRLF+;
        OemToAnsi("contato com o suporte"))
END
Return NIL

mapeando dentro do fivewin, a letra do mapeamento funciona sem problema

De qualquer maneira obrigado pela ajuda

kapiaba · October 23, 2017

Obrigado Joao!

Vou aproveitar sua rotina e atualizar meu errorsys.

Quanto ao problema do mapeamento não sei se é um problema do fivewin ou do Windows10

Mas consegui contornar, o mapeamento deve ser executado de dentro do fivewin

Function MapDrive(cDriveLetter,cRemotePath,lPermanent,cUserName,cPassword)
Local oNetwork,oError
DEFAULT lPermanent:=.F.
oNetwork:=CreateObject("WScript.Network")
TRY
oNetwork:MapNetworkDrive(cDriveLetter, cRemotePath,lPermanent,cUserName,cPassword)
CATCH
MsgInfo("Rede com problemas: "+cDriveLetter+ " to "+cRemotePath+CRLF+;
        OemToAnsi("Desligue seu computador e religue")+CRLF+;
        OemToAnsi("Se o problema persistir entre em")+CRLF+;
        OemToAnsi("contato com o suporte"))
END
Return NIL

mapeando dentro do fivewin, a letra do mapeamento funciona sem problema

De qualquer maneira obrigado pela ajuda

Putz!! Boiei Angelo!! Tens como fazer um pequeno exemplo práctico para eu testar aqui, no comprendo perfecto la función. kkkkkkkkkkkkkkkkk, Obg. abs.

cendon · October 23, 2017

João tenho um servidor de arquivos, nada complicado somente um deposito de dados (dbf)

os arquivos compartilhados são lidos dele e existem arquivos locais e o executável ficam na estação do usuário.

mapeio uma letra da pasta compartilhada deste servidor de arquivos

quando mapiei via windows 10 o fivewin não reconheceu a letra

dai usar as rotinas abaixo que testam e criam uma letra para o compartilhamento

function teste2()
Local cDriveLetter:="M:", cRemotePath:="\\DESKTOP-888AK7F\USERS\PUBLIC\VIDA"

if file("M:\proposta.dbf")
   sele 0
   use M:\PROPOSTA SHARED
   msgalert("funcionou 1")
else
   MapDrive( cDriveLetter, cRemotePath)
   sele 0
   use M:\PROPOSTA SHARED
   msgalert("funcionou 2")
endif

close data
return

Function MapDrive(cDriveLetter,cRemotePath,lPermanent,cUserName,cPassword) // parametro letra: \\caminho1\pasta usuario senha
Local oNetwork,oError
DEFAULT lPermanent:=.F.
oNetwork:=CreateObject("WScript.Network")
TRY
oNetwork:MapNetworkDrive(cDriveLetter, cRemotePath,lPermanent,cUserName,cPassword)
CATCH
MsgInfo("Rede com problemas: "+cDriveLetter+ " to "+cRemotePath+CRLF+;
        OemToAnsi("Desligue seu computador e religue")+CRLF+;
        OemToAnsi("Se o problema persistir entre em")+CRLF+;
        OemToAnsi("contato com o suporte"))
END
Return NIL

Function RemoveMapDrive(cDriveLetter) // parametro letra:
Local oNetwork
oNetwork:=CreateObject("WScript.Network")
TRY
oNetwork:RemoveNetworkDrive(cDriveLetter)
CATCH
MsgInfo("Rede com problemas (Remover): "+cDriveLetter+CRLF+;
        OemToAnsi("Desligue seu computador e religue")+CRLF+;
        OemToAnsi("Se o problema persistir entre em")+CRLF+;
        OemToAnsi("contato com o suporte"))
END
Return NIL

//-----------------------------------------------------------------------//
Function IsDriveMapped(cDriveLetter) // parametro letra:
Local oNetwork,oNetworkDrives,i,lAlreadyConnected:=.F.
oNetwork:=CreateObject("WScript.Network")
oNetworkDrives:=oNetwork:EnumNetworkDrives()

For i:=0 to oNetworkDrives:Count - 1 STEP 2
if Upper(oNetworkDrives:Item(i)) == Upper(cDriveLetter)
lAlreadyConnected:=.T.
Endif
Next
Return lAlreadyConnected

kapiaba · October 23, 2017

OK. procure fazer sempre assim:

	use M:\PROPOSTA SHARED  NEW
	 
	use M:\PROPOSTA EXCLUSIVE NEW

Sign In

dos error 3

Recommended Posts

cendon

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

cendon

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

cendon

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

Join the conversation

Browse

Activity