저번에두 올렸눈뎅...

읽어보시구는 아무런 답변이 없어서.. 다시 올립니다..

조금만 힌트라두 주셔두 되눈뎅...ㅜ.ㅜ

소스도 올리니 좀 보시구요..

힌트리두 주세요...

서버와 클라이언트에서...

프로그램을 실행시키면  showmessage(); 다음 post; 에서

멈처 버림니다..  

이유를 모르겠어염.. ㅡㅡ;

월계랑 제고 파악하기 위해서 만든 함수이데요 ㅡㅡ;

좀 도와주세요 ㅡㅡ;  한곳에서만 실행하면괜찮은데요 두곳에서 돌리면 멈쳐여 ㅡㅡ;


procedure TF_henjang.hap_rtn;
var
first_date:string;
begin
with F_henjang do
  begin
   first_date:=copy(dm1.ibqp_henMDATE.AsString,1,8)+'01';
    with dm1.IBQhenimsi do
     begin
      close;
      sql.Clear;
      sql.Add('select sum(gum1)tgum1,sum(msu)tmsu,sum(ea)tea,sum(su)tsu,sum(gum2)tgum2');
      sql.Add('from p_henjang where mdate=:p1 ');
      Params[0].AsString:=FormatDateTime('yyyy-mm-dd',dtp1.date);
      open;

      a0:=fieldbyname('Tgum1').asfloat;
      a1:=fieldbyname('tmsu').asfloat;
      a2:=fieldbyname('tea').asfloat;
      a3:=fieldbyname('tsu').asfloat;
      a4:=fieldbyname('tgum2').asfloat+fieldbyname('Tgum1').asfloat;
      with dm1.IBQhenimsi do
       begin

        sql.clear;
        sql.Add('select count(track2) tk from p_henjang where mdate=:p1 and track2=:p2');
        Params[0].asstring:=FormatDateTime('yyyy-mm-dd',dtp1.Date);
        Params[1].AsString:='의';
        open;
        a5:=fieldbyname('tk').AsFloat;

        edit2.Text:='의장료:'+format('%8m',[a0]);
        edit3.Text:='매수:'+format('%6.0n',[a1]);
        edit4.Text:='대수:'+format('%6.0n',[a2]);
        edit5.Text:='수량:'+format('%6.0n',[a3]);
        edit6.Text:='금액:'+format('%8m',[a4]);
        edit1.Text:='의장수량:'+format('%3.0n',[a5]);

       {---------------------------jaego--------------------------------------}

        with dm1.IBQJEAGO do
         begin
          close;
          sql.Clear;
          sql.Add('select * from JAEGO where mdate=:p1');
          Params[0].AsString:=FormatDateTime('yyyy-mm-dd',dtp1.Date);
          open;
          edit;
          FieldByName('mdate').AsString:=FormatDateTime('yyyy-mm-dd',dtp1.Date);
          FieldByName('out1').AsFloat:=a0;
          FieldByName('out2').AsFloat:=a1;
          FieldByName('out3').AsFloat:=a2;
          FieldByName('out4').AsFloat:=a3;
          FieldByName('out').AsFloat:=a4;
          FieldByName('out5').AsFloat:=a5;
          showmessage('');
          post;    <====  이부분에서....  멈쳐 버림니다..ㅡㅡ;
         end;
        {----------------------------월계-------------------------------------}
          with dm1.IBQimsi do
           begin

            sql.Clear;
            sql.Add('select sum(OUT)tout,sum(out1)tout1,sum(out2)    tout2,sum(out3)tout3,sum(out4)tout4,sum(out5)tout5 from JAEGO');    
            SQL.add('where mdate>=:p1 and mdate<=:p2');
            Params[0].AsString:=first_date;
            Params[1].AsString:=FormatDateTime('yyyy-mm-dd',dtp1.date);
            open;


            b0:=fieldbyname('tout5').asfloat;
            b1:=fieldbyname('tout1').asfloat;
            b2:=fieldbyname('tout2').asfloat;
            b3:=fieldbyname('tout3').asfloat;
            b4:=fieldbyname('tout4').asfloat;
            b5:=fieldbyname('tout').asfloat;

            edit7.Text:='의장수량:'+format('%5.0n',[b0]);
            edit8.Text:='의장료:'+format('%8m',[b1]);
            edit9.Text:='매수:'+format('%7.0n',[b2]);
            edit10.Text:='대수:'+format('%7.0n',[b3]);
            edit11.Text:='수량:'+format('%7.0n',[b4]);
            edit12.Text:='금액:'+format('%11.0m',[b5]);
           end;


       end;
      activecontrol:=dbgrid1;
    end;
  end;

end;