stock_fad.pas

适合行业为眼镜业

                dmmain.cdsCancel_strip.ApplyUpdates(-1);
                dmmain.cdsCanceldetail.ApplyUpdates(-1);
                if trim(edit3.Text)<>'' then
                begin
                  if ReCheck=6 then
                   begin
                     setpass(edit3.Text);
                   end else
                   begin
                     setPassed(edit3.Text);//最后不能重用！！
                   end;
                end;
                setnull(frm_Stock_Fad);
                init;
            except
                Application.MessageBox('服务器发生故障！',Pchar(Application.Title),Mb_ICONwarning);
                Exit;
            end;
            //Application.MessageBox('恭喜你！【采购退货单】保存草稿单据操作成功，请确认！',pchar(application.Title),mb_iconwarning);
          end;
        end;
    end;
    //操作草稿单据
    if Public_Do='Business_Draft_0003' then
    begin
        //单据过帐
        if Public_Do_Result='01' then
        begin
            with frm_data.ClientDataSet2 do
            begin
                sqlsub:='Select * from [V_Stock_Cancel_strip_View] where Receipt_No='''+Trim(List_NO)+'''';
                dmmain.CDSexecsql.Close;
                dmmain.CDSexecsql.Data:=frm_data.Socket_Connection.AppServer.execSql(sqlsub);
                dmmain.CDSexecsql.Open;
                Check_Flag:=dmmain.CDSexecsql.FieldValues['Check_Result'];
                if Check_Flag='0' then
                begin
                    Application.MessageBox('该【采购退货单】草稿单据还没有完全审核，不能过帐',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
                if Check_Flag='1' then
                begin
                    with frm_data.ClientDataSet_Add do
                    begin
//                        Close;
//                        Commandtext:='';
//                        Commandtext:='Update [Cancel_strip] set Contract_No='''+Trim(Edit3.Text)+''',WLDW='''+Trim(Edit4.Text)+''',Storage_NO='''+Trim(Edit5.Text)+''',Transactor='''+Trim(Edit6.Text)+''',Shop_NO='''+Trim(Edit7.Text)+''',proposer='''+Trim(Edit8.Text)+''',Condense='''+Trim(Edit9.Text)+''',Remark='''+Trim(Edit10.Text)+''' where Stock_No='''+Trim(List_NO)+'''';
                        sqlsub:='select * from [Cancel_strip] where Stock_No='''+Trim(List_NO)+'''';
                        dmmain.CDSexecsql.Close;
                        dmmain.CDSexecsql.Data:=frm_data.Socket_Connection.AppServer.execSql(sqlsub);
                        dmmain.CDSexecsql.Open;
                        for i:=1 to dmmain.CDSexecsql.RecordCount do
                        begin
                            dmmain.CDSexecsql.Edit;
                            dmmain.CDSexecsql.FieldByName('Contract_No').AsString:=Trim(Edit3.Text);
                            dmmain.CDSexecsql.FieldByName('WLDW').AsString:=Trim(Edit4.Text);
                            dmmain.CDSexecsql.FieldByName('Storage_NO').AsString:=Trim(Edit5.Text);
                            dmmain.CDSexecsql.FieldByName('Transactor').AsString:=Trim(Edit6.Text);
                            dmmain.CDSexecsql.FieldByName('Shop_NO').AsString:=Trim(Edit7.Text);
                            dmmain.CDSexecsql.FieldByName('proposer').AsString:=Trim(Edit8.Text);
                            dmmain.CDSexecsql.FieldByName('Condense').AsString:=Trim(Edit9.Text);
                            dmmain.CDSexecsql.FieldByName('Remark').AsString:=Trim(Edit10.Text);
                            dmmain.CDSexecsql.Post;
                            dmmain.CDSexecsql.Next;
                        end;
                        try
                            dmmain.CDSexecsql.ApplyUpdates(-1);
                        except
                            Application.MessageBox('系统错误，在修改数据表【采购退货单】时出错，'+#13#10+'请检查远程服务器连接是否正常？请确认！',Pchar(Application.Title),Mb_ICONwarning);
                            Exit;
                        end;
                        try
                            sqlsub:='select * from [Cancel_strip_detail] where Stock_No='''+Trim(List_NO)+'''';
                            dmmain.CDSexecsql.Close;
                            dmmain.CDSexecsql.Data:=frm_data.Socket_Connection.AppServer.execSql(sqlsub);
                            dmmain.CDSexecsql.Open;
                            for i:=1 to Total_Count-1 do
                            begin
                              dmmain.CDSexecsql.edit;
                              dmmain.CDSexecsql.FieldByName('Goods_NO').AsString:=Trim(StringGrid1.Cells[1,i]);
                              dmmain.CDSexecsql.FieldByName('amount').AsString:= Trim(StringGrid1.Cells[3,i]);
                              dmmain.CDSexecsql.FieldByName('Pass_NO').AsString:= Trim(StringGrid1.Cells[4,i]);
                              dmmain.CDSexecsql.FieldByName('quality').AsString:=Trim(StringGrid1.Cells[2,i]);
                              dmmain.CDSexecsql.FieldByName('Fade_Name').AsString:=Trim(StringGrid1.Cells[5,i]);
                              dmmain.CDSexecsql.Post;
                              dmmain.CDSexecsql.Next;
                            end;
                            try
                              dmmain.CDSexecsql.ApplyUpdates(-1);
                            except
                              Application.MessageBox('服务器发生故障！',Pchar(Application.Title),Mb_ICONwarning);
                              Exit;
                            end;
                            sqlsub:='select * from where Receipt_No='''+Trim(List_NO)+'''';
                            dmmain.CDSexecsql.Close;
                            dmmain.CDSexecsql.Data:=frm_data.Socket_Connection.AppServer.execSql(sqlsub);
                            dmmain.CDSexecsql.Open;
                            for i:=1 to dmmain.CDSexecsql.RecordCount do
                            begin
                              dmmain.CDSexecsql.Edit;
                              dmmain.CDSexecsql.FieldByName('Flag_sign').AsString:='单据';
                              dmmain.CDSexecsql.Post;
                              dmmain.CDSexecsql.Next;
                            end;
                            try
                                dmmain.CDSexecsql.ApplyUpdates(-1);
                                //Application.MessageBox('恭喜你！【采购退货单】单据过帐完毕！',pchar(application.Title),mb_iconwarning);
                            except
                                Application.MessageBox('系统错误，在单据过帐时，修改数据表【采购退货审核表】时出错，'+#13#10+'请检查远程服务器连接是否正常？请确认！',Pchar(Application.Title),Mb_ICONwarning);
                                Exit;
                            end;
                        except
                            Application.MessageBox('系统错误，在操作数据表【采购退货明细表】循环时出错，'+#13#10+'请检查远程服务器连接是否正常？请确认！',Pchar(Application.Title),Mb_ICONwarning);
                            Exit;
                        end;
                    end;
                end;
            end;
        end;
        if Public_Do_Result='02' then //存入草稿
        begin
            with frm_data.ClientDataSet_Add do
            begin
              if not bedit then
              begin
                if trim(Handle_Man)<>trim(edit8.Text) then
                begin
                  Application.MessageBox('不能修改数据！',pchar(application.Title),mb_iconinformation);
                  exit;
                end;
              end;
                sqlsub:='select * from [Cancel_strip] where Stock_No='''+Trim(List_NO)+'''';
                dmmain.CDSexecsql.Close;
                dmmain.CDSexecsql.Data:=adisp.execSql(sqlsub);
                dmmain.CDSexecsql.Open;
                for i:=1 to dmmain.CDSexecsql.RecordCount do
                begin
                    dmmain.CDSexecsql.Edit;
                    dmmain.CDSexecsql.FieldByName('Contract_No').AsString:=Trim(Edit3.Text);
                    dmmain.CDSexecsql.FieldByName('WLDW').AsString:=Trim(Edit4.Text);
                    dmmain.CDSexecsql.FieldByName('Storage_NO').AsString:=Trim(Edit5.Text);
                    dmmain.CDSexecsql.FieldByName('Transactor').AsString:=Trim(Edit6.Text);
                    dmmain.CDSexecsql.FieldByName('Shop_NO').AsString:=Trim(Edit7.Text);
                    dmmain.CDSexecsql.FieldByName('proposer').AsString:=Trim(Edit8.Text);
                    dmmain.CDSexecsql.FieldByName('Condense').AsString:=Trim(Edit9.Text);
                    dmmain.CDSexecsql.FieldByName('Remark').AsString:=Trim(Edit10.Text);
                    dmmain.CDSexecsql.Post;
                    //dmmain.CDSexecsql.Next;
                end;
                try
                    dmmain.CDSexecsql.ApplyUpdates(-1);
                except
                    Application.MessageBox('服务器发生故障！',Pchar(Application.Title),Mb_ICONwarning);
                    Exit;
                end;
                sqlsub:='select * from [Cancel_strip_detail] where Stock_No='''+Trim(List_NO)+'''';
                dmmain.CDSexecsql.Close;
                dmmain.CDSexecsql.Data:=adisp.execSql(sqlsub);
                dmmain.CDSexecsql.Open;
                for i:=1 to stringgrid1.RowCount-1 do
                begin
                  dmmain.CDSexecsql.edit;
                  dmmain.CDSexecsql.FieldByName('Goods_NO').AsString:=Trim(StringGrid1.Cells[1,i]);
                  dmmain.CDSexecsql.FieldByName('amount').AsString:= Trim(StringGrid1.Cells[3,i]);
                  dmmain.CDSexecsql.FieldByName('Pass_NO').AsString:= Trim(StringGrid1.Cells[5,i]);
                  dmmain.CDSexecsql.FieldByName('quality').AsString:=Trim(StringGrid1.Cells[2,i]);
                  dmmain.CDSexecsql.FieldByName('Fade_Name').AsString:=Trim(StringGrid1.Cells[5,i]);
                  dmmain.CDSexecsql.Post;
                  dmmain.CDSexecsql.Next;
                end;
                try
                  dmmain.CDSexecsql.ApplyUpdates(-1);
                except
                  Application.MessageBox('服务器发生故障！',Pchar(Application.Title),Mb_ICONwarning);
                  Exit;
                end;
            end;
        end;
        if Public_Do_Result='03' then //废弃退出
        begin
            Close;
        end;
    end;
end;


procedure Tfrm_Stock_Fad.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  s:string;
  r:TRect;
begin
  with Sender as Tstringgrid do
  begin
  if gdSelected in State then
  Canvas.Brush.Color:= clTeal; //clyellow;//clRed;
  Canvas.TextRect(Rect,Rect.Left,Rect.Top,' '+Cells[ACol,ARow]);
  if gdFocused in State then
  Canvas.DrawFocusRect(Rect);
  end;
  with Sender as Tstringgrid do
  begin
    Canvas.FillRect(Rect);
    s:=Cells[ACol,ARow];
    r:=Rect;
    DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER);
  end;

end;
procedure Tfrm_Stock_Fad.SpeedButton1Click(Sender: TObject);
begin
    Check_Mond:='';
    Check_Mond:='Stock_pay_Str';
    frm_Supply_Monad:=Tfrm_Supply_Monad.Create(self);
    frm_Supply_Monad.Caption:='【供货单位】';
    frm_Supply_Monad.ShowModal;
    Edit4.Text:=check_Mond_Result;
    frm_Supply_Monad.Free;
end;

procedure Tfrm_Stock_Fad.SpeedButton5Click(Sender: TObject);
begin
    Check_Storage:='';Check_Storage_Result:='';
    Check_Storage:='Stock_Fad_Str';
    frm_Storage_Select:=Tfrm_Storage_Select.Create(self);
    frm_Storage_Select.ShowModal;
    Edit_Storage_Name.Text:=Trim(Check_Storage_Result);
    Edit5.Text:=Trim(Check_Storage_Result_NO);
    frm_Storage_Select.Free;
end;

procedure Tfrm_Stock_Fad.SpeedButton7Click(Sender: TObject);
begin
///    Edit8.Text:=Handle_Man;
    frm_Login_Man:=Tfrm_Login_Man.Create(self);
    frm_Login_Man.Caption:='制单人选择';
    frm_Login_Man.ShowModal;
    Edit8.Text:=Employe_Check_Result;
    frm_Login_Man.Free;
end;

procedure Tfrm_Stock_Fad.SpeedButton8Click(Sender: TObject);
begin
    ChildShop_Str:='';
    ChildShop_Result_NO:='';