jdmoura Posted July 21, 2005 Report Share Posted July 21, 2005 Ola pessoal, Tenho um sistema em clipper que os dbf estão em outro diretorio e eu não consigo enchegá-los. Eu já concegui mantar um menu com botões, mas não consigo colocar acentuação nos itens do menu e mensagens. Alguém pode me ajudar. eu tentei especificar o diretorio dos DBFs para trabalhar em rede e nã funcionou SET PATH TO \SISCAB\CCAR SET DEFA TO \SISCAB\CCAR SET EXCLUSIVE OFF MONO_ = .t. && abertura de arquivos excluisivos MULT_ = .f. && abertura de aquivos compatilhados e dentros do modulos de cadastro bem como o de Clientes eu abro o DBF assim SELE 1 IF !ABREARQ("CLIENTES",.F.) CLOSE ALL RETURN ENDIF SET INDEX ON TO ALF_CLI,COD_CLI SET ORDER TO 2 GO BOOT o Arquivo que controla se é mono ou mult. chama se funcoe.prg e esta escfito assim: #INCLUDE "FIVEWIN.CH" //#include "visual2.ch" * ---------------------------------------------------------------------------- * SEMANA - | Exibe a semana de uma data. * LINHA - | Apagar a linha de mens. * QUADRO - | Monta quadro * ABREARQ - | Abre o Arquivo em Modo Mono/Multiusuario * BLOQARQ - | Bloqueia um Arquivo no modo multiusuario * BLOQREG - | Bloqueia um Registro no modo multiusuario * ADREG - | Incluir um novo registro no modo multiusuario * ADREG2 - | Incluir um novo registro com o arquivo monousuario * XJUDA - | Funcao de Help on Line - Ajuda pelo Memoedit * AJUDA0 - | Inclusao do Help on Line especifico * AJUDA3 - | Ajuda do Help on Line * SOM - | Funcao Que Emite um Som Quando Pressionada Seta p/Direta/Esquerda num ACHOICE * CABE - | Funcao Que Testa de Um Relatorio Qualquer Pode Ser Editado Na Memoria * TERMOH - | Exibe uma Barra Grafica de % de Conclusao de Uma Tarefa * TERMOH2 - | Nova Versao p/ Exibir uma Barra Grafica de % de Conclusao de Uma Tarefa * LINHAESP - | Linha Especial p/ Topo de Caixas de Dialogo. * LINHESP2 - | Linha Especial p/ Topo de Caixas de Dialogo, com Sublinhado * LINHESP3 - | Linha Especial p/ Topo de Caixas de Dialogo. - Vermelha * AJU_MEMO - | Ajuda no Topo da Tela p/ Edicao de Campos MEMO * TECLA - | Le a Ultima Tecla que foi Pressionada * AJUDA1 - | Funcao de Ajuda para o Help On Line * IMPRES - | funcao teste on-line (impressora) * REGISTRO - | funcao avanca ou retorna registros * SENHASUP - | Senha p/ Funcoes Que Necessitam se Supervisao * INC_CLI - | Inclusao de Clientes ON LINE em qualquer parte do sistema * EXTENSO - | Funcao.> Funcao Extenso de Cheques e Duplicatas. * -------------------------------------------------------------------------- * _____________________________________________ * | Data da Rotina -> 15 de Maio de 1999. | * | Funcao-> Encontrar o Dia da Semana de Uma |____ * | Data Qualquer. | | * |_____________________________________________| | * | | * | Function SEMANA | * |______________________________________________| FUNCTION SEMANA param p_1 IF DOW(p_1) = 1 var_ = "Domingo " ELSEIF DOW(p_1) = 2 var_ = "Segunda-feira" ELSEIF DOW(p_1) = 3 var_ = "Terca-feira " ELSEIF DOW(p_1) = 4 var_ = "Quarta-feira " ELSEIF DOW(p_1) = 5 var_ = "Quinta-feira " ELSEIF DOW(p_1) = 6 var_ = "Sexta-feira " ELSEIF DOW(p_1) = 7 var_ = "Sabado " ELSE var_ = "Indefinido " ENDIF RETURN(var_) * ________________________________________________ * | Data da Rotina -> 15 de Maio de 1999. | * | Funcao-> Abertura de Arquivo Mono/Multiusuario |____ * |________________________________________________| | * | | * | Function ABREARQ | * |_________________________________________________| FUNCTION ABREARQ PARAMETERS arq,xmodo if xmodo set exclusive (mono_) else set exclusive (multi_) endif setcolor( "N*/W,W+/B" ) MSGALERT("Aguarde, Abrindo Arquivos p/ Utilizacao") //@ 23,00 SAY PADC("Aguarde, Abrindo Arquivos p/ Utilizacao....",78) SET COLOR TO DO WHILE .t. USE &arq IF !NETERR() //linha() RETURN (.T.) ENDIF INKEY(1) if lastkey() = 27 exit endif ENDDO close all RETURN (.F.) * ________________________________________________ * | Data da Rotina -> 15 de Maio de 1999. | * | Funcao-> Trava o Arquivo p/ Atividades Mono. |____ * |________________________________________________| | * | | * | Function BLOQARQ | * |_________________________________________________| FUNCTION BLOQARQ //setcolor( "N*/W,W+/B" ) //@ 23,00 SAY PADC("Aguarde, Abrindo Arquivos p/ Utilizacao....",78) //SET COLOR TO MSGALERT("Aguarde, Abrindo Arquivos p/ Utilizacao") DO WHILE .t. IF FLOCK() //linha() RETURN (.T.) ENDIF INKEY(1) if lastkey() = 27 exit endif ENDDO RETURN (.F.) * ________________________________________________ * | Data da Rotina -> 15 de Maio de 1999. | * | Funcao-> Bloqueia um Registro p/Alteracoes. |____ * |________________________________________________| | * | | * | Function BLOQREG | * |_________________________________________________| FUNCTION BLOQREG //setcolor( "N*/W,W+/B" ) //@ 23,00 SAY PADC("Aguarde, Abrindo Arquivos p/ Utilizacao....",78) //SET COLOR TO MSGALERT("Aguarde, Abrindo Arquivos p/ Utilizacao") DO WHILE .t. IF RLOCK() //linha() RETURN (.T.) ENDIF INKEY(1) if lastkey() = 27 exit endif ENDDO RETURN (.F.) * ________________________________________________ * | Data da Rotina -> 15 de Maio de 1999. | * | Funcao-> Adiciona Registro em Branco no Modo |____ * | Multiusuario. | | * |________________________________________________| | * | | * | Function ADREG | * |_________________________________________________| FUNCTION ADREG DO WHILE .t. APPEND BLANK IF !NETERR() if !bloqreg() //linha() RETURN (.F.) endif //linha() RETURN (.T.) ENDIF INKEY(1) if lastkey() = 27 exit endif ENDDO RETURN (.F.) * ________________________________________________ * | Data da Rotina -> 15 de Maio de 1999. | * | Funcao-> Adiciona Registro em Branco no Modo |____ * | Monousuario. | | * |________________________________________________| | * | | * | Function ADREG2 | * |_________________________________________________| FUNCTION ADREG2 GO BOTTOM APPEND BLANK IF !NETERR() //LINHA() RETURN (.T.) ENDIF RETURN (.F.) Se alguem puder me dar uma ajudinha. Quote Link to comment Share on other sites More sharing options...
eajunior Posted July 22, 2005 Report Share Posted July 22, 2005 Ola, segue minha funcao de abrir abrir arquivo em rede ou mono citação:IF !UseNetwork( "\CAMINHO\ARQUIVO", "ALIAS", .T. OU .F. )*---------------------------------------------------------------------------- FUNCTION UseNetwork( cDbfName, cAlias, Is_Network ) *---------------------------------------------------------------------------- LOCAL lReturn, _OldArea Is_Network := P_DEFVAL( Is_Network, False ) lReturn := False WHILE True IF !Is_Network USE (cDbfName) ALIAS (cAlias) NEW SHARED ELSE USE (cDbfName) ALIAS (cAlias) NEW EXCLUSIVE ENDIF IF !NetErr() .AND. Used() lReturn := True Exit ELSE IF !BoxMessage( cMsgNotOpen( cAlias ), 'Banco de Dados', 4 ) lReturn := False Exit ENDIF ENDIF ENDDO DbSelectArea( _OldArea ) RETURN( lReturn ) id=quote>id=quote>Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer. Elias Abrão Júnior Fone : (0**11) 5181-6909 São Paulo - SP eajunior.fw@terra.com.br xHarbour 0.99.0 - Fivewin 2.5 e xMate Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 22, 2005 Report Share Posted July 22, 2005 Veja isto. http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=4209 Espero que ajude Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 . Quote Link to comment Share on other sites More sharing options...
jdmoura Posted July 23, 2005 Author Report Share Posted July 23, 2005 Ola ico, Obrigado pela ajuda Um Clipper Abraço Jocimar de Moura jdemourasilva@yahoo.com.br 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.