EduViggiano

Olá Elias, boa tarde, eu sei que essa função Sfl2Lfn faz isso, é que eu preciso dessa telinha de interface pro usuário poder ir clicando e buscar um arquivo Doc que ele deseja... Eles tem trocentos .DOC espalhado por váaaaaaaarios diretórios, ai ele só sabe que está dentro da pasta tal... então com essa interface do cGetFile, ele vai clicando, clicando e acha, ao achar dá um enter e me retorna qual doc escolheu, ai eu tomo uma ação entendeu a redação acima? eu preciso uma interface dessa.. inclusive estava pensando, se o nome for CONTRATO_DE_MANUTENCAO_DO_JOSE.DOC, nem vai caber na janela esquerda... Abraços, Edu-DESIS SP-Z/S

MsgStop( cGetFile( "*.doc", "Escolha",,,,.T. ) ) MsgStop( cGetFile32( "*.doc", "Escolha",,,,.T. ) ) Olá Fw´s, essa chamada acima não traz nomes longos mesmo lascando o .T. confme instrução do Help. em www.dbwide.com.ar vi que tem um cGetFile2, porem não consigo fazer download, está quebrado o link... Alguem tem uma luz ai por favor.. Abraços, Edu-DESIS SP-Z/S

Olá Robson, segue meu fonte que faz isso, espero que lhe seja útil... Chame a função QualImpressora() e pronto Eu tirei umas linhas do código fonte das funções pois só iria te confundir e faz parte da minha lib ok, mas a idéia está ai... Assim você não só pega as impressoras instaladas como seta uma como padrão. [...] Function PrnSetDefault( cName, cPort ) Local cStr := "" Local cPrinter cStr := cName + "," + PrnGetDriver( cName ) + "," + cPort WriteProfString( "Windows", "Device", cStr ) //HWND_BROADCAST = 65535 SendMessage( 65535 , WM_WININICHANGE, 0, "Windows") SysRefresh() cPrinter := GetProfString( "windows", "device" , "" ) WriteProfString( "windows", "device", cStr ) SysRefresh() PrinterInit() SysRefresh() WriteProfString( "windows", "device", cPrinter ) Return(Nil) Function QualImpressora(cPt1) Local f Local aPrn := GetAllEntrys() Local aImpressoras := {} Local nOp := 0 Local nResp := 0 Begin Sequence If ( Len(aPrn)=0 ) Break Endif For f:=1 to Len(aPrn) If ( At(aPrn[f,1], cPt1 ) <> 0 ) aAdd( aImpressoras, Upper(aPrn[f,1]) + "<<<<<<<< Está definida como padrão. >>>>>>>> ") Else aAdd( aImpressoras, Upper(aPrn[f,1]) ) Endif Next nResp := achoice( wl(2), wc(1), wl(maxWrow()-1), wc(maxWcol()-1), aImpressoras ) If ( nResp = 0 ) Alert("Sem Resposta...") Break Endif If ( nResp >= 1 .And. nResp <= Len(aPrn) ) PrnSetDefault( aPrn[nResp,1], aPrn[nResp,2] ) Endif EndSequence Return(Nil) Function GetAllEntrys() LOCAl aDevices:={}, cAllEntries, cEntry, I, cName, cPrn, cPort, J cAllEntries := STRTRAN( GetProfString( "Devices" ), Chr( 0 ), CRLF ) For I := 1 To MlCount( cAllEntries ) cName := MemoLine( cAllEntries,,I) cEntry := GetProfString( "Devices",cName,"") J := 2 Do While ( !Empty(cPort := StrToken(cEntry,J++,",")) ) Aadd(aDevices,{Trim(cName),Trim(cPort) } ) EndDo Next Return(aDevices) Abraços, Edu-DESIS SP-Z/S

Obrigado Vagner... Abraços, Edu-DESIS SP-Z/S

Olá Fw´s! Alguém sabe/lembra como ativar/desativar o Caps no FW ? não estou achando não... Grato. Abraços, Edu-DESIS SP-Z/S

Olá Fw´s Vai uma pergunta meio básica... pois nunca precisei ir atrás desta informação... ( até hoje... ) Possuo Clipper 5.3b + Fw2.0b + SQL com MEDIATOR... Pergunta: esse ambiente é cliente-servidor? e se não o que seria mais vantajoso? cliente servidor ou cada um com seus problemas.. quero dizer... cada um com seus processamentos...hehe... Grato por qualquer resposta! Abraços, Edu-DESIS SP-Z/S

Parabens ae Vagner!! ) Abraços, Edu-DESIS SP-Z/S

Valeu, vou ver aqui. Abraços, Edu-DESIS SP-Z/S

Opa, a TDosPrn():New("BHT") cria um arquivo Bht.PRN assim que executo os comandos de impressão... "Só que" o "BHT" é uma porta lógica..(Configurações da impressora/rWindows) e gostaria que a impressão fosse para a porta lógica e não para o arquivo... isso é possível? nem que eu tenha que usar outra classe.. Me ajudem por favor, realmente estou precisando de ajuda... Abraços, Edu-DESIS SP-Z/S

citação:Tudo que os bancos de dados de hoje tradicionalmente e basicamente oferecem. id=quote>id=quote>Olá Carlos tudo bem ? você diz que o Dbase IV oferece tudo que o SQL/Oracle oferece? acho que não hein... Atualmente você está com DBF III ? Abraços, Edu-DESIS SP-Z/S

