Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Sistemas operativos > Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-01-2021
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 396
Poder: 14
novato_erick Va por buen camino
cambia el valor de variable por otros programa

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: //Insertamos
            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
                        // Limpiamostodo;
                        rbBuscaCodigo.Checked := True;
                        lbleBuscaProducto.SetFocus;
                    end;
                end;
            end;
        2: // Actualizamos
            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
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Asignar el valor de una variable de php a una variable js que puede no existir jandroruiz PHP 5 04-03-2013 12:23:02
Variable String cambia de valor a '' oscarac Varios 3 30-05-2011 07:28:39
pasar valor DBLookupComboBox a otros campos marulo OOP 3 15-04-2005 23:04:44
Valor de DBEdit a partir de la multiplicación de otros dos RyAr Conexión con bases de datos 8 09-07-2004 17:14:26
Mi primer programa en delphi el, el .exe en otros ordenadores no va Daltor Varios 3 02-04-2004 15:21:00


La franja horaria es GMT +2. Ahora son las 22:40:07.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi