netsys

citação:Que bacana, conheceu o Jorge Queiroz entao, o criador do dicionario de dados na Microsiga? Abraço citação:Para quem gosta de antiguidade, vai mais umas: Entrei na Microsiga em 1986 (funcionário 00003) para fazer demonstração do Sistema Siga. O "bicho" rodava em DBase III e fui o primeiro a compilar com o Clipper Summer (o 85) lá. Lembro que o Ernesto ainda não confiava muito no Clipper, mas não aguentava mais contar duas piadas para o cliente no intervalo entre o "DO SIGA" e a tela inicial..rsrsrs Isso num "poderoso" Itautec 8086. No final de 87 chegou o primeiro "AT" 80286.... Depois veio o Autumn, o Winter, o Summer 97 até chegar o 5.0 NO meio do caminho, testamos um compilador chamado QUICKSILVER (alguem já ouviu falar?) mas só dava pau! rsrsrs Saí de lá em 1991 como Gerente de Suporte e a empresa já tinha mais de 100 funcionários. Bons tempos aqueles. Deixei muitos amigos lá, inclusive os donos. Aprendi muito e também ajudei muito no desenvolvimento. Com certeza, quem tem + de 40 anos aqui no fórum também ouviu falar ou testou o CLIP4WIN, o VB, o Delphi e o VO. Realmente, FIVEWIN é uma ferramenta poderosa e NÃO FICA DEVENDO NADA PARA NINGUEM! Se um dia todos os sistemas estiverem na WEB e o Fivewin não acompanhar, prefiro mudar de profissão e vender batata na feira! Abraços Alberto Zamai Vip Netsys Info SP id=quote>id=quote>EMotta Sistemas Eduardo Motta emotta@gmail.com.br FWH 9.09 - xHARBOUR 1.2.1 id=quote>id=quote>Conheci sim Eduardo alias UMA FIGURAÇA! Naquele tempo, tinha os amigos Alfredo L.Magalhães, Marco A.Biancollela e muitos outros "cabras" bons...nem sei se estão lá ainda... O Wilson estava chegando na Microsiga...o cara é gênio e o sistema melhorou muito de lá para cá,,,,lógico que tem uns bugs ainda, mas eles cresceram muito graças também ao FIVEWIN. Abs Alberto Zamai

Para quem gosta de antiguidade, vai mais umas: Entrei na Microsiga em 1986 (funcionário 00003) para fazer demonstração do Sistema Siga. O "bicho" rodava em DBase III e fui o primeiro a compilar com o Clipper Summer (o 85) lá. Lembro que o Ernesto ainda não confiava muito no Clipper, mas não aguentava mais contar duas piadas para o cliente no intervalo entre o "DO SIGA" e a tela inicial..rsrsrs Isso num "poderoso" Itautec 8086. No final de 87 chegou o primeiro "AT" 80286.... Depois veio o Autumn, o Winter, o Summer 97 até chegar o 5.0 NO meio do caminho, testamos um compilador chamado QUICKSILVER (alguem já ouviu falar?) mas só dava pau! rsrsrs Saí de lá em 1991 como Gerente de Suporte e a empresa já tinha mais de 100 funcionários. Bons tempos aqueles. Deixei muitos amigos lá, inclusive os donos. Aprendi muito e também ajudei muito no desenvolvimento. Com certeza, quem tem + de 40 anos aqui no fórum também ouviu falar ou testou o CLIP4WIN, o VB, o Delphi e o VO. Realmente, FIVEWIN é uma ferramenta poderosa e NÃO FICA DEVENDO NADA PARA NINGUEM! Se um dia todos os sistemas estiverem na WEB e o Fivewin não acompanhar, prefiro mudar de profissão e vender batata na feira! Abraços Alberto Zamai Vip Netsys Info SP

Ciao Fasi Look this: Local aDate:=Array[12,31] // need the same number of columns for all months Local dStart:=Ctod("01/01/2010") Local dFinish:=Ctod("31/12/2010") Local dDate For dDate=dStart to dFinish // Fill "2" (room free) for EXISTING days aDate[Month(dDate)][Day(dDate)] := "2" Next // Reading the dbf For dDate=dStart to dFinish If Archive->(DbSeek(cRoom+Dtos(dDate))) // need to be indexed While !Archive->(Eof()) .and. dDate <= Archive->Date_to aDate[Month(dDate)][Day(dDate)] := "1" // the room is occupated this day dDate++ End Else dDate++ End Next // Now, the "wrong days" like a 31/02 remaining empty Return(aDate) id=code>id=code>I hope this is usefull Puo scrivere anche in italiano, se preferire. Best regards Alberto Zamai São Paulo - SP

Certo Wagner,,,,aqui o sumido nro.2, mas também sempre "zoiando"....rs. 2010 seja 100% SUCESSO PARA TODOS! Abs Alberto Zamai Vipnetsys - SP

Para você Ambrosio Chega de conversa mole! Vai no DOS e/ou use o seu editor de textos favorito: #include "fivewin.ch" Funcion Main() Local oDlg Define Dialog oDlg from 10,10 to 20,70 Title "Teste" MsgInfo("Ola","Cheguei") Activate Dialog oDlg Return Nil Para compilar em Clipper (16bits) Clipper teste /a/n/v Blinker fi teste @fivewin Depois vem mais Alberto

posso dar uma opinião?

Boa Noite Gostaria de compartilhar aqui com os colegas de fórum, a grata experiência de parceria com o Sr. Lailton Fernando. Fechamos o desenvolvimento de uma página de agendamento de consultas para a ES-Engenharia na SEXTA-FEIRA (30/01). Ele prometeu entregar no prazo de 1 semana (PHP + MYSQL), mas, para minha feliz surpresa, HOJE A PÃGINA ESTAVA NO AR! E FUNCIONANDO PERFEITAMENTE BEM! (veja www.esengmed.com.br) Ainda não conheço o Lailton pessoalmente, talvez no próximo encontro Fivewin...mas recomendo a todos que precisarem de uma solução deste tipo a falarem com ele. O HOMEM É FERA !!! Parabéns Lailton, pela qualidade de seu trabalho e pelo show de profissionalismo! Obrigado Alberto Zamai Vip Netsystem Informática - SP xHb 99.50

Boa Noite Gostaria de compartilhar aqui com os colegas de fórum, a grata experiência de parceria com o Sr. Lailton Fernando. Fechamos o desenvolvimento de uma página de agendamento de consultas para a ES-Engenharia na SEXTA-FEIRA (30/01). Ele prometeu entregar no prazo de 1 semana (PHP + MYSQL), mas, para minha feliz surpresa, HOJE A PÃGINA ESTAVA NO AR! E FUNCIONANDO PERFEITAMENTE BEM! (veja www.esengmed.com.br) Ainda não conheço o Lailton pessoalmente, talvez no próximo encontro Fivewin...mas recomendo a todos que precisarem de uma solução deste tipo a falarem com ele. O HOMEM É FERA !!! Parabéns Lailton, pela qualidade de seu trabalho e pelo show de profissionalismo! Obrigado Alberto Zamai Vip Netsystem Informática - SP xHb 99.50

Ola DonJuan Liguei lá na Welmy (S.Barbara D´Oeste - (19) 30262566) e falei com ODAIR do suporte técnico da W300. Ele me disse que essa balança tem conexão RS232 mas opera em 2400 ou 4800 bps. Quanto as demais configurações (paridade, etc), ele pediu para ligarmos no (19) 30262575 e falar direto com o Paulo (Engenheiro) que ele dará mais detalhes. Vc pode ligar daí? Acho que é só colocar as configurações corretas no programa e vai funcionar. Abraços Alberto - SP

Por acaso não é essa?: http://www.brastek.com.br/index.php?area=produtos&linhas=&idcat=69&idprod=140

Mais uma coisa,,,,no site da Toledo não achei nada desse modelo W-300,,,tem certeza que é isso mesmo?

Olha, se não me engano era uma balança de piso 2124 ou 2124H, utilizada em um frigorífico para pesar caixas até 200Kg e divisões de 5g. Quanto a rodar em xHb, como já disse nunca testei, mas creio que sim, pq lá tem o comm.ch Quanto ao tipo de balança, creio que funciona em qq modelo com conexão RS232 nos parametros colocados no programa, mas quem pode confirmar isso é o pessoal de suporte da Toledo. Alberto-SP

Ola DonJuan Desculpe a demora! Estava fora por uns tempos e agora que vi o post. Poderia ser assim: #Include "Fivewin.ch" #Include "Comm.ch" STATIC nPesoCalc, nPesoLido *---------------- Function fBalanca *---------------- Local oGet,oPes,oDlg Local nTara:=0 nPesoCalc:=0 nPesoLido:=0 Define Dialog oDlg from 2,10 to 20,70 Title "Leitura Toledo" @ 10,10 Get nTara Size 40,10 Picture "99999.99" Valid fLeitura(oGet,oPes,nTara,oDlg) @ 20,10 Get oGet VAR nPesoLido Picture "99999.99" @ 30,10 Get oPes VAR nPesoCalc Picture "99999.99" Activate Dialog oDlg Centered Return Nil Ou se vc preferir, poderia ser um Button no final que chama a fLeitura. Abraços Alberto - SP

