pdrh.cpp

速达开源ERP系统

       case 0: // Append
         sgPdrh->AddItem(ItemStr);
         sgPdrh->Row=sgPdrh->RowCount-1;
         break;
       case 1: // Modify
         sgPdrh->ChangeItem(ItemStr,sgPdrh->Row);
         break;
       case 2: // Delete
         sgPdrh->RemoveItem(sgPdrh->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::FillGridWithData()
{
    int i;
    AnsiString ItemStr;
    sgPdrh->RowCount=1;
    if(comServer->RecordCount > 0)
    {
      for(i=0;i<comServer->ItemCount;i++)
      {
         comServer->LocateItemByIndex(i);
         RefreshGridData(0);
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::DisplayBill()
{
    int iCount=comServer->RecordCount;
    if(iCount>0)
    {
       GetDataFromComObject(1);
       FillGridWithData();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::GetBill(AnsiString BillID)
{
    bool iRow;
    iRow=comServer->Find("PdrhCode='"+BillID+"'");
    if(iRow)      //FIND THIS BILL
       DisplayBill();
    else
    {
       if(ShowMessageWindow("在数据库中没有查到记录："+BillID+",要增加吗？",mwsConfirmation)==IDYES)
          AddHeadRecord();
    }
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmPdrh::GetHeadValue(int Index)
{
    return ReadFieldValue(comServer,Index);
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmPdrh::GetDetailValue(int Index)
{
    return ReadItemValue(comServer,Index);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::SetHeadValue(int Index,AnsiString Value)
{
    WriteFieldValue(comServer,Index,Value);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::SetDetailValue(int Index,AnsiString Value)
{
    WriteItemValue(comServer,Index,Value);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::FormShow(TObject *Sender)
{
    ClearControl(1,false); // Head
    ClearControl(2,false); // Detail
    ChangeToBrowseState();
    MoveToFirst();
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::sgPdrhSelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)
{
    if(ARow > 0)
       comServer->LocateItemByKey(WideString(sgPdrh->TextMatrix[ARow][0]));
    if(!comServer->Eof)
       GetDataFromComObject(2);    // Detail
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::sgPdrhDblClick(TObject *Sender)
{
    int iRow;
    iRow=sgPdrh->Row;
    if(iRow == 0)
       return;
    ChangeToBrowseState(false);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::ChangeToBrowseState(bool t_browse)
{
     if(t_browse)
     {
       sgPdrh->Visible=true;
       fpPdrDetail->Visible=false;
       sgPdrh->Align=alClient;
       fpPdrDetail->Align=alNone;
     }
     else
     {
       sgPdrh->Visible=false;
       fpPdrDetail->Visible=true;
       sgPdrh->Align=alNone;
       fpPdrDetail->Align=alClient;
     }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::btnOKClick(TObject *Sender)
{
    try{
      if(CurrentState==caAddDetail || CurrentState==caAddBill)
      {
         if(DetailState==caAddDetail)
            comServer->AddItem();
         SendDataToComObject(2);
         comServer->AddToObject();
         ClearControl(2,false);
         sePdrdLine->SetFocus();
      }
      else
         ChangeToBrowseState();
    }
    catch(Exception &e)
    {
        throw Exception(e.Message);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::btnCancelClick(TObject *Sender)
{
     CancelChange();
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::sePdrhCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    AnsiString tempS=sePdrhCode->Text;
    if(Key==13 && CurrentState==caNormal && !tempS.IsEmpty())
    {
       comServer->LocateByKey(WideString(tempS));
       DisplayBill();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::sePdrdWoButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    SqlStr="007[加工单号][加工件码][加工件名称][要求数量][要求日期][订单单号][订单行号]SELECT WoCode,WoGoods,GoodsName,WoQty,WoRDate,";
    SqlStr=SqlStr+"WoSoCode,WoSodLine from sdWo,sdGoods where GoodsCode=WoGoods and WoCheck=1 and WoClose=0 ORDER BY WoCode";
    TfrmWnQuery *p;
    try
    {
       StartWaitForm("正在查询,请稍候...");
       p=new TfrmWnQuery(this,"加工订单查询",SqlStr);
    }
    __finally
    {
       EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
       sePdrdWo->Text=p->ColData[1];
       sePdrdGoods->Text=p->ColData[2];
       sePdrdGoodsName->Text=p->ColData[3];
    }
    delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::sePdrdProcessButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    SqlStr="003[序号][工序代码][工序名称]SELECT WrgNo,WrgProcess,ProcessName FROM sdWrg,sdProcess ";
    SqlStr=SqlStr+"where WrgProcess=ProcessCode and WrgWo='"+sePdrdWo->Text+"' ORDER BY WrgNo";
    TfrmWnQuery *p;
    try
    {
       StartWaitForm("正在查询,请稍候...");
       p=new TfrmWnQuery(this,"工序资料查询",SqlStr);
    }
    __finally
    {
       EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
       sePdrdProcess->LocateKey(p->ColData[2]);
    }
    delete p;
}
//---------------------------------------------------------------------------

void __fastcall TfrmPdrh::sbWmuClick(TObject *Sender)
{
    TfrmWmu *p;
    if(comServer->ItemCount<1)
    {
      Application->MessageBox("当前没有日报记录信!","提示信息" ,MB_ICONINFORMATION);
      return;
    }
    try
    {
       StartWaitForm("正在启动,请稍候...");
       p=new TfrmWmu(this,chkPdrhCheck->Checked,GetHeadValue(fiPdrhCode),GetDetailValue(fiPdrdLine).ToInt(),GetDetailValue(fiPdrdWo),GetDetailValue(fiPdrdProcess));
    }
    __finally
    {
       EndWaitForm();
    }
    p->ShowModal();
    delete p;
}
//---------------------------------------------------------------------------

void __fastcall TfrmPdrh::sePdrdCQtyButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    SqlStr="005[加工单号][加工件码][加工件名称][加工数量][要求日期]SELECT WoCode,WoGoods,GoodsName,WoQty,WoRDate";
    SqlStr=SqlStr+" from sdWo,sdGoods where GoodsCode=WoGoods and WoCode='"+sePdrdWo->Text+"' ORDER BY WoCode";
    TfrmWnQuery *p;
    try
    {
       StartWaitForm("正在查询,请稍候...");
       p=new TfrmWnQuery(this,"加工订单查询",SqlStr);
    }
    __finally
    {
       EndWaitForm();
    }
    p->ShowModal();
    delete p;
}
//---------------------------------------------------------------------------