ZDbcMySqlMetadata.pas

[JerS]

Código Delphi [-]
///////////////////////////////////////////Verificar Si tiene Permiso o Vacaciones y puede o no entrar

  Adodataset1.Close;
escribir('Despues de Cerrar el Dataset');

  Adodataset1.CommandText:=('Select acceso from permisos p,detallepermisos d where cedula='+Quotedstr(cedula)+' and p.codigo=d.codigo and fecha=current_date');

escribir('Despues de Asignar Valor al Dataset');
  Adodataset1.Open;
  If Not Adodataset1.Recordset.EOF Then
    Permiso:=Adodataset1.Recordset.Fields.Item[0].Value
  Else
    Permiso:=0;

escribir('Despues de Abrir y Asignar Valor a Permiso');

  IF permiso=0 Then // persmiso = 0 entonces tiene permiso y puede entrar
    Begin
        escribir('Tiene permiso para entrar');
                  Try
                    escribir('B1');
                    ZRead.Close;
                    escribir('B2');
                    ZRead.SQL.Clear;
                    escribir('B3');
                    ZRead.SQL.Add('Select turno24,antes,agenda,inicioantes,idescanso from DetallePersonal d,TipoPersonal t Where d.cedula='+quotedstr(cedula)+'and d.cod_tipo=t.codigo');
                    escribir('B4');
                    ZRead.Open;
                    escribir('B8');
                    If Not ZRead.RecordCount>0 then
                      Begin
                        escribir('Despues de ejecutar Consulta TipoPersonal');

                        H24:=inttostr(ZRead.fieldbyname('turno24').AsInteger);
                        escribir('H24: '+H24);

                        cadenaantes:=ZRead.FieldbyName('Antes').AsString;
                        escribir('Cadenaantes: '+cadenaantes);

                        HorarioP:=ZRead.fieldbyname('agenda').AsInteger;
                        escribir('HorarioP: '+inttostr(HorarioP));

                        if ZRead.fieldbyname('inicioantes').AsString<>'' Then
                          inicioantes:=strtotime(ZRead.fieldbyname('inicioantes').AsString)
                        else
                          inicioantes:=strtotime('00:00');
                        escribir('Inicioantes: '+timetostr(inicioantes));

                        if ZRead.fieldbyname('idescanso').AsString<>'' Then
                          idescanso:=strtotime(Z1.fieldbyname('idescanso').AsString)
                        else
                          idescanso:=strtotime('00:00');
                        escribir('Idescanso: '+timetostr(inicioantes));

                      End;

Except on e: exception do
 Begin
 escribir('*****Exepcion despues de Asignar Valores de Tipo de Personal: '+e.Message);
H24:=0;
  End;
End;