Manejo de Fechas de vencimiento en delphi 7

[[Caral]]

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 Noteví]

Empezado por Caral

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]

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]]

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 Noteví]

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]

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... es solo aprender pero se que lograre entender ese codigo

[[Caral]]

Hola
Si te lo hago no aprendes.
Usa la lógica:
1- Para guardar datos se necesita que la tabla este abierta (correcto)?.
2- Para ver si existe algún dato o si es igual también se necesita que la tabla este abierta (correcto)?.
3- Para guardar (con un table) se hace un post con la tabla abierta (correcto) ?.
Es necesario cerrar la tabla en algún momento de estos tres puntos ??????????????.
Necesitas cerrar la Tabla
Saludos

[luisraad]

haber moderador si pregunto eso es porque en el manejo de la fecha de la aplicacion que le made a caral ayer esta lo que pregunto hoy pero no hay problema yo abro otro hilo... por eso no hay problema soy novato no entiendo casi el manejo delos foros... si tan solo hubiese una guia yo no cometiera errores

[[Caral]]

Hola
Aqui
Saludos