Hola
Pues la verdad no lo se, me imagino algo asi:
Código Delphi
[-]
procedure label41OnGetText (var Text : String);
Var suma: Real;
begin
suma:= 0;
if dbp_bien['campo11'] = 'Primera' then
begin
Text := (dbp_bien['VALOR']*60)
end
else if dbp_bien['campo11'] = 'Segunda' Then
begin
Text := (dbp_bien['VALOR']*12)
end
else if dbp_bien['campo11'] = 'Tercera' Then
begin
Text := (dbp_bien['VALOR']*4)
end
else if dbp_bien['campo11'] = 'P1' Then
begin
Text := (dbp_bien['VALOR']*1000)
end
else if dbp_bien['campo11'] = 'P2' Then
begin
Text := (dbp_bien['VALOR']*100)
end
else if dbp_bien['campo11'] = 'TRIPLETA' Then
begin
Text := (dbp_bien['VALOR']*10000)
end;
suma:= suma + StrToFloat(Text);
end;
No se, probar no cuesta nada.
Saludos