joaosolution

Srs Alguem ja testou? http://www.fivetechsoft.com/cgi-bin/boot1# Att João Bosco

Oscar Bom dia Já trabalho com .RC a algum tempo e ele é um arquivo texto, onde no caso das imagens são sempre referências a arquivos salvos na pasta. Não há problema nenhum pois quando você compila o projeto os arquivos são anexados. Att João Bosco

Boa tarde Trabalho desta forma e nunca tive problemas. Sempre gero os indices pelo sistema clipper, nunca pelo sistema fivewin Att João Bosco

Oscar Bom dia Qual o erro? Att João Bosco

Marcio Seria isso: cQuery:= ' SELECT cli.CLICOD, cli.CLINOM, cli.CLICPF,tv.CODVENDA, tv.ENTRADA_SAIDA,* FROM ( ' cQuery:= cQuery + ' SELECT vda.CODVEN,vda.DATVEN, vda.NUMVEN, vda.CLIVEN, vda.QTDVEN, vda.VALVEN, vda.ESPVEN, vda.TOTVEN, ' cQuery:= cQuery + ' vda.MARCADO, vda.CUPOM, ' cQuery:= cQuery + " IF(vda.CUPOM!='S' AND vda.MARCADO!='S',vda.QTDVEN,0) AS VENDAS_OUTRAS, " cQuery:= cQuery + " IF(vda.CUPOM='S', vda.QTDVEN,0) AS VENDAS_CUPOM, " cQuery:= cQuery + " IF(vda.MARCADO='S',vda.QTDVEN,0) AS VENDAS_NF " cQuery:= cQuery + ' FROM vendas AS vda ' cQuery:= cQuery + ' WHERE vda.CODVEN = ' + TRANSFORMA_SQL(T_CODI_PRODUTOS,'N',07,0) cQuery:= cQuery + ' AND vda.CODVEN != ' + TRANSFORMA_SQL(0,'N',07,0) cQuery:= cQuery + ' order by vda.DATVEN DESC ) AS t_venda_itens ' cQuery:= cQuery + ' LEFT JOIN clientes AS cli ON cli.CLICOD = t_venda_itens.CLIVEN ' cQuery:= cQuery + ' LEFT JOIN tvenda AS tv ON t_venda_itens.NUMVEN = tv.CODVENDA ' cQuery:= cQuery + ' order by DATVEN DESC ' use sql cQuery alias "vendas_array" new via 'MYSQL' vendas_array->( DbGoTop()) Mas não tenho como estar aqui. Att João Bosco

Marcio No banco de dados information_schema tem uma tabela tables com as tabelas criadas no banco de dados e outra com views. Att João Bosco

Marcio Boa tarde Sugiro que no Select * from vendas as vda (select interno) você execute apenas o Where sem o left join. Coloque o left join no select AS t_venda_itens (select de fora, após executar o filtro) Att João Bosco

Jorge Boa tarde Como assim indices físicos? Att João Bosco

Valdir Boa tarde Você pode fazer o backup na CPU antiga e restaurar na CPU nova. Mudar no sistema o nome do servidor de conexção da CPU antiga para o nome do servidor da CPU nova. Att João Bosco

Oliveiros Boa tarde Como este arquivo estava ficando muito grande, coloquei para excluir o arquivo toda vez que sai do sistema. Att João Bosco

Marcio Seria alguma coisa assim: set @nsaldo = 0; select b.id_lancamento, b.data_lanca, b.codigo_historico, b.debito, b.credito, b.creditoDia-b.debitoDia as saldo, (@nsaldo := @nsaldo + (b.creditoDia-b.debitoDia)) as saldoacumulado from ( SELECT id_lancamento, data_lanca, codigo_historico, debito, credito, coalesce(sum(case when credito>0 then credito else 0 end), 0) creditoDia, coalesce(sum(case when debito>0 then debito else 0 end), 0) debitoDia FROM movimento_bancario as a group by data_lanca) as b ORDER BY b.id_lancamento Att João Bosco

