hola gente del foro, quisiera que vean este codigo porque la verdad es que es algo simple, o eso pensaba,yo tengo una tabla con los campos Fecha_pedido,Fecha_entrega,Fecha_entrega_real y Demorado
lo que nesecito hacer es listar aquellos pedidos que no tienen fecha_entrega_real osea que este campo esta vacio y que si la fecha_entrega supera a la fecha actual me agregue la palabra "SI" en el campo demorado, este es el codigo que use, la tabla se recorre pero no entra por el if de fecha=null
Código Delphi
[-]procedure TForm20.Button1Click(Sender: TObject); begin form1.Table6.First;
while not form1.Table6.Eof do begin
if (form1.table6.FieldByName('Fecha_entrega_real').AsDateTime=null and form1.table6.FieldByName('Fecha_entrega').AsDateTime>date) then begin
form1.table6.Edit;
form1.table6.FieldByName('Demorado').AsString:='SI';
form1.table6.Post;
form1.table6.Next;
end
else
if form1.table6.FieldByName('Fecha_entrega').AsDateTime<=date() then begin
form1.table6.Edit; form1.table6.FieldByName('Demorado').AsString:='NO';
form1.table6.Post; form1.table6.Next; end; end else
form1.table6.Next;
end;
end;
pd:lo intente con un query pero no me deja modificar el campo de la tabla
desde ya muchas gracias por su ayuda