Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Manejo de Fechas de vencimiento en delphi 7 (https://www.clubdelphi.com/foros/showthread.php?t=75765)

Caral 18-09-2011 02:42:00

Hola
Bien, dame un minuto.
Saludos

Caral 18-09-2011 02:57:23

Hola
Bien tenemos un datetimepicker.
Tenemos un edit
Tenemos un dbgrid.
El datetimePicker da la fecha, el edit indica cuantos se han vencido, osea, el edit indicara una fecha menor.
Se presiona el boton y lo muestra, es asi o no?
Saludos

Caral 18-09-2011 03:04:53

Hola
A ver asi, revisa el programa y me dices.
Saludos

luisraad 18-09-2011 03:36:01

listo no hay problema, espero no te quite demasiado tiempo...

saludos

luisraad 18-09-2011 04:03:11

Ya lo compile me dio un error la parte del tatetimepicker pero ya se soluciono, algo de que no es valido algo de integer, bueno segun lo que entiendo de aqui es que verifico por el codigo que medicamento expira cuando le digito el codigo. Bueno seria genial si en vez de ingresar el codigo del medicamento mejor le ponemos los dias antes de su vencimiento o sea que en el edit donde coloco el codigo mejor sean los dias ejemplo

listeme los productos que se vencen dentro de X dias y el los muestra en el DBGRid

entonces partimos de que tengo un error enorme en el ingreso de la fecha de vencimiento del producto porque en vez de tener un datetimepicker tengo es un edit, y el campo en la BD es tipo texto, no quiero confundirte pero en verdad seria bueno listar los medicamentos digitando los dias y que los muestre segun lo que el usuario le indique... entonces puedes con toda libetad quitar cualquier boton o edit qe creas que no va.. yo pretendo aprender tu metodo de manera menos complejo a la que me enseña el tutor de paso te doy puntos

luisraad 18-09-2011 04:05:38

tampoco pretendo que me lo hagas, simplemente es un codigo base que me servira de referencia y asi los demas que vean este foro tambien aprendan a hacerlo de esta manera, perdon tanta molestia :D ero soy novato ((bien novato))

Caral 18-09-2011 04:14:53

Hola
No entiendo lo que quieres hacer
Saludos

Caral 18-09-2011 04:21:13

Hola
El programa tiene un datetimepicker que contiene la fecha de hoy.
Tiene un edit que sirve para buscar por codigo O por fecha.
Tiene dos botones.
1- busca por fecha
2- Busca por codigo
Siempre con el mismo edit.
Ejemplo:
Si pones el numero 1 y presionas el boton (buscar segun edit) te mostrara los productos que se vencieron en esa fecha.
Revisa bien el codigo, es muy sencillo.
Saludos

luisraad 18-09-2011 04:26:38

ahhhhhhhhhhhhhh ya ok bueno amigo cuando selecciono el dia 15 del datetimepicker me arroja el siguiente error ((posteo la imagen para que veas mas o menos)) cuando doy clic para buscar segun edit el otro no da error

saludos

Caral 18-09-2011 04:33:21

Hola
Voy a tratar de explicarme, ya estoy algo cansado, es la hora, disculpa.
El programa tiene un DateTimePicker que muestra una fecha.
Tiene un edit y un boton.
Si se pone, por ejemplo el numero 1 en el edit y se presiona el boton buscar segun edit, mostrara los productos que se vencieron de la fecha del datetimepicker 1 dia menos, osea, si hoy es 9/17/2011 y pusiste el numero 1, buscara en la fecha 9/16/2011.
Este mismo edit sirve para buscar por codigo, solo que presionaras el boton verificar codigo.
Espero lo entiendas amigo.
Saludos

luisraad 18-09-2011 04:35:05

ma imagen es muy pesada te digo lo del mensaje de errror:
Econverter error whit message ''is not valid a integer value'' process sopped

Caral 18-09-2011 04:37:14

Hola
El error lo dice todo.
No es un valor integer, por que?, muy simple, NO estas poniendo ningun dato en el EDIT.
Revisa mi post anterior, se explica bien.
Saludos

Caral 18-09-2011 04:45:27

Hola
Hay muchas maneras de hacer lo que quieres, la verdad es que es tan sencillo que estoy seguro que lo vas a entender muy pronto.
Por hoy ya estoy cansado, si tienes algo mas mañana lo veo.
Saludos

luisraad 18-09-2011 04:57:46

listo de todas maneras gracias

un saludo desde colombia!!

Caral 18-09-2011 15:06:39

Hola
Aquí te dejo otro ejemplo.
Corre el programa y presiona el botón Buscar.
Te dará varias opciones, escoge la que quieras.
Buscar Medicamentos Vencidos (por días).
Buscar Medicamentos POR vencer (por días).
Buscar Por código de medicamento.
Todo con el mismo edit1.
Creo que esta bien explicado.
Saludos

Casimiro Notevi 18-09-2011 16:26:48

Cita:

Empezado por Caral (Mensaje 412520)
Hola
Aquí te dejo otro ejemplo.
Corre el programa y presiona el botón Buscar.
Te dará varias opciones, escoge la que quieras.
Buscar Medicamentos Vencidos (por días).
Buscar Medicamentos POR vencer (por días).
Buscar Por código de medicamento.
Todo con el mismo edit1.
Creo que esta bien explicado.
Saludos

No se puede pedir más :)

luisraad 18-09-2011 20:33:29

buenas tardes muchacho caral como estas?, bueno agradezco muchoo la ayuda proporcionada... en verdad aclaré muchisimas dudas que tenia..

tengo otra consulta que hacerles. no se si deba abrir otro hilo o seguimos aqui!.

el caso es que en la misma forma de donde estamos trabajando lo de las fechas, tengo un codigo que utilizo para insertar o mejor dicho guardar productos en la tabla MEDICAMENTOS...

Código Delphi [-]
 
var
  c:string;
begin
  if not adotable1.locate('COD',c,[])then
  ADOTable1.Open;
  begin
   if (LabeledEdit2.text <> '') then
   begin
   adotable1.Insert;
   ADOTable1.FieldByName('COD').AsString:=(LabeledEdit1.Text);
   ADOTable1.FieldByName('NOMBRE').AsString:=(LabeledEdit2.Text);
   ADOTable1.FieldByName('F_CADUCIDAD').AsDateTime:=strtodate(LabeledEdit3.text);
   ADOTable1.Post;
   ADOTable1.Close;
   Application.MessageBox('Todos Los Datos Han Sido Almacenados Correctamente','FarmaSoft',MB_OK);
   LabeledEdit1.clear;
   LabeledEdit2.clear;
   LabeledEdit3.clear;
   LabeledEdit1.setfocus;
   end;
   end;
end;

el caso es que me guarda los productos pero al intentar insertar otro me da un error que se refiere a que la tabla no esta en modo insert, y otras veces dice que el Table esta abierto process stopped etc...

segun lo que logro entender es que la tabla debe ser cerrada cuando termino de insertar el primer producto luego debe abrirse de nuevo para insertar otro producto y asi sucesivamente..
spero me hayan entendido ((revisen el codigo que acabo de postear haber si le falta algo))

saludos

Caral 18-09-2011 20:37:35

Hola
Segun lo que veo:
Haces una localizacion del codgo, si no esta, osea, si no es repetido entonces abre la tabla he inserta los datos.
Es asi?.
Saludos

Casimiro Notevi 18-09-2011 20:45:54

Por favor, preguntas distintas en hilos distintos ;)
Y estaría bien saber qué resultados has obtenidos con la ayuda de Caral, si ya te funciona, si lo has aclarado, etc.

luisraad 18-09-2011 20:50:08

supuestamente si asi debe ser....

el si no localiza el codigo debe guardar todos los otros campos ((creo que ese if not locate)) no debe ir alli, la idea es que quiero que guarde los productos y posteriormente permita guardar mas de manera indeterminada, pero asi como lo diseño yo según mi tutor esta bien pero se que no porque este no deberia dar error, caral si te fijas en la aplicacion que postie ayer te vas a dar cuenta que al insertar un nuevo medicamento en donde dice inserte cod, igrese nombre, ingrese fecha de caducidad, cuando presionas ingresar dice "todos los datos han sido almacenados", pero al dar clic en aceptar salta el error y no guarda... :mad: es solo aprender pero se que lograre entender ese codigo:)


La franja horaria es GMT +2. Ahora son las 14:38:30.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi