Jump to content

SeF

Active Members
  • Posts

    79
  • Joined

  • Last visited

About SeF

  • Birthday 04/03/1987

Profile Information

  • Location
    Brazil
  • Interests
    AutoIt
    Programming
    Gaming

Recent Profile Visitors

460 profile views

SeF's Achievements

Wayfarer

Wayfarer (2/7)

2

Reputation

  1. Thank you very much!! This is extremely useful for those who work with SAP + AutoIt. (I miss that old wizard after they upgraded to Windows 7 at work)
  2. Great software! I started using ISN Autoit Studio instead of Scite most of the time. Really liked the interface and the thophies system. Keep up the good work! Just missing helpfile in english
  3. Very nice! Does it work with AutoIt Portable?
  4. I'm still having that error Now it's happening even when I try creating a new task using an empty folder. But now it's Line 2999.
  5. Great program! Really good GUI and funcionality Just what I needed! Thanks! EDIT: I just got an error: - I'm using Binary version. - This happens when I click "Run" again on a task that just finished.
  6. I don't know how to check a menu item status, but you can use an "error handler". Like: $oMyError = ObjEvent("AutoIt.Error","SAP_Error") Func SAP_Error() MsgBox(0, "SAP", "Can't find the specified menu item!") Endfunc $SAP_Session.findById("wnd[0]/mbar/menu[3]/menu[1]").select
  7. Mine is much more simpler too. I use it with Res_Fileversion_AutoIncrement=y (SciTE) here in my job's network and works just fine. Func UpdateCheck($UpdatedVersionPath) FileDelete(@ScriptDir & "\OLD.exe") $CurrentVersion = FileGetVersion(@ScriptFullPath) $LastVersion = FileGetVersion($UpdatedVersionPath & @ScriptName) If $CurrentVersion < $LastVersion Then TrayTip("Updater", "Updating. . .", "", 2) FileCopy($UpdatedVersionPath & @ScriptName, @ScriptDir & "\NEW.exe") FileMove(@ScriptFullPath, @ScriptDir & "\OLD.exe") FileMove(@ScriptDir & "\NEW.exe", @ScriptFullPath) Run(@ScriptName) Exit EndIf EndFunc ;==>UpdateCheck
  8. Hello, First of all, great UDF!! But when I try to use it without compressing the file, I get an error: ERROR: __fileB64(): undefined function. FileWrite($hFileHwnd, __fileB64($bData)
  9. I process thousands of times without any sleep(). From my experience, SAP commands will be executed only when the last command is finished or when SAP interface is active/"free" again... I don't use sean's UDF, but I believe it works the same way. Here your script converted to AutoIt from SAP script (vbs): ; SAP Attach. $SapGuiAuto = ObjGet("SAPGUI") $application = $SapGuiAuto.GetScriptingEngine $connection = $application.Children(0) $session = $connection.Children(0) $session.findById("wnd[0]/tbar[0]/okcd").text = "XD02" $session.Children(0).sendVKey(0) ;Same as Enter input $session.findById("wnd[1]/usr/ctxtRF02D-KUNNR").text = "12345" ;There is no need to attach again... By the way, I work a lot with SAP in portuguese too and with XD02 transaction. I can help you If you need
  10. Thanks for this updated version! But, still don't work jumping to Regions for me Functions it's the important Anyway, great tool! EDIT: I tested in another UDF and it worked fine. It was just the way I made the Region/Endregions
  11. It worked! Thanks!!
  12. Does anyone know how can I insert table and format texts on body parameter from _OutlookSendMail. A piece from my script: $oOutlook = _OutlookOpen() _OutlookSendMail($oOutlook, "email@generic.com", "", "", "Subject/Title", "Body text. Here I want to add a 5x1 table) ; Thanks!
  13. Sorry. I didn't used the right word. Actually, it worked perfectly! I used Bowmore's script. Here is the final script: #include<Excel.au3> $oExcel = _ExcelBookAttach("Pessoa Fisica.xlsb", "filename") $i = 2 Do $Celula = _ExcelReadCell($oExcel, "E" & $i) If $Celula <> "Não informada" Then $sTemp = StringRegExpReplace($Celula, " ([0-9]{2}\.)", @CRLF & "$1") $aRows = StringSplit($sTemp, @CRLF, 1) If $aRows[0] <> "1" Then $p = 1 $c = 0 Do $oExcel.Application.Range(Chr(Asc("E") + $c) & $i).Select ;Just to watch the script "doing your job". For fun ;D _ExcelWriteCell($oExcel, $aRows[$p], Chr(Asc("E") + $c) & $i) $c = $c + 1 $p = $p + 1 Until $c = $aRows[0] EndIf EndIf $i = $i + 1 Until $i = _ExcelReadCell($oExcel, "E" & $i) = "" ; Just changed one parameter from StringSplit because I needed to know how many arrays was splited. It was about 160,000 Excel's Rows in less than 1 hour. I'm satisfied with the code! Anyway, thanks for the concern!
  14. No. Sometimes starts with 00, 01, 21 etc. Thanks! It worked pretty well! Thanks! Also worked pretty well! --- Thanks everyone!
  15. Hello! I'm still trying to understand how to use StringSplit properly with delimiters (from StringRegExp HelpFile). Like, I want to split this single text: "47.42-3-00 - Comércio varejista de material elétrico 47.53-9-00 - Comércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo 47.54-7-01 - Comércio varejista de móveis" Into this: $Variable[1] = "47.42-3-00 - Comércio varejista de material elétrico " $Variable[2] = "47.53-9-00 - Comércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo" $Variable[3] = "47.54-7-01 - Comércio varejista de móveis" I'm trying to first split by using the numbers, like: 'number' & 'number' & '.' & 'number' & 'number' & '-' & 'number' & '-' & 'number' & 'number' But, don't know how to do it. Any ideas? I won't post any script because still don't have any. I'm still testing some methods.. Tks!
×
×
  • Create New...