Progr'amador

Olá Eder, Nese Caso você poderia usar o proprio componente que está fazendo conexão com a tabela. exemplo com TTable: if Table1NOME_DO_CAMPO.Value = '1' then qrlabel1.caption:='NR UM' else if Table1NOME_DO_CAMPO.Value = '2' then qrlabel1.caption:='NR DOIS' else if Table1NOME_DO_CAMPO.Value = '3' then qrlabel1.caption:='NR TRES'; Abs. Progr'amador.

Olá eder, Deva está faltando relacionar alguna tabela, não consegui entender direito sua select, mas tenta usar o distinct assim: select distinct * from... o problema deve estar nessa linha: 'AND ((LANCA.CODFUN IS NULL) OR (LANCA.CODFUN = CLIENTES.CODIGO)) '+ {a imagem do seu relatório não abriu aqui, deu erro: página fora do ar} Abs. Progr'amador.

Olá Lafey, É tipo assim: no uses: inifiles; procedure TForm1.FormCreate(Sender: TObject); var ContIni: TIniFile; i : integer; begin ContIni := TIniFile.Create('C:\ArquivoIni.ini'); ContIni.WriteString('Teste', 'Form1', Form1.Caption); ContIni.Free; end; Abs. Progr'amador.

Olá ZueRa, seria isso: var Ts : TStringList; begin Ts := TStringList.Create; try Ts.Add('blablabla'); Ts.Add('blablabla'); Ts.Add('blablabla'); IdHttp.Request.ContentType := 'application/x-www-form-urlencoded'; IdHTTP.Post('http://www.site.com/script.php',Ts); finally Ts.free; end; Abs. Progr'amador.

Olá amigo, Essa impressoras térmica possui um driver e algumas com o código de programação propria para impressão. você já tentou nesse site: http://www.suporte-epson.com.br vai na opção Drivers e manuais Lá você pode encontrar alguma ajuda. Abs. Progr'amador ;)

Olá Mario, você não foi muito claro na sua pergunta, poderia explicar melhor, tipo: estrutura das tabelas, o boletim é outra tabela?, etc... Detalha melhor que fica mais facil para galera te ajudar. Abs. Progr'amador. ;)

Ola Alexandre, 1º - está faltando a clausula FROM NomeDaTabela (From ContasReceber) antes da clausula WHERE; 2º - No caso de select com 1 (uma) tabela, não necessita informar o nome da tabela antes dos campos (ContasReceber.CodSaidas) ; ---- Vê se assim resolve o seu caso: with DmDados.ContasReceber do begin Close; SQL.Clear; SQL.Add('Select Distinct CodSaidas, Codigo, DataCad, Cliente, MeuCodigo,'); SQL.Add('Cnpj, Ie, Cpf, Rg,Orgao, Endereco, Numero,Bairro, FormaPgto, TipoPgto,'); SQL.Add('DataVencimento, Parcela, Valor,Desconto, ValorRecebido, Troco, ValorTotal,'); SQL.Add('Situacao, Promissoria, Descricao'); SQL.Add('From ContasReceber Where CodSaidas = '+''''+IntToStr(Cod)+''''+''); Open; end; Abs. Progr'amador. ----------------------Editado------------------------------------- Puts!, foi mal Micheus, :huh: não vi seu post! você postou enquando eu tava digitando :D

Bem lembrado! Micheus, :) Não lembrei do QRExpr, afinal fiquei mais de um ano sem ver a cor do delphi, to voltando agora, ainda to ½ enferrujado, rs! :D Abs. Progr'amador. ;)

Olá Luciana, Baixei tudo e coloquei as dll no systen32, mas aqui deu erro: Exception EZSQLException in module AgendaOnline.exe at 000E7B2E. SQL Error: Can't connect to MySQL server on 'arroba-info.com' (10060). Abs. Progr'amador.

