Luiz Arruda (ICO)

Ola. Tente isso Após dar o APPEND defina novamente as variaveis wtipo=0 whistorico=space(50) OU SE VC. USA O SETFOCUS() Func XSetFocus(oObj) Local oTempo := "" Define Timer oTempo Interval 10 Of oObj:oWND Action (oObj:SetFocus(),oObj:SetPos(0),oTempo:Deactivate()) Activate Timer oTempo wtipo:=0 whistorico:=space(50) etc... Retu("") Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

RMARRA - Porque que seu tópico é identico ao do ANDERSON.OL ?? a cidade nos dados cadastrais identicas.. voces são a mesma pessoa ?? nao que isso seja de grande interesse, mas se for pq. usar 02 nomes no forum ?? . Abraços. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Ola. Nao Quero desanimar Vc. mas isto ocorreu comigo, exatamente como vc. descreve, aqui me passaram para usar outro LINKADOR ao invés do HBMAKE. Conclusão.. até hoje nao consegui compilar um PRG com o xharbour... fiquei com o FW até ter tempo disponivel para ver se consigo pelo menos o "HELLO WORD !" e possivelmente migrar minhas aplicações. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Boa Trade.. Bem Tenho uma uma LISTBOX e mesmo seguindo as dicas de outros tópicos nao consegui colocar cor nas colunas, gostaria que ficasse assim; TRANSPORTEid=yellow> DEBITOid=red> CREDITOid=blue> SALDOid=green> Segue o código; FUNCTION SALDOS() local odlg, olbx,OBMP local oRadioBurrons local arruma:=1 local ofont2, OFONT3 NORDEN :=2 xnom:="" CLOSE DATA Select 1 USE C:\DADOS\SALDOS ALIAS SALDOS EXCLUSIVE NEW SET INDEX TO C:\DADOS\FUNCIO01 GO top SELECT 1 DEFINE BITMAP oBmp FILENAME "\ADMP\BMP\VERIFI.bmp" define font ofont2 NAME "MS SANS SERIF" SIZE 0,-10 DEFINE FONT OFONT3 NAME "MS SANS SERIF" SIZE 10,10 BOLD DEFINE DIALOG ODLG FROM 06,00 TO 45,129 TITLE " 7.1 SALDOS DE EMPREGADOS " @02,01 TO 05,50 @06,02 LISTBOX oLbx FIELDS SALDOS->NOME, OEMTOANSI(str(SALDOS->CONTA,7,3)),; oemtoansi(str(SALDOS->transporte,10,2)), str(SALDOS->debito,10,2), str(SALDOS->credito,10,2), oemtoansi(str(SALDOS->saldo,10,2)); FIELDSIZES 295,80,80,80,80,80,80; HEADERS " NOME ", "CONTA", "TRANSPORTE ","DEBITO","CREDITO","SALDO","ADMISSAO"; SIZE 349, 150; ON LEFT DBLCLICK(MOSTRA(), oLbx, .T. ); OF oDlg @03,02 say "Ordenar por:" @03,08 RADIO oRadioButtons VAR arruma; PROMPT "&Nome","&Conta"; OF ODLG ON CHANGE ordenar(arruma, OLBX) @22,02 BUTTON "Buscar " of odlg; ACTION BUSCAr(oLbx,arruma) @22,12 button "Alterar" of odlg @22,22 button "Excluir" of odlg; message "Excluir Registro"; action deleta(oLbx) @22,32 button "Ficha " of odlg; action PRNLPT() @22,42 button "Sair " of odlg; action odlg:end(oLbx:end()) @03,15 SAY "Mes "+trim(MA) @04,15 say "Impressora: "+PADNO ACTIVATE DIALOG ODLG ; ON PAINT PalBmpDraw( hDC, 10, 10, oBmp:hBmpPal ) oBmp:End() CLOSE DATA DBCLOSEAREA() Desde já agradeço.. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 . Editado por - ico on 21/07/2005 16:58:47

Ola. Nei se é isto que vc. quer, mais vai lá No primeiro teste entre com qualquer carac. e tecle enter, no segundo digite apenas A. e veja se é realmente isto. --- -- - local odgl otest:=space(20) atest:=ctod("\\") Define dialog ODLG FROM 01,01 to 20,90 TITLE "Teste Get.." @03,03 say "Teste get " @03,05 get otest valid{|aver|aver(aver)} @05,03 say "Data" @05,05 get atest activate dialog odlg centered return nil FUNCTION AVER() IF OTEST="A" MSGINFO("Retorno certo") return .T. else msginfo("Retorno Errado") RETURN .F. endif return .t. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Ola. Coloque a BWCC.DLLid=blue> em WINDOWS\SYSTEM32id=blue> e as demais DLLs na mesma pasta do seu aplicativo. e tente isto. SET RESOURCES TO ",SUA.DLLid=blue>" hBorland:=loadlibrary("BWCC.DLL") cannot create resource SENHA, indica que o FW nao encontrou a DIALOG da sua DLL. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 . Editado por - ico on 21/07/2005 12:02:35

Ola. Diga com clareza o que vc. pretende, e diga tb. se a dialog já foi criada.. Abraços Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Ola. Voçe está buscando o harbour.exe em pasta diferente da onde ele foi instalado este exe está na SUB-PASTA\BIN do Xhb.Faça como o Franscisco disse, crie seu arquivo.bat com os parametros e nao use pelo autoexec.NT De um set no prompt do dos e veja a linha do PATH como está Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 . Editado por - ico on 20/07/2005 14:36:12

