📄 goods.cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#include "Goods.h"
#include "GoodsPpt.h"
#include "Gmu.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmGoods *frmGoods;
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmGoods::GetFieldValue(int FieldIndex)
{
AnsiString S;
S = ReadFieldValue(comServer,FieldIndex);
return(S);
}
//---------------------------------------------------------------------------
void __fastcall TfrmGoods::ClearControl(bool BringToNext)
{
if (!BringToNext)
{
seGoodsCode->Text="";
seGoodsName->Text="";
seGoodsDesc->Text="";
labGoodsPmpcCode->Caption="";
seGoodsOverDays->Text ="0";
seGoodsIDLedays->Text="0";
seGoodsPaot->Text="0.00";
seGoodsOaot->Text="0";
seGoodsPtof->Text="0";
seGoodsRopQty->Text="0.00";
seGoodsEoq->Text="0.00";
seGoodsEoi->Text="0.00";
seGoodsSafeQty->Text="0.00";
seGoodsMaxQty->Text="0.00";
seGoodsMinPack->Text="0";
seGoodsOoq->Text="0";
seGoodsWasteRate->Text="0";
seGoodsBpno->Text="0";
seGoodsVer->Text="";
seGoodsMold->Text="";
seGoodsSpec->Text="";
seGoodsModel->Text="";
seGoodsWeight->Text="0";
seGoodsCubage->Text="0";
seGoodsStdCost->Text="0.00";
seGoodsPlnCost->Text="0.00";
ChkGoodsMunit->Checked =false;
ChkGoodsIunit->Checked =false;
ChkGoodsCancel->Checked =false;
ChkGoodsCheck->Checked =false;
ChkGoodsSale->Checked =false;
ChkGoodsSingle->Checked =false;
ChkGoodsBatch->Checked =false;
ChkGoodsTrackSo->Checked =false;
ChkGoodsGtqFlg->Checked =false;
scGoodsUnitCode->ItemIndex=-1;
scGoodsUnitCode->Text="";
scGoodsFrom->ItemIndex=0;
scGoodsFromExit(NULL);
scGoodsType->ItemIndex=0;
scGoodsLocCode->ItemIndex=-1;
scGoodsLocCode->Text="";
scGoodsPreSupplyCode->ItemIndex=-1;
scGoodsPreSupplyCode->Text="";
scGoodsSubSupplyCode->ItemIndex=-1;
scGoodsSubSupplyCode->Text="";
scGoodsPlanType->ItemIndex=0;
scGoodsWunit->ItemIndex=-1;
scGoodsWunit->Text="";
scGoodsCunit->ItemIndex=-1;
scGoodsCunit->Text="";
scGoodsRouteCode->ItemIndex=-1;
scGoodsRouteCode->Text="";
scGoodsABC->ItemIndex=0;
scGoodsCurrencyCode->LocateKey(g_sdCurrencyCode);
scGoodsCostFrom->ItemIndex=0;
scGoodsCostType->ItemIndex=0;
seGoodsMinQty->Text="0.00";
seGoodsGtqVal->Text="0.00";
scGoodsState->ItemIndex=1;
scGoodsColor->Text="";
seGoodsSize->Text="0";
seGoodsLlc->Text="0";
seGoodsRigidity->Text="0";
scGoodsPpt->ItemIndex=0;
}
PageControl1->ActivePage=TabGoods1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmGoods::GetDataFromComObject()
{
seGoodsCode->Text=GetFieldValue(fiGoodsCode);
seGoodsName->Text=GetFieldValue(fiGoodsName);
seGoodsDesc->Text=GetFieldValue(fiGoodsDesc);
labGoodsPmpcCode->Caption=GetFieldValue(fiGoodsPmpcCode);
seGoodsOverDays->Text=GetFieldValue(fiGoodsOverDays);
seGoodsIDLedays->Text=GetFieldValue(fiGoodsIdleDays);
seGoodsPaot->Text=GetFieldValue(fiGoodsPaot);
seGoodsOaot->Text=GetFieldValue(fiGoodsOaot);
seGoodsPtof->Text=GetFieldValue(fiGoodsPtof);
seGoodsRopQty->Text=GetFieldValue(fiGoodsRopQty);
seGoodsEoq->Text=GetFieldValue(fiGoodsEoq);
seGoodsEoi->Text=GetFieldValue(fiGoodsEoi);
seGoodsSafeQty->Text=GetFieldValue(fiGoodsSafeQty);
seGoodsMaxQty->Text=GetFieldValue(fiGoodsMaxQty);
seGoodsMinPack->Text=GetFieldValue(fiGoodsMinPack);
seGoodsOoq->Text=GetFieldValue(fiGoodsOoq);
seGoodsWasteRate->Text=GetFieldValue(fiGoodsWasteRate);
seGoodsBpno->Text=GetFieldValue(fiGoodsBpNo);
seGoodsVer->Text=GetFieldValue(fiGoodsVer);
seGoodsMold->Text=GetFieldValue(fiGoodsMold);
seGoodsSpec->Text=GetFieldValue(fiGoodsSpec);
seGoodsModel->Text=GetFieldValue(fiGoodsModel);
seGoodsWeight->Text=GetFieldValue(fiGoodsWeight);
seGoodsCubage->Text=GetFieldValue(fiGoodsCubage);
seGoodsStdCost->Text=GetFieldValue(fiGoodsStdCost);
seGoodsPlnCost->Text=GetFieldValue(fiGoodsPlnCost);
ChkGoodsMunit->Checked =GetFieldValue(fiGoodsMUnit)=="1";
ChkGoodsIunit->Checked =GetFieldValue(fiGoodsIUnit)=="1";
ChkGoodsCancel->Checked =GetFieldValue(fiGoodsCancel)=="1";
ChkGoodsCheck->Checked =GetFieldValue(fiGoodsCheck)=="1";
ChkGoodsSale->Checked =GetFieldValue(fiGoodsSale)=="1";
ChkGoodsSingle->Checked =GetFieldValue(fiGoodsSingle)=="1";
ChkGoodsBatch->Checked =GetFieldValue(fiGoodsBatch)=="1";
ChkGoodsTrackSo->Checked =GetFieldValue(fiGoodsTrackSo)=="1";
ChkGoodsGtqFlg->Checked =GetFieldValue(fiGoodsGtqFlg)=="1";
scGoodsUnitCode->LocateKey(GetFieldValue(fiGoodsUnitCode));
scGoodsUnitCode->Text=scGoodsUnitCode->ItemData[0];
scGoodsFrom->LocateKey(GetFieldValue(fiGoodsFrom));
scGoodsFrom->Text=scGoodsFrom->ItemData[0];
scGoodsFromExit(NULL);
scGoodsType->LocateKey(GetFieldValue(fiGoodsType));
scGoodsType->Text=scGoodsType->ItemData[0];
scGoodsLocCode->LocateKey(GetFieldValue(fiGoodsLocCode));
scGoodsLocCode->Text=scGoodsLocCode->ItemData[0];
scGoodsPreSupplyCode->LocateKey(GetFieldValue(fiGoodsPreSupplyCode));
scGoodsPreSupplyCode->Text=scGoodsPreSupplyCode->ItemData[0];
scGoodsSubSupplyCode->LocateKey(GetFieldValue(fiGoodsSubSupplyCode));
scGoodsSubSupplyCode->Text=scGoodsSubSupplyCode->ItemData[0];
scGoodsPlanType->LocateKey(GetFieldValue(fiGoodsPlanType));
scGoodsPlanType->Text=scGoodsPlanType->ItemData[0];
scGoodsWunit->LocateKey(GetFieldValue(fiGoodsWunit));
scGoodsWunit->Text=scGoodsWunit->ItemData[0];
scGoodsCunit->LocateKey(GetFieldValue(fiGoodsCunit));
scGoodsCunit->Text=scGoodsCunit->ItemData[0];
scGoodsRouteCode->LocateKey(GetFieldValue(fiGoodsRouteCode));
scGoodsRouteCode->Text=scGoodsRouteCode->ItemData[0];
scGoodsABC->Text=GetFieldValue(fiGoodsABC);
scGoodsCurrencyCode->LocateKey(GetFieldValue(fiGoodsCurrencyCode));
scGoodsCurrencyCode->Text=scGoodsCurrencyCode->ItemData[0];
scGoodsCostFrom->LocateKey(GetFieldValue(fiGoodsCostFrom));
scGoodsCostType->LocateKey(GetFieldValue(fiGoodsCostType));
seGoodsMinQty->Text=GetFieldValue(fiGoodsMinQty);
seGoodsGtqVal->Text=GetFieldValue(fiGoodsGtqVal);
scGoodsState->LocateKey(GetFieldValue(fiGoodsState));
scGoodsColor->Text=GetFieldValue(fiGoodsColor);
seGoodsSize->Text=GetFieldValue(fiGoodsSize);
seGoodsLlc->Text=GetFieldValue(fiGoodsLlc);
seGoodsRigidity->Text=GetFieldValue(fiGoodsRigidity);
scGoodsPpt->LocateKey(GetFieldValue(fiGoodsPpt));
}
//---------------------------------------------------------------------------
void __fastcall TfrmGoods::SendDataToComObject()
{
WriteFieldValue(comServer,fiGoodsCode, Trim(seGoodsCode->Text));
WriteFieldValue(comServer,fiGoodsName, seGoodsName->Text);
WriteFieldValue(comServer,fiGoodsDesc, seGoodsDesc->Text);
//如果是增加状态
if(CurrentState == caAddDetail)
{
AnsiString m;
m=tvGoods->Selected->Text;
m = m.SubString(2,m.AnsiPos(")")-2);
WriteFieldValue(comServer,fiGoodsPmpcCode, m);
}
//
if(seGoodsOverDays->Text == "")
seGoodsOverDays->Text="0";
WriteFieldValue(comServer,fiGoodsOverDays, seGoodsOverDays->Text);
if(seGoodsIDLedays->Text == "")
seGoodsIDLedays->Text="0";
WriteFieldValue(comServer,fiGoodsIdleDays, seGoodsIDLedays->Text);
if(seGoodsPaot->Text == "")
seGoodsPaot->Text="0.00";
WriteFieldValue(comServer,fiGoodsPaot, seGoodsPaot->Text);
if(seGoodsOaot->Text == "")
seGoodsOaot->Text="0";
WriteFieldValue(comServer,fiGoodsOaot, seGoodsOaot->Text);
if(seGoodsPtof->Text == "")
seGoodsPtof->Text="0";
WriteFieldValue(comServer,fiGoodsPtof, seGoodsPtof->Text);
if(seGoodsRopQty->Text == "")
seGoodsRopQty->Text="0.00";
WriteFieldValue(comServer,fiGoodsRopQty, seGoodsRopQty->Text);
if(seGoodsEoq->Text == "")
seGoodsEoq->Text="0.00";
WriteFieldValue(comServer,fiGoodsEoq, seGoodsEoq->Text);
if(seGoodsEoi->Text == "")
seGoodsEoi->Text="0.00";
WriteFieldValue(comServer,fiGoodsEoi, seGoodsEoi->Text);
if(seGoodsSafeQty->Text == "")
seGoodsSafeQty->Text="0.00";
WriteFieldValue(comServer,fiGoodsSafeQty, seGoodsSafeQty->Text);
if(seGoodsMaxQty->Text == "")
seGoodsMaxQty->Text="0.00";
WriteFieldValue(comServer,fiGoodsMaxQty, seGoodsMaxQty->Text);
if(seGoodsMinPack->Text == "")
seGoodsMinPack->Text="0";
WriteFieldValue(comServer,fiGoodsMinPack, seGoodsMinPack->Text);
if(seGoodsOoq->Text == "")
seGoodsOoq->Text="0";
WriteFieldValue(comServer,fiGoodsOoq, seGoodsOoq->Text);
if(seGoodsWasteRate->Text == "")
seGoodsWasteRate->Text="0";
WriteFieldValue(comServer,fiGoodsWasteRate,
seGoodsWasteRate->Text);
if(seGoodsBpno->Text == "")
seGoodsBpno->Text="0";
WriteFieldValue(comServer,fiGoodsBpNo, seGoodsBpno->Text);
WriteFieldValue(comServer,fiGoodsVer, seGoodsVer->Text);
WriteFieldValue(comServer,fiGoodsMold, seGoodsMold->Text);
WriteFieldValue(comServer,fiGoodsSpec, seGoodsSpec->Text);
WriteFieldValue(comServer,fiGoodsModel, seGoodsModel->Text);
if(seGoodsWeight->Text == "")
seGoodsWeight->Text="0";
WriteFieldValue(comServer,fiGoodsWeight, seGoodsWeight->Text);
if(seGoodsCubage->Text == "")
seGoodsCubage->Text="0";
WriteFieldValue(comServer,fiGoodsCubage, seGoodsCubage->Text);
if(seGoodsStdCost->Text == "")
seGoodsStdCost->Text="0.00";
WriteFieldValue(comServer,fiGoodsStdCost, seGoodsStdCost->Text);
if(seGoodsPlnCost->Text == "")
seGoodsPlnCost->Text="0.00";
WriteFieldValue(comServer,fiGoodsPlnCost, seGoodsPlnCost->Text);
WriteFieldValue(comServer,fiGoodsMUnit, ChkGoodsMunit->Checked ? "1":"0");
WriteFieldValue(comServer,fiGoodsIUnit, ChkGoodsIunit->Checked ? "1":"0");
WriteFieldValue(comServer,fiGoodsCancel, ChkGoodsCancel->Checked ? "1":"0");
WriteFieldValue(comServer,fiGoodsCheck, ChkGoodsCheck->Checked ? "1":"0");
WriteFieldValue(comServer,fiGoodsSale, ChkGoodsSale->Checked ? "1":"0");
WriteFieldValue(comServer,fiGoodsSingle, ChkGoodsSingle->Checked ? "1":"0");
WriteFieldValue(comServer,fiGoodsBatch, ChkGoodsBatch->Checked ? "1":"0");
WriteFieldValue(comServer,fiGoodsTrackSo, ChkGoodsTrackSo->Checked ? "1":"0");
WriteFieldValue(comServer,fiGoodsGtqFlg, ChkGoodsGtqFlg->Checked ? "1":"0");
WriteFieldValue(comServer,fiGoodsUnitCode, scGoodsUnitCode->ItemData[1]);
if(scGoodsFrom->ItemData[1] == "")
throw Exception("请选择来源码");
WriteFieldValue(comServer,fiGoodsFrom, scGoodsFrom->ItemData[1]);
if(scGoodsType->ItemData[1] == "")
throw Exception("请选择货物类型");
WriteFieldValue(comServer,fiGoodsType, scGoodsType->ItemData[1]);
WriteFieldValue(comServer,fiGoodsLocCode, scGoodsLocCode->ItemData[1]);
WriteFieldValue(comServer,fiGoodsPreSupplyCode,
scGoodsPreSupplyCode->ItemData[1]);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -