joaosolution

JMSilva Bom dia Acredito que se você adicionar ao PATH do Windows vai resolver o problema: Ex.: PATH=%PATH%;C:\SISTEMA\DLL Att João Bosco

Blz Sim poderia ser por período também, pensei no ano para ficar mais fácil o controle de criar os arquivos e depois poder selecionar no sistema para consulta por ano. Att João Bosco

Marcio Create table BK_tabela_2015 insert into BK_tabela_2015 (campo1,campo2,campo3) select campo1,campo2,campo3 from tabela where ano='2015' delete from tabela where ano=2015 Att João Bosco

Marcio Manual da SQLLIB: Você pode desejar projetar as suas transações para não incluir estas instruções. Se você executar uma instrução da qual não se pode fazer ROLLBACK em uma transação, e então outra instruções falhar posteriormente, o efeito total da transação não pode ser desfeito usando uma instrução ROLLBACK. Os seguintes comandos finalizam uma transação implicitamente (como se você tivesse feito um COMMIT depois de executar o comando): Comando Comando Comando ALTER TABLE BEGIN CREATE INDEX DROP DATABASE DROP INDEX DROP TABLE LOAD MASTER DATA LOCK TABLES RENAME TABLE SET AUTOCOMMIT=1 START TRANSACTION TRUNCATE Att João Bosco

Marcio Boa tarde Uso este comando após conectar com o banco, isso direto no meu sistema. SQL EXECUTE "SET SESSION AUTOCOMMIT=1" Veja se ajuda. Att João Bosco

Marca Isso acontece mesmo quando a gente usa botões BUTTON pois se colocamos a opção CANCEL ele anula as validações. Sugiro você colocar o get seguinte com DISABLED e somente habilitar após passar pelo primeiro get Att João Bosco

Sisco Mas então coloque só a pasta FWH no path das configurações Att João Bosco

Sisco Bom dia Adiciona no PATH c:\fwh\bin Adicione manualmente as libs \xharbour\lib\pcrepos.lib \xharbour\lib\ct.lib \bcc7\lib\psdk\psapi.lib Att João Bosco

Pompeo Boa tarde Troque o INNER JOIN por LEFT JOIN Att João Bosco

JMSilva Coloque a coluna da data 2 como um novo select: SELECT Clientes.prec_cp, Clientes.nick, Max(NF.dtaserv) as dta1, nf.tipo, (SELECT Clientes.prec_cp, Clientes.nick, Max(NF.dtaserv) as dta1, nf.tipo from cadetes as Clientes LEFT JOIN escala_normal as nf ON Clientes.prec_cp = nf.prec_cp1 and nf.tipo='2' GROUP BY clientes.prec_cp) as data2 from cadetes as Clientes LEFT JOIN escala_normal as nf ON Clientes.prec_cp = nf.prec_cp1 and nf.tipo='1' GROUP BY clientes.prec_cp; Att João Bosco

JMSILVA (comando1) UNION (comando2) ou (comando1) UNION ALL (comando2) Att João Bosco

Fladimir Bom dia Eu criaria um campo novo com a primeira letra de tamanho 01, e adicionaria um group header no relatório com este campo Att João Bosco

Bom dia Segue Exemplo!! // Arquivo base cFile := "Consu.xls" If !File(cDirExcel+"\"+cFile) MsgAlert("Arquivo não econtrado : "+cDirExcel+"\"+cFile,"Verifique") Return .T. Endif oExcel:= TOleauto():New( "Excel.Application") If Ole2TxtError() # "S_OK" MsgInfo("EXCEL não está instalado nesta máquina."+CRLF+" Impossível gerar planilha","ATENÇÃO") Return nil Endif oExcel:Workbooks:Open( cDirExcel+"\"+cFile ) aDados:={} nCol := 1 nLin := 1 oFolha := oExcel:Get( "ActiveSheet") While .T. If Empty(oFolha:Cells(nLin, 1):Value) Exit Endif cColA := oFolha:Cells(nLin, 1):Value cColB := oFolha:Cells(nLin, 2):Value cColC := oFolha:Cells(nLin, 3):Value AADD( aDados, {cColA, cColB, cColC}) nLin++ End oExcel:AlertBeforeOverwriting = .F. oExcel:DisplayAlerts = .F. oExcel:Visible = .T. xBrowse(aDados) Att João Bosco

Evandro Boa tarde Na pasta \fw\samples testxbr3.prg testxbr6.prg Acho que pode ser isso que você está procurando. Att João Bosco

Marcio Xbrowse Att João Bosco

Feliz Natal e um ano novo cheio de realizações. Abraços João Bosco

Marca Bom dia Tente as funções: SQLGETCONNECTIONINFO() SQLGETCONNECTIONS() SQLSETCONNECTION() SQLGETCONNECTION() Att João Bosco

Luiz cGetFile32("Bitmaps | *.BMP ","Selecione o arquivo da logomarca",,"C:\PASTA",,.T.) É o quarto parâmetro da função. Att João Bosco

Wanderson Bom dia No caso vc não precisa ficar enviando os arquivos .FR3 para os clientes, somente o executável. Isso simplifica o processo. Att João Bosco

Wanderson Em tempo de desenvolvimento edito os relatórios normalmente com Design e salvo na pasta de desenvolvimento. Somente quando compilo, o arquivo é incorporado ao .RC ou .RES Mas depois de incorporado ao EXE não tem como alterar o arquivo. Abraços João Bosco

Rochinha Bom dia Isto é em ambiente de desenvolvimento, quando compilamos o FR3 é incorporado junto ao executável. No meu caso fica aasim: RELATO RCDATA "FR3\\RELATO.fr3" Att João Bosco

Narlem Acho que seria isso: SELECT gu.CodigoGrupo, gu.NomeGrupo FROM grupo AS gu LEFT JOIN Grupo_Item AS gi ON gu.CodigoGrupo = gi.CodigoGrupo LEFT JOIN Itens AS it ON gi.CodigoItem = it.CodigoItem WHERE it.Unidade = 'UN' GROUP BY gu.CodigoGrupo Att João Bosco

De nada, pelo menos uma ajudinha, né.... Sobre o PellesC: Dentro do Pelles vá no menu Resource, opção Import. Dentro da tela do Import, vai ter um botão no rodapé Import, neste botão vai ter uma seta, como um combobox, click na seta e escolha a opção, Import - RCDATA. Att João Bosco

João Boa tarde Eu adiciono o FR3 no projeto como DATA. cRes:="RELAT01" E chamo trocando: oFrPrn:LoadFromFile(cDirConfig+cRes+'.fr3') Por isso: oFrPrn:LoadFromResource( cRes ) Att João Bosco

Hummmmmm Mas será que já é comercial? Ou só teste? Att João Bosco