SAOliveira

local oWnd, oActiveX local cEvents := "" local oMapa, mde_uf, mpara_uf, mde_cid, mpara_cid, mde_rua, mpara_rua mpara_uf := "SP" // uf mpara_cid := "SAO PAULO"//cidade mpara_rua := "RUA ROCHA"//rua mpara_uf := alltrim( mpara_uf ) mpara_cid := alltrim( mpara_cid ) mpara_rua := alltrim( mpara_rua ) msearch := mpara_rua + " " + mpara_cid + " " + mpara_uf DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" oActiveX = TActiveX():New( oWnd, "Shell.Explorer" ) oWnd:oClient = oActiveX // To fill the entire window surface oActiveX:Navigate( "https://www.google.com.br/maps/place/" + msearch ) ACTIVATE WINDOW oWnd MAXIMIZED return nil

Oscar. Se não for pedir muito, apresente os .prg finais e se possível tela. Grato.

Apesar de já ter sido citado, apenas um detalhe a mais. Para quem usa SQL. Uma tabela com campo blob que armazena diversos sons para usar. cSom:=SQLArray("SELECT som FROM _som WHERE registro='1'",,xBanco) MemoWrit("d:\snd.wav",cSom[1,1]) SndPlaySound("d:\snd.wav",0) FErase("d:\snd.wav")

Pra não perder a piada.. Para nuvem acho melhor Guarda-Chuva

Simplesmente. EXECUTAR shell:startup Complicadamente (kkk). Abrir Explorer C:\Users\usuario\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup https://www.dropbox.com/s/0bbtmi6jdluaxhj/inicializar.png?dl=0 Quanto o que postei anteriormente, botão direito do mouse aqui. https://www.dropbox.com/s/2t3qgor42ozowd2/inicializar1.png?dl=0

Apesar de resolvido. Você também poderia na sua tabela matriz ter um campo "FLAG" para quando este registro tiver alteração. Ai você atualizar a tabela local com base neste "FLAG". Eu faço isto quando tem filiais e o controle é feito pela matriz.

Coloca ele no inicializar do Windows. Botão iniciar. Botão direito no inicializar., vai abrir a pasta do inicializar, cole seu .bat Reiniciar a máquina.

Simples. Lembra que te falei. banco1:=SQLGetConn() // logo apos conectar ao banco 1. banco2:=SQLGetConn() // logo apos conectar ao banco 2. Ai qualquer query vc direciona para a conexao desejada; Tipo: aArray:=SQLArray("SELECT * FROM tabela WHERE condicao=condicao",,bancoX) ou USE Sql "SELECT * FROM tabela WHERE condicao=condicao" NEW INTO bancoX

Alguém esta usando esta balança. ??

Experimenta postar no fórum inter, tem um membro lá que é maluco por cores. Quem sabe.

Se entendi direito: REDEFINE oGet1 VAR get1 PICTURE "@!k" ID 4001 OF oDlg FONT sua_font COLOR sua_cor1,sua_cor2 UPDATE ai você validaria a cor numa função. Static Function ValidarCor() IF(condicao1) oGet1:SetColor(vermelho,branco) ElseIf(condicaoe) oGet1:SetColor(azul,amarelo) ... ENDIF oGet1:refresh() Return(.t.)

Apesar de resolvido, teste a FastReport,

Sistem, porque optou pelo 10.x Embedded Entendi certo, vc estalando pelo inno setup.

A SqlLib roda perfeito. Alias o Vailton bem que podia reativar a SqlLib, e implementar o postgres.

Para os que usam SQLLib o MariaDB funciona, pelo menos comigo. Se puderem testar.

Eduardo, acho que ele tá falando de SqlLib. Outra coisa: entre em contato pelo meu email sergio@oho.com.br, preciso falar sobre seu sistema. Grato.

Experimente ao final das funções. oBot[x]:oJump:=obj_que_você_quer

SELECT cfs.dest_codigo,cli.razao,MIN(cfs.emissao) AS pri_compra,MAX(cfs.emissao) AS ult_compra,SUM(cfs.nota_total) AS tot_compra,tmp.pri_pagto,tmp.ult_pagto,tmp.tot_pago,0.00 AS saldo FROM cfs_cabec AS cfs, cli_cadastro AS cli LEFT JOIN (SELECT id_cliente,MIN(data_movto) AS pri_pagto,MAX(data_movto) AS ult_pagto,SUM(valor_credito)AS tot_pago FROM cli_mensal_extrato GROUP BY id_cliente) AS tmp ON cli.registro=tmp.id_cliente WHERE cfs.status='0' AND cfs.vda_recebimento='3' AND cfs.dest_codigo=cli.registro GROUP BY cli.registro ORDER BY cli.razao; Como disse queria testar ou melhor aprender.

Como disse anteriormente, queria testar este lanca do LEFT JOIN que vi na net. SELECT cli.registro AS registro ,cli.razao AS razao ,MIN(cfs.emissao) AS primeira ,MAX(cfs.emissao) AS ultima ,SUM(cfs.nota_total) AS compra FROM cfs_cabec AS cfs, cli_cadastro AS cli LEFT JOIN cli_mensal_extrato AS ext ON SELECT SUM(cli_mensal_extrato.valor_credito) AS pago WHERE cli_mensal_extrato.id_cliente='205' WHERE cfs.status='0' AND cfs.vda_recebimento='3' AND cfs.dest_codigo=cli.registro GROUP BY cli.registro ORDER BY cli.razao

Evandro, era realmente alguma coisa no bd, troquei o acesso de servidor e resolveu. grato

Deve ter algo errado no meu Bd. A consulta com Select, retorna todos os registros. Já o Create Table Temporary, retorna vazio.

Evandro, o que esta errado. não faz DROP TABLE IF EXISTS t1 CREATE TEMPORARY TABLE t1 SELECT SUM(valor_credito) AS pago FROM cli_mensal_extrato GROUP BY id_cliente faz SELECT id_cliente,data_movto,SUM(valor_credito) AS pago FROM cli_mensal_extrato GROUP BY id_cliente

Evandro, isto eu faço com View, é que vi num google da vida da forma que postei, fiquei interessado em aprender. Tipo LEFT JOIN SELECT(SUM(....))

SELECT cli.registro AS registro ,cli.razao AS razao ,MIN(cfs.emissao) AS primeira ,MAX(cfs.emissao) AS ultima ,SUM(cfs.nota_total) AS compra FROM cfs_cabec AS cfs, cli_cadastro AS cli WHERE cfs.status='0' AND cfs.vda_recebimento='3' AND cfs.dest_codigo=cli.registro GROUP BY cli.registro ORDER BY cli.razao Incluir esta string: SELECT SUM(valor_credito) AS pago FROM cli_mensal_extrato WHERE id_cliente=cli.registro para pegar a somatoria de pagamento na tabela cli_mensal_extrato. Não esou sabendo fazer o LEFT JOIN disto.

www.kinghost.com.br