augustogomes

olá Theotokos, Eu não consegui fazer funcionar como você disse, tem como mostrar um trecho de como esta usando este dois dados?

Opa, na verdade é assim que uso, digitei errado aqui no post, porém com o postgre esta dando certo com slqexpress não, acho que é alguma configuração no banco mas nas sei onde alterar.

Pessoal não é o windows 10, é o novo five no windows 10, minha versão anterior funciona normalmente no windows 10, já esta nova 1604 que está ocorrendo estes erros.

no Postgre mudei o banco conforme o este tópico e deu certo http://fivewin.com.br/index.php?/topic/24778-ordenacao-de-tabelas-no-postgres/ no SqlExpress ainda sem sucesso.

Boa tarde pessoal. Estou testando a SQLRDD com 02 bancos de dados o ServerExpress2014 e Postgree 9,5. em ambos criei um banco de dados TESTE e uma tabela com campos: codigo, nome, data. uso a função dbCreate() como faço no dbf crio dos indices da seguinte maneira. Index on dtos(DATA) to TESTE_TABLE_IND02 como faço com dbfntx ao dar o seek como faço em dbfntx alias->(dbSetorder(3), dbSeek( dtos("10/01/2014")) ) ocorre o erro no SqlServerExpress2014 Error description: Error SQLRDD/28 Data type mismatch in dbSeek() - RollBack executed. no Postgre Error description: Error BASE/1120 Erro nos parƒmetros: DTOS se mudar o seek para alias->(dbSetorder(3), dbSeek( CTOD("10/01/2014")) ) no SqlServerExpress2014 não encontra o registro, no Postgre acha. os sets são SET DATE BRITISH SET CENTURY ON SET DELETED ON SET EPOCH TO 1980 O que estou errando ai? Terei que substituir todos os DTOS para CTOD nos Seeks?

vou conferindo um a um, mas acontece em todas as rotinas e somente depois que mudou a versão do win10, por enquanto vou marcando compatibilidade com windows 7 e esta funcionando.

Kapiaba. Não sei se fiz certo, compilei sem usar minha função de erro, mesmo assim o problema continua. Copiei o errsysw.prg para minha pasta e compilei junto ao meus sistema como faço com minha função e o erro continuou. att Augusto

Pessoal, obrigado pelas respostas. Como não tinha opção na sexta (24/06) eu optei por formatar o hd reinstalar o windows 10 do zero, e voltar meus aplicativos. Resolveu o problema da compilação, os erros pararam e o processo de compilação voltou a ser rápido como era no windows 7. Vendo as respostas de vocês, o que parece fazer mais sentido é apagar os arquivos temporarios do windows e usuario. Já que ao formatar meu hd resolveu os problemas. Com relação ao erro de memoria do windows, ainda dá ao fechar as Dialogs. " Um problema fez com que o programa parasse de funcionar corretamente. O windows fechará o programa e notificará caso uma solução esteja disponível" No momento para resolver este erro estou mudando a compatibilidade do .exe para windows 7 ai vai de boa. Aceitos sujestões. Grato Augusto

Boa dia pessoal Recentemente atualizei minha versão do fivewin para a 16.04. Primeiramente estou observando que para rodar no windows 10 sem da erro de memoria em tempo de execução, tenho que mudar no meu executável (.exe) a compatibilidade para windows 7, pois se eu não fizer esta mudança ele gera erros de execução, quando fecha as DIALOGS. Eu uso a xdev 0.70 como IDE e também tive que mudar a compatibilidade para ela poder compilar sem erros. Com isto a xdev compila só que conforme vou usando em determinado momentos ela gera estes erros que somente param se eu reiniciar o computador e mandar compilar todo o sistema novamente. Alguém dica para resolver isto? Grato Augusto Windows 10 pro 64 ver 1511, FIVE 1604 xharbour 123 build 251110 executando: ILINK32 -Gn -aa -Tpe -s @B32.BC Turbo Incremental Link 6.70 Copyright © 1997-2014 Embarcadero Technologies, Inc. Warning: C:/desenv/fwh/include;C:/desenv/xharbour_novo/include;D:/BCC70/include;C:/desenv/sqlrdd/Include;C:/desenv/work2/sewin/INCLUDE;/SEWIN.ilc: 0x00010000 / 0x08000000 Warning: C:/desenv/fwh/include;C:/desenv/xharbour_novo/include;D:/BCC70/include;C:/desenv/sqlrdd/Include;C:/desenv/work2/sewin/INCLUDE;/SEWIN.ild: 0x00010000 / 0x08000000 Warning: C:/desenv/fwh/include;C:/desenv/xharbour_novo/include;D:/BCC70/include;C:/desenv/sqlrdd/Include;C:/desenv/work2/sewin/INCLUDE;/SEWIN.ilf: 0x00010000 / 0x0a000000 Warning: C:/desenv/fwh/include;C:/desenv/xharbour_novo/include;D:/BCC70/include;C:/desenv/sqlrdd/Include;C:/desenv/work2/sewin/INCLUDE;/SEWIN.ils: 0x0003b000 / 0x08000000 Warning: unknown heap name : 0x08000000 / 0x08000000 Warning: Error detected (LME288) Error: Unable to perform link

