Douglas Soares

Obrigado pelo excelente trabalho feito no fórum!!! Continue assim dentro do possível.... Tenho certeza que o pessoal vai conseguir se virar, e otra, qualquer coisa eles te mandam um MP rsrsrsrsrs Abraços

Puxa amigo, vou dar uma pesquisa pra você prometo, eu nunca fiz esse tipo de operação, além de não ter experiencia com Access, mas tenho certeza que logo alguém responde esse tópico te ajudando... se eu conseguir alguma coisa posto aqui pra vc! Abraços

Qual o seu banco de dados?

Tenta com ADOQuery, ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT * FROM TableMaster local'); ADOQuery1.SQL.Add('INSERT INTO TableMaster Rede'); ADOQuery1.SQL.Add('Where numeracao LIKE %'+ Edit1.text + '%'); ADOQuery1.ExecSQL; ADOQuery2.Close; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('SELECT * FROM DetailTable local'); ADOQuery2.SQL.Add('INSERT INTO DetailTable Rede'); ADOQuery2.SQL.Add('Where numeracao_sub LIKE %' + Edit1.text + '%'); ADOQuery2.ExecSQL; Abraços

Veja esse post: http://scriptbrasil.com.br/forum/index.php?showtopic=148302 Abraços

Não tenho o RaveReports aqui, mas acho que você deve ter um componente de texto no footerband e coloque o mesmo código do lblCount no evento BeforePrint do Rave... RaveTxt.Text := 'Total:' + IntToStr(dtmPrincipal.qryConfig.RecordCount); outra coisa, deve ter uma opção no próprio rave que é pra mostra-lo só na ultima pagina... Caso você não consiga e ngm te ajude até amanha, eu dou um jeito de instalar o Rave Reports aqui e vejo pra vc! Abraços

Grava em algum lugar, um arquivo ini por exemplo, a tela que você estava, e quando abrir o seu programa você sempre checa ele e abre a tela que tava... Abraços

Consegui!!!!!!!!!!!!!!!! Uhullll Coloquei só um SubDetail com ForceNewPage e um ChildBand dele mesmo e deu certo!!! Vlw

Consegui fazer vir cada uma em uma página, porém a ordem está errada, olha só: http://img682.imageshack.us/img682/500/modelo3m.jpg Ele traz as 2 do verso e depois as 2 da frente, eu precisava que trouxesse em oder, 1 frente, 1 verso, 1 frente, 1 verso... como alterar essa ordem??? Obrigado

Por nada, precisando é só postar!

Aqui você encontra várias funções sobre detecção de rede: http://www.planetadelphi.com.br/busca/rede Abraços

Boa tarde, estou com uma dúvida que está me matando à dias! Tenho um sistema que pode imprimir carteirinhas para igrejas, segue um modelo: http://img534.imageshack.us/img534/3987/modelo1r.jpg Só que agora compramos uma impressora de cartão PVC que imprime frente e verso, fiz um relatório de teste com o quick report, coloquei o QuickRep e 2 SubDetails, e então deixei eles como ForceNewPage = true, depois eu coloquei 2 qrImages e alguns QrDBTexts... e então deixei o quickrep sem bordas e do tamanho da carteira... ele exibe corretamente e imprime perfeitamente!!! Frente http://img37.imageshack.us/img37/8155/modelo2parte1.jpg Verso http://img695.imageshack.us/img695/5366/modelo2parte2.jpg o Problema é que preciso trazer mais de uma carteira como no modelo anterior... não precisa trazer necessariamente todas juntas. essa impressora só imprime por página, exemplo: na página 1 tem q ter só a frente e na 2 só o verso... eu precisava que gerasse outras porém por página... Página 1: frente de uma carteira do membro 1... Página 2: verso de uma carteira do membro 1... Página 3: frente de uma carteira do membro 2... Página 3: verso de uma carteira do membro 2... E assim vai... Será que alguém pode me ajudar??? Abraços

Tente assim: DM.QPROJ.close; lblCount.Caption := 'Total:' + IntToStr(dtmPrincipal.qryConfig.RecordCount); DM.QPROJ.SQL.Clear; DM.QPROJ.SQL.Add('SELECT * FROM TBPROJ ORDER BY COD'); DM.QPROJ.SQL.ExecSql; Quanto ao rave report veja esses links: http://www.forumnow.com.br/vip/mensagens.a...05824&pag=1 http://www.activedelphi.com.br/forum/viewt...931ecfcd4382bb7 Abraços

Entendi... então você faz assim mesmo com XML se tiver sem rede... pra checar você faz isso: if GetSystemMetrics(SM_NETWORK) and $01 = $01 then begin ShowMessage('O computador está em rede!'); //Tem rede, vou gravar no banco! end else begin ShowMessage('O computador não está em rede!'); //Não tem rede, vou gravar no XML! end; Abraços

Olha... por ser na rede eu não faria nada disso com XML, não há necessidade, eu tenho um sistema aqui na empresa e ele é em rede, todas as alterações e inserções eu faço diretamente no banco e uso generator, meu banco é firebird... se eu fizesse por xml ia gastar muito mais memória... a rede tinha que ser muito vagabunda pra ter que ficar armazenando dados e testando ela, o que você poderia fazer é checar a rede na hora que você clicar em salvar, aí sim se ela não estiver disponível você guarda os dados em um XML e depois que abrir o programa novamente você faz uma checagem, exemplo: se tiver um arquivo.xml na pasta X, você lê ele e joga no banco, acompanhando o valor do generator, porque se der problema em mais de uma estação ao mesmo tempo, os 2 teriam que gravar algo no banco, daí o código nunca ia ficar duplicado. Mas você quem sabe, tem códigos meus que estão tão bagunçados... mas estão funcionais... se estiver bem pra você e funcionando com rapidez é o que importa :P Abraços

