Aqui estoy de neuvo con este codigo que me dejaron para corregir, me ha costado un poco de trabajo pues soy nuevo en Delphi y ademas este tio hace todo por codigoy eso me lo complica mas... en fin, pude meterle este MessageDlg al inicio del procedimeinto BotonAceptarClick, de tal forma que si le dan No, se guardan los datos capturados en la base de datos... peeero, no se donde ni como ponerle para que cuando den Si, me dibuje otra orden de captura, que en este caso se llama TFormaOrdenesServicio.
Podrian ayudarme por favor?
No se en que parte del codigo ponerlo y no se la sintaxis que debo poner, supongo sera algo como mrYes then algo asi peron no se donde
Código Delphi
[-]procedure TFormaOrdenesServicio.BotonAceptarClick(Sender: TObject);
begin
PanelDatos.SetFocus;
if ValidarDatos then begin
if MessageDlg('Desea Capturar Otra Orden de Servicio ?', mtConfirmation,
[mbYes, mbNo], 0) = mrNo then
try
FuenteDatos.DataSet.UpdateRecord;
xValorId := FuenteDatos.DataSet.FieldByName(cCamposId).Value;
dbConsulta.Requery;
if FuenteDatos.DataSet.RecordCount > 1 then begin
FuenteDatos.DataSet.Locate(cCamposId, xValorId, [loCaseInsensitive] );
end;
HabilitarDatos(false);
HabilitarBotonAceptar(false);
HabilitarBotonProceso(true);
ESH.Hide;
Etiqueta13.Hide;
Campo13.Hide;
Etiqueta14.Hide;
Campo14.Hide;
ESS.Hide;
Etiqueta15.Hide;
Campo15.Hide;
Etiqueta16.Hide;
Campo16.Hide;
EOS.Hide;
Etiqueta17.Hide;
Campo17.Hide;
Etiqueta18.Hide;
Campo18.Hide;
except on E:Exception do
MessageDlg('Verifique su Información, ' +
'ya que esta Provocando el Siguiente Error: ' + #13 + #13 +
E.Message, mtError, [mbOk], 0);
end;
end;
end;
Gracias de antemano.