안녕하세요.
Jijang02에서 Land02에 존재하는 H_num(사람일련번호)을 제외한 H_NUM을 가지고(차집합)
통지문과 내역을 출력할려고 하는데 통지문 부분은 에러없이 출력이 되는데 내역부분에서 에러가 납니다.
에러 내용은 "Invalid floating point operation"이라고 나옵니다.
//아래는 소스입니다.
부탁드립니다.
//*************************************************//
//Jijang02에만 존재하는 h_num 구하기
with Query1 do begin
Close;
SQL.Clear;
SQL.Add(' SELECT H_NUM FROM JIJANG02 ');
SQL.Add(' WHERE C_NUM =:C_NUM ');
SQL.Add(' MINUS ');
SQL.Add(' SELECT H_NUM FROM LAND02 ');
SQL.Add(' WHERE C_NUM =:C_NUM ');
SQL.Add(' ORDER BY H_NUM ');
Prepare;
ParamByName('C_NUM').AsString := c_num.text;
Open;
First;
While Not EOF do begin
//통지문
FNews_test := TFNews_test.Create(Application);
FNews_test.QLaddr01.Caption := edtaddr.Text;
FNews_test.QLname01.Caption := edtname.Text;
FNews_test.Qtnum.Caption := edttext.Text;
FNews_test.QL_state_date.Caption := start_date.Text;
FNews_test.QLsaup01.Caption := c_name.Text;
FNews_test.QLsaup02.Caption := c_name.Text;
FNews_test.QL_ji_start.Caption := ji_start.Text;
FNews_test.QL_ji_end.Caption := ji_end.Text;
FNews_test.QLaddr02.Caption := edtaddr.Text;
FNews_test.QLname02.Caption := edtname.Text;
FNews_test.QLpost01.Caption := edtpost.Text;
FNews_test.Qrynews.Open;
FNews_test.qr.Print;
//내역
FNewsJijang_test := TFNewsJijang_test.Create(Application);
FNewsJijang_test.QryJijang.ParamByName('c_num').AsString := c_num.text;
FNewsJijang_test.QryJijang.ParamByName('h_num').AsString := Query1.FieldByName('H_NUM').AsString;
FNewsJijang_test.QryJijang.Open;
FNewsJijang_test.qr.Print;
Next;
end; //end while
end; //end with