frkiko

Uai é só marcar... Galo Sempre. Abraço a todos. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Cérebro é uma coisa maravilhosa. Todos deveriam ter um.

Não sei se vai funcionar más teste ai... Redefine Get oGet Var vCod ID 102 OF oDgl Update Font oFnt[2]; Color CLR_HBLUE ON CHANGE ( ::Assign(),; IF( Forne->( DbSeek( SubStr( Alltrim(GetWindowText(oGet:hWnd))id=red>,1,::nPos - 1 ) + ; Chr( nKey ) ) ),; ( oBrw[1]:UpStable(), oBrw[1]:Refresh(), .t. ),; // aceita a tecla ( MsgStop( "Não existe esta letra no nome","Sigo - Alerta" ), .f. ) ) ) Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Cérebro é uma coisa maravilhosa. Todos deveriam ter um.

Feliz Natal e Prospero Ano Novo. Com certeza 2009 será ainda melhor. Abraços Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Cérebro é uma coisa maravilhosa. Todos deveriam ter um.

Olha eu peguei esta função aqui.... não sei de quem. E mudei algumas coisas... Pois com ela tenho os arquivos,funções,compilador e sistema operacional. FUNCTION yDbfAberto() Local N:=2,cStri:=cStack:=cArquivos:="" WHILE N < 74 IF ! Empty(ProcName(N)) .AND. ProcLine(N)>0 // Frkiko cStack+=iif(Empty(cStack),""," / ")+ProcName(N)+"("+AllTrim(Str(ProcLine(N)))+")" ENDIF N++ ENDDO IF ! Empty(DBF()) cStri:="Arquivo em Uso:"+CRLF cStri+="Area..: "+Str(Select(),2,0) +" Alias.: " + Alias()+CRLF cStri+="Ordem: "+Str(Indexord(),2,0) +" Indice: " + Indexkey()+CRLF cStri+="Total Registros: "+Str(LastRec(),6,0)+" Registro Atual: "+Str(Recno(),6,0)+CRLF ENDIF cStri+=CRLF+"Arquivos:"+CRLF FOR xPos:=1 TO 250 IF Select(Alias(xPos)) # NIL .AND. Select(Alias(xPos)) > 0 cArquivos+=iif(Empty(cArquivos),""," - ")+Alias(xPos)+"("+AllTrim(Str(Select(Alias(xPos))))+")" ENDIF NEXT IF cArquivos=="" cArquivos+="Não existe nenhum Arquivo em Aberto." ENDIF cStri+=cArquivos+CRLF+CRLF cStri+="Funções: "+CRLF+cStack+CRLF+CRLF cStri+="Versão: "+version()+CRLF cStri+="Compilador: " + hb_compiler()+CRLF cStri+="Sistema Operacional: " + os()+CRLF MsgAlert(cStri,"Painel de Informações Técnicas") RETURN Nil id=code>id=code>Abraços, Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Cérebro é uma coisa maravilhosa. Todos deveriam ter um. Editado por - frkiko on 16/12/2008 11:00:03

Zé carlos, tentei configurar para DBF, é possivel? Não consegui. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop

#include "mail.ch" STATIC FUNCTION fOsEmail() Local oMail,cSender:={} cSubject:="Abertura de Os "+cNro cTxt:="Acompanhamento de Processo"+CRLF+; "Obs: Mensagem Automática" /* Lista no cadastro clictt->(DbSeek(cNrocli)) WHILE cNrocli==clictt->nrocli Aadd(cSender,AllTrim(clictt->email)) ENDDO */ IF ! Empty(cSender) oMail:=TMail():New(cSubject,AllTrim(cTxt),,,,,.f.,.f.,,cSender ) ACTIVATE MAIL oMail ENDIF Return Nil id=code>id=code>Vitor desta forma o meu funciona. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop

Grande Paulo e João, muito obrigado mesmo. 1o. Realmente o seu Executavel está ok.... 100% 2o. Então compilei com a minha versão de FWH 2.4 3o. Então não funciona o problema só pode ser da minha versão. 4o. Mais alguma ideia? Há já tinha solicitado uma nova versão quase a um més, más sabe como sócio é, (pior que casamento....rsrsr) vou tratar da atualização eu mesmo. Só gostaria da opnião de vocês, só pode ser isso mesmo não é ? Obrigado Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop

Rapaz, olha eu estou fazendo teste como você falou e nada, continua com problemas. De qualquer forma obrigado. Porque voce colocou o EVAL em CODE BLOCK?? Olha não me lembro porque? más mesmo abortando não resolve o problema, o estralho é que em outros arquivos não apresenta o problema. É bom lembrar que quando o arquivo é refeito a indexação não paresenta nenhum problema, apenas depois de inserir um novo registro é que fica doido. Não apresenta erro, simplismente quando pesquisa um determinado registro em uma determinada chave de indice ele não localiza e em outra chave está lá. Espero poder atualizar meu fivewin e torcer para que resolva o probelma. Abraços, e muito obrigado João e Paulo. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 10/11/2008 14:29:10

Vitor use assim: cSender:={"vitor.reis@terra.com.br","outro@terra.com.br"} TO cSender ; Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop

citação:FRANCISCO, QUAIS SAO OS AQUIVOS DE INDICES DE LANOS.DBF??? Pasta de C:\DADOS\CDX 06/11/2006 13:27 6.144 LANCST.CDX 06/11/2006 13:27 7.680 LANORC.CDX 06/11/2006 13:27 6.144 LANREQ.CDX OU OS.CDX ??? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>O arquivo de Os é: OS.DBF OS.CDX Pode excluir LANOS.DBF, é um arquivo antigo. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 07/11/2008 11:27:59

Ok, senhores Obrigado Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop

citação:Veixe. Olha a turma dos BAMBIS aumentando. Oliveira, Sérgio A. PERSONAL Comp. e Sitemas.id=green> id=quote>id=quote>Rapaz não será cruzeiro...... Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop

citação:Francisco E esse ON CHANGE fOrdem(cOrdem)no combobox?? Cadê o fonte dele?? Não ví nenhum refresh() no Listbox quando você muda de ordem. id=quote>id=quote>Grande Paulo, está ai: FUNCTION fOrdem(cOrdem) Local vEstou:=Recno() DbSetOrder(Val(SubStr(cOrdem,31,1))) DbGotop() DbGoto(vEstou) oLbx:Refresh() oDlg:Update() oDlg:Refresh() RETURN .T. id=code>id=code>Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop

citação:Francisco, voce aguçou minha curiosidade, FAÇA UM DEMO COMO TE PEDI EM ME ENVIE, REPRODUZA O ERRO NA INTEGRA. EU PAGO AS BREJAS, SE O MISTER PAULO ARAUJO NÃO RESOLVER!! Ainda fico na duvida com o SET ORDER TO 0, comigo não funciona nem a PAU!! Pelo contrário: Dà PAU!! NÃO USO. E quando eu pergunto uma coisa e o ANTONIO LINARES, fica MUDO, ahi tem ´TRUTA´ das GRANDES. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Ok Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop

citação:Frkiko.... Alguém já falou que para vencer na vida é 10% de inspiração e 90% de transpiração! quando a coisa não dá certo, qdo tudo parece certo, reescreva sua rotina de insersão e se continuar rescreva a de indexação, recompile e link tudo de novo. Isto já aconteceu comigo é como se o que estava escrito não estivesse. mas.... Crisvam id=quote>id=quote>Obrigado pelo apoio, realmente no inicio dos teste eu incluia algumas linhas e mudava algumas coisas, depois disso parou de dar erro em outro indice, e retornei como era antes e o erro (acredito eu que acabou), só que este outro não quer corrigir, então vou continuar com alterações para ver se acertava o outro, más será que não pode acontecer o contrario e piorar mais ainda.... rsrsrsr. Bom como já vi isso acontecer vou fazer, refazer toda a função novamente e ver se melhora. Olha já vi coisas que ninguem acredita, não é facil. Está tudo certo más sai tudo errado. Abraços Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 06/11/2008 08:46:36

citação:OUTRA PERGUNTA: EM QUE MOMENTO VOCE ESTà FECHANDO OS ORDSCOPE() ?? VERIFIQUE! Reporte. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>EM QUE MOMENTO VOCE ESTà FECHANDO OS ORDSCOPE() ?? Grande João verificado e nada, agora fecho o ordscope() quando fecho a janela de edição/inclução do arquivo. Agora já abortei até os ordscope() e o problema continua... Abraços Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop

citação: citação:2- A ordemm de Número desaparece o intervalo de 0032555 até 0033432, sem explicação, quando procuro por data por exemplo estes números estão lá. id=quote>id=quote>Agora com varios testes, ou seja, inclusão de novos registros o intervalo mudou, desaparece de 0032554 até 0033431, muito doido. Estou ficando doido. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 05/11/2008 13:42:57 id=quote>id=quote>Aiai.... voltou para o intervalo inicial do primeiro post.... Só mais informações, estou local. Estou quase jogando a toalha. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 05/11/2008 15:03:32

Sim mestre João, rsrsrs STATIC FUNCTION fGrava(cOpcao,oFld) Sele lanos orderAnt:=IndexOrd() ****************************** ? indexord() ==> mostrou 2 ? indexkey() ==> mostrou DTEMI ****************************** IF cOpcao=="I" lockfile() // bloqueia arquivo DbSetOrder(0) ****************************** ? indexord() ==> mostrou 0 ? indexkey() ==> mostrou VAZIO ****************************** DbAppend() lanos->nro:=cNro ELSE lockrec() // bloqueia registro DbSetOrder(0) ENDIF lanos->dtemi:=dDtemi;lanos->nrocli:=cNrocli;lanos->nomcli:=cNomcli;lanos->hoemi:=cHoemi lanos->orca:=cOrca;lanos->contato:=cContato;lanos->fone:=cFone;lanos->email:=cEmail lanos->atdg:=iif(lAtdg=.t.,"S","N");lanos->rat:=cRat;lanos->ctgr:=Str(cCtgr,1,0) lanos->motivo:=cMotivo;lanos->dtter:=dDtter;lanos->hoini:=cHoini;lanos->hoter:=cHoter lanos->nrotec:=cNrotec;lanos->nomtec:=cNomtec;lanos->obs:=cObs;lanos->obs2:=cObs2 lanos->retorno:=iif(lRetorno==.t.,"S","N")+cRetos+cRettec+cRetnom lanos->defaca:=cNroDef+cNomDef+cNroAca+cNomAca lanos->condpg:=cCondpg;lanos->vlrfinal:=nVlrfinal;lanos->dtpag:=dDtpag ****************************** ? indexord() ==> mostrou 0 ? indexkey() ==> mostrou VAZIO ****************************** DbCommit() DbUnlock() DbSetOrder(orderAnt) ****************************** ? indexord() ==> mostrou 2 ? indexkey() ==> mostrou DTEMI ****************************** IF cOpcao=="I" Sele ipdos ipdos->(OrdScope(0,cNro)) ipdos->(OrdScope(1,cNro)) DbGotop() Sele isvos isvos->(OrdScope(0,cNro)) isvos->(OrdScope(1,cNro)) DbGotop() Sele icsos icsos->(OrdScope(0,cNro)) icsos->(OrdScope(1,cNro)) DbGotop() Sele lanos cOpcao:="A" oSay3:SetText(cNro) oFld:aEnable:={.t.,.t.,.t.,.t.} oBton:SetFocus() ENDIF RETURN Nil id=code>id=code>Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop

citação:2- A ordemm de Número desaparece o intervalo de 0032555 até 0033432, sem explicação, quando procuro por data por exemplo estes números estão lá. id=quote>id=quote>Agora com varios testes, ou seja, inclusão de novos registros o intervalo mudou, desaparece de 0032554 até 0033431, muito doido. Estou ficando doido. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 05/11/2008 13:42:57

Olha João já revirei o banco de dados e não achei nenhum erro, tanto que quando recrio o indice, fica tudo normal. Nuuuuuuuuuuuu, tenho que criar um programa então, já tinha imaginado isso, vou criar um mais simples e testar se ainda continuar com problemas mando o Zip se parar o problema ai sim eu crio com todas a opções e mando o Zip. Farei isso amanhã pois minha cabeçã está ficando tonta com isso tudo. Obrigado. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop

Paulo isso acontece em um arquivo de Ordem de Serviços, para ver se o erro acontece no orçamento, fora do programa dei um append from Os para o arquivo de Orçamento, ai executei a inclução e funciona normalmente. E a rotina é da mesma forma que postei, tanto na criação do indice, como na inclução de dados. Muito doido isso. Zipar o que? Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop

Tá certo que não postei tudo. Bom 1. Estou sim apagando o indice. 2. A criação de indice é uma função antes de abrir os arquivos de indeces. Paulo alterei para replace e nada. Vagner não apresenta erro, somente quando mudo o indice e procuro um determinado número e não aparece. Na verdade não havia postado antes pois sabia que seria dificil a solução . Más mesmo assim obrigado a todos. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 05/11/2008 11:49:54

citação:Ok Francisco, Vamos lá. 1ªmente, retire o LockFile IF cOpcao=="I" // lockfile() // bloqueia arquivo // DbSetOrder(0) não ha necessidade no Appen Do Whil .T. DbAppend() If ! NetErr() ; Exit ; Endif Enddo lanos->nro:=cNro Endif id=code>id=code>Vagner Wirts VI Encontro está chegando , não perca id=quote>id=quote>Nada Vagner. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop

Olha estou fazendo alterações para descobrir a mais de um mês, e não tenho a menor ideia do que está acontecento já mudei tudo e nada, já abortei, folder, listbox, funções, arquivos, nem sei mais o que. Vamos lá então, *************** Arquivo ******************************* bAction:={|oMeter,oText,oDlg,lEnd| Reorganiza(oMeter,oText,oDlg,@lEnd)} TemArq:=sPtdir+"\DADOS\OS.DBF" TemInd:=sPtdir+"\CDX\OS.CDX" NroInd:=5 // nro de indices ChInd1:="NRO" | ChInd2:="DTEMI" | ChInd3:="NOMCLI" > Chaves ChInd4:="NROCLI+DTOS(DTTER)" | ChInd5:="DTTER" | ... MsgMeter(bAction,vNomeArq,"Reindexando Banco de Dados") ... DbUseArea(.F.,,TemArq,"LANOS",lCompart,lLeitura) SET INDEX TO &TemInd STATIC FUNCTION reorganiza(oMeter,oText,oDlg,lEnd) Local vTam,vRec CursorWait() USE &TemArq EXCLUSIVE Pack vRec:=LastRec() vTam:=(vRec/100)*2 oMeter:nTotal:=vRec*NroInd IF ! Empty(ChInd1) INDEX ON &ChInd1 TAG 1 TO &TemInd EVAL {|| oMeter:Set(Recno())} EVERY vTam ENDIF IF ! Empty(ChInd2) INDEX ON &ChInd2 TAG 2 TO &TemInd EVAL {|| oMeter:Set(vRec+Recno())} EVERY vTam ENDIF IF ! Empty(ChInd3) INDEX ON &ChInd3 TAG 3 TO &TemInd EVAL {|| oMeter:Set(vRec*2+Recno())} EVERY vTam ENDIF IF ! Empty(ChInd4) INDEX ON &ChInd4 TAG 4 TO &TemInd EVAL {|| oMeter:Set(vRec*3+Recno())} EVERY vTam ENDIF IF ! Empty(ChInd5) INDEX ON &ChInd5 TAG 5 TO &TemInd EVAL {|| oMeter:Set(vRec*4+Recno())} EVERY vTam ENDIF CLOSE DATA lEnd:=.T. RETURN Nil ************************ Rotina de Gravação **************************** STATIC FUNCTION fGrava(cOpcao,oFld) Sele lanos orderAnt:=IndexOrd() IF cOpcao=="I" lockfile() // bloqueia arquivo DbSetOrder(0) DbAppend() lanos->nro:=cNro ELSE lockrec() // bloqueia registro DbSetOrder(0) ENDIF lanos->dtemi:=dDtemi;lanos->nrocli:=cNrocli;lanos->nomcli:=cNomcli;lanos->hoemi:=cHoemi lanos->orca:=cOrca;lanos->contato:=cContato;lanos->fone:=cFone;lanos->email:=cEmail lanos->atdg:=iif(lAtdg=.t.,"S","N");lanos->rat:=cRat;lanos->ctgr:=Str(cCtgr,1,0) lanos->motivo:=cMotivo;lanos->dtter:=dDtter;lanos->hoini:=cHoini;lanos->hoter:=cHoter lanos->nrotec:=cNrotec;lanos->nomtec:=cNomtec;lanos->obs:=cObs;lanos->obs2:=cObs2 lanos->retorno:=iif(lRetorno==.t.,"S","N")+cRetos+cRettec+cRetnom lanos->defaca:=cNroDef+cNomDef+cNroAca+cNomAca lanos->condpg:=cCondpg;lanos->vlrfinal:=nVlrfinal;lanos->dtpag:=dDtpag DbCommit() DbUnlock() DbSetOrder(orderAnt) IF cOpcao=="I" Sele ipdos ipdos->(OrdScope(0,cNro)) ipdos->(OrdScope(1,cNro)) DbGotop() Sele isvos isvos->(OrdScope(0,cNro)) isvos->(OrdScope(1,cNro)) DbGotop() Sele icsos icsos->(OrdScope(0,cNro)) icsos->(OrdScope(1,cNro)) DbGotop() Sele lanos cOpcao:="A" oSay3:SetText(cNro) oFld:aEnable:={.t.,.t.,.t.,.t.} oBton:SetFocus() ENDIF RETURN Nil ******************************************* id=code>id=code> Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 05/11/2008 10:51:44

Senhores, Esta disputa do Vagner e João não é facil. Agora sobre o meu problema, os indices estã abertos sim pois o novo registro está lá certinho nos arquivos de indices. Abraços. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop