precd_p_i.cpp

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

//--------------------------------------------------------------------------
#include <vcl.h>
#include "Precd_P_I.h"
#include "Prech_P_I.h"
#include "wnquery.h"
//--------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "SDComboBox"
#pragma resource "*.dfm"

TfrmPrecd_P_I  *frmPrecd_P_I;
//--------------------------------------------------------------------------
__fastcall TfrmPrecd_P_I::TfrmPrecd_P_I(TComponent* Owner, HWND chWnd, AnsiString ClassCode,AnsiString WhereStr)
        : TStdBaseForm(Owner,chWnd,ClassCode,WhereStr)

{
  InitControlGroup();
  btnOK->Enabled=false;
}
//--------------------------------------------------------------------------
__fastcall TfrmPrecd_P_I::TfrmPrecd_P_I(TComponent* Owner)
        : TStdBaseForm(Owner)
{
InitControlGroup();
btnOK->Enabled=false;

}
//---------------------------------------------------------------------------
void __fastcall TfrmPrecd_P_I::btnOKClick(TObject *Sender)
{
  double FVal,FPrice,FQty,FDQty,FTax,FAmt;
  int ErrNum;
  try
  {
    StartWaitForm("正在生成收货单,请稍候......");
    if(sgPrecd->RowCount>1)
    {
     int j;
     j=comServer->ItemCount-1;
     if(j>=0)
     {
        comServer->LocateItemByIndex(j);
        AnsiString PrechLine = GetDetailValue(AnsiString("PrecdLine"));
        j=StrToInt(PrechLine);
        j=j+1;
     }
     else
        j=1;
     try
     {
       for(int i=1;i<sgPrecd->RowCount;i++)
       {
           if(sgPrecd->Cells[1][i]=="√")
           {
               comServer->AddItem();
               SetDetailValue("PrecdRAmt",0);
               SetDetailValue("PrecdKAmt",0);
               SetDetailValue("PrecdOAmt",0);
               SetDetailValue("PrecdEQty",0);
               SetDetailValue("PrecdIQty",0);
               SetDetailValue("PrecdVQty",0);
               SetDetailValue("PrecdBQty",0);

               SetDetailValue("PrecdCode",frmPrech_P_I->sePrechCode->Text);
               SetDetailValue("PrecdLine",AnsiString(j));
               SetDetailValue("PrecdPo",sePrecdPoCode->Text);
               SetDetailValue("PrecdPodLine", sgPrecd->Cells[2][i]);
               SetDetailValue("PrecdGoods", sgPrecd->Cells[3][i]);
               SetDetailValue("Goodsname", sgPrecd->Cells[4][i]);
               SetDetailValue("Goodsspec", sgPrecd->Cells[5][i]);

               SetDetailValue("PrecdUnit", sgPrecd->Cells[6][i]);
               SetDetailValue("PrecdConv", sgPrecd->Cells[7][i]);
               if(sgPrecd->Cells[9][i] == "")
                throw Exception("请输入送货数量");
               SetDetailValue("PrecdDQty", sgPrecd->Cells[9][i]);
               if(sgPrecd->Cells[10][i] == "")
                throw Exception("请输入收货数量");
               SetDetailValue("PrecdQty", sgPrecd->Cells[10][i]);
               SetDetailValue("PrecdPrice", sgPrecd->Cells[15][i]);
               FDQty=sgPrecd->Cells[9][i].ToDouble();
               FQty=sgPrecd->Cells[10][i].ToDouble();
               if(FQty > FDQty)
                throw Exception("收货数量不能多于送货数量");
               FPrice=sgPrecd->Cells[15][i].ToDouble();
               FVal=(FQty*FPrice)/(1+FPrechTaxRate);
               FAmt=DataCarry(FVal,2,0);
               FTax=DataCarry(FVal*FPrechTaxRate,2,0);
               SetDetailValue("PrecdAmt",AnsiString(FAmt));
               SetDetailValue("PrecdTAmt",AnsiString(FTax));
               SetDetailValue("PrecdLoc", sgPrecd->Cells[11][i]);
               SetDetailValue("PrecdBatch", sgPrecd->Cells[12][i]);
               SetDetailValue("PrecdSo", sgPrecd->Cells[13][i]);
               SetDetailValue("PrecdSodLine", sgPrecd->Cells[14][i]);
               SetDetailValue("PrecdRDate", sgPrecd->Cells[16][i]);
               SetDetailValue("PrecdCDate", sgPrecd->Cells[17][i]);
               comServer->AddToObject();
               j=j+1;
           }
       }
     }
     catch(Exception &e)
     {
      comServer->FreeItem();
      this->ModalResult=0;
      throw Exception(e.Message);
     }
    }
  }
  __finally
  {
    EndWaitForm();
  }
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmPrecd_P_I::btnCancelClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmPrecd_P_I::InitControlGroup()
{
    sgPrecd->RowCount = 1;
    sePrecdPoCode->Text="";
    sePrecdSupply->Text=frmPrech_P_I->scPrechSupply->Text;
    sePrecdSupply->Enabled=false;
    FPrechSupply=frmPrech_P_I->scPrechSupply->ItemData[cbItem2];
    sePrechCurrency->Text=frmPrech_P_I->sePrechCurrency->Text;
    sePrechCurrency->Enabled=false;
    FPrechCurrency=frmPrech_P_I->sePrechCurrency->ItemData[cbItem2];
    sePrechRate->Text=frmPrech_P_I->sePrechEnrate->Text;
    sePrechTax->Text=frmPrech_P_I->scPrechTaxCode->Text;
    sePrechTax->Enabled=false;
    FPrechTax=frmPrech_P_I->scPrechTaxCode->ItemData[cbItem2];
    if(frmPrech_P_I->scPrechTaxCode->ItemData[cbItem3] == "")
     FPrechTaxRate=0;
    else
     FPrechTaxRate=frmPrech_P_I->scPrechTaxCode->ItemData[cbItem3].ToDouble();
}
//---------------------------------------------------------------------------

void __fastcall TfrmPrecd_P_I::FillGridWithData()
{

    AnsiString  ItemStr,s_SQL;
    s_SQL=AnsiString(" Select PodLine,PodGoods,PodUnit,PodConvRate,podQty=PodQty-PodRQty+PodBQty,")
         +AnsiString(" PodLoc,PodBatch,PodSo,PodSodLine,PodPrice,PodReqDate,PodRecDate,goodsname,goodsspec,goodsbuyer from sdPod,sdgoods where PodCode='"+sePrecdPoCode->Text+"'")
         +AnsiString(" and goodscode=podgoods and PodClose = 0 and PodQty-PodRQty+PodBQty>0 ");
    TComResultSet * RsPrecd;
    RsPrecd=new TComResultSet(Handle, g_ClientHandle);
    RsPrecd->Close();
    RsPrecd->Open("select parametercode,parametervalue from sdparameter where parametercode ='10302' and parametervalue =1","parametercode");
    if(RsPrecd->RecordCount >0)
    s_SQL+=" and goodsbuyer = '"+g_sdUserCode+"'";
    s_SQL+=" order by podline";

    sgPrecd->RowCount=1;
    try
    {
      StartWaitForm("正在查询数据,请稍候......");
      RsPrecd->Close();
      RsPrecd->Open(s_SQL,"");
      while( RsPrecd->Eof == 0)
      {
       double d_PodQty;
       d_PodQty=StrToFloat(RsPrecd->FieldByName("PodQty"));
       if(d_PodQty > 0)
       {
         ItemStr="\t"+AnsiString("") +
                 "\t"+RsPrecd->FieldByName("PodLine")+
                 "\t"+RsPrecd->FieldByName("PodGoods")+
                 "\t"+RsPrecd->FieldByName("Goodsname")+
                 "\t"+RsPrecd->FieldByName("Goodsspec")+
                 "\t"+RsPrecd->FieldByName("PodUnit")+
                 "\t"+RsPrecd->FieldByName("PodConvRate")+
                 "\t"+RsPrecd->FieldByName("PodQty")+
                 "\t"+RsPrecd->FieldByName("PodQty")+
                 "\t"+RsPrecd->FieldByName("PodQty")+
                 "\t"+RsPrecd->FieldByName("PodLoc")+
                 "\t"+RsPrecd->FieldByName("PodBatch")+
                 "\t"+RsPrecd->FieldByName("PodSo")+
                 "\t"+RsPrecd->FieldByName("PodSodLine")+
                 "\t"+RsPrecd->FieldByName("PodPrice")+
                 "\t"+RsPrecd->FieldByName("PodReqDate")+
                 "\t"+RsPrecd->FieldByName("PodRecDate");

         sgPrecd->AddItem(ItemStr);
       }
       RsPrecd->MoveNext();
      }
      RsPrecd->Close();
    }
    __finally
    {
      EndWaitForm();
    }
delete RsPrecd;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPrecd_P_I::GetComObject(TComServer *comServerPtr)
{
    comServer = comServerPtr;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPrecd_P_I::SetDetailValue(AnsiString fieldname,AnsiString Value)
{
  comServer->DataSet->SetDetailValue(fieldname,Value);
}
AnsiString __fastcall TfrmPrecd_P_I::GetDetailValue(AnsiString fieldname)
{
  Variant vTmp;
  vTmp=comServer->DataSet->GetItemValue(fieldname);
  if(vTmp.IsNull())
   return "";
  else
   return AnsiString(vTmp);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPrecd_P_I::sgPrecdDblClick(TObject *Sender)
{
    AnsiString SqlStr;
    if (sgPrecd->Row >0)
    {
      if(sgPrecd->Col==1)
      {
        if (sgPrecd->Cells[1][sgPrecd->Row] == "√")
        {
         sgPrecd->Cells[1][sgPrecd->Row] =  "";
         for (int i=1;i<sgPrecd->RowCount;i++)
         {
            if(sgPrecd->Cells[1][i]=="√")
            {
               btnOK->Enabled=true;
               break;
            }
            else
               btnOK->Enabled=false;
         }
        }
        else
        {
          sgPrecd->Cells[1][sgPrecd->Row] =  "√";
          btnOK->Enabled=true;
        }
      }
      else if(sgPrecd->Col==11 && sgPrecd->Cells[1][sgPrecd->Row] == "√")
      {
        SqlStr="002[货位代码][货位名称]select loccode,locname from sdLoc,sdlg ";
        SqlStr+=" where lgLoccode=loccode and lggoodscode='"+sgPrecd->Cells[3][sgPrecd->Row]+"'";
//        if(g_sdQuality == false) //无需质量管理
          SqlStr+= " and LocType=1 order by locCode";
//        else                    //需要质量管理
//          SqlStr+= " and LocType=3 order by loccode";
        TfrmWnQuery *p;
        try
        {
          StartWaitForm("正在查询,请稍候...");
          p=new TfrmWnQuery(this,"货位查询",SqlStr);
        }
        __finally
        {
          EndWaitForm();
        }
        if(p->ShowModal()==mrOk)
        {
          sgPrecd->Cells[11][sgPrecd->Row]=p->ColData[1];
        }
        delete p;
      }
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmPrecd_P_I::sePrecdPoCodeButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="005[采购单号][采购日期][币种][税码][采购员]";
  if(cbSameTax->Checked)
  {
   SqlStr="select pohcode,pohdate,currencyname,isnull(taxname,''),pohbuyer from sdpoh,sdCurrency,sdtax";
   SqlStr+=" where pohcurrency=currencycode and pohtaxcode*=taxcode and pohcheck=1 and pohclose=0 and pohcancel=0 ";
   SqlStr+=" and pohsupply='"+FPrechSupply+"' and pohcurrency='"+FPrechCurrency+"' ";
   SqlStr+=" and pohtaxCode='"+FPrechTax+"' order by pohcode";
  }
  else
  {
   SqlStr+="select pohcode,pohdate,currencyname,isnull(taxname,''),pohbuyer from sdpoh,sdCurrency,sdtax";
   SqlStr+=" where pohcurrency=currencycode and pohtaxcode*=taxcode and pohcheck=1 and pohclose=0 and pohcancel=0 ";
   SqlStr+=" and pohsupply='"+FPrechSupply+"' and pohcurrency='"+FPrechCurrency+"' ";
   SqlStr+=" order by pohcode";
  }
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"采购单查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    sePrecdPoCode->Text=p->ColData[1];
    FillGridWithData();
  }
  delete p;
}
//---------------------------------------------------------------------------

void __fastcall TfrmPrecd_P_I::bbSelAllClick(TObject *Sender)
{
  if(sgPrecd->RowCount <=1)
   return;
  for(int i=1;i<sgPrecd->RowCount;i++)
    sgPrecd->Cells[1][i] = "√";
  btnOK->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TfrmPrecd_P_I::bbSelNoneClick(TObject *Sender)
{
  for(int i=1;i<sgPrecd->RowCount;i++)
    sgPrecd->Cells[1][i] = "";
  btnOK->Enabled=false;
}
//---------------------------------------------------------------------------


void __fastcall TfrmPrecd_P_I::sgPrecdSelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)
{
 if(sgPrecd->Cells[1][ARow]=="√")
  sgPrecd->ReadOnly=false;
 else
  sgPrecd->ReadOnly=true;
}
//---------------------------------------------------------------------------

void __fastcall TfrmPrecd_P_I::sgPrecdSetEditText(TObject *Sender,
      int ACol, int ARow, const AnsiString Value)
{
 if(sgPrecd->Cells[1][ARow]=="√")
 {
  if(ACol == 7)
   sgPrecd->Cells[8][ARow]=Value;
 }
}
//-----------------------------------------