pzhhc.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#include "PzhHc.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "StdBaseForm"
#pragma resource "*.dfm"
TfrmPzhHc *frmPzhHc;
//---------------------------------------------------------------------------
__fastcall TfrmPzhHc::TfrmPzhHc(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
   : TStdBaseForm(Owner,chWnd,MidCode,WhereStr)
{
   HasReded=0;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPzhHc::FormShow(TObject *Sender)
{
   InitliazeComboBox();
   sePzhCodeO->Text="";
   scPzhFvct->ItemIndex=-1;
   scPzhFmonth->ItemIndex=-1;
   dePzhDate->Text="";
   sePzhCodeH->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPzhHc::InitliazeComboBox()
{
   FillComboBox(Handle,scPzhFvct,"select FvctName=FvctCode+space(1)+FvctName,FvctCode from sdFvct order by FvctCode",
                "FvctName","FvctCode");
   FillComboBox(Handle,scPzhFmonth,"select FcMonth from sdFc order by FcMonth","FcMonth");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPzhHc::btCloseClick(TObject *Sender)
{
   HasReded=-1;
   Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmPzhHc::btOKClick(TObject *Sender)
{
   AnsiString  OldPzCode;
   AnsiString  HcPzCode;

   OldPzCode = Trim(sePzhCodeO->Text);
   HcPzCode = Trim(sePzhCodeH->Text);

   if(OldPzCode.IsEmpty())
     throw Exception("凭证红冲的原始凭证编号不能为空");
   if(HcPzCode.IsEmpty())
     throw Exception("凭证红冲的红冲凭证编号不能为空");

   TComResultSet *RsPzhHc;
   RsPzhHc=new  TComResultSet(Handle,g_ClientHandle);
   RsPzhHc->Execute("Exec sdPzh_Red '"+OldPzCode+"','"+HcPzCode+"'");
   RsPzhHc->Close();
   delete RsPzhHc;
   HasReded=1;
   RedPzhCode=HcPzCode;
   Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmPzhHc::sePzhCodeOExit(TObject *Sender)
{
   AnsiString tPzhCodeO;
   tPzhCodeO=Trim(sePzhCodeO->Text);
   if(!tPzhCodeO.IsEmpty())
   {
     TComResultSet *RsPzh;
     RsPzh=new  TComResultSet(Handle,g_ClientHandle);
     RsPzh->Open("select * from sdPzh where PzhCode='"+tPzhCodeO+"' order by PzhCode","");
     RsPzh->MoveFirst();
     if(!RsPzh->Eof)
     {
       scPzhFvct->LocateKey(RsPzh->FieldByName("PzhFvct"));
       scPzhFmonth->LocateKey(RsPzh->FieldByName("PzhFmonth"));
       dePzhDate->Text=RsPzh->FieldByName("PzhDate");
     }
     else
     {
       RsPzh->Close();
       delete RsPzh;
       throw Exception("原始凭证编号:'"+tPzhCodeO+"'不存在");
     }
     RsPzh->Close();
     delete RsPzh;
   }
}
//---------------------------------------------------------------------------