Só inclui o comm.ch Isso sempre funcionou com Fw+Clipper. Nunca testei com xHarbour mas deve funcionar. Alberto - SP

Ola Don Juan Segue função de leitura de uma Toledo ligada na COM1 *-------------------------------------- Function fLeitura(oGet,oPes,nTara,oDlg) *-------------------------------------- local cDcb, nBytes local nComm := OpenComm( "COM1", 1024, 128 ) local nError, nI if ! BuildCommDcb( "COM1:9600,n,8,1", @cDcb ) nError = GetCommError( nComm ) MsgInfo( "BuildCommDcb Error: " + Str( nError ) ) endif if ! SetCommState( cDcb ) nError = GetCommError( nComm ) MsgInfo( "SetCommState Error: " + Str( nError ) ) endif if ( nBytes := WriteComm( nComm, Chr(5) ) ) < 0 nError = GetCommError( nComm ) MsgInfo( "WriteComm Error: " + Str( nError ) ) End Inkey(1.5) cBuffer:=Space(20) ReadComm( nComm , @cBuffer) If At(".",Upper(cBuffer))#0 cBuffer:=Str(Val(Subs(cBuffer,At(".",Upper(cBuffer))-2,5)),6,2)+"KG" nPesoLido:=Val(cBuffer) End MemoWrit("retorno.txt",cBuffer) oGet:Refresh() nPesoCalc:=nPesoLido-nTara oPes:Refresh() if FlushComm( nComm, 0 ) != 0 nError = GetCommError( nComm ) MsgInfo( "FlushComm Error: " + Str( nError ) ) endif if ! CloseComm( nComm ) nError = GetCommError( nComm ) MsgInfo( "CloseComm Error: " + Str( nError ) ) endif return(Nil) Espero ter ajudado. Alberto Zamai S.Paulo

Desculpe, mas tenho acompanhado este tópico a alguns dias e queria dar um "pitaco",,,hehehe...quem sabe ajudo.. Discordo um pouco do colega JEF2_Tim....também trabalho com SQL, mas tenho clientes usando DBF com mais de 500.000 registros numa boa... Para Marcelo e Viol, desculpe a pergunta, mas: Se vcs usam CDX, a ordem dos indices já foi definida na criação (tags). Porque não usar um simples SET INDEX TO ou se preferir DBSETINDEX....e depois só DBSETORDER..? Francamente,,, 9.000 registros não faz nem cócegas em rede nenhuma. Só não usem SET FILTER (pelo amor de Deus!)....´. É muuuuito melhor ter índices nos campos pesquisados e fazer um Dbseek(,,.t.) e depois um Copy to (temp local) while... ou DbCopy bla bla bla...mesmo que for num simples ON Change de combobox.... Seria mais fácil vendo o pedaço que código que ficou lento. Abraços Alberto Fw2.4 + Cdx + Workshop + xHarbour 99.50 + Sqllib S.P.

Ola Mossane! Seja bem vindo! Olha, a uns 3 anos atras, fiz a função abaixo que lia uma balança Toledo ligada a Com1: oGet = Objeto GET do Peso Bruto oPes = Objeto GET do Peso Líquido (Bruto-Tara) nTara = Tara (informada pelo usuário) oDlg = Dialog que chamou a função e onde estão os GETS acima @ 0,0 Get nTara @ 0,0 Get oGet var nPesoLido @ 0,0 Get oPes var nPesoCalc @ 0,0 Button "Leitura" Action fLeitura(oGet,oPes,nTara,oDlg) Return Nil *-------------------------------------- Function fLeitura(oGet,oPes,nTara,oDlg) *-------------------------------------- local cDcb, nBytes local nComm := OpenComm( "COM1", 1024, 128 ) local nError, nI if ! BuildCommDcb( "COM1:9600,n,8,1", @cDcb ) nError = GetCommError( nComm ) MsgInfo( "BuildCommDcb Error: " + Str( nError ) ) endif if ! SetCommState( cDcb ) nError = GetCommError( nComm ) MsgInfo( "SetCommState Error: " + Str( nError ) ) endif if ( nBytes := WriteComm( nComm, Chr(5) ) ) < 0 nError = GetCommError( nComm ) MsgInfo( "WriteComm Error: " + Str( nError ) ) End Inkey(1.5) cBuffer:=Space(20) ReadComm( nComm , @cBuffer) If At(".",Upper(cBuffer))#0 cBuffer:=Str(Val(Subs(cBuffer,At(".",Upper(cBuffer))-2,5)),6,2)+"KG" nPesoLido:=Val(cBuffer) End MemoWrit("retorno.txt",cBuffer) oGet:Refresh() nPesoCalc:=nPesoLido-nTara oPes:Refresh() if FlushComm( nComm, 0 ) != 0 nError = GetCommError( nComm ) MsgInfo( "FlushComm Error: " + Str( nError ) ) endif if ! CloseComm( nComm ) nError = GetCommError( nComm ) MsgInfo( "CloseComm Error: " + Str( nError ) ) endif return(Nil) *----------- Fim Note: nPesoCalc é a variável STATIC e inicia zerada. nPesoLido também é STATIC e inicia zerada. A função grava também um arquivo retorno.txt com a última leitura. Espero ter ajudado. Alberto Zamai FW24 + xHb 99.50 S.Paulo - SP

Alguem já viu isso? http://ultimosegundo.ig.com.br/economia/2008/10/26/escrituracao_digital_sera_obrigatoria_em_2009_2070418.html Alberto FWH + WS + SQLLIB SP

Alguem já viu isso? http://ultimosegundo.ig.com.br/economia/2008/10/26/escrituracao_digital_sera_obrigatoria_em_2009_2070418.html Alberto FWH + WS + SQLLIB SP

Ha vai! Tem algum F naquele texto???

citação: citação:hehehe,,,meno,meno Se vc tem um software de 1a.linha, pode cobrar 120 contos por mês de muitos clientes.... Questão de ponto de vista... id=quote>id=quote>Por mes????? ta brincando.. estou falando por hora de programacao.. eu cobro por mes 1 salario ( 415 reais ) de suporte e nao inclui alteracao. vitor s.b.c. id=quote>id=quote>Claro Vitor! Está certíssimo! O que eu quis dizer, é que cobro conforme o tamanho do cliente.....Tem os grandes que pagam uma manutenção igual a 1 salário mínimo + 60 / hora... Outros pequenos que pagam 120 contos por mês só pra gente passar lá e tomar café de vez em quando....Esses também são clientes importantes e pagam direitinho.... Abs Alberto

hehehe,,,meno,meno Se vc tem um software de 1a.linha, pode cobrar 120 contos por mês de muitos clientes.... Questão de ponto de vista...

Em tempo... Sua pergunta foi um pouco vaga,,,,veja, se vc precisa fazer tratamento de imagens, cálculos científicos, colocar seu sistema rodando na internet (não só a base de dados), então existem outras soluções por ai.... Se for uma aplicação desktop, em rede local ou intranet, Fivewin é uma excelente idéia! Concordo também com o Marcelo, pois qualquer sistema, para ser eficiente, depende da sua lógica de programação, modularidade, encapsulamento de rotinas, tratamento do banco de dados, etc... Alberto - SP

Boa Tarde Cara, na boa, já ouviu falar de Access, Delphi, VB e outros "trens" por ai?? Se não ouviu, não perdeu NADA!, se conhece, ESQUEÇA! Fivewin dá de 10 a 0 em desempenho, robustez e facilidade de programar! Fivewin + Clipper + Dbf = Show de bola! Tenho clientes com mais de 50 máquinas e 500 mil registros nessa plataforma, NUMA BOA! Fivewin + xHarbour + Sqllib = Show de bola ao quadrado! Tenho programas acessando base MySql remota sem ter que configurar aquela chatice de ODBC! E vc nem precisa saber nada de SQL! Se vc escolheu Fivewin, seus problemas terminaram! Agora, um sistema bom depende também da qualidade das máquinas, rede, instalação elétrica, usuários, etc... Em termos de linguagem de programação (não me falem de biblioteca gráfica, porque não é), Fivewin é 1000! Abs Alberto - SP

citação:De fato! Estas alterações já deveriam ter sido incorporadas na versão atual. Vou ajustar o script e postar um update já amanhã! Obrigado pelo aviso José, agora o link está Ok! id=quote>id=quote>Ola Vailton 1a.mente, Parabéns pelo novo site, ficou 10! 2a.mente, Acabei de fazer um pedido lá, da SQLLIB Plus. Antes tinha uma versão LITE (só MySql)....Não tem mais? A versão Plus pode ser compilada com xHb 0.99.50 ? Obrigado Alberto Zamai - SP xHarbour 0.99.50