weph.cpp

科思ERP部分源码及控件

            "\t"+GetDetailValue("WepdGoods")+
            "\t"+GetDetailValue("WepdGoodsName")+
            "\t"+GetDetailValue("WepdGoodsSpec")+
            "\t"+GetDetailValue("WepdLoc")+
            "\t"+GetDetailValue("WepdCQty")+
            "\t"+GetDetailValue("WepdSod")+
            "\t"+GetDetailValue("WepdSodLine");
    return ItemStr;
}

//---------------------------------------------------------------------------
void __fastcall TfrmWeph::RefreshGridData(int mAction)
{
    int i;
    AnsiString ItemStr=GetDataToGrid();
    switch(mAction)
    {
       case 0: // Append
         sgWeph->AddItem(ItemStr);
         sgWeph->Row=sgWeph->RowCount-1;
         break;
       case 1: // Modify
         sgWeph->ChangeItem(ItemStr,sgWeph->Row);
         break;
       case 2: // Delete
         sgWeph->RemoveItem(sgWeph->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::FillGridWithData()
{
    int i;
    AnsiString ItemStr;
    sgWeph->RowCount=1;
    if(comServer->RecordCount > 0)
    {
      for(i=0;i<comServer->ItemCount;i++)
      {
         comServer->LocateItemByIndex(i);
         RefreshGridData(0); // Append
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::DisplayBill()
{
    if(comServer->RecordCount>0)
    {
        GetDataFromComObject(1);  // Head
        FillGridWithData();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::GetBill(AnsiString BillID)
{
    bool iRow;
    iRow=comServer->Find("WephCode='"+BillID+"'");
    if(iRow)      //FIND THIS BILL
       DisplayBill();
    else
    {
       if(ShowMessageWindow("在数据库中没有查到记录："+BillID+",要增加吗？",mwsConfirmation)==IDYES)
          AddHeadRecord();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::FormShow(TObject *Sender)
{
    ClearControl(1,false); //Head
    ClearControl(2,false); //Detail
    ChangeToBrowseState();
    MoveToFirst();
}
//---------------------------------------------------------------------------
/*void __fastcall TfrmWeph::sgWephSelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)
{
    if(ARow > 0)
    {
      comServer->LocateItemByKey(seWephCode->Text+"\t"+sgWeph->TextMatrix[ARow][0]);
      GetDataFromComObject(2); //Detail
    }
} */
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::sgWephClick(TObject *Sender)
{
    if (sgWeph->Row > 0)
    {
       comServer->LocateItemByKey(GetHeadValue("WephCode")+"\t"+sgWeph->TextMatrix[sgWeph->Row][0])+"\t";
       GetDataFromComObject(2);    // Detail
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::sgWephDblClick(TObject *Sender)
{
    int iRow;
    iRow=sgWeph->Row;
    if(iRow == 0)
       return;
    ChangeToBrowseState(false);
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::ChangeToBrowseState(bool t_browse)
{
    if(t_browse)
    {
       sgWeph->Visible=true;
       fpWepDetail->Visible=false;
       sgWeph->Align=alClient;
       fpWepDetail->Align=alNone;
    }
    else
    {
       sgWeph->Visible=false;
       fpWepDetail->Visible=true;
       sgWeph->Align=alNone;
       fpWepDetail->Align=alClient;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::btnOKClick(TObject *Sender)
{
    try{
      if(CurrentState==caAddDetail || CurrentState==caAddBill)
      {
         if(DetailState==caAddDetail)
           comServer->AddItem();
         SendDataToComObject(2);
         comServer->AddToObject();
         ClearControl(2,false);
         seWepdLine->SetFocus();
      }
      else
        ChangeToBrowseState();
    }
    catch(Exception &e)
    {
        throw Exception(e.Message);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::btnCancelClick(TObject *Sender)
{
     CancelChange();
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::seWephCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    AnsiString tempS=seWephCode->Text;
    if(Key==13 && CurrentState==caNormal && !tempS.IsEmpty())
    {
       comServer->LocateByKey(WideString(tempS));
       DisplayBill();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::seWepdWoButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    SqlStr="008[加工单号][加工件码][加工件名称][计量单位][加工数量][订单单号][订单行号][批号]SELECT WoCode,";
    SqlStr=SqlStr+"WoGoods,GoodsName,WoUnit,WoQty,WoSoCode,WoSodLine,WoBatch FROM sdWo,sdGoods WHERE WoCheck=1 and ";
    SqlStr=SqlStr+"WoClose=0 and WoGoods=GoodsCode ORDER BY WoCode,WoGoods";
    TfrmWnQuery *p;
    try
    {
       StartWaitForm("正在查询,请稍候...");
       p=new TfrmWnQuery(this,"加工单资料查询",SqlStr);
    }
    __finally
    {
       EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
       seWepdWo->Text=p->ColData[1];
       seWepdGoods->Text=p->ColData[2];
       seWepdGoodsName->Text=p->ColData[3];
       scWepdBatch->LocateKey(p->ColData[8]);
       seWepdSod->Text=p->ColData[6];
       seWepdSodLine->Text=p->ColData[7];
    }
    delete p;
}
//---------------------------------------------------------------------------

void __fastcall TfrmWeph::sbPmuClick(TObject *Sender)
{
    TfrmPmu *p;
    if(comServer->ItemCount<1)
    {
      Application->MessageBox("当前没有日报记录信息!","提示信息" ,MB_ICONINFORMATION);
      return;
    }
    try
    {
       StartWaitForm("正在启动,请稍候...");
       AnsiString ParamString;
       ParamString=AnsiString(GetHeadValue("WephCheck"))+"\t"+GetHeadValue("WephCode")+"\t"+AnsiString(GetDetailValue("WepdLine"))+"\t"+GetDetailValue("WepdWo");
       p=new TfrmPmu(this,g_ClientHandle,"1061109",ParamString);
    }
    __finally
    {
       EndWaitForm();
    }
    p->ShowModal();
    delete p;
}
//---------------------------------------------------------------------------

void __fastcall TfrmWeph::seWepdLocButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="004[当前月份][货位编码][货位名称][当前库存]";
    SqlStr+="select MaccFmonth,MaccLoc,LocName,MaccAoyQty from sdMacc,sdLg,sdLoc where LocCode=lgLocCode and LocCode=MaccLoc";
    SqlStr+=" and LgGoodsCode=MaccGoods and MaccFmonth='"+g_sdMMonth+"'";
    SqlStr+=" and MaccGoods='"+seWepdGoods->Text+"' order by LocCode";
    try
    {
      StartWaitForm("正在查询,请稍候...");
      p=new TfrmWnQuery(this,"存储货位库存查询",SqlStr);
    }
    __finally
    {
      EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
       seWepdLoc->LocateKey(p->ColData[2]);
    }
    delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::FormClose(TObject *Sender, TCloseAction &Action)
{
   TBillBaseForm::FormClose(Sender,Action);
}
//---------------------------------------------------------------------------
bool __fastcall TfrmWeph::BeforeCheck()
{
   SetHeadValue("WephCheck",1);
   SetHeadValue("WephChecker",g_sdUserCode);
   SetHeadValue("WephCheckDate",g_sdCurDate);
   return true;
}
//---------------------------------------------------------------------------
bool __fastcall TfrmWeph::BeforeUnCheck()
{
   SetHeadValue("WephCheck",0);
   SetHeadValue("WephChecker","");
   SetHeadValue("WephCheckDate",NULL);
   return true;
}
//---------------------------------------------------------------------------