Código SQL [-]
CREATE PROCEDURE CALCULOMARCACIONES(
  INICIO DATE,
  FINAL DATE,
  CODIGO INTEGER)
RETURNS(
  ID_EMPLEADOS INTEGER,
  FECHA DATE,
  NUM_DIA SMALLINT,
  DIA VARCHAR(30) CHARACTER SET NONE COLLATE NONE,
  ENTRADA0 TIMESTAMP,
  SALIDA0 TIMESTAMP,
  ENTRADA1 TIMESTAMP,
  SALIDA1 TIMESTAMP,
  ENTRADA2 TIMESTAMP,
  SALIDA2 TIMESTAMP,
  FALTA VARCHAR(1) CHARACTER SET NONE COLLATE NONE,
  HORASORDINARIAS DECIMAL(12, 2),
  HORASEXTRAS DECIMAL(12, 2))
AS
DECLARE VARIABLE FILA INTEGER;
DECLARE VARIABLE COLUMNA SMALLINT;
DECLARE VARIABLE XFECHAHORA TIMESTAMP;
DECLARE VARIABLE HORASORDEXTRA VARCHAR(20);
DECLARE VARIABLE MINUTOSAHORA VARCHAR(20);
BEGIN

  FOR
 
   SELECT
                    TMARCACIONES.ID_EMPLEADOS
                    -->LINEA.LINEA
                    FROM
                    TMARCACIONES                    
                      -->INNER JOIN LINEA ON (MARCACIONES_RELOJ.IDLINEA = LINEA.IDLINEA)
                    WHERE
                    TMARCACIONES.FECHA BETWEEN :INICIO AND :FINAL AND TMARCACIONES.ID_EMPLEADOS = :CODIGO
                    GROUP BY
                    TMARCACIONES.ID_EMPLEADOS
                    -->LINEA.LINEA
                    ORDER BY
                    -->LINEA.LINEA,
                    TMARCACIONES.ID_EMPLEADOS
  
        INTO
            :ID_EMPLEADOS-->,                       
             DO 
  BEGIN
       /*ESTE CICLO CREA 7 REGISTROS, ES UN REGISTRO DE POR CADA DIA DE LA SEMANA*/
       Fila=1;
       FECHA = INICIO;
       WHILE (Fila<>16) DO
       BEGIN 
               NUM_DIA=FILA;
               COLUMNA=0;
               
               ENTRADA0=NULL;
               SALIDA0=NULL;
               
               ENTRADA1=NULL;
               SALIDA1=NULL;
               
               ENTRADA2=NULL;
               SALIDA2=NULL;
               
               HORASORDINARIAS=NULL;
               HORASEXTRAS=NULL;
               
               FOR 
                       SELECT 
                          M.HORA 
                       FROM 
                          TMARCACIONES M
                       WHERE 
                           M.ID_EMPLEADOS = :ID_EMPLEADOS AND  M.FECHA = :FECHA
                       ORDER BY
                             m.HORA
                       INTO 
                             :XFECHAHORA                            
                       
               DO
               BEGIN
                   /* AQUI CONSULTAS LAS MARCACIONES DE UN EMPLEADO EN UNA SOLA FECHA */     
                        
                   IF (COLUMNA = 0) THEN
                   ENTRADA0=XFECHAHORA;
                        
                   IF (COLUMNA = 1) THEN
                   SALIDA0=XFECHAHORA;

                   IF (COLUMNA = 2) THEN
                   ENTRADA1=XFECHAHORA;
                   
                   IF (COLUMNA = 3) THEN
                   SALIDA1=XFECHAHORA;                   

                   IF (COLUMNA = 4) THEN
                   ENTRADA2=XFECHAHORA;
                  
                   IF (COLUMNA = 5) THEN
                   SALIDA2=XFECHAHORA;
                   
                   IF (COLUMNA = 6) THEN
                   HORASORDINARIAS=XFECHAHORA;  
                   
                   COLUMNA = COLUMNA + 1;
               END 
              
              IF (ENTRADA0 IS NULL) THEN FALTA = 'X'; ELSE FALTA='';  
       
                SUSPEND;
              FECHA = INICIO + FILA;
              Fila = Fila + 1;
              
       END       
       /* Procedure body */
  END
END;

Result := True;

Log.Add('Q1. Creando Query',5,3);

