mcr.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Mcr.h"
#include "Mcrd.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"

TfrmMcr *frmMcr;
//---------------------------------------------------------------------------
__fastcall TfrmMcr::TfrmMcr(TComponent* Owner)
  : TQueryBaseForm(Owner)
{
    RecentBillCode="";
    sgMcr->RowCount=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMcr::GenData()
{
    //生成查询的记录
    AnsiString SqlStr;
    int ErrNum;
    TComResultSet *McrGen=NewResultSet();
    SqlStr=" select PlannerCode from sdPlanner where PlannerCode='"+g_sdUserCode+"'";
    try
    {
      StartWaitForm("正在生成相关需求计划，请稍等！");
      McrGen->Open(SqlStr,"");
      McrGen->MoveFirst();
      if( McrGen->RecordCount < 1 )
      {
        McrGen->Close();
        throw Exception("当前用户不是计划员，操作被禁止");
      }
      SqlStr="Exec sdGen_Mcr '"+g_sdUserCode+"'",
      McrGen->Execute(WideString(SqlStr));
      FillDataWithData();
    }
    __finally
    {
      delete McrGen;
      EndWaitForm();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmMcr::FillDataWithData()
{
    TComResultSet *RsQuery;
    AnsiString ItemStr,sSql;
    sSql="select McrGoods,McrRDate,McrRQty,McrGQty from sdMcr order by McrGoods";
    sgMcr->RowCount=1;
    RsQuery=NewResultSet();
    try
    {
      RsQuery->Open(WideString(sSql),WideString(""));
      RsQuery->MoveFirst();
      while( RsQuery->Eof == 0)
      {
        AnsiString KeyStr;
        KeyStr=RsQuery->FieldByName("McrGoods");
        g_sdRsGoods->LocateByKey(KeyStr);
        ItemStr=KeyStr+
               "\t"+GetGoodsValue("GoodsName")+
               "\t"+GetGoodsValue("GoodsUnitCode")+
               "\t"+RsQuery->FieldByName("McrRDate")+
               "\t"+RsQuery->FieldByName("McrRQty")+
               "\t"+RsQuery->FieldByName("McrGQty");
        sgMcr->AddItem(ItemStr);
        RsQuery->MoveNext();
      }
      RsQuery->Close();
    }
    __finally
    {
      delete RsQuery;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmMcr::FillDataWithDetail(AnsiString FGoodsCode,AnsiString RDate)
{
    TComResultSet *RsQuery;
    AnsiString ItemStr,sSql;
    TfrmMcrd *Mcrd;
    sSql=AnsiString("select McrdGoods,McrdRDate,McrdFrom,McrdRQty from sdMcrd ")+
         AnsiString("where McrdGoods='"+FGoodsCode+"' ")+
         AnsiString("and McrdRDate='"+RDate+"' order by McrdGoods");
    try
    {
      Mcrd=new TfrmMcrd(this);
      Mcrd->sgMcrd->RowCount=1;
      RsQuery=NewResultSet();
      RsQuery->Open(sSql,"");
      RsQuery->MoveFirst();
      while(RsQuery->Eof == 0)
      {
         AnsiString vKeyStr;
         vKeyStr= RsQuery->FieldByName("McrdGoods");
         g_sdRsGoods->LocateByKey(WideString(vKeyStr));
         ItemStr= vKeyStr+
                  "\t"+GetGoodsValue("GoodsName")+
                  "\t"+GetGoodsValue("GoodsUnitCode")+
                  "\t"+RsQuery->FieldByName("McrdRDate");
         if(RsQuery->FieldByName("McrdFrom")=="1")
            ItemStr=ItemStr+"\t"+"主生产计划";
         else
            ItemStr=ItemStr+"\t"+"独立需求";

         ItemStr=ItemStr+"\t"+RsQuery->FieldByName("McrdRqty");
        Mcrd->sgMcrd->AddItem(ItemStr);
        RsQuery->MoveNext();
      }
      RsQuery->Close();
      if(Mcrd->sgMcrd->RowCount > 1)
        Mcrd->ShowModal();
    }
    __finally
    {
      delete RsQuery;
       delete Mcrd;
    }
}
//---------------------------------------------------------------------------


void __fastcall TfrmMcr::sgMcrDblClick(TObject *Sender)
{
    int ARow=sgMcr->Row;
    AnsiString FGoodsCode=sgMcr->Cells[0][ARow];
    AnsiString RDate=sgMcr->Cells[3][ARow];
    if(ARow>0)
       FillDataWithDetail(FGoodsCode,RDate);
}
//---------------------------------------------------------------------------

void __fastcall TfrmMcr::FormShow(TObject *Sender)
{
    //AddCode
}
//---------------------------------------------------------------------------

void __fastcall TfrmMcr::tbRefreshClick(TObject *Sender)
{
    FillDataWithData();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMcr::muFirstClick(TObject *Sender)
{
    if(sgMcr->RowCount > 1)
      sgMcr->Row=1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMcr::muPreviousClick(TObject *Sender)
{
    if(sgMcr->RowCount > 1 && sgMcr->Row > 1)
       sgMcr->Row=sgMcr->Row-1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMcr::muNextClick(TObject *Sender)
{
    if(sgMcr->RowCount > 1 && sgMcr->Row < sgMcr->RowCount-1)
       sgMcr->Row=sgMcr->Row+1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMcr::muLastClick(TObject *Sender)
{
    if(sgMcr->RowCount > 1)
       sgMcr->Row=sgMcr->RowCount-1;
}
//---------------------------------------------------------------------------


void __fastcall TfrmMcr::tbQueryClick(TObject *Sender)
{
  FillDataWithData();  
}
//---------------------------------------------------------------------------