FiveTech Software tech support forums

... de archivo .ini y el propio powershell graba en ese archivo .ini los datos resultantes (enviado/ no enviado) mientras el programa harbour espere con un timeout de 5 o que la seccion resultante haya sido escrita. Realmente funciona muy bien. Un unico .exe multifuncion de python puede ser ...

If MsgGet("Buscador de Labores","Ingrese Nombres :",@cPer ) WaitOn("Espere un momento por favor....",@oWait ) If cPer = Space(30) x := "" Else x := Upper(Alltrim( cPer )) EndIf cWhere := "detalle LIKE '"+x+"%'" ...

... local cPer:= Space( 30 ) local cWhere,oWait,mWhere If MsgGet("Buscador de Labores","Ingrese Nombres :",@cPer ) WaitOn("Espere un momento por favor....",@oWait ) If cPer = Space(30) cWhere := "" Else x := Upper(Alltrim( cPer )) cWhere := "c.detalle ...

... local cPer:= Space( 30 ) local cWhere,oWait,mWhere If MsgGet("Buscador de Labores","Ingrese Nombres :",@cPer ) WaitOn("Espere un momento por favor....",@oWait ) If cPer = Space(30) cWhere := "" Else mWhere := {Upper(Alltrim( cPer ))} cWhere := "c.detalle ...

... := nPosY - nStep @ nPosY, 1 TO MovimientoDialogo // Si llega a la parte superior, detener el temporizador IF nPosY <= 0 CLEAR TIMER WAIT "Espere un momento..." TIMEOUT 1 // Cerrar el formulario RELEASE WINDOW MovimientoDialogo ENDIF RETURN En este ejemplo, se crea un formulario llamado ...

... y/o Eliminar Registro.." Redefine BtnBmp oBtn2[4] Id 104 Resource "BTO_PRINT" Of oDlg 2007; ACTION ( MSGRUN( "Procesando...., espere un momento por favor ", "Usuario" , {|| Print_Producto(cEmpresa,cTab_Art) } ),oBrw:Refresh(),oBrw:Gotop()) Tooltip "Imprime ...

... y/o Eliminar Registro.." Redefine BtnBmp oBtn2[4] Id 104 Resource "BTO_PRINT" Of oDlg 2007; ACTION ( MSGRUN( "Procesando...., espere un momento por favor ", "Usuario" , {|| Print_Producto(cEmpresa,cTab_Art) } ),oBrw:Refresh(),oBrw:Gotop()) Tooltip "Imprime ...

... bar", alguien tendra un ejemplo deAPPEND FROM con PROGRESS BAR, vi uno aqui en el foro pero no logro hacerlo funcionar : MsgRun("Espere importando", "Importacion de Movimientos desde un archivo Excel CSV", { || muestraprogreso(nPercent1,oMtr1) }) FUNCTION muestraprogreso(nPercent1, ...

... para que se verifique la conexión Function IsConexion(lWait) local IsQry,aWait local lConn:= .T. DEFAULT lWait TO .F. TRY If lWait WaitOn("Espere, Comprobando conexion....",@await ) EndIf IsQry:= oServer:Query("Select 1") IsQry:End() If lWait WaitOff( @aWait ) Endif CATCH ...

... } ) oBrw:CreateFromCode() oWnVta:oClient := oBrw y para refrescar la consulta uso asi Static Procedure MyRefresh() local oWait WaitOn("Espere, cambiando consulta...",@oWait ) IsConexion() TRY oQry:Refresh() oBrw:MakeTotals() oBrw:Refresh() CATCH oErr END WaitOff( @oWait ) Return ...

... local cdia,cCompra,cVenta,lDia:=.F. WaitOn("Espere, Iniciando conexion ...",@oWait ) SysRefresh() HB_GCALL( .F. ) TRY oIE:=CreateObject("InternetExplorer.Application") CATCH oer ...

... ) ) ⋅ y para recuperarlo lo hago de la siguiente forma: MsgRun( "Guardando documento a archivo...", "Espere por favor", {|| nSize := StrFile( HB_HexToStr( oQryTmp:ARCHIVO ), cFileExtract ) } ) en tu caso podrias usarlo ::oImagen:LoadFromString( ...

... xServer: Update( "tab_art", aCampos, aValues, aWhere ) Endif MSGRUN( "Procesando...., espere un momento por favor ", "Usuario" , {|| SetDolphin( oBrw, cTab_Art,.f. ) } ) cTab_Art:Refresh() oBrw:SetFocus() oBrw:Refresh() ...

... -hlocalhost -uroot -p91502127 SiaWinTH > C:\TONER HOUSE 2017 SiaWinTCFDI\Respaldos\SiaWinTH_20191204_134259.Sql  Y lo ejecuto con MsgRun("Espere un momento por favor, estoy haciendo el respaldo... !",oApp:cAplicacion,{||CursorWait(),WaitRun(cFileBat, 0 )}) No se ejecuta correctamente. ...

... )+"_"+AtRepl( "/", DtoC(Date()), "" )+".zip" MSGRun( "Generando ventas , espere por favor...",; "Creando... " ,; {||oConVentas:Backup( aSelect, cFileDescargas , lDrop )} ) lOk := HB_ZipFile( cFileDescargas1, ...