Luiz Arruda (ICO)

Bom Dia Geraldo.. Para a cor do say ao invés de usar variaveis para as cores coloque NRG REDEFINE SAY oSay[1] VAR oCpo:empresa ID 201 OF oFld:aDialogs[1] ; COLOR NRGB(0,0,0),nrgb(240,230,140) id=code>id=code>Para o posicionamento da data eu não sei responder porque eu monto o browse diferente de você, mas acho que é a mesma coisa. oLbx := TXBrowse():New( oDlgDoc ) @ 4,2 XBROWSE olbx OF odlgDoc SIZE 350,100; AUTOSORT AUTOCOLS FOOTERS FASTEDIT LINES CELL oLbx:cAlias := "Arq" olbx:nMarqueeStyle := MARQSTYLE_HIGHLCELL olbx:nColDividerStyle := LINESTYLE_BLACK olbx:nRowDividerStyle := LINESTYLE_BLACK olbx:lColDividerComplete := .t. olbx:nStretchCol := STRETCHCOL_LAST olbx:l2007 := .F. oCol:= oLbx:AddCol() oCol:bStrData := { || Arq->ADMISSAO } oCol:cHeader := "ADMISSAO" oCol:nWidth := 100 ocol:bClrStd := {|| { CLR_BLACK , nRGB(245, 243, 242) } } ocol:nDataStrAlign := AL_RIGHT ocol:nHeadStrAlign := AL_RIGHT id=code>id=code>Veja esse exemplo que fiz rápidinho pra vc. Veja se ajuda... Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

Quanto aos SPAMs, se foi pedido para ser excluido da lsita.. faça um BMP "Eu não quero mas receber suas mensagens.. por favor exclua-me de sua lista de contados" baixe um programa de envio de email ou o outlook mesmo.. "responda" de volta pelo uma 300 vezes a cada email que receber... facim facim.. SPAM X SPAM.. vai atrapalhar o cara de ler se tem alguém interessado no sistema dele ou não e vai acabar excluindo vc. da lista.. eu mesmo recebo diariamente.. o que não interessa {X]="excluir" .. Não sou advogado de ninguém mas.. Que spam enche o saco isso enche.. mas porque também não reclamamos para as empresas que insistem em bombardar a nossas caixas todo dia ?? há tá é que elas não abrem email e as vezes nem recebem "respostas" elas mandam links de sites para vermos os produtos.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

Boa Tarde.. Voce pode fazer assim Local oBrush, oBmp Define Brush oBrush File("Imagem.BMP") que pode ser JPG tb. Define Window oWnd .... Brush oBrush Ou assim Fundo = endereço da imagem em um DBF @03,03 IMAGE OIMAGE FILE("&cFundo") OF OWND SIZE 1000,619 ADJUST NOBORDER Ou ainda @03,03 Bitmap OIMAGE FILE("&cFundo") OF OWND SIZE 1000,619 ADJUST NOBORDER id=code>id=code>PS:Quando voce for perguntar, crie um tópico especifico para o problema... por exempo, este aqui era para saber sobre MENU.. Voce ainda pode fazer uma busca na pagina principal colocando o assundo em "busca" que vai chover de exemplos.. Clique no link ai de baixo e digite "plano de fundo" na caixa.. http://www.fivewin.com.br/forum/search.asp PS2:= este link ai está na pagina principal lá em cima no canto direito "busca" Se não conseguir nada na busca ou não conseguir entender os exemplos pode perguntar aqui.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

Seja Bem vindo ao Forum.. Veja esse exemplinho ProceDure Meumenu() Local oMenu Menu oMenu 2007 MenuItem "Opção A" Menu MenuItem "Opçao A1" FileName "Alert.bmp" Action Opcao1(1) MenuItem "Opção A2" FileName "Bottom2.bmp" Action Opcao1(2) EndMenu MenuItem "Opção B" Menu MenuItem "Opçao B1" FileName "Calc.bmp" Action Opcao3() MenuItem "Opção B2" FileName "Computer.bmp" Action Opcao4() EndMenu MenuItem "Saida" Action oWnd:end() EndMenu Return(oMenu) Func Opcao1(oop) If oop == 1 MsgInfo("Estou na Opção 1 do Menu A","Opçao A") ElseIf oop == 2 MsgInfo("Estou na Opção 2 do Menu A","Opçao A") endif Return(.t.) Func Opcao3() MsgInfo("Estou na Opção 1 do Menu B","Opcao B") Return(.t.) Func Opcao4() MsgInfo("Estou na Opção 2 do Menu B","Opcao B") Return(.t.) id=code>id=code>Vou mandar o EXE pra você ver.. confira seu email ; vitormolina@gmail.com Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Editado por - ico on 16/01/2012 17:01:12

Rio de Janeiro.. Já Tô indo lá escolher o short de banho.. A mulher já falou: enquanto vc. vai pro encontro, eu espero na praia com as crianças.. he! he! Esse ano eu vou.. \id=black>o/id=red> Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

citação:até mesmo cada um que pagou a inscricao.. tem o direito de solicitar a devolucao do dinheiro.. já que nao foi utilizado no evento. vitor s.b.c. id=quote>id=quote>Desculpem.. não participei mas discordo desta colocação.. O dinheiro foi sim utilizado no evento, pelo que sei alguns tiraram do próprio bolso para que o evento acontecesse, pois bem se tem alguém que deveria ser reembolsado de alguma coisa são essas pessoas, não quem pagou somente a inscrição, pois o evento ocorreu exatamente como foi planejado apesar dos contratempos. logo quem pagou a inscrição foi e aproveitou o encontro da mesma maneira que se não houvesse tais transtornos. Mas uma vez me desculpem por intrometer neste assunto. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

citação:Alguem tem o instalar da xdev 0.72 Black Edition , formatei minha maquina e nao tenho o instalador. Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com id=quote>id=quote>O Vailton tem Brincadeiraid=size1> Já ouvi falar nesta versão mas não sei se ela existe mesmo.. nem na pagina do Vailton tem ela pra Download.. lá tem apenas a 0.70, até eu gostaria de testar, ainda uso a 0.65 sem problemas, imagina com uma 0.72 Black Editionid=black> turbinada... Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Editado por - ico on 12/01/2012 14:37:16

Uma solução.. Bem.. eu Marquei o endereço de email como Spam, todo fim de semana corro a lista de "Spam" o que eu acho que não é spam abro. o resto nem perco tempo clico em "apagar todos os Spams".... O unico problema é que se o Avelino quiser falar alguma coisa séria comigo não vai conseguir, pois os emails dele irão todos para a caixa de spam e serão excluidos todo fim de semana. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

Foi um DEMO.EXE/PRG para "rone@rl-informatica.net " Exeute o demo.exe e diga o que aconteceu.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

Putz!!.. desculpe esqueci do seu DEMO.EXE Vou fazer agorinha mesmo e te mandar.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Editado por - ico on 12/01/2012 10:56:48

citação:Depois não podem falar de quem pirateia fivewin e nossos próprios sistemas, kkkkkkkkkk Belo Horizonte - MG Fwh 9.01, xHarbour 1.1.0, Sqllib, xDev, Pelles C id=black>id='Verdana'>id=size2>Editado por - aloiziolima on 11/01/2012 09:40:25 id=quote>id=quote>Mas neste caso ai o Windows não pode ser considerado PIRATÃO pois foi a própria MS que disponibilizou o serial. E nem ao menos me perguntaram se eu queria ele ou não... Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

Onde vc. andou nos ultimos 10 anos ??? rsrsrsrs É bem util esse RemoveWGA. A pelo menos 4 a 5 anos atrás após usar as "atualizações automaticas" começou a dar essas mensagens em minha casa e em alguns antigos clientes que ainda fazem parte da minha roda de amigos(cidade pequena é boa por isso ), o motivo não é que o seu windows seja pirata, é que a MS manda um unico serial para ser distribuida por milhares de computadores, e na checagem instalam o WGA("Windows Genuine Advantage") na maquina do usuário e pimba, a mensagem tá lá pra todo mundo ver e imaginar que você tem uma cópia pirata do Windows... a solução encontrada foi registrar/comprar o Windows Original ou usar o RemoveWGA.. o unico problema é que sempre que o Windows faz uma atualização/correção automática a mensagem volta, e vc tem que rodar o RemoveWGA novamente.. ou seja, você vai ficar dependente dele até registrar sua cópia, desabilitar as autualizações automáticas ou fazer do RemoveWGA um dos "software que não podem faltar no seu micro"... <3 Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Editado por - ico on 10/01/2012 17:16:19

Já ouviram falar em telefone de latinha ... ?? Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

E pra "editar mensagens" você tem que estar logado... Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

Só não estou entendo uma coisa.. TODO MUNDO QUE ESTà RESPONDENDO PARA SER RETIRADO DA LISTA OU RECLAMANDO E XINGANDO O ALESSANDRO AVELINO estão também bombardeando minha caixa postal... ou seja todas os email enviado a ele estão caindo na minha caixa.. e tenho a leve impressão que estas mensagens estão indo para meus amigos e familiares que não tem nada a ver com nosso forum.. qual é a mágica nisso ? Espero que alguém saiba me explicar.. senão vou ser obrigado a excluir todo mundo da lista e começar do zero novamente.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

citação:Olá Luiz, será que antes do Do while !eof() nao deveria ter um dbgotop() ? William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários." id=quote>id=quote>Valeu Willian.. mas não era isso não. Eu estava chamando o Indice errado lá atrás na abertura do DBF.. Desculpe a amolação. Obrigado. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

Boa tarde.. Deparei com um problema que não to conseguindo resolver na tImprimi.. to tentando fazer uma relatório de janeiro de 2011 a dezembro de 2011 e a mesma fica limitada a somente 5 folhasid=size3>. SE abro o DBF tem mais de 4 mil lancamentos. #include "FiveWin.ch" #include "Utilprn.ch" CLASS DIAPRNANO FROM TIMPRIME METHOD New() METHOD cabecalho() METHOD DIARIOM2() METHOD Separator() ENDCLASS *-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-* METHOD New() CLASS DIAPRNANO IMPRIME INIT "DIARIO" PAGE ::Cabecalho() ::DIARIOM2() ENDPAGE IMPRIME END Return .T. *-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-* METHOD DIARIOM2() CLASS DIAPRNANO DEFINE FONT oFont3 NAME "Arial" SIZE 0, -10 OF ::oPrn DEFINE FONT oFonty NAME "ARIAL" SIZE -25, 17 OF ::oPrn //17 Define Font oFont4 Name "LUCIDA CONSOLE" Size -30, 15 Of ::Oprn ::nLinea := 3.80 Stor 0 to cDebito,cCredito Do While !EOF() Lin = ::nLinea UTILPRN ::oUtil lin,1.2 SAY DATA FONT oFonty UTILPRN ::oUtil lin,2.60 SAY CONTA FONT oFonty UTILPRN ::oUtil lin,3.72 SAY SUBSTR(NOME,1,20) FONT oFonty UTILPRN ::oUtil lin,6.90 SAY HISTORICO FONT oFonty IF D_C="D" COL=16 cDebito=Cdebito+valor eLSE COL=18 cCredito = cCredito + Valor eNDIF UTILPRN ::oUtil lin,COL SAY ""+TRANS(VALOR,"9,999,999.99") FONT oFont4 UTILPRN ::oUtil LIN,1 SAY replicate("_",143) Font oFontY ISEPARATOR lin := lin + 0.4 Skip Enddo If eof() Lin = ::nLinea Endif UTILPRN ::oUtil lin,1 SAY " ============================================================================================" Lin := Lin + 0.5 UTILPRN ::oUtil lin,2 SAY "TOTAL DOS LANCAMENTOS EM &CANO. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .. . . . . .." FONT oFonty UTILPRN ::oUtil lin,16 SAY TRANS(cDebito,"9,999,999.99") FONT oFont4 UTILPRN ::oUtil lin,18 SAY TRANS(cCredito,"9,999,999.99") FONT oFont4 Return(Nil) *-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-* METHOD Cabecalho() CLASS DIAPRNANO Local nLinea := 1 Define Font oFont Name "Arial" Size 0, -14 Of ::Oprn Define Font oFont2 Name "Courrier new" Size 0, -11 Of ::Oprn DEFINE FONT oFontX NAME "LUCIDA CONSOLE" SIZE -30, 20 OF ::oPrn DEFINE BRUSH oBrush COLOR 65535 DEFINE PEN oPen WIDTH .5 UTILPRN ::oUtil ; MSG { "RAZÃO SOCIAL:&eRazao","EMPRESA:&wFazenda",; " ",; "-----------------------------------------------DIARIO ANUAL REF. AO ANO DE &CANO ..:: ----------------------------------------------"} ; TEXTFONT oFont2 AT 1.145,1 TEXTCOLOR CLR_BLACK ; BRUSH oBrush ; SHADOW WIDTH 0.2 ; EXPANDBOX 0.2,.5 ROUND 175,1000 LEFT UTILPRN ::oUtil BOX nLinea+2.70,1 TO nLinea+28,20 PEN oPen UTILPRN ::oUtil 3.18,1.2 SAY "DATA" FONT oFontX UTILPRN ::oUtil 3.18,2.58 SAY "CONTA" FONT oFontX UTILPRN ::oUtil 3.18,3.75 SAY "NOME DA CONTA" FONT oFontX UTILPRN ::oUtil 3.18,6.90 SAY "H I S T O R I C O" FONT oFontX UTILPRN ::oUtil 3.18,15.90 SAY " DEBITO" FONT oFontX UTILPRN ::oUtil 3.18,16.90 SAY " CREDITO" FONT oFontX oFont:End() oFont2:End() ::oUtil:Reset() RETURN NIL *-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-* METHOD Separator( nSpace ) CLASS DIAPRNANO if Super:Separator( nSpace ) ::Cabecalho() ::nLinea := 4.2 endif Return Self id=code>id=code>O que pode estar acontecendo ? desde já obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Editado por - ico on 09/01/2012 08:46:46

Boa tarde.. Deparei com um problema que não to conseguindo resolver na tImprimi.. to tentando fazer uma relatório de janeiro de 2011 a dezembro de 2011 e a mesma fica limitada a somente 5 folhasid=size3>. SE abro o DBF tem mais de 4 mil lancamentos. #include "FiveWin.ch" #include "Utilprn.ch" CLASS DIAPRNANO FROM TIMPRIME METHOD New() METHOD cabecalho() METHOD DIARIOM2() METHOD Separator() ENDCLASS *-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-* METHOD New() CLASS DIAPRNANO IMPRIME INIT "DIARIO" PAGE ::Cabecalho() ::DIARIOM2() ENDPAGE IMPRIME END Return .T. *-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-* METHOD DIARIOM2() CLASS DIAPRNANO DEFINE FONT oFont3 NAME "Arial" SIZE 0, -10 OF ::oPrn DEFINE FONT oFonty NAME "ARIAL" SIZE -25, 17 OF ::oPrn //17 Define Font oFont4 Name "LUCIDA CONSOLE" Size -30, 15 Of ::Oprn ::nLinea := 3.80 Stor 0 to cDebito,cCredito Do While !EOF() Lin = ::nLinea UTILPRN ::oUtil lin,1.2 SAY DATA FONT oFonty UTILPRN ::oUtil lin,2.60 SAY CONTA FONT oFonty UTILPRN ::oUtil lin,3.72 SAY SUBSTR(NOME,1,20) FONT oFonty UTILPRN ::oUtil lin,6.90 SAY HISTORICO FONT oFonty IF D_C="D" COL=16 cDebito=Cdebito+valor eLSE COL=18 cCredito = cCredito + Valor eNDIF UTILPRN ::oUtil lin,COL SAY ""+TRANS(VALOR,"9,999,999.99") FONT oFont4 UTILPRN ::oUtil LIN,1 SAY replicate("_",143) Font oFontY ISEPARATOR lin := lin + 0.4 Skip Enddo If eof() Lin = ::nLinea Endif UTILPRN ::oUtil lin,1 SAY " ============================================================================================" Lin := Lin + 0.5 UTILPRN ::oUtil lin,2 SAY "TOTAL DOS LANCAMENTOS EM &CANO. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .. . . . . .." FONT oFonty UTILPRN ::oUtil lin,16 SAY TRANS(cDebito,"9,999,999.99") FONT oFont4 UTILPRN ::oUtil lin,18 SAY TRANS(cCredito,"9,999,999.99") FONT oFont4 Return(Nil) *-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-* METHOD Cabecalho() CLASS DIAPRNANO Local nLinea := 1 Define Font oFont Name "Arial" Size 0, -14 Of ::Oprn Define Font oFont2 Name "Courrier new" Size 0, -11 Of ::Oprn DEFINE FONT oFontX NAME "LUCIDA CONSOLE" SIZE -30, 20 OF ::oPrn DEFINE BRUSH oBrush COLOR 65535 DEFINE PEN oPen WIDTH .5 UTILPRN ::oUtil ; MSG { "RAZÃO SOCIAL:&eRazao","EMPRESA:&wFazenda",; " ",; "-----------------------------------------------DIARIO ANUAL REF. AO ANO DE &CANO ..:: ----------------------------------------------"} ; TEXTFONT oFont2 AT 1.145,1 TEXTCOLOR CLR_BLACK ; BRUSH oBrush ; SHADOW WIDTH 0.2 ; EXPANDBOX 0.2,.5 ROUND 175,1000 LEFT UTILPRN ::oUtil BOX nLinea+2.70,1 TO nLinea+28,20 PEN oPen UTILPRN ::oUtil 3.18,1.2 SAY "DATA" FONT oFontX UTILPRN ::oUtil 3.18,2.58 SAY "CONTA" FONT oFontX UTILPRN ::oUtil 3.18,3.75 SAY "NOME DA CONTA" FONT oFontX UTILPRN ::oUtil 3.18,6.90 SAY "H I S T O R I C O" FONT oFontX UTILPRN ::oUtil 3.18,15.90 SAY " DEBITO" FONT oFontX UTILPRN ::oUtil 3.18,16.90 SAY " CREDITO" FONT oFontX oFont:End() oFont2:End() ::oUtil:Reset() RETURN NIL *-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-**-*--*-*-*-*-* METHOD Separator( nSpace ) CLASS DIAPRNANO if Super:Separator( nSpace ) ::Cabecalho() ::nLinea := 4.2 endif Return Self id=code>id=code>O que pode estar acontecendo ? desde já obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Editado por - ico on 09/01/2012 08:46:46

