microvolution

pessoal bom dia! o meu problema é semelhante ao do "betovsp". o meu caso é o seguinte. tenho um aplicativo em clipper migrado pra harbour funcionando perfeitamente em rede win server 2k3 com estações em win xp. Todos os usuários funcionam perfeitamente que são usuários comuns (não são administradores). Acessam o aplicativo via rede (AD Active Directory domínio) que está instalado fisicamente no servidor 2k3 de nome srv01. As estações são nomeados como MCR0x. Então, resolvi experimentar o sistema rodando numa máquina com win 7. Aí começaram os problemas. Se eu logar na estação com o meu login (administrador) roda tudo perfeito. Mas, se logar com um dos usuários básicos, aparece o seguinte erro (semelhante ao aqui do post): ERROR DBCMD/2001 WORKAREA NÃO ESTÁ EM USO: ORDLISTCLEAR CALLED FROM MAIN (851). Aí abro o .PRG (main) na linha 851 e está os seguintes comandos/funções: use C:\WINDOWS\SYSTEM32\FRMV.INF shared new set index to C:\WINDOWS\SYSTEM32\FRMV.INI NM_EMPRESA := NMEMPRESA NOME_EMPRESA := NMEMPRESA mREGISTRO := REG mDT_LIB := DT_LIB // esta é a linha 851 e última desta sequência. então, como disse a linha 851 onde está o tal ORDLISTCLEAR é a última acima, que repito abaixo: mDT_LIB := DT_LIB // esta é a linha 851 e última desta sequência. Lembrando que já diminuí a segurança do WIN 7 Ultimate (UAC User Account Control) para ou mínimo ou "desabilitado" mas infelizmente não surtiu efeito desejado. Vi, que o prezado "betovsp" mudou também as seguranças da pasta onde estão as tabelas DBF, mas, isso não sei como fazer. Tem como ajudar? grato, MICROVOLUTION "se o Senhor não edificar a casa, em vão trabalham os que a edificam..."

obrigado "crisvam" pela resposta... a função ISPRINT() também é nativa no harbour, o que precisamos saber é como colocar a ISPRINT.C (que também tem no harbour/core do Viktor) e como chamá-la. E, tem mais, alguém já a testou e ela funciona mesmo? Pois a questão é muito simples: No clipper (16 bits) a gente usava um loop assim: do while lastkey()<>27 .and. .not. isprinter() Então, se as informações abaixo dessem algum resultado .F. esse do/while iria ficar por ali até o pressionamento do ESC. Vejam as diversas situações que aconteciam: - SE existe impressora LPT instalada e ligada (on/line) : .T. - SE existe impressora LPT instalada mas DESLIGADA: .F. - se existe impressora LPT instalada, ligada, mas, sem cabo paralelo: .F. - se existe impressora LPT instalada, ligada, com cabo, mas travada: .F. Viram, como era simples de se verificar algum problema de impressão? Agora no harbour não funciona assim: Desde que exista a instalação da impressora, o resultado será sempre .T. Então, para nós (programadores) se estivermos na frente do computador, é muito fácil de se descobrir por que, que a impressão não saiu... agora para o leigo, o usuário, o BIOS, a coisa é feia... ele simplesmente não levanta "sua b****" da poltrona pra ver se a impressora está travada, desligada, ou sem cabo, ou sei lá, pois, o sistema (nosso aplicativo) mandou a impressão e ele (usuário) está aguardando a impressão... ENTÃO, alguém conseguiu desvendar este mistério? Nestes tópicos, estou também questionando... e é bom todos acessarem e virem as respostas: http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=15518&p=104059#p104059 http://www.hmgforum.com/viewtopic.php?f=43&t=4400&start=160 google/fórum/harbour (inglês): https://groups.google.com/forum/#!topic/harbour-users/uphW9lXb17o Abraços e bom dia a todos!

