
flavioavilela
Membros-
Total de itens
375 -
Registro em
-
Última visita
Tudo que flavioavilela postou
-
galera, é o seguinte: eu tenho em meu sistema uma janela que crio etiquetas.... tudo está funcionando perfeitamente, ele imprimi todos os itens q eu coloco pra imprimir e etc.... porém, acontece uma coisa: o cliente que usa esse sistema, comprou umas folhas pra etiqueta meio fora do padrão rsrsrs, é 24cm x 30,40cm... ou seja, muito maior q as medidas de A4 ou Carta... logo, na impressora LX-300( que ele tem claro rsrs) não aceita esse tamanho de papel com essas medidas. então, pesquisei na internet e baixei um driver genérico pra essa impressora que aceita personalizar o papel com maiores medidas. Ai, quase perfeito. Só não está perfeito rsrs, porque na hora de imprimir as etiquetas, ele corta um pedaço da primeira linha, lá em cima da página e um pedaço de baixo, lá no finalzinho.... ou seja, é como se a margem do papel começasse e terminasse naquele lugar que ele cortou um pedaço. Mas, eu já fui nas configurações do windows e configurei perfeitamente o tamanho do papel. No meu sistema, eu configurei as margens de acordo com o papel saca, medi perfeitamente tanto superior, inferior, distancias entre cada uma e etc.... mas, continua com esse pequeno problema.... quando eu imprimo em outra impressora, funciona perfeitamente.... só na LX-300 que da esse probleminha. E tudo está devidamente configurado. Ah, e eu ponho a LX-300 pra puxar o papel sem o trassionador, como se fosse numa impressora inkjet... se por no trassionador, ai que desconfigura baum as etiquetas, ai não sai nada configurado..... o que pode estar acontecendo?? e o que poderia ser feito pra solucionar isso????
-
FormatFloat depois tirar formatação pra salvar
pergunta respondeu ao flavioavilela de flavioavilela em Delphi, Kylix
cara, tive testando aqui mais vezes, alterei algumas coisinhas aqui e funcionou beleza agora... agora, todas as possiblidades funcionam..... vlw demais amigo, vlw pela sua paciencia.... -
beleza... que bom q deu certo...
-
e ai amigo, beleza? supondo que você digita o código do contato dentro de uma caixa texto que está no formulário callcenter, ao digitar o código do contrato e teclar Enter..... coloque isso no evento KeyDown da caixa texto.... experimenta fazer isso aqui: if (key = vk_return) then begin if querycallcenter.Locate('Codigo_Contrato', EdtCodigo.Text,[]) then begin Edit1.Text:= queryNome.Value; Edit2.Text:= queryAlgumaCoisa.Value; end; end;
-
FormatFloat depois tirar formatação pra salvar
pergunta respondeu ao flavioavilela de flavioavilela em Delphi, Kylix
opaaaaaaaa.... tava fazendo uns testes aqui, só pra garantir...... na caixa texto valor total minha aqui, surgiu um valor como 1.250,00...... eu fiz conforme vocês disseram quanto ao ThousandSeparator e o delphi tornou a dizer que não é um valor de ponto flutuante valido....... massss, quando eu salvo só um valor sem milhar, tipo, 520,00 ai salva beleza.... entendem???? o que é isso.... não da pra entender..... -
FormatFloat depois tirar formatação pra salvar
pergunta respondeu ao flavioavilela de flavioavilela em Delphi, Kylix
grande Micheus e Luis Ricardo... o trem funcionou aqui sim com esse ThousandSeparator... mas, você poderia me explicar porque q deu certo??? porque, eu mesmo não entendi ql a finalidade disso rsrsrs -
FormatFloat depois tirar formatação pra salvar
pergunta respondeu ao flavioavilela de flavioavilela em Delphi, Kylix
ae galera... td beleza com vocês? desculpe a demora em responder, é q estou bastante ocupado ultimamente, mas hj a noite irei fazer alguns testes com as dicas que vocês me passaram e a noite mesmo responderei se deu certo ou não... vlw pela ajuda de vocês... -
FormatFloat depois tirar formatação pra salvar
pergunta respondeu ao flavioavilela de flavioavilela em Delphi, Kylix
certo... ele da erro nas caixas texto... por exemplo, eu tenho a caixa texto valor_venda, quantidade, desconto e total.... ele da erro primeiro na valor_venda, se eu voltar lá e alterar o valor manualmente, tirando a , ou o ., ele passa o erro pra quantidade.... ai eu vou e tiro a virgula manualmente, vai pro desconto e ai vai.... ou seja, ele não aceita salvar o . ou a ,... e quando eu trato ele, tirando a , e o ., ele interpreta como sendo, por exemplo, 25,00 -> 2500... ai da zebra... -
FormatFloat depois tirar formatação pra salvar
pergunta respondeu ao flavioavilela de flavioavilela em Delphi, Kylix
certo.... então, abaixo segue o código que estou fazendo a conversão: procedure TFrmVendas_Balcao.EdtSub_TotalKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var strv, strq, strs: string; begin if (Key = VK_Return) then begin with DM.SPItens_Venda_Balcao do begin try Params[1].AsInteger:= 1; Params[2].AsInteger:= StrToInt(EdtCodigo_Registro.Text); Params[3].AsInteger:= StrToInt(EdtN_Pedido.Text); Params[4].AsString:= EdtCodigo.Text; Params[5].AsString:= EdtNome.Text; Strv:= StringReplace(EdtValor_Venda.Text, '.','', [rfReplaceAll]); Strv:= StringReplace(Strv, ',', '.', [rfReplaceAll]); Params[6].AsFloat:= StrtoFloat(strv); Params[7].AsFloat:= StrtoFloat(EdtDesconto.Text); Strq:= StringReplace(EdtQuantidade.Text, '.','', [rfReplaceAll]); Strq:= StringReplace(Strq, ',', '.', [rfReplaceAll]); Params[8].AsFloat:= StrtoFloat(strq); Strs:= StringReplace(EdtSub_Total.Text, '.', '', [rfReplaceAll]); Strs:= StringReplace(strs, ',', '.', [rfReplaceAll]); Params[9].AsFloat:= StrtoFloat(strs); ExecProc; DM.qry_itensbalcao.Close; DM.qry_itensbalcao.SQL.Clear; DM.qry_itensbalcao.SQL.Add ('select * from Itens_Venda_Balcao where N_Pedido = '+ EdtN_Pedido.Text); dm.qry_itensbalcao.RequestLive:= true; DM.qry_itensbalcao.Open; Application.MessageBox('Produtos inseridos com sucesso.', 'Inclusão realizada com sucesso', MB_ICONQUESTION+MB_OK); TlbBtnRemover_Produtos.Enabled:= true; TlbBtnAtualizar_Estoque.Enabled:= true; BBtnSalvar.Enabled:= true; EdtCodigo.Clear; EdtNome.Clear; EdtQuantidade.Clear; EdtDesconto.Clear; EdtValor_Venda.Clear; EdtCodigo.SetFocus; subtotalpecas:= StrToFloat(EdtSub_Total.Text); totalgeral:= StrtoFloat(EdtValor_Total.Text); somapecas:= subtotalpecas + totalgeral; EdtValor_Total.Text:= FormatFloat('##,###,##0.00', somapecas); except ShowMessage('Há dados incorretos.'); end; end; end; end; e agora, a mensagem de erro em ingles. 'Project Proj.União.exe raised exception class EConvertError with message "10.20" is a not valid floating point value'....... e esse é o código que estou utilizando para poder formatar, assim que pressionar enter dentro da caixa texto... procedure TFrmVendas_Balcao.EdtValor_VendaKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key = vk_return) then EdtValor_Venda.Text:= FormatFloat('#,##.00', StrtoFloat(EdtValor_Venda.Text)); end; -
FormatFloat depois tirar formatação pra salvar
pergunta respondeu ao flavioavilela de flavioavilela em Delphi, Kylix
certo... entendi perfeitamente... só que, ao trocar o ponto por nada e virgula por ponto, por exemplo, eu digitei o número 25 em uma caixa texto, dei enter ficou 25,00.... antes de salvar, eu tiro a formatação, como você me explicou... ai fica 25.00... ai mando salvar... ai da erro no bd, falando que não é um ponto flutuante correto... e se eu tirar a formatação por completa, como já disse, fica 2500 (dois mil e quinhentos) ai da zebra...... meu bd e sqlserver e o campo no bd está configurado como Numeric(15,2)... já tentei por float e também não funfou............ o que fazer??? -
(Resolvido) campo numeric sqlserver 2005
pergunta respondeu ao flavioavilela de flavioavilela em Delphi, Kylix
funfou beleza meu amigão... vlw demais... só estou com outro probleminha.... deixei outro tópico aqui no forum rsrs... vlw -
galera, é o seguinte: estou usando o formatfloat pra formatar uns campos que tenho aqui.... beleza... eu digito um número, pressiono enter e funciona beleza.... formata como eu quero.... só que, quando eu vou salvar, eu preciso tirar a formatação, pois o bd não aceita (meu bd é o sqlserver)... só que, por exemplo, quando eu mando tirar a formatação pra salvar, por exemplo que em uma caixa texto eu digitei 5, pressionei enter ele faz 5,00... quando eu tiro a formatação pra salvar, ele salva como 500(quinhentos)... ai, quando eu utilizo esses números pra fazer umas contas aqui, ele entendi que é 500 e não 5............... o que fazer neste caso?????? para tirar a formatação estou utilizando StringReplace(Edit1.text, '.', '', [rfReplaceAll]) e StringReplace(Edit1.text, ',','', [rfReplaceAll])............. removo a , e o . ..... alguém pode me dar uma luz nisso ai?????
-
a sim, entendi.... tipo assim, você quer dizer então que, em modo geral, deve-se calcular precisamente qual é o valor exato da distancia entre uma e outra etiqueta e da altura delas também, pois, a diferença quase que imperceptivel, somando-se até a linha 16 por exemplo, daria uma diferença já considerável... é isso?????? e tem outra forma de fazer esses relatórios de etiquetas, sem ser pelo quickreport? qual outra ferramenta você me indicaria que não daria tanta complicação???
-
(Resolvido) campo numeric sqlserver 2005
pergunta respondeu ao flavioavilela de flavioavilela em Delphi, Kylix
bom dia micheus, obrigado pela sua força em me ajudar, mas não funcionou... eu estou utilizando um edit normal mesmo saca, da paleta standard e em seu evento OnExit estou fazendo assim: e não está funcionando... já esperimentei colocar o FloatFloat('#,##0.00', StrtoFloat(Edtvalor_venda.text); mas não adiantou também... -
(Resolvido) campo numeric sqlserver 2005
pergunta respondeu ao flavioavilela de flavioavilela em Delphi, Kylix
certo... a parte do campo numeric entendi... agora, só uma coisa... eu quero assim, por exemplo, o cara digita um valor em uma caixa texto, por exemplo: Quantidade Valor Unitário Total 5 3 15 e sair Quantidade Valor Unitário Total 5,0 3,00 15,00 ou seja, não estou buscando nada no bd.... o foco para na caixa texto, a pessoa digita um número e da enter, já sai configurado com a , e com os zeros.... eu tentei fazer esse esquema ai do FloatoStrF mas parece que não quis funcionar.... o que poderia ser feito??? -
galera, gostaria apenas de uma explicação... eu tenho no meu bd, que é em sqlserver 2005, um campo do tipo float... quando eu mando salvar no delphi, por exemplo, um valor 300,00 ele não aceita... ai tive estudando em uns foruns ai, e vi que para salvar isso que quero, teria que usar esse campo numeric.... seria isso mesmo??? e, como faço para poder formatar o campo que eu digitar, por exemplo, o valor 300 e ao receber ou perder o foco, ele formatar para 300,00 com cifrão ou sem cifrão???? desde já, agradeço a atenção de todos...
-
Salve galera do forum... é o seguinte: eu fiz em meu sistema uma rotina para imprimir etiquetas... aparentemente está funcionando perfeitamente... informo os dados que quero imprimir, mando dar o preview do quickreport, aparece lá todos os dados que eu quero imprimir beleza.... o papel que estou utilizando é da polifix, com 5 colunas x linhas 18....... na hora de imprimir, ele começa imprimir beleza, todos os dados vão saindo em suas respectivas etiquetas.... só que, quando chega lá no finalzinho, lá pra 16, 17 ou 18 linha, começa a desalinhas os dados dentro de cada etiqueta...... ou seja, até a linha 15, ele imprimi os dados dentro da etiqueta beleza, apartir dai, tipo assim, parece que o carro começa a imprimir abaixo do ponto inicial de que é pra imprimir, saindo mais pra baixo, fazendo com que um pedaço dos dados saia fora da etiqueta.... e quando chega lá na metade da última etiqueta, ele já pede outro papel, ele para de imprimir e apita como se tivesse faltando papel...... obs.: fui nas configurações do papel lá na impressora e personalizei ela para o tamanho dela real, que é 24cm x 30,41cm... a lx300 não aceita esse tamanho, mas ai baixei um driver genérico que um forum me indicou ai esses dias, e aceitou o tamanho personalizado, mas parece que na hora da impressão, ele fica como se tivesse configurado outro papel, porque chega no final, ele já pede outra folha...!!!!! Alguém pode me ajudar????? O que devo fazer??????? Desde já agradeço a atenção de vocês...
-
e em qual evento eu coloco isso???
-
e qual componente seria esse??? precisa de um componente específico para aparecer na barra de tarefas??
-
(Resolvido) Alterar Imagem Formulário
pergunta respondeu ao flavioavilela de flavioavilela em Delphi, Kylix
beleza meu lider... funfou beleza... vlw demais pela ajuda... -
galera, é o seguinte: em meu sistema, tem uma tela de Menu Geral, que é a tela principal do programa.. gostaria que, assim que a pessoa desse dois cliques no IMAGE que está lá, abrisse uma janela pra pessoa escolher uma imagem e colocar lá... e, sempre que ela saisse do sistema e logasse novamente, estivesse aquela imagem que ele(a) colocou por último, como se fosse um papel de parede do windows.... estou utilizando como banco de dados sqlserver e query da paleta BDE... desde já, agradeço a ajuda de todos...
-
bom dia meu amigo... obrigado pela sua atenção, mas andei pesquisando na internet achei umas video-aulas ensinando passo a passo a criação de etiquetas e tudo mais... justamente do mesmo jeito que preciso... mesmo assim, obrigado pela sua atenção e pela sua vontade em me ajudar...
-
ahh, só uma coisa... será que poderiamos conversar pelo MSN??? pelo que vi, você saca pra carai disso que preciso, então, se você puder me fazer esse humilde favor de me ajudar nisso, ficaria muito grato... meu MSN é flavioavilela@gmail.com....
-
Sim, diz respeito a essa propriedade page do quick report.... já configurei de acordo com o papel... Essas quantidades estao dentro de uma query... seguinte: em 3 caixas texto, eu digitio o Nome do produto, o valor e a quantidade que ele quer imprimir desse produto... assim que o cara da um ENTER na última caixa texto, que é a quantidade, automaticamente ele salva no BD que por sua vez está ligada a uma query... ou seja, essas quantidades dos produtos estao em uma query... ai, pra eu acessar essa quantidade eu faço, query1.FieldbyName('Quantidade').AsInteger... ( só um exemplo)...entendeu????
-
ok... estao vou detalhar mais... a folha das etiquetas tem exatamente 4 colunas por 20 linhas... já configurei as 4 colunas já... em relação aos dados obtidos, estou pegando ele de uma query que está ligada no BD, eu tenho uma janela que vou informando quais produtos quero com suas respectivas quantidades de vezes pra imprimir, e quando clica-se no botao imprimir, essa query já está cheia de dados a serem impressos....... mas, só uma ciosa que surgiu aqui agora: eu fiz tudo aqui, a query já está carregada com dados e tudo mais, agora, eu fiz o seguinte, coloquei um WHILE pra ir até o final da query e um FOR pra ir de 0 até a quantidade que está informada naquele produto, ou seja, um FOR dentro de um WHILE, depois, dou um NEXT pra passar pro próximo produto.... será que pensei certo??????? se pensei certo, eu coloco isso no botao imprimir ou onde coloco isso?????? OBS.: meu sistema está praticamente pronto, só falta isso para concluir e entregar pro cliente... desde já, agraço muito sua atenção....