Luiz Servulo

citação:Sérvulo, Só tenho disponibilidade para a reunião via Skype à noite. Kleyber Derick xHarbour 1.1.0 + FWH 8.02 + xDevStudio + SQLLIB (98) 8162-1301 / (98) 3217-8162 Keyboard faca seu horário vamos nos adequando. Visite São Luís - MA A Ilha dos Amores id=quote>id=quote>Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

Convocando os interessados da comissão de criação da cooperativa para uma reunião "via skype" para Hoje a tarde. 1) Luiz Servulo - Luiz-unosoft - confirmado Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP Editado por - Servulo on 16/04/2012 09:33:01

Manifestação favorável Positivissima A disposição para ir compilando as informações Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

Quais os objetivos dessa Cooperativa? a) desenvolver rotinas comuns para aplicacao em nossas aplicacoes desenvolver uma aplicacao ( ERP primeiramente) que possa ser inserida em todos os nichos de mercado c) comercializar as aplicacoes desenvolvidas, alias a comercializacao deve ser feita exclusivamente pela cooperativa, acho que sao muitos os questionamentos a serem respondidos. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

Acho que o que esperamos com a Cooperativa e uma representatividade maior, acho que em cooperativa teremos tempo para focar no atendimento ao cliente, acho que o que esperamos e ter um corpo mais definido para enfrentarmos com altivez aqueles questionamentos de nossos clientes sobre continuidade, por melhores programadores que sejamos somos indivíduos com suas falhas pessoais e na cooperatiiva teremos garantia de continuidade e abrangência maior do que possuímos hoje. so o que estou pensando. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

citação:Boa tarde, Agradeço a lembrança e a confiança. Coloco-me à disposição. Abraços Cláudia Glória Gontijo (Cacau) “Os preconceitos são a razão dos imbecis.†Voltaire id=quote>id=quote>Salve Cacau acho que ja temos uma consutora jurídica de alto nível e excelente persona... Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

vou dar aqui meu palpite. a) mudar de tecnologia antes de ter um estudo acho suicídio, vamos aproveitar o conhecimento que ja temos. tecnologia similar a do "ECA" Lombardo, acho super interessante e valido, se o mestre Gilmer ja tem estudado sobre o assunto acho ser o caminho (a discutir) c) No exato momento todos estão com o bicho comendo nossos calcanhares e nada mais fácil que usar o que ja temos e em paralelo ter grupos estudando novas linguagens e tecnologias . minha opinião Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

Na minha opinião a plataforma deveria ser o mais autonoma possível, para manter a independência com o mínimo de utilizacao de ferramentas de terceiros. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP Editado por - Servulo on 14/04/2012 10:01:59

citação:Rossine Eu apoio isto, porem, só vejo um problema! o que acontece se vc resolver para com o núcleo? praticamente todos irão ficar amarrados. e-mail: gilmer@fivewin.com.br msn: fivewinbrasil@hotmail.com id=quote>id=quote>O mesmo questionamento fizemos a algum tempo atras quando tivemos a mesma ideia, sendo assim pode-se criar algo que trabalhe no mesmo modo, uma cooperativa ficaria na mao de um apenas Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

Concordo com o Kleyber de que a discussão disso deva ser feita bem antes do nosso encontro anual, e já nele poderiamos ter algo já definido ou mesmo rodando, sou incisivo que ja poderiamos ter uma reunião mais breve possivel, visto tantos interessados no assunto. Quanto a idéia do Rossine (qiinfo) acho que podemos discutir imaginando que devas funcionar a la Totvs em que pode ser adaptado a partir do modelo principal. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

citação:Rossine [qiinfo] -Poderia ser criado uma empresa para se controlar a parte do recebimento da mensalidade e tudo mais. id=quote>id=quote>Rossine a idéia de cooperativa é justamente criar uma personalidade jurídica para dar corpo as diversas pessoas que tem um ponto, idéia, trabalho em comun. Quanto a parte do recebimento, como ela é uma personalidade jurídica ela centralizaria e como é sem "fins lucrativos" ela tirando seus custos "repassaria" os ganhos aos seus associados. citação:Seria um novo sistema, criado do zero, básico, mas bem completo de acordo com um pré-estudo de todos os cadastros, campos, etc... id=quote>id=quote>Sim acho que este deveria ser o caminho, mas como a cooperativa visa a união livre e democrática, isso tem que ser decidido numa reunião, como ata de reunião e tudo, para ficar tudo documentado. Creio que depois de chegar em alguns pontos em comun deveria ser juntado algumas cabeças pensantes para a criação de fato dessa Cooperativa, vislumbro que todos nós teremos muito a ganhar contra nossos GIGANTES concorrentes, linguagem, método, forma tudo isto tem que ser decidido nessa DEMOCRÃTICA uniuão de desenvolvedores. minha humilde opinião. gostaria de ver/ouvir de um brotou a idéia mais recentem ente ( Gilmer ), se bem que a coisa já esta azeitada a um bom tempo pelo visto (Vagner, Valdir e demais que ja citaram tal idéia) Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

CONCEITO DE EMPRESA COOPERATIVA Cooperativa é uma associação autônoma de pessoas que se unem, voluntariamente, para satisfazer aspirações e necessidades econômicas, sociais e culturais, por meio de uma empresa de propriedade coletiva e democraticamente gerida.Encarando a cooperativa como uma empresa, o ponto de partida é a autogestão. Décadas de centralismo e tutelismo governamental brasileiro levaram as cooperativas e cooperadores, a uma cultura de dependência assistencialista, fazendo com que, ainda hoje, muitos fiquem a esperar paternalismo, incapazes de pensar como empresa auto - gestionada.As empresas só se autogestionam e cumprem com seus objetivos, quando atendem as necessidades dos mercados, com preço, qualidade e efetividade. O erro comumente ocorrido, quando se cria uma cooperativa, é de não se prestar atenção ao seu mercado de atuação, a concorrência interna e externa, a qualidade de seus serviços ou produtos, o atendimento e o preço que oferecerá a seus clientes.É necessário que o produto ou serviço que a cooperativa vá oferecer, esteja em condições de concorrer no mercado, do contrário não sairão negócios, que não gerarão renda e sem ela, não existirá futuro para a empresa recém formada. Em um ambiente turbulento empresarial, uma cooperativa, no meu entedimento, só conseguirá sobreviver e prosperar se conseguir, pelo menos, realizar o ciclo cooperativista. OS PRINCÃPIOS COOPERATIVISTAS: Para participar do desenvolvimento da sociedade de forma consciente e organizada é necessário em grupo como entendemos a vida de nossa comunidade, definindo o futuro que desejamos. Desde o início do cooperativismo a troca de idéias entre as pessoas, para solucionarem problemas comuns, foi colocada como prática necessária e insubstituível.Ao se apropriarem do saber as pessoas se apropriam do poder de modificar a realidade de, provando ser possível conquistar pelas próprias mãos um mundo melhor e mais digno. Esse hábito acompanha o crescimento do movimento cooperativista e tornou possível a permanente articulação de seus representantes, enfatizada em sucessivos congressos, desde o século passado.Em 1995, comemorou – se um século de existência da Aliança Coopertiva Internacional – ACI. No congresso comemorativo dessa data histórica, mais uma vez associados de todo o mundo debateram sobre importantes questões para o fortalecimento da prática cooperativista, refletindo sobre os objetivos de sua organizações.Durante o evento aprovaram conceitos e princípios, não muito diferentes daqueles apresentados pelos pioneiros, mas que devem estar sempre em pauta para que, atualizados e aperfeiçoados, sejam a base das estratégias de desenvolvimento do sistema de cooperativas existentes nos diversos países. ADESÃO VOLUNTÃRIA E LIVRE: As cooperativas são organizadas à participação de todos, independente de sexo, raça, classe social, opção política ou religiosa. Para participar, a pessoa deve conhecer e decidir se tem condições de cumprir os acordos estabelecidos pela maioria. GESTÃO DEMOCRÃTICA: Os cooperantes, reunidos em assembléia, discutem e votam os objetivos e metas do trabalho conjunto, bem como elegem os representantes que irão administrar a sociedade.Cada associado representa um voto, não importando sealguns detenham mais cotas do que outros. PARTICIPAÇÃO ECONÔMICA DOS MEMBROS: Todos contribuem igualmente para a formação do capital da cooperativa, o qual é controlado democraticamente. Se a cooperativa é bem administrada e obtém uma receita maior que as despesas, esses rendimentos serão divididos entre os sócios até o limite do valor e da contribuição de cada um.O restante poderá ser destinado para investimentos na própria cooperativa para outras aplicações, sempre de acordo com a decisão tomada na assembléia. AUTONOMIA E INDEPENDÊNCIA: O funcionamento da empresa é controlado democraticamente. Se a cooperativa é bem administrada e obtém uma receita maior que as despesas, esses rendimentos serão divididos entre o sócio até o limite do valor e da contribuição de cada um.O restante poderá ser destinado para investimentos na própria cooperativa ou para outra aplicações, sempre de acordo com a decisão tomada em assembléia. AUTONOMIA E INDEPENDÊNCIA: O funcionamento da empresa é controlado pelos próprios sócios, que são os donos do negócio. Qualquer acordo firmado com outras organizações e empresas deve garantir e manter essa condição. COOPERATIVA: É uma sociedade de pelo menos 20 pessoas físicas que constituem um empreendimento para benefício mútuo. As duas normas traduzem a pressuposição de que se trata de uma empresa destinada a finalidades comerciais, constituída por um grande número de pessoas que se conhecem e têm uma certa facilidade para se reunirem com certa freqüência. OS TIPOS DE COOPERATIVAS: Existe atualmente 11 tipos de cooperativas segundo seu campo de ação, ou seja, o tipo de atividade em que as cooperativas operam, conforme a necessidade dos cooperados a que atendem. Há outras denominações genéricas para o que chamamos de tipos de cooperativa, como ramos ou segmentos cooperativistas, que significam a mesma coisa.Além das características listadas para cada segmento, as cooperativas têm um objetivo que é comum a todas, mas que, quanto melhor funciona, mais passa despercebido, que é a função reguladora de mercado. A pós a consolidação de uma cooperativa, o normal é que todos os concorrentes regulem seus preços segundo aqueles praticados por esta. Assim sendo, logo que a cooperativa começa a operar, a diferença entre esta e as empresas mercantis é muito grande e logo notada, mas ao longo do tempo estes concorrentes se adaptam a ela. Há também distorções geradas pelo falho sistema de taxas e tributos vigente no país, que favorece a sonegação e prejudica as cooperativas, pois estas são fiéis contribuintes, ao contrário do que prevalece entre a concorrência, o que à s vezes permite até que estes pratiquem preços melhores do que os da cooperativa. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

mais proveitoso ainda se a cooperativa pudesse trabalhando em cima dessas ditas classes ou bibliotecas fornecer para não cooperado, essas classes, bem como assessoria e coisas adjacentes, criando GANHOS para seus cooperados. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

Creio que muitos de nós aqui ja deva ter pedido algo por ser apenas um programador SOZINHO, ja lhe perguntaram o que vai acontecer com o software que minha empresa utiliza se algo lhe acontecer? (de bom ou de ruim, ganhar na megasena sozinho ou partir dessa para melhor) creio que juntos e representados por um corpo maior seria muito mais proveitoso. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

a coisa esta comecando a tomar corpo, tambem sou a favor de uma participacao MONETARIA para calcar as participacoes realmente serias, Cacau por favor manifeste-se a respeito da sua convocacao Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

concordo em grau, numero e genero. por isso gostaria de saber quem realmente esteja disposto a se unir para esse feito, vamos la exponham suas ideias. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

Caro Edu, realmente a mais dificil e ardilosa tarefa, mais sem comecar, impossivel brotar, coloquemos nossas ideias para compartilhar e ver no que da. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

Creio que devamos começar a esboçar o que esperamos dessas cooperativa, convoco todos a dizerem o que esperam que fosse e como seriam as atividades entre seus cooperados e o modo de trabalho, como desenvolver nossas atividades nesse modelo. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

citação:Algumas dúvidas: 1) Seria um sistema único ? 2) Todos cobrariam o mesmo valor ? 3) Como ficaria a divisão de tarefas, atualizações, etc ? Belo Horizonte - MG Fwh 9.01, xHarbour 1.1.0, Sqllib, xDev, Pelles C id=black>id='Verdana'>id=size2> id=quote>id=quote>Aloisio acho que isto dependerá do rumo das prosas por aqui, mais é conveniente irmos colocando nossas questões. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

Acho que devemos juntar algumas cabeças pensantes e desenvolver a idéia. minha opinião. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP Interessados: ============= 01) Luiz Servulo,servulo,SP/Diadema 02) dorneles 03) geraldo 04) AloizioLima,MG/Belo Horizonte 05) CTOAS 06) Daniel Lopes Filho,zazibr,MS/Campo Grande 07) willian 08) joelmva 09) Paulo Ramalho,truesix,MG/Lagoa Santa 10) Fabricio Souza,bito_sulsoft,SC 11) Ademir M. Santiago,ademirsantiago,RO/Pimenta Bueno 12) Helio Tsuyama,hinfo,SP/Santo André 13) Wellington Vieira,systemup,MG/Uberlândia 14) Alexandre,Polirep,MG/Belo Horizonte Editado por - servulo on 13/04/2012 09:35:40 Editado por - servulo on 13/04/2012 09:38:39

Acho que devemos juntar algumas cabeças pensantes e desenvolver a idéia. minha opinião. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP Interessados: ============= 01) Luiz Servulo,servulo,SP/Diadema 02) dorneles 03) geraldo 04) AloizioLima,MG/Belo Horizonte 05) CTOAS 06) Daniel Lopes Filho,zazibr,MS/Campo Grande 07) willian 08) joelmva 09) Paulo Ramalho,truesix,MG/Lagoa Santa 10) Fabricio Souza,bito_sulsoft,SC 11) Ademir M. Santiago,ademirsantiago,RO/Pimenta Bueno 12) Helio Tsuyama,hinfo,SP/Santo André 13) Wellington Vieira,systemup,MG/Uberlândia 14) Alexandre,Polirep,MG/Belo Horizonte Editado por - servulo on 13/04/2012 09:35:40 Editado por - servulo on 13/04/2012 09:38:39

citação:Servulo, Lembro sim. Kleyber Derick xHarbour 1.1.0 + FWH 8.02 + xDevStudio + SQLLIB (98) 8162-1301 / (98) 3217-8162 Visite São Luís - MA A Ilha dos Amores id=quote>id=quote>então lembras porque foi indo indo e não deu certo, mas acho que deveriamos amadurecer essa idéia da cooperativa, creio que muitos aqui esperam algo do genero, a união faz a força ( e o açucar tb. rsrsrsrsrs) Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 12.00 Diadema/SP

boa tarde (chuvosa por aqui) Kleyber lembra de uma idéia de algo que poderia ser uma cooperativa, alguns de nós se reunio aqui em casa lembra? Alexandre Basanessi, Frank Lenon, Sandro Freire, Servulo, Kleyber e mais alguem que estava em Recife. (tenho até uma foto aqui que o Vailton achou) era algo do genero, mas a idéia da cooperativa é super valida e interessante, coloco-me como um interessado. Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 11.20 Diadema/SP Editado por - servulo on 12/04/2012 16:14:36

citação:Orra, meu nome já é zicado, vai zuar mais ainda Servulo? Sacanagem hein vNomeCidade:=TabelaCidade->NOME oNomeCidade:Refresh() também funciona. Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO id=quote>id=quote>Mil perdões amigo...Ercileyid=red> são as várias horas do dia frente ao luminoso amigo monitor... id=red> Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 11.20 Diadema/SP

citação: citação:como la na outra funcao que procura a cidade num dbf ao voltar (return) eu atualizo o meu vNomeCidade para ficar igual ao nome da cidade na TabelaCidade id=quote>id=quote>Eu também estou começando a programar em FIVEWIN, então talvez te fale bobagens, se estiver errada, me corrijam por favor. Como agora você está trabalhando com objetos, eu alteraria o valor do objeto e atualizaria, da seguinte forma: oNomeCidade:VarPut(TabelaCidade->NOME) oNomeCidade:Refresh() id=code>id=code>Eu faço isso no sistema, e funciona (Fiz algumas modificações pra deixar mais automatico). Só não sei se é o jeito certo de utilizar. []'s Ana id=quote>id=quote> # include "Fivewin.ch" # include "dbcombo.ch" *************************************** function BuildMenu( ) MENU oMenu MENUITEM "Cadastros" MENU MENUITEM "Clientes" ACTION Cadastro_Cliente( ) MENUITEM "Fornecedores" MENUITEM "Serviços/Mão-de-Obra" MENUITEM "Transportadores" MENUITEM "Condições de Pagamento" MENUITEM "Veículos" MENU MENUITEM "Cadastro" MENUITEM "Marcas" MENUITEM "Modêlos" ENDMENU MENUITEM "Produtos" MENU MENUITEM "Grupos" MENUITEM "SubGrupos" MENUITEM "Produtos" MENUITEM "Localização de Produtos" ENDMENU MENUITEM "Financeiro" MENU MENUITEM "Bancos" MENUITEM "Contas Bancárias" MENUITEM "Espécie" ENDMENU MENUITEM "Estoque" MENU MENUITEM "Tipo de Movimento" MENUITEM "Tipo de Documento" ENDMENU MENUITEM "Tributação" MENU MENUITEM "CFOP" MENUITEM "NCM" MENUITEM "por NCM" ENDMENU MENUITEM "Contabilidade" MENU MENUITEM "Plano de Contas" MENUITEM "Centros de Custo" ENDMENU MENUITEM "Recursos Humanos" MENU MENUITEM "Funcionários" MENUITEM "Cargos" MENUITEM "Salários" ENDMENU MENUITEM "Caixa" MENU MENUITEM "Terminal" ENDMENU MENUITEM "Tabelas Auxiliáres" MENU MENUITEM "Unidades da Federação" MENUITEM "Municípios" MENUITEM "Países " MENUITEM "Alíquotas de ICMS por UF" MENUITEM "Status" MENUITEM "Frequência de Pagamentos" MENUITEM "Código Situação Tributária" MENUITEM "Código Situação da Operação no Simples Nacional" MENUITEM "Código Nacional da Atividade Econômica" ENDMENU ENDMENU MENUITEM "Estoques" MENU MENUITEM "Posição do Estoque" MENUITEM "Reajuste de Preços" MENUITEM "Tabela de Preços" MENUITEM "Cálculo do Custo Médio" MENUITEM "Consulta Rápida de Produtos" SEPARATOR MENUITEM "Cotação de Materiais" MENUITEM "Consulta Cotações" MENUITEM "Aprovar Itens de Cotação" SEPARATOR MENUITEM "Pedido de Compra" MENUITEM "Consulta Pedidos de Compra" MENUITEM "Baixa Manual de Itens de Compras" MENUITEM "Gerar Pedido Automáticamente" SEPARATOR MENUITEM "Entrada de Nota Fiscal" MENUITEM "Importar XML da NFEletrônica" MENUITEM "Consulta NF de Entrada" MENUITEM "Movimentação de Estoque" MENUITEM "Consulta Movimentação de Estoque" MENUITEM "Inserir Produtos no Estoque" MENUITEM "Produzir Itens" MENUITEM "Transferência de Estoque" ENDMENU MENUITEM "OS-Ordem de Serviço" MENU MENUITEM "Ordem de Serviço" MENUITEM "Consulta OS" MENUITEM "Aprovar Ordem de Serviço" MENUITEM "Baixar Ordem de Serviço" MENUITEM "Tipos de Ordem de Serviço" ENDMENU MENUITEM "Vendas/Faturamento/NF" MENU MENUITEM "Orçamento" MENUITEM "Orçamento Rápido" MENUITEM "Consulta Orçamentos" MENUITEM "Pedido de Venda" MENUITEM "Consulta Pedidos" MENUITEM "Emissão da Nota Fiscal" MENUITEM "Devolução de Produtos" MENUITEM "Faturamento" MENUITEM "Comissões e Fechamento de Caixa" MENUITEM "Entregas" MENUITEM "Baixar Pedido de Venda" MENUITEM "Venda Rápida" SEPARATOR MENUITEM "Movimentação dos Terminais" MENUITEM "Abertura/Fechamento de Caixa" SEPARATOR MENUITEM "Vendas - PDV" MENUITEM "Consulta Vendas - PDV" ENDMENU MENUITEM "Financeiro" MENU MENUITEM "Contas à Pagar" MENUITEM "Contas à Receber" MENUITEM "Visualizar Lançamentos" MENUITEM "Baixar Duplicatas em Lote" SEPARATOR MENUITEM "Cadastro de Cheques Emitidos" MENUITEM "Cadastro de Cheques Recebidos" SEPARATOR MENUITEM "Movimentação em Conta-Corrente e Caixa" MENUITEM "Livro Caixa" MENUITEM "Extrato de Movimentação" MENUITEM "Fluxo de Caixa" MENUITEM "Importar Movimentação" MENUITEM "Recalcular Saldos das Contas" SEPARATOR MENUITEM "Resumo Financeiro" ENDMENU MENUITEM "Cobrança" MENU MENUITEM "Fechamento de Cobranca" MENUITEM "Consulta Fechamento de Cobranca" SEPARATOR MENUITEM "Gerar Arquivo de Remessa para o Banco" MENUITEM "Baixar boletos pelo Arquivo de Retorno" MENUITEM "Gerar Boletos/Enviar por Email" ENDMENU MENUITEM "Relatórios" MENU MENUITEM "Cadastros" MENU MENUITEM "Clientes" MENUITEM "Forcenedores" MENUITEM "Produtos" MENUITEM "Funcionários" MENUITEM "Serviços / Mão-de-Obra" MENUITEM "Transportadores" ENDMENU MENUITEM "Compras" MENU MENUITEM "Pedidos de Compra" MENUITEM "Notas Fiscais de Entrada" ENDMENU MENUITEM "Estoque" MENU MENUITEM "Posição de Estoque" MENUITEM "Movimentação" MENUITEM "Histórico de Preços" MENUITEM "Reposição de Estoque" MENUITEM "Custo dos Produtos" ENDMENU MENUITEM "Financeiro" MENU MENUITEM "Clientes com Bônus" MENUITEM "Contas à Pagar" MENUITEM "Contas à Receber" MENUITEM "Cheques Emitidos" MENUITEM "Cheques Recebidos" MENUITEM "Fluxo de Caixa" MENUITEM "Histórico Financeiro" MENUITEM "Plano de Contas" MENUITEM "Extrato" ENDMENU MENUITEM "Ordem de Serviços" MENUITEM "Orçamentos" MENUITEM "Vendas" MENU MENUITEM "Vendas em Geral" MENUITEM "Pedidos de Venda" MENUITEM "Produtos Vendidos" MENUITEM "Comissões a Gerar" MENUITEM "Comissões Efetivadas" MENUITEM "Ranking de Produtos" MENUITEM "Vendas por Cliente" MENUITEM "Fechamento de Caixa" MENUITEM "Apuração de Impostos" ENDMENU ENDMENU MENUITEM "Utilidades" MENU MENUITEM "Visualizar logs" MENUITEM "Gerenciador de Tarefas" MENUITEM "Anotações" SEPARATOR MENUITEM "Backup e Restauração" MENUITEM "Configurações do Terminal" MENUITEM "Configurações do Sistema" MENUITEM "Manutenção dos Arquivos dos Sistema" MENUITEM "Configurações do Banco de Dados" SEPARATOR MENUITEM "Controle de Acesso" MENUITEM "Newsletter" MENU MENUITEM "Cadastrar newsletter" MENUITEM "Envio de Newsletter" ENDMENU MENUITEM "Utilitários" MENU MENUITEM "Suporte Remoto" MENUITEM "Suporte por Email" MENUITEM "Consulta Cep" MENUITEM "Exportação de Dados" MENUITEM "Consulta Suframa" MENUITEM "Consulta Inscrição Estadual" MENUITEM "Consulta CNPJ" MENUITEM "Consulta Simples Federal" MENUITEM "Calculadora" MENUITEM "Bloco de Notas" MENUITEM "Windows Explorer" MENUITEM "Prompt do DOS" ENDMENU ENDMENU MENUITEM "Sobre" MENUITEM "Finalizar" ENDMENU return ( oMenu ) function BuildPopup(xis) local oMenu MENU oMenu POPUP MENUITEM "One" ACTION MsgInfo( "One" ) MENUITEM "Two" ACTION MsgInfo( "Two" ) MENUITEM "Three" ACTION MsgInfo( "Three" ) ENDMENU return oMenu function Cadastro_cliente local oDbf_EMP,oDbf_CID,oDbf_UF //Abertura de Arquivos if !file( cDados+"cidades.dbf" ) cidades( ) endif //use cDados+cidades.dbf index cDados+cidades.cdx ALIAS "CID" NEW DbUseArea(.t.,"DBFCDX",cDados+"cidades.dbf","CID",.t.,.f.) OrdCreate(cDados+"cidades","PorEstado","ESTADO") OrdCreate(cDados+"cidades","PorCodUF","CODUF") OrdCreate(cDados+"cidades","PorUFMun","UF+CIDADE") OrdCreate(cDados+"cidades","PorCodMun","CODMUN") OrdCreate(cDados+"cidades","PorCidUF","CIDADE+UF") if !file( cDados+"estados.dbf" ) estados( ) endif //use cDados+estados.dbf index cDados+estados.cdx ALIAS "UF" NEW DbUseArea(.t.,"DBFCDX",cDados+"estados.dbf","UF",.t.,.f.) if !file( cDados+"empresas.dbf" ) empresas( ) endif //use cDados+empresas.dbf index cDados+empresas.cdx ALIAS "EMP" NEW DbUseArea(.t.,"DBFCDX",cDados+"empresas.dbf","EMP",.t.,.f.) Brw_Cliente( ) DbCloseAll() return NIL function Brw_Cliente( ) local oDlg, oListBox, oButton1, oButton2, oButton3, oButton4, oButton5, oButton6, oButton7,oDbf DbSelectArea("EMP") DbSetOrder(1) DEFINE DIALOG oDlg RESOURCE "BRW_CLIENTE" REDEFINE LISTBOX oListBox; FIELDS EMP->ID,EMP->Tipo,EMP->Nome,EMP->Fantasia; ALIAS "EMP"; ID 4001; ON DblClick TelaCLiente("C"); OF oDlg oListBox:nCLRPANE := {||if(OrdKeyNo( ) %2==0,RGB(182,218,218),RGB(255,255,255))} REDEFINE BUTTON oButton1 PROMPT "Incluir"; ID 5005; OF oDlg; ACTION ( TelaCliente("I") , oListBox:REFRESH() ) REDEFINE BUTTON oButton2 PROMPT "Alterar"; ID 5006; OF oDlg; ACTION ( TelaCliente("A") , oListBox:REFRESH() ) REDEFINE BUTTON oButton3 PROMPT "Excluir"; ID 5007; OF oDlg; ACTION ( TelaCliente("E") , oListBox:REFRESH() ) REDEFINE BUTTON oButton4 PROMPT "Pesquisar"; ID 5008; OF oDlg REDEFINE BUTTON oButton7 PROMPT "Sair"; ID 5011; OF oDlg; ACTION oDlg:End( ) ACTIVATE DIALOG oDlg return NIL Function TelaCliente( cOperacao ) local oDlgTelaCLiente, oTitle, oButton1,oButton2, cRetorno,lNovoRegistro:=.f., lOk:= .f., nSequencial, aCidades, aUF:={"AC","AL","AM","AP","BA","SP"} local oId,oTipo,oNome,oFantasia,oLogradouro,oNumero,oComplement,oBairro,oCodCidade,oNomCidade,oSiglaUf,oCep,oTelefone,oFederal,oEstadual,oMunicipal,oSuframa,oNomeUF local vId,vTipo,vNome,vFantasia,vLogradouro,vNumero,vComplement,vBairro,vCodCidade,vNomCidade,vSiglaUf,vCep,vTelefone,vFederal,vEstadual,vMunicipal,vSuframa,vNomeUF if cOperacao == "I" EMP->( DbGoBottom( ) ) nSequencial:=strzero(val(EMP->ID)+1,10) oTitle := "Inclusão de Clientes " lNovoRegistro:=.t. lExclui:=.f. vId := nSequencial vTipo := space(10) vNome := space(60) vFantasia := space(60) vLogradouro := space(60) vNumero := space(60) vComplement := space(60) vBairro := space(60) vCodCidade := space(7) vNomCidade := space(7) vSiglaUf := space(2) vCep := space(8) vTelefone := space(14) vFederal := space(14) vEstadual := space(14) vMunicipal := space(14) vSuframa := space(14) elseif cOperacao == "A" .or. cOperacao == "C" if cOperacao=="A" oTitle := "Altera Informações do Cliente " elseif cOperacao == "C" oTitle := "Exibe Informações do Cliente " endif lNovoRegistro:= .f. lExclui:=.f. vId := EMP->Id vTipo := EMP->Tipo vNome := EMP->Nome vFantasia := EMP->Fantasia vLogradouro := EMP->Logradouro vNumero := EMP->Numero vComplement := EMP->Complement vBairro := EMP->Bairro vCodCidade := EMP->CodCidade vNomCidade := EMP->NomCidade vSiglaUf := EMP->SiglaUf vCep := EMP->Cep vTelefone := EMP->Telefone vFederal := EMP->Federal vEstadual := EMP->Estadual vMunicipal := EMP->Municipal vSuframa := EMP->Suframa elseif cOperacao == "E" oTitle := "Exclusão de Clientes " lExclui:=.t. vId := EMP->Id vTipo := EMP->Tipo vNome := EMP->Nome vFantasia := EMP->Fantasia vLogradouro := EMP->Logradouro vNumero := EMP->Numero vComplement := EMP->Complement vBairro := EMP->Bairro vCodCidade := EMP->CodCidade vNomCidade := EMP->NomCidade vSiglaUf := EMP->SiglaUf vCep := EMP->Cep vTelefone := EMP->Telefone vFederal := EMP->Federal vEstadual := EMP->Estadual vMunicipal := EMP->Municipal vSuframa := EMP->Suframa endif DEFINE DIALOG oDlgTelaCliente RESOURCE "TELA_CLIENTE" TITLE oTitle REDEFINE GET oID VAR vID ID 1010 OF oDlgTelaCliente PICTURE "9999999999" NO MODIFY REDEFINE GET oNome VAR vNome ID 1020 OF oDlgTelaCliente PICTURE "@!" REDEFINE GET oFantasia VAR vFantasia ID 1030 OF oDlgTelaCliente PICTURE "@!" REDEFINE GET oLogradouro VAR vLogradouro ID 1040 OF oDlgTelaCliente PICTURE "@!" REDEFINE GET oNumero VAR vNumero ID 1050 OF oDlgTelaCliente PICTURE "@!" REDEFINE GET oComplement VAR vComplement ID 1060 OF oDlgTelaCliente PICTURE "@!" REDEFINE GET oBairro VAR vBairro ID 1070 OF oDlgTelaCliente PICTURE "@!" REDEFINE GET oNomCidade VAR vNomCidade; ID 1080 OF oDlgTelaCliente; VALID ( ProcuraCidade( ) , oDlgTelaCliente:Refresh() ) REDEFINE GET oCodCidade VAR vCodCidade ID 1090 OF oDlgTelaCliente PICTURE "@!" NO MODIFY REDEFINE GET oCep VAR vCep ID 1110 OF oDlgTelaCliente PICTURE "@!" REDEFINE GET oTelefone VAR vTelefone ID 1120 OF oDlgTelaCliente PICTURE "@!" REDEFINE GET oFederal VAR vFederal ID 1130 OF oDlgTelaCliente PICTURE "@!" REDEFINE GET oEstadual VAR vEstadual ID 1140 OF oDlgTelaCliente PICTURE "@!" REDEFINE GET oMunicipal VAR vMunicipal ID 1150 OF oDlgTelaCliente PICTURE "@!" REDEFINE GET oSuframa VAR vSuframa ID 1160 OF oDlgTelaCliente PICTURE "@!" REDEFINE BTNBMP ID 100; ACTION ( lOk := .t., oDlgTelaCliente:END() ) ; FILE "F:\PROJETOS\UnoERP\bitmaps\32x32\yes.bmp" REDEFINE BTNBMP ID 110; ACTION ( lOk := .f., oDlgTelaCliente:End( ) ); FILE "F:\PROJETOS\UnoERP\bitmaps\32x32\quit.bmp" ACTIVATE dialog oDlgTelaCliente CENTERED if lOk == .t. if lNovoRegistro == .t. EMP->( DbAppend( ) ) endif if lExclui == .f. EMP->(DbRLock()) EMP->Id := vId EMP->Tipo := vTipo EMP->Nome := vNome EMP->Fantasia := vFantasia EMP->Logradouro := vLogradouro EMP->Numero := vNumero EMP->Complement := vComplement EMP->Bairro := vBairro EMP->CodCidade := vCodCidade EMP->NomCidade := vNomCidade EMP->SiglaUf := vSiglaUf EMP->Cep := vCep EMP->Telefone := vTelefone EMP->Federal := vFederal EMP->Estadual := vEstadual EMP->Municipal := vMunicipal EMP->Suframa := vSuframa EMP->(DbCommit( )) EMP->(DbUnlock()) else if !EMP->( NetDelete( ) ) MsgInfo("Registro sendo usado por outro Terminal, tente mais tarde...","Atenção") endif endif endif return function ProcuraCidade( ) local oDlgProcuraCidade, oPesquisa,oListBoxCidade local vPesquisa DbSelectArea("CID") DbSetOrder(5) DEFINE DIALOG oDlgProcuraCidade RESOURCE "PSQ_CIDADE" REDEFINE GET oPesquisa VAR vPesquisa ; PICTURE "@!"; ID 4002 OF oDlgProcuraCidade; On CHANGE ( oListBoxCidade:Refresh() , Pesquisain(nKey,oPesquisa,"CID" ) ) REDEFINE LISTBOX oListBoxCidade; FIELDS CID->CIDADE,CID->CODMUN,CID->UF; ALIAS "CID"; ID 4003; ON DblClick oDlgProcuraCidade:End(); OF oDlgProcuraCidade oListBoxCidade:nCLRPANE := {||if(CID->(OrdKeyNo())%2==0,RGB(182,218,218),RGB(255,255,255) ) } REDEFINE BUTTON ID 300 OF oDlgProcuraCidade ACTION ( oDlgProcuraCidade:End() ) REDEFINE BUTTON ID 310 OF oDlgProcuraCidade ACTION ( oDlgProcuraCidade:End() ) ACTIVATE DIALOG oDlgProcuraCidade CENTERED return(.t.) function PesquisaIn( nKey, oGet, cALIAS ) local cFrase DbSelectArea(cALIAS) if (nKey >= 032 .or. nKey <= 126 ) cFrase := UPPER( ALLTRIM( oGet:cTitle ) ) DbSeek(cFrase,.t.) elseif nKey == 08 cFrase := Substr( cFrase, 01, LEN( cFrase) -1 ) DbSeek(cFrase,.t.) endif return NIL id=code>id=code>Ana tb posso ta falando um monte de besteiras, no código que fiz acima ele me da erros do tipo : Luiz Servulo xHarbour 1.21 FWH 11.09 UEStudio 11.20 Diadema/SP Application =========== Path and name: F:\PROJETOS\UnoERP\Release\UnoERP.EXE (32 bits) Size: 2,309,632 bytes Time from start: 0 hours 0 mins 36 secs Error occurred at: 04/05/12, 16:09:58 Error description: Error BASE/1066 Argument error: conditional Args: [ 1] = U Stack Calls =========== Called from: .\source\classes\TGET.PRG => TGET:LVALID(1209) Called from: .\source\classes\CONTROL.PRG => TGET:FWLOSTFOCUS(1117) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1686) Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT(597) Called from: .\source\classes\WINDOW.PRG => _FWH(3449) Called from: => DIALOGBOX(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(279) Called from: F:\PROJETOS\UnoERP\UnoMenus.prg => TELACLIENTE(0) Called from: F:\PROJETOS\UnoERP\UnoMenus.prg => (b)BRW_CLIENTE(0) Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176) Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1665) Called from: .\source\classes\WINDOW.PRG => _FWH(3449) Called from: => SENDMESSAGE(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(399) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(960) Called from: => DIALOGBOX(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(279) Called from: F:\PROJETOS\UnoERP\UnoMenus.prg => BRW_CLIENTE(0) Called from: F:\PROJETOS\UnoERP\UnoMenus.prg => CADASTRO_CLIENTE(0) Called from: F:\PROJETOS\UnoERP\UnoMenus.prg => (b)BUILDMENU(0) Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(487) Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(1053) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\WINDOW.PRG => _FWH(3449) Called from: => WINRUN(0) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(1000) Called from: F:\PROJETOS\UnoERP\UnoERP.prg => MAIN(0) System ====== CPU type: Intel® Core2 Quad CPU Q8300 @ 2.50GHz 2500 Mhz Hardware memory: 6350 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6741) FiveWin Version: FWHX 11.07 Windows version: 6.1, Build 7601 Service Pack 1 Windows total applications running: 10 1 , 2 , C:\Program Files (x86)\Avira\AntiVir Desktop\avgnt.exe 3 , C:\Program Files (x86)\Evernote\Evernote\EvernoteClipper.exe 4 , C:\Program Files (x86)\eM Client\MailClient.exe 5 , C:\UEStudio\UEStudio.exe 6 C:\UEStudio\mymake.exe, C:\UEStudio\mymake.exe 7 Inclusão de Clientes , F:\PROJETOS\UnoERP\Release\UnoERP.EXE 8 Microsoft OneNote 2010 - barra de tarefas do Windows, C:\Program Files (x86)\Microsoft Office\Office14\ONENOTEM.EXE 9 iCloud, C:\Program Files (x86)\Common Files\Apple\Internet Services\iCloudServices.exe 10 ourXdbu 1.5.2.0, C:\Program Files (x86)\ourXdbu\OURXDBU.EXE Variables in use ================ Procedure Type Value ========================== TGET:LVALID Local 1: O Class: TGET Local 2: U Local 3: U Local 4: U Local 5: U TGET:FWLOSTFOCUS Param 1: N 6227396 Local 1: O Class: TGET Local 2: U Local 3: U TCONTROL:HANDLEEVENT Param 1: N 2057 Param 2: N 6227396 Param 3: N 0 Local 1: O Class: TGET Local 2: U TGET:HANDLEEVENT Param 1: N 2057 Param 2: N 6227396 Param 3: N 0 Local 1: O Class: TGET Local 2: U Local 3: U Local 4: U _FWH Param 1: N 0 Param 2: N 2057 Param 3: N 6227396 Param 4: N 0 Param 5: N 17 Local 1: O Class: TGET DIALOGBOX Param 1: N 4194304 Param 2: C "TELA_CLIENTE" Param 3: N 7407480 Param 4: O Class: TDIALOG TDIALOG:ACTIVATE Param 1: U Param 2: U Param 3: U Param 4: L .T. Param 5: U Param 6: L .T. Param 7: U Param 8: U Param 9: U Param 10: L .F. Param 11: L .F. Local 1: O Class: TDIALOG Local 2: N 7407480 Local 3: U Local 4: U Local 5: U Local 6: O Class: TDIALOG TELACLIENTE Param 1: C "I" Local 1: O Class: TDIALOG Local 2: C "Inclusão de Clientes " Local 3: U Local 4: U Local 5: U Local 6: L .T. Local 7: L .F. Local 8: C "0000000004" Local 9: U Local 10: A Len: 6 Local 11: O Class: TGET Local 12: U Local 13: O Class: TGET Local 14: O Class: TGET Local 15: O Class: TGET Local 16: O Class: TGET Local 17: O Class: TGET Local 18: O Class: TGET Local 19: O Class: TGET Local 20: O Class: TGET Local 21: U Local 22: O Class: TGET Local 23: O Class: TGET Local 24: O Class: TGET Local 25: O Class: TGET Local 26: O Class: TGET Local 27: O Class: TGET Local 28: U Local 29: C "0000000004" Local 30: C " " Local 31: C "FELIPE DOS SANTOS " Local 32: C "FELIPE " Local 33: C " " Local 34: C " " Local 35: C " " Local 36: C " " Local 37: C " " Local 38: C " " Local 39: C " " Local 40: C " " Local 41: C " " Local 42: C " " Local 43: C " " Local 44: C " " Local 45: C " " Local 46: U (b)BRW_CLIENTE Param 1: O Class: TBUTTON TBUTTON:CLICK Local 1: O Class: TBUTTON TBUTTON:HANDLEEVENT Param 1: N 2048 Param 2: N 0 Param 3: N 0 Local 1: O Class: TBUTTON Local 2: U _FWH Param 1: N 0 Param 2: N 2048 Param 3: N 0 Param 4: N 0 Param 5: N 5 Local 1: O Class: TBUTTON SENDMESSAGE Param 1: N 2819956 Param 2: N 2048 Param 3: N 0 Param 4: N 0 TDIALOG:COMMAND Param 1: N 5005 Param 2: N 2819956 Local 1: O Class: TDIALOG Local 2: O Class: TBUTTON Local 3: N 0 Local 4: N 5005 Local 5: N 2819956 TWINDOW:HANDLEEVENT Param 1: N 273 Param 2: N 5005 Param 3: N 2819956 TDIALOG:HANDLEEVENT Param 1: N 273 Param 2: N 5005 Param 3: N 2819956 Local 1: O Class: TDIALOG DIALOGBOX Param 1: N 4194304 Param 2: C "BRW_CLIENTE" Param 3: N 1837124 Param 4: O Class: TDIALOG TDIALOG:ACTIVATE Param 1: U Param 2: U Param 3: U Param 4: L .F. Param 5: U Param 6: L .T. Param 7: U Param 8: U Param 9: U Param 10: L .F. Param 11: L .F. Local 1: O Class: TDIALOG Local 2: N 1837124 Local 3: U Local 4: U Local 5: U Local 6: O Class: TDIALOG BRW_CLIENTE Local 1: O Class: TDIALOG Local 2: O Class: TWBROWSE Local 3: O Class: TBUTTON Local 4: O Class: TBUTTON Local 5: O Class: TBUTTON Local 6: O Class: TBUTTON Local 7: U Local 8: U Local 9: O Class: TBUTTON Local 10: U CADASTRO_CLIENTE Local 1: U Local 2: U Local 3: U (b)BUILDMENU Param 1: O Class: TMENUITEM TMENU:COMMAND Param 1: N 20001 Local 1: O Class: TMENU Local 2: O Class: TMENUITEM TWINDOW:COMMAND Param 1: N 20001 Param 2: N 0 Local 1: O Class: TWINDOW Local 2: N 0 Local 3: N 20001 Local 4: N 0 TWINDOW:HANDLEEVENT Param 1: N 273 Param 2: N 20001 Param 3: N 0 _FWH Param 1: N 0 Param 2: N 273 Param 3: N 20001 Param 4: N 0 Param 5: N 1 Local 1: O Class: TWINDOW WINRUN Param 1: N 1837124 TWINDOW:ACTIVATE Param 1: C "MAXIMIZED" Param 2: U Param 3: U Param 4: U Param 5: U Param 6: U Param 7: U Param 8: U Param 9: U Param 10: U Param 11: U Param 12: U Param 13: U Param 14: U Param 15: U Param 16: U Param 17: U Param 18: U Param 19: U Local 1: O Class: TWINDOW Local 2: U Local 3: U MAIN Linked RDDs =========== DBF DBFFPT DBFBLOB DBFNTX DBFCDX DataBases in use ================ 1: => CID RddName: DBFCDX ============================== RecNo RecCount BOF EOF 3262 5564 .F. .F. Indexes in use TagName ESTADO PORESTADO CODUF PORCODUF UF+CIDADE PORUFMUN CODMUN PORCODMUN => CIDADE+UF PORCIDUF Relations in use 2: UF RddName: DBFCDX ============================== RecNo RecCount BOF EOF 1 27 .F. .F. Indexes in use TagName id IDEN uf SIGLA Relations in use 3: EMP RddName: DBFCDX ============================== RecNo RecCount BOF EOF 7 7 .F. .F. Indexes in use TagName => ID IDEN Tipo TIPO Nome NOME fantasia FANTASIA Relations in use Classes in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TWINDOW 6 TMENU 7 TMENUITEM 8 TCONTROL 9 TICON 10 TBRUSH 11 TFONT 12 TIMAGELIST 13 TBITMAP 14 TTOOLBAR 15 TMSGBAR 16 TRECT 17 TMSGITEM 18 TTIMER 19 TDIALOG 20 TWBROWSE 21 TBUTTON 22 TSCROLLBAR 23 TGET 24 GET 25 TCLIPGET 26 TBTNBMP 27 TREG32 Memory Analysis =============== 171 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes id=code>id=code>Editado por - servulo on 05/04/2012 16:14:23