goods.cpp

速达开源ERP系统

      break;
     case 1:
      scGoodsPpt->AddItems("0-不需状态管理","0");
      scGoodsPpt->AddItems("1-需一维状态管理","1");
      break;
     case 2:
      scGoodsPpt->AddItems("0-不需状态管理","0");
      scGoodsPpt->AddItems("1-需一维状态管理","1");
      scGoodsPpt->AddItems("2-需二维状态管理","2");
      break;
     default:
      break;
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmGoods::TreeViewLocation()
{
    AnsiString s,m;
    s = GetFieldValue(fiGoodsCode);

    for(int i = 1 ; i < tvGoods->Items->Count ; i ++)
    {
        m = tvGoods->Items->Item[i]->Text;
        m = m.SubString(2,m.AnsiPos(")")-2);
        if((tvGoods->Items->Item[i]->Text) == s)
        {
            tvGoods->Selected = tvGoods->Items->Item[i];
            break;
        }
    }
}
//---------------------------------------------------------------------------

__fastcall TfrmGoods::TfrmGoods(TComponent* Owner)
    : TRecBaseForm(Owner,euSdGoods,"")
{
    FillGridWithData();
    ClearControl(false);
    comServer->MoveFirst();
}

//---------------------------------------------------------------------------


void __fastcall TfrmGoods::tvGoodsChange(TObject *Sender,
      TTreeNode *Node)
{

    AnsiString m;
    if(Node == tvGoods->Items->Item[0])
     return;
    if(tvGoods->Selected==NULL)
     return;
    if(tvGoods->Selected->StateIndex != 1)
     return;
    m = Node->Text;
    m = m.SubString(2,m.AnsiPos(")")-2);
    comServer->LocateByKey(WideString(m));
    if (comServer->Eof == 0)
    {
        GetDataFromComObject();
    }
}

//---------------------------------------------------------------------------

void __fastcall TfrmGoods::FormClose(TObject *Sender,
      TCloseAction &Action)
{

    TRecBaseForm::FormClose(Sender,Action);

}

//---------------------------------------------------------------------------

void __fastcall TfrmGoods::muAddDetailClick(TObject *Sender)

{
    if(tvGoods->Selected==NULL)
     return;
    if(tvGoods->Selected->StateIndex < 2)
    {
        ::MessageBox(Handle,"只能在分类码的末节点下增加物品","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
    if(tvGoods->Selected->StateIndex == 2)
     FillGoods(tvGoods->Selected);
    PageControl1->ActivePage=TabGoods1;
    TRecBaseForm::muAddDetailClick(Sender);
    //取分类码
    AnsiString s;
    s=tvGoods->Selected->Text;
    s=s.SubString(2,s.Pos(")")-2);
    labGoodsPmpcCode->Caption=s;
}

//---------------------------------------------------------------------------

void __fastcall TfrmGoods::muEditDetailClick(TObject *Sender)
{
    if(tvGoods->Selected==NULL)
     return;
    if(tvGoods->Selected->StateIndex != 1)
    {
        ::MessageBox(Handle,"该节点是分类节点,不能修改.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }

    PageControl1->ActivePage=TabGoods1;
    TRecBaseForm::muEditDetailClick(Sender);
}

//---------------------------------------------------------------------------

void __fastcall TfrmGoods::muDeleteDetailClick(TObject *Sender)
{
    if(tvGoods->Selected==NULL)
     return;
    if(tvGoods->Selected->StateIndex != 1)
    {
        ::MessageBox(Handle,"该节点是分类节点,不能删除.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }

    TRecBaseForm::DelDetailRecord();
    PageControl1->ActivePage=TabGoods1;
}

//---------------------------------------------------------------------------

void __fastcall TfrmGoods::muFirstClick(TObject *Sender)

{
    TRecBaseForm::muFirstClick(Sender);
    TreeViewLocation();
}

//---------------------------------------------------------------------------

void __fastcall TfrmGoods::muPreviousClick(TObject *Sender)
{
    TRecBaseForm::muPreviousClick(Sender);
    TreeViewLocation();
}

//---------------------------------------------------------------------------

void __fastcall TfrmGoods::muNextClick(TObject *Sender)
{
    TRecBaseForm::muNextClick(Sender);
    TreeViewLocation();
}

//---------------------------------------------------------------------------

void __fastcall TfrmGoods::muLastClick(TObject *Sender)
{
    TRecBaseForm::muLastClick(Sender);
    TreeViewLocation();
}

//---------------------------------------------------------------------------

void __fastcall TfrmGoods::tvGoodsDblClick(TObject *Sender)
{
 if(tvGoods->Selected == NULL)
  return;
 if(tvGoods->Selected->StateIndex != 2)
  return;
 FillGoods(tvGoods->Selected);
}
//---------------------------------------------------------------------------

void __fastcall TfrmGoods::RefreshUpdateData(int MsgSrc,int MsgType)
{
  switch(MsgSrc)
  {
   case euSdUnit:
    if(ShowUpdateMessage(MsgSrc,MsgType))
    {
     FillComboBox(scGoodsUnitCode,"select unitname memo,unitcode from sdunit order by unitcode","memo","unitcode");
     FillComboBox(scGoodsWunit,"select unitname memo,unitcode from sdunit order by unitcode","memo","unitcode");
     FillComboBox(scGoodsCunit,"select unitname memo,unitcode from sdunit order by unitcode","memo","unitcode");
    }
    break;
   case euSdSupply:
    if(ShowUpdateMessage(MsgSrc,MsgType))
    {
     FillComboBox(scGoodsPreSupplyCode,"select supplyname memo,supplycode from sdsupply where supplycancel=0 order by supplycode","memo","SupplyCode");
     FillComboBox(scGoodsSubSupplyCode,"select supplyname memo,supplycode from sdsupply where supplycancel=0 order by supplycode","memo","SupplyCode");
    }
    break;
   case euSdRouteh:
    if(ShowUpdateMessage(MsgSrc,MsgType))
     FillComboBox(scGoodsRouteCode,"select routehname memo,routehcode from sdrouteh order by routehcode","memo","RoutehCode");
    break;
   case euSdCurrency:
    if(ShowUpdateMessage(MsgSrc,MsgType))
     FillComboBox(scGoodsCurrencyCode,"select currencyname memo,currencycode from sdcurrency order by currencycode","memo","CurrencyCode");
    break;
   case euSdLoc:
    if(ShowUpdateMessage(MsgSrc,MsgType))
     FillComboBox(scGoodsLocCode,"select locname memo,loccode from sdloc order by loccode","memo","LocCode");
    break;
   default:
    break;
  }
}
//---------------------------------------------------------------------------


void __fastcall TfrmGoods::btnGoodsPptClick(TObject *Sender)
{
 TfrmGoodsPpt *p;
 if(scGoodsPpt->ItemIndex<1)
  return;
 try
 {
  p=new TfrmGoodsPpt(this,scGoodsPpt->ItemData[1],seGoodsCode->Text);
  p->ShowModal();
 }
 __finally
 {
  delete p;
 }
}
//---------------------------------------------------------------------------

void __fastcall TfrmGoods::scGoodsPptClick(TObject *Sender)
{
 if(scGoodsPpt->ItemIndex>0)
  btnGoodsPpt->Enabled=true;
 else
  btnGoodsPpt->Enabled=false;

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

void __fastcall TfrmGoods::scGoodsFromExit(TObject *Sender)
{
 if(scGoodsFrom->ItemIndex == 0) //采购
 {
    scGoodsType->ClearAll();
    scGoodsType->AddItems("3-原材料","3");
    scGoodsType->AddItems("4-零件","4");
    scGoodsType->AddItems("5-备用件","5");
    scGoodsType->AddItems("6-工具","6");
    scGoodsType->AddItems("7-费用件","7");
    scGoodsType->AddItems("8-虚拟件","8");
    scGoodsType->AddItems("9-在流件","9");
 }
 else
 {
    scGoodsType->ClearAll();
    scGoodsType->AddItems("1-成品","1");
    scGoodsType->AddItems("2-半成品","2");
 }
 scGoodsType->ItemIndex=0;
}
//---------------------------------------------------------------------------

void __fastcall TfrmGoods::btnAidUnitClick(TObject *Sender)
{
  TfrmGmu *p;
  if(seGoodsCode->Text == "")
   return;
  p=new TfrmGmu(this,seGoodsCode->Text,seGoodsName->Text);
  p->ShowModal();
  scGoodsUnitCode->LocateKey(p->pc_PrimaryUnit);
  ChkGoodsMunit->Checked=p->pc_HaveMultiUnit;
  delete p;
}
//---------------------------------------------------------------------------