Project Project1.exe raised exeption....

[pnsd_89]

Ok. como soluciono ese problema. Una duda estoy usando un combobox esto puede afectar en algo. MUchAs gracias Por responder te voy a gradecer mas si lo vuelves a hacer y a las personas que lo haran.
PD: Perdon por la ignorancia con delphi pero hace 1.5 meses que comense a utilizarlo y es el primer lenguage orientado a objetos que estoy usando.

[pnsd_89]

la consulta sql esta perfecta la comprove con un showmessage

[dec]

Hola,

Ignorantes somos todos en un momento dado. Y nadie nace sabiendo, así que no te preocupes en absoluto. En lo que respecta al problema... lo que ocurre es que es complicado (acaso pudieras copiar por aquí al menos una parte del código fuente implicado en el problema), es complicado, digo, dar una solución concreta.

Dices que si usar un "ComboBox" puede tener que ver... pues hombre, en principio no, pero, si se está tratando de utilizar un "ComboBox" que no ha sido creado o ya ha sido destruído... entonces evidentemente sí habría problemas. No se puede (sin más) saber si el "ComboBox" es culpable, pero, puedes centrarte en depurar el error.

¿Puedes copiar por aquí algo del código fuente relacionado con el problema? Tal vez de ese modo alguien pueda echarte una mano si ve algo, o quiera preguntarte algo a partir de que pueda ver el código fuente en cuestión.

[pnsd_89]

Código Delphi [-]
procedure TFSucursal.BitBtn3Click(Sender: TObject);
var
   sSQL, sFROM, sWHERE, sORDER, sEsquema,sent: string;
begin
     sSQL   := EmptyStr;
     sFROM  := EmptyStr;
     sWHERE := EmptyStr;
     sORDER := EmptyStr;

     sEsquema := 'dba.';


     sSQL  := 'select * ';
     sFROM := 'from '+sEsquema+'sucursal_mh ';
     sWHERE:= 'where 0 = 0 ';

     if not ( Trim( DBLFiltra_sucursal.Text ) = EmptyStr ) then
        sWHERE := sWHERE + 'and cod_sucursal_mh = '+ (DBLFiltra_sucursal.KeyValue);
     sORDER := ' order by des_sucursal_mh';
     DMSucursales.QrySucursal_MH.SQL.Clear;
     DMSucursales.QrySucursal_MH.SQL.Add ( sSQL + sFROM + sWHERE + sORDER );
     DMSucursales.CDSsucursal_mh.Close;
      sent:=(sSQL+sFROM+sWHERE+sORDER);
      ShowMessage(sent);
     UCerrarAbrirPG(DMSucursales.CDSsucursal_mh, Self); {aqui salta a la funcion (en realidad no se si es una funcion o petodo. y salta a este codigo siguiente En un na UNIDAD01}

{...}

Código Delphi [-]
procedure UCerrarAbrirPG(DataSet: TDataSet; Sender : TForm);
var
   nombre, ErrorM : string;
begin
     ErrorM := '';
     nombre := DataSet.Name;
     if BaseDatosPG.InTransaction then {EN este lugar no entra y salta el error }
        begin
             try
                DataSet.Close;
             except
                on E: Exception do
                   UAbrirMensaje('Error al cerrar el componente '+nombre+'.'+#13+#10+'Mensaje : '+E.Message,ierror,sender);
             end; {try}
             try
                DataSet.Open;
             except
                on E: Exception do
                   UAbrirMensaje('Error al abrir el componente '+nombre+'.'+#13+#10+'Mensaje : '+E.Message,ierror,sender);
             end; {try}
        end {if}
     else
        begin
             try
               DataSet.Close;
             except
               on E: Exception do
                  UAbrirMensaje('Error al cerrar el componente '+nombre+'.'+#13+#10+'Mensaje : '+E.Message,ierror,sender);
             end; {try}
             IniciarTransaccionPG;
             try
                BaseDatosPG.StartTransaction(TDPG);
                DataSet.Open;
                BaseDatosPG.Commit(TDPG);
             except
                on E: Exception do
                   begin
                       BaseDatosPG.Rollback(TDPG);
                       UAbrirMensaje('Error al abrir el componente '+nombre+'.'+#13+#10+'Mensaje : '+E.Message,ierror,sender);
                   end; {on}
             end; {try}
        end; {else}
end;

Edito este mensaje para añadir las etiquetas [ delphi ].