rpoh.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Rpoh.h"
#include "Rpod.h"
#include "func.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "GenBaseForm"
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"

TfrmRpoh *frmRpoh;
//---------------------------------------------------------------------------
__fastcall TfrmRpoh::TfrmRpoh(TComponent* Owner)
        : TGenBaseForm(Owner,euSdRpoh,"")
{
 AutoCtl=seRpohCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmRpoh::InitEditControl()
{
    ClientGroup->AddComponent(1,true,true,false,sgRpoh,sgRpoh->Name);
    ClientGroup->AddComponent(1,false,false,true,FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(1,false,true,true,scRpohSupplyCode,scRpohSupplyCode->Name);
    ClientGroup->AddComponent(1,false,true,false,seRpohCode,seRpohCode->Name);

    ClientGroup->AddComponent(2,false,false,true,FloatPanel2,FloatPanel2->Name);
    ClientGroup->AddComponent(2,true,true,true,GroupBox2,GroupBox2->Name);
    ClientGroup->AddComponent(2,true,true,true,scRpodStatus,scRpodStatus->Name);
    ClientGroup->AddComponent(2,false,true,true,btnOK,btnOK->Name);
    ClientGroup->AddComponent(2,false,false,false,btnCancel,btnCancel->Name);
    ClientGroup->AddComponent(2,true,true,true,scRpodFrom,scRpodFrom->Name);
    ClientGroup->AddComponent(2,true,true,true,seRpodAmt,seRpodAmt->Name);
    ClientGroup->AddComponent(2,false,true,true,seRpodGoodsCode,seRpodGoodsCode->Name);
    ClientGroup->AddComponent(2,false,false,true,seRpodUnitCode,seRpodUnitCode->Name);

    //Rpoh
    FillEdit(seRpohCurrencyCode,"SELECT CurrencyCode,CurrencyName FROM sdCurrency order by CurrencyCode","CurrencyName","CurrencyCode");
    FillComboBox(scRpohTaxCode,"SELECT TaxCode,TaxName FROM sdTax order by TaxCode","TaxName","TaxCode");
    FillEdit(seRpohPsiteCode,"SELECT distinct PsiteCode,PsiteName FROM sdPsite Order by PsiteCode","PsiteName","PsiteCode");
    FillComboBox(scRpohSettleMode,"SELECT SettleModeCode,SettleModeName FROM sdSettleMode order by SettleModeCode",
                 "SettleModeName","SettleModeCode");
    FillComboBox(scRpohSupplyCode,"SELECT SupplyCode,SupplyName,SupplyTaxCode,SupplyTaxNo FROM sdSupply  where supplycancel=0  order by SupplyCode",
                 "SupplyName","SupplyCode","SupplyTaxCode","SupplyTaxNo");
    FillComboBox(scRpohDeliver,"SELECT DeliverCode,DeliverName FROM sdDeliver order by DeliverCode","DeliverName","DeliverCode");
    FillComboBox(scRpohTransMode,"SELECT TransModeCode,TransModeName FROM sdTransMode order by TransModeCode","TransModeName","TransModeCode");
    FillComboBox(scRpohBuyerCode,"select UserCode,UserName from sdBuyer,sduser where UserCode=BuyerCode order by UserCode","UserName","UserCode");
    //Rpod
    FillEdit(seRpodUnitCode,"SELECT UnitCode,UnitName,UnitRate FROM sdUnit order by UnitCode","UnitName","UnitCode","UnitRate");
    FillComboBox(scRpodDeptCode,"SELECT DeptCode,DeptName FROM sdDept order by DeptCode","DeptName","DeptCode");
    AnsiString sSql;
    if(g_sdQuality == false) //无需质量管理
     sSql = "select LocCode,LocName from sdLoc where LocType=1 order by locCode";
    else                    //需要质量管理
     sSql = "select LocCode,LocName from sdLoc where LocType=3 order by loccode";
    FillEdit(seRpodLocCode,sSql,"LocName","LocCode");

    scRpodStatus->ClearAll();
    scRpodStatus->AddItems("1-手工","1");
    scRpodStatus->AddItems("2-生成","2");
    scRpodStatus->AddItems("3-完毕","3");

    scRpodFrom->ClearAll();
    scRpodFrom->AddItems("1-常规需求","1");
    scRpodFrom->AddItems("2-MRP需求","2");
    scRpodFrom->AddItems("3-库存需求","3");
}
//---------------------------------------------------------------------------
void __fastcall TfrmRpoh::ClearControl(int Section,bool BringToNext)
{
    if (Section == 1)
    {
       if (!BringToNext)
       {
           seRpohCode->Text ="";
           scRpohSupplyCode->Text ="";
           scRpohSupplyCode->ItemIndex=-1;
           deRpohDate->Text=g_sdCurDate;
           scRpohBuyerCode->LocateKey(g_sdUserCode);
           scRpohTaxCode->Text = "";
           scRpohTaxCode->ItemIndex=-1;
           scRpohSettleMode->Text = "";
           scRpohSettleMode->ItemIndex=-1;
           seRpohPsiteCode->Text="";
           seRpohPsiteCode->ItemIndex=-1;
           scRpohTransMode->Text="";
           scRpohTransMode->ItemIndex=-1;
           scRpohDeliver->Text="";
           scRpohDeliver->ItemIndex=-1;
           seRpohCurrencyCode->ItemIndex=-1;
           cbxRpohCheck->Checked =false;
           labRpohChecker->Caption   ="";
           cbxRpohCancel->Checked=false;
           cbxRpohClose->Checked=false;
           labRpohSysDate->Caption = "";
           //新增单据，工具栏使能
           SetCheckToolbarStatus(false);
       }
       sgRpoh->RowCount=1;
    }
    else if (Section==2)
    {
        if (!BringToNext)
        {
           seRpodLine->Text =AnsiString(comServer->ItemCount+1);
           seRpodGoodsCode->Text="";
           pv_GoodsCode="";
           labRpodGoodsName->Caption ="";
           seRpodUnitCode->Text ="";
           seRpodUnitCode->ItemIndex=-1;
           seRpodConvRate->Text="1";
           labRpodPQty->Caption="0.00";
           seRpodQty->Text="0.00";
           seRpodPrice->Text="0.00";
           seRpodAmt->Text="0.00";
           deRpodRecDate->Text="";
           scRpodFrom->ItemIndex=0;
           scRpodStatus->ItemIndex=0;
           ChkRpodClose->Checked = false;
           seRpodCloseDate->Text="";
           deRpodReqDate->Text="";
           scRpodDeptCode->Text="";
           scRpodDeptCode->ItemIndex=-1;
           seRpodLocCode->Text="";
           seRpodLocCode->ItemIndex=-1;
           memRpodDesc->Text="";
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmRpoh::GetDataFromComObject(int Section)
{
    if (Section==1)
    {
       seRpohCode->Text=GetHeadValue(fiRpohCode);
       scRpohSupplyCode->LocateKey(GetHeadValue(fiRpohSupplyCode));
       deRpohDate->Text=GetHeadValue(fiRpohDate);
       scRpohBuyerCode->LocateKey(GetHeadValue(fiRpohBuyerCode));
       scRpohTaxCode->LocateKey(GetHeadValue(fiRpohTaxCode));
       scRpohSettleMode->LocateKey(GetHeadValue(fiRpohSettleMode));
       scRpohDeliver->LocateKey(GetHeadValue(fiRpohDeliver));
       scRpohTransMode->LocateKey(GetHeadValue(fiRpohTransMode));
       seRpohPsiteCode->LocateKey(GetHeadValue(fiRpohPsite));
       seRpohCurrencyCode->LocateKey(GetHeadValue(fiRpohCurrencyCode));
       labRpohSysDate->Caption =GetHeadValue(fiRpohSysDate);
       cbxRpohCheck->Checked  =GetHeadValue(fiRpohCheck)=="1";
       labRpohChecker->Caption=GetHeadValue(fiRpohChecker);
       cbxRpohCancel->Checked =GetHeadValue(fiRpohCancel)=="1";
       cbxRpohClose->Checked =GetHeadValue(fiRpohClose)=="1";
       //根据审核、取消状态，设置工具栏
       if((GetHeadValue(fiRpohCheck)=="1"))
        SetCheckToolbarStatus(true);
       else
        SetCheckToolbarStatus(false);

      if(GetHeadValue(fiRpohCancel)=="1")
       SetCancelToolbarStatus(true);
      else
       SetCancelToolbarStatus(false);

      if(GetHeadValue(fiRpohClose)=="1")
       SetCloseToolbarStatus(true);
      else
       SetCloseToolbarStatus(false);
    }
    else
    {
       seRpodLine->Text=GetDetailValue(fiRpodLine);

       g_sdRsGoods->LocateByKey(WideString(GetDetailValue(fiRpodGoodsCode)));
       seRpodGoodsCode->Text = GetGoodsValue("GoodsCode");
       labRpodGoodsName->Caption = GetGoodsValue("GoodsName");
       SetDetail(seRpodGoodsCode->Text);
       seRpodUnitCode->LocateKey(GetDetailValue(fiRpodUnitCode));
       seRpodConvRate->Text=GetDetailValue(fiRpodConvRate);
       seRpodQty->Text=GetDetailValue(fiRpodQty);
       seRpodPrice->Text=GetDetailValue(fiRpodPrice);
       seRpodAmt->Text=GetDetailValue(fiRpodAmt);
       deRpodRecDate->Text=GetDetailValue(fiRpodRecDate);
       scRpodFrom->LocateKey(GetDetailValue(fiRpodFrom));
       scRpodStatus->LocateKey(GetDetailValue(fiRpodStatus));
       ChkRpodClose->Checked=GetDetailValue(fiRpodClose)=="1";
       seRpodCloseDate->Text=GetDetailValue(fiRpodCloseDate);
       deRpodReqDate->Text=GetDetailValue(fiRpodReqDate);
       scRpodDeptCode->LocateKey(GetDetailValue(fiRpodDept));
       seRpodLocCode->LocateKey(GetDetailValue(fiRpodLocCode));
       labRpodPQty->Caption=GetDetailValue(fiRpodPQty);
       memRpodDesc->Text=GetDetailValue(fiRpodDesc);
       if(GetDetailValue(fiRpodClose)=="1")
        SetCloseDetailStatus(true);
       else
        SetCloseDetailStatus(false);
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmRpoh::SendDataToComObject(int Section)
{
    if (Section==1)
    {
        SetHeadValue(fiRpohCode,seRpohCode->Text );
        SetHeadValue(fiRpohSupplyCode,scRpohSupplyCode->ItemData[cbItem2]);
        SetHeadValue(fiRpohDate,deRpohDate->Text);
        SetHeadValue(fiRpohBuyerCode,scRpohBuyerCode->ItemData[1]);
        SetHeadValue(fiRpohTaxCode,scRpohTaxCode->ItemData[cbItem2]);
        SetHeadValue(fiRpohSettleMode,scRpohSettleMode->ItemData[cbItem2]);
        SetHeadValue(fiRpohPsite,seRpohPsiteCode->ItemData[cbItem2]);
        SetHeadValue(fiRpohDeliver,scRpohDeliver->ItemData[cbItem2]);
        SetHeadValue(fiRpohTransMode,scRpohTransMode->ItemData[cbItem2]);
        SetHeadValue(fiRpohCurrencyCode,seRpohCurrencyCode->ItemData[cbItem2]);
    }
    else
    {
         //自动计算行金额
        AutoCalculation();
        //给请购单号(RpodCode)赋值
        SetDetailValue(fiRpodCode,seRpohCode->Text);
        //----------
        if(seRpodLine->Text == "")
         throw Exception("请输入请购单行号");
        SetDetailValue(fiRpodLine,seRpodLine->Text);
        SetDetailValue(fiRpodGoodsCode,seRpodGoodsCode->Text);
        SetDetailValue(fiRpodUnitCode,seRpodUnitCode->ItemData[cbItem2]);
        if(seRpodConvRate->Text == "")
         throw Exception("请输入单位转换系数");
        SetDetailValue(fiRpodConvRate,seRpodConvRate->Text);
        if(seRpodQty->Text == "")
         throw Exception("请输入请购数量");
        SetDetailValue(fiRpodQty,seRpodQty->Text);
        if(seRpodPrice->Text == "")
         throw Exception("请输入请购单价");
        SetDetailValue(fiRpodPrice,seRpodPrice->Text);
        if(seRpodAmt->Text == "")
         seRpodAmt->Text ="0.00";
        SetDetailValue(fiRpodAmt,seRpodAmt->Text);
        SetDetailValue(fiRpodRecDate,deRpodRecDate->Text);
        SetDetailValue(fiRpodFrom,scRpodFrom->ItemData[cbItem2]);
        SetDetailValue(fiRpodStatus,scRpodStatus->ItemData[cbItem2]);
        SetDetailValue(fiRpodReqDate,deRpodReqDate->Text);
        SetDetailValue(fiRpodDept,scRpodDeptCode->ItemData[cbItem2]);

        SetDetailValue(fiRpodLocCode,seRpodLocCode->ItemData[cbItem2]);
        SetDetailValue(fiRpodDesc,memRpodDesc->Text);
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmRpoh::WaitUserInput(int Section)
{
    if (Section ==1)
    {
     if(seRpohCode->Enabled)
      seRpohCode->SetFocus();
    }
    else
    {
      sgRpoh->Visible=false;
      FloatPanel2->Visible=true;
      pv_GoodsCode=Trim(seRpodGoodsCode->Text);
      SetDetail(Trim(seRpodGoodsCode->Text));
      if(scRpodStatus->ItemData[1] == "2")
      {
       seRpodGoodsCode->Enabled=false;
       seRpodUnitCode->Enabled=false;
       seRpodQty->Enabled=false;
       deRpodReqDate->Enabled=false;
      }
      if(seRpodGoodsCode->Enabled)
        seRpodGoodsCode->SetFocus();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmRpoh::RefreshGridData(int mAction)
{
    int i;
    AnsiString ItemStr=GetItemStringToGrid();
    switch(mAction)
    {
       case 0:
         sgRpoh->AddItem(ItemStr);
         break;
       case 1:
         i = sgRpoh->Row;
         sgRpoh->ChangeItem(ItemStr,i);
         break;
       case 2:
         sgRpoh->RemoveItem(sgRpoh->Row);
         break;
    }
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmRpoh::GetItemStringToGrid()
{
    AnsiString s_ItemStr;
    s_ItemStr = "\t"+GetDetailValue(fiRpodLine)+
                "\t"+GetDetailValue(fiRpodGoodsCode)+
                "\t"+GetDetailValue(fiRpodUnitCode)+
                "\t"+GetDetailValue(fiRpodQty)+
                "\t"+GetDetailValue(fiRpodPrice)+
                "\t"+GetDetailValue(fiRpodAmt);
    return s_ItemStr;
}
//---------------------------------------------------------------------------

void __fastcall TfrmRpoh::DisplayBill()
{
    if(comServer->RecordCount<=0)
      return;
    GetDataFromComObject(1);
    FillGridWithData();
}
//---------------------------------------------------------------------------

void __fastcall TfrmRpoh::GetBill(AnsiString BillID)
{
    int iRow;

    iRow=comServer->Find("RpohCode='"+BillID+"'");
    if (iRow>0)      //FIND THIS BILL
    {
       DisplayBill();
    }
    else
       if (ShowMessageWindow("在数据库中没有查到记录："+BillID+",要增加吗？",mwsConfirmation)==IDYES)
       {
           AddHeadRecord();
       }
}
//---------------------------------------------------------------------------

void __fastcall TfrmRpoh::FillGridWithData()
{
    int i;
    AnsiString ItemStr;
    sgRpoh->RowCount=1;
    if(comServer->RecordCount>0)
    {
      for (i=0;i<comServer->ItemCount;i++)
      {
          comServer->LocateItemByIndex(i);
          RefreshGridData(0);
      }
    }
}
//---------------------------------------------------------------------------

AnsiString __fastcall TfrmRpoh::GetHeadValue(int Index)
{
     return ReadFieldValue(comServer,Index);
}
//---------------------------------------------------------------------------

AnsiString __fastcall TfrmRpoh::GetDetailValue(int Index)
{
     return ReadItemValue(comServer,Index);
}
//---------------------------------------------------------------------------
void __fastcall TfrmRpoh::SetHeadValue(int Index,AnsiString Value)
{
    WriteFieldValue(comServer,Index,Value);
}
//---------------------------------------------------------------------------

void __fastcall TfrmRpoh::SetDetailValue(int Index,AnsiString Value)
{
    WriteItemValue(comServer,Index,Value);
}
//---------------------------------------------------------------------------
void __fastcall TfrmRpoh::FormCreate(TObject *Sender)
{
//    FormIniFile="D:\Test.Ini";
//    SetGridWidth(Name,sgRpoh,FormIniFile);
}
//---------------------------------------------------------------------------

void __fastcall TfrmRpoh::FormClose(TObject *Sender,