Obrigado pela resposta, já estou compilando na xdev normalmente.

Olá Ariston Santos, estou comparando seu script com o meu para tentar usar sqlrdd e vi que você usa uma lib que eu não localizei nas minhas pastas, esta lib: echo %hdir%\lib\oci.lib + >> b32.bc onde ela está, ou como conseguir ela, eu estou compilando com o xharbour 1.2.3 build 20150419. Grato Augusto

Alex, obrigado pela dica, comigo não deu certo como você passou, mas deu certo assim: @ 2,5 ADD BUTTON oBtn1 PROMPT "Empresa" BITMAP "CLIENTE32" GROUP (clGrupo1) ACTION sup201():new() ROUND SIZE 55,65 TOOLTIP "ToolTip Grupo 1" Valeu!

Bom dia pessoal. Alguém pode me dizer como colocar tooltip nos botões da ribbonbar. Grato Augusto

Obrigado Jorge, Fnl !

001 - Valdir - Jundiaí/SP 002 - Ana - Cianorte/PR 003 - Cesar - Cianorte/PR 004 - EMotta Sistemas - Nova Odessa/SP 005 - EMotta Sistemas - Nova Odessa/SP 006 - EMotta Sistemas - Nova Odessa/SP 007 - EMotta Sistemas - Nova Odessa/SP 008 - EMotta Sistemas - Nova Odessa/SP 009 - Império 010 - Evandro - Curvelo/MG 011 - Dorneles 012 - Dorneles 013 - Kleyber Derick / MA 014 - Geraldo (gbsilva) 015 - Fnl - Jorge (SP) 016 - - Fnl - Aum (SP) 017 - Rubens (SP) 018 - Cleber Conde - Caratinga/MG 019- Sebastião de Oliveira Pessoa (TiaoFw) / Contagem - MG 020 - Luiz Roberto Servulo / Diadema/SP 021 - Jackson Douglas C. Brito - Boa Vista (RR) 022 - Alexandre Pereira (alex2002) - Belo Horizonte / MG 023 - Leonardo Machado(Sygecom ) - Alvorada / RS 024 - Gilmer Luiz Orro Tavares (fivewin.com.br) - Sorocaba / SP 025 - Herberson Carlos Gontijo (Ponteware Informática) - Belo Horizonte / MG 026 - André Emerenciano dos Santos (Ponteware Informática) - Belo Horizonte / MG 027 - Carlos Eduardo Leÿendecker (decker) - São Paulo - SP 028 - José Eduardo Chamon - São Paulo 029 - Vailton Renato - São Paulo 030 - José Manoel - São Paulo 031 - Rodrigo Portugal - São Paulo 032 - Wesley Rodrigues - São Paulo 033 - Júnior (WebNet) - São Paulo 034 - Everton Battiston - Chapecó - SC 035 - Marcio Eduardo Teixeira - Visconde do Rio Branco - MG 036 - LHSISTEMAS - Vitória ES 037 - LHSISTEMAS - Vitória ES 038 - José Carlos - Guarulhos - SP 039 - Augusto José S Gomes - Suprisystem Ribeirão Preto SP

