Carlos
25 de Marzo del 2003

Tengo este trozo de codigo en el evento de un campo calculado. El problema
que tengo es que cuando se ejecuta, no se me muestra la elecci贸n del
campo y no se por qu茅?
Igual es interesante saber que tengo un DSN creado a una BD Access.

procedure TF_Albaran.DBGrid1ColExit(Sender: TObject);
var
i : integer;
aux : string;
begin
//Se ejecuta este evento cuando es la columna de Surtido
if (DBGrid1.Columns [DBGrid1.SelectedIndex] = DBGrid1.Columns [1]) then
begin
DM_Form.TTallas.Database.StartTransAction;
DM_Form.TTallas.Edit; //ponemos la tabla en modo edici贸n por si modifiecamos alg煤n valor

aux := DBGrid1.Columns [1].Field.AsString;
DM_Form.TSurtido.First;
i := 4;

// ShowMessage ('Codigo del surtido: ' + DBGrid1.Columns [1].Field.AsString);
while (not DM_Form.TSurtido.Eof) do
begin
if (DM_Form.TSurtido.FieldByName ('CodSur').AsString = DBGrid1.Columns [1].Field.AsString) then
begin
DBGrid1.Columns [i].Field.AsString := DM_Form.TSurtido.FieldByName ('ParSur').Value;
// ShowMessage (DM_Form.TSurtido.FieldByName ('ParSur').Value);
i := i + 1;
end;
DM_Form.TSurtido.Next;
end;
ShowMessage (aux);
DBGrid1.Columns [1].Field.AsString := aux;

if (DBGrid1.Columns [1].Field.AsString = '0000000000') then //mujer, codigos: //hombre, codigos: el resto
begin
for i := 11 to 13 do //tallas 7, 8 y 9 q no pertenecen a la categoria de mujer
DBGrid1.Columns [i].Field.AsString := '0';
end;

DM_Form.TTallas.Post;
DM_Form.TTallas.Database.Commit;
// DM_Form.TTallas.Refresh;
// DBGrid1.Refresh;
end;
end;