oribeiro

Eu uso assim e funciona legalzinho. pDireitos := ALLTRIM(OA_WUSER->DIREITOS) IF cProcName$pDireitos *** Cancela um direito *** pDireitos:=STUFF(pDireitos,AT(cProcName,pDireitos)-1,LEN(cProcName)+1,"") MsgInfo(Alltrim(pOperador)+", direito CANCELADO!","Mensagem") xMenu := "m" + cFrm if Left(type("&xMenu"),1)<>"U" &xMenu:SetCheck(.F.) endif ELSEIF ( Left(Type("SDIREITOS"),1)<>"U" .and. cProcName$sDireitos ) .OR.; ( Left(Type("SOPERADOR"),1)<>"U" .and. pOperador=sOperador ) *** Permite acesso se for liberado p/ supervisor *** mmok := 2 if lCadastro mmok:=iif( MsgYesNo("Permite a Manutenção no Arquivo ?","Informe"), 1, 2) if mmok==1 MsgInfo(Alltrim(pOperador)+", direito concedido!"+chr(13)+chr(13)+; "Poderá apagar, modificar e incluir registros.","Mensagem") else MsgInfo(Alltrim(pOperador)+", direito concedido!"+chr(13)+chr(13)+; "Apenas para consulta.","Mensagem") endif else MsgInfo(Alltrim(pOperador)+", direito concedido!","Mensagem") endif pDireitos := pDireitos + STR(mmok,1,0) + PadR( cProcName ,6) // Módulo C6 xMenu := "m" + cFrm if Left(type("&xMenu"),1)<>"U" &xMenu:SetCheck(.T.) endif ELSE *** Modulo nao foi negociado com o cliente *** MsgInfo("Módulo não Liberado. . .Contacte a (OASyS)","Mensagem") ENDIF if FnRlock() REPL DIREITOS WITH AllTrim(pDireitos) DBCOMMIT() DBUNLOCK() // Se Supervisor, atualiza variável de memória // if ( Left(Type("SOPERADOR"),1)<>"U" .and. pOperador=sOperador ) PUBLIC sDireitos := ALLTRIM( pDireitos ) endif endif Oscar Ribeiroid=size5> OASyS Informáticaid=blue>id=size4> Fwh2.7+xHb0.99.60+BCC551+WorkShop

No meu sistema em Fivewin precisei colocar SysWait( 0.1 ) antes da gravação. Oscar Ribeiroid=size4> OASyS Informáticaid=blue>id=size4> Fwh2.7+xHb0.99.60+BCC551+WorkShop

Tem também o Acrobat Writer da própria Adobe. Funciona legalzinho. Oscar Ribeiro OASyS Informáticaid=blue> Fwh2.7+xHb0.99.60+BCC551+WorkShop

Obrigado Marcelo, Eu entendo que as telas não ficarão bonitas, mas acontece que eu tenho umas tabelinhas auxiliares no meu sistema e não estou disposto a criar um programa de manutenção para cada uma delas, então eu fiz esse MyBrowse() e não estou muito preocupado com o visual delas no momento. Só quero ganhar velocidade de desenvolvimento e funcionalidade por enquanto. Você tem algum exemplo de como posso fazer isso? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

PessoAll, Criei um MyBrowse() que quando chamado, identifica o arquivo em uso e abre uma planilha com os campos do arquivo e uns botões padrões para Inclusão, Modificação, Exclusão, Pesquisa e Listagem. Agora, eu quero que, quando o usuário selecionar o botão Novo ou Modifica, o sistema abra uma Dlg com os Says dos nomes dos campos e os Gets dos Campos para o usuário preencher. Essa Dlg será criada conforme os campos do arquivo. É possível de se fazer isso? Alguém tem um exemplo? Obrigado. (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

PessoAll, Criei um MyBrowse() que quando chamado, identifica o arquivo em uso e abre uma planilha com os campos do arquivo e uns botões padrões para Inclusão, Modificação, Exclusão, Pesquisa e Listagem. Agora, eu quero que, quando o usuário selecionar o botão Novo ou Modifica, o sistema abra uma Dlg com os Says dos nomes dos campos e os Gets dos Campos para o usuário preencher. Essa Dlg será criada conforme os campos do arquivo. É possível de se fazer isso? Alguém tem um exemplo? Obrigado. (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Obrigado pessoal, Optei por remover o IsPrinter() dos meus programas. Se a impressora estiver desligada, ou desconectada, a impressão permanecerá no Spool. Veremos agora qual é a próxima surpresa dessa conversão para xHarbour. O bom é que a maioria das surpresas que tive foram ótimas: Melhor desempenho, visual, etc. etc. etc. Obrigado a todos. Um abraço, (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Desculpem-me, não é o Tdosprn() que está com problema. É o ISPRINTER() do xHarbour que, numa máquina com Wim98 não encontra a impressora. A função que detecta a impressora no Fivewin e não detecta no FwH é essa aqui: IF cPorta=="LPT1" Do While !ISPRINTER() IF !(MsgYesNo( "A impressora não está pronta em "+cPorta+"."+CHR(13)+CHR(13)+; "Verifique se a Impressora está ligada e se os cabos " +CHR(13)+; "estão devidamente conectados em "+cPorta+"."+CHR(13)+CHR(13)+; "Tenta Novamente?","Impressora não Pronta." )) Return(.F.) endif enddo endif id=code>id=code>Alguém já passou por isso? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Converti meus aplicativos de Fivewin para FwH+xHarbour 0.99.60+BCC55 e estou substituindo a aplicação nos meus clientes. Acontece que eu instalei num cliente ontem que usa Win98 e o sistema não imprimiu a nota fiscal diretamente para a porta LPT1. Dá a mensagem indicando que a porta não está pronta. Voltei a versão compilada no Fivewin e a nota imprimiu. Alguém já passou por isso? Tem a solução? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop Editado por - oribeiro on 28/06/2007 16:06:04

Converti meus aplicativos de Fivewin para FwH+xHarbour 0.99.60+BCC55 e estou substituindo a aplicação nos meus clientes. Acontece que eu instalei num cliente ontem que usa Win98 e o sistema não imprimiu a nota fiscal diretamente para a porta LPT1. Dá a mensagem indicando que a porta não está pronta. Voltei a versão compilada no Fivewin e a nota imprimiu. Alguém já passou por isso? Tem a solução? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop Editado por - oribeiro on 28/06/2007 16:06:04

PessoAll, Alguém tem algum modelo de DUPLICATA MERCANTIL desenvolvida em xhb + fwh que possa me passar. Estou pedindo porque, tenho uma dificuldade danada de desenhar quadros nesses tipos de formulários. Obrigado, (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

PessoAll, Alguém tem algum modelo de DUPLICATA MERCANTIL desenvolvida em xhb + fwh que possa me passar. Estou pedindo porque, tenho uma dificuldade danada de desenhar quadros nesses tipos de formulários. Obrigado, (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

PessoAll, Alguém conhece algum utilitário que converta arquivo.BAT em .EXE, porém, que reconheça a instrução START? Exemplo: @echo off START dvend.exe %1 v exit (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

PessoAll, Alguém conhece algum utilitário que converta arquivo.BAT em .EXE, porém, que reconheça a instrução START? Exemplo: @echo off START dvend.exe %1 v exit (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Valeu Oliveira, Funcionou direitinho. Obrigado, (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

PessoAll, Tem como cancelar/inibir o botão [X] do canto superior direito da Window para forçar o fechamento da janela através da instrução oWnd:End() ??? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop Editado por - oribeiro on 22/05/2007 09:02:49

PessoAll, Tem como cancelar/inibir o botão [X] do canto superior direito da Window para forçar o fechamento da janela através da instrução oWnd:End() ??? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop Editado por - oribeiro on 22/05/2007 09:02:49

Consegui tratando a tecla nKey e direcionando para o listbox quando for pressionado . No Fivewin 16 bits não precisava disso, mas enfim, está resolvido. Usei assim: If( nKey=13, (oLbx:Refresh(),oLbx:SetFocus()), ... ; (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

PessoAll, Por favor, me ajudem! No Fivewin 16 bits, eu criei uma pesquisa incremental no Listbox que, na medida em que o usuário vai digitando o texto o sistema vai posicionando no registro dentro do listbox, quando ele encontra, aperta para selecionar o registro. Uso esse função na pesquisa de tabelas relacionadas ao cadastro principal. Uso assim: REDEFINE GET oAcha VAR cAcha ID 111 OF oDlg UPDATE; ON CHANGE ( ::Assign(),; If( (cDbf)->(DbSeek(Upper(SubS(cAcha,1,::nPos-1))+Upper(Chr(nKey)))),; (oLbx:UpStable(),oLbx:Refresh(),.t.),; (oLbx:UpStable(),oLbx:Refresh(),.f.))) Acontece que no FwH + xHarbour o não seleciona o registro. O que devo alterar? Obrigado. (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop Editado por - oribeiro on 17/05/2007 13:53:44

PessoAll, Por favor, me ajudem! No Fivewin 16 bits, eu criei uma pesquisa incremental no Listbox que, na medida em que o usuário vai digitando o texto o sistema vai posicionando no registro dentro do listbox, quando ele encontra, aperta para selecionar o registro. Uso esse função na pesquisa de tabelas relacionadas ao cadastro principal. Uso assim: REDEFINE GET oAcha VAR cAcha ID 111 OF oDlg UPDATE; ON CHANGE ( ::Assign(),; If( (cDbf)->(DbSeek(Upper(SubS(cAcha,1,::nPos-1))+Upper(Chr(nKey)))),; (oLbx:UpStable(),oLbx:Refresh(),.t.),; (oLbx:UpStable(),oLbx:Refresh(),.f.))) Acontece que no FwH + xHarbour o não seleciona o registro. O que devo alterar? Obrigado. (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop Editado por - oribeiro on 17/05/2007 13:53:44

Luiz, manda esse treco para mim também. oasysinfo@uol.com.br (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

É verdade Evandro, não gosto de usar LIB´s de terceiros! Confirmo isso, entretanto essa não é uma LIB que necessita ser compilada junto com o programa, na verdade é uma (DLL) que pode ser acionada dentro de qualquer versão do xHarbour. Entendeu? Se eu quiser mudar de release do xHarbour não vou ter que correr atras do cara que desenvolveu ela. Estou tentando usar também a (DLL) da bematech e não entendo que estou raindo os meus princípios. Outro motivo pelo qual estou investigando a Image2Pdf.(DLL) é que ela só faz o que eu preciso mesmo, que é converter EMF em PDF. (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Esse é um assunto que muito me interessa, mas, só consigo enviar email usando o comando abaixo se não enviar nenhum arquivo anexo. Com arquivo anexo não vai nem a pau! DEFINE MAIL oMail; SUBJECT cAssunto ; TEXT cMensagem; FROM USER oMail:aRecipients:={cPara} oMail:aFiles:=aAnexo ACTIVATE MAIL oMail If oMail:nRetCode <> 0 nMsgErro := "Ocorreu um afalha no envio do E-mail, código do erro: "+alltrim(str(oMailErro)) nMsgErro := if(oMail:nRetCode = 1, "Operação cancelada pelo usuário...", nMsgErro) nMsgErro := if(oMail:nRetCode = 2, "Ocorreu uma falha na operação ...", nMsgErro) nMsgErro := if(oMail:nRetCode = 3, "Erro no login da Conta de correio...", nMsgErro) nMsgErro := if(oMail:nRetCode = 4, "Disco chieio ...", nMsgErro) nMsgErro := if(oMail:nRetCode = 5, "memoria insifuciente...", nMsgErro) nMsgErro := if(oMail:nRetCode = 6, "Ocorreu uma falfa na operação ...", nMsgErro) MsgStop(nMsgErro,"Advertência !") Endif (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

??? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Alguém já adquiriu a licença desse produto: Image2Pdf.dll ? É garantido? Tem lá uma versão a U$ 60,00, alguém sabe se eu consigo distribuir essa versão junto com o meu aplicativo e se os usuários irão conseguir compartilhar essa DLL em rede? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop