calcllc.cpp

速达开源ERP系统

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

TfrmCalcLlc *frmCalcLlc;
//---------------------------------------------------------------------------
__fastcall TfrmCalcLlc::TfrmCalcLlc(TComponent* Owner)
  : TStdBaseForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmCalcLlc::bbCalcClick(TObject *Sender)
{
    int ErrNum;
    TComServer *comServer=NewDcomAppSvr(euSdBomh);
    StartWaitForm("正在进行物料低层码计算,请稍候...");
    try
    {
       comServer->Execute("2");
    }
    catch(Exception &e)
    {
       EndWaitForm();
       throw Exception(e.Message);
    }
    ShowMessage("物料低层码计算完成!");
    delete comServer;
    EndWaitForm();
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmCalcLlc::bbExitClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------