sohclose.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 336 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "SohClose.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ListBaseForm"
#pragma link "DateEdit"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmSohClose *frmSohClose;
//---------------------------------------------------------------------------
__fastcall TfrmSohClose::TfrmSohClose(TComponent* Owner,HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        :TListBaseForm(Owner, chWnd, MidCode,WhereStr)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohClose::InitEditControl()
{
 FillComboBox(Handle,scSohSaler,"Select userCode,UserName from sdUser where UserCode in (select SalerCode from SdSaler)","UserName","UserCode");
 FillComboBox(Handle,scSohClient,"Select ClientCode,ClientName from sdClient where ClientCancel=0","ClientName","ClientCode");
}
//---------------------------------------------------------------------------

void __fastcall TfrmSohClose::ClearControl()
{
           seSohCodeF->Text            ="";
           seSohCodeT->Text            ="";
           deSohDateF->Text            ="";
           deSohDateT->Text            ="";
           scSohClient->ItemIndex      =-1;
           scSohSaler->ItemIndex       =-1;

           SohGrid->RowCount=1;
           SodGrid->RowCount=1;
           btnClose->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmSohClose::GetDataFromComObject(int Section)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmSohClose::SendDataToComObject(int Section)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmSohClose::WaitUserInput(int Section)
{
}
void __fastcall TfrmSohClose::ChangeToBrowseState(bool Browse)
{
  ClearControl();
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohClose::DisplayBill()
{
        FillHeadGridWithData();
        comServer->MoveFirst();
        FillDetailGridWithData();
}
//---------------------------------------------------------------------------

void __fastcall TfrmSohClose::GetBill(AnsiString WhereStr)
{
    comServer->FilterString=WideString(WhereStr);
    comServer->Query();
    if (comServer->RecordCount!=0)      //Found it
       {
         btnClose->Enabled=true;
         DisplayBill();
       }
       else
        ShowMessageWindow("在数据库中没有查到记录或已完成所有,请重新输入条件",mwsInformation);
   RecodCount->Caption="查询单据数为："+IntToStr(comServer->RecordCount);
}
//---------------------------------------------------------------------------

void __fastcall TfrmSohClose::FillDetailGridWithData()
{
      int i;
      AnsiString ItemStr,ID;
      SodGrid->RowCount=1;
      for (i=0;i<comServer->ItemCount;i++)
      {
          comServer->LocateItemByIndex(i);
          if(GetDetailValue("SodClose")=="1")
              ID="*";
          else
            { if(GetDetailValue("SodState")=="8")
                 ID="√";
              else
                 ID=" ";
             }
          ItemStr="\t"+ID+"\t"+GetDetailValue("SodLine")+"\t"+
                    GetDetailValue("SodGoods")+"\t"+GetDetailValue("SodGoodsName")+"\t"+GetDetailValue("SodGoodsSpec")+"\t"+
                    GetDetailValue("SodUnit")+"\t"+
                    GetDetailValue("SodPrice")+"\t"+GetDetailValue("SodDisc")+"\t"+
                    GetDetailValue("SodQty")+"\t"+GetDetailValue("SodRecDate")+"\t"+
                    GetDetailValue("SodSQty");
          SodGrid->AddItem(ItemStr);
      }
}
void __fastcall TfrmSohClose::FillHeadGridWithData()
{
      int i;
      AnsiString HeadStr;
      SohGrid->RowCount=1;
      for (i=0;i<comServer->RecordCount;i++)
      {
          comServer->LocateByIndex(i);
          HeadStr="\t"+AnsiString("  ")+"\t"+GetHeadValue("SohCode")+"\t"+GetHeadValue("SohContract")+"\t"+
                       GetHeadValue("SohClient")+"\t"+GetHeadValue("SohDate")+"\t"+
                       GetHeadValue("SohCurrency")+"\t"+GetHeadValue("SohSettleMode")+"\t"+
                       GetHeadValue("SohSaler");
          SohGrid->AddItem(HeadStr);
      }

}
//---------------------------------------------------------------------------
void __fastcall TfrmSohClose::FormShow(TObject *Sender)
{
//       InitEditControl();
	   ClearControl();
	   ChangeToBrowseState(true);

}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmSohClose::GetWhereSQLString()
{
     AnsiString WhereStr;
     WhereStr="SohClose=0 and SohCancel=0 and SohCheck=1";
     WhereStr=WhereStr+" and SohClient in(select ClientCode from sdClient where ClientCancel=0)";
     if(!seSohCodeF->Text.IsEmpty())
        WhereStr=WhereStr+" and SohCode>='"+Trim(seSohCodeF->Text)+"'";
     if(!seSohCodeT->Text.IsEmpty())
        WhereStr=WhereStr+" and SohCode<='"+Trim(seSohCodeT->Text)+"'";
     if(!scSohSaler->Text.IsEmpty())
        WhereStr=WhereStr+" and SohSaler='"+Trim(scSohSaler->ItemData[1])+"'";
     if(!deSohDateF->Text.IsEmpty())
        WhereStr=WhereStr+" and SohDate>='"+FormatDateTime("YYYY-MM-DD",deSohDateF->Date)+"'";
     if(!deSohDateT->Text.IsEmpty())
        WhereStr=WhereStr+" and SohDate<='"+FormatDateTime("YYYY-MM-DD",deSohDateT->Date)+"'";
     if(!scSohClient->Text.IsEmpty())
        WhereStr=WhereStr+" and SohClient='"+Trim(scSohClient->ItemData[1])+"'";
   return(WhereStr);
}


void __fastcall TfrmSohClose::btnClearClick(TObject *Sender)
{
       ClearControl();
}
//---------------------------------------------------------------------------

void __fastcall TfrmSohClose::btnQueryClick(TObject *Sender)
{
           SohGrid->RowCount=1;
           SodGrid->RowCount=1;
           btnClose->Enabled=false;

  AnsiString WhereStr=GetWhereSQLString();
  GetBill(WhereStr);
}
//---------------------------------------------------------------------------



void __fastcall TfrmSohClose::SohGridClick(TObject *Sender)
{
	if(SohGrid->Row>0)
	{
	 comServer->LocateByKey(WideString(SohGrid->TextMatrix[SohGrid->Row][2]));
	 comServer->Edit();
	 SetHeadValue("SohClose",1);
     comServer->Post();

	 if(HC == 1)
	 {
	  AnsiString State;
		if(SohGrid->TextMatrix[SohGrid->Row][1]=="√")
		{
		   SohGrid->TextMatrix[SohGrid->Row][1]="";
		   State="9";
		}
		else
		{
		   SohGrid->TextMatrix[SohGrid->Row][1]="√";
		   State="8";
		}

		for(int i=0;i<comServer->ItemCount;i++)
		{

		 comServer->LocateItemByIndex(i);
         comServer->DataSet->Update();


         comServer->EditItem();
		 SetDetailValue("SodState",State);
		 comServer->AddToObject();
		}
      comServer->Post();

      }
      FillDetailGridWithData();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmSohClose::btnCloseClick(TObject *Sender)
{
  for(int i=1; i<SohGrid->RowCount;i++)
  {
  comServer->LocateByKey(WideString(SohGrid->TextMatrix[i][2]));
  comServer->Edit();
  SetHeadValue("SohClose",1);
  comServer->Post();
	  if(SohGrid->TextMatrix[i][1]=="√")  //结单头
	  {
		try
		{
		   comServer->Edit();
		   comServer->Close(1);
		}
		catch(Exception &e)
		{
		 throw Exception(e.Message);
		}
	  }
	  else
	  {
		for(int i=0;i<comServer->ItemCount;i++)
		{
			comServer->LocateItemByIndex(i);
		   if(GetDetailValue("SodState")=="8")   //结明细项
		   {
			  try
			  {
				comServer->Edit();
				comServer->Close(3);
			  }
			  catch(Exception &e)
			  {
			   throw Exception(e.Message);
			  }
		   }	// end if.
		} // end for
	  }// end if.
  }
  comServer->Post();
  ClearControl();
  btnQueryClick(Sender);
}
//---------------------------------------------------------------------------


void __fastcall TfrmSohClose::BitBtn4Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohClose::SodGridClick(TObject *Sender)
{
  if((SodGrid->TextMatrix[SodGrid->Row][1]!="*")&&(DC == 1)&&(SodGrid->Row>0))
  {
	   comServer->LocateByKey(WideString(SodGrid->TextMatrix[SodGrid->Row][2]));
	   comServer->Edit();
	   SetHeadValue("SohClose",1);
       comServer->Post();
		
		if(SodGrid->TextMatrix[SodGrid->Row][1]=="√")
		{
		   SodGrid->TextMatrix[SodGrid->Row][1]="";
		   SohGrid->TextMatrix[SohGrid->Row][1]="";
	       comServer->EditItem();
		   SetDetailValue("SodState","9");
		}
		else
		{
		   SodGrid->TextMatrix[SodGrid->Row][1]="√";
	        comServer->EditItem();
		   SetDetailValue("SodState","8");
		}
	   comServer->AddToObject();
       comServer->Post();
	  //假设已全部结清明细;
	  SohGrid->TextMatrix[SohGrid->Row][1]="√";
	  for(int i=0;i<comServer->ItemCount;i++)
	  {
		comServer->LocateItemByIndex(i);
		if((GetDetailValue("SodClose")=="0")&&(GetDetailValue("SodState")!="8"))
		{
			//明细没有全部结清，则单头不能结清;
			SohGrid->TextMatrix[SohGrid->Row][1]="";
		}
	  }
	}
}
//---------------------------------------------------------------------------

void __fastcall TfrmSohClose::SodGridMouseMove(TObject *Sender,
	  TShiftState Shift, int X, int Y)
{
   int Column,Row;
   SodGrid->MouseToCell(X,Y,Column,Row);
   DC = Column;
   if(Column==1&&Row>0)
	  SodGrid->Cursor=crHandPoint;
   else
      SodGrid->Cursor=crDefault;

}
//---------------------------------------------------------------------------


void __fastcall TfrmSohClose::SohGridMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
   int Column,Row;
   SohGrid->MouseToCell(X,Y,Column,Row);
   HC = Column;
   if(Column==1&&Row>0)
      SohGrid->Cursor=crHandPoint;
   else
      SohGrid->Cursor=crDefault;
}
//---------------------------------------------------------------------------