diff --git a/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas b/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas
index e2b1899..5a1fb0a 100644
--- a/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas
+++ b/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas
@@ -20,8 +20,32 @@ function FunPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PC
 
 function FromPrintRmf(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
 
+function FromPrintReport(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+
 implementation
 
+function FromPrintReport(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+var
+  FileName, MReport: string;
+  programIni: Tinifile;  //�����ļ���
+  JsonResult: PChar;
+begin
+  FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
+  programIni := Tinifile.create(FileName);
+  MReport := programIni.ReadString('��������', '��������', '0');
+  programIni.Free;
+
+  if MReport = '0' then
+  begin
+    JsonResult := FromPrintFr3(App, DataBaseStr, JsonArgs);
+  end
+  else
+  begin
+    JsonResult := FromPrintRmf(App, DataBaseStr, JsonArgs);
+  end;
+  Result := JsonResult;
+end;
+
 function FromPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
 type
   TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;