Bom dia João Bosco. Se sua pergunta é se tem valor legal (juridicamente), me passaram que não. Consultei uns anos atrás o departamento jurídico da empresa e me passaram que apenas a assinatura digital, por meio de um certificado digital, tal como usamos para nfe, RFB. (A1, A3, etc) que seja autenticado por uma empresa certificadora é que tem valor legal inquestionável, depois desta, vem a assinatura original, que pode ser comprovada por um exame grafoscópico, demais assinaturas que não comprovam a presença do autor perdem validade jurídica. Argumento mais comum é que qualquer pessoa pode scanear uma assinatura de qualquer documento e digitaliza-la para outro.

Oi Alessandro, não dá certo porque quando altera oBrwCgu:aCols[1]:Value := 3 muda a coluna inteira não apenas o registro. ai todos os registros desta coluna passa a ter 3.

olá Sergio, sua ideia é como eu quero fazer, mas a minha coluna não faz parte do dbf eu adicionei ela apenas no objeto browse com apenas um valor, como faço para alterar o conteudo de uma linha nesta coluna? oCol:= oBrwCgu:AddCol() oCol:bEditvalue := { || "1" } oCol:nEditType := EDIT_NONE todas as linhas estao com valor 1 na coluna 1, quero mudar o valor de determinada linha para 2 por exemplo, como faria? grato

Boa tarde Kapiaba, obrigado pela resposta mas... não me ajudou porque eu quero por o bitmap e mudar o valor apenas em um registro não no cabeçalho ou na coluna inteira, apenas na linha selecionada e na coluna 1.

bom dia pessoal. estou fazendo uma xbrowse pegando os dados direto do arquivo dbf e liberando para edição. Adicionei uma coluna (col[1]) com os btmaps e gostaria que quando houvesse edição nas demais colunas trocasse o btmap desta coluna. Trabalhando com array eu consigo fazer mas com o setrdd eu não sei como alterar o conteudo de uma linha x coluna, será que podem me ajudar? abaixo parte do fonte Use &(cvDbfFile) NEW SHARED VIA "DBFNTX" dbGoTop() cvDbAlias:= (Select()) -> (Alias()) cvStru := DbStruct() DEFINE WINDOW oChild TITLE "Arquivo "+cvDbAlias MDICHILD OF oWndCgu oBrwCgu := TXBrowse():New( oWndCgu ) oBrwCgu:nMarqueeStyle := MARQSTYLE_HIGHLCELL // destaca celula oBrwCgu:nColDividerStyle := LINESTYLE_BLACK oBrwCgu:nRowDividerStyle := LINESTYLE_BLACK oBrwCgu:lColDividerComplete := .t. // divide por coluna não linha inteira oBrwCgu:lFooter := .t. // rodapé oBrwCgu:lAutoAppend := .T. oBrwCgu:bKeyDown := {|nKey| I_BrwKey( nkey,oBrwCgu ) } Select( cvDbAlias) oCol:= oBrwCgu:AddCol() oCol:bEditvalue := { || "1" } oCol:nEditType := EDIT_NONE oBrwCgu:aCols[ 1 ]:AddResource("BrwSem") oBrwCgu:aCols[ 1 ]:AddResource("BrwInc") oBrwCgu:aCols[ 1 ]:AddResource("BrwAlt") oBrwCgu:aCols[ 1 ]:AddResource("BrwExc") oBrwCgu:aCols[ 1 ]:bBmpData := {|| LEN(oBrwCgu:aCols[1]:Value) } oBrwCgu:aCols[ 1 ]:nDataBmpAlign := AL_CENTER oCol:= oBrwCgu:AddCol() oCol:cHeader := "RECNO" oCol:bEditvalue := { || str(recno()) } oCol:nEditType := EDIT_NONE nFor:=1 While nFor # Len(cvStru) oCol:= oBrwCgu:AddCol() oCol:cHeader := FieldName(nFor) cvField:= cvDbAlias+"->"+cvStru[nFor][1] oCol:bEditvalue := { || &cvField } oCol:nEditType := EDIT_GET oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, ( DBRLOCK(), FieldPut( o:nCreationOrder, v ), DBUNLOCK() ), ) } apos o dbunlock eu preciso alterar o valor da linha atual na coluna 1 oBrwCgu:aCols[ x ]:bRClickHeader := { | nRow, nCol | I_ShowPopup( nRow, nCol, oBrwCgu ) } oBrwCgu:aCols[ 2 ]:cFooter := "Total "+str(RecCount( )) x++ enddo oBrwCgu:CreateFromCode() oChild:oClient := oBrwCgu ACTIVATE WINDOW oChild Valid( I_FechaBrowse(oBrwCgu) ) ON INIT oBrwCgu:SetFocus()

