-
Posts
377 -
Joined
-
Last visited
-
Days Won
2
Everything posted by VLNUNES
-
Olá mamp; Se você estiver tentando enviar tendo como remetente o e-mail "macedomarcos@hotmail.com" realmente não envia. Veja aqui http://www.google.com.br/search?hl=pt-BR&source=hp&q=configurar+hotmail+no+outlook&meta=&rlz=1R2GZEF_pt-BRBR348&aq=3&oq=configurar+ Vander PS. Você quer é enviar log de erro ? Se for, eu uso também uma solução que o evandro postou em dicas com algumas "adaptações". Se for o caso, posso postar aqui. HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit
-
Olá mamp; Eu uso assim (copiado de dicas) e funciona com Outlook Express (XP) e com o Webmail (Vista) cSubject = "Arquivo de erro" cNoteText = "Arquivo de erro do sistema da empresa "+FIRMA+" em anexo..." cMsgType = nil cConversationID = nil dDate = Date() cTime = Time() lReceipt = .F. lFromUser = .T. aOrigin = {} aRecipients = {"seuemail@provedor.com.br"} // Destinatário aFiles = { erro.log } // Anexo a ser enviado oMail:=TMail():New(cSubject,; cNoteText,; cMsgType ,; cConversationID ,; dDate,; cTime,; lReceipt,; lFromUser,; aOrigin,; aRecipients,; aFiles) activate mail oMail Se for para enviar arquivo TXT e quizer enviar no corpo do e-mail e não em anexo, eu adaptei uma rotina que funciona bem, se for o caso posso postar aqui. Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit
-
Olá; Veja se ajuda http://www.fivewin.com.br/exibedicas.asp?id=692 Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Aqui; http://www.google.com.br/search?hl=pt-BR&source=hp&q=outlook+com+o+hotmail&btnG=Pesquisa+Google&meta=lr%3Dlang_pt&aq=null&oq= Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Se você quer tirar a “setinha†devido ao espaço que ela acupa, você pode tentar a opção que eu uso. NOTA: 40,20 é a posição onde o menu popup será exibido. ... ... DEFINE BUTTON oBt1 OF oBar1 Group NOBORDER RESOURCE "cadas" ACTION MENUCAD(oWnd) ... ... ... FUNCTION MENUCAD(oWnd) Local oMenu MENU oMenu POPUP SEPARATOR MENUITEM "11111111111" ACTION funcao1() SEPARATOR MENUITEM "22222222222" ACTION funcao2() MENUITEM "33333333333" ACTION funcao3() SEPARATOR ENDMENU ACTIVATE POPUP oMenu At 40, 20 Of oWnd Return Nil FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Eu faço assim e sempre funciona certinho... IF VereficaNet()=.T. msginfo("conecção ok") else msginfo("sem conecção") endif //--------------------- TESTAR CONECÇÃO Function VereficaNet( cAddress ) LOCAL aHosts LOCAL cName InetInit() IF cAddress == NIL cAddress := "www.google.com.br" ENDIF aHosts := InetGetHosts( cAddress ) IF aHosts == NIL .or. len(aHosts)=0 InetCleanup() RETURN .f. endif InetCleanup() RETURN .t. FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Olá ICO; Testei aqui e funcionou normalmente. Fiz Assim: .. .. .. DEFINE FONT oFontAC3 NAME "LUCIDA CONSOLE" SIZE 0,-(12*1.33) cMsg:="ND Sistemas (31)9945 5722" DEFINE DIALOG TELAPRICLI2 RESOURCE "TCLIENTE1" Redefine Say oSayT_0 PROMPT "...:: CADASTRAR CLIENTE ::..." ID 1 Update FONT oFontAC2 COLOR RGB (0,0,0),RGB (216,216,191) REDEFINE GET zNOMEDOCLI VAR xNOMEDOCLI ID 102 PICTURE "@K!" VALID !EMPTY(xNOMEDOCLI) FONT oFontAC3 zNOMEDOCLI:cMsg:="Informar o nome do cliente..." REDEFINE GET zENDERECLI VAR xENDERECLI ID 103 PICTURE "@K!" WHEN !EMPTY(xNOMEDOCLI) FONT oFontAC3 zENDERECLI:cMsg:="Informar o endereço do cliente..." .. .. .. zNOMEDOCLI:bGotFocus:= {|o| o:SelectAll()} zENDERECLI:bGotFocus:= {|o| o:SelectAll()} .. .. .. REDEFINE BUTTON ID 115 CANCEL ACTION SALVACLI("NO",TTP) WHEN !EMPTY(xNOMEDOCLI) REDEFINE BUTTON ID 116 CANCEL ACTION TELAPRICLI2:End() ACTIVATE DIALOG TELAPRICLI2 CENTERED on init statusbar( TELAPRICLI2 , cmsg ) oFontAC3:END() .. .. .. RETURN .T. //---------------------// function statusbar( oDlg, cMsg ) set message of Odlg to cMsg noinset centered FONT oFontAC3 // centraliza normal return nil Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Função para obrigar a digitaçao antes de gravar?
VLNUNES replied to MARSAN's topic in Programação
Faço +- assim: cCODI:=0 cNOME:=space(50) cENDE:=space(80) REDEFINE GET zCODI VAR cCODI ID 101 VALID VER_TEM(cCODI) FONT oFont1 REDEFINE GET zNOME VAR cNOME ID 102 WHEN cCODI > 0 FONT oFont1 REDEFINE GET zENDE VAR cENDE ID 122 WHEN !EMPTY(cNOME ) FONT oFont1 REDEFINE BUTTON ID 123 cancel ACTION GRAVACLNO() WHEN !EMPTY(cENDE) a função VER_TEM() é só para testar o código se não esta repetido. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit -
Função para obrigar a digitaçao antes de gravar?
VLNUNES replied to MARSAN's topic in Programação
Não sei se é o ideal, mas eu uso o esquema de liberação individual dos gets assim: o 1º get libera o 2º o 2º get libera o 3º e a assim por diante e o último get libera o botão gravar dados. Espero ter ajudado... Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit -
Confirmo minha presença. Até lá... Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Talvez sirva para alguém. http://www.tecdom.com.br/blog/2009/04/17/listando-todos-os-arquivos-abertos-por-um-determinado-programa/ http://www.tecdom.com.br/blog/2009/04/16/capturar-somente-o-ip-sem-lixo/ http://www.tecdom.com.br/blog/2009/05/01/lista-de-variaveis-de-ambiente-do-windows/ http://www.tecdom.com.br/blog/2009/02/28/recovery-console-disco-de-boot-com-prompt-para-windows-xp/ Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit Editado por - vlnunes on 04/05/2009 23:49:51
-
Talvez sirva para alguém. http://www.tecdom.com.br/blog/2009/04/17/listando-todos-os-arquivos-abertos-por-um-determinado-programa/ http://www.tecdom.com.br/blog/2009/04/16/capturar-somente-o-ip-sem-lixo/ http://www.tecdom.com.br/blog/2009/05/01/lista-de-variaveis-de-ambiente-do-windows/ http://www.tecdom.com.br/blog/2009/02/28/recovery-console-disco-de-boot-com-prompt-para-windows-xp/ Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit Editado por - vlnunes on 04/05/2009 23:49:51
-
Dia 30/05 perfeito, é só escolher o local. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit Editado por - vlnunes on 04/05/2009 18:56:55
-
No WinRar Olá; Vá em Opções Configurações na aba Compressão Criar padrão Tamanho do arquivo em bytes Espero que ajude Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Texto em dicas do site pctoledo ( www.pctoledo.com.br/col_dic.htm#ind7 ) O RDD DBFCDX Esse RDD permite a criação e manutenção de arquivos de dados e Ãndices do FoxPro2. Principais caracterÃsticas: Os Ãndices .CDX do FoxPro são bem menores do que os .NTX criados pelo Clipper. Cria Ãndices condicionais através das cláusulas FOR, WHILE, REST e NEXT. Cria arquivos de Ãndices compostos que contém até 99 subÃndices ou TAGS em um único arquivo reduzindo, assim, o número de arquivos abertos em nÃvel do DOS. Como o Clipper permite apenas 15 arquivos associados e abertos com a área atual, o uso dos arquivos CDX permite a abertura de mais arquivos de Ãndices sem sobrecarregar o número de arquivos que o DOS manipula. Para que o RDD DBFCDX funcione corretamente, devem ser seguidos os seguintes passos: 1 - Acrescente as linhas abaixo no inÃcio do seu programa principal: REQUEST DBFCDX RDDSETDEFAULT("DBFCDX") 2 - Para criar os arquivos de Ãndices, você deve usar o seguinte comando: SELECT 1 USE CLIENTES INDEX ON codigo TAG indice1 TO cliente1 INDEX ON nome TAG indice2 TO cliente1 Observe que cada campo chave tem um TAG diferente (indice1 e indice2), mas todos estão sendo direcionados para um mesmo arquivo (cliente1), com isto será criado um arquivo de Ãndice chamado CLIENTE1.CDX, com dois subÃndices, um indexado pelo código do cliente e outro pelo nome do cliente. 3 - Para mudar a ordem em um arquivo de Ãndice CDX, você deve proceder da seguinte forma: ORDSETFOCUS("INDICE2") Com este comando você vai selecionar o subÃndice "INDICE2", que está indexado pelo campo nome do cliente. ORDSETFOCUS("INDICE1") Retorna ao subÃndice principal, que está indexado pelo campo código do cliente. Se o comando ORDSETFOCUS( ) não for especificado, a ordem será sempre a do primeiro subÃndice criado, neste caso será o indice1, pelo código. 4 - Para linkar um programa com o RDD DBFCDX, deve ser acrescentada a LIB DBFCDX durante o processo de linkagem: RTLINK FI teste LIB DBFCDX 5 - Os comandos abaixos continuam sendo usados da mesma forma: SET INDEX TO - Abre um arquivo de Ãndice. CLOSE ALL - Fecha todos os arquivos de dados e Ãndices associados. - Nota ----------------------------------------------------- Antes de reindexar, elimine os arquivos antigos. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Acho que não tem como, pois você teria de acessar o Gerenciador de tarefas do Windows de outra máquina. Mas veja com o Maligno (forum pctoedo.com.br) ele tem uma biblioteca do API do windows com muitas funções. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Veja em http://www.fivewin.com.br/exibedicas.asp?id=976 Exemplo: .. .. DEFINE BUTTON oBt1 OF OBAR NOBORDER RESOURCE "cliente","subicon" ACTION CLIENTES() oBt1:cToolTip := "Cadastro de clientes." oBt1:lToolTipBallon := .t. oBt1:nTooltipTexColor := rgb(0,0,0) oBt1:nTooltipBKColor := rgb(255,232,232) oBt1:cTooltipTitle := "CLIENTES" oBt1:nTooltipIcon := 1 .. .. A modificação não foi feita por mim, é de alguém deste forum, só não me lembro de quem pois, no cabeçalho do arquivo não tem os créditos da alteração. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Eu estava com um problema semelhante e resolvi (+-) assim: declarei o elemento (get) uma única vês e alterei o texto oGt01:"Novo Texto" oGt01:Refresh() Vou procurar a forma correta e informar, mas faça o teste Vander Editado por - VLNUNES on 12/02/2009 11:29:25
-
GeraWin, Tente também a LIB WAPI também do amigo Maligno que não só pode desabilitar o botão X, como também fazer sumir o Ãtem de menu que encerra a sessão DOS. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Amigo GeraWin, Tente o BUTTONX.EXE do amigo Maligno http://www.buzinello.com/pub/xbase/clipper/sources/button_x.zip O programa BUTTONX.EXE é um programa de linha de comando e serve para desabilitar o botão X das janelas. Execute-o por linha de comando no DOS e veja o resultado. A sintaxe é BUTTONX OFF para desabilitar e BUTTONX ON para reabilitar Pode usar em qualquer versão do Clipper. E também em Pascal, COBOL, DataFlex, etc. Esses recursos utilizam um programa executável à parte para acessar os recursos da API do Windows. Portanto, funcionam com qualquer ferramenta que permita chamar o interpretador de comandos do DOS. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Concerto não sei, mas conserto... http://fivewin.com.br/forum/topic.asp?TOPIC_ID=7923 http://fivewin.com.br/forum/topic.asp?TOPIC_ID=6765 http://fivewin.com.br/forum/topic.asp?TOPIC_ID=6639 http://fivewin.com.br/forum/topic.asp?TOPIC_ID=6063 http://fivewin.com.br/forum/topic.asp?TOPIC_ID=4499 http://fivewin.com.br/forum/topic.asp?TOPIC_ID=202 Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
exibir dados de um dbf em um listbox(Resolvido)
VLNUNES replied to Anthony Ormond's topic in Programação
Tente Browse("") Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit -
No site do Maligno www.pctoledo.com.br tem estes arquivos. cadastro_de_municipios_brasileiros.zip ceps_brasil_fev-2007_mdb_maiusculas_sem_acentos.zip ceps_brasil_fev-2007_mdb_original.zip ceps_brasil_jun-2008_mdb_original.zip http://pub.buzinello.com/index.php?d=./data/ Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Amigo Gilmer; Respondido por E-Mail por se tratar em parte de um assunto pessoal. Nota aos demais menbros: A minha resposta não foi ofensiva e nem de discordância, apenas trato de um assunto relativo a vida pessoal, por isso responde por E-Mail. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
-
Amigo Kapiaba; Posso estar falando besteira, pois não tenho muito conhecimento, mas já tentou Transform()? Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit