netsys
-
Posts
326 -
Joined
-
Last visited
-
Days Won
5
Posts posted by netsys
-
-
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?
Alberto
FWH + WS + SQLLIB
SP
-
Alguem já viu isso?
Alberto
FWH + WS + SQLLIB
SP
-
Ha vai! Tem algum F naquele texto???
-
citação:
id=quote>id=quote>citação:
id=quote>id=quote>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...
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.
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:
id=quote>id=quote>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!
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
Curso ADVPL
in Programação
Posted
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