Olá juniorboll, Nesse caso você poderia usar um QRLabel, e concatenar os campos. Ex: QRLabel.Caption := 'Rua: '+Query.FieldByName('Rua').AsString+', '+Query.FieldByName('Numero').AsString+' - '+Query.FieldByName('Bairro').AsString+' -'+Query.FieldByName('Cidade').AsString; ... e assim por diante Abs. Progr'amador.

Olá! Tipo Private Sub Comando3_Click() Select Case Combinação0 Case "Reltorio-1" stDocName = "Relatório1" Case "Reltorio-2" stDocName = "Relatório2" Case "Reltorio-3" stDocName = "Relatório3" Case "Reltorio-4" stDocName = "Relatório4" Case "Reltorio-5" stDocName = "Relatóri05" End Select DoCmd.OpenReport stDocName, acPreview End Sub Abs. Progr'amador.

Olá hencker, to meio enferrujado :D mas seria tipo assim: utilisando os componentes Indy procedure TForm1.Button1Click(Sender: TObject); var Memo1: TMemo; begin Memo1.Text := 'Corpo da mensagem...'; Query1.First; While not Query1.EOF do begin if Query1.FieldByName('email_cliente').AsString <> '' then begin with IdMessage1 do begin Body.Assign(Memo1.Lines); From.Text := 'seuemail@seuprovedor.com.br'; Recipients.EMailAddresses := Query1.FieldByName('email_cliente').AsString; Subject := 'Assunto'; end; IdSMTP1.Host:='smtp.seuprovedor.com.br'; IdSMTP1.Port:= 25; IdSMTP1.Username := 'seunome'; IdSMTP1.Password := 'suasenha'; IdSMTP1.Connect; try IdSMTP1.Send(IdMessage1); finally IdSMTP1.Disconnect; end; end; Query1.Next; end; end; Abs. Progr'amador. ;)

Valeu Graymalkin! funcionou certinho Obrigado. Abs. Progr'amador. :)

Olá, tenho o código abaixo que gera arquivo em excel, e gostaria que ao finalizar o processo o excel seja fechado só que não estou conseguindo. Excel := CreateOleObject('Excel.Application'); Excel.Visible :=True; Excel.WorkBooks.Open(vArq); //Excel.Workbooks.Add; Excel.WorkBooks[1].Sheets[1].Cells[1,5]:= 'MAPA INFORMATIVO DAS MUTAÇÕES PATRIMONIAIS - EXERCÍCIO '+DBEdit2.Text; Excel.WorkBooks[1].Sheets[1].Cells[1,13]:= 'MÊS: '+DBLookupComboBox1.Text+'/'+DBEdit2.Text; Excel.WorkBooks[1].Sheets[1].Cells[2,13]:= 'Protocolo: '+DBEdit3.Text; QryMapaItens.First; li := 7; while not QryMapaItens.Eof do begin Excel.WorkBooks[1].Sheets[1].Cells[li,1]:= QryMapaItens.FieldByName('CD_CONTA_CONTABIL').AsString; Excel.WorkBooks[1].Sheets[1].Cells[li,2]:= QryMapaItens.FieldByName('NOMENCLATURA').AsString; if QryMapaItens.FieldByName('VL_MES_ANTERIOR').Value > 0 then Excel.WorkBooks[1].Sheets[1].Cells[li,9]:= QryMapaItens.FieldByName('VL_MES_ANTERIOR').Value; if QryMapaItens.FieldByName('VL_INCORP_MES').Value > 0 then Excel.WorkBooks[1].Sheets[1].Cells[li,10]:= QryMapaItens.FieldByName('VL_INCORP_MES').Value; if QryMapaItens.FieldByName('VL_INCORP_EXERCICIO').Value > 0 then Excel.WorkBooks[1].Sheets[1].Cells[li,11]:= QryMapaItens.FieldByName('VL_INCORP_EXERCICIO').Value; if QryMapaItens.FieldByName('VL_BAIXA_MES').Value > 0 then Excel.WorkBooks[1].Sheets[1].Cells[li,12]:= QryMapaItens.FieldByName('VL_BAIXA_MES').Value; if QryMapaItens.FieldByName('VL_BAIXA_EXERCICIO').Value > 0 then Excel.WorkBooks[1].Sheets[1].Cells[li,13]:= QryMapaItens.FieldByName('VL_BAIXA_EXERCICIO').Value; if QryMapaItens.FieldByName('VL_SALDO').Value > 0 then Excel.WorkBooks[1].Sheets[1].Cells[li,14]:= QryMapaItens.FieldByName('VL_SALDO').Value; li := li + 1; QryMapaItens.Next; end; Excel.WorkBooks[1].SaveAs(vArq); Excel.WorkBooks[1].Close; Abs. Progr'amador. ;)

