Interbase - ayuda para pasar procedimiento sql a interbase

Hola.
hay alguien por ai k me pueda ayudar?? tengo k pasar este procedimiento a interbase... en marathon... pero tengo algun pequeño problema...
Si alguien puede ayudarme se lo agradeceré enormemente.

Gracias

create procedure ASPLAAltaPartidaEntradaImpresion
partida int,articulo VARCHAR(25),numproveedor varchar(25),existencias int,lote VARchar(40),instrucciones char(40),caja int=0,maquina int= 0
--with encryption
as
declare variable cliente int
select cliente=codigo_cliente from aspla.dbo.pediflat where numero_pedido=convert(int,@lote)
if instrucciones=''
set instrucciones='PARTIDA E-MANUAL'
begin transaction
if partida=0
begin
select 0
return
end
if lote='' or @lote is null or @lote=' '
begin
--set lote=replace(convert(char(8),getdate(),3),'/','')+'-'+left(articulo,7)+'-'
--+left(numproveedor,10)+'-'+replace(str(partida,6),' ','0')
/*cambio para dar de alta con numero partida*/
set lote=replace(convert(char(8),getdate(),3),'/','')+'-'+articulo+'-'
+case numproveedor when '' then '' else '-'+numproveedor+'-' end
+replace(str(partida,9),' ','0')
end
else
begin
set lote=lote
--print 'pasa por lote'
--print lote
end
insert into partida
(NumeroPartida,CodigoArticulo,ExistenciasEnPosicion,ExistenciasComprometidas,FechaPosicion,Lote,
EstadoPosicion,Instrucciones,UltimoMovimientoEfectuado,CodigoCaja,CodigoCliente)
values( partida,articulo,existencias,0,getdate(),lote
,1,instrucciones,getdate(),caja,convert(char(5),cliente))
commit transaction
select partida