Buenas Tardes un Saludos a Todos Feliz año y Felicitaciones en todo los eventos.
Me han informado por primera vez en mis años en programa un comportamiento que sucede únicamente en un formulario denominado Cotizaciones la cual tengo una variable pública de tipo Entero llamada "ModoConsultaCot" en la que el valor 1 es consulta, 2 es Actualización y 3 es Agregar en fin me han notificado los usuarios que dejan temporalmente abierto el formulario y al empezar a realizar el ingreso de una cotización sucede que pierde ese valor la variable en la que el botón y el programa simplemente no hace nada en el botón de Aceptar que tiene la funcion:
Código Delphi
[-]
procedure TfrmCotizadorPricipal.btnEmiteCotClick(Sender: TObject);
begin
case dmCotiza.ModoConsultaCot of
3: begin
if dbgProductos.DataSource.DataSet.isEmpty then
begin
ShowMessage
('Caramba no tenemos productos en la lista para cotizar');
lbleBuscaProducto.SetFocus;
end
else
begin
if application.MessageBox
(pchar('¿Deseas Emitir esta Cotización?'),
pchar('Cotizaciones'), (MB_YESNO + MB_ICONQUESTION)) = IDYES
then
begin
IngresaCotDB;
ExitoCot := True;
if ExitoCot = True then
begin
ImprimeCotizacion;
Limpiamostodo;
dmCotiza.ModoConsultaCot := 3;
ShowMessage('Listo puedes Verificar la impresora');
end;
end
else
begin
rbBuscaCodigo.Checked := True;
lbleBuscaProducto.SetFocus;
end;
end;
end;
2: begin
if ActualizaCot = True then
begin
ImprimeCotizacion;
Limpiamostodo;
ShowMessage('Actualización Correcta');
end
else
begin
ShowMessage
('Error en Actualización Favor Llame al Adminsitrador Sistema');
end;
end;
end;
end;
Alguien conoce si es posible que por pura casualidad de la vida esa variable es posible ser modificada por algún otro programa que tenga ese mismo nombre de variable? tengo mis dudas en cuanto hilos de ejecución ahora con esto. vuelvo a repetir nunca en los años que tengo usando el programa me habian notificado ese comportamiento.
PD: el sistema operativo instalado es Windows 10
Saludos:
novato_erick