Vlw!!! de VB num sei nada!! HEHE! Abs. Progr'amador. :D

Olá, como trazer a data nesse formato: 09 de maio de 2006, via código. Abs. Progr'amador.

NA verdade esse sua query é apenas para pesquisa, você poderia usar uma outra query com uma "select simples" que busque esse mesmo registro pra que você possa alterar. Abs. Progr'amador.

Olá V&A, num é esse código que ta tirando a barra não. :unsure: Abs. Progr'amador.

você deve ter um button que salva, nesse button após você inserir um registro na tabela, você da um Close e um Open no Table e logo abaixo o código que lhe passei: Table1.Close; TAble1.Open; DBComboBox1.Clear; Table1.First; while not Table1.Eof do begin DBComboBox1.Items.Add(Table1.FieldByName('CAMPO').AsString); Table1.Next; end; Abs. Progr'amador.

Assim: DBComboBox1.Clear; Table1.First; while not Table1.Eof do begin DBComboBox1.Items.Add(Table1.FieldByName('CAMPO').AsString); Table1.Next; end; Abs. Progr'amador.

Exemplo: eu tenho um form pra imprimir Relatório, esse form pode ser aberto de vários forms, um unico button eu imprimo 6 relatórios diferente, pra isso eu estou usando o TAG desse form: cada relatório representa um número diferente nessa tag, de cada lugar que eu abro esse form o TAG recebe um valor diferente. tipo: FormRelat := TFormRelat.Create(Self); FormRelat.Tag := 1; FormRelat.ShowModal; FormRelat.Free; ai no button de imprimir eu coloco um if: IF tag = 1 then begin bla; bla; bla.. end else if tag = 2 then begin ... ... etc... end; Foi uma forma que eu achei de fazer isso. Uso para outras coisas tambem. Eu acho num tem uma finalidade em si, cada um usa de acordo com a necessidade. Abs. Progr'amador.

Olá, To migrando DB de uma aplicação de Access para MySQL, até ai tudo beleza, o proplema é na hora de gravar os dados, em tabelas com campo data da o sengunite erro: 'Operation no applicable', se eu deixo em branco ele grava legal, mas se eu coloco data da erro. essa é a função que to usando pra salvar: FmPrincipal.DataBase1.StartTransaction; Query2.ApplyUpdates; Query2.CommitUpdates; FmPrincipal.Database1.Commit; eu to usando conecção ODBC, se eu altero direto no SQL Explorer não da erro!, então o prob é no delphi mesmo. Já fiz tudo que eu pude, e nada! :blink: Alguém sabe como resolver isso? Abs.. Progr'amador.

Olá, dê uma olhada nesse tópico: http://scriptbrasil.com.br/forum/index.php...t=0#entry232917 Abs. Progr'amador.

Testei esse codigo e num deu certo não, na verdade ele cria o usuario mas NÃO consegue conectar remotamente, e tentei outra forma e deu certo: Na verdade esse acesso é total, pra administrador do banco de dados, mas ai é só tirar algumas opções, eu acho Abs. Progr'amador.

FINALMENTE!!!! VLW cara CONSEGUI! reconfigurei o MySQL e deu certo. Brigadão pela sua dica! Abs. Progr'amador. :D