FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
EAccessViolation
Despues de un largo tiempo....
Eh vuelto a retomar este error y aun continua efectivamente Fenareth tiene razón me sobra el swciclo, tambien sigo el consejo de ecfisa pero aún así el error continua. Corriendo el programa con F8 el error me sale en la siguiente lienea: Código Delphi [-] if (copy(FrmProductos.DBECodigo.Text,1,2)='43') or (copy(FrmProductos.DBECodigo.Text,1,2)='35') or (copy(FrmProductos.DBECodigo.Text,1,2)='44') or (copy(FrmProductos.DBECodigo.Text,1,2)='45') or (copy(FrmProductos.DBECodigo.Text,1,2)='42')then El procedimiento completo es el siguiente, espero me puedan dar algo de luces ya que no se que hacer. Gracias Código Delphi [-]procedure TDMsip.TblproductosBeforePost(DataSet: TDataSet); begin if (TblUsuarios['codigo_area']='002') or (userw = 'SYSDBA') or (userw = '001') then else //se vuelve a validar para que produccion pueda modificar el campo ciclo if (TblUsuarios['codigo_area']='001') or (userw = '001') then else begin ShowMessage('Usuario no autorizado para Insertar o Modificar'); abort; end; if TblProductos['referencia']='' then begin ShowMessage('Se requiere la referencia del producto'); abort; end; if DmSip1.TblCriticaProducto.locate('referencia',TblProductos['referencia'],[]) then begin DmSip1.TblCriticaProducto.edit; DmSip1.TblCriticaProducto['productos'] := 'X'; DmSip1.TblCriticaProducto.post; end; if DmSip1.TblCriticaProductoDecorado.locate('referencia',TblProductos['referencia'],[]) then begin DmSip1.TblCriticaProductoDecorado.edit; DmSip1.TblCriticaProductoDecorado['productos'] := 'X'; DmSip1.TblCriticaProductoDecorado.post; end; if TblProductos['plano'] = null then TblProductos['plano'] := ''; if TblProductos['plano_interno'] = null then TblProductos['plano_interno'] := ''; if (copy(FrmProductos.DBECodigo.Text,1,2)='43') or (copy(FrmProductos.DBECodigo.Text,1,2)='35') or (copy(FrmProductos.DBECodigo.Text,1,2)='44') or (copy(FrmProductos.DBECodigo.Text,1,2)='45') or (copy(FrmProductos.DBECodigo.Text,1,2)='42')then else if (TblProductos['plano']='') and (TblProductos['plano_interno']='') then begin ShowMessage('Debe digitar al menos un plano'); abort; end; //end; if TblProductos['plano']<> '' then begin if TblProductos['plano_interno']='' then else begin ShowMessage('Solo se debe digitar un plano'); abort; end; end; if ingresarp then TblProductos['listaprecios']:='N'; //OJO CAMBIO PARA PODER GRABAR FECHA MIRAR QUE PASA //OJO MIRAR QUE PASA PARA CAMBIA EL ESTADO EN REFERENCIA SALE ERROR if cambiapeso then begin TblColorProducto.locate('referencia',TblProductos['referencia'],[]); TblColorProducto.edit; TblColorProducto['fechamodificacion']:= now; TblColorProducto['usuario']:= userw; TblColorProducto.post; end; cambiapeso := false; end;
__________________
Alejandrina |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
EAccessViolation | elorza | Varios | 2 | 26-12-2007 11:07:32 |
Error EAccessViolation | chele | Firebird e Interbase | 0 | 09-11-2004 16:51:21 |
EAccessViolation | Ester | Varios | 16 | 10-09-2004 16:33:20 |
Error EAccessViolation.... | JorgeBec | Conexión con bases de datos | 5 | 18-02-2004 22:34:11 |
|