squote.cpp

速达开源ERP系统

    WriteFieldValue(comServer,fiSquotePrice9,WideString(seSquotePrice9->Text));
    WriteFieldValue(comServer,fiSquoteRebate9,WideString(seSquoteRebate9->Text));
    WriteFieldValue(comServer,fiSquoteQty10,WideString(seSquoteQty10->Text));
    if(seSquoteQty10->Text=="0"||seSquoteQty10->Text.IsEmpty())
      {
      seSquotePrice10->Text="0";
      seSquoteRebate10->Text="0";
      }
    WriteFieldValue(comServer,fiSquotePrice10,WideString(seSquotePrice10->Text));
    WriteFieldValue(comServer,fiSquoteRebate10,WideString(seSquoteRebate10->Text));

}

void __fastcall TfrmSquote::WaitUserInput()
{
    FloatPanel1->Enabled=true;
    if(seSquoteGoods->Enabled)
       seSquoteGoods->SetFocus();
}

AnsiString __fastcall TfrmSquote::GetDataToGrid()
{
    AnsiString  s;

    s  =  "\t" + GetFieldValue(fiSquoteGoods)+
           "\t" + GetFieldValue(fiSquoteCurrency)+
            "\t" + GetFieldValue(fiSquoteSdate)+
            "\t" + GetFieldValue(fiSquoteEdate);
    return(s);
}

void __fastcall TfrmSquote::RefreshGridData(int mAction)
{
    AnsiString ItemStr;

    ItemStr =   GetDataToGrid();
    // 新增
    if (mAction ==  0)
    {
        sgSquote->AddItem(ItemStr);
        sgSquote->Row=sgSquote->RowCount-1;
    }
    // 修改
    else if(mAction ==  1)
    {
      sgSquote->ChangeItem(ItemStr,sgSquote->Row);
      }
    // 删除
    else if(mAction ==  2)
    {
        sgSquote->RemoveItem(sgSquote->Row);
    }
}



void __fastcall TfrmSquote::FillGridWithData()
{
    AnsiString ItemStr;

    comServer->MoveFirst();
    sgSquote->RowCount    =   1;

    while (comServer->Eof   ==  0)
    {
        ItemStr =   GetDataToGrid();
        sgSquote->AddItem(ItemStr);
        comServer->MoveNext();
    }
}


void __fastcall TfrmSquote::InitEditControl()
{
    ClientGroup->AddComponent(2,true,true,false, sgSquote,sgSquote->Name);
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, FloatPanel3,FloatPanel3->Name);
    ClientGroup->AddComponent(2,false,true,true, seSquoteGoods,seSquoteGoods->Name);
    ClientGroup->AddComponent(2,true,true,true, scSquoteUnit,scSquoteUnit->Name);
    ClientGroup->AddComponent(2,true,true,true, seSquoteUser,seSquoteUser->Name);    
    FillComboBox(cbSquoteClientCode,"select ClientCode,ClientName from sdClient  where ClientCancel=0 order by ClientCode","ClientName","ClientCode");
    FillComboBox(scSquoteCurrency,"select CurrencyCode,CurrencyName from sdCurrency order by CurrencyCode","CurrencyName","CurrencyCode");
    FillComboBox(scSquoteSpt,"select SptCode,SptName from sdSpt order by SptCode","SptName","SptCode");
    FillComboBox(scSquoteUnit,"select UnitCode,UnitName from sdUnit order by UnitCode","UnitName","UnitCode");
    FillEdit(seSquoteUser,"select UserCode,UserName from sdUser order by UserCode","UserName","UserCode");
  }


__fastcall TfrmSquote::TfrmSquote(TComponent* Owner)
    : TRecBaseForm(Owner,euSdSquote,"")
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmSquote::cbSquoteClientCodeClick(TObject *Sender)
{
  if((cbSquoteClientCode->ItemData[cbItem2]+scSquoteCurrency->ItemData[cbItem2])!=ClientValue)
    {
        WideString FS;
        FS   =   "SquoteClient = '" + cbSquoteClientCode->ItemData[cbItem2] + "'and SquoteCurrency='"+scSquoteCurrency->ItemData[cbItem2]+"'";
        comServer->FilterString =FS;
        comServer->Query();
        FillGridWithData();
//        FillComboBox(scSquoteGoods,"select distinct sgdGoodsCode from sdsgd where sgdClientCode='"+cbSquoteClientCode->Text+"' order by sgdGoodsCode","sgdGoodsCode");
        comServer->MoveFirst();
        GetDataFromComObject();
        ClientValue=cbSquoteClientCode->ItemData[cbItem2]+scSquoteCurrency->ItemData[cbItem2];
    }
}
//---------------------------------------------------------------------------


void __fastcall TfrmSquote::SetClientValue(AnsiString value)
{
        if(FClientValue != value) {
                FClientValue = value;
        }
}
AnsiString __fastcall TfrmSquote::GetClientValue()
{
        return FClientValue;
}
void __fastcall TfrmSquote::scSquoteGoodsClick(TObject *Sender)
{
     WriteFieldValue(comServer,fiSquoteClient,cbSquoteClientCode->ItemData[cbItem2]);
     WriteFieldValue(comServer,fiSquoteGoods,seSquoteGoods->Text);
     scSquoteUnit->Text=GetFieldValue(fiSquoteUnit);

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


void __fastcall TfrmSquote::FormShow(TObject *Sender)
{
   cbSquoteClientCodeClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TfrmSquote::sgSquoteClick(TObject *Sender)
{
    if (sgSquote->Row    >   0)
         comServer->LocateByKey(WideString(cbSquoteClientCode->ItemData[cbItem2]+scSquoteCurrency->ItemData[cbItem2]+sgSquote->TextMatrix[sgSquote->Row][1]));
    if (!comServer->Eof)
         GetDataFromComObject();

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

void __fastcall TfrmSquote::seSquoteGoodsButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    SqlStr="005[货物编码][货物名称][单位][客户货物编码][客户货物名称]select SgdGoodsCode,";
    SqlStr+="GoodsName,GoodsUnitCode,SgdCode,SgdName from SdSgd,sdGoods where SgdClientCode='"+cbSquoteClientCode->ItemData[1]+"' and ";
    SqlStr+="SgdGoodsCode=GoodsCode order by SgdGoodsCode";
    TfrmWnQuery *p;
    try
    {
       StartWaitForm("正在查询,请稍候...");
       p=new TfrmWnQuery(this,"客户货物查询",SqlStr);
    }
    __finally
    {
       EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
     g_sdRsGoods->LocateByKey(WideString(p->ColData[1]));
     seSquoteGoods->Text=GetGoodsValue("GoodsCode");
     scSquoteUnit->LocateKey(GetGoodsValue("GoodsUnitCode"));
    }
    delete p;
}
//---------------------------------------------------------------------------

void __fastcall TfrmSquote::seSquoteGoodsExit(TObject *Sender)
{
 if(!seSquoteGoods->Text.IsEmpty())
 {
   if(g_sdRsGoods->LocateByKey(WideString(seSquoteGoods->Text))==0)
    scSquoteUnit->LocateKey(GetGoodsValue("GoodsUnitCode"));
  }

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