gysjs.cpp

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

                if( RadioGroup1->ItemIndex != 3 && RadioGroup1->ItemIndex != 4 ) {  //非回访
                        sql = "select * from fwsl,fwjs where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq and fwsl.flbh =:flbh and fwsl.ppbh =:ppbh and fwsl.ggbh=:ggbh";
                        sql += " and fwsl.jsflag='是' and fwjs.dabh = fwsl.dabh and fwsl.zxfwlx ='"+RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]+"' and fwjs.jslx='"+RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]+"' and fwsl.gysbh=:P_gysbh order by fwjs.dabh";
                } else if ( RadioGroup1->ItemIndex == 3) {   //回访
                        sql = "select * from fwsl,fwjs where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq and fwsl.flbh =:flbh and fwsl.ppbh =:ppbh and fwsl.ggbh=:ggbh";
                        sql += " and fwsl.hfflag='是' and fwjs.dabh = fwsl.dabh and fwjs.jslx='回访' and fwsl.gysbh=:P_gysbh order by fwjs.dabh";
                }else {
                        sql = "select * from fwsl,fwjs where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq and fwsl.flbh =:flbh and fwsl.ppbh =:ppbh and fwsl.ggbh=:ggbh";
                        sql += " and ( fwsl.jsflag='是' or fwsl.hfflag='是' ) and fwjs.dabh = fwsl.dabh and fwsl.gysbh=:P_gysbh order by fwjs.dabh";
                }
                ADOQuery1->Close();
                ADOQuery1->SQL->Clear();
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->Parameters->ParamByName("P_startrq")->Value = DateTimePicker1->DateTime;
                ADOQuery1->Parameters->ParamByName("P_endrq")->Value = DateTimePicker2->DateTime;
                ADOQuery1->Parameters->ParamByName("P_gysbh")->Value = DBLookupComboBox1->KeyValue;
                ADOQuery1->Open();
                DataSource2->Enabled = true;
                break;
        }
        TGYSJSQDForm *GYSJSQDForm;
        try
        {
                GYSJSQDForm = new TGYSJSQDForm(Application);
                GYSJSQDForm->QRLabel1->Caption = "供应商("+ DBLookupComboBox1->Text+")明细结算清单("+ RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]+")";
                GYSJSQDForm->QRLabel14->Caption =  FormatDateTime("yyyy-mm-dd",DateTimePicker1->DateTime);
                GYSJSQDForm->QRLabel15->Caption =  FormatDateTime("yyyy-mm-dd",DateTimePicker2->DateTime);
                GYSJSQDForm->hjpjfy=GYSJSQDForm->hjfwfy=GYSJSQDForm->hjjtfy=GYSJSQDForm->hjwgfy=0;
                GYSJSQDForm->QuickRep1->Preview();
                delete GYSJSQDForm;
        }
        catch(...)
        {
                delete GYSJSQDForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------


void __fastcall TGysJsForm::FormCreate(TObject *Sender)
{
        if(MainForm->ADOConnection1->Connected == false)
                MainForm->ADOConnection1->Open();
        ADOQuerygysxx->Close();
        ADOQuerygysxx->Open();
        DateTimePicker1->DateTime = Date();
        DateTimePicker2->DateTime = Date();
}
//---------------------------------------------------------------------------

void __fastcall TGysJsForm::dxfColorButton3Click(TObject *Sender)
{
        AnsiString sql;
        if(DBLookupComboBox1->Text.Trim()=="") {
                Application->MessageBox("请选择供应商","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        ADOQuery2->Close();
        ADOQuery2->SQL->Clear();
        switch( RadioGroup2->ItemIndex ) {
        case 0:
                MainForm->MyPjBh ="0";
                if( RadioGroup1->ItemIndex != 3 && RadioGroup1->ItemIndex != 4 ) {  //非回访
                        sql = "select sum(fwjs.mfpjfy),sum(fwjs.mffwfy),sum(fwjs.gyswgfy),sum(fwjs.gysjtfy),fwsl.flmc,fwsl.zxfwlx from fwsl,fwjs";
                        sql += " where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                        sql += " and  fwsl.jsflag='是' and fwsl.zxfwlx ='"+RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]+"' and fwjs.jslx='"+RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]+"' and fwsl.gysbh=:P_gysbh";
                        sql += " and fwjs.dabh = fwsl.dabh group by fwsl.flmc,fwsl.zxfwlx";
                } else if ( RadioGroup1->ItemIndex == 3) {   //回访
                        sql = "select sum(fwjs.mfpjfy),sum(fwjs.mffwfy),sum(fwjs.gyswgfy),sum(fwjs.gysjtfy),fwsl.flmc,fwsl.zxfwlx from fwsl,fwjs";
                        sql += " where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                        sql += " and  fwsl.hfflag='是' and fwjs.jslx='回访' and fwsl.gysbh=:P_gysbh";
                        sql += " and fwjs.dabh = fwsl.dabh group by fwsl.flmc,fwsl.zxfwlx";
                } else {
                        sql = "select sum(fwjs.mfpjfy),sum(fwjs.mffwfy),sum(fwjs.gyswgfy),sum(fwjs.gysjtfy),fwsl.flmc,fwsl.zxfwlx from fwsl,fwjs";
                        sql += " where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                        sql += " and  ( fwsl.jsflag='是' or fwsl.hfflag='是') and fwsl.gysbh=:P_gysbh";
                        sql += " and fwjs.dabh = fwsl.dabh group by fwsl.flmc,fwsl.zxfwlx";
                }
                break;
        case 1:
                MainForm->MyPjBh ="1";
                if( RadioGroup1->ItemIndex != 3 && RadioGroup1->ItemIndex != 4 ) {  //非回访
                        sql = "select sum(fwjs.mfpjfy),sum(fwjs.mffwfy),sum(fwjs.gyswgfy),sum(fwjs.gysjtfy),fwsl.flmc,fwsl.ppmc,fwsl.zxfwlx from fwsl,fwjs";
                        sql += " where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                        sql += " and  fwsl.jsflag='是' and fwsl.zxfwlx ='"+RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]+"' and fwjs.jslx='"+RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]+"' and fwsl.gysbh=:P_gysbh";
                        sql += " and fwjs.dabh = fwsl.dabh group by fwsl.flmc,fwsl.ppmc,fwsl.zxfwlx";
                } else if ( RadioGroup1->ItemIndex == 3) {   //回访
                        sql = "select sum(fwjs.mfpjfy),sum(fwjs.mffwfy),sum(fwjs.gyswgfy),sum(fwjs.gysjtfy),fwsl.flmc,fwsl.ppmc,fwsl.zxfwlx from fwsl,fwjs";
                        sql += " where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                        sql += " and  fwsl.hfflag='是' and fwjs.jslx='回访' and fwsl.gysbh=:P_gysbh";
                        sql += " and fwjs.dabh = fwsl.dabh group by fwsl.flmc,fwsl.ppmc,fwsl.zxfwlx";
                } else {
                        sql = "select sum(fwjs.mfpjfy),sum(fwjs.mffwfy),sum(fwjs.gyswgfy),sum(fwjs.gysjtfy),fwsl.flmc,fwsl.ppmc,fwsl.zxfwlx from fwsl,fwjs";
                        sql += " where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                        sql += " and  ( fwsl.jsflag='是' or fwsl.hfflag='是') and fwsl.gysbh=:P_gysbh";
                        sql += " and fwjs.dabh = fwsl.dabh group by fwsl.flmc,fwsl.ppmc,fwsl.zxfwlx";
                }
                break;
        case 2:
                MainForm->MyPjBh ="2";
                if( RadioGroup1->ItemIndex != 3 && RadioGroup1->ItemIndex != 4 ) {  //非回访
                        sql = "select sum(fwjs.mfpjfy),sum(fwjs.mffwfy),sum(fwjs.gyswgfy),sum(fwjs.gysjtfy),fwsl.flmc,fwsl.ppmc,fwsl.ggmc,fwsl.zxfwlx from fwsl,fwjs";
                        sql += " where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                        sql += " and  fwsl.jsflag='是' and fwsl.zxfwlx ='"+RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]+"' and fwjs.jslx='"+RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]+"' and fwsl.gysbh=:P_gysbh";
                        sql += " and fwjs.dabh = fwsl.dabh group by fwsl.flmc,fwsl.ppmc,fwsl.ggmc,fwsl.zxfwlx";
                } else if ( RadioGroup1->ItemIndex == 3) {   //回访
                        sql = "select sum(fwjs.mfpjfy),sum(fwjs.mffwfy),sum(fwjs.gyswgfy),sum(fwjs.gysjtfy),fwsl.flmc,fwsl.ppmc,fwsl.ggmc,fwsl.zxfwlx from fwsl,fwjs";
                        sql += " where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                        sql += " and  fwsl.hfflag='是' and fwjs.jslx='回访' and fwsl.gysbh=:P_gysbh";
                        sql += " and fwjs.dabh = fwsl.dabh group by fwsl.flmc,fwsl.ppmc,fwsl.ggmc,fwsl.zxfwlx";
                } else {
                        sql = "select sum(fwjs.mfpjfy),sum(fwjs.mffwfy),sum(fwjs.gyswgfy),sum(fwjs.gysjtfy),fwsl.flmc,fwsl.ppmc,fwsl.ggmc,fwsl.zxfwlx from fwsl,fwjs";
                        sql += " where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                        sql += " and  ( fwsl.jsflag='是' or fwsl.hfflag='是') and fwsl.gysbh=:P_gysbh";
                        sql += " and fwjs.dabh = fwsl.dabh group by fwsl.flmc,fwsl.ppmc,fwsl.ggmc,fwsl.zxfwlx";
                }
                break;
        }
        ADOQuery2->SQL->Add(sql);
        ADOQuery2->Parameters->ParamByName("P_startrq")->Value = DateTimePicker1->DateTime;
        ADOQuery2->Parameters->ParamByName("P_endrq")->Value = DateTimePicker2->DateTime;
        ADOQuery2->Parameters->ParamByName("P_gysbh")->Value = DBLookupComboBox1->KeyValue;
        ADOQuery2->Open();
        if(ADOQuery2->RecordCount < 1 ) {
                ADOQuery2->Close();
                Application->MessageBox("没有符合条件的记录可打印","错误",MB_OK+MB_ICONERROR);
                return;
        }
        TGysJsHzBForm *GysJsHzBForm;
        try
        {
                GysJsHzBForm = new TGysJsHzBForm(Application);
                GysJsHzBForm->QRLabel1->Caption = "供应商("+ DBLookupComboBox1->Text+")汇总结算清单("+ RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]+")";
                GysJsHzBForm->QRLabel14->Caption =  FormatDateTime("yyyy-mm-dd",DateTimePicker1->DateTime);
                GysJsHzBForm->QRLabel15->Caption =  FormatDateTime("yyyy-mm-dd",DateTimePicker2->DateTime);
                GysJsHzBForm->QuickRep1->Preview();
                delete GysJsHzBForm;
        }
        catch(...)
        {
                delete GysJsHzBForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
        ADOQuery2->Close();
}
//---------------------------------------------------------------------------