Alberto Mota

EDUCTD, Coloque no quickreport, no daset o IBQuery_ITENS. Voce colocou o campo CLIENTE_NOME na seção detail, mas ele vem de: IBQuery_CLIENTES.Close; IBQuery_CLIENTES.SQL.Clear; IBQuery_CLIENTES.SQL.Add('select CLIENTE_NOME from CLIENTES C,ITENS_ORDEM I where C.CLIENTE_CODIGO = I.CODIGO_CLIENTE and OC_NUMERO = :oC'); IBQuery_CLIENTES.ParamByName('OC').AsInteger:=StrToInt(Edit_OC.Text); IBQuery_CLIENTES.Open; Por isso só pega 1 Veja o exemplo abaixo, no sql voce precisa juntar as 2 tabelas e o campo CLIENTE_NOME precisa estar nela. IBQuery_ITENS.SQL.Add('SELECT codigocliente.Itens_ordens, CLIENTE_NOME.clientes, codigocliente.clientes, oc.Itens_ordens, uf.Itens_ordens, quantidade.Itens_ordens, rota.Itens_ordens, UF.Itens_ordens, data_oc.Itens_ordens from clientes, Itens_ordens where codigocliente.Itens_ordens = CodigoCliente.Clientes and oc.Itens_ordens =: OC'); IBQuery_ITENS.ParamByName('OC').AsInteger:=StrToInt(Edit_OC.Text); Acredito ser a solução do seu problema.

Tem como voce enviar o fonte apenas com esse form? E claro tambem as tabelas. Poder ser apenas as tabelas referentes ao seu problema. Acredito que assim conseguirei ajudar voce. o email é: albertomota16@gmail.com

É um prazer colaborar, uma vez que muitas vezes me ajudaram aqui no Forum. Procure sempre colocar seus campos sem espaço. Exemplo: IDCliente, CodCliente, CodCli, NomeCli Acredito que sua sql deve ser montada conforme abaixo: IBQuery_MOTORISTA.SQL.Add('select codigocliente.Itens_ordens, nomecliente.clientes, codigocliente.clientes, oc.Itens_ordens, uf.Itens_ordens, quantidade.Itens_ordens, rota.Itens_ordens, UF.Itens_ordens, data_oc.Itens_ordens from clientes, Itens_ordens where codigocliente.Itens_ordens = CodigoCliente.Clientes and oc.Itens_ordens =: OC'); IBQuery_MOTORISTA.ParamByName('OC').AsInteger:=StrToInt(Edit_OC.Text); Um abraço.

EDUCTD, teria como dizer como estão suas tabelas? No seu select voce só quer MOTORISTA_NOME só vai sair esse campo. select MOTORISTA_NOME from MOTORISTA pelo que vi também, há um relacionamento entre as tabelas e e o filtro pelo código. where O.PLACA = M.MOTORISTA_PLACA and OC_NUMERO = C'); Não seria apenas o filtro pelo código? IBQuery_MOTORISTA.ParamByName('OC').AsInteger:=StrToInt(Edit_OC.Text); Se tivesse mais informações de suas tabelas poderia te ajudar. Um abraço.

Oi, uso o cutepdf onde tudo que é relatório se torna pdf. Não precisaria nem ficar na sua aplicação. Se já esta no word, coloque para imprimir, na lista de impressoras vai aparecer o cutepdf, selecione essa opção e depois escolha o caminho onde salvar o pdf. Experimente, segue o link: http://www.baixaki.com.br/busca/cutepdf.htm Espero que seja util.

Jhonas, obrigado. Realizarei os devidos testes. Um abraço.

Prezados colegas, tenho ouvido falar bem do Go-global como alternativa de acesso remoto ao banco de dados sql server e as filiais o acessarem atraves de um executavel de um sistema em Delphi. Gostaria de saber se o go-global é realmente bom. Se quem usou o recomenda. desde já, obrigado.

Jhonas, vou tentar o NoIP e estudar mais a respeito. Acredito que a medida em que vá avançando desvendarei todo o cenário. Em breve devo chegar a um resultado satisfatório. Muito obrigado.

Jhonas, infelizmente os links são para conexões com ado que já trabalho normalmente. Para trabalhar com vpn, acredito que uma conexão com Ado seja com mais algum detalhe. Colocar um IP fixo na conexão, algo assim. Fico imaginando um usuario acessando o executavel em Minas, sendo que o sql server esta no Rio. Atualmente uso assim no Ado para encontrar o Servidor, pois se trata de uma rede local: Servidor\SqlExpress Na rede vpn seria algo como: 12.152.63\Servidor\SqlExpress ? E imagino menos ainda o Zebedee trabalhando junto com Delphi. Acredito que tendo uma visão de como deve acontecer, fique mais claro o entendimento e então me direcionar. Desculpe a insistência e agradeço a paciência em me indicar os links para a solução. É que todo o processo esta me escapando.

