에러가 벌써 10째 못고치고 있는거 있죠..

이제 짤릴날만 남았나봐여..

그래서 멋진 오빠들의 힘을 좀 빌릴려구여...

''is not a valid integer value 에러가 자꾸나는거 있죠..

오라클이 데이타를 쓰면 델파이가 다시 읽어서 MS-SQL이 DB에 저장하거든여..

근데 저장은 잘 되는데 에러가 떠서 죽겠는거 있죠...

함 힘좀 빌려주셔여...

아상케 고칠때는 에러가 안나거든여..근데 하루만 지나면 에러가 뜨는거있죠..

돌아가는 루트는 하루에 한번이던 두번이던 오라클에 데이타를 저장하면 델파이가 1시간마다 데이타를 읽어와서 DB에 저장하거든여...근데 고친 그날은 에러없이 정상으로 돌아가는데 하루가 지나면 에러가 뜨는거 잇죠..감을 못잡겠어여...

''이 들어오면 0으로 세팅을 했거든여...그래두...



{ 수치 데이터의 DEFAUL값을 0으로 SETTING }

if Ton = '' then Ton := '0';

if Len = '' then Len := '0';

if Wid = '' then Wid := '0';

if Dep = '' then Dep := '0';

if Dra = '' then Dra := '0';



ParamByName('N1').AsString := Trim(Sdt);

ParamByName('N2').AsInteger := R_SEQ;

ParamByName('N3').AsInteger := StrToInt(Seq);

ParamByName('N4').AsString := Trim(Pdiv);

ParamByName('N5').AsString := Trim(Shcd);

ParamByName('N6').AsString := Trim(Shnm);

ParamByName('N7').AsString := Trim(Ncd);

ParamByName('N8').AsFloat := StrToFloat(Ton);

ParamByName('N9').AsFloat := StrToFloat(Len);

ParamByName('N10').AsFloat := StrToFloat(Wid);

ParamByName('N11').AsFloat := StrToFloat(Dep);

ParamByName('N12').AsString := Trim(Ownm);

ParamByName('N13').AsString := Trim(Ownat);

ParamByName('N14').AsString := Trim(Opnm);

ParamByName('N15').AsString := Trim(Opnat);

ParamByName('N16').AsFloat := StrToFloat(Dra);

ParamByName('N17').AsString := Trim(Indiv);

ParamByName('N18').AsString := Trim(Sccd);

ParamByName('N19').AsString := Trim(Scdiv);

ParamByName('N20').AsString := Trim(Scf);

ParamByName('N21').AsString := Trim(Scfnm);

ParamByName('N22').AsString := Trim(Scfnm2);

ParamByName('N23').AsString := Trim(Sct);

ParamByName('N24').AsString := Trim(Sctnm);

ParamByName('N25').AsString := Trim(Sctnm2);

ParamByName('N26').AsString := Trim(Pltm);

ParamByName('N27').AsString := Trim(Ag);

ParamByName('N28').AsString := Trim(Hanm);

ParamByName('N29').AsString := Trim(Eanm);

ParamByName('N30').AsString := Trim(Godiv);

ParamByName('N31').AsString := Trim(Tuboat);

ParamByName('N32').AsString := Trim(Exyn);

ParamByName('N33').AsString := Trim(Pi);

ParamByName('N34').AsString := Trim(Pihnm);

ParamByName('N35').AsString := Trim(Pienm);

ParamByName('N36').AsString := Trim(Piseq);

ParamByName('N37').AsString := Trim(Copiyn);

ParamByName('N38').AsString := Trim(Copi1);

ParamByName('N39').AsString := Trim(Copi1hnm);

ParamByName('N40').AsString := Trim(Copi1enm);

ParamByName('N41').AsString := Trim(Copi2);

ParamByName('N42').AsString := Trim(Copi2hnm);

ParamByName('N43').AsString := Trim(Copi2enm);

ParamByName('N44').AsString := Trim(Coscd);

ParamByName('N45').AsString := Trim(Cosdiv);

ParamByName('N46').AsString := Trim(Coscf);

ParamByName('N47').AsString := Trim(Coscfnm);

ParamByName('N48').AsString := Trim(Coscfnm2);

ParamByName('N49').AsString := Trim(Cosct);

ParamByName('N50').AsString := Trim(Cosctnm);

ParamByName('N51').AsString := Trim(Cosctnm2);

ParamByName('N52').AsString := Trim(Copltm);

ParamByName('N53').AsString := Trim(Re);

ParamByName('N54').AsString := Trim(Feno);

ParamByName('N55').AsString := Trim(Ctdt);



R_SEQ가 하나씩 증가해서 그걸 기준으로 정렬을 하거든여...

보여줄때두 R_SEQ가 큰것부터 해서 뿌려주거든여..

제발 조그만 실마리라두 잡을수 있는 답변 줬으면 좋겠네여..

주말 잘 보내구여...

이쁜이가.....