problema con una consulta

[leofuentes21]

Hola amigos espero tengan un buen dia todos.
Espero me puedan ayudar con un problemita que tengo.me disculpan sino me se explicar bie.
estoy trabajando con una base en firebire el problema es el siguiente:

lo que hago es hacer una consulta y me la muestra en unos edits la informacion de x empleado,y con otra consulta me muestra en otros edits las tareas que asigno al empleado.
Cuando asigo la tarea y la guardo la primera ves la guarda bien y me la muestra en el grid pero cuand quiero asignarle otra tarea me da este error.

'invalid modify request' conversion error from string. process stopped.


este es mi codigo.

Código Delphi [-]
with QINGRESAR do
      begin
       SQL.Clear;
      SQL.Text:='INSERT INTO TRABAJOS(AUTOMATICO,COD_EMPLEADO,NOMBRE,IDENTIDAD,CODTAREA,TAREA,FECHA,COD_DEPTO,TIPO_TAREA,PRECIO_U  NITARIO,DEDUC)'
      +'VALUES('+QUOTEDSTR(INTTOSTR(QAUTOMATICO.FIELDBYNAME('AUTOMATICO').AsInteger+1))+','+QUOTEDSTR(LABE  L7.Caption)
      +','+QUOTEDSTR(EDT1.Text)+','+QUOTEDSTR(EDIT1.Text)+','+QUOTEDSTR(X.Text)
      +','+QUOTEDSTR(Edit2.Text)+','+QUOTEDSTR(DateToStr(fecha1.Date))+','+QUOTEDSTR(Edit5.text)
      +','+QUOTEDSTR(Label6.Caption)+','+QUOTEDSTR(CurrToStr(FRACCION2.Value))+','+QUOTEDSTR(CurrToStr(FRA  CCION.Value*FRACCION2.Value))+')';
      ExecSQL;
      end;

de adelantado gracias por su ayuda.

[[Caral]]

Hola
Podria ser que necesites hacer un commitTrans, o un commit en el Transaction.
Por otro lado, te recomiendo usar parametros.
Saludos

[leofuentes21]

de echo si tengo la consulta en transaccion.pero no funciona no se porque me da el error

[Casimiro Notevi]

Pues pon todo el código fuente que lo veamos.

[[Caral]]

Hola
Este error es muy normal cuando un dato no es el correcto:
conversion error from string
1. Usar parametros.
2. Revisar que los datos sean y esten correctos.
Saludos

[[Caral]]

Hola

Empezado por Casimiro Notevi

Pues pon todo el código fuente que lo veamos.

Y donde queda el asunto de adivinar de que se trata, asi se pierde emocion...
Saludos

[Casimiro Notevi]

Empezado por Caral

Hola
Y donde queda el asunto de adivinar de que se trata, asi se pierde emocion...
Saludos

Eso es cierto, la solución se daría al instante y luego nos aburriríamos sin saber qué hacer

[leofuentes21]

ok este es el todo el codigo.

el error solo me lo da cuando quiero asignarle otra tarea al empleado.algo curioso es que si vuelvo a elegir de nuevo al empleado que le quiero asignar de nuevo otra tarea lo ace bien y no me da error.

Código Delphi [-]
if X2.Text='12' then
    begin
      ShortDateFormat:='mm/dd/yyyy';
     IF NOT Main.database1.intransaction then Main.database1.StartTransaction;
      try
      QAUTOMATICO.Active:=False;
      QAUTOMATICO.Active:=True;
      with QINGRESAR do
      begin
       SQL.Clear;
      SQL.Text:='INSERT INTO TRABAJOS(AUTOMATICO,COD_EMPLEADO,NOMBRE,IDENTIDAD,CODTAREA,TAREA,FECHA,COD_DEPTO,TIPO_TAREA,PRECIO_U  NITARIO,DEDUC)'
      +'VALUES('+QUOTEDSTR(INTTOSTR(QAUTOMATICO.FIELDBYNAME('AUTOMATICO').AsInteger+1))+','+QUOTEDSTR(LABE  L7.Caption)
      +','+QUOTEDSTR(EDT1.Text)+','+QUOTEDSTR(EDIT1.Text)+','+QUOTEDSTR(X.Text)
      +','+QUOTEDSTR(Edit2.Text)+','+QUOTEDSTR(DateToStr(fecha1.Date))+','+QUOTEDSTR(Edit5.text)
      +','+QUOTEDSTR(Label6.Caption)+','+QUOTEDSTR(CurrToStr(FRACCION2.Value))+','+QUOTEDSTR(CurrToStr(FRA  CCION.Value*FRACCION2.Value))+')';
      ExecSQL;
      end;
      Main.database1.commit;
      except
      main.database1.rollback;
      MessageDlg('Error al guardar',mtError,mbOKCancel,0);
      Exit;
      end;
    end
   else
   begin
    ShortDateFormat:='mm/dd/yyyy';
    if NOT Main.database1.intransaction then Main.database1.StartTransaction;
      try
      QAUTOMATICO.Active:=False;
      QAUTOMATICO.Active:=True;
      with QINGRESAR do
      begin
      SQL.Clear;
      SQL.Text:='INSERT INTO TRABAJOS(AUTOMATICO,COD_EMPLEADO,NOMBRE,IDENTIDAD,CODTAREA,TAREA,FECHA,COD_DEPTO,TIPO_TAREA, PRECIO_UNITARIO,CANTIDAD,PRECIO_TOTAL)'
      +'VALUES('+QUOTEDSTR(INTTOSTR(QAUTOMATICO.FIELDBYNAME('AUTOMATICO').AsInteger+1))+','+QUOTEDSTR(LABE  L7.Caption)
      +','+QUOTEDSTR(EDT1.Text)+','+QUOTEDSTR(EDIT1.Text)+','+QUOTEDSTR(X.Text)
      +','+QUOTEDSTR(Edit2.Text)+','+QUOTEDSTR(DateToStr(fecha1.Date))+','+QUOTEDSTR(Edit5.text)
      +','+QUOTEDSTR(Label6.Caption)+','+QUOTEDSTR(CurrToStr(FRACCION2.Value))
      +','+QUOTEDSTR(CurrToStr(FRACCION.Value))+','+QUOTEDSTR(CurrToStr(FRACCION.Value*FRACCION2.Value))+'  )';
      ExecSQL;
      end;
      main.database1.commit;
     except
       main.database1.rollback;
       MessageDlg('Error al guardar',mtError,mbOKCancel,0);
       Exit;
      end;
     end;

[[Caral]]

Hola
Bueno, tan al instante tampoco por que si no tambien nos aburrimos esperando la siguiente pregunta, hay que dar la respuesta con cuenta gotas, recuerda, post amigo, post
Saludos

[leofuentes21]

jejeje per si todavia no lo he solucionado.
estoy provando campo por campo a ver donde esta el error. por que estar reeligiendo el empleado varias veces para asignarle tarea creo que no es correcto y pienso que se pierde tiempo tambien.entonces quiero ver como solucionar eso.

[[Caral]]

Hola
Usas IBX ?
Saludos

[leofuentes21]

Hola ya lo solucione,la consulta esta buena,el problema que tenia era cuando guardaba la informacion tenia un label.caption:=' ' que era donde contenia el codigo del empleado pero esta oculto y por eso me daba el error de conversion.
lo que pasa que estoy arreglenado un sistema echo por un excompañero de trabajo y havia pasado desapersivido ese pequeño gran detalle.

gracias a todos por sus repuesta.

[[Caral]]

Hola
Osea: Ahora nos dejaste vestidos y alborotados
Me alegro que lo solucionaras.
Saludos

[leofuentes21]

Hola jajajaja
gracias desde ayer estaba con este problema y tan sencillo que estaba la solucion.

[Casimiro Notevi]

Vaya, voy a quitarme el traje de los domingos