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.