Array
(
)

Variavel tipo ´register´

Nilson Jr
   - 11 ago 2004

Estou precisando passar parametros para um procedure em FireBird, eu passo o ano e mes, convertendo de uma data.

Todas as conversoes ficam certas, são transformadas para Integer, mas uma fica como ´Register´ como fazer.

USO D7 + DBEXPRESS + Firebird 1.5


var

vmeini, vanoini, vmefim, vanofim : integer; // A VMEINI DEPOIS DE CONVERTIDA FICA COMO ´REGISTER´
smes, sano, sini, sfim : string;

begin


Sini:= datetostr(dateedit1.Date);
Sfim:= datetostr(dateedit2.Date);

label1.Caption := copy(sini,4,2);
label2.Caption := copy(sini,7,4);

label3.Caption := copy(sfim,4,2);
label4.Caption := copy(sfim,7,4);


vmeini := strtoint(copy(sini,4,2));
vinimes := strtoint(copy(sini,4,2));
vmeFIM := strtoint(copy(sfim,4,2));
vanoini := strtoint(copy(sini,7,4));
vanofim := strtoint(copy(sfim,7,4));


dm_rel.CDT_Apu2.Active:=false;
dm_rel.SQL_Apu2.Close;
dm_rel.SQL_Apu2.CommandText:=´SELECT * FROM APURAFATU2 (:iANOINI, :iANOFIM, :iMESINI, :iMESFIM)´;
dm_rel.SQL_Apu2.ParamByName(´iANOINI´).AsInteger:=vanoini;
dm_rel.SQL_Apu2.ParamByName(´iANOFIM´).AsInteger:=vanofim;
dm_rel.SQL_Apu2.ParamByName(´iMESINI´).AsInteger:=vmeini;
dm_rel.SQL_Apu2.ParamByName(´iMESFIM´).AsInteger:=vmefim;
dm_rel.SQL_Apu2.Open;
dm_rel.CDT_Apu2.Active:=true;
dm_rel.CDT_Apu2.Refresh;
dm_rel.CDT_Apu2.First;
label5.Caption:=inttostr(dm_rel.CDT_Apu2.RecordCount);
label5.Refresh;
dbgrid1.Refresh;