MS SQL Server a FIrebird

[rgabigonz]

Muchas gracias Gydba. La parte de documentacion me ayudo mucho para aprender ya que el migrador te convierte pero no te deja ningun conocimiento, en cambio los manuales te dicen los equivalentes para FireBird de MS-SQL Server.

Saludos.

[rgabigonz]

Uno de los SP (Stored Procedures) que tengo en MS_SQL es el siguiente:

CREATE PROCEDURE ImprimeTurnos
(IDProfesional int, Dia varchar(10))
returns (TipodeTurno char(1), Hora varchar(10), ApellidoyNombre varchar(40),
Telefono varchar(20), Obra varchar(50), Nro_Afiliado varchar(50), igno varchar(4),
Observaciones varchar(50), Llego smallint, Hora_Llegada varchar(10),
Recibio varchar(4), Abono varchar(10), Orden varchar(2), Atendido smallint)
as
begin
for
SELECT DISTINCT 'T' as Tipo_de_Turno, T.Hora, P.Apellido + ', ' + P.Nombre as Paciente,
P.Telefono ,O.Obra, PO.Nro_Afiliado, T.Asigno, T.Observaciones, T.Llego, T.Hora_Llegada,
T.Recibio, T.Abono, T.Orden, T.Atendido
FROM Turnos T, Paciente P, Obrasocial O, PacienteObra PO
WHERE P.ID_Paciente =T.ID_Paciente And P.ID_Paciente=PO.ID_Paciente
and PO.ID_Obra = O.ID_Obra And T.ID_Profesional = :IDProfesional AND T.Dia = ia
UNION SELECT DISTINCT 'T' as Tipo_de_Turno, T.Hora, 'BLOQUEADO' as Paciente,
'' as Telefono , '' as Obra, '' as Nro_Afiliado, T.Asigno, T.Observaciones,
'' as Llego, '' as Hora_Llegada, '' as Recibio, '' as Abono, '' as Orden, '' as Atendido
FROM Turnos T
WHERE T.ID_Profesional = :IDProfesional AND T.Dia = ia and Bloqueado = 1
UNION SELECT DISTINCT 'ST' as Tipo_de_Turno, T.Hora, P.Apellido + ', ' + P.Nombre as Paciente ,
P.Telefono, O.Obra, PO.Nro_Afiliado, T. igno , T.Observaciones, T.Llego, T.Hora_Llegada,
T.Recibio, T.Abono, T.Orden, T.Atendido
FROM SobreTurnos T, Paciente P, Obrasocial O, PacienteObra PO
WHERE P.ID_Paciente =T.ID_Paciente And P.ID_Paciente=PO.ID_Paciente and PO.ID_Obra = O.ID_Obra
And T.ID_Profesional = :IDProfesional AND T.Dia = ia
UNION SELECT DISTINCT 'T' as Tipo_de_Turno, T.Hora, 'BLOQUEADO' as Paciente, '' as Telefono,
'' as Obra, '' as Nro_Afiliado, T. igno, T.Observaciones, '' as Llego, '' as Hora_Llegada,
'' as Recibio, '' as Abono, '' as Orden, '' as Atendido
FROM SobreTurnos T
WHERE T.ID_Profesional = :IDProfesional AND T.Dia = ia and Bloqueado = 1
into :TipodeTurno, :Hora, :ApellidoyNombre, :Telefono, :Obra, :Nro_Afiliado,
:Asigno, :Observaciones, :Llego, :Hora_Llegada, :Recibio, :Abono, :Orden, :Atendido
do
suspend;
end

Ya verifique la sintaxis y esta bien, pero me sale el siguiente error:

Unsuccessful execution caused by a system error that precludes successful execution of subsequent statements.

Alguien me pude ayudar?

Gracias.