Fórum problemas com firebird UDF #571050

Ola galera, ha uns tempos atras recorri a vocês para tentar resolver um problemas que passei a ter depois de ter migrado para o firebird 3.0 e delphi XE10 mas creio que o problema esta no firebird mesmo, porque só tive os problemas apos migrar o firebird, oque acontece é que algumas UDF começaram a dar problemas segue um exemplo:

Codigo da funçao na DLL:

function udf_Copy(Str: PChar; Var Index,Count: integer): PChar; cdecl; export;
begin
Result := Str;
StrPCopy(Str,Copy(Str,Index,Count));
end;


Declaração da UDF no meu banco de dados


DECLARE EXTERNAL FUNCTION UDF_COPY
CSTRING(254),
INTEGER,
INTEGER
RETURNS CSTRING(254)
ENTRY_POINT 'udf_Copy' MODULE_NAME 'NetsoftUDFs'


acontece se eu fazer um select como o abaixo:

Select NRPARC, Udf_Copy(CX400.NRPARC,0,5) As TESTE From CX400

e teria de me retornar para As TESTE somente os 5 caracteres do campo NRPARC acontece que ele me retorna o valor todo segue link abaixo da unit com os códigos da udf, se alguém puder me ajudar estou disposto a arcar com honorarios

UDF


atenciosamente


Sergio Back