Access XP
El error comenzo a aparecer cuando agregue este código.
procedure TFExpedientes.DBERemitoEnter(Sender: TObject);
var
Respuesta:Word;
Anio:String;
begin
Anio:='';
Respuesta:=0;
if ((DBERemito.Text='0')and(CBMovimiento.Text='SALIDA'))or(DBERemito.Text='') then
begin
Respuesta:=MessageDlg('¿El MOVIMIENTO es de SALIDA?',mtConfirmation,[mbYes,mbNo],0);
if Respuesta=mrYes then
begin
CBMovimiento.Text:='SALIDA';
with DMExpedientes do
begin
anio:=copy(DBEFecha.Text,7,4);
//TVar tabla donde duardo el ultimo nro de remito ingresado, para el año de la fecha ingresada
if TVar.Locate('IdAnio',anio,[loCaseInsensitive,loPartialKey]) then
begin
TRemitosRemito.Value :=TVarRemito.value+1;
end
else
begin
Respuesta:=MessageDlg('No Existen REMITOS para el año ingresado, ¿Desea comenzar la numeración desde 1?',mtConfirmation,[mbYes,mbNo],0);
if Respuesta=mrYes then
TRemitosRemito.Value:=1;
end;
end;
end
else
CBMovimiento.Text:='ENTRADA';
end;
end;
Si el tipo de moviemtiento es de ENTRADA el nro de remito es cero.
Espero que se entienda lo que quise hacer.-
Hay algo que estoy haciendo mal?