cendon

syspel, dê mais detalhes. vc esta imprindo vida FW? se for, qual classe? Mostre os comandos Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

ACARMÔ?!... Numa estradinha, o mineirim, dono de um alambique, vem dirigindo seu carrim véio e "entra com tudo" na traseira de uma BMW novinha em folha. O dono da BMW sai que é uma fera pra cima do mineirim, que diz: - Carma moço, tudo se resorve... - Resolve nada, seu mineirim duma figa! - Carma, moço! Toma uma aqui da minha fazenda, é da boa... o sinhô vai si acarmá logo. O cara toma uma. - Acarmô? - Acalmei nada! - Então toma mais uma... E assim foi. Depois de uma meia dúzia, o mineirim pergunta: - Acarmô? - Sim, agora sim! - Intão agora nóis vamu sentá aqui, chamá a pulícia pra fazê o tar di bafômetro, pramodi vê quem tá errado, tá bão? .... Transar após 25 anos de casado Um Presidente de uma determinada empresa, casado há 25 anos, está na maior dúvida se transar com a mulher, depois de tanto tempo de casamento, é trabalho ou prazer. Na dúvida, ligou pro Diretor Geral e perguntou. Por sua vez, o Diretor ligou pro Vice-Diretor e fez a mesma pergunta. O Vice-Diretor ligou pro Gerente Geral e fez a mesma pergunta. E assim seguiu-se a corrente de ligações até que a pergunta chegou ao Setor Jurídico e o Advogado Chefe perguntou, como de praxe, pro Estagiário que estava todo afobado fazendo mil coisas ao mesmo tempo. - Rapaz, você tem um minuto pra responder se quando o Presidente da empresa transa com a mulher dele é trabalho ou prazer ??? - É prazer, Doutor !!! - respondeu o Estagiário prontamente e com segurança. - Ué ??? Como é que você pode responder isso com tanta segurança e certeza??? - É que se fosse trabalho, já tinham mandado eu fazer !!!!!!!! Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

ACARMÔ?!... Numa estradinha, o mineirim, dono de um alambique, vem dirigindo seu carrim véio e "entra com tudo" na traseira de uma BMW novinha em folha. O dono da BMW sai que é uma fera pra cima do mineirim, que diz: - Carma moço, tudo se resorve... - Resolve nada, seu mineirim duma figa! - Carma, moço! Toma uma aqui da minha fazenda, é da boa... o sinhô vai si acarmá logo. O cara toma uma. - Acarmô? - Acalmei nada! - Então toma mais uma... E assim foi. Depois de uma meia dúzia, o mineirim pergunta: - Acarmô? - Sim, agora sim! - Intão agora nóis vamu sentá aqui, chamá a pulícia pra fazê o tar di bafômetro, pramodi vê quem tá errado, tá bão? .... Transar após 25 anos de casado Um Presidente de uma determinada empresa, casado há 25 anos, está na maior dúvida se transar com a mulher, depois de tanto tempo de casamento, é trabalho ou prazer. Na dúvida, ligou pro Diretor Geral e perguntou. Por sua vez, o Diretor ligou pro Vice-Diretor e fez a mesma pergunta. O Vice-Diretor ligou pro Gerente Geral e fez a mesma pergunta. E assim seguiu-se a corrente de ligações até que a pergunta chegou ao Setor Jurídico e o Advogado Chefe perguntou, como de praxe, pro Estagiário que estava todo afobado fazendo mil coisas ao mesmo tempo. - Rapaz, você tem um minuto pra responder se quando o Presidente da empresa transa com a mulher dele é trabalho ou prazer ??? - É prazer, Doutor !!! - respondeu o Estagiário prontamente e com segurança. - Ué ??? Como é que você pode responder isso com tanta segurança e certeza??? - É que se fosse trabalho, já tinham mandado eu fazer !!!!!!!! Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Ve se ajuda Yury len() Retorna o tamanho de uma string ou de uma array. nTam = len(cString) ArrayTam = len(MyArray) Ex.: declare aPlayer[7] ? len("Ordem") && --> 5 ? len(aPlayer) && --> 7 Para localizar o tamanho de uma array bidimensional proceda assim: MyArray := { {1,2} , {2,4} , {3,6} } ArrayLin := len(MyArray) && Nro de linhas ArrayCol := len(MyArray[1]) && Nro de colunas for cx = 1 to ArrayLing for dx = ArrayCol ? cx,dx,MyArray[cx][dx] next next Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