//Procedimiento Log almacena strings en un stringlist y cada n cantidad de
//lineas las graba a un archivo de texto, que funciona como bitácora.
//Este procedimiento se utiliza en otras partes del sistema y no presenta
//problemas

Query := TADOQuery.Create(nil); //<-- access violation al invocar simplemente la creación del adoquery

Log.Add('Q2. Asignando Conexion,5,3);
Query.ConnectionString := sConn;

Log.Add('Q3. Sin Chequeo Parámetros,5,3);
Query.ParamCheck := False;

Log.Add('Q4. Asignando SQL,5,3);
Query.SQL.Add(Sql);

Log.Add('Q5. Ejecutando,5,3);
Query.Active := True;

//Se hacen otros procesos
//
//

FreeAndNil(Query);

on E: Exception do begin

Log.Add('Crear_Consulta --> Error : ' + E.Message + ' => ' + E.ClassName,5,3);
FreeAndNil(Query);

end;

Código Delphi [-]
function Existe_usuario (Qry: TADOQuery; const nick:string; contr:integer):boolean;
begin
  with Qry do
  begin
    Close;
    SQL.Text := 'SELECT nick_us, cont_us FROM usuario WHERE (nick_us= :PARAM_nick) and (cont_us= :PARAM_cont_us)';
    parameters.ParamByName('PARAM_nick').Value:=nick;
    parameters.ParamByName('PARAM_cont_us').Value:=contr;
    Open;
    Result := not Qry.IsEmpty;
    Close;
  end;
end;

Código SQL [-]
 SELECT  COUNT(TIPOTRANSACION)AS P FROM TRANSACIONES WHERE TIPOTRANSACION ='P' 
 SELECT  COUNT(TIPOTRANSACION)AS D FROM TRANSACIONES WHERE TIPOTRANSACION ='D' 
 SELECT  COUNT(TIPOTRANSACION)AS R FROM TRANSACIONES WHERE TIPOTRANSACION ='R'

Código Delphi [-]
  { Equals? }
  Function ghEquals (Const Value1, Value2 :String;
    Const CompareType :TghStrCompare = ghscLocaleAnyCase) :Boolean;
    Overload;

  { Equals? }
  Function ghEquals (Const Value1 :String; Const StartIndex :Integer;
    Const Value2 :String;
    Const CompareType :TghStrCompare = ghscLocaleAnyCase) :Boolean;
    Overload;
    
  { Equals? }
  Function ghEquals (Const Value1, Value2 :Variant) :Boolean; Overload;

Código Delphi [-]
Var
  S :String;
Begin
  S := 'Titanic';

  If S = 'titanic' Then  // False
    ShowMessage ('');

  If ghEquals (S, 'titanic') Then  // True
    ShowMessage ('The strings are equivalent.');

Código Delphi [-]
  S := 'México';

  If S = 'Mexico' Then  // False
    ShowMessage ('');

  If ghEquals (S, 'Mexico', ghscSimple) Then  // True
    ShowMessage ('The strings are equivalent.');

  If ANSISameText (S, 'MEXICO') Then  // False
    ShowMessage ('');

  If ghEquals (S, 'MEXICO', ghscSimpleAnyCase) Then  // True
    ShowMessage ('The strings are equivalent.');

Código Delphi [-]
  S := '0xffffffff';

  If Copy (S, 3, MaxInt) = 'FFFFFFFF' Then  // False
    ShowMessage ('');

  If ghEquals (S, 3, 'FFFFFFFF') Then  // True
    ShowMessage ('The strings are equivalent.');

Código Delphi [-]
Var
  V1, V2 :Variant;
Begin
  V1 := 3.141516;
  V2 := '3.141516';

  If V1 = V2 Then  // True
    ShowMessage ('The variants are equivalent (but not equal).');

  If ghEquals (V1, V2) Then  // False
    ShowMessage ('');

Código Delphi [-]
  V2 := 3.141516;

  If ghEquals (V1, V2) Then  // True
    ShowMessage ('The variants are identical.');

Código Delphi [-]
WinExec(PChar('c:\windows\notepad.exe'),SW_SHOWNORMAL);

Código Delphi [-]
[DCC Fatal Error] rptypes.pas(5343): F2039 Could not create output file 'rptypes.dcu'

Solución

Solo cierra delphi, y ábrelo de nuevo pero como administrador