selretexcludefrm.pas

医药连锁经营管理系统源码

  If FEditMode=0 Then Exit;
  If (CdsSelRetExcludeDtl.State In dsEditModes) Then
    CdsSelRetExcludeDtl.Post;
  Inherited;
end;

procedure TFmSelRetExclude.CdsSelRetExcludeReconcileError(
  DataSet: TCustomClientDataSet; E: EReconcileError;
  UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
  Messagebox(Handle,PChar(E.Message),'',16);
  Action:=RaAbort;
end;

procedure TFmSelRetExclude.CdsSelRetExcludeEmpNOChange(Sender: TField);
Var
  sEmpNo,sEmpName,LogText:String;
begin
  IF FEditMode=0 Then Exit;
  sEmpNo:=CdsSelRetExcludeEmpNo.Value;
  If sEmpNo='' Then Exit;
  if sEmpNo=BeforeEmpNo Then Exit;
  BeforeEmpNo:=sEmpNO;
  sEmpName:=VarToStr(SvrCommon.AppServer.GetEmpInfo(iClientID,sEmpNo,1,'Name',LogText));
  CdsSelRetExcludeEmpName.Value:=sEmpName;
  If LogText<>'' Then Begin
    Messagebox(Handle,PChar(LogText),nil,16);
    Abort;
  End;  
end;

procedure TFmSelRetExclude.ActAuditExecute(Sender: TObject);
Var
  sUserID,Str:String;
  sSysInfo : Variant;
begin
  Try
    If CdsSelRetExclude.IsEmpty Then Exit;
    If FEditMode>0 then Exit;
    Inherited;
    If Application.MessageBox('确实要审核当前数据吗？','提示',4+32)<>6 Then Exit;
    str := 'CurrMonth';
    sSysInfo := SvrCommon.AppServer.GetSysInfo(iClientID,Str,1);
    If Not(VarIsNull(sSysInfo)) Then Begin
      If CdsSelRetExcludeFDate.Value<VarToDateTime(sSysInfo) Then Begin
        Messagebox(Handle,PChar('单据日期不符，该月已完成月度结算...'),nil,16);
        Exit;
      End;
    End Else Begin
      Messagebox(Handle,PChar('请先设置开帐日期...'),nil,16);
      Exit;
    End;
    CdsSelRetExclude.Edit;
    CdsSelRetExcludeTransfer.Value:=True;
    sUserID := iFmMain.IFmMainEx.LogonInfo^.UserID;
    CdsSelRetExcludeAudit.Value := sUserID;
    try
      CdsSelRetExclude.Post;
    Except
      CdsSelRetExclude.Cancel;
      Raise;
    end;
    If CdsSelRetExclude.ApplyUpdates(0)>0 Then
      Messagebox(Handle,PChar('复核数据不成功！'),nil,16)
    Else Begin
      ActAudit.Enabled  := False and CanAudit;
      ActRevert.Enabled := True and CanRevert;
      Lab_State.Caption:='单据状态：已审核';
      Lab_State.Font.Color:=clRed;
      ActRefreshExecute(NIl);
    End;
  Except
    On E:Exception Do
      Messagebox(Handle,PChar(E.Message),nil,16);
  End;
end;

procedure TFmSelRetExclude.ActRevertExecute(Sender: TObject);
begin
   Try
    If CdsSelRetExclude.IsEmpty Then Exit;
    If FEditMode>0 then Exit;
    Inherited;
    If Application.MessageBox('确实要还原当前已审核过的单据吗？','提示',4+32)<>6 Then Exit;
    CdsSelRetExclude.Edit;
    CdsSelRetExcludeTransfer.Value:=False;
    CdsSelRetExcludeAudit.Value := '';
    try
      CdsSelRetExclude.Post;
    Except
      CdsSelRetExclude.Cancel;
      Raise;
    end;
    If CdsSelRetExclude.ApplyUpdates(0)>0 Then
      Messagebox(Handle,PChar('还原数据不成功！'),nil,16)
    Else Begin
      ActAudit.Enabled:=True and CanAudit;
      ActRevert.Enabled:=False and CanRevert;
      Lab_State.Caption:='单据状态：未审核';
      Lab_State.Font.Color:=clHotLight;
      ActRefreshExecute(Nil);
    End;
  Except
    On E:Exception Do
      Messagebox(Handle,PChar(E.Message),nil,16);
  End;
End;

procedure TFmSelRetExclude.ActFieldLayoutExecute(Sender: TObject);
begin
  SetFieldsLayOut(LocSetting^.FieldLayoutCfgFile, Name,
                  [dbgSelRetOrderDtl],'销退拒收明细');
end;

procedure TFmSelRetExclude.ActDataExportExecute(Sender: TObject);
begin
	ExportData([CdsSelRetExclude, CdsSelRetExcludeDtl],'销退拒收;销退拒收明细', '');
end;

function TFmSelRetExclude.DoSome(cType: PChar; Values: Variant): Variant;
const
  cTypes = 'viewbill'#13'query';
  //       查看某单     查询
var sTypes, sBillList: TStrings;
    b1: Boolean;
    i: integer;
    str, str2: String;
begin
  sBillList := TStringList.Create;
  sTypes := TStringList.Create;
  sTypes.Text := cTypes;
  i := sTypes.IndexOf(cType);
  case i of
    0: begin//ViewBill
      b1 := VarIsArray(Values);
      if b1 then begin
        str := Values[0];
        str2:= Values[1];
      end else begin
        str := Values;
        str2:= '';
      end;
      sBillList.Text := Str;
      if not b1 then begin
        if sBillNoList.IndexOf(sBillList[0])<0 then
          sBillNoList.AddStrings(sBillList);
      end else
        sBillNoList.Text := str2;
      self.BringToFront;
      SetCurrBillNo(sBillList[0]);
    end;
  end;
end;

procedure TFmSelRetExclude.edCustNameButtonClick(Sender: TObject);
Var sCustNo, sCustName: String;
begin
  If FEditMode=0 Then Exit;
  sCustNo := CdsSelRetExcludeCustNo.Value;
  If SelectCust(sCustNo,sCustName) Then Begin
    CdsSelRetExcludeCustNo.Value := sCustNo;
    CdsSelRetExcludeCustName.Value := sCustName;
  End;
End;

procedure TFmSelRetExclude.RzDBButtonEdit2ButtonClick(Sender: TObject);
Var
  sCustNo,sLinkMan : String;
begin
  If FEditMode=0 Then Exit;
  If RzDBEdit9.Text='' Then Begin
    MessageBox(Handle,PChar('请先指定供应厂商!'),nil,16);
    Exit;
  End;
  sCustNo := CdsSelRetExcludeCustNo.Value;
  If SelectCustLinkMan(sCustNo,sLinkMan) Then
    CdsSelRetExcludeLinkMan.Value := sLinkMan ;
end;

procedure TFmSelRetExclude.ActQueryExecute(Sender: TObject);
begin
  IFmMain.OnAction(Sender);
end;

procedure TFmSelRetExclude.dbgSelRetOrderDtlEditButtonClick(Sender: TObject);
var sField: String;
Begin
  If FEditMode=0 Then Exit;
  sField :='';
  sField := Trim(LowerCase(dbgSelRetOrderDtl.SelectedField.FieldName));
  If sField='goodsid' Then Begin
    ParseGoodsInfo;
  End;
End;

procedure TFmSelRetExclude.CdsSelRetExcludeDtlGoodsIDChange(Sender: TField);
{Var
  LogText,Flag,sGoodsID,sSetFields,sCustNo:String;
Begin
  IF (FEditMode=0) or bBrowGoods Then Exit;
  IF FlagGoodsID<>'' Then Begin
    FlagGoodsID:='';
    Exit;
  End;
  sGoodsID:=CdsSelRetExcludeDtlGoodsID.AsString;
  If sGoodsID='' Then Exit;
  if (BeforeGoodsID=sGoodsID) Then Exit;
  BeforeGoodsID:=sGoodsID;
  sSetFields:= 'Name,Specs,Unit';
  FlagGoodsID:=GetGoodsInfo(CdsSelRetExcludeDtl,'',sGoodsID,sSetFields,'','P', 1);
  If FlagGoodsID='' Then Begin
    Messagebox(Handle,'无效药品编号',nil,16);
    Abort;
  End Else Begin
    if sGoodsID<>FlagGoodsID then
      CdsSelRetExcludeDtl.FieldByName('GoodsID').AsString:=FlagGoodsID
    Else
      FlagGoodsID:='';
  End;}
begin
  ParseGoodsInfo;
End;

procedure TFmSelRetExclude.ParseGoodsInfo;
var
  B1:boolean;
begin
  if FEditMode=0 then Exit;
  if bBrowGoods then Exit;
  bBrowGoods := true;
  try
    b1:=SelectGoods(CdsSelRetExcludeDtl, CdsSelRetExcludeDtlGoodsID, CdsSelRetExcludeDtlUnit, true, False, false);
    if not b1 then abort;
  finally
    bBrowGoods := false;
  end;
end;

procedure TFmSelRetExclude.CdsSelRetExcludeNewRecord(DataSet: TDataSet);
begin
  CdsSelRetExcludeBillNo.Value := BuildBillNo('SelRetExclude');
  CdsSelRetExcludeCreater.Value := LogonInfo^.UserID;
  CdsSelRetExcludeGrup.Value := LogonInfo^.UserGrupID;
  CdsSelRetExcludeFDate.value := Date;
end;

initialization
  RegisterClass(TFmSelRetExclude);

finalization
  UnRegisterClass(TFmSelRetExclude);

end.