inclua tambem: set bin=c:\clip52\bin Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

mostre como vc está compilando, o seu lnk, e os paths do sistema (no DOS tecle SET) Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Joao toda vez que o computador é ligado (atençao não é logado é ligado) ele grava um arquivo o \windows\wiasevc.log, nele est a data e hora do bott se ajudar. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

ce ta certo, eu escrevi errado printbuftime um abraço Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Boa tarde amigos estou refazendo alguns menus e queria colocar o icone que fica ao lado da opção um pouco maior. Porem não encontrei nenhuma opção que deixe usar um icone maior que 16x16. tem solução? grato Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Boa tarde amigos estou refazendo alguns menus e queria colocar o icone que fica ao lado da opção um pouco maior. Porem não encontrei nenhuma opção que deixe usar um icone maior que 16x16. tem solução? grato Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Meu amigo altere alguns parametros no arquivo system.ini e provavelmente vai resolver, o windows tem "mania" de guardar o resto do buffers e so manda para a impressora quando vc completa este buffer. arquivo: SYSTEM.ini [386Enh] . . . [NETWORK] printbufttime=1 [iFSMGR] printbuftime=1 depois execute o regedit (iniciar-executar-regedit) pesquise: LPT_TIMEOUT e altere para: lpt_timeout=1 deve resolver Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

tenho em casa, a noite posto Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

CA-Clipper 5.3 » Error Messages » Messages » Runtime Errors » DBCMD/1015 Argument Error Explanation: You attempted to select a linked-in driver with USE VIA but failed to REQUEST it. Action: Correct the program. Vc ta tentando acessar um drive que não existe mais Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Bom dia amigos, a algum tempo gero alguns relatorios em excel utilizando o que há de mais simples. Um arquivo texto renomeado para xls com chr(9) para separar os campos. porem já não estava atendendo mais meus clientes passei a testar com OLE até consegui gerar o arquivo. Era para ter 1 só celula ocupada, porem ele repete o mesmo conteudo em toda planilha. alguem saberia onde está o erro? o fonte é este. /* Generando um arquivo Excel Angelo José Ferreira Cendon */ #include "FiveWin.ch" FUNCTION Testaj() LOCAL cFilexls := ".\arqexcel.xls" LOCAL oExcel msgalert("iniciando geração") oExcel := TExcelScript():New() msgalert("Criando script para excel") oExcel:Create( cFilexls ) oExcel:Visualizar(.T.) msgalert("Arquivo test1.xls criado - Partindo para entrada de dados") oExcel:Font("Tahoma") // fonte de letra oExcel:Size(10) // tamanho do fonte oExcel:Align(1) // alinhamento a esquerda oExcel:Say( 4 , 2 , 'Teste de geração excel' , , , .T.) oExcel:Visualizar(.T.) oExcel:End() msgalert("K bo") RETURN ( .T. ) Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Bom dia amigos, a algum tempo gero alguns relatorios em excel utilizando o que há de mais simples. Um arquivo texto renomeado para xls com chr(9) para separar os campos. porem já não estava atendendo mais meus clientes passei a testar com OLE até consegui gerar o arquivo. Era para ter 1 só celula ocupada, porem ele repete o mesmo conteudo em toda planilha. alguem saberia onde está o erro? o fonte é este. /* Generando um arquivo Excel Angelo José Ferreira Cendon */ #include "FiveWin.ch" FUNCTION Testaj() LOCAL cFilexls := ".\arqexcel.xls" LOCAL oExcel msgalert("iniciando geração") oExcel := TExcelScript():New() msgalert("Criando script para excel") oExcel:Create( cFilexls ) oExcel:Visualizar(.T.) msgalert("Arquivo test1.xls criado - Partindo para entrada de dados") oExcel:Font("Tahoma") // fonte de letra oExcel:Size(10) // tamanho do fonte oExcel:Align(1) // alinhamento a esquerda oExcel:Say( 4 , 2 , 'Teste de geração excel' , , , .T.) oExcel:Visualizar(.T.) oExcel:End() msgalert("K bo") RETURN ( .T. ) Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Exatamente isto o comando copy não é lento é até mais rápido que o Append sintax: copy to [] [FIELDS ] [FOR ] [while ] [TYPE ] a expl pode ser uma expressao logica qualquer com .or. .and. como vc quiser Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop Editado por - cendon on 30/09/2008 15:24:54

