diff --git a/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas b/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas
index 35d3983..e2b1899 100644
--- a/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas
+++ b/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas
@@ -18,6 +18,8 @@ function FromPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): P
 
 function FunPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
 
+function FromPrintRmf(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+
 implementation
 
 function FromPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
@@ -80,5 +82,35 @@ begin
   Result := JsonResult;
 end;
 
+function FromPrintRmf(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+type
+  TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;
+var
+  Tf: TMyFunc;
+  Tp: TFarProc;
+  Th: Thandle;
+  JsonResult: PChar;
+begin
+  Th := LoadLibrary('ReportPrint.dll');
+  if Th > 0 then
+  begin
+    Tp := GetProcAddress(Th, 'GetDllForm');
+    if Tp <> nil then
+    begin
+      Tf := TMyFunc(Tp);
+      JsonResult := Tf(Application, 21, 'Rmf����', DataBaseStr, JsonArgs);
+    end
+    else
+    begin
+      JsonResult := '{"succsee":false,"message": "��ȡ���ú��쳣"}';
+    end;
+  end
+  else
+  begin
+    JsonResult := '{"succsee":false,"message": "�Ҳ���ReportPrint.dll"}';
+  end;
+  Result := JsonResult;
+end;
+
 end.
 
diff --git a/Delphi10/系统文件/客户终端/ReportPrint.dll b/Delphi10/系统文件/客户终端/ReportPrint.dll
index aed1077..afed492 100644
Binary files a/Delphi10/系统文件/客户终端/ReportPrint.dll and b/Delphi10/系统文件/客户终端/ReportPrint.dll differ