Jump to content
Fivewin Brasil

aferra

Membros
  • Posts

    3,691
  • Joined

  • Last visited

  • Days Won

    79

Everything posted by aferra

  1. Ele não lê. hahahahaah, essa faz tempo e já não utilizo, mas não deve ter tido mudanças. enfim. IF(!PCS_StatusExe("nome_do_exe.exe")) // faz o que quer ENDIF **------------------------------------------------------------------------------** ** Finalidade : Verificar se um Programa está em execução **------------------------------------------------------------------------------** FUNCTION PCS_StatusExe(cExecutavel) **------------------------------------------------------------------------------** LOCAL oWmiService,oListaProcess,oProcessos,Wexecutando:=.F. oWmiService=Service_WMI() oListaProcess:=oWmiService:ExecQuery("SELECT * FROM Win32_Process WHERE Name='"+cExecutavel+"'") FOR EACH oProcessos IN oListaProcess Wexecutando:=.t. Next RETURN(Wexecutando) **----------------------------------------------------------** STATIC FUNCTION Service_WMI() **----------------------------------------------------------** STATIC oWmiService LOCAL oScriptObj IF(oWmiService==NIL) oScriptObj=CREATEOBJECT("wbemScripting.SwbemLocator") oWmiService=oScriptObj:ConnectServer() ENDIF RETURN(oWmiService)
  2. Tente dessa maneira. aAdd( aStructure, { "ID" , "+", 11, 0 } )
  3. Fladimir, e ainda tem a divisão que sempre acontece com harbour e senão me engano, já existiu algo parecido e não foi pra frente. concordo com sua linha de raciocínio.
  4. Dependendo do horário, também estou a disposição. mas teria que ver sobre essa atualização senão morre na praia.
  5. Se entendi. teria que usar o botão Order control do pellesc que é o quarto botão depois que abre a dialog.
  6. Meus sentimentos a família e familiares.
  7. Acho que tem que dar permissão para a pasta que fica em arquivos de programas/xdevstudios
  8. Acho que clica com botão direito, opções ( editar, não lembro ) segunda aba e muda a quantidade. espero.
  9. Juntando ao que foi dito. tb acho que é por falta de grandes novidades do fivewin
  10. essa dica irei me aprofundar, ela funciona mas lenta. depois o Navarro mandou de outra forma mas precisa encontrar a lib para funcionar. Obrigado
  11. Ola Marcio, blz? sim assim eu utilizo, a diferença está que uso a ActiveX para mostra na dialog. o que preciso é o retorno do tempo e distancia. e desta maneira não tenho como utilizar pois preciso acumular, em certos momentos, varias entregas. se alguém estiver utilizando dessa maneira e puder compartilhar, agradeço.
  12. Sim, eu tinha visto esses mas não funciona mais. e parece que tem que fazer o cadastro mesmo e ativar a conta com cartão de crédito.
  13. Opa. vc tem algo funcionando que veja o trajeto de um ponto ao outro? se sim manda ai. esse é o novo onde tem que colocar a api key, de outra maneira não está indo. https://maps.googleapis.com/maps/api/distancematrix/json?units=imperial&origins=Washington,DC&destinations=New+York+City,NY&key=YOUR_API_KEY
  14. Bom dia. Alguém consegui usar a nova forma de utilização do google maps com api key ?
  15. 1 - mude para nowait ACTIVATE DIALOG oDlg NOWAIT 2 - faça o fechamento utilizando o GotFocus <objeto_anterior>:bGotFocus := {|| oDlg:End() } P.S. também pode tentar o bLostFocus da própria dialog -> oDlg:bLostFocus := {|| oDlg:End() }
  16. // Fecha o arquivo e Apaga da Memória // acredito que tenha que fazer assim para dar certo dbSelectArea( _DbfTemp[1] ) (_DbfTemp[1])->(DBCLOSEAREA()) DbDrop("MEM:"+Alltrim(_DbfTemp[1])) o alttrim por garantia
  17. e está rodando com o letodb?
  18. ACho que tem que colocar isso no inicio do programaxbrNumFormat("A",.T.)"A" formato americano.T. usar o separador
  19. ACho que tem que colocar isso no inicio do programa xbrNumFormat("A",.T.) "A" formato americano .T. usar o separador
  20. Não existe uma maneira mais simples que o RUN, usando o modo console. quer dizer, nas pesquisas que fiz.
  21. aferra

    RMChart

    Bom dia acredito que aqui seja onde "desossaram" ele http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=17133&p=120891&hilit=rmchart#p120891
  22. tente dessa maneira Fe_Autorizada := objNFeUtil:BuscaNFe2G(pro_siglaWS, pro_tipoAmbiente, pro_NFeAssinada, pro_nRec, pro_nomeCertificado, pro_versao,; pro_msgDados, pro_msgRetWS, @pro_cStat, @pro_msgResultado, @pro_nroProtocolo,; @pro_dhProtocolo, @pro_cMsg, @pro_xMsg, pro_proxy, pro_usuario, pro_senha, pro_licenca)
  23. Grande alviverde, segue If <Alias>->( FieldPos( <nome_do_campo> ) ) # 0 ?"Existe" Else ?"Não existe" Endif
  24. Perguntar de novo, não ofende né :D, está em produção em homologação ?
×
×
  • Create New...