João vamos ver se entendi. vc quer criar um arquivo temporário a partir de um arquivo que esta aberto compatilhado por outros usuário com o comando append acho que não dá. ele precisa bloquear o arquivo. porem se vc abrir o arquivo compartilhado e executar o comando copy to for ou while vc vai conseguir o que quer. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Boa tarde amigos esta biblioteca é compativel com: FWH 2.4 e Harbour? Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Boa tarde amigos esta biblioteca é compativel com: FWH 2.4 e Harbour? Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Matheus, postei em dicas alguns testes que fiz usando RTF inclusive com imagens. Era inicialmente para resolver o problema de Clipper->USB. Pode ser que te ajude com as imagens. http://www.fivewin.com.br/exibedicas.asp?id=940 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

http://www.fivewin.com.br/exibedicas.asp?id=101 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Indicação de variavel de memória MEMVAR Declares private and public variables and arrays. Syntax MEMVAR Arguments Memory variable Name Returns Description This command tells the compiler to resolve any reference to a memory variable designated within this list s if it possessed an explicit memory variable alias with either the M-> or MEMVAR-> prefix.Only those memory variables that do not contain any such explicit are affected by this command.Those memory variabls within macro expansions are not affected by this command. The MEMVAR declaration must apear before any executable commands;it is similat to the LOCAL,STATIC,FIELD,PARAMETERS,FUNCTION, and PROCEDURE commands statements. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Mateus eu tenho uma documentação sobre RTF está em casa a noite vou verificar e posto em dicas para vc Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Bom dia amigos, estou tentando montar uma DIALOG com nowait porem quando executa ela fica vazia, some tudo só fica a caixa. já tentei com ela abrindo só uma vez e usando refresh() porem deu o mesmo problema alguem sabe porque? o fonte é este sele arquivos do while !eof() ldestino=mdestino+trim(arquivo)+".dbf" marquivo=trim(arquivo)+".dbf" if !file(marquivo) msgalert("Arquivo: "+marquivo+" não encontrado, entre em contato com o suporte") skip loop endif DEFINE DIALOG oDlg5 FROM 5, 1 TO 15, 50 ; TITLE "Copiando Arquivo" FONT oFont; @ 1, 2 SAY "Origem:" OF oDlg5 @ 2, 2 SAY omarquivo VAR marquivo OF oDlg5 @ 3, 2 SAY "Destino:" OF oDlg5 @ 4, 2 SAY oldestino VAR ldestino OF oDlg5 ACTIVATE DIALOG oDlg5 on init copiaa(marquivo,ldestino) nowait // copy file &marquivo to &ldestino oDlg5:end() skip enddo msgalert("Backup concluido") return function copiaa(marquivo,ldestino) copy file &marquivo to &ldestino return .t. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Bom dia amigos, estou tentando montar uma DIALOG com nowait porem quando executa ela fica vazia, some tudo só fica a caixa. já tentei com ela abrindo só uma vez e usando refresh() porem deu o mesmo problema alguem sabe porque? o fonte é este sele arquivos do while !eof() ldestino=mdestino+trim(arquivo)+".dbf" marquivo=trim(arquivo)+".dbf" if !file(marquivo) msgalert("Arquivo: "+marquivo+" não encontrado, entre em contato com o suporte") skip loop endif DEFINE DIALOG oDlg5 FROM 5, 1 TO 15, 50 ; TITLE "Copiando Arquivo" FONT oFont; @ 1, 2 SAY "Origem:" OF oDlg5 @ 2, 2 SAY omarquivo VAR marquivo OF oDlg5 @ 3, 2 SAY "Destino:" OF oDlg5 @ 4, 2 SAY oldestino VAR ldestino OF oDlg5 ACTIVATE DIALOG oDlg5 on init copiaa(marquivo,ldestino) nowait // copy file &marquivo to &ldestino oDlg5:end() skip enddo msgalert("Backup concluido") return function copiaa(marquivo,ldestino) copy file &marquivo to &ldestino return .t. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop