|
Andres,
Este es el código (de la opción nuevo del main menú) de la unidad principal donde se llama a la segunda unidad, en la que el usuario carga los datos (en la que aparece el stack overflow).
En esa unidad hay dbedits para cada campo de la tabla que se carga y cuando están completando los datos es cuando se cuelga.
procedure TConsultorio.Nuevo1Click(Sender: TObject);
begin
//deshabilita todos los botones menos aceptar y salir pq es uno nuevo
Application.CreateForm(Tform2, form2);
form2.bborrar.enabled:=false;
form2.lborrar.enabled:=false;
form2.bmodif.enabled:=false;
form2.lmodif.enabled:=false;
form2.bmodif2.enabled:=false;
form2.lmodif2.enabled:=false;
form2.bderivacion.enabled:=false;
form2.lderivacion.enabled:=false;
form2.brecita.enabled:=false;
form2.lrecita.enabled:=false;
form2.bimprimir.enabled:=false;
form2.limprimir.enabled:=false;
form2.bhcimprimir.enabled:=false;
form2.lhcimprimir.enabled:=false;
form2.baceptar.Enabled:=true;
form2.laceptar.Enabled:=true;
form2.baceptar2.Enabled:=true;
form2.laceptar2.Enabled:=true;
form2.bplan.Enabled:=false;
form2.lplan.Enabled:=false;
form2.bhistorial.Enabled:=false;
form2.lhistorial.Enabled:=false;
//dehabilta derivacion
form2.Ldbderivacion.enabled:=false;
form2.dbderivacion.enabled:=false;
// marca nuevo
paciente.nuevo:=true;
form2.comboNyAp.Visible:=false;
form2.editNyAp.Visible:=true;
//generar codigo paciente nuevo
codigopaciente;
modulodatos.modat.Paciente.append;
modulodatos.modat.Paciente.edit;
modulodatos.modat.Paciente.FieldByName('codigop').asinteger:=codigop;
modulodatos.modat.HistoriaClinica.append;
modulodatos.modat.HistoriaClinica.edit;
modulodatos.modat.HistoriaClinica.FieldByName('codigop').asinteger:=codigop;
form2.ShowModal;
modulodatos.modat.Paciente.Refresh;
modulodatos.modat.HistoriaClinica.Refresh;
end;
Espero que con esto me puedas ayudar,
Muchas, Muchas Gracias
Mariana.
|