Olha... se você trabalha em rede, eu não aconselharia usar um xml pra guardar o código sequencial... eu uso Generator... é bem mais facil pois quando eu já faço um cadastro no banco ele já pega o código automatico! Qual banco de dados você utiliza? Abraços

O que postei não é como criar um XML, e sim como inserir os dados dele no banco... Dei o exemplo usando DbExpress, siga a lógica e adapte ao seus códigos. Segue exemplo pra saber se a rede está acessível: Insira um componente IdIpWatch que fica na paleta Indy Misc. no FormCreate você coloca isso: e no evento OnStatusChange do IdIpWatch você coloca isso: if IdIPWatch1.ForceCheck then ShowMessage('Rede Conectada! ') else ShowMessage('Rede Caiu. Sistema será finalizado! '); Abraços

Coloque 1 componente SQLQuery que fica na paleta DbExpress e um XMLTransformProvider. coloque também 2 ClientDataSet's e um DataSetProvider, que ficam na paleta DataAcess... Ligue DataSetProvider na SQLQuery, e o ClientDataSet no DataSetProvider... Não se esqueça de ligar sua SQLQuery na sua Conexão... Agora monte sua query no componente SQLQuery, puxando todos os campos do banco que pretende gravar informações... exemplo: SELECT NOME, CIDADE, ESTADO FROM TABELA Então dê 2 cliques no componente SQLQuery e vai abrir uma janelinha dos campos que vai estar em branco, daí você clica com o botão direito emcima dela e clica em Add all Fields, e em seguida faça esse processo também no ClientDataSet para adicionar todos os campos... Agora ligue o outro ClientDataSet no XMLTransformProvider, salve e feche o projeto... ainda com o Delphi aberto, clique em Tools e depois na opção XML Mapper... Abriu um programinha, você clica em File e depois em Open, e abre o seu arquivo XML... Agora do lado direito onde apareceu seus campos, você dá 2 cliques em cada campo, para que ele vá para o meio... Assim que terminar de colocar todos no meio, você clica com o botão direito do mouse, no lado esquerdo <<<, no mesmo lugar que você estava dando 2 cliques, só que aí você seleciona a opção Create Datapacket from XML, em seguida clique no botão do meio chamado Create and Test Transformation e veja se está correto, em seguida feche a telinha de teste, e ainda na parte do meio você clica com o botão direito do mouse e clica em SaveTransformation... Salve o arquivo na pasta da sua aplicação. Abra seu projeto novamente e vá no XMLTransformProvider e na opção TransformRead / Transformation, selecione o arquivo .xtr que você salvou na pasta da sua aplicação... então dê 2 cliques no ClientDataSet que está ligado ao XMLTransformProvider e clique com o botão direito na caixinha em branco e selecione Add all fields... Agora você pode criar um botão acrescentar em qualquer rotina o código de inserção: vou chamar de cdsXml o que está ligado no XmlTransformProvider e de cds só o que está ligado no DataSetProvider... cdsXml.close; XMLTransformProvider1.XMLDataFile := 'C:\Arquivo.xml'; cdsXml.Open; if cds.Active = false then cds.Open; cds.Append; cds.FieldByName('NOME').Text := cdsClidemoXml.fieldByName('NOME').Text; cds.FieldByName('CIDADE').Text := cdsClidemoXml.fieldByName('CIDADE').Text; cds.FieldByName('ESTADO').Text := cdsClidemoXml.fieldByName('ESTADO').Text; cds.ApplyUpdates; agora no evento OnReconcileError do cds coloque isso: ShowMessage(E.Message); Assim se aparecer algum erro você vai ver qual... ufa... acho que é só isso... faz um teste aí e qualquer coisa fala. Abraços

Dá uma olhada nesse post e vê se ele te ajuda. http://scriptbrasil.com.br/forum/index.php?showtopic=111308 Abraços

Fichas de padaria? Umas grandes que tem um código de barras e quem fica no caixa tem tipo um leitor que já joga na tela tudo que você comprou? é isso?

Beleza, tenta ai, desculpa eu ter passado o mesmo que você já tentou, eu to meio sem cabeça hoje.... Abraços

Você tem uma tabela com todos os valores que você passa pro DBComboBox? ou você passa tudo pra ele manualmente pelo ITENS? Se tiver a tabela, troque o componente pelo DBLookupComboBox, altere a ListSource pelo DataSource que está os dados e o ListField o campo de descrição... daí no DataSource você coloca o DataSource de gravação, e em DataField o campo em que vai gravar a informação... Caso faça manualmente pelo ITENS... siga abaixo... Eu não sabia que seu DBComboBox chamava cboCadPro_Icms... por isso falei besteira... Então tente assim cboCadPro_Icms.Text := dm.ESTAPRO.FieldByName('PROICM').Value; Abraços

Devido a falta de resposta, e a outro tópico aberto pelo Matheus Henrique, utilizando o código disponibilizado pelo usuário Jhonas, altero a situação do tópico para (Resolvido).

Se ele estiver gravando no banco normalmente, tenta fazer isso após a pesquisa... DBComboBox1.Text := frmCadPro.cboCadPro_Icms.Text; Abraços

Quando você consulta os dados, tras todos os campos e não tras os dados do ComboBox, é isso?