purchinf.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 559 行 · 第 1/2 页

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "PurchInf.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ListBaseForm"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "DateEdit"
#pragma resource "*.dfm"
TfrmPurchInf *frmPurchInf;
//---------------------------------------------------------------------------
__fastcall TfrmPurchInf::TfrmPurchInf(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
    : TListBaseForm(Owner,chWnd,MidCode,WhereStr)
{
  PageControl1->ActivePageIndex=0;
  FillGridWithData();
  InitEditControl();
  sgSupplyClick(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPurchInf::FillGridWithData()
{
  AnsiString TempStr,SqlStr;
  AnsiString GType,GFrom,RFrom,PType,TType;
  switch (PageControl1->ActivePageIndex)
    {
    case 0:
        {
        sgSupply->RowCount=1;
        SqlStr=GetSqlString();
        l_Query->Close();
        l_Query->Open(SqlStr,"SupplyCode");
        if(l_Query->RecordCount>0)
            {
             l_Query->MoveFirst();
             while(l_Query->Eof==false)
               {
               TempStr =AnsiString("")+
                 "\t"+ l_Query->FieldByName("supplyCode")+
                 "\t"+ l_Query->FieldByName("supplyName")+
                 "\t"+ l_Query->FieldByName("supplyLegalman")+
                 "\t"+ l_Query->FieldByName("supplyLinkman")+
                 "\t"+ l_Query->FieldByName("supplyTel")+
                 "\t"+ l_Query->FieldByName("supplyaddr")+
                 "\t"+ l_Query->FieldByName("supplyfax")+
                 "\t"+ l_Query->FieldByName("currencyname")+
                 "\t"+ l_Query->FieldByName("tradename")+
                 "\t"+ l_Query->FieldByName("creditdesc")+
                 "\t"+ l_Query->FieldByName("supplycreatedate");
                 sgSupply->AddItem(TempStr);
                l_Query->MoveNext();
                }
            }
        break;
        }
//fill supply base data with sdsupply

    case 1:
        {
        sgGoods->RowCount=1;
        SqlStr=GetSqlString();
        l_Query->Close();
        l_Query->Open(SqlStr,"GoodsCode");
        if(l_Query->RecordCount>0)
            {
            l_Query->MoveFirst();
            while(l_Query->Eof==false)
               {
                switch(StrToInt(l_Query->FieldByName("GoodsType")))
                    {
                    case 1:
                    {GType = "成品";break;}
                    case 2:
                    {GType = "半成品";break;}
                    case 3:
                    {GType = "原材料";break;}
                    case 4:
                    {GType = "零件";break;}
                    case 5:
                    {GType = "备用件";break;}
                    case 6:
                    {GType = "工具";break;}
                    case 7:
                    {GType = "费用件";break;}
                    case 8:
                    {GType = "虚拟件";break;}
                    case 9:
                    {GType = "在流件";break;}
                    default:
                    {GType = "";break;}
                    }
                switch(StrToInt(l_Query->FieldByName("GoodsFrom")))
                    {
                    case 1:
                    {GFrom = "采购件";break;}
                    case 2:
                    {GFrom = "制造件";break;}
                    default:
                    {GFrom ="";break;}
                    }
                TempStr =AnsiString("")+
                 "\t"+l_Query->FieldByName("GoodsCode")+
                 "\t"+l_Query->FieldByName("GoodsName")+
                 "\t"+l_Query->FieldByName("GoodsSpec")+
                 "\t"+GType+
                 "\t"+GFrom+
                 "\t"+l_Query->FieldByName("GoodsABC");
                sgGoods->AddItem(TempStr);
                l_Query->MoveNext();
                }
            }
        break;
        }
    //fill goods data with sdgoods
    case 2:
        {
        sgRpod->RowCount=1;
        SqlStr=GetSqlString();
        l_Query->Close();
        l_Query->Open(SqlStr,"RpodCode");
        if(l_Query->RecordCount>0)
            {
            l_Query->MoveFirst();
            while(l_Query->Eof==false)
               {
                switch(StrToInt(l_Query->FieldByName("RpodFrom")))
                      {
                      case 1:
                      {RFrom = "手工录入";break;}
                      case 2:
                      {RFrom = "MRP生成";break;}
                      case 3:
                      {RFrom = "库存需求";break;}
                      default:
                      {RFrom="";break;}
                      }
               TempStr =AnsiString("")+
                 "\t"+l_Query->FieldByName("RpodCode")+
                 "\t"+l_Query->FieldByName("RpodLine")+
                 "\t"+l_Query->FieldByName("RpodGoodsCode")+
                 "\t"+l_Query->FieldByName("GoodsName")+
                 "\t"+l_Query->FieldByName("GoodsSpec")+
                 "\t"+l_Query->FieldByName("UnitName")+
                 "\t"+l_Query->FieldByName("Rpodqty")+
                 "\t"+l_Query->FieldByName("RpodPrice")+
                 "\t"+l_Query->FieldByName("RpodAmt")+
                 "\t"+RFrom+
                 "\t"+l_Query->FieldByName("Rpodreqdate")+
                 "\t"+l_Query->FieldByName("Rpodrecdate")+
                 "\t"+AnsiString(l_Query->FieldByName("Rpohcheck")=="1"?"是":"否")+
                 "\t"+AnsiString(l_Query->FieldByName("Rpohclose")=="1"?"是":"否");
               sgRpod->AddItem(TempStr);
                l_Query->MoveNext();
                }
             }
        break;
        }//fill grid with Rpod
    case 3:
        {
        sgPod->RowCount=1;
        SqlStr=GetSqlString();
        l_Query->Close();
        l_Query->Open(SqlStr,"PodCode");
        if(l_Query->RecordCount>0)
            {
            l_Query->MoveFirst();
            while(l_Query->Eof==false)
               {
              TempStr =AnsiString("")+
                 "\t"+l_Query->FieldByName("podCode")+
                 "\t"+l_Query->FieldByName("podLine")+
                 "\t"+l_Query->FieldByName("podGoods")+
                 "\t"+l_Query->FieldByName("GoodsName")+
                 "\t"+l_Query->FieldByName("GoodsSpec")+
                 "\t"+l_Query->FieldByName("UnitName")+
                 "\t"+l_Query->FieldByName("podqty")+
                 "\t"+l_Query->FieldByName("podPrice")+
                 "\t"+l_Query->FieldByName("podAmt")+
                 "\t"+l_Query->FieldByName("poddqty")+
                 "\t"+l_Query->FieldByName("podrqty")+
                 "\t"+l_Query->FieldByName("podbqty")+
                 "\t"+l_Query->FieldByName("podfqty")+
                 "\t"+l_Query->FieldByName("podeqty")+
                 "\t"+l_Query->FieldByName("podwqty")+
                 "\t"+l_Query->FieldByName("podso")+
                 "\t"+AnsiString(l_Query->FieldByName("Pohcheck")=="1"?"是":"否")+
                 "\t"+AnsiString(l_Query->FieldByName("Pohclose")=="1"?"是":"否");
                 sgPod->AddItem(TempStr);
                 l_Query->MoveNext();
                 }
             }
        break;
        }//fill grid with pod
    case 4:
        {
        sgUld->RowCount=1;
        SqlStr=GetSqlString();
        l_Query->Close();
        l_Query->Open(SqlStr,"UldCode");
        if(l_Query->RecordCount>0)
            {
            l_Query->MoveFirst();
            while(l_Query->Eof==false)
               {
                TempStr =AnsiString("")+
                 "\t"+l_Query->FieldByName("uldCode")+
                 "\t"+l_Query->FieldByName("uldLine")+
                 "\t"+l_Query->FieldByName("uldpocode")+
                 "\t"+l_Query->FieldByName("uldGoods")+
                 "\t"+l_Query->FieldByName("GoodsName")+
                 "\t"+l_Query->FieldByName("GoodsSpec")+
                 "\t"+l_Query->FieldByName("UnitName")+
                 "\t"+l_Query->FieldByName("uldpoqty")+
                 "\t"+l_Query->FieldByName("uldurqty")+
                 "\t"+l_Query->FieldByName("uldrecdate")+
                 "\t"+l_Query->FieldByName("uldsenddate")+
                 "\t"+l_Query->FieldByName("ulddelay");
                sgUld->AddItem(TempStr);
                l_Query->MoveNext();
                 }
             }
         break;
         }//fill grid with uld
    case 5:
        {
        sgPrecd->RowCount=1;
        SqlStr=GetSqlString();
        l_Query->Close();
        l_Query->Open(SqlStr,"PrecdCode");
        if(l_Query->RecordCount>0)
            {
            l_Query->MoveFirst();
            while(l_Query->Eof==false)
                {
                  PType="";
                if(l_Query->FieldByName("PrechType")=="P")
                  PType="按采购单";
                if(l_Query->FieldByName("PrechType")=="G")
                  PType="按物料";
                if(l_Query->FieldByName("PrechType")=="N")
                  PType="非计划";
                TempStr =AnsiString("")+
                 "\t"+l_Query->FieldByName("PrecdCode")+
                 "\t"+l_Query->FieldByName("PrecdLine")+
                 "\t"+l_Query->FieldByName("Precdpo")+
                 "\t"+l_Query->FieldByName("PrecdGoods")+
                 "\t"+l_Query->FieldByName("GoodsName")+
                 "\t"+l_Query->FieldByName("GoodsSpec")+
                 "\t"+l_Query->FieldByName("UnitName")+
                 "\t"+l_Query->FieldByName("Precdqty")+
                 "\t"+l_Query->FieldByName("PrecdPrice")+
                 "\t"+l_Query->FieldByName("Precdamt")+
                 "\t"+l_Query->FieldByName("Precdtamt")+
                 "\t"+PType+
                 "\t"+l_Query->FieldByName("Precdso")+
                 "\t"+l_Query->FieldByName("Precdrdate")+
                 "\t"+l_Query->FieldByName("Precdcdate")+
                 "\t"+AnsiString(l_Query->FieldByName("Prechcheck")=="1"?"是":"否")+
                 "\t"+AnsiString(l_Query->FieldByName("Prechclose")=="1"?"是":"否");
               sgPrecd->AddItem(TempStr);
                l_Query->MoveNext();
                 }
             }
         break;
         }//fill grid with precd
    case 6:
        {
        sgZtd->RowCount=1;
        SqlStr=GetSqlString();
        l_Query->Close();
        l_Query->Open(SqlStr,"ztdCode");
        if(l_Query->RecordCount>0)
            {
            l_Query->MoveFirst();
            while(l_Query->Eof==false)
                {