zthclose.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#include "ZthClose.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "ListBaseForm"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"

TfrmZthClose *frmZthClose;
//---------------------------------------------------------------------------
__fastcall TfrmZthClose::TfrmZthClose(TComponent* Owner, HWND chWnd, AnsiString ClassCode,
AnsiString WhereStr)
    : TListBaseForm(Owner,chWnd,ClassCode,WhereStr)

{
}
//---------------------------------------------------------------------------
void __fastcall TfrmZthClose::FillHeadObjToGrid()
{
  int i;
  AnsiString HeadStr;
  try
  {
   StartWaitForm("正在获取数据...");

   comServer->FilterString=WideString(WhereStr);
   comServer->Query();
   if(comServer->RecordCount>0)
   {
    sgZthClose->RowCount=1;
    sgZtdClose->RowCount=1;
    for (i=0;i<comServer->RecordCount;i++)
    {
      comServer->LocateByIndex(i);
      HeadStr="\t\t"+GetHeadValue("ZthCode")+
              "\t"+GetHeadValue("ZthDate")+
              "\t"+GetHeadValue("ZthSupply")+
              "\t"+GetHeadValue("ZthUser");
      sgZthClose->AddItem(HeadStr);
    }
   }
   else
   {
       sgZthClose->RowCount=1;
       sgZtdClose->RowCount=1;
   }
  }
  __finally
  {
   EndWaitForm();
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmZthClose::GetWhereStrToSQL()
{
     WhereStr="zthCheck=1 and zthCancel=0 and zthClose=0 and ";

     if(Trim(sePohCodeF->Text).IsEmpty()==false)
        WhereStr=WhereStr+ "zthCode>='"+Trim(sePohCodeF->Text)+"' and ";
     if(Trim(sePohCodeT->Text).IsEmpty()==false)
        WhereStr=WhereStr+ "zthCode<='"+Trim(sePohCodeT->Text)+"' and ";
     if(Trim(dePohDateF->Text).IsEmpty()==false)
        WhereStr=WhereStr+ "zthDate>='"+FormatDateTime("yyyy-mm-dd",dePohDateF->Date)+"' and ";
     if(Trim(dePohDateT->Text).IsEmpty()==false)
        WhereStr=WhereStr+ "zthDate<='"+FormatDateTime("yyyy-mm-dd",dePohDateT->Date)+"' and ";
     if(Trim(scPohBuyerCode->Text).IsEmpty()==false)
        WhereStr=WhereStr+ "zthUser like '"+Trim(scPohBuyerCode->ItemData[cbItem2])+"' and ";
     if(Trim(scPohSupplyCode->Text).IsEmpty()==false)
        WhereStr=WhereStr+ "zthSupply like '"+Trim(scPohSupplyCode->ItemData[cbItem2])+"' and ";

     if (WhereStr.Length() > 5)
        WhereStr=WhereStr.SubString(1,WhereStr.Length()-5);
     else
        WhereStr="";
}
//---------------------------------------------------------------------------
void __fastcall TfrmZthClose::InitEditControl()
{
    sgZthClose->RowCount=1;
    sgZtdClose->RowCount=1;
    btnClose->Enabled=true;
    sePohCodeF->Text="";
    sePohCodeT->Text="";
    dePohDateF->Text="";
    dePohDateT->Text=dePohDateT->InitDate;
    scPohBuyerCode->Text="";
    scPohSupplyCode->Text="";
   
}
//---------------------------------------------------------------------------

void __fastcall  TfrmZthClose::ChangeToBrowseState(bool agree)
{
    return;
}
//---------------------------------------------------------------------------

void __fastcall TfrmZthClose::AddDetailObjToGrid(AnsiString s_Code)
{
    int i;
    AnsiString ItemStr,ID;
    sgZtdClose->RowCount=1;
    comServer->LocateByKey(WideString(s_Code));
    for (i=0;i<comServer->ItemCount;i++)
    {
        comServer->LocateItemByIndex(i);
        if(GetDetailValue("ZtdClose")=="1")
            ID="√";
        else
            ID="";
        l_Query->LocateByKey(GetDetailValue("ZtdGoods"));
        ItemStr="\t"+ID+
                "\t"+GetDetailValue("ZtdCode")+
                "\t"+GetDetailValue("ZtdLine")+
                "\t"+GetDetailValue("ZtdPoCode")+
                "\t"+GetDetailValue("ZtdPodLine")+
                "\t"+GetDetailValue("ZtdGoods")+
                "\t"+l_Query->FieldByName("goodsname")+
                "\t"+l_Query->FieldByName("goodsspec")+
                "\t"+GetDetailValue("ZtdUnit")+
                "\t"+GetDetailValue("ZtdQty")+
                "\t"+GetDetailValue("ZtdRQty");
        sgZtdClose->AddItem(ItemStr);
    }
 
}
//---------------------------------------------------------------------------

void __fastcall TfrmZthClose::btnClearClick(TObject *Sender)
{
    InitEditControl();
}
//---------------------------------------------------------------------------
void __fastcall TfrmZthClose::btnQueryClick(TObject *Sender)
{
    HavingRight();
    GetWhereStrToSQL();
    FillHeadObjToGrid();
}
//---------------------------------------------------------------------------

void __fastcall TfrmZthClose::FormShow(TObject *Sender)
{
   l_Query->Close();
   l_Query->Open("select goodsname,goodscode,goodsspec from sdgoods","goodscode");
   FillComboBox(Handle,scPohBuyerCode,"select UserCode,UserName from sdUser order By UserCode","UserName","UserCode");
   FillComboBox(Handle,scPohSupplyCode,"select SupplyCode,SupplyName from sdSupply order By SupplyCode","SupplyName","SupplyCode");
   InitEditControl();
}
//---------------------------------------------------------------------------
void __fastcall TfrmZthClose::BitExitClick(TObject *Sender)
{
    frmZthClose->Close();
}
//---------------------------------------------------------------------------


void __fastcall TfrmZthClose::btnCloseClick(TObject *Sender)
{
    btnQueryClick(Sender);
}
//---------------------------------------------------------------------------


void __fastcall TfrmZthClose::sgZthCloseDblClick(TObject *Sender)
{
       if(sgZthClose->RowCount<=1)
        return;
       comServer->LocateByKey(WideString(sgZthClose->TextMatrix[sgZthClose->Row][2]));
       if(sgZthClose->TextMatrix[sgZthClose->Row][1]=="√")
       {
          BillClose(0);//清空主从表的结清标志
          sgZthClose->TextMatrix[sgZthClose->Row][1]="";
          for(int i=1;i<sgZtdClose->RowCount;i++)
           sgZtdClose->TextMatrix[i][1]="";
          sgZtdClose->Enabled=true; //解锁
       }
       else
       {
          BillClose(1);//设置主从表的结清标志
          sgZthClose->TextMatrix[sgZthClose->Row][1]="√";
          for(int i=1;i<sgZtdClose->RowCount;i++)
           sgZtdClose->TextMatrix[i][1]="√";
          sgZtdClose->Enabled=false; //锁定从表不允许修改
       }
}
//---------------------------------------------------------------------------

void __fastcall TfrmZthClose::sgZtdCloseDblClick(TObject *Sender)
{
      comServer->LocateByKey(WideString(sgZtdClose->TextMatrix[sgZtdClose->Row][2]));
      comServer->LocateItemByKey(WideString(sgZtdClose->TextMatrix[sgZtdClose->Row][3]));
      if(sgZtdClose->TextMatrix[sgZtdClose->Row][1]=="√")
      {
          BillClose(2);//清空从表的结清标志
          sgZtdClose->TextMatrix[sgZtdClose->Row][1]="";
       }
       else
       {
          BillClose(3);//设置从表的结清标志
          sgZtdClose->TextMatrix[sgZtdClose->Row][1]="√";
       }
}
//---------------------------------------------------------------------------

void __fastcall TfrmZthClose::BillClose(int iFlag)
{
 try
 {
   switch(iFlag)
   {
    case 0:
     comServer->Close(0);
     for(int i=0;i<comServer->ItemCount;i++)
     {
       comServer->LocateItemByIndex(i);
       SetDetailValue("ZtdClose","0");
       comServer->AddToObject();
     }
     break;
    case 1:
     comServer->Close(1);
     for(int i=0;i<comServer->ItemCount;i++)
     {
       comServer->LocateItemByIndex(i);
       SetDetailValue("ZtdClose","1");
       comServer->AddToObject();
     }
     break;
    case 2:
     comServer->Close(2);
     SetDetailValue("ZtdClose","0");
     comServer->AddToObject();
     break;
    case 3:
     comServer->Close(3);
     SetDetailValue("ZtdClose","1");
     comServer->AddToObject();
     break;
    default:
     break;
   }
 }
 catch(Exception &e)
 {
  throw Exception("结清在途单出现错误！\n"+e.Message);
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmZthClose::HavingRight()
{
}
//-----------------------------------------------------
void __fastcall TfrmZthClose::sgZthCloseClick(TObject *Sender)
{
 if(sgZthClose->Row >=1)
 {
   AddDetailObjToGrid(sgZthClose->Cells[2][sgZthClose->Row]);
 }
}
//---------------------------------------------------------------------------