[firebase-br] *** UDF_CALCPER ***

[Mário Reis]

Bons dias Pessoal 

Tnho esta udf assim:

{ Função => CalcPer
  Recebe:
      AnoMes => PChar 7 : "2008-05" ("AAAA-MM")
      sPer   => PChar 1 : ("A","S","T","B","M")
      sOpera => PChar 1 : "+" ou "-"
  Retorna:
      sAnoMes='AAAA-MM-DD';
}
Function udf_calcper(sAnoMes, sPer, sOpera :PChar): PChar; cdecl; export;

Se da minha Procedure Chamar:
   
 udf_CALCPER('2010','A','+');  funciona Perfeitamente.


Porém, se chamar c/parametros ou variaveis:

  WPER_ID CHAR(1) CHARACTER SET WIN1252 DEFAULT 'A' 
  AAAAMM CHAR(7) CHARACTER SET WIN1252 DEFAULT '2010-01'
ou 
DECLARE VARIABLE ....

  udf_CALCPER(:AAAAMM,:PER_ID,:WSINAL); 

Dá erro: 335544321 - Arithmetic exception, numeric overflow, or string 
truncation

Alguém me ajuda? 
Obrigado e continuação de Bom Ano.

Mário