📄 fwfyjs.cpp

📁 售后服务系统优质的售后服务是企业生存和市场竞争的保障
💻 CPP
📖 第 1 页 / 共 2 页
字号:
12 下一页
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "FwJscl.h"
#include "FwFyJs.h"
#include "GetWxPj.h"
#include "WxBwDj.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFwFyJsForm *FwFyJsForm;
//---------------------------------------------------------------------------
__fastcall TFwFyJsForm::TFwFyJsForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFwFyJsForm::FormCreate(TObject *Sender)
{
        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->Insert();
        FwJsForm->ADOQueryfwjs->FieldByName("dabh")->AsString = FwJsForm->ADOQueryfwsl->FieldByName("dabh")->AsString;
        FwJsForm->ADOQueryfwjs->FieldByName("jslx")->AsString = FwJsForm->ADOQueryfwsl->FieldByName("zxfwlx")->AsString;
        FwJsForm->ADOQueryfwjs->FieldByName("zxrybh")->AsString = FwJsForm->ADOQueryfwsl->FieldByName("zxrybh")->AsString;
        FwJsForm->ADOQueryfwjs->FieldByName("zxrm")->AsString = FwJsForm->ADOQueryfwsl->FieldByName("zxrm")->AsString;
        FwJsForm->ADOQueryfwjs->FieldByName("iszfrywgfy")->AsString = "是";       //人员误工费
        FwJsForm->ADOQueryfwjs->FieldByName("iszfryjtfy")->AsString = "是";       //人员交通费
        FwJsForm->ADOQueryfwjs->FieldByName("iszfryfwfy")->AsString = "是";      //人员服务费
        FwJsForm->ADOQueryfwjs->FieldByName("zxfwyj")->AsString = "满意";
        FwJsForm->ADOQueryfwjs->FieldByName("zxrq")->Value = Date();
        FwJsForm->ADOQueryfwjs->FieldByName("endrq")->Value = Date();
        FwJsForm->ADOQueryfwjs->FieldByName("jsrybh")->AsString = MainForm->MyLoginBh;
        FwJsForm->ADOQueryfwjs->FieldByName("jsrm")->AsString = MainForm->MyLoginName;
        FwJsForm->ADOQueryfwjs->FieldByName("gysfyflag")->AsString = FwJsForm->ADOQueryfwsl->FieldByName("isgysjs")->AsString;

        MainForm->MyDaBh = FwJsForm->ADOQueryfwsl->FieldByName("dabh")->AsString;
        MainForm->MyGsFl = FwJsForm->ADOQueryfwsl->FieldByName("flbh")->AsString;
        MainForm->MyGsPp = FwJsForm->ADOQueryfwsl->FieldByName("ppbh")->AsString;
        MainForm->MyGsGg = FwJsForm->ADOQueryfwsl->FieldByName("ggbh")->AsString;
        MainForm->MyKhBh = FwJsForm->ADOQueryfwsl->FieldByName("khbh")->AsString;
        MainForm->MyPjBh = FwJsForm->ADOQueryfwsl->FieldByName("zxrybh")->AsString;
        MainForm->MyGsPz = FwJsForm->ADOQueryfwsl->FieldByName("flmc")->AsString;
        MainForm->MyCllx = FwJsForm->ADOQueryfwsl->FieldByName("zxfwlx")->AsString;
        MainForm->MySflx = FwJsForm->ADOQueryfwsl->FieldByName("zxsflx")->AsString;
        MainForm->MyFwFs = FwJsForm->ADOQueryfwsl->FieldByName("fwfs")->AsString;   //服务方式

        ADOQueryggxx->Close();
        ADOQueryggxx->Parameters->ParamByName("P_flbh")->Value = FwJsForm->ADOQueryfwsl->FieldByName("flbh")->AsString;
        ADOQueryggxx->Parameters->ParamByName("P_ppbh")->Value = FwJsForm->ADOQueryfwsl->FieldByName("ppbh")->AsString;
        ADOQueryggxx->Parameters->ParamByName("P_ggbh")->Value = FwJsForm->ADOQueryfwsl->FieldByName("ggbh")->AsString;
        ADOQueryggxx->Open();
        if( ADOQueryggxx->RecordCount != 1) {
                Application->MessageBox("无法定位规格信息","错误",MB_OK+MB_ICONERROR);
                FwJsForm->ADOQueryfwjs->Cancel();
                Close();
                return;
        }
        
        DateTimePicker1->DateTime = Date();
        DateTimePicker3->DateTime = Date();
        if( FwJsForm->ADOQueryfwsl->FieldByName("gmrq")->AsString == "不详")
                DateTimePicker2->DateTime = Date();
        else
                DateTimePicker2->DateTime = FwJsForm->ADOQueryfwsl->FieldByName("gmrq")->AsDateTime;
        Edit1->Text = FwJsForm->ADOQueryfwsl->FieldByName("csbh")->AsString;
        Edit2->Text = FwJsForm->ADOQueryfwsl->FieldByName("pzmc")->AsString;
        ADOQueryfwqkxx->Open();

        IsGysJs = ADOQueryggxx->FieldByName("fwfyflag")->AsString;
        gyswgf = gysjtf = 0;                                       //确定供应商误工费、交通费单价
        ADOQuerytmp->Close();
        if(IsGysJs == "是" ) {
                ADOQuerytmp->SQL->Clear();
                ADOQuerytmp->SQL->Add("select * from gysqtfyxx  where flbh=:P_flbh and ppbh=:P_ppbh and ggbh=:P_ggbh");
                ADOQuerytmp->Parameters->ParamByName("P_flbh")->Value = FwJsForm->ADOQueryfwsl->FieldByName("flbh")->AsString;
                ADOQuerytmp->Parameters->ParamByName("P_ppbh")->Value = FwJsForm->ADOQueryfwsl->FieldByName("ppbh")->AsString;
                ADOQuerytmp->Parameters->ParamByName("P_ggbh")->Value = FwJsForm->ADOQueryfwsl->FieldByName("ggbh")->AsString;
                ADOQuerytmp->Open();
                ADOQuerytmp->First();
                while( !ADOQuerytmp->Eof ) {
                        if( FwJsForm->ADOQueryfwsl->FieldByName("qylc")->AsInteger >= ADOQuerytmp->FieldByName("start")->AsInteger && FwJsForm->ADOQueryfwsl->FieldByName("qylc")->AsInteger <= ADOQuerytmp->FieldByName("end")->AsInteger ) {
                                gyswgf =  ADOQuerytmp->FieldByName("wgf")->AsFloat;
                                gysjtf =  ADOQuerytmp->FieldByName("jtf")->AsFloat;
                                break;
                        }
                        ADOQuerytmp->Next();
                }
        }
        ADOQuerytmp->Close();

        if( FwJsForm->ADOQueryfwjs->FieldByName("iszfryfwfy")->AsString == "是")
                CheckBox1->Checked = true;
        else
                CheckBox1->Checked = false;

        if( FwJsForm->ADOQueryfwjs->FieldByName("iszfrywgfy")->AsString == "是")
                CheckBox2->Checked = true;
        else
                CheckBox2->Checked = false;

        if( FwJsForm->ADOQueryfwjs->FieldByName("iszfryjtfy")->AsString == "是")
                CheckBox3->Checked = true;
        else
                CheckBox3->Checked = false;
        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->ADOQueryfwjs->FieldByName("iszfryjtfy")->AsString =="是")    //确定人员交通费
                FwJsForm->ADOQueryfwjs->FieldByName("yfryjtfy")->AsFloat = FwJsForm->ADOQueryfwsl->FieldByName("yfjtf")->AsFloat;
        else
                FwJsForm->ADOQueryfwjs->FieldByName("yfryjtfy")->AsFloat = 0;

        bxfwdj = zffwdj = rydj = 0;                                             //确定服务单价
        if( FwJsForm->ADOQueryfwsl->FieldByName("zxfwlx")->AsString == "安装") {
                bxfwdj = ADOQueryggxx->FieldByName("anzdj")->AsFloat;
                zffwdj = ADOQueryggxx->FieldByName("zfanzdj")->AsFloat;
                rydj =   ADOQueryggxx->FieldByName("ryanzdj")->AsFloat;
        }
        if( FwJsForm->ADOQueryfwsl->FieldByName("zxfwlx")->AsString == "维修") {
                if( FwJsForm->ADOQueryfwsl->FieldByName("fwfs")->AsString == "工场")
                        bxfwdj = ADOQueryggxx->FieldByName("wxdj")->AsFloat;
                else
                        bxfwdj = ADOQueryggxx->FieldByName("smwxdj")->AsFloat;
                zffwdj = ADOQueryggxx->FieldByName("zfwxdj")->AsFloat;
                rydj =   ADOQueryggxx->FieldByName("rywxdj")->AsFloat;
        }
        if( FwJsForm->ADOQueryfwsl->FieldByName("zxfwlx")->AsString == "调试") {
                bxfwdj = ADOQueryggxx->FieldByName("tsdj")->AsFloat;
                zffwdj = ADOQueryggxx->FieldByName("zftsdj")->AsFloat;
                rydj =   ADOQueryggxx->FieldByName("rytsdj")->AsFloat;
        }

        if( FwJsForm->ADOQueryfwsl->FieldByName("jsfs")->AsString == "计件" || ( FwJsForm->ADOQueryfwsl->FieldByName("jsfs")->AsString == "部位" && FwJsForm->ADOQueryfwsl->FieldByName("zxfwlx")->AsString != "维修" )) {     //确定服务费
                if( FwJsForm->ADOQueryfwsl->FieldByName("zxsflx")->AsString =="商场保修" || FwJsForm->ADOQueryfwsl->FieldByName("zxsflx")->AsString =="外购保修" ) {
                        if( IsGysJs == "是") {
                                FwJsForm->ADOQueryfwjs->FieldByName("mffwfy")->AsFloat = bxfwdj;
                                FwJsForm->ADOQueryfwjs->FieldByName("gyswgfy")->AsFloat = gyswgf;
                                FwJsForm->ADOQueryfwjs->FieldByName("gysjtfy")->AsFloat = gysjtf;
                        } else {
                                FwJsForm->ADOQueryfwjs->FieldByName("mffwfy")->AsFloat = 0;
                                FwJsForm->ADOQueryfwjs->FieldByName("gyswgfy")->AsFloat = 0;
                                FwJsForm->ADOQueryfwjs->FieldByName("gysjtfy")->AsFloat = 0;
                        }
                        FwJsForm->ADOQueryfwjs->FieldByName("zffwfy")->AsFloat = 0;
                        FwJsForm->ADOQueryfwjs->FieldByName("ssfwfy")->AsFloat = 0;
                        FwJsForm->ADOQueryfwjs->FieldByName("ysqtfy")->AsFloat = 0;
                } else {
                        FwJsForm->ADOQueryfwjs->FieldByName("mffwfy")->AsFloat = 0;
                        FwJsForm->ADOQueryfwjs->FieldByName("zffwfy")->AsFloat = zffwdj;
                        FwJsForm->ADOQueryfwjs->FieldByName("ssfwfy")->AsFloat = zffwdj;
                        FwJsForm->ADOQueryfwjs->FieldByName("gyswgfy")->AsFloat = 0;
                        FwJsForm->ADOQueryfwjs->FieldByName("gysjtfy")->AsFloat = 0;
                        FwJsForm->ADOQueryfwjs->FieldByName("ysqtfy")->AsFloat = FwJsForm->ADOQueryfwjs->FieldByName("yfrywgfy")->AsFloat +FwJsForm->ADOQueryfwjs->FieldByName("yfryjtfy")->AsFloat;
                }
                if( FwJsForm->ADOQueryfwjs->FieldByName("iszfryfwfy")->AsString == "是")    //人员服务费
                        FwJsForm->ADOQueryfwjs->FieldByName("yfryfy")->AsFloat = rydj;
                else
                        FwJsForm->ADOQueryfwjs->FieldByName("yfryfy")->AsFloat = 0;
                Button9->Enabled = false;
        } else {   //按部位计费
                FwJsForm->ADOQueryfwjs->FieldByName("mffwfy")->AsFloat = 0;
                FwJsForm->ADOQueryfwjs->FieldByName("gyswgfy")->AsFloat = 0;
                FwJsForm->ADOQueryfwjs->FieldByName("gysjtfy")->AsFloat = 0;
                FwJsForm->ADOQueryfwjs->FieldByName("zffwfy")->AsFloat = 0;
                FwJsForm->ADOQueryfwjs->FieldByName("ssfwfy")->AsFloat = 0;
                FwJsForm->ADOQueryfwjs->FieldByName("ysqtfy")->AsFloat = 0;
                FwJsForm->ADOQueryfwjs->FieldByName("yfryfy")->AsFloat = 0;
                Button9->Enabled = true;
        }
        FwJsForm->ADOQueryfwjs->FieldByName("mfpjfy")->AsFloat = 0;
        FwJsForm->ADOQueryfwjs->FieldByName("mfpjfwsfy")->AsFloat = 0;
        FwJsForm->ADOQueryfwjs->FieldByName("zfpjfy")->AsFloat = 0;
        FwJsForm->ADOQueryfwjs->FieldByName("fwpjcb")->AsFloat = 0;
        FwJsForm->ADOQueryfwjs->FieldByName("sspjfy")->AsFloat = 0;
}
//---------------------------------------------------------------------------

void __fastcall TFwFyJsForm::Button2Click(TObject *Sender)
{
        if(DBLookupComboBox1->Text.Trim()=="") {
                Application->MessageBox("请确定服务情况","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(Application->MessageBox("是否结算?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        if(Application->MessageBox("相关服务配件是否登记完毕?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        if( FwJsForm->ADOQueryfwsl->FieldByName("jsfs")->AsString == "部位" && FwJsForm->ADOQueryfwsl->FieldByName("zxfwlx")->AsString == "维修" ) {
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -