Seria más elegante y más claro:
Código:
var
i: integer;
begin
i := qryPagosIdTipPag2.Value ;
case i of
1: qrPro0.memReportePagos.Value := StrToFloat(lo_s);
2: qrPro0.memReportePagos2.Value := StrToFloat(lo_s)
3: qrPro0.memReportePagos3.Value := StrToFloat(lo_s)
4: qrPro0.memReportePagos4.Value := StrToFloat(lo_s)
5: qrPro0.memReporteServFac.Value := StrToFloat(lo_s);
end; //case
qrPro0.memReporte.Post;qrPro0.memReporte.Post;
Si el valor 1 y2 dan el mismo resultado, sería:
Código:
var
i: integer;
begin
i := qryPagosIdTipPag2.Value ;
case i of
1,2: qrPro0.memReportePagos.Value := StrToFloat(lo_s);
3: qrPro0.memReportePagos3.Value := StrToFloat(lo_s)
4: qrPro0.memReportePagos4.Value := StrToFloat(lo_s)
5: qrPro0.memReporteServFac.Value := StrToFloat(lo_s);
end; //case
qrPro0.memReporte.Post;qrPro0.memReporte.Post;
Y como bien dice JosepGA te sobra un
end
Saludos,
Gerard.