rep.cpp

科思ERP部分源码及控件

    tbCheck->Visible=true;
    ClearControl(false);
    PageControl1->ActivePage=BaseInfo;

    scRepPGoods->SetFocus();
    if(scRepPGoods->Items->Count>0)
    {
      scRepPGoods->ItemIndex=0;
       scRepPGoodsClick(this);
    }
    else
       comServer->FilterString="";
}
//---------------------------------------------------------------------------

void __fastcall TfrmRep::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
    try
    {
       switch (MsgSrc)
       {
         case euSdUnit:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
				      StartWaitForm("正在刷新引用数据!");
				      FillComboBox(Handle,scRepUnit,"select UnitCode,UnitName From sdUnit order by UnitCode","UnitName","UnitCode");
				      EndWaitForm();
				      break;
           }
         case euSdProcess:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
              StartWaitForm("正在刷新引用数据!");
		          FillComboBox(Handle,scRepProcess,"select memo=ProcessCode+space(1)+'('+ProcessName+')',ProcessCode From sdProcess order by ProcessCode","memo","ProcessCode");
		          EndWaitForm();
		          break;
           }
         case euSdBomh:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
              StartWaitForm("正在刷新引用数据!");
              FillComboBox(Handle,scRepPGoods,"Select BomhGoods,GoodsName,memo=BomhGoods+space(1)+'('+GoodsName+')' from sdBomh,sdGoods where BomhGoods=GoodsCode Order by BomhGoods","memo","BomhGoods","GoodsName");
              EndWaitForm();
              break;
           }
         default:
           break;
       }
    }
    __finally
    {
       //AddCode;
    }
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmRep::scRepPGoodsClick(TObject *Sender)
{
    AnsiString s,m_Sql;
    if(scRepPGoods->ItemIndex!=-1)
    {
      s=scRepPGoods->ItemData[1];
      if(OldRepPgoods==s)
         return;
      else
         OldRepPgoods=scRepPGoods->ItemData[1];
      seRepPGoodsName->Text = scRepPGoods->ItemData[2];
      m_Sql="Select memo=BomdGoods+space(1)+'('+GoodsName+')',BomdGoods,GoodsName from sdBomd,sdGoods where BomdGoods=GoodsCode and BomdPgoods='"+s+"'";
      FillComboBox(Handle,scRepOGoods,m_Sql,"memo","BomdGoods","GoodsName");
      s = "RepPGoods = '" + s + "'";
      comServer->FilterString = WideString(s);
      PageControl1->ActivePage=BaseInfo;
      comServer->Query();
      if(comServer->RecordCount>0)
      {
        FillGridWithData();
        comServer->MoveFirst();
        GetDataFromComObject();
      }
      else
      {
        sgRep->RowCount = 1;
        ClearControl(false);
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmRep::seRepNGoodsButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="007[物料编码][物料名称][版本号][型号][类型][来源][计量单位]";
  SqlStr+="Select GoodsCode,GoodsName,GoodsVer,GoodsModel,GoodsType,GoodsFrom,GoodsUnitCode from sdGoods where GoodsType<>1 and GoodsCode<>'"+seRepNGoods->Text+"' order by GoodsCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"子件物料数据查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    seRepNGoods->Text=p->ColData[1];
    seRepNGoodsName->Text=p->ColData[2];
    seRepVer->Text=p->ColData[3];
    seRepModel->Text=p->ColData[4];
    scRepType->ItemIndex=StrToInt(p->ColData[5])-1;
    scRepFrom->ItemIndex=StrToInt(p->ColData[6])-1;
    scRepUnit->LocateKey(p->ColData[7]);
  }
  delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmRep::scRepOGoodsClick(TObject *Sender)
{
    TComResultSet *RsBomd;
    AnsiString s;
    s = Trim(scRepOGoods->Text);
    if(!s.IsEmpty())
    {
       s=s.SubString(1,s.AnsiPos("(")-2);
       seRepOGoodsName->Text=scRepOGoods->ItemData[2];
       AnsiString s_Sql;
       s_Sql =" Select BomdGoods,BomdQty,BomdShl from sdBomd where Bomdgoods='"+s+"'";
       RsBomd=new TComResultSet(Handle,g_ClientHandle);
       RsBomd->Close();
       RsBomd->Open(s_Sql,"");
       seRepQty->Text = AnsiString(RsBomd->FieldByName("BomdQty"));
       seRepShl->Text = AnsiString(RsBomd->FieldByName("BomdShl"));
       RsBomd->Close();
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmRep::muAddDetailClick(TObject *Sender)
{
    if(scRepPGoods->ItemIndex==-1)
    {
        ::MessageBox(Handle,"请先选择或输入一个父件物料编码，再点增加操作。","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
    TRecBaseForm::muAddDetailClick(Sender);

}
//---------------------------------------------------------------------------

void __fastcall TfrmRep::seRepNGoodsExit(TObject *Sender)
{
    AnsiString tempS;
    tempS=seRepNGoods->Text;
    if(!tempS.IsEmpty())
    {
       if(InitRsGoods(WideString(tempS)))
       {
          seRepNGoodsName->Text=GetGoodsValue(gtInitRs,"GoodsName");
          seRepVer->Text=GetGoodsValue(gtInitRs,"GoodsVer");
          seRepModel->Text=GetGoodsValue(gtInitRs,"GoodsModel");
          scRepType->ItemIndex=StrToInt(GetGoodsValue(gtInitRs,"GoodsType"))-1;
          scRepFrom->ItemIndex=StrToInt(GetGoodsValue(gtInitRs,"GoodsFrom"))-1;
          scRepUnit->LocateKey(GetGoodsValue(gtInitRs,"GoodsUnitCode"));
       }
       else
          ::MessageBox(Handle,"输入的物料编码不存在!","错误提示",MB_OK|MB_ICONSTOP);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmRep::muFirstClick(TObject *Sender)
{
    if(sgRep->RowCount > 1)
      sgRep->Row=1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmRep::muPreviousClick(TObject *Sender)
{
    if(sgRep->RowCount > 1 && sgRep->Row > 1)
       sgRep->Row=sgRep->Row-1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmRep::muNextClick(TObject *Sender)
{
    if(sgRep->RowCount > 1 && sgRep->Row < sgRep->RowCount-1)
       sgRep->Row=sgRep->Row+1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmRep::muLastClick(TObject *Sender)
{
    if(sgRep->RowCount > 1)
       sgRep->Row=sgRep->RowCount-1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmRep::sgRepClick(TObject *Sender)
{
    int ARow;
    ARow=sgRep->Row;
    if(ARow > 0)
    {
      comServer->LocateByKey(scRepPGoods->ItemData[1]+"\t"+sgRep->TextMatrix[ARow][0]+"\t"+sgRep->TextMatrix[ARow][1]);
      if(comServer->RecordCount>0)
        GetDataFromComObject();
    }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmRep::BeforeCheck()
{
  SetFieldValue("RepCheck",1);
  SetFieldValue("RepChecker",g_sdUserCode);
  SetFieldValue("RepCheckDate",g_sdCurDate);
  return true;
}
//---------------------------------------------------------------------------
bool __fastcall TfrmRep::BeforeUnCheck()
{
  SetFieldValue("RepCheck",0);
  SetFieldValue("RepChecker","");
  SetFieldValue("RepCheckDate",NULL);
  return true;
}
//---------------------------------------------------------------------------