procedure TF_Rebut.JvDBDateEdit1Exit(Sender: TObject);
var Temp,Anyo,Rebut,Arbitre,Codi_B: String;
a,m,d: Word;
begin
DecodeDate(F_ModulDades.RebutDATA.Value, a,m,d);
Anyo:= IntToStr(a);
Temp:='0000';
Delete(Temp,1,Length(IntToStr(F_ModulDades.RebutID_REBUT.Value)));
Rebut:=Concat(Temp+IntToStr(F_ModulDades.RebutID_REBUT.Value));
Temp:='00';
Delete(Temp,1,Length(IntToStr(F_ModulDades.RebutID_USUARI.Value)));
Arbitre:=Concat(Temp+IntToStr(F_ModulDades.RebutID_USUARI.Value));
Codi_B:=(Anyo+Rebut+Arbitre+'000');
CodiCorrecte(Codi_B);
F_ModulDades.RebutCODI_BARRES.Value:=Codi_B;
end;