Fórum Projeto Locação #2053
21/01/2009
0
[#VIDEO-63#]
Carlos Faria
Curtir tópico
+ 0Posts
21/01/2009
Rodrigo Mourão
Vou assistir a vídeo e retorno para você peço apenas que aguarde um pouco, no máximo hoje a noite posto a resposta para você.
Grato pela compreensão !!
abs !!!!
Gostei + 0
23/01/2009
Rodrigo Mourão
Um outro problema que encontrei foi com a versão do Delphi, você usou a 2009 e o projeto não abre no 2007. Sorte nossa ter um dproj.2007 salvo junto. Estou agora acertando alguns detalhes para a aplicação rodar.
Peço que aguarde mais um pouco pois como os três chamados abertos girar em torno do mesmo projeto e na mesma tela irei analisar linha a linha para que possa identificar as falhas e gravar uma video com a solução das mesmas.
Conto com sua compreensão. Obrigado !!!
abs !!!!!
Gostei + 0
23/01/2009
Carlos Faria
Gostei + 0
26/01/2009
Rodrigo Mourão
Peço que aguarde apenas mais um dia.
Conto com sua compreensão. Obrigado !!!
abs !!!!!
Gostei + 0
26/01/2009
Carlos Faria
Gostei + 0
26/01/2009
Rodrigo Mourão
RsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRsRs
Mas se liga já estou concluindo aqui. Me dê mais uma hora e meia e já to postando resposta para todos os chamados.
abs !!!!
Gostei + 0
27/01/2009
Carlos Faria
DMBUSCA.cdsRelRadioLocado.Open;
DMBUSCA.cdsRelRadioLocado.First;
aLstbox (TListBox).Items.Clear;
while not DMBUSCA.cdsRelRadioLocado.Eof do
begin
lstMotoqueiroRadio.Items.Add(DMBUSCA.cdsRelRadioLocado['radiomoto']);
DMBUSCA.cdsRelRadioLocado.Next; end;
end; Eu tenho essa rotina que verifica quantos radios estao locados ,e que vai ser usada em varios lugares do projeto ,porem essa rotina nao precisa de parametros apenas lista os que estao , como eu faço para nao me referir a esse listbox na unit ????? Dois chamados voce pode fechar , faltou apenas a foto e o erro que deu naquele form ?? abs
Gostei + 0
27/01/2009
Rodrigo Mourão
Ainda estou trabalhando neste chamado aqui. Observe com cuidado qual o chamado que esta respondendo. Esta sua duvida acima e referente ao chamado 2176. Sendo assim vou respondê-lo no 2176.
https://www.devmedia.com.br/consultoria/viewtopic.asp?id=2176
Tando o 2057 quanto 2176 serão encerrados !!! E em breve postarei a solução para a Foto e para este chamado aqui !!!!
Abraços !!!
Gostei + 0
29/01/2009
Rodrigo Mourão
Eu estou comproblemas aqui na minha maquina virtual, então está inviável gravar vídeo no momento. Sendo assim este chamado vou responder em texto.
Vamos lá o seu problema esta no seguinte. A Sua Rotina AtualizaLimite está com um problema pois quando o limite do usuario e menor que o proximo limite ela calcula negativo. Para Resolver é simples.Crie uma procedure naquela unit de funções desta forma:
procedure AtualizaLimite(strMatricula: String, LimiteDebito, ProxLimite, ValorPago);
A implementação fica mais ou menos assim:
procedure AtualizaLimite(strMatricula: String, LimiteDebito, ProxLimite, ValorPago);
var
Resultado, Limite, Prox, Valor: Double;
Begin
try
Limite := StrToFloat(LimiteDebito);
Prox := StrToFloat(ProxLimite);
Valor := StrToFloat(Valor);
except
end;
Resultado := Limite - Prox;
if Resultado < 0 then Resultado := 0
ChamarSuaProcedureAqui;
if Valor > 0 then lanca_caixa;
End;
Observe o seguinte: Eu passei quatro parâmetros, a matricula para você poder atualizar os saldos do funcionário. O Limite de Debito dele e o próximo limite, e o valor pago se não pagou passa zero.
Repare no Try except. Isso e para não dar aquele erro quando sai do edit e que você da strtofloat para converter porem quando esta vazio ele da erro, como vai converter vazio em inteiro? depois disso você calcula para ver se o resultado vai dar menor que zero. Se der você atribui zero a ela e ai e só chamar sua procedure passando o valor para atualizar.
Depois verifica se ele pagou algo e chama a rotina lanca_caixa.
Resumindo: faça a conta no Delphi para saber se vai dar valor negativo se der você passa zero para a sua stored procedure.
Fico no aguardo do seu retorno para podermos encerrar o chamado !!!
abs !!!
Gostei + 0
01/02/2009
Carlos Faria
Gostei + 0
02/02/2009
Rodrigo Mourão
Como lhe expliquei estou com problemas para gravar vídeos. Meu SO e Win Vista 64 e o compilador do Delphi não funciona bem em ambiente 64 por este motivo eu utilizo maquina virtual com XP. Eu tive um serio problema com minha maquina virtual que utilizo para gravar vídeo aula e responder chamado, praticamente perdi tudo e pior os arquivos de exemplos estavam lá dentro. Eu recriei a maquina e estou tentando recuperar os dados do HD virtual.
Como você fui eu tentei lhe auxiliar em texto mas entendo que com vídeo a explicação fica mais clara. Estou tentando resolver o problema o mais rápido possível para poder responder suas vídeos o mais depressa possível.
Agradeço a compreensão !!
Att
Rodrigo Carreiro Mourão
Borland Instructor Certified
Gostei + 0
03/02/2009
Rodrigo Mourão
https://www.devmedia.com.br/consultoria/viewtopic.asp?id=2334
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Gostei + 0
04/02/2009
Carlos Faria
Gostei + 0
04/02/2009
Rodrigo Mourão
O que esta no banco de dados tb_motoqueiro???? rsrsrsrs
Não entendi. Acredito que este chamado já esteja encerrado. Aguardo sua confirmação para poder encerrar !!!
abs !!!
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)