jcheco
18-07-2006, 20:56:48
Hola, mi problema es el siguiente:
Tengo el siguiente código:
procedure TF_Linea_Tique.FormShow(Sender: TObject);
begin
if Hacer_LTique='Modificar' then DBLC_Talla.Field.Value:=F_Modulo_Datos.ADOT_Linea_TiqueTLTIQ_PRODTALLA.Value;
end;
“DBLC_Talla” es un TDBLoockupComboBox
Y este código es llamado desde el siguiente:
procedure TF_Tique.TB_EdiLinClick(Sender: TObject);
var
F_Linea_Tique:TF_Linea_Tique;
begin
F_Linea_Tique:=TF_Linea_Tique.Create(Application);
F_Linea_Tique.Caption:='Modificación de línea de tique';
F_Linea_Tique.Hacer_LTique:='Modificar';
F_Modulo_Datos.ADOT_Linea_Tique.Edit;
try
F_Linea_Tique.ShowModal;
F_Modulo_Datos.ADOT_Tiques.Post;
finally
F_Tique.Free;
end;
end;
Pues bien, cuando ejecuto la primera vez el código segundo, en el TDBLoockupComboBox no me sale ningún valor y si salgo de la pantalla y vuelvo a ejecutar el segundo código (ya por segunda vez) si me sale el valor correspondiente.
No se a que se debe, espero que me podaís ayudar, un saludo y gracias.
Tengo el siguiente código:
procedure TF_Linea_Tique.FormShow(Sender: TObject);
begin
if Hacer_LTique='Modificar' then DBLC_Talla.Field.Value:=F_Modulo_Datos.ADOT_Linea_TiqueTLTIQ_PRODTALLA.Value;
end;
“DBLC_Talla” es un TDBLoockupComboBox
Y este código es llamado desde el siguiente:
procedure TF_Tique.TB_EdiLinClick(Sender: TObject);
var
F_Linea_Tique:TF_Linea_Tique;
begin
F_Linea_Tique:=TF_Linea_Tique.Create(Application);
F_Linea_Tique.Caption:='Modificación de línea de tique';
F_Linea_Tique.Hacer_LTique:='Modificar';
F_Modulo_Datos.ADOT_Linea_Tique.Edit;
try
F_Linea_Tique.ShowModal;
F_Modulo_Datos.ADOT_Tiques.Post;
finally
F_Tique.Free;
end;
end;
Pues bien, cuando ejecuto la primera vez el código segundo, en el TDBLoockupComboBox no me sale ningún valor y si salgo de la pantalla y vuelvo a ejecutar el segundo código (ya por segunda vez) si me sale el valor correspondiente.
No se a que se debe, espero que me podaís ayudar, un saludo y gracias.