Ayuda importante
Publicado por Manuel Medina (46 intervenciones) el 25/02/2009 22:46:55
Luego de un Saludo de agrado y agradecimiento, tengo lo siguiente:
No recuerdo como hacer para que cuando se ejecute la parte uno de estos codigos, el programa no siga viendo los codigos de la parte 2.
Esto lo quiero ya evitaria usar muchos else.
1.-
if codigo.Text = ' ' then
begin
descrip.SetFocus;
// en esta parte debo colocar algo para que no continue, no lo recuerdo.
end;
2.-
if dm.articulos.Locate ('codigo',codigo.Text,[]) then begin
cantidad.Text :=FloatToStr(0);
descrip.Text:= dm.articulosdescrip.Value;
venta.Text:= FloatToStr(RoundTo(dm.articulosventa3.Value,-2));
ref.Caption := dm.articulosref3.value;
controlv:=2;
numero.Text := IntToStr(controlv);
if dm.articulosimpuesto.Value <> 'S' then
begin
ge.Text:= 'E';
end;
cantidad.SetFocus;
end
Espero me puedan entender este problema.
No recuerdo como hacer para que cuando se ejecute la parte uno de estos codigos, el programa no siga viendo los codigos de la parte 2.
Esto lo quiero ya evitaria usar muchos else.
1.-
if codigo.Text = ' ' then
begin
descrip.SetFocus;
// en esta parte debo colocar algo para que no continue, no lo recuerdo.
end;
2.-
if dm.articulos.Locate ('codigo',codigo.Text,[]) then begin
cantidad.Text :=FloatToStr(0);
descrip.Text:= dm.articulosdescrip.Value;
venta.Text:= FloatToStr(RoundTo(dm.articulosventa3.Value,-2));
ref.Caption := dm.articulosref3.value;
controlv:=2;
numero.Text := IntToStr(controlv);
if dm.articulosimpuesto.Value <> 'S' then
begin
ge.Text:= 'E';
end;
cantidad.SetFocus;
end
Espero me puedan entender este problema.
Valora esta pregunta


0