Jhonas, obrigado pelos links. Dei uma olhadas neles e um dos links tem um tutorial mas é com o firebird. Não é um componente tipo o Zeos, que ficaria na palheta do Delphi, pelo que entendi. Então continuarei usando a palheta ADO? Vai criar um tunel entre o cliente e o servidor. O problema será de configuração. No Ado Connection como seria, mais ou menos? Desde já agradeço.

Prezados colegas, Chegou a hora de utilizar um servidor dedicado. O servidor ficará na própria empresa. Um servidor web cujo banco de dados será o sql server. Uso o Ado Connection quando o sql server esta numa rede local, sem problemas. Como sera essa conexão, uma vez que o servidor estará em outra cidade? Pesquisei na WEB e não encontrei nada que me direcionasse. Desde já, obrigado.

Consegui resolver meu problema Instalei apenas o sql native client que baixei do site da microsoft. O sqlncli.msi 3.4Mb Reiniciei o computador e abriu o sistema. Sem precisar ter que instalar o Delphi

Jhonas, esta perfeito agora. Era isso mesmo. Instalei apenas o sql native client que baixei do site da microsoft. O sqlncli.msi 3.4Mb Reiniciei o computador e abriu o sistema. Sem precisar ter que instalar o Delphi Mais uma vez, imensamente grato pela atenção. Um abraço

Jhonas, vou instalar amanhã o sqlncli.msi e as demais dlls e o Sql Native Client na estação Posto depois o resultado. Obrigado.

Jhonas, obrigado. farei isso com certeza. Depois posto o resultado. Um abraço.

Jhonas, obrigado pela atenção. Como faço essa verificação na estação e no servidor? E porque isso ocorre?

Prezados colegas, estou usando sqlserver 2008 express e o Delphi 7 Para conexão uso o AdoConnection e coloco Servidor\SqlExpress no nome do servidor após fazer todas as configurações no Sql Server. Em algumas empresas funciona sem problemas. copio o executavel em cada estação. Fiz isso em 2 empresas e dá o erro: Provedor não encontrado Depois de verificar tudo, comm o ultima opção foi instalar o Delphi na estação. e a conexão estava como Driver ODBC ou seja ele perde a configuração. Isso será quando o windows foi instalado e não havia driver do sql server? Então refaço na estação, onde coloco todo o projeto e gero um novo executavel. E roda ok. Não gostaria de instalar o Delphi em toda estação que der o problema. O que será que esta faltando?

Prezados colegas, estou usando sqlserver 2008 express e o Delphi 7 Para conexão uso o AdoConnection e coloco Servidor\SqlExpress no nome do servidor após fazer todas as configurações no Sql Server. Em algumas empresas funciona sem problemas. copio o executavel em cada estação. Fiz isso em 2 empresas e dá o erro: Provedor não encontrado Depois de verificar tudo, comm o ultima opção foi instalar o Delphi na estação. e a conexão estava como Driver ODBC ou seja ele perde a configuração. Isso será quando o windows foi instalado e não havia driver do sql server? Então refaço na estação, onde coloco todo o projeto e gero um novo executavel. E roda ok. Não gostaria de instalar o Delphi em toda estação que der o problema. O que será que esta faltando?

Estou usando o componente ACBR para nfe. Visite o site: http://acbr.sourceforge.net/drupal/

Jhonas, com DeleteFile(PChar('C:\DADOS\BACKUP.BAK')); Resolveu completamente! Obrigado!

Funcionou, Jhonas. Porem, ficaria perfeito se o que estivesse na pasta onde vai ficar o backup, fosse excluído antes de ocorrer um novo backup. Pois como é um arquivo .bak do sql server ele aumenta consideravelmente se já existir um backup do mesmo dia.

Jhonas, mais uma vez, obrigado. Vou implementar agora.

Prezados colegas, gostaria de incrementar o backup do meu sistema. Num form, frmbackup coloquei um botão onde o usuario clica e faz o backup. Gostaria que as 18hs esse botão fosse executado. Claro que isso só iria funcionar se o sistema estiver aberto. De qualquer forma, como resolvo isso? desde já, obrigado.

Está mais simples agora. o seu jpeg tem que ser do mesmo numero Exemplo: 1.jpeg Supondo que voce tenha um produto de Referência = 1 procedure TFrmProdutos.DsProdutosDataChange(Sender: TObject; Field: TField); var foto1,guardafoto : string; begin guardafoto := inttostr(Produtos.FieldByName('referência').AsInteger); if not(fileexists('C:\wa\'+guardafoto+'.jpg')) then begin foto1 := ('C:\wa\wa2.jpg'); end else foto1 := ('C:\wa\'+guardafoto+'.jpg'); DbImage1.Picture.loadfromfile(foto1); end;

Veja esse link http://www.activedelphi.com.br/forum/viewt...aa4ff8309e005cb