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