Maudruidas Boa tarde REQUEST DBFNTX RDDSETDEFAULT("DBFNTX") use tabela.dbf REQUEST DBFCDX RDDSETDEFAULT("DBFCDX") COPY TO tabela2.dbf Att João Bosco

Luiz Boa tarde É estranho pois copiei este ultimo código para um projeto e compilando não gera nenhum warning. Att João Bosco

Edu Boa tarde cFile:="\pasta1\arquivo.txt" cDestino:="\pasta2\arquivo.txt" Copy File cFile to cDestino Att João Bosco

Luiz Boa tarde Na pasta: \xDevStudio\Scripts Você identifica os scripts de compilação Att João Bosco

Vitor Bom dia Acredito que este tópico irá lhe ajudar: http://fivewin.com.br/index.php?/topic/23827-bloquear-data-errada-do-micro/?hl=%2Bdata+%2Binternet#entry269732 Att João Bosco

Luiz Bom dia Nesta linha: oDlg:aEvalWhen(),oDlg:update,nArray:=oBrw_cliente1:nArrayAT , ; Não seria assim, parênteses no update oDlg:aEvalWhen(),oDlg:update(),nArray:=oBrw_cliente1:nArrayAT , ; Att João Bosco

Boa tarde Também estou com a mesma mensagem de site malicioso. Att João Bosco

Nárlem Boa tarde Eu resolvi isso utilizando assim: Antes Str(codigo,3)+descend(nivel) depois str(codigo,3)+str(99999-nivel,5) Att João Bosco

kkkk fala João Fica muito condicionado a várias configurações. Não sei se o usuário vai conseguir tudo isso sozinho. Att João Bosco

Vitor RDD para acessar SqlServer é SQLRDD do xHarbour Att João Bosco

Boa tarde Venho agradecer ao João Santos pela ajuda. Segue código com solução de como ler a função :bLDClickData do xBrowse com tree para saber, se clicando na primeira coluna, vai estar no primeiro ou segundo nível do tree, e desta maneira poder abrir o tree, ou executar alguma função. @ 60,02 XBROWSE oBrwFuncao OF oWndMenu LINES CELL oBrwFuncao:SetTree( oTree, ; // Tree object { "","","" } ) // [Optional] Bitmap Resources Open, Close and NoChildren ADD TO oBrwFuncao DATA oBrwFuncao:oTreeItem:Cargo[ 1 ] HEADER "Função" oBrwFuncao:aCols[ 1 ]:cHeader := "Menu" oBrwFuncao:aCols[ 1 ]:nWidth := 160 oBrwFuncao:aCols[ 1 ]:bLDClickData := { |r,c,f,o| Toggle(aFuncoes) } oBrwFuncao:lHScroll := .F. oBrwFuncao:nMarqueeStyle := 5 oBrwFuncao:createFromCode() oWndMenu:oClient := oBrwFuncao ACTIVATE WINDOW oWndMenu Endif RETURN NIL //--------------------------------------------------------------------------------------------- STATIC FUNCTION Toggle(aFuncoes) local oItem := oBrwFuncao:oTreeItem If !oItem:lOpened .and. oItem:nLevel == 1 //Somente abre o Tree oItem:Open() Elseif oItem:nLevel == 2 //Executa função Eval(aFuncoes) Endif Return nil Att João Bosco

João Obrigado pelas dicas!! Mas em nenhuma vi algo sobre quando executo o duplo click no tem do xBrowse. Att João Bosco

Srs. Bom dia Estou fazendo um xbrowse com tree para menu. Já está funcionando, ficou desta maneira: http://imgur.com/uqQwB5c Quando clico duas vezes na coluna da Função (em vermelho) funciona o duplo click sem problemas, quando clico na opção Menu(verde) o duplo click não funciona. O duplo click na coluna Menu só funciona para abrir o tree, mas não para selecionar a linha. Alguém sabe como resolver. Att João Bosco

João O hotmail também possui, em configurações, opções, Email->Contas->POP e IMAP Att João Bosco