Bom dia! Isto já me aconteceu várias vezes, a causa sempre foi problemas na rede, os dados truncam por problemas físicos mesmo, a solução é resolver os problemas físicos (placa, cabo, micros, etc) que ocorreram e gerar os arquivos DBF novamente. Eu costumo renomear o dbf que deu problema, criar um novo com dbcreate mesmo e fazer um append from do DBF antigo. Depois disto o DBF fica estavel novamente. Quando não gero os arquivos o sistema volta mas dentro de pouco tempo começa novamente a truncar os registros.

Yury Eu já passei por este tipo de problema várias vezes desde que comecei a migrar meus programas de clipper para fivewin. Quando usei o xharbour e compilei os programas em ambiente 32bits mantendo as telas em texto os arquivos em dbf, abriam em tempo e velocidade igual ao que fazia em clipper, inclusive dava impressão de ser até mais rápido, mas quando migrei para o fivewin com telas e recursos gráficos ai voltou a ficar muito lento. Foram vários fatores que tive que arrumar, mas o que percebi era que quando estava em windows server com gerenciador de dominio ativado e o AD o sistema funciona muito melhor que quando não tem. Por padrão só instalo em server com AD ativado. Não seria este o problema no seu caso? Fiz um teste pegando sua rotina e compilei ela com um arquivo meu que tem 980 mil registros e coloquei o loop para filtrar 298 mil, usei um indice com campo data como no seu exemplo e um servidor windows server 2008 r2 com AD ativado. Nos micros com windows XP levou 0:22 segundos e win7 0:25 segundos, quando os 2 foram ativados simultaneamente o tempo ficou em 2 minutos em cada. Agora usando o mesmo exemplo em uma rede sem o AD ativado o tempo levou 6 minutos e 20 minutos quando acessado por meio de wireless. rss Para os testes usei seu exemplo teste.prg mudando apenas o arquivo. Abçs. Augusto

Bom dia Pessoal! Este foi o primeiro evento de vocês que participei. Achei muito legal, gostei do pessoal, achei muito bom ver os rostos, conhecer as pessoas que estão sempre aqui no forum. Observei que este grupo que compareceu é muito unido, não mede esforços em ajudar os colegas e que apesar das dificuldades citadas pelos organizadores, conseguiram realizar o encontro. Estão de parabéns, porque seria uma pena perder um encontro como este em que houve muitas informações uteis e que mostra que todos estão empenhados em manter a linguagem em continuidade. Ver pessoas que viajaram milhares de quilometros para estar presente, fortalece e nos motiva a continuar com nosso projetos. Aos organizadores, por favor, não desistam, o fato de todos que estavam presente se colocarem a disposição para ajudar a compensar perdas financeiras, mostra o grande apoio para um proximo encontro. O que aconteceu, já foi, então não desanimem em organizar proximos eventos. Será uma grande perda se não houver outro evento. Agradeço aos eforços de vocês e espero ve-los em proximos eventos. Grande abraço! email:augusto@suprisystem.com.br msn:augustojose@msn.com Five 10_2 xharbour

Vitor. Esta batalha ainda é injusta para nós.Passei por ela, tenho muitos amigos e parentes que estão em luta, passaram ou perderam esta luta contra o cancer. Como quem já passou por isto imagino como foi seu sofrimento neste período. Meus sentimentos.E que Deus ilumine seus caminhos. Força.

ICO, eu realmente quero compilar em modo console ou texto como chamam alguns. Fiz o que falou mas não deu certo o programa nao roda. Para usar o fivewin no modo windows eu já estou usando o prg certo para isto e funciona bem. Mas eu tenho que atender um cliente que tem o software em mode console, e ai nao consigo compilar nada pela xdev. Poder até ser que a minha instalação estaja com problemas. Vou localizar algém aqui proximo para testar no micro dele. Agradeço a todos que de boa vontade tentaram me ajudar. Infelizmente não consegui. Quanto ao video do youtube, muito util, apesar de ja ter feito tudo isto. Abraços a todos. Augusto