Ué ?? Não entendi.. pra mim fica assim ; Mas se já resolveu.. valeu.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

Boa Tarde Rone.. Uso assim para consultar, os empregadores(Clientes) fazem a listagem no Word durante o mês todo e vão me mandando aleatoriamente, vou salvando cada um em sua pasta, depois antes de fazer os fechamentos mensais abro para ver quem vai entrar de férias no mês para fazer os calculos dos encargos.. cDoc="C:\PESSOAL9\&wProp\FERIAS.DOC" && wProp é a pasta da emrpesaid=red> PRIVATE oDlgIE, oActiveX, cEvents:="", oExplorer Define Dialog oDlgIE From 0,0 TO 550,950 PIXEL Title " ..:: Acessando:"+cDoc oDlgIE:lHelpIcon:=.F. oActiveX:=TActiveX():New( oDlgIE, "Shell.Explorer",10,15,450,237 ) oDlgIE:oClient:=oActiveX // oDlgIE:bPainted = { | hDC | GradientFill( hDC, 0, 0, oDlgIE:nHeight, oDlgIE:nWidth, { { 0.50, 16054371, 8388608 } } ) } Activate Dialog oDlgIE Centered; On Init(mBarraStatus(cDoc),oActiveX:Do( "Navigate", cDoc )) Return(nil) Static Func mBarraStatus(cDoc) SET MESSAGE OF oDlgie TO "Consultas a tabelas de férias" 2007 RETURN(.t.) id=code>id=code>Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Editado por - ico on 04/01/2012 17:13:15

Valeu Pessoal... Use Diario SHARED //Exclusive Index on str(Conta,6,3)+dTos(Data) To Contadiario id=code>id=code>Pior de tudo é que eu já tinha isso em uma dialog que só é usado de vez em quando.. as vezes fica o ano todo sem ser aberta.. Desculpem a amolação e a falta de atenção E mas uma vez obrigado a todos.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

Tenho uma TEKNA MBC20TK http://www.brasutil.com/zPhoto/MBC20TKLProA-1.jpg Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc

Bom dia e feliz ano novo a todos.. Nunca misturo pastas de exercicio sempre crio os anos correntes e transporto as contas somente com o saldo de 31/12/xxxx, mas a partir de hoje 02/01/2012 vou precisar guardar em uma unica pasta toda a vida dos empregados de uma empresa, por exemplo, vou ter colocar na mesma pasta desde o ano de 2008 pra frente, só que se ordenar por data vai ficar assim Index on Data to... 02/01/2009 02/01/2010 02/01/2011 etc Mostrando em ordem pelos meses e eu queria que ficasse separados pelo ano seguindo pela data. 02/01/2008 01/02/2008 03/01/2009 04/01/2009 02/01/2010 03/01/2010 tem como ? Desde já Obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Editado por - ico on 03/01/2012 10:37:16

Bom dia e feliz ano novo a todos.. Nunca misturo pastas de exercicio sempre crio os anos correntes e transporto as contas somente com o saldo de 31/12/xxxx, mas a partir de hoje 02/01/2012 vou precisar guardar em uma unica pasta toda a vida dos empregados de uma empresa, por exemplo, vou ter colocar na mesma pasta desde o ano de 2008 pra frente, só que se ordenar por data vai ficar assim Index on Data to... 02/01/2009 02/01/2010 02/01/2011 etc Mostrando em ordem pelos meses e eu queria que ficasse separados pelo ano seguindo pela data. 02/01/2008 01/02/2008 03/01/2009 04/01/2009 02/01/2010 03/01/2010 tem como ? Desde já Obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Editado por - ico on 03/01/2012 10:37:16

Bom dia e feliz Ano Novo.. Realmente não dá pra usar Viacoral a partir das versões 9.xx Usei Viacoral por anguns anos.. e sinceramente não me lembro de comno era a infobar.. mas depois que parei de usa-la respondi neste tópico abaixo, e tenho certeza que as versões novas fazem tudo que a Viacoral fazia e ainda algo mas e melhor, pois sempre via imagens de telas nativas com os mesmo recursos da Viacoral. http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=15307 Se possivel manda uma imagem da infobar.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc