Kbelo

Ola amigos. Quero fazer uma tela que tenha um browse, gets, says, e uma imagem de fundo. Só que quero que isso fique ajustavel a qualquer resolução. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Ola amigos. Quero fazer uma tela que tenha um browse, gets, says, e uma imagem de fundo. Só que quero que isso fique ajustavel a qualquer resolução. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Alguem sabe como incluir arquivos externos com xMate. Tipo quero colocar um Ch para ficar na compilação para não precisar ficar chamando ele no PRG com #include "..." Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Alguem sabe como incluir arquivos externos com xMate. Tipo quero colocar um Ch para ficar na compilação para não precisar ficar chamando ele no PRG com #include "..." Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Bom até o momento não havia me pronunciado. Mas vamos la, vou tentar contribuir. Seguinte a coperativa ou associação quando com muitas ideias, pessoas, direções, chefes, etc. vira bagunça e não sai nada. A coperativa ainda não tem um norte pelo que estou vendo. Primeiro de tudo acho que deveria sentar mentores da ideia e ver qual o Objetivo. Montar um ERP? Sistema Modular? PDV(PAF-ECF)? Controles e classes? Primeiro deveriam saber o que fazer. Qual o Objetivo? Eu pelo que vi no topico muita gente quer entrar no bolo, outros estão dentro por estar, outros querem um eventual lucro, outros nem sabem o que estão fazendo aqui. Sugiro criar uma chapa com Diretores para que sejam inicialmente os responsaveis pela organização e inicialização da cooperativa. Depois juntar as ideias de projetos e ver o que é viavel. Se tera mais de um projeto, modulos, rotinas, etc... Definir quem sera os Gerentes de projetos e desenvolvedores responsaveis ou ate mesmo empresas responsaveis. Outra coisa aqui tem muitos programadores ao que acredito a maioria senão todos. Mas onde fica os tecnicos de Suporte? Onde fica o Tecnico de qualidade? Onde Fica o Financeiro? Teria uma Sede? Juntar um bolo só de programadores com certeza sera algo que nascera no fracasso. Apesar de muitas forças juntas devemos ter a consciencia que isso é como se fosse uma empresa e tera que ter setor, hierarquias, subordinados e principalmente investimento. Uma sugestão seria definir quais cargos iniciais teremos na cooperativa. Tendos os cargos definidos teremos os candidados e suas eventuais propostas para assumir o cargo. Ou Seja Cargos Presidente da Associação - Manda chuva inicialmente Vice Presidente - Trabalha diretamente com o Presidente e responde quando o chefão esta ausente. Diretor Juridico - Cuida das burocracias Juridicas ou da equipe juridica. Diretor Financeiro - Cuida das finanças ou da equipe do financeiro. Faz as cobranças, recebimento, etc... Diretor de Desenvolvimento - responsavel pelo andamento dos projetos, caso seja mais de uma equipe este seria o superior dos gerentes de projetos ou Programadores(desenvolvedores) responsaveis por cada equipe. Diretor de Qualidade - responsavel pelo teste e qualidade dos projetos, caso seja mais de uma equipe este seria o superior dos gerentes de qualidade ou tecnicos responsaveis por cada equipe. Diretor de Suporte - responsavel pelo suporte e atendimentos aos cooperados e clientes dos projetos, caso seja mais de uma equipe este seria o superior dos gerentes de Suporte ou Tecnicos responsaveis por cada equipe. Este foi só um exemplo os cargos podem ser outros e variados, mas seriam os principais para iniciar e criar a primeira equipe de responsabilidade. Depois de definidos os cargos teriamos os candidatos ou chapas. Prefiro candidato por cargo para evitar panela. Apos os canditatos e suas apresentações teriamos uma votação com os interessados e ai teriamos a definição da equipe. Esta se responsabilisa por captar os projetos e ideias e definir quais os objetivos iniciais e futuros dessa cooperativa. Com um passo a passo e uma hierarquia formada com direitos e deveres o negocio fica mais organizado e profissional. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Desculpa amigos mas quanto ao Pelles, Ws, ou outro qualquer não é o problema dele. Como o Kapiaba disse o problema é na classe. Os recursos são criados em qualquer editor e funcionam sem problemas, mesmo que seja em .res ou .rc Depois de compilados todos ficam semelhantes. Faça um teste com a classe nativa de Gets e says, provavelmente vai funcionar. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Ola Pessoal. Vi muitas pessoas falar em varios topicos e conversas que programador bom esta escasso. Eu não acho que isso seja realmente 100% uma realidade. Eu ja tive atras de programadores e achei nem 1 nem 2 nem 3. Varios aparecem o problema é o preço. Hoje para um programador Java 4 a 5 mil é salario base. Para programador xharbour com Fivewin é um Absurdo. E olha que achei bons programadores por até 2.5. Se nós tivessemos condições de bancar programadores nesse valor nunca faltaria desenvolvedores. Eu gostaria de ter condições de bancar 5000 para varios programadores e teria o maior prazer e fazer isso mas infelismente isso não é possivel hoje. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Só lembrando a voces que nenhum sistema esta obrigado a fazer o SPED. Quem tem a obrigação é o cliente juntamente com o Contador. Hoje a maioria dos sistemas de contabilidade importa os xmls e ate o proprio sped com menos dados. Nenhum sistema tem obrigação de fazer apuração de ICMS quem faz é o contador. Lógico que se voce não faz o concorrente faz e ganha seu cliente. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Se voce for homologar PAF ECF não pode usar os dados da impressora. O teste é feito com Ecf desligado. Voce tem que fazer tudo no sistema. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

voce deve emitir tudo no mesmo arquivo. Sendo todos Ecfs e notas de um mesmo CNPJ. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

João eu baixei do baixaki Superdowloads da pagina da microsoft e nenhum instala. Fiz todos os updates e tambem não instalou. Ja estou considerando formatar novamente. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Ola pessoal. Resolvi o problema. fui no the best workshop criei um controle com a classe "Grid" Salvei. Abri no pelles coloquei nas minhas telas no .res e pronto tudo funcionando. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Amigos bom dia. Formatei minha maquina e restaurei meus emails. Só que o hotmail não esta funcionando. Os passos que fiz foram. Instalei windows 7 ultimate. Somente 1 usuario Administrador com "Aparentemente" todos os privilegios. Instalei office 2007 Instalei o outlook connector configurei o email. Quando faço um enviar e receber mostra como concluido mas não aparece nenhum e-mail e se acesso pelo site mostra tudo. Desconfio que seja meu windows que ja reparei que alguns serviços estão desabilitados e não consigo habilitar. Ja fiz update mas mesmo assim não funciona. Outro problema que reparei é com .Net Framework não consigo instalar a versão 3.0 e nem a 3.5. Ja instalei a 4.0 mas quando vou instalar o SQL SERVER me pede a 3.5, mesmo com a 4.0 instalada. Devido aos dois problemas com produtos microsoft acredito que o problema esteja ligado. Alguem pode me dar um Help. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Amigos bom dia. Formatei minha maquina e restaurei meus emails. Só que o hotmail não esta funcionando. Os passos que fiz foram. Instalei windows 7 ultimate. Somente 1 usuario Administrador com "Aparentemente" todos os privilegios. Instalei office 2007 Instalei o outlook connector configurei o email. Quando faço um enviar e receber mostra como concluido mas não aparece nenhum e-mail e se acesso pelo site mostra tudo. Desconfio que seja meu windows que ja reparei que alguns serviços estão desabilitados e não consigo habilitar. Ja fiz update mas mesmo assim não funciona. Outro problema que reparei é com .Net Framework não consigo instalar a versão 3.0 e nem a 3.5. Ja instalei a 4.0 mas quando vou instalar o SQL SERVER me pede a 3.5, mesmo com a 4.0 instalada. Devido aos dois problemas com produtos microsoft acredito que o problema esteja ligado. Alguem pode me dar um Help. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Amigo depende muito. O IPI tem algumas variações. Pode ser sobre bruto ou sobre liquido. O Ideal seria voce colocar os valores dessa nota e nos mostrar onde quer chegar ai podemos lhe indicar o melhor calculo. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Não entendi muito bem sua resposta mas pelo pouco que entendi veja só. Voce disse que Grid não existe mas veja que postei ali que a grid eu criei sendo uma herança do TXBrowse. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Uma que me surgiu foi que o Resource esta como Custom Control e na classe esta TXBrowse. Eu to tentando alterar para Grid mas to apanhando do Pelles. Se alguem tiver uma dica. Se fosse com workshop ja tava feito ¬¬ Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

CLASS Grid FROM TXBrowse METHOD new( dialogo) CONSTRUCTOR ENDCLASS *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* METHOD new( dialogo) CLASS Grid *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* super:New( dialogo ) return self ... //::dialogo é a janela definida anteriormente. Não Funciona id=red> ::browse := grid():New( ::dialogo ) ::browse:CreateFromResource( 103 ) Funciona id=green> ::browse := TXBrowse():New( ::dialogo ) ::browse:CreateFromResource( 103 ) id=code>id=code>Alguem sabe o que tem de errado? da erro de Dialog não Existe. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. Editado por - kbelo on 03/04/2012 15:37:19

CLASS Grid FROM TXBrowse METHOD new( dialogo) CONSTRUCTOR ENDCLASS *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* METHOD new( dialogo) CLASS Grid *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* super:New( dialogo ) return self ... //::dialogo é a janela definida anteriormente. Não Funciona id=red> ::browse := grid():New( ::dialogo ) ::browse:CreateFromResource( 103 ) Funciona id=green> ::browse := TXBrowse():New( ::dialogo ) ::browse:CreateFromResource( 103 ) id=code>id=code>Alguem sabe o que tem de errado? da erro de Dialog não Existe. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. Editado por - kbelo on 03/04/2012 15:37:19

Gostaria de deixar minha ribbonbar como esta. A cor vem como padrão azul mas não to mais achando qual a propriedade que deve mudar. Alguem sabe quel seria? Quero que fique como esta imagem. http://imageshack.us/photo/my-images/707/ribbonk.gif/ PS: Eu fiz a da imagem e não lembro mais onde mexi. OMG Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. Editado por - kbelo on 08/03/2012 18:17:11

Gostaria de deixar minha ribbonbar como esta. A cor vem como padrão azul mas não to mais achando qual a propriedade que deve mudar. Alguem sabe quel seria? Quero que fique como esta imagem. http://imageshack.us/photo/my-images/707/ribbonk.gif/ PS: Eu fiz a da imagem e não lembro mais onde mexi. OMG Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. Editado por - kbelo on 08/03/2012 18:17:11

não tenho 100% de certeza mas acredito que sim. era pra ser somente uma evolução da lib Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Troque hbzip.lib por zLib.lib Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

conforme ja havia lhe passado pelo MSN. Segue como deve proceder Nesse exemplo vou mostrar 2 notas fazendo a adição manual. vNotas := {} vItens := {} //Nota 1 // Num,filial, cliente, valor id=green> aadd(vNotas, {"000001", 1, 20, 110.20 }) // Num ,filial, cliente, valorIte, Codigoid=green> aadd(vItens, {"000001", 1, 20, 100.00 , 123 }) aadd(vItens, {"000001", 1, 20, 10.20 , 125 }) Nota 2 id=green> aadd(vNotas, {"000002", 1, 22, 50.00 }) // Num ,filial, cliente, valorIte, Codigoid=green> aadd(vItens, {"000002", 1, 22, 20.00 , 975 }) aadd(vItens, {"000002", 1, 22, 30.00 , 984 }) id=code>id=code>apos a montagem dos arrays vem voce faz os for's //faz o asort para garantir a ordenação do arrayid=green> asort{vNotas,,,{|x| x[1] + str(x[2] + str(x[3]) > y[1] + str(y[2]) + str(y[3]))}} asort{vItens,,,{|x| x[1] + str(x[2] + str(x[3]) > y[1] + str(y[2]) + str(y[3]))}} for i := 1 to len(vNotas) // faz o ascan para garantir que o primeiro item seja encontradoid=green> nPosItens := ascan(vItens, {|x| x[1] + str(x[2] + str(x[3]) > vNotas[i, 1] + str(vNotas[i, 2]) + str(vNotas[i, 3]))}) if nPosItens > 0 for j := nPosItens to len(vItens) // verifica se o item é diferente, se verdadeiro sai do for de itens e pula para proxima notaid=green> if vItens[j, 1] + str(vItens[j, 2]) + str(vItens[j, 3]) <> vNotas[i, 1] + str(vNotas[i, 2]) + str(vNotas[i, 3]) exit endif // aqui voce usa os dados do vItensid=green> next endif //aqui voce usa os dados do vNotasid=green> next id=code>id=code>id=code>id=code> Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

citação:Marcelo, boa tarde... obrigado pela atenção sei que será impossivel não alterar os fontes.... a transição exige, pois existem melhorias nas novas versoes.. o que eu gostaria é de estar em um tela no formato Windows e a partir dela, chamar os fontes originais ( no formato DOS ). Apos a aprovaçao do cliente, ele irá adquirir o FW e ahi, sim, seria convertido TUDO para a nova filosofia.. Abraços Nelson Nunes de Araujo Santo André - SP MSN : nelson.n.araujo@hotmail.com EMAIL: nelson.n.araujo@gmail.com nelson.n.araujo@terra.com.br Clipper 5.3E, Blinker 7.0, FW 2.4, Workshop id=quote>id=quote>Bom nesse caso teria 2 opçoes. 1º O sistema Fw grava um arquivo texto com o conteudo da função a ser executada. O Sistema DOS monitora se esse txt existe se existir ele pega txt e executa o comando que esta no txt. ou seja grava esse conteudo no txt "CadCli()" O Sistema dos abre o txt pega o conteudo e executa &conteudo 2º voce chama seu exe DOS com a função a ser executada. Ou Seja, faz o menu no Fivewin e na chamada de menu faz assim. WinExec("c:\senun\SisDos.exe", "CadCli()") id=code>id=code>Ao iniciar o sistema dos voce coloca um parametro na function main e ficaria assim. Function main(funcao) &funcao return id=code>id=code>Das duas forma iria funcionar mas eu faria da segunda que acho mais facil. Se usar o WinExec voce podera chamar o sistema DOS quantas vezes quizer mas se deseja que o sistema Windows Fique travado ate que o Sistema dos seja encerrado utilize o WaitRun no lugar do WinExec. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.