Ladinilson

Em 16 bits a rotina de acessos a usuários era assim... usava assim... LOCAL oDatabase LOCAL nStep LOCAL oTree LOCAL oLink @ 9, 7 TREE oTree OF oWndMag ; SIZE 309, 356 PIXEL ; BITMAPS { "Traffic","Ok", "No", "MB1","MB2","MB3","MB4","MB5","MB6","MB12","MB7","MB9","MB118","MB8","MB11",; "MB110","MB117","MB112","MB119","MB114","MB115","MB116","PRINTER","GRAPH","MB5","MANUTENCAO","REORG","OPSIST","CALCU","MB122","MB123"} ; TREE STYLE nOr( TVS_HASLINES, TVS_HASBUTTONS ) ; ON DBLCLICK ClickTree(oTree) oTree:Set3dlook() ArmarTree( oTree ) IF( oPAll, ( oTree:OpenAll(), SysRefresh() ), ( oTree:CloseAll(), oTree:Expand(), SysRefresh() )) LisB:SETFOCUS() RETURN oTree Function ArmarTree( oTree ) LOCAL oDatabase LOCAL nStep LOCAL oLink oTree:bRClicked = {|nRow,nCol| MenuTree(oTree,nRow,nCol)} oDatabase := oTree:GetRoot() oDatabase := oDatabase:AddLastChild( "Acessos", 1, 1 ) oLink := oDatabase:AddLastChild( "Produtos/Serviços", 04, 04 ) oLink:AddLastChild( "Incluir" , 0, IF(Usuarios->usu002,2,3) ) oLink:AddLastChild( "Alterar" , 0, IF(Usuarios->usu003,2,3) ) oLink:AddLastChild( "Excluir" , 0, IF(Usuarios->usu004,2,3) ) oLink := oDatabase:AddLastChild( "Clientes", 05, 05 ) oLink:AddLastChild( "Incluir" , 0, IF(Usuarios->usu006,2,3) ) oLink:AddLastChild( "Alterar" , 0, IF(Usuarios->usu007,2,3) ) oLink:AddLastChild( "Excluir" , 0, IF(Usuarios->usu008,2,3) ) oLink := oDatabase:AddLastChild( "Fornecedores", 06, 06 ) oLink:AddLastChild( "Incluir" , 0, IF(Usuarios->usu010,2,3) ) oLink:AddLastChild( "Alterar" , 0, IF(Usuarios->usu011,2,3) ) oLink:AddLastChild( "Excluir" , 0, IF(Usuarios->usu012,2,3) ) oLink := oDatabase:AddLastChild( "Transportadores", 07, 07 ) oLink:AddLastChild( "Incluir" , 0, IF(Usuarios->usu014,2,3) ) oLink:AddLastChild( "Alterar" , 0, IF(Usuarios->usu015,2,3) ) oLink:AddLastChild( "Excluir" , 0, IF(Usuarios->usu016,2,3) ) oLink := oDatabase:AddLastChild( IIF(LEFT(LSEmpresa,3)= "YES","Consultores","Funcionários"), 08, 08 ) oLink:AddLastChild( "Incluir" , 0, IF(Usuarios->usu018,2,3) ) oLink:AddLastChild( "Alterar" , 0, IF(Usuarios->usu019,2,3) ) oLink:AddLastChild( "Excluir" , 0, IF(Usuarios->usu020,2,3) ) oLink := oDatabase:AddLastChild( "Bancos/Contas/Históricos", 09, 09 ) oLink:AddLastChild( "Incluir" , 0, IF(Usuarios->usu022,2,3) ) oLink:AddLastChild( "Alterar" , 0, IF(Usuarios->usu023,2,3) ) oLink:AddLastChild( "Excluir" , 0, IF(Usuarios->usu024,2,3) ) oLink := oDatabase:AddLastChild( "Cartões de Crédito", 10, 10 ) oLink:AddLastChild( "Incluir" , 0, IF(Usuarios->usu026,2,3) ) oLink:AddLastChild( "Alterar" , 0, IF(Usuarios->usu027,2,3) ) oLink:AddLastChild( "Excluir" , 0, IF(Usuarios->usu028,2,3) ) oLink := oDatabase:AddLastChild( "Condição de Pagamento", 11, 11 ) oLink:AddLastChild( "Incluir" , 0, IF(Usuarios->usu030,2,3) ) oLink:AddLastChild( "Alterar" , 0, IF(Usuarios->usu031,2,3) ) oLink:AddLastChild( "Excluir" , 0, IF(Usuarios->usu032,2,3) ) oLink := oDatabase:AddLastChild( "Tipos de Operações/Motivos de Cancelamento de Notas", 12, 12 ) oLink:AddLastChild( "Incluir" , 0, IF(Usuarios->usu034,2,3) ) oLink:AddLastChild( "Alterar" , 0, IF(Usuarios->usu035,2,3) ) oLink:AddLastChild( "Excluir" , 0, IF(Usuarios->usu036,2,3) ) oLink := oDatabase:AddLastChild( "C.F.O.s", 13, 13 ) oLink:AddLastChild( "Incluir" , 0, IF(Usuarios->usu038,2,3) ) oLink:AddLastChild( "Alterar" , 0, IF(Usuarios->usu039,2,3) ) oLink:AddLastChild( "Excluir" , 0, IF(Usuarios->usu040,2,3) ) oLink := oDatabase:AddLastChild( "Plano de Contas", 14, 14 ) oLink:AddLastChild( "Incluir" , 0, IF(Usuarios->usu042,2,3) ) oLink:AddLastChild( "Alterar" , 0, IF(Usuarios->usu043,2,3) ) oLink:AddLastChild( "Excluir" , 0, IF(Usuarios->usu044,2,3) ) oLink := oDatabase:AddLastChild( "Centro de Custos", 15, 15 ) oLink:AddLastChild( "Incluir" , 0, IF(Usuarios->usu046,2,3) ) oLink:AddLastChild( "Alterar" , 0, IF(Usuarios->usu047,2,3) ) oLink:AddLastChild( "Excluir" , 0, IF(Usuarios->usu048,2,3) ) oLink := oDatabase:AddLastChild( "Saídas", 16, 16 ) oLink:AddLastChild( "Efetuar um orçamento" , 0, IF(Usuarios->usu050,2,3)) oLink:AddLastChild( "Efetuar um venda" , 0, IF(Usuarios->usu051,2,3)) oLink:AddLastChild( "Editar produtos de uma vendas" , 0, IF(Usuarios->usu052,2,3) ) oLink:AddLastChild( "Cancelar produto de uma venda" , 0, IF(Usuarios->usu053,2,3) ) oLink:AddLastChild( "Não vender apenas a vista" , 0, IF(Usuarios->usu054,2,3) ) oLink:AddLastChild( "Venda em Checkout" , 0, IF(Usuarios->usu055,2,3) ) oLink:AddLastChild( "Procurar/consultar/adicionar vendas" , 0, IF(Usuarios->usu056,2,3) ) oLink:AddLastChild( "Dar descontos e altera preços de produtos", 0, IF(Usuarios->usu057,2,3) ) oLink:AddLastChild( "Excluir uma venda" , 0, IF(Usuarios->usu058,2,3) ) oLink:AddLastChild( 'Executar a "sangria" do caixa' , 0, IF(Usuarios->usu059,2,3) ) oLink:AddLastChild( "Executar a leitura do caixa" , 0, IF(Usuarios->usu060,2,3) ) oLink:AddLastChild( "Executar o fechamento do caixa" , 0, IF(Usuarios->usu061,2,3) ) oLink:AddLastChild( "Configurar vendas" , 0, IF(Usuarios->usu062,2,3) ) oLink := oDatabase:AddLastChild( "Pedidos", 17, 17 ) oLink:AddLastChild( "Excluir produto de um pedido" , 0, IF(Usuarios->usu064,2,3)) oLink:AddLastChild( "Excluir um pedido" , 0, IF(Usuarios->usu065,2,3)) oLink:AddLastChild( "Imprimir um pedido" , 0, IF(Usuarios->usu066,2,3)) oLink := oDatabase:AddLastChild( "Entradas", 18, 18 ) oLink:AddLastChild( "Incluir produto de uma compra" , 0, IF(Usuarios->usu068,2,3)) oLink:AddLastChild( "Excluir produto de uma compra" , 0, IF(Usuarios->usu069,2,3) ) oLink:AddLastChild( "Excluir nota de compra" , 0, IF(Usuarios->usu070,2,3) ) oLink:AddLastChild( "Consultar uma nota de compra" , 0, IF(Usuarios->usu071,2,3) ) oLink:AddLastChild( "Lançar transportadores de compra" , 0, IF(Usuarios->usu072,2,3) ) oLink:AddLastChild( "Lançar títulos de uma compra" , 0, IF(Usuarios->usu073,2,3) ) oLink:AddLastChild( "Configurar compras" , 0, IF(Usuarios->usu074,2,3) ) oLink := oDatabase:AddLastChild( "Requisições", 19, 19 ) oLink:AddLastChild( "Excluir produto em uma requisição" , 0, IF(Usuarios->usu076,2,3)) oLink:AddLastChild( "Excluir uma requisição" , 0, IF(Usuarios->usu077,2,3)) oLink:AddLastChild( "Imprimir uma requisição" , 0, IF(Usuarios->usu078,2,3)) oLink := oDatabase:AddLastChild( "Caixa", 20, 20 ) oLink:AddLastChild( "Incluir lançamento no caixa" , 0, IF(Usuarios->usu080,2,3)) oLink:AddLastChild( "Alterar lançamento do caixa" , 0, IF(Usuarios->usu081,2,3)) oLink:AddLastChild( "Excluir lançamento do caixa" , 0, IF(Usuarios->usu082,2,3)) oLink:AddLastChild( "Imprimir lançamentos do caixa" , 0, IF(Usuarios->usu083,2,3)) oLink := oDatabase:AddLastChild( "Contas a Receber", 21, 21 ) oLink:AddLastChild( "Incluir lançamento no contas a receber" , 0, IF(Usuarios->usu085,2,3)) oLink:AddLastChild( "Alterar lançamento no contas a receber" , 0, IF(Usuarios->usu086,2,3)) oLink:AddLastChild( "Excluir lançamento do contas a receber" , 0, IF(Usuarios->usu087,2,3)) oLink:AddLastChild( "Imprimir lançamentos do contas a receber" , 0, IF(Usuarios->usu088,2,3)) oLink:AddLastChild( "Acessar contas recebidas" , 0, IF(Usuarios->usu089,2,3)) oLink := oDatabase:AddLastChild( "Contas a Pagar", 22, 22 ) oLink:AddLastChild( "Incluir lançamento no contas a pagar" , 0, IF(Usuarios->usu091,2,3)) oLink:AddLastChild( "Alterar lançamento no contas a pagar" , 0, IF(Usuarios->usu092,2,3)) oLink:AddLastChild( "Excluir lançamento do contas a pagar" , 0, IF(Usuarios->usu093,2,3)) oLink:AddLastChild( "Imprimir lançamentos do contas a pagar" , 0, IF(Usuarios->usu094,2,3)) oLink:AddLastChild( "Acessar contas pagas" , 0, IF(Usuarios->usu095,2,3)) oLink := oDatabase:AddLastChild( "Cheques Recebidos", 30, 30 ) oLink:AddLastChild( "Incluir lançamento de cheques" , 0, IF(Usuarios->usu097,2,3)) oLink:AddLastChild( "Alterar lançamento de cheques" , 0, IF(Usuarios->usu098,2,3)) oLink:AddLastChild( "Excluir lançamento de cheques" , 0, IF(Usuarios->usu099,2,3)) oLink:AddLastChild( "Imprimir lançamentos de cheques" , 0, IF(Usuarios->usu100,2,3)) oLink:AddLastChild( "Baixar cheques" , 0, IF(Usuarios->usu101,2,3)) oLink := oDatabase:AddLastChild( "Cheques Emitidos", 31, 31 ) oLink:AddLastChild( "Incluir lançamento de cheques" , 0, IF(Usuarios->usu103,2,3)) oLink:AddLastChild( "Alterar lançamento de cheques" , 0, IF(Usuarios->usu104,2,3)) oLink:AddLastChild( "Excluir lançamento de cheques" , 0, IF(Usuarios->usu105,2,3)) oLink:AddLastChild( "Imprimir lançamentos de cheques" , 0, IF(Usuarios->usu106,2,3)) oLink:AddLastChild( "Baixar cheques" , 0, IF(Usuarios->usu107,2,3)) oLink := oDatabase:AddLastChild( "Movimento Bancário", 09, 09 ) oLink:AddLastChild( "Incluir lançamento bancários" , 0, IF(Usuarios->usu109,2,3)) oLink:AddLastChild( "Alterar lançamento bancário" , 0, IF(Usuarios->usu110,2,3)) oLink:AddLastChild( "Excluir lançamento bancário" , 0, IF(Usuarios->usu111,2,3)) oLink:AddLastChild( "Imprimir lançamento bancário" , 0, IF(Usuarios->usu112,2,3)) oLink:AddLastChild( "Baixar lançamento bancário" , 0, IF(Usuarios->usu113,2,3)) oLink := oDatabase:AddLastChild( "Imprimir Saídas", 23, 23 ) oLink:AddLastChild( "Relatórios das saídas" , 0, IF(Usuarios->usu115,2,3) ) oLink := oDatabase:AddLastChild( "Imprimir Entradas", 23, 23 ) oLink:AddLastChild( "Relatórios das entradas" , 0, IF(Usuarios->usu117,2,3) ) oLink := oDatabase:AddLastChild( "Imprimir Estoque", 23, 23 ) oLink:AddLastChild( "Relatórios do estoque" , 0, IF(Usuarios->usu119,2,3) ) oLink := oDatabase:AddLastChild( "Imprimir Clientes", 23, 23 ) oLink:AddLastChild( "Relatórios dos clientes" , 0, IF(Usuarios->usu121,2,3) ) oLink := oDatabase:AddLastChild( "Imprimir Fornecedores", 23, 23 ) oLink:AddLastChild( "Relatórios dos fornecedores" , 0, IF(Usuarios->usu123,2,3) ) oLink := oDatabase:AddLastChild( "Imprimir Funcionários", 23, 23 ) oLink:AddLastChild( "Relatórios dos funcionários" , 0, IF(Usuarios->usu125,2,3) ) oLink := oDatabase:AddLastChild( "Gráficos", 24, 24 ) oLink:AddLastChild( "Relatórios de gráficos" , 0, IF(Usuarios->usu127,2,3) ) oLink := oDatabase:AddLastChild( "Manutenção dos Arquivos", 26, 26 ) oLink:AddLastChild( "Manutenção dos arquivos do programa" , 0, IF(Usuarios->usu129,2,3) ) oLink := oDatabase:AddLastChild( "Usuários", 25, 25 ) oLink:AddLastChild( "Cadastro e acessos de usuários e auditoria" , 0, IF(Usuarios->usu131,2,3) ) oLink:AddLastChild( "Acessar empresas do programa" , 0, IF(Usuarios->usu132,2,3) ) oLink := oDatabase:AddLastChild( "Utilitários de Arquivos", 27, 27 ) oLink:AddLastChild( "Reorganizar índices e verifica a integridade dos arquivos" , 0, IF(Usuarios->usu134,2,3) ) oLink:AddLastChild( "Cópia de segurança e restauração dos arquivos" , 0, IF(Usuarios->usu135,2,3) ) oLink := oDatabase:AddLastChild( "Utilitários do Programa", 28, 28 ) oLink:AddLastChild( "Configurações de impressoras e do programa " , 0, IF(Usuarios->usu137,2,3) ) oLink:AddLastChild( "Informações de rede" , 0, IF(Usuarios->usu138,2,3) ) oTree:UpdateTV() RETURN oTree id=code>id=code>notem que uso o "TREE" e em 32 bits ainda consegui fazer este efeito, ou seja, com bitmaps e checkbox, se alguém tiver um exemplo de pelo menos com o checkbox, ficaria muito agradecido pois ainda não atualizei a versão por causa deste problema. Obrigado

Cris! pode deixar, já achei! Obrigado mesmo assim

Cristhiano poderias mandar para mim também ladinilson@hotmail.com Obrigado

Já tive uma situação semelhante ao relatado pelo Decker, além de todas as dificuldades, tem alguns que se dizem "profissionais" e chamam nosso trabalho de ultrapassado. Mas acho que a questão em relação aos clientes esta onde o Sérgio citou, sendo que alguns olham pelo lado do barato e outros pelo lado da segurança e do funcionamento da sua empresa e assim pagando um preço mais alto. Trabalho com a venda do meu programa que por sinal me dediquei a fazer com que seja o mais fácil de operar e com mais rotinas de boa importancia ao usuário principal (cliente), mostrando assim que o programa vale o preço a ser pago e isso que faz a diferença, mas claro, se o cliente esta querendo coisa barata, não vai adiantar nada Sobre a manutenção, cobro um preço X com ela e um Y sem esta manutenção, e assim não crio um desconforto maior podendo perder o negócio já que quando falamos em manutenção, o cliente "entorta" logo a cara Mas a única maneira é como diz o Luiz Arruda, trabalhar para que seu produto seja superior aos outros e com isso mostrar que você e seu programa é de qualidade, pois qualidade, nem os mais pechinchadores abrem mão

Vailton Sei que é fora deste assunto em questão, mas tem como colocar uma ou mais LIB antes das do FWH/xHARBOUR no xDev como usava no arquivo LNK para 16 bits: LIB SBUTTON, TREEVIEW, FOLDER LIB FIVE , FIVEC , OBJECTS , WINAPI Obrigado

Eduardo Mota falou o que seria mais sensato na solução de trazer mais lucros e mais desenvolvimento para a linguagem e este é a único argumento que realmente deveria ter tido o Gilmer e não ficar falando publicamente quem teria cópia pirata, outros que não apoiaram ficarem com esta impressão ou a falta de algum membro que atua por aqui, não aparecer mais e ai ficarmos com essa suposição Vagner o fato de ter citado as duas liguagens é que a maioria dos programadores em FWH/Harbour, vieram desde a versão Summer do Clipper e acredito eu que muitos programadores que começaram do "zero", não tiveram a mesma sorte do que a gente pois em relação a livros e tutorias, conheço apenas o Livro do Vilian como material para iniciantes e até hoje a linguagem não tem sequer uma "bíblia do programador" como tivemos com o clipper e até o próprio Visual Objects que este livro não por onde anda (rsrs) apoio a sua atitude, não sou a favor da pirataria, mas para problemas (se é que podemos chamar isso de um) devemos ter calma a tomar decisões e acredito que esta solução do Eduardo, seria uma boa para a falta de dividendos para a linguagem e assim torná-la ainda melhor

Gilmer acho que isso é um "tiro no pé", pense o seguinte: 1 - Se muitos membros que tem esta cópia pirata pararem de "ajeitar" ou modernizar seus programas, eles certamente migrarão para outra linguaguem porque NINGUÉM MAIS O AJUDARà e não vai mais querer participar disto que você chama de PALHAÇADA ou CASA DA MÃE JOANA 2 - Menos usuários, menos gente precisando e ai, ficará as atualizações e classes para um grupo reduzido dando margem para linguagem como delphi, VB e outras porque o fivewin/harbour já é pouco menos conhecido em relação esta duas linguagens citadas e ainda mais com essa 3 - Se achas que muitos que tem esta cópia pirata esta procupado com isso, acho que não, minhas preocupações vão além de assuntos que já foram discutidos aqui no fórum e li todo este assunto como empresas que fornecem o software na aquisição de equipamentos como um checkout por exemplo, programa instalados por pessoas que não entendem de programação como o caso do "Aplicativos Comerciais", programas baratos comprados em São Paulo e outras dificuldades que estamos enfrentando neste momento Então acho que estas levando este assunto a sério demais e não esta nem um pouco preocupado com o futuro da linguagem porque o mercado esta pedindo programadores em Java e nós não temos nem uma rotina pronta ainda para Palm, que por esta razão já dexei de fechar vários negócios E por último, achas que alguém que não puder entrar neste fórum, vai correndo comprar?

Mas se você acha que eu "brinco" de informática, aqui vai um exemplo de como minha "brincadeira" com o Fivewin e ótima e quem sabe você contribui mais nesta comunidade como o Vagner que é um dos responsáveis por algumas classes em vez de ficar "enjoando" http://img129.imageshack.us/img129/4890/telaslsoftestoquefu3.jpg

"Você tem certeza que você trabalha com informática? ou vá apenas trabalha por brincadeira? já que seus clientes não devem pagar nada para você com seu pensamento" cara desculpe mas tuas atitudes e tuas palavras estão colocadas com muita imaturidade e se estás com algum problema pode nos dizer, afinal o fórum é seu (acho) e você pode fazer o que quizer aqui no mais esta discussão é por demais desnecessária, tenho 22 clientes entre loja de mat. de construção, distribuidoras, confecções, padarias, mercadinhos que terei que atualizar meus sistemas e não tenho tempo para isso!

Pow cara te pedi ajuda pelo o MSN e você ve, com tudo isso! sua segunda-feira amanheceu mais cedo para você ou sua mulher dormiu com calça jeans? cara que chato, devemos nos preocupar com outras coisas agora se você me tirar deste fórum, terá que perguntar e eliminar todo mundo que não te passar... "número de série, vou verificar se o "antigo" usuário ainda utiliza o produto, favor também me enviara nota fiscal, caso isto não seja possível" faça isso e ostente sua atitude diante de todos neste site, caso contrário se acalme, que bosta!

