Tamires

Bom, acho que não, pois não é só aqui que tá dando esse erro. O programa foi usado em outro lugar, e tentaram imprimir também... saiu do mesmo jeito que daqui... Eu não sei direito, porque não entendo muito de configuração de impressoras... Mesmo assim, muito obrigada pela dica... Se mais alguém já passou por isso e talvez tenha algo pra me esclarecer eu agradeço... Bjos

Bom dia, Estou tentando justificar um campo Memo no FortesReport, mas não dá certo. Ele até tem uma propriedade (Alignment: taJustify), mas ela só justifica na tela e quando imprime em impressoras jato de tinta. Quando testo numa impressora matricial, a formatação volta para "alinhado à esquerda". Se alguém souber de algum detalhe que eu esqueci, me avise... muito obrigada...

Bom, na hora que você clica para imprimir, ele te mostra uma janela para você escolher qual impressora vai usar. Embaixo no nome da impressora que você vai escolher, tem escrito-> usar filtro. deve estar em : impressora padrão. Passe para impressora matricial... depois você escolhe qual o número de colunas Não sei se é isso que você perguntou, mas acho que é isso mesmo bjimm

Já consegui aqui... muito obrigada...

Boa tarde, alguém poderia me informar como eu coloco um código de barras no fortes report? Eu tenho o código ean gravado no banco de dados, entaum eu só pegaria o código e ligaria ele com um componente do fortes que dá origem ao código de barras, mas isso não está dando certo. O componente é o RLDBBarCode. Se algué puder me ajudar, eu ficarei agradecida... Abraços...

Obrigada Geovani, agora eu só vou é quebrar a cabeça pra fazer isso funcionar no meu programa, já que eu nunca mexi com esse componente. O servidor de e-mail que eu vou colocar será qual? o meu servidor ? Exemplo: Yahoo... Seria : smtp.yahoo.com.br ??? bjo

Bom dia, Já procurei no fórum, mas não achei.... Alguém teria alguma função ou saberia como anexar um arquivo, que já está salvo no computador e enviá-lo por e-mail? Eu mandaria o arquivo direto, para um email que está cadastrado no banco de dados. Não precisa de abrir nenhuma janela para digitar o email ou anexar o arquivo. Tem que ser direto. Estou quebrando a cabeça aqui mas ainda não achei nenhum exemplo que me ajudasse... Se alguém puder eu ficarei agradecida... b-jos

Olá, Gostaria de saber se tem como importar para o excel um arquivo do word. Desde já agradeço... Abraços....

Deu certinho aqui no meu relatório. muito obrigada... Agr podia colocar essa função pras pessoas baixarem né?! Acho que seria uma boa... bjusss

Gente, muito obrigada. Eu já tava quebrando a cabeça aqui tentanto transformar uma função que passar valor (real) por extenso, em uma que passa horas por extenso... Tava dando tudo errado... muito obrigada mesmo... vou testar aqui no meu programa e depois eu aviso como ficou... Bjão...

Eu acho que a bolinha só aparece se o seu windows for XP. Posso até tá falando bobagem, mas parece que é isso mesmo. bjo...

Bom, me parece que você tem que colocar o arquivo em edição ou inserção pra fazer isso aí que você quer. No meu caso eu uso dataset, mas não sei o que fazer sem usar.

Eu acho que o com o edit também funciona. Coloque na propriedade "PasswordChar" do edit um asterisco Assim deve dar certo. Um abraço....

Bom gente, não sei se tá certo o que vou escrever, mas pra ver se é inteiro o que está dentro do edit eu faço assim: Passo o valor do edit pra uma variável, transformando-o para inteiro. Se não for um inteiro válido, dá erro. Coloco isso dentro de um "try". Ex: try vNum := StrToInt(edtNum.text); except ShowMessage('Número inválido.'); exit; end;

Boa tarde, Alguém saberia informar como faço para passar uma hora que está em um edit por extenso (ex : 12:32 -->>> doze horas e trinta e dois minutos). Já procurei na internet se há alguma função para fazer isso, inclusive aqui no fórum, mas não consegui achar. Achei uma função que faz isso, mas em java script e eu queria para Delphi. Se alguém souber e puder me passar eu agradeço. Um abraço pra vocês...

Brigadão... dessa forma fica bem mais fácil mesmo... Bjuu

Ichi... nem percebi que não tava logada com meu nome.... Mas agr dá pra saber que sou eu né?!

Olá, gostaria de saber como faço pra colocar um valor real em uma SQL, sendo que ele vem de um edit. O Erro que dá é esse : Token unknown - line 1, char 81 , Dá esse erro porque está passando para SQL o valor do campo separando as casas decimais por vírgula e tem que ser com ponto. Ex: SELECT * FROM CARA200 WHERE CARA200.COD_TAXA = 1 AND CARA200.VAL_INIFAI = 0,01 AND CARA200.VAL_FINFAI = 499,99 ORDER BY CARA200.DAT_VIGOR, CARA200.DAT_INCLUS DESC Observação : Eu programo em Delphi 7 e uso o FireBird 1.5 e IBExpert como banco de dados Ex: // *** passo os valores que a pessoa digita na tela para uma variável : try vValIniFai := StrToFloat(edtValIniFai.Text); vValFinalFai := StrToFloat(edtValFinalFai.Text); except ShowMessage('Preço inicial/final da faixa inválido.'); exit; end; //*** faço uma SQL para buscar na tabela(CARA200) os preços cadastrados para aquela faixa with (FdmList.Objects[FdmList.IndexOf('CARA200')] as Tdm) do begin cds.Close; cds.CommandText := 'SELECT * ' + 'FROM CARA200 ' + 'WHERE CARA200.COD_TAXA = ' + edtCodTaxa.Text + ' AND ' + 'CARA200.VAL_INIFAI = ' + FloatToStr(vValIniFai) + ' AND ' + 'CARA200.VAL_FINFAI = ' + FloatToStr(vValFinalFai) + ' ' + 'ORDER BY CARA200.DAT_VIGOR, CARA200.DAT_INCLUS DESC '; cds.Open; end; //*** Abaixo segue os campos que existem na tabela e que eu utilizo na SQL Name: COD_TAXA - FieldTipe: INTEGER - Domain:DINTEIRO Name: VAL_INIFAI - FieldTipe: DECIMAL - Domain:DECIMAL12I2D - Size: 14 - Scale: 2 Name: VAL_FINFAI - FieldTipe: DECIMAL - Domain:DECIMAL12I2D - Size: 14 - Scale: 2 Name: DAT_VIGOR - FieldTipe: DATE - Domain:DATE Name: DAT_INCLUS - FieldTipe: DATE - Domain:DATE //*** Peço por favor a ajuda de vocês Muito obrigada... bjos...

muito Obrigada... Bjuss

muito obrigada DiRaOL, mas as novidades e diferenças entre elas você ainda não sabe né? Era isso o que eu mais precisava. A versão teste eu já tinha achado, mas ainda não tinha certeza de que não havia a oficial ainda. Brigada mesmo.... Bjimm

Olá... eu queria saber sobre o Firebird 2.0. As versões novas são todas de teste? Quais são as diferenças e novidades? Eu uso o 1.5. Mudou mta coisa? Poderiam me ajudar? Se já tiver saído a versão oficial, por favor me mandem o site pra eu baixar... Bjuss

Bom ele tinha buscado de outra tabela para aquela... entaum na SQL tinha sim o arquivo.... Mas não tem problema mais não... Um colega meu procurou em um site e achou um jeito pra eu mudar na sql mesmo, sem precisar de fazer arquivo de trabalho.. Já está tudo resolvido.... o comando foi... -> FIRST m SKIP n, onde m é o número de arquivos que eu queru buscar e n é de onde vai começar a pegar os arquivos... Ex: SELECT FIRST 20 SKIP 0 FROM TABELA WHERE COD_DIGITADO = COD_TABELA DESCENDING Muito obrigada pela colaboração.... Bjim... :)

:huh: Aiai... o LIMIT também não funciona.. não sei mais o que faço.... Eu uso o BD Firebird, mas não sei direito qual linguagem de SQL é.... Bom... eu uso o Delphi 7....estou pensando em fazer por arquivo de trabalho (movendo os ultimos 20 campos campos da tabela para outra auxiliar, usando um for para contar os vinte), mas não está dando certo.. Olha só... with (FdmList.Objects[FdmList.IndexOf('SGEM010')] as Tdm) do begin cds.Close; cds.CommandText := 'SELECT M010.SER_DOCUM, M010.NUM_DOCUM, M010.DAT_EMISS, M010.VLT_DOCUM, M010.DAT_CANCEL, A300.DES_TIPDOC, A440.DES_OPERAC, VENDEDOR.NOM_ENTID, M010.COD_ENTEMI, M010.COD_TIPDOC ' + 'FROM SGEM010 M010 ' + 'INNER JOIN SGEA001 CLIENTE ON SGEA001.COD_ENTID = M010.COD_ENTCLI ' + 'INNER JOIN SGEM012 M012 ON M012.COD_ENTEMI = M010.COD_ENTEMI AND ' + 'M012.COD_TIPDOC = M010.COD_TIPDOC AND ' + 'M012.SER_DOCUM = M010.SER_DOCUM AND ' + 'M012.NUM_DOCUM = M010.NUM_DOCUM ' + 'INNER JOIN SGEA001 VENDEDOR ON SGEA001.COD_ENTID = M012.COD_VENDED ' + 'INNER JOIN SGEA440 A440 ON A440.COD_OPERAC = M010.COD_OPERAC ' + 'INNER JOIN SGEA300 A300 ON A300.COD_TIPDOC = M010.COD_TIPDOC ' + 'WHERE M010.COD_ENTCLI = ' + edtCodEntid.Text + 'ORDER BY M010.DAT_EMISS DESCENDING'; cds.Open; cds.First; for i := 1 to 20 do begin with (FdmList.Objects[FdmList.IndexOf('SGEM010A')] as Tdm) do begin //(auxiliar) cds.Insert; cds.FieldByName('COD_ENTEMI').Value := (FdmList.Objects[FdmList.IndexOf('SGEM010')] as Tdm).cds.FieldByName('COD_ENTEMI').Value; cds.FieldByName('COD_TIPDOC').Value := (FdmList.Objects[FdmList.IndexOf('SGEM010')] as Tdm).cds.FieldByName('COD_TIPDOC').Value; cds.FieldByName('SER_DOCUM' ).Value := (FdmList.Objects[FdmList.IndexOf('SGEM010')] as Tdm).cds.FieldByName('SER_DOCUM').Value; cds.FieldByName('NUM_DOCUM' ).Value := (FdmList.Objects[FdmList.IndexOf('SGEM010')] as Tdm).cds.FieldByName('NUM_DOCUM').Value; cds.FieldByName('DES_TIPDOC').Value := (FdmList.Objects[FdmList.IndexOf('SGEM010')] as Tdm).cds.FieldByName('DES_TIPDOC').Value; cds.FieldByName('DES_OPERAC').Value := (FdmList.Objects[FdmList.IndexOf('SGEM010')] as Tdm).cds.FieldByName('DES_OPERAC').Value; cds.FieldByName('DAT_EMISS' ).Value := (FdmList.Objects[FdmList.IndexOf('SGEM010')] as Tdm).cds.FieldByName('DAT_EMISS').Value; cds.FieldByName('VLT_DOCUM' ).Value := (FdmList.Objects[FdmList.IndexOf('SGEM010')] as Tdm).cds.FieldByName('VLT_DOCUM').Value; cds.FieldByName('DAT_CANCEL').Value := (FdmList.Objects[FdmList.IndexOf('SGEM010')] as Tdm).cds.FieldByName('DAT_CANCEL').Value; cds.FieldByName('NOM_ENTID' ).Value := (FdmList.Objects[FdmList.IndexOf('SGEM010')] as Tdm).cds.FieldByName('NOM_ENTID').Value; erro := cds.ApplyUpdates(-1); if erro = 0 then (FdmList.Objects[FdmList.IndexOf('SGEM010')] as Tdm).cds.Next else Break; end; end; end; Ele sempre pára quando vai inserir o DES_TIPDOC, pois não é da tabela SGEM010.... nem sei mais o que fazer... também não sei se meu código está certo.... Muito Obrigada..... Bjussss

:) Olá, eu queria saber como faço para selecionar os últimos 20 registos de um arquivo em uma sql. Por exemplo, as 20 ultimas notas fiscais de um cliente... Obs.: não tem como usar o TOP pois meu bd não suporta... Será que teria outra alternativa??? Uso o Firebird e Interbase (IB Expert) Obrigada....