陈小洋的博客 - U8
type: channel
link: http://yang1010.vicp.net/index.php/tag/U8/
items: 用友U8补料申请单批量处理

用友U8补料申请单批量处理
type: item
date: 2024-09-03T14:40:00+00:00
description: 补料申请单需要手动选生产订单号和行号，效率低，操作不方便，特写这个小工具，批量填充，曲线救国。;**** 参数创建于 AutoIt3Wrapper_GUI **** ; *** Start added by AutoIt3Wrapper *** #include <WinAPIConstants.au3> ; *** End added by AutoIt3Wrapper *** #Region #AutoIt3Wrapper_Icon=msra.ico #AutoIt3Wrapper_Outfile_x64=U8补料申请单批量处理.exe #AutoIt3Wrapper_UseUpx=y #AutoIt3Wrapper_Res_Comment=U8补料申请单批量处理 #AutoIt3Wrapper_Res_Description=U8补料申请单批量处理 #AutoIt3Wrapper_Res_Fileversion=3.2.0.0 #AutoIt3Wrapper_Res_ProductName=U8补料申请单批量处理 #AutoIt3Wrapper_Res_ProductVersion=2.0 #AutoIt3Wrapper_Res_LegalCopyright=HSIAOYANG CHEN #AutoIt3Wrapper_Res_SaveSource=y #AutoIt3Wrapper_Res_Language=2052 #AutoIt3Wrapper_Res_requestedExecutionLevel=None #EndRegion #include <GUIConstantsEx.au3> #include <MsgBoxConstants.au3> #include <WindowsConstants.au3> #include <WinAPI.au3> #include <AutoItConstants.au3> #include <EditConstants.au3> #include <StaticConstants.au3> #include <Misc.au3> If _Singleton("SHOYO", 1) = 0 Then ;禁止多个程序同时运行 ;MsgBox($MB_SYSTEMMODAL, "Warning", "An occurrence of test is already running") Exit EndIf main() ;将设置的参数从注册表读取出来使用 Func init() Global $pn, $pny, $num, $origx, $origy, $high, $wide, $line, $stop RegEnumVal("HKEY_CURRENT_USER\SOFTWARE\SHOYO", 1) If @error = 0 Then GUICtrlSetData($idFile1, RegRead("HKEY_CURRENT_USER\SOFTWARE\SHOYO", "pn")) GUICtrlSetData($idFile2, RegRead("HKEY_CURRENT_USER\SOFTWARE\SHOYO", "pny")) GUICtrlSetData($idFile3, RegRead("HKEY_CURRENT_USER\SOFTWARE\SHOYO", "num")) GUICtrlSetData($idFile4, RegRead("HKEY_CURRENT_USER\SOFTWARE\SHOYO", "origx")) GUICtrlSetData($idFile5, RegRead("HKEY_CURRENT_USER\SOFTWARE\SHOYO", "high")) GUICtrlSetData($idFile6, RegRead("HKEY_CURRENT_USER\SOFTWARE\SHOYO", "origy")) GUICtrlSetData($idFile7, RegRead("HKEY_CURRENT_USER\SOFTWARE\SHOYO", "wide")) GUICtrlSetData($idFile8, RegRead("HKEY_CURRENT_USER\SOFTWARE\SHOYO", "line")) EndIf EndFunc ;==>init ;鼠标操作核心算法 Func start() Local $hWnd = WinGetHandle("[CLASS:ThunderRT6FormDC]") ; 获取U8窗口句柄 If $hWnd Then ProcessSetPriority("EnterprisePo…