Gilmer não disse que seria uma cópia pirata, adquiri comprando com outro programador agora você e os membros irão perguntar para cada um aqui que pedir ajuda o nome da empresa, onde comprou, quando e etc?

Estou migrando minha aplicação de 16 para 32 e ao usar o xDev v0.70 me deparei com este erro no final, já converti a .RES e estou abrindo com Pelles C vi em outro tópico que poderia ser o tamanho da .RES e este erro apresenta esta mensagem Fatal: Error detected (IMP1807) Fatal: Access violation. Link terminated. Desde já agradeço xHB build 1.1.0 (SimpLex), BCC 5.5.1, FW 2.6 June 2005, Pelles C

Estou migrando minha aplicação de 16 para 32 e ao usar o xDev v0.70 me deparei com este erro no final, já converti a .RES e estou abrindo com Pelles C vi em outro tópico que poderia ser o tamanho da .RES e este erro apresenta esta mensagem Fatal: Error detected (IMP1807) Fatal: Access violation. Link terminated. Desde já agradeço xHB build 1.1.0 (SimpLex), BCC 5.5.1, FW 2.6 June 2005, Pelles C

Desculpem ser um assunto fora do nosso intuito, mas o programa AC 2007, esta em alguns blogs e vem com um serial de liberação, aqui na minha cidade já vi algumas cópias instaladas e assim competindo com alguns programadores da região e também já substitui duas dessas cópias piratas alguém conhece seus programadores para este alerta (se que já não sabem) já que vi que a base de dados é DBF e presumo que seja Fivewin Obrigado

Desculpem ser um assunto fora do nosso intuito, mas o programa AC 2007, esta em alguns blogs e vem com um serial de liberação, aqui na minha cidade já vi algumas cópias instaladas e assim competindo com alguns programadores da região e também já substitui duas dessas cópias piratas alguém conhece seus programadores para este alerta (se que já não sabem) já que vi que a base de dados é DBF e presumo que seja Fivewin Obrigado

Alexandre aqui esta o link onde baixamos a versão 7.3b que é free, e neste arquivo compactado, vem como se usar http://sistemascvc.tripod.com/id5.html Na minha rotina uso... Icav := "NODOSIMP "+ctxtTmp+" 96 APA/" WINEXEC ((Icav)) Onde "ctxtTmp" é um arquivo de modo texto criado, que por sinal é a única modificação na sua rotina. ladinilson@hotmail.com FWH + Blinker

Usei o NODOSIMP e ficou muito bom, com este utilitário podemos usar até a paisagem com a TDOSPRN além de dos controles de fontes! FWH + Blinker 7

Então não seria em parte o equipamento, e sim a configuração desta rede, pois já recebi informações que deveríamos mudar para um ADS Remoto que resolveria e até seria mais rápida.

Han!

Vi este tópico do Viol (acho que é antigo) e estou com mesmo problema neste tipo de rede, Viol ou alguém já tem alguma solução? Obrigado! FW 2.3 Blinker 7

Alberto ultilize o NET USE para direcionar para LPT1 via DOS já que esta classe funciona assim, por exemplo: carregue o PROMPT DO MS-DOS e digite: NET USE LPT1: \\ESTACAO1\EPSON faça isto na estação de onde deseja imprimir e ESTACAO1, é onde esta a impressora na qual deseja imprimir espero que ajude!

égua, paraense no pedaço ladinilson@hotmail.com

Obrigado Kapiaba!

Existe alguma classe/rotina para tratamento de erros para evitar aquela tela de erro em inglês no Fivewin, pois alguns erros que acontecem seja de rotina ou fatores externos e alguns usuários não possuem o inglês básico, ficam com dificultades para explicar o mesmo, ou seja, um erros de aquivo de índice por exemplo, exibiria uma tela de mensagem (MSGSTOP) com o erro e o arquivo em português. Esta rotina se retorna o código do erro e nome do arquivo ou variável. Obrigado!

Existe alguma classe/rotina para tratamento de erros para evitar aquela tela de erro em inglês no Fivewin, pois alguns erros que acontecem seja de rotina ou fatores externos e alguns usuários não possuem o inglês básico, ficam com dificultades para explicar o mesmo, ou seja, um erros de aquivo de índice por exemplo, exibiria uma tela de mensagem (MSGSTOP) com o erro e o arquivo em português. Esta rotina se retorna o código do erro e nome do arquivo ou variável. Obrigado!