VLNUNES

Olá Adalberto; eu faço assim e funciona legal, .. .. .. REDEFINE LISTBOX oLbxs1 FIELDS AGENDAS->(DTOC(DATAAGEN)) , AGENDAS->DIASEMAN , AGENDAS->RESERVAP , AGENDAS->INICIORE , AGENDAS->FINALRES ID 101 ; HEADERS "DATA","DIA SEMANA","RESERVA PARA","INÃCIO","FINAL" OF TELCLIE FONT oFontL1Z COLOR RGB (0,0,0),RGB (192,192,192) oLbxs1 :aActions:={ {||cQualInd3("1")},,{||cQualInd2("3")}} // NESTE CASO ORDENA POR DATA (1) OU RESERVA PARA (3) .. .. //------------------------------- ORDENAR PELO CABEÇALHO FUNCTION cQualInd3(Cind) if Cind = "1" ORDSETFOCUS("AGEN1") elseif Cind = "3" ORDSETFOCUS("AGEN2") ENDIF GO TOP oLbxs1 : SetFocus() oLbxs1 : Refresh() return .t. Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Estas estavam em dicas 1ª - voget //-------------------- voget.ch --------------------------------- // Alteramos apenas o nome da classe tget -> VotGet //---------------------- Início da voget.ch ----------------------------------------------------// /*----------------------------------------------------------------------------// !short: GET */ #xcommand REDEFINE GET [ VAR ] ; [ ID ] ; [ ] ; [ ] ; [ VALID ] ; [ PICTURE ] ; [ [,] ] ; [ FONT ] ; [ CURSOR ] ; [ MESSAGE ] ; [ ] ; [ WHEN ] ; [ ON CHANGE ] ; [ ] ; [ [ON UP ] [ON DOWN ] [MIN ] [MAX ] ] ; => ; [ := ] VoTGet():ReDefine( , bSETGET(), ,; , , <{ValidFunc}>, , ,; , , , <.update.>, <{uWhen}>,; [ \{|nKey,nFlags,Self| \}], <.readonly.>,; <.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}>) #command @ , GET [ VAR ] ; [ ] ; [ PICTURE ] ; [ VALID ] ; [ [,] ] ; [ SIZE , ] ; [ FONT ] ; [ ] ; [ CURSOR ] ; [ ] ; [ MESSAGE ] ; [ ] ; [ WHEN ] ; [ ] ; [ ] ; [ ON CHANGE ] ; [ ] ; [ ] ; [ ] ; [ ] ; => ; [ := ] VoTGet():New( , , bSETGET(),; [], , , , <{ValidFunc}>,; , , , <.design.>,; , <.pixel.>, , <.update.>, <{uWhen}>,; <.lCenter.>, <.lRight.>,; [\{|nKey, nFlags, Self| \}], <.readonly.>,; <.pass.>, [<.lNoBorder.>], ) #command @ , GET [ VAR ] ; [ ] ; [ PICTURE ] ; [ VALID ] ; [ [,] ] ; [ SIZE , ] ; [ FONT ] ; [ ] ; [ CURSOR ] ; [ ] ; [ MESSAGE ] ; [ ] ; [ WHEN ] ; [ ] ; [ ] ; [ ON CHANGE ] ; [ ] ; [ ] ; [ [ON UP ] [ON DOWN ] [MIN ] [MAX ] ] ; => ; [ := ] VoTGet():New( , , bSETGET(),; [], , , , <{ValidFunc}>,; , , , <.design.>,; , <.pixel.>, , <.update.>, <{uWhen}>,; <.lCenter.>, <.lRight.>,; [\{|nKey, nFlags, Self| \}], <.readonly.>,; .f., .f., ,; <.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}> ) //------------------------- fim da voget.ch ----------------------------------------------------// //---------------------- Início da voget.prg ---------------------------------------------------// #Include "FiveWin.CH" Class VoTget From TGet // Herdando todas as caracteiras da classe TGet Data nClrForeFocus INIT CLR_WHITE // --\ Novas propriedade Data nClrBackFocus INIT CLR_BLUE // --/ Data nOldClrFore Data nOldClrBack Method GotFocus() // -----------\ Ambos metodos j existem, mas faremos Method LostFocus( hCtlFocus)//-----/ algumas alteracoes na sua funcionalidade padrao EndClass Method GotFocus() Class VoTGet If ::nClrForeFocus!=Nil.and.::nClrBackFocus!=Nil // utiliza metodo o qual foi herdado da class tget ::nOldClrFore:=::nClrText ::nOldClrBack:=::nClrPane ::SetColor(::nClrForeFocus,::nClrbackFocus) End // Super-> faz o metodo continuar seu processo normal Return Super:GotFocus() Method LostFocus( hCtlFocus) Class VoTGet If ::nClrForeFocus!=Nil.and.::nClrBackFocus!=Nil // utiliza metodo o qual foi herdado da class tget e tambem as propriedade // que contem a informacao da cor do controle ::SetColor(::nOldClrFore,::nOldClrBack) End // Super-> faz o metodo continuar seu processo normal Return Super:LostFocus( hCtlFocus) 2ª CORGET CORGET.CH // Alteramos apenas o nome da classe tget -> CORGET //---------------------- Início da corget.prg --------------------------------------------------// #Include "FiveWin.CH" // Ednaldo Inclua este programa em seu *.rmk e *.lnk. #Define CLR_VERMELHO nRGB(255,000,000) //--> Vermelho Para o Fundo #Define CLR_AMARELO nRgb(255,255,000) //--> Amarelo Para a Letra Class CorGet From TGet // Herdando todas as caractisticas da classe TGet Data nClrForeFocus INIT CLR_AMARELO // --> Nova Cor Para Letras Data nClrBackFocus INIT CLR_VERMELHO // --> Nova Cor Para o Fundo Data nOldClrFore Data nOldClrBack Method GotFocus() // -----------> Ambos metodos j existem, mas faremos Method LostFocus( hCtlFocus)//-----> algumas alteracoes na sua funcionalidade padrao EndClass Method GotFocus() Class CorGet If ::nClrForeFocus!=Nil.and.::nClrBackFocus!=Nil // utiliza metodo que foi herdado da class tget ::nOldClrFore:=::nClrText ::nOldClrBack:=::nClrPane ::SetColor(::nClrForeFocus,::nClrbackFocus) Endif // Super-> faz o metodo continuar seu processo normal Return Super:GotFocus() Method LostFocus( hCtlFocus) Class CorGet If ::nClrForeFocus!=Nil.and.::nClrBackFocus!=Nil // utiliza metodo que foi herdado da class tget e ; // tambem as propriedades // que contem a informacao da cor do controle ::SetColor(::nOldClrFore,::nOldClrBack) Endif // Super-> faz o metodo continuar seu processo normal Return Super:LostFocus( hCtlFocus) //---------------------- Fim da corget.prg -----------------------------------------------------// Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Se não me engano a função do Kapiaba é esta: //------------------ VERIFICA SE UMA DATA É FERIADO NACIONAL Function feriados( dData ) Local cAno := Right( DToC( dData ), 4 ) Local aFeriados := {} Local c, d, n, k, i, j, l, m, dCarnaval, dCorpus, dPascoa, dSexta aAdd( aFeriados, CToD( "01/01/" + cAno ) ) // Confraternizacao Mundial aAdd( aFeriados, CToD( "21/04/" + cAno ) ) // Tiradentes aAdd( aFeriados, CToD( "01/05/" + cAno ) ) // Trabalho aAdd( aFeriados, CToD( "07/09/" + cAno ) ) // Independencia aAdd( aFeriados, CToD( "12/10/" + cAno ) ) // Nra. Sra. Aparecida aAdd( aFeriados, CToD( "02/11/" + cAno ) ) // Finados aAdd( aFeriados, CToD( "15/11/" + cAno ) ) // Proclamação da Republica aAdd( aFeriados, CToD( "25/12/" + cAno ) ) // Natal //--------- Calcula os feriados moveis -----------------------------\\ // Cuidado ao mexer aqui, pois e aqui que é feito o calculo // para encontrar a data da Páscoa, pois e apartir da mesma // que se é calculado os outros feriados moveis. // Me baseie no Calendário da "Lua Eclesiástica" e no calculo // estabelecido por Gregorio no ano 325 Dc. c := Int( Val( cAno ) / 100 ) n := Int( Val( cAno ) - ( 19 * Int( Val( cAno ) / 19 ) ) ) k := Int( ( c - 17 ) / 25 ) i := Int( c - Int( c / 4 ) - Int( ( c - k ) / 3 ) + ( 19 * n ) + 15 ) i := Int( i - ( 30 * Int( i / 30 ) ) ) i := Int( i - ( Int( i / 28 ) * ( 1 - Int( i / 28 ) ) * Int( 29 / ( i + 1 ) ) * Int( ( 21 - n ) / 11 ) ) ) j := Int( Val( cAno ) + Int( Val( cAno ) / 4 ) + i + 2 - c + Int( c / 4 ) ) j := Int( j - ( 7 * Int( j / 7 ) ) ) l := Int( i - j ) m := Int( 3 + Int( ( l + 40 ) / 44 ) ) d := Int( l + 28 - ( 31 * Int( m / 4 ) ) ) dPascoa := CtoD( StrZero( d, 2 ) + "/" + StrZero( m, 2 ) + "/" + cAno ) //O Carnaval sempre acontecera 47 dias antes da Pascoa. dCarnaval := ( dPascoa - 47 ) //O Corpus Christi sempre será 60 dias após a Pascoa dCorpus := ( dPascoa + 60 ) //A Sexta-Feira santa dSexta := ( dPascoa - 2 ) aAdd( aFeriados, dCarnaval ) aAdd( aFeriados, dCorpus ) aAdd( aFeriados, dPascoa ) aAdd( aFeriados, dSexta ) If aScan( aFeriados, dData ) # 0 Return(.T.) EndIf Return(.F.) 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á Ico; Acho que com "RAT" dá para separar, já tentou ? 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á Everton; É porque no seu cadastro está "evertonlb@gmail.com.br" Favor efetuar a correção. Vou enviar novamente. Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit Editado por - VLNUNES on 13/03/2010 22:51:41

Olá; citação:... o provedor é hotmail. Como que configuro os parametros de smtp, pop, to, port, etc... id=quote>id=quote>Se não for contra as regras posso informar como burlar o hotmail para poder usar o outlook. 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á Rone; O E-Mail esta sendo recusado. citação:This is an automatically generated Delivery Status Notification. Delivery to the following recipients failed. rone_jesus@hotmail.com.br Reporting-MTA: dns;col0-mc1-f20.Col0.hotmail.com Received-From-MTA: dns;mail1.click21.com.br Arrival-Date: Sat, 13 Mar 2010 16:32:32 -0800 Final-Recipient: rfc822;rone_jesus@hotmail.com.br Action: failed Status: 5.5.0 Diagnostic-Code: smtp;550 Requested action not taken: mailbox unavailable (-853714248:3357:-2147467259) id=quote>id=quote>Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Enviei para o seu E-Mail um exemplo que eu baixei aqui no forum mesmo (mas não me lembro onde, se em dias ou se copiei em algum post) e alterei algumas coisa. 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á Marcelo; Faça uma busca por incremental que tem muitos exemplos. 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á sambomb; Dê uma olhada em http://pcdsh01.on.br/ 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á Narlem; Veja se isso http://www.fivewin.com.br/forum/topic.asp?whichpage=1&ARCHIVE=&TOPIC_ID=12387 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á; Se for Win 7 64 não dá, mas se for 32 não sei se funciona, mas tente assim no BAT decompilação. SET CLIPPER=E0;F150 SET INCLUDE=C:\CLIP52\INCLUDE;C:\CLIP52\INCLUDE SET LIB=C:\CLIP52\LIB;C:\CLIP52\LIB SET OBJ=C:\CLIP52\OBJ;C:\CLIP52\OBJ SET PLL=C:\CLIP52\PLL SET TEMP=C:\TEMP SET TMP =C:\WINDOWS\TEMP PATH=C:\CLIP52\BIN;C:\WINDOWS;C:\WINDOWS\COMMAND;C:\CLIP52\BIN Alterando os caminhos de acordo com a sua instalação. 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á a todos; Em meu município está entrando em vigor a Nota Fiscal Eletrônica de Serviços modelo ABRASF, tenho os modelos "schemas" para envio, porém não sei por onde começar. Minhas dúvidas são: Como transferir para o XML as informações que deveram ser enviadas para a prefeitura ? Como realizar a comunicação para transferência do arquivo XML ? Nota: A solução do Gilmer não funciona para NFES. Nunca trabalhei com sistema fiscal, pois só tenho clientes prestadores de serviço, só que agora eles também serão obrigados a emitir NFE. Se alguém puder me ajudar; desde já agradeço. 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á a todos; Em meu município está entrando em vigor a Nota Fiscal Eletrônica de Serviços modelo ABRASF, tenho os modelos "schemas" para envio, porém não sei por onde começar. Minhas dúvidas são: Como transferir para o XML as informações que deveram ser enviadas para a prefeitura ? Como realizar a comunicação para transferência do arquivo XML ? Nota: A solução do Gilmer não funciona para NFES. Nunca trabalhei com sistema fiscal, pois só tenho clientes prestadores de serviço, só que agora eles também serão obrigados a emitir NFE. Se alguém puder me ajudar; desde já agradeço. 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á; Em dicas http://www.fivewin.com.br/exibedicas.asp?id=519 Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Tá na conta lsmarco2008@gmail.com 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á Luciano; Tenta o seguinte, em propriedades / compatibilidade executar em compatibilidade com windows xp sp2 / sp3 e marque a caixa executar como administrador. Em muitos programas dá certo, creio que com o xDEV também deve funcionar. Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Se entendi, pode ser feito sem BAT Eu faço assim antes de executar o(s) comandos if file("KillProc.exe") waitrun("KillProc.exe arquivo.exe" ,1) endif depois de executar o(s) comandos WINEXEC("arquivo.EXE",0) Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Veja estas dicas http://www.fivewin.com.br/exibedicas.asp?id=608 http://www.fivewin.com.br/exibedicas.asp?id=543 http://www.fivewin.com.br/exibedicas.asp?id=402 Uso estes exemplos adaptados para gravar em pasta específica no formato JPG. Qalquer coisa é só "falar" Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

E-Mail Errado* Quando o homem chegou e foi para seu quarto no hotel, viu que havia um computador com acesso à internet, então decidiu enviar um e-mail à sua mulher, mas errou uma letra, e, sem se dar conta, o enviou a outro endereço (outra pessoa)... O e-mail foi recebido por uma viúva que acabara de chegar do enterro do seu marido e que, ao conferir seus e-mails, desmaiou instantaneamente. O filho, ao entrar em casa, encontrou sua mãe desmaiada, perto do computador, em que na tela podia-se ler: Querida esposa: Cheguei bem. Provavelmente se surpreenda em receber noticias minhas por e-mail, mas agora tem computador aqui e pode-se enviar mensagens às pessoas queridas. Acabo de chegar e já me certifiquei que já está tudo preparado para quando você chegar na sexta que vem. Tenho muita vontade de te ver e espero que sua viagem seja tão tranqüila como está sendo a minha. PS: Não traga muita roupa, porque aqui faz um calor infernal.... HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

E-Mail Errado* Quando o homem chegou e foi para seu quarto no hotel, viu que havia um computador com acesso à internet, então decidiu enviar um e-mail à sua mulher, mas errou uma letra, e, sem se dar conta, o enviou a outro endereço (outra pessoa)... O e-mail foi recebido por uma viúva que acabara de chegar do enterro do seu marido e que, ao conferir seus e-mails, desmaiou instantaneamente. O filho, ao entrar em casa, encontrou sua mãe desmaiada, perto do computador, em que na tela podia-se ler: Querida esposa: Cheguei bem. Provavelmente se surpreenda em receber noticias minhas por e-mail, mas agora tem computador aqui e pode-se enviar mensagens às pessoas queridas. Acabo de chegar e já me certifiquei que já está tudo preparado para quando você chegar na sexta que vem. Tenho muita vontade de te ver e espero que sua viagem seja tão tranqüila como está sendo a minha. PS: Não traga muita roupa, porque aqui faz um calor infernal.... HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit

Olá DonJuan; Acho que assim da pra começar. USE BENS ALIAS _CC FOR X=1 TO _CC->( FCOUNT() ) CAMPOS := fieldname(x) xVAR="z"+CAMPOS /* Aqui Testar tipo Testar tamnho e decimal (se numérico) etc... */ msginfo(xVAR,"" next 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á gbsilva; Reinventando a roda. Herdado de um sistema em Clipper //------------------------ SEPARAR NOMES FUNCTION FilePath( cFile ) LOCAL nPos, cFilePath IF (nPos := RAT("\", cFile)) != 0 cFilePath = SUBSTR(cFile, 1, nPos) ELSE cFilePath = "" ENDIF RETURN (cFilePath) 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á kapiaba; Na verdade não é MP3 e sim WAV renomeado. Bom dia, Boa tarde e Boa noite aqui http://www.ndsistemas.com/SONS2/SONS.rar 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á kapiaba; Não sei se vai ajudar, mas eu uso assim. if time() < "12:01" SndPlaySound("SALDAR\BDIA.MP3") endif if time() > "12:00" .and. time() < "18:01" SndPlaySound("SALDAR\BTARDE.MP3") endif if time() > "18:00" .and. time() < "23:59" SndPlaySound("SALDAR\BNOITE.MP3") endif Funciona no Win XP/Vista, não testei no Win 7 Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit