Devart Forums

Posted: **Tue 13 Sep 2016 11:48**

After upgrade from 6.3.13, to 6.4.14 I'm getting an oracle exception, working with direct mode.
Using Delphi 2007.

The same sql runs fine in 6.3.13, but in 6.4.14 I get
"ORA-01483: invalid length for DATE or NUMBER bind variable".

This is the trace of SQL monitor with 6.4.14

Code: Select all

insert into Peticion( IDPETICION, IDLABORATORIO, FECHA, IDSERIE, MUESTRA, CODIGO, PETICIONCB, FECHA_TOMA, FECHA_INGRESO, IDPACIENTE, REFERENCIA_PACIENTE, IDPROCEDENCIA, IDPROCEDENCIASERVICIO, IDCENTROFACTURACION, IDGRUPO, IDCENTROEXTRACCION, IDMEDICO, IDDIAGNOSTICO, IDDIAGNOSTICON, DIAGNOSTICO, COMENTARIO, IMPRIMIR_COMENTARIO, HABITACION, CODIGOINTERNO, CODIGOEXTERNO, URGENTE, IDTIPOMUESTRA, IDTIPOALTA, IDESTADOIMPORTACION, IDLABEXTERNO, PRIORIDAD, PRIORIDAD_MEDICO, FECHA_REGISTRO_EXTERNO, FACTURACION_DOCUMENTO, FACTURACION_AUTORIZACION, FACTURACION_CONTROL, FACTURACION_NOPERACION, IDTIPOMUESTRALOCALIZACION, IDMOMENTODIAGNOSTICO, AUXID1, AUXC1, AUXT1, AUXID2, AUXC2, AUXC3, FACTURACION_FECHA_DOCUMENTO, FACTURACION_FECHA_AUTORIZACION, TRATAMIENTO, TIPO_MUESTRA_DESCRIPCION, IDNIVELACCESO, IDAUXILIAR, FECHA_REGISTRO, IDUSUARIO_ALTA, IDTARIFA, IDMONEDA, IMPORTE_PUNTO, IDPETICION_ORIGEN, IDCENTRO, FECHA_ENTREGA, FECHA_ENTREGA_MANUAL, IDIDIOMA, FACTURACION_BLOQUEADA, IDFORMATOPRUEBA ) values( :IDPETICION, :IDLABORATORIO, :FECHA, :IDSERIE, :MUESTRA, :CODIGO, :PETICIONCB, :FECHA_TOMA, :FECHA_INGRESO, :IDPACIENTE, :REFERENCIA_PACIENTE, :IDPROCEDENCIA, :IDPROCEDENCIASERVICIO, :IDCENTROFACTURACION, :IDGRUPO, :IDCENTROEXTRACCION, :IDMEDICO, :IDDIAGNOSTICO, :IDDIAGNOSTICON, :DIAGNOSTICO, :COMENTARIO, :IMPRIMIR_COMENTARIO, :HABITACION, :CODIGOINTERNO, :CODIGOEXTERNO, :URGENTE, :IDTIPOMUESTRA, :IDTIPOALTA, :IDESTADOIMPORTACION, :IDLABEXTERNO, :PRIORIDAD, :PRIORIDAD_MEDICO, :FECHA_REGISTRO_EXTERNO, :FACTURACION_DOCUMENTO, :FACTURACION_AUTORIZACION, :FACTURACION_CONTROL, :FACTURACION_NOPERACION, :IDTIPOMUESTRALOCALIZACION, :IDMOMENTODIAGNOSTICO, :AUXID1, :AUXC1, :AUXT1, :AUXID2, :AUXC2, :AUXC3, :FACTURACION_FECHA_DOCUMENTO, :FACTURACION_FECHA_AUTORIZACION, :TRATAMIENTO, :TIPO_MUESTRA_DESCRIPCION, :IDNIVELACCESO, :IDAUXILIAR, :FECHA_REGISTRO, :IDUSUARIO_ALTA, :IDTARIFA, :IDMONEDA, :IMPORTE_PUNTO, :IDPETICION_ORIGEN, :IDCENTRO, :FECHA_ENTREGA, :FECHA_ENTREGA_MANUAL, :IDIDIOMA, :FACTURACION_BLOQUEADA, :IDFORMATOPRUEBA )
:IDPETICION(LargeInt)=100000000106 
:IDLABORATORIO(Integer)=0 
:FECHA(DateTime)=13/09/2016 
:IDSERIE(String[0])='' 
:MUESTRA(LargeInt)=66 
:CODIGO(Integer)=0 
:PETICIONCB(String[8])='00000066' 
:FECHA_TOMA(DateTime)=13/09/2016 13:35:36 
:FECHA_INGRESO(Unknown)=<NULL> 
:IDPACIENTE(Integer)=1 
:REFERENCIA_PACIENTE(String[25])='1|APELLIDOS 1|NOMBRE 1|||' 
:IDPROCEDENCIA(Integer)=-1 
:IDPROCEDENCIASERVICIO(Unknown)=<NULL> 
:IDCENTROFACTURACION(Integer)=0 
:IDGRUPO(Integer)=0 
:IDCENTROEXTRACCION(Integer)=-1 
:IDMEDICO(Integer)=-1 
:IDDIAGNOSTICO(String[0])='' 
:IDDIAGNOSTICON(Unknown)=<NULL> 
:DIAGNOSTICO(Unknown)=<NULL> 
:COMENTARIO(String[0])='' 
:IMPRIMIR_COMENTARIO(Integer)=0 
:HABITACION(String[0])='' 
:CODIGOINTERNO(String[0])='' 
:CODIGOEXTERNO(String[0])='' 
:URGENTE(Integer)=0 
:IDTIPOMUESTRA(Unknown)=<NULL> 
:IDTIPOALTA(Integer)=0 
:IDESTADOIMPORTACION(Unknown)=<NULL> 
:IDLABEXTERNO(String[0])='' 
:PRIORIDAD(Integer)=-1 
:PRIORIDAD_MEDICO(Integer)=0 
:FECHA_REGISTRO_EXTERNO(Unknown)=<NULL> 
:FACTURACION_DOCUMENTO(String[0])='' 
:FACTURACION_AUTORIZACION(String[0])='' 
:FACTURACION_CONTROL(String[0])='' 
:FACTURACION_NOPERACION(String[0])='' 
:IDTIPOMUESTRALOCALIZACION(Unknown)=<NULL> 
:IDMOMENTODIAGNOSTICO(Unknown)=<NULL> 
:AUXID1(Unknown)=<NULL> 
:AUXC1(Unknown)=<NULL> 
:AUXT1(Unknown)=<NULL> 
:AUXID2(Unknown)=<NULL> 
:AUXC2(Unknown)=<NULL> 
:AUXC3(Unknown)=<NULL> 
:FACTURACION_FECHA_DOCUMENTO(Unknown)=<NULL> 
:FACTURACION_FECHA_AUTORIZACION(Unknown)=<NULL> 
:TRATAMIENTO(String[0])='' 
:TIPO_MUESTRA_DESCRIPCION(Unknown)=<NULL> 
:IDNIVELACCESO(Integer)=0 
:IDAUXILIAR(String[15])='IDP100000000106' 
:FECHA_REGISTRO(DateTime)=13/09/2016 13:35:45 
:IDUSUARIO_ALTA(Integer)=0 
:IDTARIFA(Integer)=0 
:IDMONEDA(Integer)=1 
:IMPORTE_PUNTO(Float)=1 
:IDPETICION_ORIGEN(Unknown)=<NULL> 
:IDCENTRO(Unknown)=<NULL> 
:FECHA_ENTREGA(Unknown)=<NULL> 
:FECHA_ENTREGA_MANUAL(Integer)=0 
:IDIDIOMA(Integer)=0 
:FACTURACION_BLOQUEADA(Integer)=0 
:IDFORMATOPRUEBA(Integer)=0
13/09/2016 13:35:46.408 
Error: ORA-01483: invalid length for DATE or NUMBER bind variable

This is the trace of SQL monitor with 6.3.13

Code: Select all

13/09/2016 13:48:10.203 
insert into Peticion( IDPETICION, IDLABORATORIO, FECHA, IDSERIE, MUESTRA, CODIGO, PETICIONCB, FECHA_TOMA, FECHA_INGRESO, IDPACIENTE, REFERENCIA_PACIENTE, IDPROCEDENCIA, IDPROCEDENCIASERVICIO, IDCENTROFACTURACION, IDGRUPO, IDCENTROEXTRACCION, IDMEDICO, IDDIAGNOSTICO, IDDIAGNOSTICON, DIAGNOSTICO, COMENTARIO, IMPRIMIR_COMENTARIO, HABITACION, CODIGOINTERNO, CODIGOEXTERNO, URGENTE, IDTIPOMUESTRA, IDTIPOALTA, IDESTADOIMPORTACION, IDLABEXTERNO, PRIORIDAD, PRIORIDAD_MEDICO, FECHA_REGISTRO_EXTERNO, FACTURACION_DOCUMENTO, FACTURACION_AUTORIZACION, FACTURACION_CONTROL, FACTURACION_NOPERACION, IDTIPOMUESTRALOCALIZACION, IDMOMENTODIAGNOSTICO, AUXID1, AUXC1, AUXT1, AUXID2, AUXC2, AUXC3, FACTURACION_FECHA_DOCUMENTO, FACTURACION_FECHA_AUTORIZACION, TRATAMIENTO, TIPO_MUESTRA_DESCRIPCION, IDNIVELACCESO, IDAUXILIAR, FECHA_REGISTRO, IDUSUARIO_ALTA, IDTARIFA, IDMONEDA, IMPORTE_PUNTO, IDPETICION_ORIGEN, IDCENTRO, FECHA_ENTREGA, FECHA_ENTREGA_MANUAL, IDIDIOMA, FACTURACION_BLOQUEADA, IDFORMATOPRUEBA ) values( :IDPETICION, :IDLABORATORIO, :FECHA, :IDSERIE, :MUESTRA, :CODIGO, :PETICIONCB, :FECHA_TOMA, :FECHA_INGRESO, :IDPACIENTE, :REFERENCIA_PACIENTE, :IDPROCEDENCIA, :IDPROCEDENCIASERVICIO, :IDCENTROFACTURACION, :IDGRUPO, :IDCENTROEXTRACCION, :IDMEDICO, :IDDIAGNOSTICO, :IDDIAGNOSTICON, :DIAGNOSTICO, :COMENTARIO, :IMPRIMIR_COMENTARIO, :HABITACION, :CODIGOINTERNO, :CODIGOEXTERNO, :URGENTE, :IDTIPOMUESTRA, :IDTIPOALTA, :IDESTADOIMPORTACION, :IDLABEXTERNO, :PRIORIDAD, :PRIORIDAD_MEDICO, :FECHA_REGISTRO_EXTERNO, :FACTURACION_DOCUMENTO, :FACTURACION_AUTORIZACION, :FACTURACION_CONTROL, :FACTURACION_NOPERACION, :IDTIPOMUESTRALOCALIZACION, :IDMOMENTODIAGNOSTICO, :AUXID1, :AUXC1, :AUXT1, :AUXID2, :AUXC2, :AUXC3, :FACTURACION_FECHA_DOCUMENTO, :FACTURACION_FECHA_AUTORIZACION, :TRATAMIENTO, :TIPO_MUESTRA_DESCRIPCION, :IDNIVELACCESO, :IDAUXILIAR, :FECHA_REGISTRO, :IDUSUARIO_ALTA, :IDTARIFA, :IDMONEDA, :IMPORTE_PUNTO, :IDPETICION_ORIGEN, :IDCENTRO, :FECHA_ENTREGA, :FECHA_ENTREGA_MANUAL, :IDIDIOMA, :FACTURACION_BLOQUEADA, :IDFORMATOPRUEBA )
:IDPETICION(LargeInt)=100000000108 
:IDLABORATORIO(Integer)=0 
:FECHA(DateTime)=13/09/2016 
:IDSERIE(String[0])='' 
:MUESTRA(LargeInt)=88 
:CODIGO(Integer)=0 
:PETICIONCB(String[8])='00000088' 
:FECHA_TOMA(DateTime)=13/09/2016 13:47:46 
:FECHA_INGRESO(Unknown)=<NULL> 
:IDPACIENTE(Integer)=1 
:REFERENCIA_PACIENTE(String[25])='1|APELLIDOS 1|NOMBRE 1|||' 
:IDPROCEDENCIA(Integer)=-1 
:IDPROCEDENCIASERVICIO(Unknown)=<NULL> 
:IDCENTROFACTURACION(Integer)=0 
:IDGRUPO(Integer)=0 
:IDCENTROEXTRACCION(Integer)=-1 
:IDMEDICO(Integer)=-1 
:IDDIAGNOSTICO(String[0])='' 
:IDDIAGNOSTICON(Unknown)=<NULL> 
:DIAGNOSTICO(Unknown)=<NULL> 
:COMENTARIO(String[0])='' 
:IMPRIMIR_COMENTARIO(Integer)=0 
:HABITACION(String[0])='' 
:CODIGOINTERNO(String[0])='' 
:CODIGOEXTERNO(String[0])='' 
:URGENTE(Integer)=0 
:IDTIPOMUESTRA(Unknown)=<NULL> 
:IDTIPOALTA(Integer)=0 
:IDESTADOIMPORTACION(Unknown)=<NULL> 
:IDLABEXTERNO(String[0])='' 
:PRIORIDAD(Integer)=-1 
:PRIORIDAD_MEDICO(Integer)=0 
:FECHA_REGISTRO_EXTERNO(Unknown)=<NULL> 
:FACTURACION_DOCUMENTO(String[0])='' 
:FACTURACION_AUTORIZACION(String[0])='' 
:FACTURACION_CONTROL(String[0])='' 
:FACTURACION_NOPERACION(String[0])='' 
:IDTIPOMUESTRALOCALIZACION(Unknown)=<NULL> 
:IDMOMENTODIAGNOSTICO(Unknown)=<NULL> 
:AUXID1(Unknown)=<NULL> 
:AUXC1(Unknown)=<NULL> 
:AUXT1(Unknown)=<NULL> 
:AUXID2(Unknown)=<NULL> 
:AUXC2(Unknown)=<NULL> 
:AUXC3(Unknown)=<NULL> 
:FACTURACION_FECHA_DOCUMENTO(Unknown)=<NULL> 
:FACTURACION_FECHA_AUTORIZACION(Unknown)=<NULL> 
:TRATAMIENTO(String[0])='' 
:TIPO_MUESTRA_DESCRIPCION(Unknown)=<NULL> 
:IDNIVELACCESO(Integer)=0 
:IDAUXILIAR(String[15])='IDP100000000108' 
:FECHA_REGISTRO(DateTime)=13/09/2016 13:48:10 
:IDUSUARIO_ALTA(Integer)=0 
:IDTARIFA(Integer)=0 
:IDMONEDA(Integer)=1 
:IMPORTE_PUNTO(Float)=1 
:IDPETICION_ORIGEN(Unknown)=<NULL> 
:IDCENTRO(Unknown)=<NULL> 
:FECHA_ENTREGA(Unknown)=<NULL> 
:FECHA_ENTREGA_MANUAL(Integer)=0 
:IDIDIOMA(Integer)=0 
:FACTURACION_BLOQUEADA(Integer)=0 
:IDFORMATOPRUEBA(Integer)=0
13/09/2016 13:48:10.398 
Commit:

Posted: **Tue 13 Sep 2016 11:54**

This is the DDL of the table

Code: Select all

CREATE TABLE PETICION (
    IDPETICION Number(19) DEFAULT 0 NOT NULL,
    IDLABORATORIO Number(5) DEFAULT 0 NOT NULL,
    FECHA Date DEFAULT TRUNC(current_date,'DD') NOT NULL,
    IDSERIE VarChar2(2 Char),
    CODIGO Number(5) DEFAULT 0 NOT NULL,
    MUESTRA Number(19) DEFAULT 0 NOT NULL,
    PETICIONCB VarChar2(25 Char),
    FECHA_ALTA Timestamp(4) DEFAULT CURRENT_TIMESTAMP NOT NULL,
    FECHA_TOMA Timestamp(4),
    FECHA_ENTREGA Timestamp(4),
    FECHA_ENTREGA_MANUAL Number(5) DEFAULT 0,
    FECHA_INGRESO Timestamp(4),
    IDPACIENTE Number(10) DEFAULT 0 NOT NULL,
    REFERENCIA_PACIENTE VarChar2(127 Char),
    IDPROCEDENCIA Number(10) DEFAULT 0 NOT NULL,
    IDPROCEDENCIASERVICIO Number(10),
    IDAGENTE Number(10) DEFAULT 0 NOT NULL,
    IDCENTROFACTURACION Number(10) DEFAULT 0 NOT NULL,
    IDGRUPO Number(5) DEFAULT 0 NOT NULL,
    IDTARIFA Number(10) DEFAULT 0 NOT NULL,
    IDCENTROEXTRACCION Number(10) DEFAULT 0 NOT NULL,
    IDMEDICO Number(10) DEFAULT 0 NOT NULL,
    IDDIAGNOSTICO VarChar2(10 Char),
    DIAGNOSTICO VarChar2(127 Char),
    COMENTARIO VarChar2(512 Char),
    IMPRIMIR_COMENTARIO Number(5) DEFAULT 0 NOT NULL,
    HABITACION VarChar2(10 Char),
    CODIGOINTERNO VarChar2(31 Char),
    CODIGOEXTERNO VarChar2(31 Char),
    URGENTE Number(5) DEFAULT 0 NOT NULL,
    EXPORTADO Number(5) DEFAULT 0 NOT NULL,
    PRUEBAS Number(5) DEFAULT 0 NOT NULL,
    IMPORTADO Number(5) DEFAULT 0 NOT NULL,
    IDGRUPOREFERENCIA Number(5) DEFAULT 0 NOT NULL,
    IDMONEDA Number(5) DEFAULT 0 NOT NULL,
    IMPORTE Binary_Double DEFAULT 0 NOT NULL,
    IMPORTE_DESCUENTO Binary_Double DEFAULT 0 NOT NULL,
    IMPORTE_PUNTO Binary_Double DEFAULT 0 NOT NULL,
    COBRADO Binary_Double DEFAULT 0 NOT NULL,
    FACTURADO Number(5) DEFAULT 0 NOT NULL,
    COMISION_LIQUIDADA Number(5) DEFAULT 0 NOT NULL,
    FECHA_INFORME Timestamp(4),
    IDTIPOMUESTRA Number(10),
    IDCONDICIONMUESTRA Number(5),
    IDAREA Number(5),
    IDSECCION Number(5),
    IDTIPOALTA Number(5),
    IDUSUARIO_ALTA Number(5),
    IDESTADOEXPORTACION Number(5),
    IDESTADOIMPORTACION Number(5),
    INCIDENCIAS Number(5) DEFAULT 0 NOT NULL,
    IDTIPOPETICION Number(5),
    IDAUXILIAR VarChar2(31 Char),
    HISTORICO Number(5) DEFAULT 0 NOT NULL,
    IDLABEXTERNO VarChar2(20 Char),
    IDACCION Number(19) DEFAULT 0 NOT NULL,
    IDPETICION_ORIGEN Number(19),
    PRIORIDAD Number(5) DEFAULT 0 NOT NULL,
    NDOCUMENTO Number(5) DEFAULT 0 NOT NULL,
    NVINCULO Number(5),
    IDDIAGNOSTICON Number(10),
    FECHA_REGISTRO_EXTERNO Timestamp(4),
    FACTURACION_DOCUMENTO VarChar2(31 Char),
    FACTURACION_AUTORIZACION VarChar2(31 Char),
    FACTURACION_CONTROL VarChar2(31 Char),
    FACTURACION_NOPERACION VarChar2(31 Char),
    IDTIPOMUESTRALOCALIZACION Number(10),
    PRIORIDAD_MEDICO Number(5),
    FACTURACION_BLOQUEADA Number(5) DEFAULT 0,
    FECHA_REGISTRO Timestamp(4),
    IDPROYECTO Number(10),
    FECHA_RESULTADO Timestamp(4),
    FECHA_VALIDACION Timestamp(4),
    FECHA_VALIDACION_TECNICA Timestamp(4),
    IDMOMENTODIAGNOSTICO Number(5),
    AUXID1 Number(10),
    AUXC1 VarChar2(254 Char),
    AUXT1 CLOB,
    AUXID2 Number(10),
    AUXC2 VarChar2(127 Char),
    AUXC3 VarChar2(127 Char),
    FACTURACION_FECHA_DOCUMENTO Date,
    FACTURACION_FECHA_AUTORIZACION Date,
    IDUSUARIOE Number(5),
    FIRMA_DIGITAL VarChar2(512 Char),
    TIPO_MUESTRA_DESCRIPCION VarChar2(60 Char),
    TRATAMIENTO VarChar2(127 Char),
    IDPROCEDENCIA_ORIGEN Number(10),
    FIRMA_DIGITAL_IDUSUARIO Number(5),
    FIRMA_DIGITAL_FECHA Timestamp(4),
    IDIDIOMA Number(5),
    IDFORMATOPRUEBA Number(5),
    IDNIVELACCESO Number(5),
    IDUSUARIO_TOMA Number(5),
    IDUSUARIOE_TOMA Number(10),
    IDCENTRO Number(10), 
    CONSTRAINT PK_PETICION PRIMARY KEY (
      IDPETICION
    )
)

Posted: **Wed 14 Sep 2016 12:21**

We have checked UniDAC behavior when using parameters of DateTime type and detected no issues. For deeper investigation, please send us a sample of filling in the PETICION table with test data used in your project.

Posted: **Wed 14 Sep 2016 14:31**

It is very simply to reproduce. Please, review your test. I attach an example with the two errors that I have reported with 6.4.14.

Code: Select all

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 463
  ClientWidth = 418
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object coButton1: TButton
    Left = 24
    Top = 56
    Width = 377
    Height = 25
    Caption = 'Case 1. Execute insert into select from'
    TabOrder = 0
    OnClick = coButton1Click
  end
  object coButton2: TButton
    Left = 24
    Top = 104
    Width = 377
    Height = 25
    Caption = 'Case 2. Execute insert into peticion'
    TabOrder = 1
    OnClick = coButton2Click
  end
  object Memo1: TMemo
    Left = 24
    Top = 135
    Width = 377
    Height = 314
    Lines.Strings = (
      'Delphi 2007'
      ''
      'PARAMETER;VALUE'
      '"NLS_RDBMS_VERSION";"12.1.0.2.0"'
      '"NLS_NCHAR_CONV_EXCP";"FALSE"'
      '"NLS_LENGTH_SEMANTICS";"BYTE"'
      '"NLS_COMP";"BINARY"'
      '"NLS_DUAL_CURRENCY";"$"'
      '"NLS_TIMESTAMP_TZ_FORMAT";"DD-MON-RR HH.MI.SSXFF AM TZR"'
      '"NLS_TIME_TZ_FORMAT";"HH.MI.SSXFF AM TZR"'
      '"NLS_TIMESTAMP_FORMAT";"DD-MON-RR HH.MI.SSXFF AM"'
      '"NLS_TIME_FORMAT";"HH.MI.SSXFF AM"'
      '"NLS_SORT";"BINARY"'
      '"NLS_DATE_LANGUAGE";"AMERICAN"'
      '"NLS_DATE_FORMAT";"DD-MON-RR"'
      '"NLS_CALENDAR";"GREGORIAN"'
      '"NLS_NUMERIC_CHARACTERS";".,"'
      '"NLS_NCHAR_CHARACTERSET";"AL16UTF16"'
      '"NLS_CHARACTERSET";"AL32UTF8"'
      '"NLS_ISO_CURRENCY";"AMERICA"'
      '"NLS_CURRENCY";"$"'
      '"NLS_TERRITORY";"AMERICA"'
      '"NLS_LANGUAGE";"AMERICAN"'
      '')
    ReadOnly = True
    TabOrder = 2
  end
  object UniConnection1: TUniConnection
    AutoCommit = False
    ProviderName = 'Oracle'
    SpecificOptions.Strings = (
      'Oracle.Direct=True')
    Username = 'gestlab'
    Server = 'cointec-srv8.cointec.local/gestlab.cointec.local'
    Connected = True
    LoginPrompt = False
    Left = 64
    Top = 24
    EncryptedPassword = '90FF8DFF9EFF9CFF93FF9AFF'
  end
  object SQLCase1: TUniQuery
    Connection = UniConnection1
    SQL.Strings = (
      
        'insert into Peticion( IDPETICION, IDLABORATORIO, FECHA, IDSERIE,' +
        ' MUESTRA, CODIGO, PETICIONCB, FECHA_TOMA, FECHA_INGRESO, IDPACIE' +
        'NTE, REFERENCIA_PACIENTE, IDPROCEDENCIA, IDPROCEDENCIASERVICIO, ' +
        'IDCENTROFACTURACION, IDGRUPO, IDCENTROEXTRACCION, IDMEDICO, IDDI' +
        'AGNOSTICO, IDDIAGNOSTICON, DIAGNOSTICO, COMENTARIO, IMPRIMIR_COM' +
        'ENTARIO, HABITACION, CODIGOINTERNO, CODIGOEXTERNO, URGENTE, IDTI' +
        'POMUESTRA, IDTIPOALTA, IDESTADOIMPORTACION, IDLABEXTERNO, PRIORI' +
        'DAD, PRIORIDAD_MEDICO, FECHA_REGISTRO_EXTERNO, FACTURACION_DOCUM' +
        'ENTO, FACTURACION_AUTORIZACION, FACTURACION_CONTROL, FACTURACION' +
        '_NOPERACION, IDTIPOMUESTRALOCALIZACION, IDMOMENTODIAGNOSTICO, AU' +
        'XID1, AUXC1, AUXT1, AUXID2, AUXC2, AUXC3, FACTURACION_FECHA_DOCU' +
        'MENTO, FACTURACION_FECHA_AUTORIZACION, TRATAMIENTO, TIPO_MUESTRA' +
        '_DESCRIPCION, IDNIVELACCESO, IDAUXILIAR, FECHA_REGISTRO, IDUSUAR' +
        'IO_ALTA, IDTARIFA, IDMONEDA, IMPORTE_PUNTO, IDPETICION_ORIGEN, I' +
        'DCENTRO, FECHA_ENTREGA, FECHA_ENTREGA_MANUAL, IDIDIOMA, FACTURAC' +
        'ION_BLOQUEADA, IDFORMATOPRUEBA ) '
      
        'values( :IDPETICION, :IDLABORATORIO, :FECHA, :IDSERIE, :MUESTRA,' +
        ' :CODIGO, :PETICIONCB, :FECHA_TOMA, :FECHA_INGRESO, :IDPACIENTE,' +
        ' :REFERENCIA_PACIENTE, :IDPROCEDENCIA, :IDPROCEDENCIASERVICIO, :' +
        'IDCENTROFACTURACION, :IDGRUPO, :IDCENTROEXTRACCION, :IDMEDICO, :' +
        'IDDIAGNOSTICO, :IDDIAGNOSTICON, :DIAGNOSTICO, :COMENTARIO, :IMPR' +
        'IMIR_COMENTARIO, :HABITACION, :CODIGOINTERNO, :CODIGOEXTERNO, :U' +
        'RGENTE, :IDTIPOMUESTRA, :IDTIPOALTA, :IDESTADOIMPORTACION, :IDLA' +
        'BEXTERNO, :PRIORIDAD, :PRIORIDAD_MEDICO, :FECHA_REGISTRO_EXTERNO' +
        ', :FACTURACION_DOCUMENTO, :FACTURACION_AUTORIZACION, :FACTURACIO' +
        'N_CONTROL, :FACTURACION_NOPERACION, :IDTIPOMUESTRALOCALIZACION, ' +
        ':IDMOMENTODIAGNOSTICO, :AUXID1, :AUXC1, :AUXT1, :AUXID2, :AUXC2,' +
        ' :AUXC3, :FACTURACION_FECHA_DOCUMENTO, :FACTURACION_FECHA_AUTORI' +
        'ZACION, :TRATAMIENTO, :TIPO_MUESTRA_DESCRIPCION, :IDNIVELACCESO,' +
        ' :IDAUXILIAR, :FECHA_REGISTRO, :IDUSUARIO_ALTA, :IDTARIFA, :IDMO' +
        'NEDA, :IMPORTE_PUNTO, :IDPETICION_ORIGEN, :IDCENTRO, :FECHA_ENTR' +
        'EGA, :FECHA_ENTREGA_MANUAL, :IDIDIOMA, :FACTURACION_BLOQUEADA, :' +
        'IDFORMATOPRUEBA )')
    Left = 112
    Top = 24
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IDPETICION'
      end
      item
        DataType = ftUnknown
        Name = 'IDLABORATORIO'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
      end
      item
        DataType = ftUnknown
        Name = 'IDSERIE'
      end
      item
        DataType = ftUnknown
        Name = 'MUESTRA'
      end
      item
        DataType = ftUnknown
        Name = 'CODIGO'
      end
      item
        DataType = ftUnknown
        Name = 'PETICIONCB'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA_TOMA'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA_INGRESO'
      end
      item
        DataType = ftUnknown
        Name = 'IDPACIENTE'
      end
      item
        DataType = ftUnknown
        Name = 'REFERENCIA_PACIENTE'
      end
      item
        DataType = ftUnknown
        Name = 'IDPROCEDENCIA'
      end
      item
        DataType = ftUnknown
        Name = 'IDPROCEDENCIASERVICIO'
      end
      item
        DataType = ftUnknown
        Name = 'IDCENTROFACTURACION'
      end
      item
        DataType = ftUnknown
        Name = 'IDGRUPO'
      end
      item
        DataType = ftUnknown
        Name = 'IDCENTROEXTRACCION'
      end
      item
        DataType = ftUnknown
        Name = 'IDMEDICO'
      end
      item
        DataType = ftUnknown
        Name = 'IDDIAGNOSTICO'
      end
      item
        DataType = ftUnknown
        Name = 'IDDIAGNOSTICON'
      end
      item
        DataType = ftUnknown
        Name = 'DIAGNOSTICO'
      end
      item
        DataType = ftUnknown
        Name = 'COMENTARIO'
      end
      item
        DataType = ftUnknown
        Name = 'IMPRIMIR_COMENTARIO'
      end
      item
        DataType = ftUnknown
        Name = 'HABITACION'
      end
      item
        DataType = ftUnknown
        Name = 'CODIGOINTERNO'
      end
      item
        DataType = ftUnknown
        Name = 'CODIGOEXTERNO'
      end
      item
        DataType = ftUnknown
        Name = 'URGENTE'
      end
      item
        DataType = ftUnknown
        Name = 'IDTIPOMUESTRA'
      end
      item
        DataType = ftUnknown
        Name = 'IDTIPOALTA'
      end
      item
        DataType = ftUnknown
        Name = 'IDESTADOIMPORTACION'
      end
      item
        DataType = ftUnknown
        Name = 'IDLABEXTERNO'
      end
      item
        DataType = ftUnknown
        Name = 'PRIORIDAD'
      end
      item
        DataType = ftUnknown
        Name = 'PRIORIDAD_MEDICO'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA_REGISTRO_EXTERNO'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_DOCUMENTO'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_AUTORIZACION'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_CONTROL'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_NOPERACION'
      end
      item
        DataType = ftUnknown
        Name = 'IDTIPOMUESTRALOCALIZACION'
      end
      item
        DataType = ftUnknown
        Name = 'IDMOMENTODIAGNOSTICO'
      end
      item
        DataType = ftUnknown
        Name = 'AUXID1'
      end
      item
        DataType = ftUnknown
        Name = 'AUXC1'
      end
      item
        DataType = ftUnknown
        Name = 'AUXT1'
      end
      item
        DataType = ftUnknown
        Name = 'AUXID2'
      end
      item
        DataType = ftUnknown
        Name = 'AUXC2'
      end
      item
        DataType = ftUnknown
        Name = 'AUXC3'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_FECHA_DOCUMENTO'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_FECHA_AUTORIZACION'
      end
      item
        DataType = ftUnknown
        Name = 'TRATAMIENTO'
      end
      item
        DataType = ftUnknown
        Name = 'TIPO_MUESTRA_DESCRIPCION'
      end
      item
        DataType = ftUnknown
        Name = 'IDNIVELACCESO'
      end
      item
        DataType = ftUnknown
        Name = 'IDAUXILIAR'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA_REGISTRO'
      end
      item
        DataType = ftUnknown
        Name = 'IDUSUARIO_ALTA'
      end
      item
        DataType = ftUnknown
        Name = 'IDTARIFA'
      end
      item
        DataType = ftUnknown
        Name = 'IDMONEDA'
      end
      item
        DataType = ftUnknown
        Name = 'IMPORTE_PUNTO'
      end
      item
        DataType = ftUnknown
        Name = 'IDPETICION_ORIGEN'
      end
      item
        DataType = ftUnknown
        Name = 'IDCENTRO'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA_ENTREGA'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA_ENTREGA_MANUAL'
      end
      item
        DataType = ftUnknown
        Name = 'IDIDIOMA'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_BLOQUEADA'
      end
      item
        DataType = ftUnknown
        Name = 'IDFORMATOPRUEBA'
      end>
  end
  object SQLCase2: TUniQuery
    Connection = UniConnection1
    SQL.Strings = (
      
        'insert into Peticion( IDPETICION, IDLABORATORIO, FECHA, IDSERIE,' +
        ' MUESTRA, CODIGO, PETICIONCB, FECHA_TOMA, FECHA_INGRESO, IDPACIE' +
        'NTE, REFERENCIA_PACIENTE, IDPROCEDENCIA, IDPROCEDENCIASERVICIO, ' +
        'IDCENTROFACTURACION, IDGRUPO, IDCENTROEXTRACCION, IDMEDICO, IDDI' +
        'AGNOSTICO, IDDIAGNOSTICON, DIAGNOSTICO, COMENTARIO, IMPRIMIR_COM' +
        'ENTARIO, HABITACION, CODIGOINTERNO, CODIGOEXTERNO, URGENTE, IDTI' +
        'POMUESTRA, IDTIPOALTA, IDESTADOIMPORTACION, IDLABEXTERNO, PRIORI' +
        'DAD, PRIORIDAD_MEDICO, FECHA_REGISTRO_EXTERNO, FACTURACION_DOCUM' +
        'ENTO, FACTURACION_AUTORIZACION, FACTURACION_CONTROL, FACTURACION' +
        '_NOPERACION, IDTIPOMUESTRALOCALIZACION, IDMOMENTODIAGNOSTICO, AU' +
        'XID1, AUXC1, AUXT1, AUXID2, AUXC2, AUXC3, FACTURACION_FECHA_DOCU' +
        'MENTO, FACTURACION_FECHA_AUTORIZACION, TRATAMIENTO, TIPO_MUESTRA' +
        '_DESCRIPCION, IDNIVELACCESO, IDAUXILIAR, FECHA_REGISTRO, IDUSUAR' +
        'IO_ALTA, IDTARIFA, IDMONEDA, IMPORTE_PUNTO, IDPETICION_ORIGEN, I' +
        'DCENTRO, FECHA_ENTREGA, FECHA_ENTREGA_MANUAL, IDIDIOMA, FACTURAC' +
        'ION_BLOQUEADA, IDFORMATOPRUEBA ) '
      
        'values( :IDPETICION, :IDLABORATORIO, :FECHA, :IDSERIE, :MUESTRA,' +
        ' :CODIGO, :PETICIONCB, :FECHA_TOMA, :FECHA_INGRESO, :IDPACIENTE,' +
        ' :REFERENCIA_PACIENTE, :IDPROCEDENCIA, :IDPROCEDENCIASERVICIO, :' +
        'IDCENTROFACTURACION, :IDGRUPO, :IDCENTROEXTRACCION, :IDMEDICO, :' +
        'IDDIAGNOSTICO, :IDDIAGNOSTICON, :DIAGNOSTICO, :COMENTARIO, :IMPR' +
        'IMIR_COMENTARIO, :HABITACION, :CODIGOINTERNO, :CODIGOEXTERNO, :U' +
        'RGENTE, :IDTIPOMUESTRA, :IDTIPOALTA, :IDESTADOIMPORTACION, :IDLA' +
        'BEXTERNO, :PRIORIDAD, :PRIORIDAD_MEDICO, :FECHA_REGISTRO_EXTERNO' +
        ', :FACTURACION_DOCUMENTO, :FACTURACION_AUTORIZACION, :FACTURACIO' +
        'N_CONTROL, :FACTURACION_NOPERACION, :IDTIPOMUESTRALOCALIZACION, ' +
        ':IDMOMENTODIAGNOSTICO, :AUXID1, :AUXC1, :AUXT1, :AUXID2, :AUXC2,' +
        ' :AUXC3, :FACTURACION_FECHA_DOCUMENTO, :FACTURACION_FECHA_AUTORI' +
        'ZACION, :TRATAMIENTO, :TIPO_MUESTRA_DESCRIPCION, :IDNIVELACCESO,' +
        ' :IDAUXILIAR, :FECHA_REGISTRO, :IDUSUARIO_ALTA, :IDTARIFA, :IDMO' +
        'NEDA, :IMPORTE_PUNTO, :IDPETICION_ORIGEN, :IDCENTRO, :FECHA_ENTR' +
        'EGA, :FECHA_ENTREGA_MANUAL, :IDIDIOMA, :FACTURACION_BLOQUEADA, :' +
        'IDFORMATOPRUEBA )')
    Left = 152
    Top = 24
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IDPETICION'
      end
      item
        DataType = ftUnknown
        Name = 'IDLABORATORIO'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
      end
      item
        DataType = ftUnknown
        Name = 'IDSERIE'
      end
      item
        DataType = ftUnknown
        Name = 'MUESTRA'
      end
      item
        DataType = ftUnknown
        Name = 'CODIGO'
      end
      item
        DataType = ftUnknown
        Name = 'PETICIONCB'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA_TOMA'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA_INGRESO'
      end
      item
        DataType = ftUnknown
        Name = 'IDPACIENTE'
      end
      item
        DataType = ftUnknown
        Name = 'REFERENCIA_PACIENTE'
      end
      item
        DataType = ftUnknown
        Name = 'IDPROCEDENCIA'
      end
      item
        DataType = ftUnknown
        Name = 'IDPROCEDENCIASERVICIO'
      end
      item
        DataType = ftUnknown
        Name = 'IDCENTROFACTURACION'
      end
      item
        DataType = ftUnknown
        Name = 'IDGRUPO'
      end
      item
        DataType = ftUnknown
        Name = 'IDCENTROEXTRACCION'
      end
      item
        DataType = ftUnknown
        Name = 'IDMEDICO'
      end
      item
        DataType = ftUnknown
        Name = 'IDDIAGNOSTICO'
      end
      item
        DataType = ftUnknown
        Name = 'IDDIAGNOSTICON'
      end
      item
        DataType = ftUnknown
        Name = 'DIAGNOSTICO'
      end
      item
        DataType = ftUnknown
        Name = 'COMENTARIO'
      end
      item
        DataType = ftUnknown
        Name = 'IMPRIMIR_COMENTARIO'
      end
      item
        DataType = ftUnknown
        Name = 'HABITACION'
      end
      item
        DataType = ftUnknown
        Name = 'CODIGOINTERNO'
      end
      item
        DataType = ftUnknown
        Name = 'CODIGOEXTERNO'
      end
      item
        DataType = ftUnknown
        Name = 'URGENTE'
      end
      item
        DataType = ftUnknown
        Name = 'IDTIPOMUESTRA'
      end
      item
        DataType = ftUnknown
        Name = 'IDTIPOALTA'
      end
      item
        DataType = ftUnknown
        Name = 'IDESTADOIMPORTACION'
      end
      item
        DataType = ftUnknown
        Name = 'IDLABEXTERNO'
      end
      item
        DataType = ftUnknown
        Name = 'PRIORIDAD'
      end
      item
        DataType = ftUnknown
        Name = 'PRIORIDAD_MEDICO'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA_REGISTRO_EXTERNO'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_DOCUMENTO'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_AUTORIZACION'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_CONTROL'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_NOPERACION'
      end
      item
        DataType = ftUnknown
        Name = 'IDTIPOMUESTRALOCALIZACION'
      end
      item
        DataType = ftUnknown
        Name = 'IDMOMENTODIAGNOSTICO'
      end
      item
        DataType = ftUnknown
        Name = 'AUXID1'
      end
      item
        DataType = ftUnknown
        Name = 'AUXC1'
      end
      item
        DataType = ftUnknown
        Name = 'AUXT1'
      end
      item
        DataType = ftUnknown
        Name = 'AUXID2'
      end
      item
        DataType = ftUnknown
        Name = 'AUXC2'
      end
      item
        DataType = ftUnknown
        Name = 'AUXC3'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_FECHA_DOCUMENTO'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_FECHA_AUTORIZACION'
      end
      item
        DataType = ftUnknown
        Name = 'TRATAMIENTO'
      end
      item
        DataType = ftUnknown
        Name = 'TIPO_MUESTRA_DESCRIPCION'
      end
      item
        DataType = ftUnknown
        Name = 'IDNIVELACCESO'
      end
      item
        DataType = ftUnknown
        Name = 'IDAUXILIAR'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA_REGISTRO'
      end
      item
        DataType = ftUnknown
        Name = 'IDUSUARIO_ALTA'
      end
      item
        DataType = ftUnknown
        Name = 'IDTARIFA'
      end
      item
        DataType = ftUnknown
        Name = 'IDMONEDA'
      end
      item
        DataType = ftUnknown
        Name = 'IMPORTE_PUNTO'
      end
      item
        DataType = ftUnknown
        Name = 'IDPETICION_ORIGEN'
      end
      item
        DataType = ftUnknown
        Name = 'IDCENTRO'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA_ENTREGA'
      end
      item
        DataType = ftUnknown
        Name = 'FECHA_ENTREGA_MANUAL'
      end
      item
        DataType = ftUnknown
        Name = 'IDIDIOMA'
      end
      item
        DataType = ftUnknown
        Name = 'FACTURACION_BLOQUEADA'
      end
      item
        DataType = ftUnknown
        Name = 'IDFORMATOPRUEBA'
      end>
  end
end

Code: Select all

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBAccess, Uni,
  Menus, StdCtrls, cxButtons, CoControls, MemDS, oracleUniProvider;

type
  TForm1 = class(TForm)
    UniConnection1: TUniConnection;
    SQLCase1: TUniQuery;
    coButton1: TButton;
    coButton2: TButton;
    SQLCase2: TUniQuery;
    Memo1: TMemo;
    procedure coButton1Click(Sender: TObject);
    procedure coButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.coButton1Click(Sender: TObject);
var lRowsInserted, lRowsAffected: integer;
begin
   SQLCase1.SQL.Text := 'delete from PET_PRUEBA where IDPETICIONPRUEBA = 9000000000 ';
   SQLCase1.Execute;
   SQLCase1.Close;
   UniConnection1.Commit;

   SQLCase1.SQL.Text := 'INSERT INTO PET_PRUEBA (IDPETICIONPRUEBA, IDPETICION, NPRUEBA, FECHA, IDPRUEBA, IDPRUEBA_LISTA, IDPRUEBA_PERFIL, IDPACIENTE, TIPO, ' +
                                                 'NIVEL, PREFIJO, NRESULTADO, RESULTADO, TRESULTADO, FECHA_RESULTADO, IDTIPORESULTADO, ' +
                                                 'IDVALIDACION, FECHA_VALIDACION, IDUSUARIO_VALIDA, PATOLOGIA, COMENTARIO, DELTA_CHECK, ' +
                                                 'MARGEN_ULTIMO, IDEQUIPO, IDCENTROPROCESO, IDPRUEBAREF, ORDEN_IMPRESION, FECHA_INFORME, ' +
                                                 'IDUSUARIO_RESULTADO, FECHA_ALTA, NREPETICION, IDPRUEBAMU, FECHA_PROCESO, NPRUEBA_LISTA, ' +
                                                 'NLISTA, REGISTRO_PROCESO, IDESTADORESULTADO, REGISTRO_PROTOCOLO, IDAREA, IDPETICIONMUESTRA, ' +
                                                 'IDPRUINTERPRETACION, IMPRIMIR, IDPETICION_ORIGEN, NPRUEBA_ORIGEN, NDOCUMENTO, IDVALIDACION_TECNICA, ' +
                                                 'IDUSUARIO_VALIDACION_TECNICA, FECHA_VALIDACION_TECNICA, IDPRUINTERPRETACIONRES, TRESULTADOE, ' +
                                                 'IDINSTRUMENTO, NRESULTADO_CORREGIDO, IDSECCION, IDPETICIONPLATO, FECHA_ENTREGA, PARAMETROS, ' +
                                                 'NALARMA, IDMETODO, IDUNIDAD, IDDOCUMENTO, FIRMA_DIGITAL, IDTIPOMUESTRAN, IDESTADOEXPORTACION, ' +
                                                 'IDTUBO, FIRMA_DIGITAL_FECHA ) ' +
                         'VALUES (9000000000, 16390, 2, TO_TIMESTAMP(''04/26/2016 00:00:00.000'', ''MM/DD/YYYY HH24:MI:SS.FF3''), ' +
                                  '10001, 11483, NULL, 8455, ''N'', 1, NULL, 67.4, ''067,4'', NULL, TO_TIMESTAMP(''04/25/2016 17:05:00.000'', ''MM/DD/YYYY HH24:MI:SS.FF3''), ' +
                                  '1, 4, TO_TIMESTAMP(''05/20/2016 11:56:05.000'', ''MM/DD/YYYY HH24:MI:SS.FF3''), ' +
                                  '0, 0, NULL, 0, 0, 26, 0, 10, 1200104, NULL, -2, ' +
                                  'TO_TIMESTAMP(''04/26/2016 09:57:31.000'', ''MM/DD/YYYY HH24:MI:SS.FF3''), ' +
                                  '1, 282, NULL, NULL, 0, 0, 10, 0, 10, NULL, NULL, 1, NULL, NULL, 0, 0, NULL, ' +
                                  'NULL, NULL, NULL, 26, NULL, 110, NULL, ' +
                                  'TO_TIMESTAMP(''04/27/2016 09:57:59.000'', ''MM/DD/YYYY HH24:MI:SS.FF3''), 0, 0, 0, 5, ' +
                                  'NULL, NULL, 20, NULL, 33, NULL) ';
   SQLCase1.Execute;
   SQLCase1.Close;

   SQLCase1.SQL.Text := 'select * from PET_PRUEBA where IDPETICIONPRUEBA = 9000000000 ';
   SQLCase1.Execute;
   lRowsInserted := SQLCase1.RecordCount;
   SQLCase1.Close;

   SQLCase1.SQL.Text := 'insert into Pet_Prueba_resultado_Registro( IDPETICIONPRUEBA, TIPO, IDTIPORESULTADO, FECHA_RESULTADO, IDUSUARIO_RESULTADO, ' +
                                                                                                    'PREFIJO, NRESULTADO, RESULTADO, TRESULTADO, ' +
                                                                                                    'FECHA_VALIDACION, IDUSUARIO_VALIDA, IDVALIDACION, ' +
                                                                                                    'IDESTADORESULTADO, IDINSTRUMENTO, FECHA_INFORME, FIRMA_DIGITAL, FECHA_PROCESO, FIRMA_DIGITAL_FECHA, ' +
                                                                                                    'COMENTARIO, IDUSUARIO, FECHA ) ' +
                                                        'select IDPETICIONPRUEBA, TIPO, IDTIPORESULTADO, FECHA_RESULTADO, IDUSUARIO_RESULTADO, ' +
                                                               'PREFIJO, NRESULTADO, RESULTADO, TRESULTADO, ' +
                                                               'FECHA_VALIDACION, IDUSUARIO_VALIDA, IDVALIDACION, ' +
                                                               'IDESTADORESULTADO, IDINSTRUMENTO, FECHA_INFORME, FIRMA_DIGITAL, FECHA_PROCESO, FIRMA_DIGITAL_FECHA, ' +
                                                               ':COMENTARIO, :IDUSUARIO, :FECHA ' +
                                                        'from Pet_Prueba pp ' +
                                                        'where pp.IDPETICIONPRUEBA = :IDPETICIONPRUEBA';
   SQLCase1.ParamByName('FECHA').Value := Now;
   SQLCase1.ParamByName('IDUSUARIO').Value := 245;
   SQLCase1.ParamByName('COMENTARIO').Value := '';
   SQLCase1.ParamByName('IDPETICIONPRUEBA').Value := 9000000000;
   SQLCase1.Execute;
   lRowsAffected := SQLCase1.RowsAffected;
   UniConnection1.Commit;

   coButton1.Caption := Format( 'Executes rows inserted %d affected %d ', [lRowsInserted, lRowsAffected ] );
end;


procedure TForm1.coButton2Click(Sender: TObject);
begin
  SQLCase2.ParamByName( 'IDPETICION' ).value                      := 900000000009;
  SQLCase2.ParamByName( 'IDLABORATORIO' ).value                   := 0;
  SQLCase2.ParamByName( 'FECHA' ).Value                           := date;
  SQLCase2.ParamByName( 'IDSERIE' ).Value                         := '';
  SQLCase2.ParamByName( 'MUESTRA' ).Value                         := 999;
  SQLCase2.ParamByName( 'CODIGO' ).Value                          := 0;
  SQLCase2.ParamByName( 'PETICIONCB' ).Value                      := '999';
  SQLCase2.ParamByName( 'FECHA_TOMA' ).Value                      := now;
  SQLCase2.ParamByName( 'FECHA_INGRESO' ).Value                   := null;
  SQLCase2.ParamByName( 'IDPACIENTE' ).Value                      := 1;
  SQLCase2.ParamByName( 'REFERENCIA_PACIENTE' ).Value             := '1|APELLIDOS 1|NOMBRE 1|||';
  SQLCase2.ParamByName( 'IDPROCEDENCIA' ).Value                   := -1;
  SQLCase2.ParamByName( 'IDPROCEDENCIASERVICIO' ).Value           := null;
  SQLCase2.ParamByName( 'IDCENTROFACTURACION' ).Value             := 0;
  SQLCase2.ParamByName( 'IDGRUPO' ).Value                         := 0;
  SQLCase2.ParamByName( 'IDCENTROEXTRACCION' ).Value              := -1;
  SQLCase2.ParamByName( 'IDMEDICO' ).Value                        := -1;
  SQLCase2.ParamByName( 'IDDIAGNOSTICO' ).Value                   := null;
  SQLCase2.ParamByName( 'IDDIAGNOSTICON' ).Value                  := null;
  SQLCase2.ParamByName( 'DIAGNOSTICO' ).Value                     := null;
  SQLCase2.ParamByName( 'COMENTARIO' ).Value                      := null;
  SQLCase2.ParamByName( 'IMPRIMIR_COMENTARIO' ).Value             := 0;
  SQLCase2.ParamByName( 'HABITACION' ).Value                      := '';
  SQLCase2.ParamByName( 'CODIGOINTERNO' ).Value                   := '';
  SQLCase2.ParamByName( 'CODIGOEXTERNO' ).Value                   := '';
  SQLCase2.ParamByName( 'URGENTE' ).Value                         := 0;
  SQLCase2.ParamByName( 'IDTIPOMUESTRA' ).Value                   := null;
  SQLCase2.ParamByName( 'IDTIPOALTA' ).Value                      := 0;
  SQLCase2.ParamByName( 'IDESTADOIMPORTACION' ).Value             := null;
  SQLCase2.ParamByName( 'IDLABEXTERNO' ).Value                    := '';
  SQLCase2.ParamByName( 'PRIORIDAD' ).Value                       := -1;
  SQLCase2.ParamByName( 'PRIORIDAD_MEDICO' ).Value                := 0;
  SQLCase2.ParamByName( 'FECHA_REGISTRO_EXTERNO' ).Value          := null;
  SQLCase2.ParamByName( 'FACTURACION_DOCUMENTO' ).Value           := '';
  SQLCase2.ParamByName( 'FACTURACION_AUTORIZACION' ).Value        := '';
  SQLCase2.ParamByName( 'FACTURACION_CONTROL' ).Value             := '';
  SQLCase2.ParamByName( 'FACTURACION_NOPERACION' ).Value          := '';
  SQLCase2.ParamByName( 'IDTIPOMUESTRALOCALIZACION' ).Value       := null;
  SQLCase2.ParamByName( 'IDMOMENTODIAGNOSTICO' ).Value            := null;
  SQLCase2.ParamByName( 'AUXID1' ).Value                          := null;
  SQLCase2.ParamByName( 'AUXC1' ).Value                           := null;
  SQLCase2.ParamByName( 'AUXT1' ).Value                           := null;
  SQLCase2.ParamByName( 'AUXID2' ).Value                          := null;
  SQLCase2.ParamByName( 'AUXC2' ).Value                           := null;
  SQLCase2.ParamByName( 'AUXC3' ).Value                           := null;
  SQLCase2.ParamByName( 'FACTURACION_FECHA_DOCUMENTO' ).Value     := null;
  SQLCase2.ParamByName( 'FACTURACION_FECHA_AUTORIZACION' ).Value  := null;
  SQLCase2.ParamByName( 'TRATAMIENTO' ).Value                     := '';
  SQLCase2.ParamByName( 'TIPO_MUESTRA_DESCRIPCION' ).Value        := null;
  SQLCase2.ParamByName( 'IDNIVELACCESO' ).Value                   := 0;
  SQLCase2.ParamByName( 'IDAUXILIAR' ).Value                      :='IDP100000000108';
  SQLCase2.ParamByName( 'FECHA_REGISTRO' ).Value                  := now;
  SQLCase2.ParamByName( 'IDUSUARIO_ALTA' ).Value                  := 0;
  SQLCase2.ParamByName( 'IDTARIFA' ).Value                        := 0;
  SQLCase2.ParamByName( 'IDMONEDA' ).Value                        := 1;
  SQLCase2.ParamByName( 'IMPORTE_PUNTO' ).Value                   := 1.0;
  SQLCase2.ParamByName( 'IDPETICION_ORIGEN' ).Value               := null;
  SQLCase2.ParamByName( 'IDCENTRO' ).Value                        := null;
  SQLCase2.ParamByName( 'FECHA_ENTREGA' ).Value                   := null;
  SQLCase2.ParamByName( 'FECHA_ENTREGA_MANUAL' ).Value            := 0;
  SQLCase2.ParamByName( 'IDIDIOMA' ).Value                        := 0;
  SQLCase2.ParamByName( 'FACTURACION_BLOQUEADA' ).Value           := 0;
  SQLCase2.ParamByName( 'IDFORMATOPRUEBA' ).Value                 := 0;
  SQLCase2.Execute;

  coButton2.Caption := 'Executed';
  UniConnection1.Rollback;  // Roll back in order to insert the same record multiple times to avoid PK error

  SQLCase2.Close;
  coButton2.Enabled := False;
end;

end.

Posted: **Thu 15 Sep 2016 14:13**

Thank you for the information. We have reproduced the issue, and we will inform you about the results shortly.

Posted: **Mon 19 Sep 2016 09:01**

Thank you for the information. We have reproduced the problem and fixed the bug. The fix will be included in the next UniDAC build. Currently, we can send you a night build of UniDAC with the fix. For this, please specify your license number to maximg*devart*com

Posted: **Mon 19 Sep 2016 12:52**

A link to download the night build was sent to your email address

Devart Forums

Error after upgrade to version 6.4.14 with Oracle

Error after upgrade to version 6.4.14 with Oracle

Re: Error after upgrade to version 6.4.14 with Oracle

Re: Error after upgrade to version 6.4.14 with Oracle

Re: Error after upgrade to version 6.4.14 with Oracle

Re: Error after upgrade to version 6.4.14 with Oracle

Re: Error after upgrade to version 6.4.14 with Oracle

Re: Error after upgrade to version 6.4.14 with Oracle