valSistemasDelphi

Valeu ai jhonas pela resposta. Resolvi ficar só pelo Memo mesmo, pois fica ate mais prático. Surgiu uma dúvida aqui no meu memo tem como por exemplo aparecer os preços dos produtos com seus respectivos Nomes dos Produtos. Eu consegui que ele visualizasse todo os produtos vendidos mais ainda não consegui que ele visualizasse os preços. Temtei fazer aqui só que sempre da erro de String For Integer; Tem como resolver isto. (Desculpe se estou fugindo um pouco do assunto proposto pelo Tópico).

Tenho no meu sistema um Memo onde registra todas as vendas onde faço no caixa. Tenho um SpeedButton. > Finalizar onde Manda tudo que e vendido para o Memo, Neste SpeedButton Tem um Código "arq: textfile"; Onde em um Diretório Definido salva as vendas. Queria saber se tem como a cada venda que eu finalizar ele criar um novo Arquivo Txt. Assim eu visualizo cada venda feita. agradeço Desde já a quem poder me ajudar. O código que estou usando e este... var arq: textfile; begin try begin assignfile(Arq,'E:\ProjetoCadastro\Nova Lanchonete.txt'); rewrite(Arq); ////// Arquivos para Registrar no memo.... end; end; finally; end;

Beleza Jhonas valeu deu certo com o panel. Problema resolvido.

Fiz uma modificação extrema no meu caixa do meu sistema que estou Desenvolvendo. tenho form onde eu escolho a mesa que está ocupada, por um cliente. Eu pensei em colocar um Tradio button com um código para colorir este Botão de vermelho ou outro,simbolizando que a mesa esta ocupada, Mais não tenho certeza se tem como fazer isso fiz pesquisa na Net e não encontrei até agora nada que podesse me ajudar. E nem tenho certeza se pode ser feito isto num Speedbutton ou em outro..Quem poder me ajudar a respeito disto, desde já agradeço.

Obrigado por responder jhonas. Sim entendi seu raciocínio. Para incluir uma nova venda eu optei por fazer um button com o código de Edit . Para que a tabela entre em modo de edição. Assim eu consigo acrescentar uma nova venda. Mais isto só funciona quando e feita no próprio form do Caixa_Venda. Montei outro Form para que ficasse na parte visual mais agradavel ,mais não da certo porque estou usando DbLookupComboBox, ai quando escolho um novo produto para que seja somado com o outro total bagunça tudo porque esta cetado na mesma tabela do banco. Não tenho certeza se estou fazendo da maneira mais correta, mais e o que eu consegui fazer até aqui. Se poder me passar algumas dicas de como posso organizar bem estruturado meu Form do caixa, fico grato. Desculpe se não fui muito claro.

Estou desenvolvendo um sistema de controle de lanchonete. Estou com uma dúvida no meu caixa_Venda. Faço todas as vendas normalmente. Tenho 3 DbLookupComBoBox. Onde escolho os produtos da escolha da compra do cliente, entre> Lanches > Bebidas > e outros. Setei cada um com os preços, onde os mesmos caem automaticamente nos edits. Tenho mais três edits onde possso colocar a real quantidade da vendas. Soma o total, calcula o troco normalmente. A minha dúvida e na questão de acrescentar mais alguma venda no mesmo código da venda. ou seja somar o total da venda anterior com o total de uma nova venda e ai por diante.Fiz um código para ele editar a tabela, só que ele não soma com uma nova venda que eu fizer.Preciso de uma ajuda sobre o assunto. Desculpe se não fui bem claro.Se poder Me ajudar a respeito do assunto desde já agradeço.

Obrigado pela ajuda jhonas agora consegui resolver meu problema. Valeu Por Enquanto. Coloquei o Código que você descreveu e esta editando normalmente. Edit1.Text := qry.FieldByName('<nome do teu campo>').AsString;

um para alterar um registro escolhido Isto que esta ocorrendo Jhonas. quando eu seleciono um arquivo no dbgrid e clico no button Editar Ele muda o arquivo para o ultimo arquivo que alterei e só fica nisso. este erro so acontece quando o evento DBGrid1DrawColumnCel esta ativado. So da certo quando o evento DBGrid1DrawColumnCel não esta ativado. Se tiver um jeito de resolver ista questão agradeço.

Jhonas consegui achar o problema. No evento DBGrid1DrawColumnCel vinculei todos os edits do form para que apareça os dados do dbgrid nos mesmos. Desabilitei o evento e esta editando sem problemas.. O código e este. Edit1.Text := Form18.IBTable1.FieldByname('Nome').AsString; Não estou colando mais nenhum outro código no evento, esta faltando mais alguma coisa? Se poder tirar esta duvida

Tenho um Button Para Editar Arquivos no banco de dados. E uso outro com o código (Post) para Consolidar a alteração. O problema está quando vou alterar outro arquivo por exemplo um nome de uma pessoa que está na grid. Seleciono o nome no DbGrid e clico em Editar invés dele aparecer o nome que eu selecionei ele sempre visualiza o nome da ultima Alteração que fiz. já tentei Ativar o banco Desativar e nada, Se poder me ajudar sobre isto. desde já agradeço.