brigado e iguarmente procê tamém um brinde virtuar prá tudo quanto é amigo do forum. .. haa! si num fossi essi FORUM.. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Ola. Reforço o que o Francisco disse, mais se quiser tentar inclua estas linhas no finalid=blue> do seu autoexec.nt PATH=%PATH%;C:\BCC55\BIN;C:\xharbour\BIN Faça alterações nos caminhos se for necessário. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Valeu personal. Eu já estava montando algo assim, criei uma pasta nos terminais c:\ADDADOS coloquei todos os arquivos que seriam acessados nos terminais.. e.. ZAP/APPEND/INDEX ETC, e a principio (testes) está funcionando. Vamos ver + pra frente o que acontece. Abração. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Ola Geraldo. Veja este link; http://culikr.sites.uol.com.br/howto.htm#BCC32 Abraços Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Grande KAPIABA Obrigado Seguinte.. O arquivo pessoal mostra CONTA/NOME/DEBITO/CREDITO/SALDO Se eu der DP CLICK abre uma Tela em WS com todos os dados cadastrais e uma listbox com os lancamentos efetuados na referida conta. antes eu usava ZAP APPEND FROM ETC... com o SHARED nao posso fazer isso. qual a saida ?. Mais uma Vez Obrigado Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Ola. Tente criar assim ***** BCC32.CFG id=blue> -Ic:\bcc55\include;c:\harbour\include -Lc:\bcc55\lib;c:\harbour\lib **** ILINK32.CFGid=blue> -Lc:\bcc55\lib;c:\harbour\lib Copie na SUB-PASTA \BIN de BCC55 Abraços Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Boa Tarde. Gostaria de saber se para que dois ou mais computadores da rede acessem o mesmo Banco de dados, sem dar problema basta colocar SHARED ao abrir o arquivo. select 1 Use Pessoal SHARED Basta isso para q todos os terminais acessem o mesmo arquivo.DBF sem dar pau ???. Obrigado Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Bom Dia. http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=4315 Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Ola. Vc. está fazendo como fazia no clipper ? ou seja em uma SUB-ROTINA separada que é chamada com DO ? Se a resposta for sim, coloque dentro do mesmo programa principal como FUNCTION. MENUITEM "&Cadastrar" message "Cadastrar Clientes Novos"; ACTION CADASTRO() ... .. . FUNCTION CADASTRO() Aqui entra seu codigo ... .. .. Abraços Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Boa Noite CTOAS Veja o que significa este erro e analise onde vc. esta enquadrando. C3031 Can't create OBJ Problema:id=blue> Por alguma razao, o compilador nao consegue criar um arquivo objeto. Soluçao:id=blue> Este erro pode ocorrer caso você tenha ultrapassado o limite de arquivos por diretório, ou entao você nao tem atributos de criaçao em uma unidade de rede. A opçao /O do compilador pode ser utilizada para escrever os arquivos objeto em outra unidade de disco ou diretório. Abraços. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Intão Tá Bão uai. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Ola. É possível que em FW 2.XX as telas fiquem com aparencia de XP igual as telas do PERSONALid=blue> como segue abaixo, se sim como faço ?. Obrigado. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 . Editado por - ico on 16/07/2005 10:23:05 Editado por - ico on 16/07/2005 10:23:47

Ola. Veja se é isto q vc quer. ... .. . DEFINE WINDOW oWnd FROM 1,1 to 22,75; TITLE "CONTA CORRENTE "; MENU PREPARAMENU(); icon oicon; Brush oBrusH ... .. . function preparamenu() LOCAL oMenu MENU oMenu MENUITEM "&CLIENTES" MENU MENUITEM "&Trocar " RESOURCE "trocar"; message "Trocar Clinte"; ACTION CLIENTES() MENUITEM "&Cadastrar" message "Cadastrar Clientes Novos" MENUITEM "&Alterar " message "Alterar Cadastro " MENUITEM "&Excluir " message "Excluir Clientes " SEPARATOR MENUITEM "&Sair " resource "bmp_sair" message "Fechar e sair do Sistema" ; ACTION Saida() endmenu ... .. . Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Bom Dia Eu Copiei a pasta do Clipper e a do FW, levei pro rancho e nao deu pau algun, verifique se foi copiados todas as pastas do clipper e FW. crie no seu arquivo.bat as variaveis para evitar ficar mudando autoexec pra lá auto... prá cá ********* *c.bat ****** set lib=c:\FIVE\lib;C:\CLIPPERxx\LIB ETC... set include=\FIVE\INCLUDEid=blue> ETC... CLIPPER /N /M ETC.. BLINKER @SEU.LNK Assim toda vez q vc voltar ao Win seus *.bats *.nts ficarão do mesmo jeito Abraços. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 . Editado por - ICO on 16/07/2005 08:58:33

Ola Paulo Sua ajuda será novamente de grande proveito. Abraços. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Boa Tarde É o seguinte, Se eu estiver efetuando lancamentos no servidor, e o terminal w002 resolve verificar saldo no mesmo banco de dados... é pau... como que eu abro o mesmo BD em dois computadores ?. se não é possivel, gostaria de bloquear o acesso até que o BD seja liberado. Abraços. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .

Ola. Gostaria de saber como que eu faço p/ que um programa nao seja executado em um terminal se ele já estiver sendo executado no servidor ou vice versa. msgInfo("Programa está sendo executado pelo terminal w002") Obrigado. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 .