srewd.cpp

速达开源ERP系统

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

TfrmSrewd  *frmSrewd;
//--------------------------------------------------------------------------
__fastcall TfrmSrewd::TfrmSrewd(TComponent* Owner)
        : TStdBaseForm(Owner)
{
  InitControlGroup();
}
//--------------------------------------------------------------------------

void __fastcall TfrmSrewd::btnOKClick(TObject *Sender)
{
  double FVal,FPrice,FQty,FAmt;
  int ErrNum;
  try
  {
    StartWaitForm("正在生成返修单,请稍候...");
    if(sgSrewd->RowCount>1)
    {
       int j;
       j=comServer->ItemCount-1;
       if(j>=0)
       {
          comServer->LocateItemByIndex(j);
          j=StrToInt(frmSrewh->GetDetailValue(fiSrewdLine));
          j=j+1;
       }
       else
          j=1;
       for(int i=1;i<sgSrewd->RowCount;i++)
       {
           if(sgSrewd->Cells[1][i]=="√")
           {
               comServer->AddItem();
               SetDetailValue(fiSrewdCode,frmSrewh->seSrewhCode->Text);
               SetDetailValue(fiSrewdLine,AnsiString(j));
               SetDetailValue(fiSrewdSretCode,seSrewdSretCode->Text);
               SetDetailValue(fiSrewdSretdLine, sgSrewd->Cells[2][i]);
               SetDetailValue(fiSrewdGoods, sgSrewd->Cells[3][i]);
               SetDetailValue(fiSrewdUnit, sgSrewd->Cells[4][i]);
               SetDetailValue(fiSrewdConv, sgSrewd->Cells[5][i]);
               SetDetailValue(fiSrewdQty, sgSrewd->Cells[7][i]);
               SetDetailValue(fiSrewdPrice, sgSrewd->Cells[8][i]);
               FQty=sgSrewd->Cells[7][i].ToDouble();
               FPrice=sgSrewd->Cells[8][i].ToDouble();
               FVal=(FQty*FPrice);
               FAmt=DataCarry(FVal,2,0);
               SetDetailValue(fiSrewdAmt,AnsiString(FAmt));
               SetDetailValue(fiSrewdLoc, sgSrewd->Cells[9][i]);
               SetDetailValue(fiSrewdBatch, sgSrewd->Cells[10][i]);
               SetDetailValue(fiSrewdState, "1");
               try{
                   comServer->AddToObject();
                 }
                catch(Exception &e)
                  {
                   comServer->Cancel();
                   this->ModalResult=0;
                   throw Exception(e.Message);
                 }
               j=j+1;
           }
       }
    }
  }
  __finally
  {
    EndWaitForm();
  }
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewd::btnCancelClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewd::InitControlGroup()
{
    sgSrewd->RowCount = 1;
    seSrewdSretCode->Text="";
    seSrewhClient->Text=frmSrewh->seSrewhClient->Text;
    seSrewhClient->Enabled=false;
    FSrewhClient=frmSrewh->seSrewhClient->ItemData[cbItem2];
    seSrewhCurrency->Text=frmSrewh->seSrewhCurrency->Text;
    seSrewhCurrency->Enabled=false;
    FSrewhCurrency=frmSrewh->seSrewhCurrency->ItemData[cbItem2];
    seSrewhRate->Text=frmSrewh->seSrewhEnrate->Text;
}
//---------------------------------------------------------------------------

void __fastcall TfrmSrewd::FillGridWithData()
{

    AnsiString  ItemStr,s_SQL;
    s_SQL=AnsiString(" Select SretdLine,sretdGoods,sretdUnit,SretdConv,SretdQty=SretdQty-SretdFQty,")
         +AnsiString(" SretdLoc,SretdBatch,SretdPrice from sdSretd where SretdCode='"+seSrewdSretCode->Text+"'")
         +AnsiString(" and SretdClose = 0 and SretdQty-SretdfQty>0 order by Sretdline");

    sgSrewd->RowCount=1;
    TComResultSet *RsSretd;
    try
    {
      StartWaitForm("正在查询数据,请稍候......");
      RsSretd=NewResultSet();
      RsSretd->Open(WideString(s_SQL),WideString(""));
      sgSrewd->RowCount=1;
      while( RsSretd->Eof == 0)
      {
        ItemStr="\t"+AnsiString("√") +
                 "\t"+RsSretd->FieldByName("SretdLine")+
                 "\t"+RsSretd->FieldByName("SretdGoods")+
                 "\t"+RsSretd->FieldByName("SretdUnit")+
                 "\t"+RsSretd->FieldByName("SretdConv")+
                 "\t"+RsSretd->FieldByName("SretdQty")+
                 "\t"+RsSretd->FieldByName("SretdQty")+
                 "\t"+RsSretd->FieldByName("SretdPrice")+
                 "\t"+RsSretd->FieldByName("SretdLoc")+
                 "\t"+RsSretd->FieldByName("SretdBatch");
        sgSrewd->AddItem(ItemStr);
        RsSretd->MoveNext();
      }
      RsSretd->Close();
      delete RsSretd;
    }
    __finally
    {
      EndWaitForm();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewd::GetComObject(TComServer *comServerPtr)
{
    comServer = comServerPtr;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewd::SetDetailValue(int Index,AnsiString Value)
{
     WriteItemValue(comServer,Index,Value);
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewd::sgSrewdDblClick(TObject *Sender)
{
    AnsiString SqlStr;
    int ARow=sgSrewd->Row;
    if (ARow >0)
    {
      if(sgSrewd->Col==1)
      {
        if (sgSrewd->Cells[1][ARow] == "√")
          sgSrewd->Cells[1][ARow] =  "";
        else
          sgSrewd->Cells[1][ARow] =  "√";
      }
      else if(sgSrewd->Col==9 && sgSrewd->Cells[1][ARow] == "√")
      {
        SqlStr="002[货位代码][货位名称]select loccode,locname from sdLoc,sdlg ";
        SqlStr+=" where lgLoccode=loccode and lggoodscode='"+sgSrewd->Cells[3][ARow]+"' order by loccode";
        TfrmWnQuery *p;
        try
        {
          StartWaitForm("正在查询,请稍候...");
          p=new TfrmWnQuery(this,"货位查询",SqlStr);
        }
        __finally
        {
          EndWaitForm();
        }
        if(p->ShowModal()==mrOk)
        {
          sgSrewd->Cells[9][ARow]=p->ColData[1];
        }
        delete p;
      }
    }
}

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

void __fastcall TfrmSrewd::bbSelAllClick(TObject *Sender)
{
  for(int i=1;i<sgSrewd->RowCount;i++)
    sgSrewd->Cells[1][i] = "√";
}
//---------------------------------------------------------------------------

void __fastcall TfrmSrewd::bbSelNoneClick(TObject *Sender)
{
  for(int i=1;i<sgSrewd->RowCount;i++)
    sgSrewd->Cells[1][i] = "";
}
//---------------------------------------------------------------------------


void __fastcall TfrmSrewd::seSrewdSretCodeButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="005[退货单号][退货日期][币种][税码][业务员]select Srethcode,Srethdate,currencyname,taxname,SrethUser from sdSreth,sdCurrency,sdtax";
  SqlStr+=" where Srethcurrency=currencycode and Srethtaxcode=taxcode and Srethcheck=1 and Srethclose=0 and Srethcancel=0 ";
  SqlStr+=" and SrethClient='"+FSrewhClient+"' and Srethcurrency='"+FSrewhCurrency+"' ";
  SqlStr+=" order by Srethcode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"退货单查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    seSrewdSretCode->Text=p->ColData[1];
    FillGridWithData();
  }
  delete p;
}
//---------------------------------------------------------------------------