fbb.cpp

速达开源ERP系统

    if(scFbbFMonth->Text.IsEmpty()||scFbbCac->Text.IsEmpty())
      return;
    if(LastStr==scFbbFMonth->Text+scFbbCac->Text)
      return;
    LastStr=scFbbFMonth->Text+scFbbCac->Text;
    seBankName->Text = scFbbCac->ItemData[1];
    if(scFbbCac->ItemData[2]=="1")
     seCacType->Text = "银行";
    else
     seCacType->Text = "现金";
    s = "FbbFMonth = '" +scFbbFMonth->Text+ "' and "+"FbbCac = '"+scFbbCac->Text+"'";
    comServer->FilterString = s;
    comServer->Query();
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();

}
//---------------------------------------------------------------------------
void __fastcall TfrmFbb::sgFbbClick(TObject *Sender)
{
    int ARow=sgFbb->Row;
    if (ARow    >   0)
     comServer->LocateByKey(sgFbb->TextMatrix[ARow][1]+scFbbCac->Text+scFbbFMonth->Text);
    if (!comServer->Eof)
     GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFbb::RefreshUpdateData(int MsgSrc,int MsgType)
{
  switch(MsgSrc)
  {
   case euSdFc:
    if(ShowUpdateMessage(MsgSrc,MsgType))
    {
     FillComboBox(scFbbFMonth,"select fcmonth from sdfc order by fcmonth desc","fcmonth");
    }
    break;
   case euSdCac:
    if(ShowUpdateMessage(MsgSrc,MsgType))
    {
     FillComboBox(scFbbCac,"select caccode,cacBankname,cactype,currencycode,currencyname from sdcac,sdcurrency where caccurrency=currencycode order by caccode",
                           "caccode","cacbankname","cactype","currencycode","currencyname");
    }
    break;
   case euSdSettleMode:
    if(ShowUpdateMessage(MsgSrc,MsgType))
    {
     FillComboBox(scFbbSettleMode,"select settlemodename memo,settlemodecode from sdsettlemode order by settlemodecode","memo","settlemodecode");
    }
    break;
   case euSdUser:
    if(ShowUpdateMessage(MsgSrc,MsgType))
    {
     FillComboBox(scFbbUser,"select username memo,usercode from sduser,sdcashier where cashiercode=usercode order by usercode","memo","usercode");
    }
    break;
   case euSdExpense:
    if(ShowUpdateMessage(MsgSrc,MsgType))
    {
     FillComboBox(scFbbExpense,"select expensename memo,expensecode from sdexpense order by expensecode","memo","expensecode");
    }
    break;
   case euSdCc:
    if(ShowUpdateMessage(MsgSrc,MsgType))
    {
     FillComboBox(scFbbCc,"select ccname memo,cccode from sdcc where CCCANCEL=0 order by cccode","memo","cccode");
    }
    break;
   case euSdDept:
    if(ShowUpdateMessage(MsgSrc,MsgType))
    {
     FillComboBox(scFbbDept,"select deptname memo,deptcode from sddept where deptend=1 order by deptcode","memo","deptcode");
    }
    break;
   case euSdClient:
    if(ShowUpdateMessage(MsgSrc,MsgType))
    {
     FillComboBox(scFbbClient,"select clientname memo,clientcode from sdclient order by clientcode","memo","clientcode");
    }
    break;
   case euSdSupply:
    if(ShowUpdateMessage(MsgSrc,MsgType))
    {
     FillComboBox(scFbbSupply,"select supplyname memo,supplycode from sdsupply where supplycancel=0 order by supplycode",
                              "memo","supplycode");
    }
    break;
   case euSdEmployee:
    if(ShowUpdateMessage(MsgSrc,MsgType))
    {
     FillComboBox(scFbbEmployee,"select employeename memo,employeecode from sdemployee where  EmployeeState=0 order by employeecode",
                                "memo","employeecode");
    }
    break;
   default:
    break;
  }
}
//---------------------------------------------------------------------------

void __fastcall TfrmFbb::seFbbNoKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seFbbNo->Text);
      GetDataFromComObject();
    }
}
//---------------------------------------------------------------------------
int __fastcall TfrmFbb::GetNextNo()
{
 int iCurNo;
 if(comServer->RecordCount == 0)
  return(1);
 else
 {
  comServer->MoveLast();
  iCurNo=StrToInt(GetFieldValue(fiFbbNo));
  return(iCurNo+1);
 }
}
//---------------------------------------------------------------------------



void __fastcall TfrmFbb::scFbbTypeClick(TObject *Sender)
{
    AnsiString sSQL;
    int i=scFbbType->ItemIndex+1;
    switch(i)
    {
     case 1: //费用
      GroupBoxType->Caption="费用";
      Pexpense->Visible=true;
      PClient->Visible=false;
      Psupply->Visible=false;
      PDept->Visible=false;
      PEmploy->Visible=false;
      PChang1->Visible=false;
      PChang2->Visible=false;
      break;
     case 2: //客户往来
      GroupBoxType->Caption="客户往来";
      Pexpense->Visible=false;
      PClient->Visible=true;
      Psupply->Visible=false;
      PDept->Visible=false;
      PEmploy->Visible=false;
      PChang1->Visible=false;
      PChang2->Visible=false;
      break;
     case 3: //供应商往来
      GroupBoxType->Caption="供应商往来";
      Pexpense->Visible=false;
      PClient->Visible=false;
      Psupply->Visible=true;
      PDept->Visible=false;
      PEmploy->Visible=false;
      PChang1->Visible=false;
      PChang2->Visible=false;
      break;
     case 4: //部门
      GroupBoxType->Caption="部门";
      Pexpense->Visible=false;
      PClient->Visible=false;
      Psupply->Visible=false;
      PDept->Visible=true;
      PEmploy->Visible=false;
      PChang1->Visible=false;
      PChang2->Visible=false;
      break;
     case 5: //个人
      GroupBoxType->Caption="个人";
      Pexpense->Visible=false;
      PClient->Visible=false;
      Psupply->Visible=false;
      PDept->Visible=false;
      PEmploy->Visible=true;
      PChang1->Visible=false;
      PChang2->Visible=false;
      break;
     case 6: //内部转帐
      GroupBoxType->Caption="内部转帐";
      Pexpense->Visible=false;
      PClient->Visible=false;
      Psupply->Visible=false;
      PDept->Visible=false;
      PEmploy->Visible=false;
      PChang1->Visible=true;
      PChang2->Visible=false;
      //内部转帐类型的转出货币须与出纳帐号货币相同
      sSQL ="select cacbankname+'('+caccode+')' memo,caccode,currencycode,currencyname from sdcac,sdcurrency ";
      sSQL+=" where caccurrency=currencycode and caccode <> '"+scFbbCac->Text+"'";
      sSQL+=" and caccurrency ='"+scFbbCac->ItemData[3]+"' order by memo";
      FillComboBox(scFbbFromCac1,sSQL,"memo","caccode","currencycode","currencyname");
      scFbbFromCac1->ItemIndex=-1;
      seFbbFromCurrency1->Text="";
      break;
     case 7: //换汇
      GroupBoxType->Caption="换汇";
      Pexpense->Visible=false;
      PClient->Visible=false;
      Psupply->Visible=false;
      PDept->Visible=false;
      PEmploy->Visible=false;
      PChang1->Visible=false;
      PChang2->Visible=true;
      //换汇类型的转出货币须与出纳帐号货币不同
      sSQL ="select cacbankname+'('+caccode+')' memo,caccode,currencycode,currencyname,RATERATIO from sdrate,sdcac,sdcurrency ";
      sSQL+=" where caccurrency=currencycode and caccode <> '"+scFbbCac->Text+"'  and RATECURRENCY=caccurrency and RATEFMONTH='"+scFbbFMonth->Text+"'";
      sSQL+=" and caccurrency <>'"+scFbbCac->ItemData[3]+"' order by memo";
      FillComboBox(scFbbFromCac2,sSQL,"memo","caccode","currencycode","currencyname","RATERATIO");
      scFbbFromCac2->ItemIndex=-1;
      seFbbFromCurrency2->Text="";
      break;
     default:
      break;
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmFbb::scFbbFromCac2Click(TObject *Sender)
{
    if(scFbbFromCac2->ItemIndex > -1)
    {
      seFbbFromCurrency2->Text=scFbbFromCac2->ItemData[3];
      seFbbFromRate->Text=scFbbFromCac2->ItemData[4];
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmFbb::scFbbFromCac1Click(TObject *Sender)
{
    if(scFbbFromCac1->ItemIndex > -1)
      seFbbFromCurrency1->Text=scFbbFromCac1->ItemData[3];

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