squote.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Squote.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "SDGrid"
#pragma link "SDEdit"
#pragma link "DateEdit"
#pragma link "SDComboBox"
#pragma link "fpanel"
#pragma resource "*.dfm"
TfrmSquote *frmSquote;
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmSquote::GetFieldValue(int FieldIndex)
{
    WideString S;
    S   =   ReadFieldValue(comServer,FieldIndex);
    return(S);
}

void __fastcall TfrmSquote::ClearControl(bool BringToNext)
{
    // BringToNext为真时，不清空
    if(BringToNext)
        return;

      seSquoteGoods->Text      ="";
      scSquoteUnit->ItemIndex  =-1;
      seSquoteUser->LocateKey(g_sdUserCode);
      deSquoteSdate->Text      =g_sdCurDate;
      scSquoteSpt->ItemIndex=0;
      deSquoteEdate->Text      =FormatDateTime("YYYY-MM-DD",StrToDate(g_sdCurDate)+365);
      lbSquoteSysDate->Caption ="";
      seSquoteDesc->Text       ="";

    seSquoteQty1->Text          =   "0";
    seSquotePrice1->Text        =   "0";
    seSquoteRebate1->Text       =   "0";
    seSquoteQty2->Text          =   "0";
    seSquotePrice2->Text        =   "0";
    seSquoteRebate2->Text       =   "0";
    seSquoteQty3->Text          =   "0";
    seSquotePrice3->Text        =   "0";
    seSquoteRebate3->Text       =   "0";
    seSquoteQty4->Text          =   "0";
    seSquotePrice4->Text        =   "0";
    seSquoteRebate4->Text       =   "0";
    seSquoteQty5->Text          =   "0";
    seSquotePrice5->Text        =   "0";
    seSquoteRebate5->Text       =   "0";
    seSquoteQty6->Text          =   "0";
    seSquotePrice6->Text        =   "0";
    seSquoteRebate6->Text       =   "0";
    seSquoteQty7->Text          =   "0";
    seSquotePrice7->Text        =   "0";
    seSquoteRebate7->Text       =   "0";
    seSquoteQty8->Text          =   "0";
    seSquotePrice8->Text        =   "0";
    seSquoteRebate8->Text       =   "0";
    seSquoteQty9->Text          =   "0";
    seSquotePrice9->Text        =   "0";
    seSquoteRebate9->Text       =   "0";
    seSquoteQty10->Text         =   "0";
    seSquotePrice10->Text       =   "0";
    seSquoteRebate10->Text      =   "0";
}

void __fastcall TfrmSquote::GetDataFromComObject()
{
     seSquoteGoods->Text      =GetFieldValue(fiSquoteGoods);
     scSquoteUnit->LocateKey(GetFieldValue(fiSquoteUnit));
     seSquoteUser->LocateKey(GetFieldValue(fiSquoteUser));
     deSquoteSdate->Text      =GetFieldValue(fiSquoteSdate);
     deSquoteEdate->Text      =GetFieldValue(fiSquoteEdate);
     scSquoteSpt->LocateKey(GetFieldValue(fiSquoteSpt));
     lbSquoteSysDate->Caption =GetFieldValue(fiSquoteSysDate);
     seSquoteDesc->Text       =GetFieldValue(fiSquoteDesc);

    seSquoteQty1->Text          =   GetFieldValue(fiSquoteQty1);
    seSquotePrice1->Text        =   GetFieldValue(fiSquotePrice1);
    seSquoteRebate1->Text       =   GetFieldValue(fiSquoteRebate1);
    seSquoteQty2->Text          =   GetFieldValue(fiSquoteQty2);
    seSquotePrice2->Text        =   GetFieldValue(fiSquotePrice2);
    seSquoteRebate2->Text       =   GetFieldValue(fiSquoteRebate2);
    seSquoteQty3->Text          =   GetFieldValue(fiSquoteQty3);
    seSquotePrice3->Text        =   GetFieldValue(fiSquotePrice3);
    seSquoteRebate3->Text       =   GetFieldValue(fiSquoteRebate3);
    seSquoteQty4->Text          =   GetFieldValue(fiSquoteQty4);
    seSquotePrice4->Text        =   GetFieldValue(fiSquotePrice4);
    seSquoteRebate4->Text       =   GetFieldValue(fiSquoteRebate4);
    seSquoteQty5->Text          =   GetFieldValue(fiSquoteQty5);
    seSquotePrice5->Text        =   GetFieldValue(fiSquotePrice5);
    seSquoteRebate5->Text       =   GetFieldValue(fiSquoteRebate5);
    seSquoteQty6->Text          =   GetFieldValue(fiSquoteQty6);
    seSquotePrice6->Text        =   GetFieldValue(fiSquotePrice6);
    seSquoteRebate6->Text       =   GetFieldValue(fiSquoteRebate6);
    seSquoteQty7->Text          =   GetFieldValue(fiSquoteQty7);
    seSquotePrice7->Text        =   GetFieldValue(fiSquotePrice7);
    seSquoteRebate7->Text       =   GetFieldValue(fiSquoteRebate7);
    seSquoteQty8->Text          =   GetFieldValue(fiSquoteQty8);
    seSquotePrice8->Text        =   GetFieldValue(fiSquotePrice8);
    seSquoteRebate8->Text       =   GetFieldValue(fiSquoteRebate8);
    seSquoteQty9->Text          =   GetFieldValue(fiSquoteQty9);
    seSquotePrice9->Text        =   GetFieldValue(fiSquotePrice9);
    seSquoteRebate9->Text       =   GetFieldValue(fiSquoteRebate9);
    seSquoteQty10->Text         =   GetFieldValue(fiSquoteQty10);
    seSquotePrice10->Text       =   GetFieldValue(fiSquotePrice10);
    seSquoteRebate10->Text      =   GetFieldValue(fiSquoteRebate10);
    sgSquote->LocateGrid(1,seSquoteGoods->Text);

}

void __fastcall TfrmSquote::SendDataToComObject()
{
    AnsiString s;

     WriteFieldValue(comServer,fiSquoteClient,cbSquoteClientCode->ItemData[cbItem2]);
     WriteFieldValue(comServer,fiSquoteCurrency, scSquoteCurrency->ItemData[cbItem2]);
     WriteFieldValue(comServer,fiSquoteGoods,     seSquoteGoods->Text       );
     WriteFieldValue(comServer,fiSquoteUnit,      scSquoteUnit->ItemData[cbItem2]);
     WriteFieldValue(comServer,fiSquoteUser,      g_sdUserCode/*scSquoteUser->Text*/  );
     WriteFieldValue(comServer,fiSquoteSdate,     deSquoteSdate->Text);
     WriteFieldValue(comServer,fiSquoteEdate,     deSquoteEdate->Text);
     WriteFieldValue(comServer,fiSquoteDesc,      seSquoteDesc->Text);
     WriteFieldValue(comServer,fiSquoteSpt,      scSquoteSpt->ItemData[cbItem2]);
     WriteFieldValue(comServer,fiSquoteQty1,WideString(seSquoteQty1->Text));
    WriteFieldValue(comServer,fiSquotePrice1,WideString(seSquotePrice1->Text));
    WriteFieldValue(comServer,fiSquoteRebate1,WideString(seSquoteRebate1->Text));
    WriteFieldValue(comServer,fiSquoteQty2,WideString(seSquoteQty2->Text));
    if(seSquoteQty2->Text=="0"||seSquoteQty2->Text.IsEmpty())
      {
      seSquotePrice2->Text="0";
      seSquoteRebate2->Text="0";
      }
    WriteFieldValue(comServer,fiSquotePrice2,WideString(seSquotePrice2->Text));
    WriteFieldValue(comServer,fiSquoteRebate2,WideString(seSquoteRebate2->Text));
    WriteFieldValue(comServer,fiSquoteQty3,WideString(seSquoteQty3->Text));
    if(seSquoteQty3->Text=="0"||seSquoteQty3->Text.IsEmpty())
      {
      seSquotePrice3->Text="0";
      seSquoteRebate3->Text="0";
      }
    WriteFieldValue(comServer,fiSquotePrice3,WideString(seSquotePrice3->Text));
    WriteFieldValue(comServer,fiSquoteRebate3,WideString(seSquoteRebate3->Text));
    WriteFieldValue(comServer,fiSquoteQty4,WideString(seSquoteQty4->Text));
    if(seSquoteQty4->Text=="0"||seSquoteQty4->Text.IsEmpty())
      {
      seSquotePrice4->Text="0";
      seSquoteRebate4->Text="0";
      }
    WriteFieldValue(comServer,fiSquotePrice4,WideString(seSquotePrice4->Text));
    WriteFieldValue(comServer,fiSquoteRebate4,WideString(seSquoteRebate4->Text));
    WriteFieldValue(comServer,fiSquoteQty5,WideString(seSquoteQty5->Text));
    if(seSquoteQty5->Text=="0"||seSquoteQty5->Text.IsEmpty())
      {
      seSquotePrice5->Text="0";
      seSquoteRebate5->Text="0";
      }
    WriteFieldValue(comServer,fiSquotePrice5,WideString(seSquotePrice5->Text));
    WriteFieldValue(comServer,fiSquoteRebate5,WideString(seSquoteRebate5->Text));
    WriteFieldValue(comServer,fiSquoteQty6,WideString(seSquoteQty6->Text));
    if(seSquoteQty6->Text=="0"||seSquoteQty6->Text.IsEmpty())
      {
      seSquotePrice6->Text="0";
      seSquoteRebate6->Text="0";
      }
    WriteFieldValue(comServer,fiSquotePrice6,WideString(seSquotePrice6->Text));
    WriteFieldValue(comServer,fiSquoteRebate6,WideString(seSquoteRebate6->Text));
    WriteFieldValue(comServer,fiSquoteQty7,WideString(seSquoteQty7->Text));
    if(seSquoteQty7->Text=="0"||seSquoteQty7->Text.IsEmpty())
      {
      seSquotePrice7->Text="0";
      seSquoteRebate7->Text="0";
      }
    WriteFieldValue(comServer,fiSquotePrice7,WideString(seSquotePrice7->Text));
    WriteFieldValue(comServer,fiSquoteRebate7,WideString(seSquoteRebate7->Text));
    WriteFieldValue(comServer,fiSquoteQty8,WideString(seSquoteQty8->Text));
    if(seSquoteQty8->Text=="0"||seSquoteQty8->Text.IsEmpty())
      {
      seSquotePrice8->Text="0";
      seSquoteRebate8->Text="0";
      }
    WriteFieldValue(comServer,fiSquotePrice8,WideString(seSquotePrice8->Text));
    WriteFieldValue(comServer,fiSquoteRebate8,WideString(seSquoteRebate8->Text));
    WriteFieldValue(comServer,fiSquoteQty9,WideString(seSquoteQty9->Text));
    if(seSquoteQty9->Text=="0"||seSquoteQty9->Text.IsEmpty())
      {
      seSquotePrice9->Text="0";
      seSquoteRebate9->Text="0";
      }