Olá jhonas consegui resolver. O meu problema era no banco de dados o meu campo total estava declarado como VarChar, por isso que ele não somava.. Mudei para DOUBLE PRECISION, e resolveu meu problema.

Tenho valores que estão Armazenados em um Dbgrid. Preciso soma-los todos os valores e passar o total para um edit. E visualizalar em um FrxReport. No banco de dados o Campo Total esta declaro como VARCHAR.. Tentei fazer a conversão mais sempre da erro.

Tenho 2 TDatePicker aqui no meu sistema Que consulta DataInicial e DataFinal perfeitamente quando digitadas.Só que se eu colocar qualquer data que não foi cadastrada de venda ele exibe do mesmo jeito. quero saber se tem alguma forma de resolver este (Empasse).

Resolvido..

jhonas valeu resolveu o problema .. C: \ Arquivos de Programas (x86) \ Embarcadero \ RAD Studio \ 9.0 \ binrenomear ... startpageide160.bpl para startpageide160_NOLOAD.bpl

toda vez que abro o delphi aparece a seguinte mensagem Embarcadero.Create; Please Wait... Ai depois aparece "Display Notification: Espaço insuficiente na pilha. E não funciona nada tudo trava... Quem poder me ajudar sobre isto.

beleza jhonas

Jhonas ate agora não consegui resolver os problemas do TDateTimerPicker... tenho dois TDateTimerPicker Data inicial e outro para data final... E um button que monstra o relatório de vendas entre as datas. jhonas tenho um código em sql.. tem como eu mudar ele aqui para Ibtable por exemplo. DEsde já agradeço pela ajuda.. inicio : string [60]; final : string [60]; end; if (PorData.Checked=true) then begin If TDateTimePicker2.Date < TDateTimePicker1.Date Then begin ShowMessage('Intervalo de datas inválido, a data inicial é maior que a data final!'); TDateTimePicker2.Date := TDateTimePicker1.Date; end Else begin Inicio := DateToStr(DateTimePicker1.Date); Final := DateToStr(DateTimePicker2.Date); edit1.text:= inicio; edit2.Text:= final; Query1.Close; Query1.SQL.Clear; Query1.SQL.Text := 'SELECT Data, Num_veiculo, Placa, Km FROM bdgeral '+ 'WHERE Data >= DateToStr(INICIO) and data <= DateToStr(FINAL) ORDER BY Data'; Query1.Prepare; Query1.Open; DBGrid1.SetFocus

Valeu ai jhonas pela ajuda.. Consegui resolver de certa parte da seguinte maneira Form4.IbTable1.IndexFieldNames :='COD_PRODUTO'; ele fica em ordem quando eu clico no button onde está o código mais se eu fechar em abrir o formulário ele fica bagunçado.Só arruma quando clico no button e ele le o código.. será que falta mais o que um insert por exemplo o um post no final.

Jhonas deixa eu tirar uma dúvida .. Criei um código que ele filtra a data vendida por exemplo hoje. para ser visualizado no relatório. Visualiza as datas normalmente so que quando eu vo la no meu caixa no dbgrid a data que ele filtrou la no banco de dados fica como sendo a primeira... por exemplo Registro 1,2,3.. Ai eu faço uma venda hoje ai ele cria o registro 4... depois volto na tela do caixa no dbgrid Fica assim Registros 4,1,2,3.. Ele modifica o registro se poder me ajudar...

Obrigado ai jhonas deu certo.. Aprendi mais uma valeu!!

Jhonas apaguei aqui no meu sistema um Ibtable que eu tinha colocado por que vi que não necessitava.. ai salvei beleza. Só que quando copilo a aplicação. a aplicação inicia meio que travado. Aplicação entra na tela principal do sistema ate ai tudo bem. Só que quando faço qualquer manipulação no sistema fica tudo que meio travado ta funcionando a aplicação so que meio travado... E aparece esse evento em vermelho quando a aplicação e iniciada Module Load: UNKNOWN_MODULE_10. No Debug Info. Base Address: $721D0000. Process Project1.exe (6468).. Queria saber se tem como eu restaurar meu projeto ate onde eu fiz a modificação.. Desde já agradeço pela resposta.

Eu estou usando somente um campo chamado "Total", e para ele somar Total com Total. Será que tem alguma lógica válida nisto..??

Jhonas estou fazendo da seguinte maneira e ate agora não deu certo.. Estou pegando os valores do caixa.Do campo Total no relatório adicionei um sumary e um system text. E coloquei a seguinte função [(Sum(<frxDBDataset1."Total">,MasterData1))] mais ele não soma ele apenas junta os valores.. Por exemplo no registro 1 tem 45 no registro 2 tem 45 invés de ele somar ele ajunta 4545. Se poder me ajudar..

iae.. Jhonas estou com um problema aqui no meu FRXReport... Todas as vendas do meu caixa está sendo visualizadas em forma de relatório até ai tudo bem. os registros estão em sequência corretamente.. Só que quando chega no 17º registro quando fecho e abro de novo o relatório os registros estão todos bagunçados entendeu.. Se poder explicar porque está acontecendo isso eu agradeço..