gmth_c.cpp

科思ERP部分源码及控件

       GetDataFromComObject(1);    //Gmth
       FillGridWithData();
        if(sgGmth->RowCount >1)
        {
          AnsiString Keystr;
          Keystr=seGmthCode->Text+"\t"+sgGmth->Cells[0][sgGmth->Row];
          comServer->LocateItemByKey(Keystr);
          GetDataFromComObject(2);
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmGmth_C::GetBill(AnsiString BillID)
{
    bool iRow;
    iRow=comServer->Find("GmthCode='"+BillID+"'");
    if(iRow)      //FIND THIS BILL
       DisplayBill();
    else
    {
       if(ShowMessageWindow("在数据库中没有查到记录："+BillID+",要增加吗？",mwsConfirmation)==IDYES)
          AddHeadRecord();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmGmth_C::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    TBillBaseForm::FormClose(Sender,Action);
}
//---------------------------------------------------------------------------
void __fastcall TfrmGmth_C::FormShow(TObject *Sender)
{
    ClearControl(1,false); //Gmth
    ClearControl(2,false); //Gmtd
    ChangeToBrowseState();
    MoveToFirst();
}
//---------------------------------------------------------------------------
void __fastcall TfrmGmth_C::sgGmthDblClick(TObject *Sender)
{
    int iRow;
    iRow=sgGmth->Row;
    if(iRow == 0)
       return;
    ChangeToBrowseState(false);
}
//---------------------------------------------------------------------------
void __fastcall TfrmGmth_C::ChangeToBrowseState(bool t_browse)
{
    if(t_browse)
    {
      sgGmth->Visible=true;
      fpGmtd->Visible=false;
      sgGmth->Align=alClient;
      fpGmtd->Align=alNone;
    }
    else
    {
      sgGmth->Visible=false;
      fpGmtd->Visible=true;
      sgGmth->Align=alNone;
      fpGmtd->Align=alClient;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmGmth_C::btnOKClick(TObject *Sender)
{
    try{
      if(CurrentState==caAddDetail || CurrentState==caAddBill)
      {
         if(DetailState==caAddDetail)
            comServer->AddItem();
         SendDataToComObject(2);
         comServer->AddToObject();
         ClearControl(2,false);
         seGmtdLine->SetFocus();
      }
      else
         ChangeToBrowseState();
    }
    catch(Exception &e)
    {
        throw Exception(e.Message);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmGmth_C::btnCancelClick(TObject *Sender)
{
    CancelChange();
}
//---------------------------------------------------------------------------
void __fastcall TfrmGmth_C::seGmtdGoodsButtonClick(TObject *Sender)
{
  /*AnsiString SqlStr;
  SqlStr="006[物料编码][物料名称][类型][来源方式][计量单位][批量]";
  SqlStr+="Select GoodsCode,GoodsName,case GoodsType when 1 then '1-成品' when 2 then '2-半成品' when 3 then '3-材料'";
  SqlStr+="when 4 then '4-备用件' when 5 then '5-虚拟件' when 6 then '6-费用件' end";
  SqlStr+=" , case GoodsFrom when 1 then '1-采购件' when 2 then '2-制造件' end,GoodsUnitCode,GoodsEoq from sdGoods where GoodsType<>1  order by GoodsCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"物料数据查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    seGmtdGoods->Text=p->ColData[1];
    if(InitRsGoods(WideString(seGmtdGoods->Text)))
    {
      seGmtdGoodsName->Text =  GetGoodsValue(gtInitRs,"GoodsName");
      scGmtdUnit->LocateKey(GetGoodsValue(gtInitRs,"GoodsUnitCode"));
      if(GetGoodsValue(gtInitRs,"GoodsType")!="")
        scGmtdGoodsType->ItemIndex=StrToInt(GetGoodsValue(gtInitRs,"GoodsType"))-1;
      else
        scGmtdGoodsType->ItemIndex=-1;
      if(GetGoodsValue(gtInitRs,"GoodsFrom")!="")
        scGmtdGoodsFrom->ItemIndex=StrToInt(GetGoodsValue(gtInitRs,"GoodsFrom"))-1;
      else
        scGmtdGoodsFrom->ItemIndex=-1;
      seGmtdGoodsOoq->Text=GetGoodsValue(gtInitRs,"GoodsOoq");
    }
  }
  delete p;*/
  if(OpenGoodsForm(" goodstype <>1 ")) //过滤条件
    {
       seGmtdGoods->Text=GetGoodsValue(gtOpenForm,"GoodsCode");
       seGmtdGoodsName->Text=GetGoodsValue(gtOpenForm,"GoodsName");
       scGmtdUnit->LocateKey(GetGoodsValue(gtOpenForm,"GoodsUnitCode"));
       if(GetGoodsValue(gtOpenForm,"GoodsType")!="")
        scGmtdGoodsType->ItemIndex=StrToInt(GetGoodsValue(gtOpenForm,"GoodsType"))-1;
       else
        scGmtdGoodsType->ItemIndex=-1;
       if(GetGoodsValue(gtOpenForm,"GoodsFrom")!="")
         scGmtdGoodsFrom->ItemIndex=StrToInt(GetGoodsValue(gtOpenForm,"GoodsFrom"))-1;
       else
         scGmtdGoodsFrom->ItemIndex=-1;
        seGmtdGoodsOoq->Text = GetGoodsValue(gtOpenForm,"GoodsOoq");
       //seForeCastdGoodsName->Text=GetGoodsValue(gtOpenForm,"GoodsName");
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmGmth_C::seGmtdGoodsExit(TObject *Sender)
{
    AnsiString tempS;
    tempS=seGmtdGoods->Text;
    if(!tempS.IsEmpty())
    {
      if(InitRsGoods(WideString(tempS)))
      {
        seGmtdGoodsName->Text=GetGoodsValue(gtInitRs,"GoodsName");
        scGmtdUnit->LocateKey(GetGoodsValue(gtInitRs,"GoodsUnitCode"));
        if(GetGoodsValue(gtInitRs,"GoodsType")!="")
          scGmtdGoodsType->ItemIndex=StrToInt(GetGoodsValue(gtInitRs,"GoodsType"))-1;
        else
          scGmtdGoodsType->ItemIndex=-1;
        if(GetGoodsValue(gtInitRs,"GoodsFrom")!="")
          scGmtdGoodsFrom->ItemIndex=StrToInt(GetGoodsValue(gtInitRs,"GoodsFrom"))-1;
        else
          scGmtdGoodsFrom->ItemIndex=-1;
        seGmtdGoodsOoq->Text=GetGoodsValue(gtInitRs,"GoodsOoq");
      }
      else
        ::MessageBox(Handle,"输入的物料编码不存在!","错误提示",MB_OK|MB_ICONSTOP);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmGmth_C::seGmthCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    AnsiString tempS=seGmthCode->Text;
    if(Key==13 && CurrentState==caNormal && !tempS.IsEmpty())
    {
       comServer->LocateByKey(WideString(tempS));
       DisplayBill();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmGmth_C::seGmtdDLocButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="003[在制货位][货位名称][货位物料]";
    SqlStr+="SELECT LocCode,LocName,LgGoodsCode FROM sdLoc,sdLg ";
    SqlStr+="WHERE LocCode=LgLocCode and LgGoodsCode='"+seGmtdGoods->Text+"' ";
    SqlStr+="and LocType=2 order by LocCode";
    try
    {
      StartWaitForm("正在查询,请稍候...");
      p=new TfrmWnQuery(this,"物料在制货位查询",SqlStr);
    }
    __finally
    {
      EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
       seGmtdDLoc->LocateKey(p->ColData[1]);
    }
    delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmGmth_C::seGmtdSLocButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="007[当前月份][货位编码][货位名称][物料编码][物料名称][计量单位][当前数量]";
    SqlStr+="select MaccFmonth,MaccLoc,LocName,MaccGoods,MaccGoodsName=GoodsName,MaccUnit=GoodsUnitCode,";
    SqlStr+=" MaccAoyQty from sdMacc,sdGoods,sdLg,sdLoc where LocCode=lgLocCode and LocCode=MaccLoc";
    SqlStr+=" and LgGoodsCode=MaccGoods and GoodsCode=MaccGoods and MaccFmonth='"+g_sdMMonth+"'";
    SqlStr+=" and MaccGoods='"+seGmtdGoods->Text+"' and LocType=1 order by LocCode";
    try
    {
      StartWaitForm("正在查询,请稍候...");
      p=new TfrmWnQuery(this,"存储货位库存查询",SqlStr);
    }
    __finally
    {
      EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
       seGmtdSLoc->LocateKey(p->ColData[2]);
    }
    delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmGmth_C::seGmtdQtyButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    SqlStr="003[当前月份][计量单位][库存数量]";
    SqlStr+="select MaccFmonth,GoodsUnitCode,MaccAoyQty from sdMacc,sdGoods where MaccGoods=GoodsCode and ";
    SqlStr+=" MaccFmonth='"+g_sdMMonth+"' and MaccLoc='"+seGmtdSLoc->ItemData[cbItem2]+"' and MaccGoods='"+seGmtdGoods->Text+"'";
    TfrmWnQuery *p;
    try
    {
       StartWaitForm("正在查询,请稍候...");
       p=new TfrmWnQuery(this,"库存查询",SqlStr);
    }
    __finally
    {
       EndWaitForm();
    }
    p->ShowModal();
    delete p;  
}
//---------------------------------------------------------------------------
bool __fastcall TfrmGmth_C::BeforeCheck()
{
  SetHeadValue("GmthCheck",1);
  SetHeadValue("GmthChecker",g_sdUserCode);
  SetHeadValue("GmthCheckDate",g_sdCurDate);
  return true;
}
//---------------------------------------------------------------------------
bool __fastcall TfrmGmth_C::BeforeUnCheck()
{
  SetHeadValue("GmthCheck",0);
  SetHeadValue("GmthChecker","");
  SetHeadValue("GmthCheckDate",NULL);
  return true;
}
//---------------------------------------------------------------------------

void __fastcall TfrmGmth_C::sgGmthClick(TObject *Sender)
{
     if(sgGmth->Row > 0)
    {
      comServer->LocateItemByKey(seGmthCode->Text+"\t"+sgGmth->TextMatrix[sgGmth->Row][0]);
      GetDataFromComObject(2);
    }
}
//---------------------------------------------------------------------------