cendon Posted October 23, 2017 Report Share Posted 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? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 23, 2017 Report Share Posted 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 ] ) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 23, 2017 Report Share Posted October 23, 2017 http://forums.fivetechsupport.com/viewtopic.php?f=3&t=15274&start=0 \\nombre_servidor\nombre_recurso_compartido\mi_aplic\clientes.dbf Quote Link to comment Share on other sites More sharing options...
cendon Posted October 23, 2017 Author Report Share Posted 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 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 23, 2017 Report Share Posted 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. Quote Link to comment Share on other sites More sharing options...
cendon Posted October 23, 2017 Author Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 23, 2017 Report Share Posted October 23, 2017 OK. procure fazer sempre assim: use M:\PROPOSTA SHARED NEW use M:\PROPOSTA EXCLUSIVE NEW cendon 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.