fwfyjs.cpp

售后服务系统优质的售后服务是企业生存和市场竞争的保障

                if(Application->MessageBox("相关服务部位是否登记完毕?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                        Abort();
        }

        FwJsForm->ADOQueryfwjs->FieldByName("zxrq")->Value = DateTimePicker1->DateTime;
        FwJsForm->ADOQueryfwjs->FieldByName("endrq")->Value = DateTimePicker3->DateTime;
        FwJsForm->ADOQueryfwjs->FieldByName("zxqk")->AsString = DBLookupComboBox1->Text;
        FwJsForm->ADOQueryfwjs->Post();

        FwJsForm->ADOQueryfwsl->Edit();
        FwJsForm->ADOQueryfwsl->FieldByName("gmrq")->AsString = DateTimePicker2->DateTime.DateString();
        FwJsForm->ADOQueryfwsl->FieldByName("csbh")->AsString = Edit1->Text;
        FwJsForm->ADOQueryfwsl->FieldByName("pzmc")->AsString = Edit2->Text;
        FwJsForm->ADOQueryfwsl->FieldByName("jsflag")->AsString ="是";
        FwJsForm->ADOQueryfwsl->FieldByName("jsrq")->Value = Date();
        FwJsForm->ADOQueryfwsl->Post();
        Application->MessageBox("结算完成","提示",MB_OK + MB_ICONASTERISK );
        Close();
}
//---------------------------------------------------------------------------

void __fastcall TFwFyJsForm::Button3Click(TObject *Sender)
{
        if ( Application->MessageBox("是否放弃结算？已登记的资料将被清除","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        FwJsForm->PjToKc();
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("delete from slwxbwfy where dabh='"+FwJsForm->ADOQueryfwsl->FieldByName("dabh")->AsString+"'");
        ADOQuerytmp->ExecSQL();
        ADOQuerytmp->Close();
        FwJsForm->ADOQueryfwjs->Cancel();
        Close();
}
//---------------------------------------------------------------------------


void __fastcall TFwFyJsForm::DBEdit5Change(TObject *Sender)
{
        double je;
        if( FwJsForm->ADOQueryfwjs->State != dsInsert )
                return;
        if( DBEdit5->Text.Trim()== "")
                je = 0;
        else
                je =  DBEdit5->Text.ToDouble();
        FwJsForm->ADOQueryfwjs->FieldByName("sskhfy")->AsFloat = je + FwJsForm->ADOQueryfwjs->FieldByName("sspjfy")->AsFloat + FwJsForm->ADOQueryfwjs->FieldByName("ssqtfy")->AsFloat;
}
//---------------------------------------------------------------------------

void __fastcall TFwFyJsForm::DBEdit6Change(TObject *Sender)
{
        double je;
        if( FwJsForm->ADOQueryfwjs->State != dsInsert )
                return;
        if( DBEdit6->Text.Trim()== "")
                je = 0;
        else
                je =  DBEdit6->Text.ToDouble();
        FwJsForm->ADOQueryfwjs->FieldByName("sskhfy")->AsFloat = FwJsForm->ADOQueryfwjs->FieldByName("ssfwfy")->AsFloat + je + FwJsForm->ADOQueryfwjs->FieldByName("ssqtfy")->AsFloat;

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

void __fastcall TFwFyJsForm::DBEdit7Change(TObject *Sender)
{
        double je;
        if( FwJsForm->ADOQueryfwjs->State != dsInsert )
                return;
        if( DBEdit7->Text.Trim()== "")
                je = 0;
        else
                je =  DBEdit7->Text.ToDouble();
        FwJsForm->ADOQueryfwjs->FieldByName("sskhfy")->AsFloat = FwJsForm->ADOQueryfwjs->FieldByName("ssfwfy")->AsFloat + FwJsForm->ADOQueryfwjs->FieldByName("sspjfy")->AsFloat + je;
}
//---------------------------------------------------------------------------

void __fastcall TFwFyJsForm::Button1Click(TObject *Sender)
{
        TGetPjForm *GetPjForm;
        MainForm->bxje = MainForm->zfje = MainForm->fwsje = MainForm->fwpjcb = 0;
        if( IsGysJs == "是")
                MainForm->jsflag = true;
        else
                MainForm->jsflag = false;
        try
        {
                GetPjForm = new TGetPjForm(Application);
                GetPjForm->ShowModal();
                FwJsForm->ADOQueryfwjs->FieldByName("mfpjfy")->AsFloat = MainForm->bxje;
                FwJsForm->ADOQueryfwjs->FieldByName("mfpjfwsfy")->AsFloat = MainForm->fwsje;
                FwJsForm->ADOQueryfwjs->FieldByName("zfpjfy")->AsFloat = MainForm->zfje;
                FwJsForm->ADOQueryfwjs->FieldByName("fwpjcb")->AsFloat = MainForm->fwpjcb;
                FwJsForm->ADOQueryfwjs->FieldByName("sspjfy")->AsFloat = MainForm->zfje;
                FwJsForm->ADOQueryfwjs->FieldByName("sskhfy")->AsFloat = FwJsForm->ADOQueryfwjs->FieldByName("ssfwfy")->AsFloat + FwJsForm->ADOQueryfwjs->FieldByName("sspjfy")->AsFloat + FwJsForm->ADOQueryfwjs->FieldByName("ssqtfy")->AsFloat;
                delete GetPjForm;
        }
        catch(...)
        {
                delete GetPjForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------

void __fastcall TFwFyJsForm::Button9Click(TObject *Sender)
{
        TWxBwDjForm *WxBwDjForm;
        try
        {
                MainForm->bxje = MainForm->zfje = MainForm->fwsje = 0;
                if( IsGysJs == "是")
                        MainForm->jsflag = true;                      //供应商结算标志
                else
                        MainForm->jsflag = false;
                WxBwDjForm = new TWxBwDjForm(Application);
                WxBwDjForm->ShowModal();
                FwJsForm->ADOQueryfwjs->FieldByName("mffwfy")->AsFloat = MainForm->bxje;
                FwJsForm->ADOQueryfwjs->FieldByName("zffwfy")->AsFloat = MainForm->zfje;
                rydj =  MainForm->fwsje;
                if(CheckBox1->Checked == true)
                        FwJsForm->ADOQueryfwjs->FieldByName("yfryfy")->AsFloat = rydj;
                else
                        FwJsForm->ADOQueryfwjs->FieldByName("yfryfy")->AsFloat = 0;
                FwJsForm->ADOQueryfwjs->FieldByName("ssfwfy")->AsFloat =  FwJsForm->ADOQueryfwjs->FieldByName("zffwfy")->AsFloat;
                FwJsForm->ADOQueryfwjs->FieldByName("sskhfy")->AsFloat = FwJsForm->ADOQueryfwjs->FieldByName("ssfwfy")->AsFloat + FwJsForm->ADOQueryfwjs->FieldByName("sspjfy")->AsFloat + FwJsForm->ADOQueryfwjs->FieldByName("ssqtfy")->AsFloat;
                delete WxBwDjForm;
        }
        catch(...)
        {
                delete WxBwDjForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------


void __fastcall TFwFyJsForm::CheckBox1Click(TObject *Sender)
{
        if(CheckBox1->Checked == true)
                FwJsForm->ADOQueryfwjs->FieldByName("iszfryfwfy")->AsString = "是";
        else
                FwJsForm->ADOQueryfwjs->FieldByName("iszfryfwfy")->AsString = "否";

        if( FwJsForm->ADOQueryfwjs->FieldByName("iszfryfwfy")->AsString == "是" )
                FwJsForm->ADOQueryfwjs->FieldByName("yfryfy")->AsFloat = rydj;
        else
                FwJsForm->ADOQueryfwjs->FieldByName("yfryfy")->AsFloat = 0;
}
//---------------------------------------------------------------------------

void __fastcall TFwFyJsForm::CheckBox2Click(TObject *Sender)
{
        if( CheckBox2->Checked == true )
                FwJsForm->ADOQueryfwjs->FieldByName("iszfrywgfy")->AsString = "是";
        else
                FwJsForm->ADOQueryfwjs->FieldByName("iszfrywgfy")->AsString = "否";

        if( FwJsForm->ADOQueryfwjs->FieldByName("iszfrywgfy")->AsString == "是")       //人员误工费
                FwJsForm->ADOQueryfwjs->FieldByName("yfrywgfy")->AsFloat = FwJsForm->ADOQueryfwsl->FieldByName("yfwgf")->AsFloat;
        else
                FwJsForm->ADOQueryfwjs->FieldByName("yfrywgfy")->AsFloat = 0;

        if(FwJsForm->ADOQueryfwsl->FieldByName("zxsflx")->AsString == "商场保修" || FwJsForm->ADOQueryfwsl->FieldByName("zxsflx")->AsString == "外购保修" )
                FwJsForm->ADOQueryfwjs->FieldByName("ysqtfy")->AsFloat = 0;
        else
                FwJsForm->ADOQueryfwjs->FieldByName("ysqtfy")->AsFloat = FwJsForm->ADOQueryfwjs->FieldByName("yfrywgfy")->AsFloat +FwJsForm->ADOQueryfwjs->FieldByName("yfryjtfy")->AsFloat;
        FwJsForm->ADOQueryfwjs->FieldByName("ssqtfy")->AsFloat = FwJsForm->ADOQueryfwjs->FieldByName("ysqtfy")->AsFloat;
        FwJsForm->ADOQueryfwjs->FieldByName("sskhfy")->AsFloat = FwJsForm->ADOQueryfwjs->FieldByName("ssfwfy")->AsFloat + FwJsForm->ADOQueryfwjs->FieldByName("sspjfy")->AsFloat + FwJsForm->ADOQueryfwjs->FieldByName("ssqtfy")->AsFloat;

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


void __fastcall TFwFyJsForm::CheckBox3Click(TObject *Sender)
{
        if( CheckBox3->Checked == true )
                FwJsForm->ADOQueryfwjs->FieldByName("iszfryjtfy")->AsString = "是";
        else
                FwJsForm->ADOQueryfwjs->FieldByName("iszfryjtfy")->AsString = "否";

        if( FwJsForm->ADOQueryfwjs->FieldByName("iszfryjtfy")->AsString == "是" )       //人员交通费
                FwJsForm->ADOQueryfwjs->FieldByName("yfryjtfy")->AsFloat = FwJsForm->ADOQueryfwsl->FieldByName("yfjtf")->AsFloat;
        else
                FwJsForm->ADOQueryfwjs->FieldByName("yfryjtfy")->AsFloat = 0;

        if(FwJsForm->ADOQueryfwsl->FieldByName("zxsflx")->AsString == "商场保修" || FwJsForm->ADOQueryfwsl->FieldByName("zxsflx")->AsString == "外购保修" )
                FwJsForm->ADOQueryfwjs->FieldByName("ysqtfy")->AsFloat = 0;
        else
                FwJsForm->ADOQueryfwjs->FieldByName("ysqtfy")->AsFloat = FwJsForm->ADOQueryfwjs->FieldByName("yfrywgfy")->AsFloat +FwJsForm->ADOQueryfwjs->FieldByName("yfryjtfy")->AsFloat;
        FwJsForm->ADOQueryfwjs->FieldByName("ssqtfy")->AsFloat = FwJsForm->ADOQueryfwjs->FieldByName("ysqtfy")->AsFloat;
        FwJsForm->ADOQueryfwjs->FieldByName("sskhfy")->AsFloat = FwJsForm->ADOQueryfwjs->FieldByName("ssfwfy")->AsFloat + FwJsForm->ADOQueryfwjs->FieldByName("sspjfy")->AsFloat + FwJsForm->ADOQueryfwjs->FieldByName("ssqtfy")->AsFloat;

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