![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Volver a Incrementar y asignar a un DBtext
Hola Nuevamene con un problema que no puedo visualizar.
Bueno En un formulario tengo varios dbText pero hay uno (txt_codigo). Cuando ingreso por primera vez al formulario me muestra el ultimo codigo incrementado en 1 mediante un SP , y lleno todo lso DBTEXT y cuando le digo registrar me lo graba todo bien en la Tabla pero cuando le pregunto resp2 := Application.MessageBox('Deseas Registrar a Otro Cliente','Mantenimiento',MB_YESNO+MB_ICONINFORMATION); me sale Project Proyecto_Clienes.exe raised exception class EIBClientError with message 'use Open for a Select Statement'. Process Stopped. Use Step o Run........ Le mando el codigo resp2 := Application.MessageBox('Deseas Registrar a Otro Cliente','Mantenimiento de Clientes',MB_YESNO+MB_ICONINFORMATION); if resp2=6 then begin DM_Conexiones.IBTransaction1.Commit; DM_Conexiones.IBT_Clientes.Active := True; DM_Conexiones.IBT_Clientes.Last; DM_Conexiones.IBT_Clientes.Insert; DM_Conexiones.IBQuery1.SQL.Clear; DM_Conexiones.IBQuery1.SQL.Add('SELECT num_sig FROM CODI_INCRE1'); DM_Conexiones.IBQuery1.ExecSQL; txt_codi.Text := DM_Conexiones.IBQuery1.ParamByName('num_sig').AsString; txt_nomb.SetFocus end else begin DM_Conexiones.IBT_Clientes.Last end Donde puede estar el Error ???????????? Gracias y Saludos a la Comunidad. |
|
|
![]() |
|