Olá kapiaba boa noite! desde que migrei de clipper para harbour (janeiro/2015) também, como todos perceberam que a função ISPRINTER(), bem como as novas funções modernas do harbour não informam corretamente o estado da impressora matricial (on/off line), como você muito bem explanou... então no fórum pctoledo.com.br/forum e também no fórum oficial do harbour no google groups onde o Viktor Szakats participa, dentre outros, criadores, mantenedores, desenvolvedores do harbour estão... aí o próprio Viktor me respondeu, com esta função desenvolvida por ele mesmo entre 1999-2007 que chama-se "ISPRINT.C" - a qual você a reportou aqui, traduzindo-a até mesmo para o português. Bom, mas, uma coisa nem o Viktor e nem V.Sa. ensina como chamá-la no nosso código fonte .PRG, pois o harbour já tem nativo a função ISPRINT() também dentro de uma de suas LIBs. Então, prezado, como colocar, chamar e usar esta função em C++ no nosso código em harbour? Qual sua sintaxe? grato! MVinfo - W de Paula.

Prezados Emotta, Timão, a quem cumprimento a todos desse fórum! Gostei muito dessa tela (.jpg) do vosso sistema feito no nosso antigo clipper e agora em fivewin. Bom, infelizmente programo desde os meus 14 anos, inicialmente em basic (8bits), e depois dbase e finalmente fiquei desde 1990 até agora final de 2014 em clipper e dormindo no tempo. Tenho apenas um aplicativo comercial (não fiscal) com 3 clientes, sendo um apenas pagante mensalmente. Cheguei por várias e de tantas portas que nunca se abriram, diante do tanto de gente muito mais avançada que eu em desistir ou até mesmo pensar que um dia fui um "programador" de computador. Mas, sempre que acessava a internet, ou chegava nas empresas (onde compro qq coisa) e via os softwares de frente de caixa, frente de loja, cartão de ponto, etc... chorava dentro de mim, dizendo comigo mesmo "eu também podia ter algum software reconhecido no mercado brasileiro, podia ser só no meu estado, cidade ou até mesmo bairro", MAS só tenho um cliente fiel... tentei até mesmo uma lavagem cerebral, mudei de ramo, ocupei minha mente com outras coisas, mas, toda vez era o mesmo tormento. Há uns 6 anos descobri esse tal de "harbour" mas aquelas telas pretas de antigo DOS que já me dava nojo/vômito, não consegui migrar e fiquei cada vez mais apertado. Até que enfim, alguém sentiu minhas dores, como sendo suas e finalmente depois de tantas tentativas de migração, consegui através da HMG 3.0.35 migrar para harbour, ou seja, de 16 bits, para 32 bits... e finalmente comecei a me sentir menos pior. Enfim, algumas coisas ainda são novidade, pois só estou no negócio de harbour há menos de 5 meses, pois migrei em 01/2015. As dúvidas são muitas: 1 - Como o modo gráfico é muito complexo, e sei um pouco de Object Pascal (esqueci de mencionar rsrsrs, desculpa) e a IDE/RAD dele (Delphi) é uma maravilha então, surgem outros problemas: 1.1 - Meu clipper/harbour eu uso DBFNTX e o DELPHI só trabalha bem com DBF/CDX. Então, já estou começando a migrar também de DBFNTX para DBFCDX nos meus códigos fontes; 2 - Meu único aplicativo que não é FISCAL preciso aprender a maneira correta para cadastrar meu CPF/CNPJ na Receita Estadual de MG e saber o que precisa para que meu software passe no teste ou mude para que se enquadre nos requisitos do estado; 2.1 - E, aí acredito que o meu software será mais fácil de se vender; 2.2 - Para que também seja mais fácil (nesse tanto de concorrência) preciso mudar o visual de modo console para modo gráfico, com isso, é que os novos módulos os farei em DELPHI XE3 ou superior por ser mais fácil a compreensão e num ambiente gráfico que já estou um pouco acostumado, pois no harbour modo console, a gente muda mais ou menos uns 20% do código original, agora para modo gráfico as alterações podem ultrapassar os 60% ou 70%; 3 - Se os nossos DBFCDX forem ainda confiáveis, não vejo o porquê alterar para SQL ou algo similar; Bom agora é que cheguei até esse tão conceituado fórum aqui, mais uma vez: 4 - Estou na fase de mudar a tela de mensagens de erro para uma mais amigável. No fórum PCTOLEDO encontrei o mesmo título desse daqui e acabei vindo pra cá e ficar admirado com a beleza e simplicidade da tela de erro padrão da Emotta Sistemas. Então, gostaria da ajuda de V.Sas. em fazer uma tela de erro para o meu software bem mais amigável que a existente no harbour em modo console e também melhor ainda que a do modo gráfico. Se V.Sas. puderem me passar um código para harbour fico eternamente agradecido. No mais, parabéns a todos! Grato, MICROVOLUTION / W de Paula.

