Manejo de Fechas de vencimiento en delphi 7

[luisraad]

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

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

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]

listo de todas maneras gracias

un saludo desde colombia!!

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