다음의 문장을 실행시키느데 에러가 납니다. 어디서 잘못됐는지 모르겠거든요..



제발좀 도와주세요!!



with Crpe_Boj101B.Connect do

begin

ServerName := MConst_ServerNm;

UserID := MConst_UserId;

Password := MConst_Password;

end;



Crpe_Boj101B.ReportName := MConst_Rptdir + 'Boj101B1.rpt'



Crpe_Boj101B.Selection.Formula[0] :=

' {Bojmst.Jijmno} = ' + DBLQUOTA + Fnd_Jijmno + DBLQUOTA;

Crpe_Boj101B.Selection.Formula[0] := Crpe_Boj101B.Selection.Formula[0] +

' And {Bojmst.Bojgbn} = ' + DBLQUOTA + Fnd_Bojgbn + DBLQUOTA;

Crpe_Boj101B.Selection.Formula[0] := Crpe_Boj101B.Selection.Formula[0] +

' And {Bojmst.Johpno} = ' + DBLQUOTA + Fnd_Johpno + DBLQUOTA;

Crpe_Boj101B.Selection.Formula[0] := Crpe_Boj101B.Selection.Formula[0] +

' And {Bojmst.Bojyyy} = ' + DBLQUOTA + Fnd_Bojyyy + DBLQUOTA;

Crpe_Boj101B.Selection.Formula[0] := Crpe_Boj101B.Selection.Formula[0] +

' And {Bojmst.Bojnum} = ' + DBLQUOTA + Fnd_Bojnum + DBLQUOTA;



Crpe_Boj101B.Formulas.Retrieve;



for I := 0 to Crpe_Boj101B.Formulas.Count - 1 do

begin

if Crpe_Boj101B.Formulas[I].Name = 'FM_Title' then

Crpe_Boj101B.Formulas[I].Formula.Text := DBLQUOTA + Tmp_Title + DBLQUOTA;



if (Crpe_Boj101B.Formulas[I].Name = 'FM_Korgum') then

if (Fnd_Bojgum <> 0) then

Crpe_Boj101B.Formulas[I].Formula.Text := DBLQUOTA+ FNGet_KorMoney(Fnd_Bojgum) + DBLQUOTA

else

Crpe_Boj101B.Formulas[I].Formula.Text := DBLQUOTA + '' + DBLQUOTA;



end; // For end



Crpe_Boj101B.Execute; // error