Gente, programo há muitos anos em clipper... e nunca migrei para POO, por diversos fatores, sendo o principal deles é: com esse tanto de linguagem Orientada a Objeto, qual deveria aprender? Delphi, C++, VB.NET, ASP.NET, C#, PHP, etc... então fiquei na dúvida e até hj não evoluí... Agora, tem bastante tempo q não implemento meu único aplicativo q fiz em Clipper - um programa para loja de roupas. Bom, acontece que há mais ou menos 3 anos, li algo sobre o xHarbour mas achei mto difícil compreender... até q hj encontrei essa tal de xDev Studio. Aí fiquei facinado, então comecei a transpor meus códigos .PRG para dentro dessa IDE. Bom, então já fiz algumas modificações q ele pede: - Marquei o programa principal como MAIN; - Coloquei a "function main()... return nil" no PRG principal; - Editei todos os programas .PRG com o início com "PROCEDURE + "nomedomódulo"... Enfim, já estou na hora de compilar com o F9... Agora chegou num erro, que não consigo sair dele, o qual é: "F0002 Redefinition of procedure or function DCI10001" A partir daí para a compilação e a linha 1 do "DCI10001.PRG", fica em vermelho q está com o seguinte comando: "PROCEDURE DCI10001"... Bom, pra me ajudarem, segue todo o conteúdo deste .PRG: ========= procedure DCI10001 private DCI10001 := {{{'DCI10001',; 'Fornecedores',; '&DIR\DCI10001.DBF'},; {'ICI10001',; 'str (CDFORNECE,04)',; '&DIR\DCI10001.NTX'},; {'ICI10520',; 'NMFORNECE',; '&DIR\ICI10520.NTX'},; {'ICI10521',; 'NUCGC',; '&DIR\ICI10521.NTX'}},; {'CDFORNECE' ,'N', 4, 0},; {'NMFORNECE' ,'C', 40, 0},; {'EDENDEREC' ,'C', 40, 0},; {'EDBAIRRO' ,'C', 30, 0},; {'EDCIDADE' ,'C', 30, 0},; {'NUCEP' ,'C', 8, 0},; {'EDUF' ,'C', 2, 0},; {'EDCXPOST' ,'C', 15, 0},; {'DT_CADAST' ,'D', 8, 0},; {'NUFONE' ,'C', 10, 0},; {'NUFONE2' ,'C', 10, 0},; {'NUFAX' ,'C', 10, 0},; {'NUDDG' ,'C', 11, 0},; {'NM_SITE' ,'C', 30, 0},; {'NM_EMAIL' ,'C', 30, 0},; {'NUCGC' ,'C', 14, 0},; {'NU_IE' ,'C', 30, 0},; {'NM_REPRES' ,'C', 70, 0},; {'NUFONE_RP' ,'C', 10, 0}} ============= Finalmente, descobri q todos os companheiros deste módulo, DCI10002, DCI10003, ..., DCI10999, estão com o mesmo problema. Se alguém souber ajudem-me por favor. Grato, microvolution@hotmail.com