Paulo, eu não entendi bem.. você está querendo condensar no seu relatório? se sim é só colocar o comando: oPrn:Say(0,0,Chr(15)) para iniciar... Abraços, Edu-DESIS SP-Z/S

Eu acho mais viável deixar tudo num arquivo só identificando por Empresa / Filial... Abraços, Edu-DESIS SP-Z/S

citação:Qual versao do rWindows voce esta usando. Oliveira, Sérgio A. PERSONAL - LINS pcspersonal@uol.com.br MSN - sergio@personal.com.br id=quote>id=quote>Opa! Haaa.. aqui no cliente tem de tudo... desde 98 até 2000.. Abraços, Edu-DESIS SP-Z/S

citação:Olá Edu, Não sei se daria para fazer desse jeito, mande gerar um txt e depois mande dar um type SeuTexto.Txt > lpt1 através do RWindows, aí eu acho q ele passaria pela fila do RWindows, volto a dizer não sei se dá certo nunca testei oPrn := TDosPrn():New("SeuTexto.Txt") WinExec("Type SeuTexto.Txt > Lpt1") Abraços Vagner Wirts São Paulo-Brasil id=quote>id=quote>Fala Vagner tudo bem? Isso eu teste já e não "vira" não... Inclusive no meio dos testes, tem um comando que queria deixar aqui e compartilhar que achei até interessante: Net Use LPT1 \\edunotebook\epsonLX copy c:\teste.txt lpt1 Net Use LPT1 /D Essas linhas tambem fazem imprimir e eu não sabia hehe Mas a luta continua... Abraços, Edu-DESIS SP-Z/S Editado por - EduDesis on 20/07/2004 13:48:10

Ae pessoal do TdosPRN() me ajuda ai que o bicho tá pegando aqui... Tem como enviar para a Epson ( impressora padrão ) em modo Draft? ela vira Roman automaticamente.. ( por causa do modo gráfico.. ) Abraços, Edu-DESIS SP-Z/S

Estou usando assim: oPrnEdu := TDosPrn():New("lpt1") e esse LPT1 que é o X da questão... Se for o caso eu mudo tudo para tPrinter sem problemas... Existe algum esquema de "mapear" via rWindows ou via FW uma fila de impressão para a LPT1 ? Abraços, Edu-DESIS SP-Z/S

Fala pessoal, andei meio sumido ai do fórum por motivos de tempo mesmo e espero poder voltar a ativa aqui no fórum! E já chego com uma questão que estou resolvendo e gostaria de compartihar aqui, pois pode ser útil... O Fato é que estou implantando em um cliente que usa MetaFrame e em caso de notas fiscais que eu mando direto para a LPT1 e que não passa pela "fila do rWindows" o gerenciador MetaFrame simplesmente se perde... A questão é: será que existe a possibilidade de apesar de eu estar imprimindo localmente, através do FW fazer o relatório ir para o Spool e depois ir para a LPT1 sem perder suas características originais? ou seja, sem imprimir em modo gráfico? lembrando que é uma NF e por isso mando em modo texto direto para a LPT1... Desculpem o longo texto... Abraços, Edu-DESIS SP-Z/S Editado por - EduDesis on 18/07/2004 16:05:02

Bom vou dar outra olhada, estranho... com um numero alto que coloquei era para travar... Bom mesmo assim obrigado. Abraços, Edu-DESIS SP-Z/S

oTopico:GoUp() Abraços, Edu-DESIS SP-Z/S

Olá Galera, Independente do valor que coloco no parametro do Interval do Timer, parece que é o mesmo tempo ou se muda o intervalo é muito pouco, qual o valor que eu poderia colocar para ficar 4 minutos por exemplo? Eu cheguei a colocar: ( só para testar ) INTERVAL 10000000 INTERVAL 1000000 INTERVAL 10000 INTERVAL 100 e até INTERVAL 10000000 * 100000 mas fica muito próximo o intervalo do outro, Bom se alguem puder comentar algo... parece que o parametro é em "thousandths of seconds" isso? Abraços, Edu-DESIS SP-Z/S Editado por - EduDesis on 28/10/2003 11:10:39

Olá, Pelo que estou vendo está "preso" no "do While" porque independente da existência ou não do (nomearquivo) volta para o do while .T. Esse código está completo? Abraços, Edu-DESIS SP-Z/S

Olá, Não precisa mais consegui... Abraços, Edu-DESIS SP-Z/S

Olá Pessoal, "tGraph" Alguem poderia me enviar esta classe? não consigo fazer um download do site que tem disponível... Eu agradeceria muito! Até. edu@desis.com.br Abraços, Edu-DESIS SP-Z/S Editado por - EduDesis on 14/10/2003 15:59:17

citação:Alem de tudo tem gente querendo mudar mas ta com vergonha de dizer !E brincaderinha, so para descontrair Elias Abrão Júnior Fone : (0**19) 3825-0812 Indaiatuba - SP http://www.eajunior.hpg.com.br eajunior@ubbi.com.br id=quote>id=quote>Essa foi boa hahaha! Abraços, Edu-DESIS SP-Z/S

citação:Edu Por acaso vc tem algum botão marcado com a opção DEFAULT, pois este flag influencia no ENTER. []´s Alexandre id=quote>id=quote>Na verdade em meus testes eu tirei todos os botões... mas com a Dica do Elias foi resolvido... Grato! Abraços, Edu-DESIS SP-Z/S