bomverify.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#include "BomVerify.h"
#include "gvar.h"
#include "commfunction.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma resource "*.dfm"

TfrmBomVerify *frmBomVerify;
//---------------------------------------------------------------------------
__fastcall TfrmBomVerify::TfrmBomVerify(TComponent* Owner)
  : TStdBaseForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmBomVerify::bbVerifyClick(TObject *Sender)
{
    int ErrNum;
    TComServer *comServer=NewDcomAppSvr(euSdBomh);
    StartWaitForm("正在进行产品合法性校验,请稍候...");
    try
    {
       comServer->Execute("1");
    }
    catch(Exception &e)
    {
       EndWaitForm();
       throw Exception(e.Message);
    }
    ShowMessage("产品BOM全部合法!");
    delete comServer;
    EndWaitForm();
    Close();
}
//---------------------------------------------------------------------------


void __fastcall TfrmBomVerify::bbExitClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------