zergar

So para aprofundar mais no assunto, aqui em casa tenho uma maquina virtual rodando o Linux + Mysql dentro de uma Maquina Fisica com XP, e essa maquina virutal que roda o meu banco de dados para minhas aplicacoes, inclusive com acesso remoto, entao alem de poder rodar, ela existira fisicamente na rede (Com ip, navegacao na net e etc). ps: Tenho o Windowx 7 com 4 GB de Ram e as vezes me pego com o Windows 2008 Server + Windowx XP e Ubutun Rodando ao mesmo tempo . Abracos.

Bancos de dados Localmente, verificar quais tabelas terao dados em comum (Clientes, Fornecedores, Produtos e etc) com codigos Univocos e replicacao em anel (Matriz atualiza na filial 001->002->003->Matriz). Esses dados serao separados por loja, com um campo EMPRESA em cada tabela. Espero ter ajudado. ps:Select * from Pedidos where EMPRESA = 01 Select * from Pedidos where EMPRESA = 02 E por ai vai. Abracos.

Bem, estava com o mesmo problema, o que fiz foi gravar as informacoes a respeito da movimentacao de produtos diretamente no ARI_MOVIMENTO.MDB (Base de Dados em Access). Qualquer coisa me add no msn: lincoln_daniele@hotmail.com Abracos.

Baixei e to testando e nao vi nenhuma limitacao nao. Nao vi tambem nenhuma referencia a pagamento no site. Abracos.

Falta de Espaco em Disco ou disco danificado, ja tive essa mensagem por isso. Abracos.

Vamos la, nao sou a pessoa mais indicada para dar comentario mais profundo a respeito do Visual Five Win, o que vi até agora e uma feramenta muito interssante, madura e que se realmente fizer o que li a respeito seria uma IDE muito interessante a ser usada. O que estou vendo e um certo pecismo a respeito da ferramenta sem ao menos darem o trabalho de baixar (3 minutos), instalar (2 minutos) configurar (2 minutos) e testar (1 hora), ai sim colocarem o que realmente acharam da ferramenta, tanto para usurios inicias como para usuarios finais. Vamos tirar da cabeca o encontro da maioria com aquele Visual Five Win do Linhares de 1940, nao tem nada haver com aquilo que esta disponivel na Five Tech. Vou tomar como exemplo meu irmao, Jef2_Timber, usuario avancado, troco ideias com ele a bastante tempo sobre uma solucao unificada para podermos gerar nosso projetos, e o que vejo nele ´e o que vejo sempre por aqui na maioria, um orgulho inexplicavel em fazer tudo na mao, sem precisar de nenhuma facilidade no que diz respeito a construcao da aplicacao, um entrave e pessimismo muito grande em utilizar ferramentas que possam nos auxiliar e facilitar o trabalho de desenvolvimento. Entao poderiamos largar mao de tanta pulga atraz da orelha e tentar ao menos testar a ferramenta, e voces usuraios avancados virem aqui e dizer: A ferramenta nos auxilia assim assim assado, essa versao tem esses e esses pontos fortes, e esses e esses pontos fracos e por isso deve ou nao ser adotada. Fica aqui a minha ideia. Abracos. ps: Adotei o FiveWin e Xharbowr, como venho de Visual Basic, Access e etc tentem imaginar a minha pilha de ter uma IDE tranquila para me ajudar nessa empleitada. Uso: FiveWin + Xharbour + Pelles C.

Mas e isso que essa ferramenta esta disposta a fazer e faz, na realidade por padrao ela gera os Forms no formato FFM, voce por opcao podera salvar em RC ou PRG, mas o projeto em si e todo gerenciado pela ferramenta. Acho que poderiamos baixar e utilizar a ferramenta e ai sim dar ums opnioes consistentes. Eu na realidade vim do MS Access para o FiveWin a pouco tempo, estou engatinhando ainda, mas com muita vontade de aprender, estou utilizando Pelles C para "desenhar" minhas telas e o Xdev para manter meus fontes/compilar meus projetos, mas senti falta de um ambiente integrado para ajudar no desenvolvimento de meus aplicativos, e de todas que olhei, essa me pareceu a mais consistente e integrada. Agora poderiamos Baixar isso, criar um "Helo World" e depois de dar uma olhada mais aprofundada postar uma analise mais racional da mesma, sem emocao, ate porque sao os feras em FiveWin que irao realmente analisar a mesma. Abracos.

Testei a parte de importacao de RC´s, funfou tranquilo, compilei, rodou, ate forms do Visual Basic e Delphi a aplicacao Suporta, como eu disse logo ali em cima, o Sr. Antonio Linhares, ( o inicio do projeto teve como base o Visual Five Win do Linhares), estava ou esta bastante empolgado com o que ele viu, li algumas trocas de email entre ele e Patrick sobre a possibilidade de adotarem a ferramenta, inclusive com as respotas do Patrick. Vale a pena dar uma lida. Abracos.

Realmente esta fora do Ar, deve ter saido agora a pouco, se nao voltar ate a tarde eu coloco no 4shared e posto o link aqui, derrepente o Kapi poderia colocar no 4shared . Acho que deveriamos dar uma olhada com mais carinho na solucao, parece ser bastante interessante. Abracos.

Entao como eu disse estou iniciando em Five, mas vi algumas coisas interessantes, o formato padrao para salvar os forms e com a extensao .FFM (Five_WIN Form), voce clicando com o botao direito do mouse no form e ir em salvar form como, voce podera salvalo em .FFM (Five_WIN Form) que é o padrao, ou podera salva-lo como .PRG (@ say da vida), ou por ultimo no formato .RC, e abri-lo no pelles ou Workshop que nao vejo muita utilidade nesse caso, outra coisa interessante e a opcao importar, onde suas Telas em formato .RC (pelles, workshop e etc) sao adicionadas integralmente ao projeto, diminuindo bastante o desenvolvimento da parte dos Forms nos Projetos. Abracos. ps: Vamos dar uma olhada na ferramenta que parece ser bastante interessante, e nao tem nada haver com aquela que esta disponivel no www.fivetech.com, essa esta bem implementada e com varios recursos interessantes.

Entao Kapi, foi sussegado, instalei a ferramenta, Unicode, detalhe na tela inicial nao sei porque preciso dar um click no logo do five para poder abrir a ferramenta. Dentro da ferramenta por padrao, ele sempre abre um projeto novo, as configuracoes da ferramenta foi easy, fui na Aba Projects, Setup, indiquei o Diretorio do Xharbour (121), do Five Win (.907) e do Compilador C (Bcc55), adicionei na aba Include os diretorios do Five, BCC e do Xharbour e gg. Detalhe, na compilacao do projeto quando me da a opcao de escolher as Libs tive que tirar do projeto a de nome: c:\xharb121\lib\optgui.lib Tudo correu bem, criei um forms, alguns codigos, compilei e executei a aplicacao normalmente. Abracos.

Visual Five Win - Versao Release 2.4.91 - 08/08/09 Estava tentando achar alguma IDE para Five Win e me deparei com esse projeto: http://www.geocities.com/ksfanhk/freeware.htm#difference Me parece bem maduro o projeto, inclusive vi alguns posts do Linhares com troca de email entre ele e o Patrick com claro interesse do Linhares nesse projeto, por isso resolvi baixar e dar uma olhada. Parece ser uma ferramenta boa, como nao tenho muita experiencia com Five, montei um projeto simples compilei e rodei no Xharbour + Five .907, e gostei do que vi. Abracos. Lincoln Wallace Procopio

Visual Five Win - Versao Release 2.4.91 - 08/08/09 Estava tentando achar alguma IDE para Five Win e me deparei com esse projeto: http://www.geocities.com/ksfanhk/freeware.htm#difference Me parece bem maduro o projeto, inclusive vi alguns posts do Linhares com troca de email entre ele e o Patrick com claro interesse do Linhares nesse projeto, por isso resolvi baixar e dar uma olhada. Parece ser uma ferramenta boa, como nao tenho muita experiencia com Five, montei um projeto simples compilei e rodei no Xharbour + Five .907, e gostei do que vi. Abracos. Lincoln Wallace Procopio

Eu utilizo muito ambiente Virtuais, darei alguns exemplos: Testar meus aplicativos em varios ambientes (Linux, Windows, Novell e etc) Testar varias ferramentas em uma maquina virtual sem comprometer a minha maquina de trabalho. Deixar minha maquina Virtual para testes para parceiros. Utlizar banco de dados em diversas versoes e sistema operacionais, ajuda muito em treinamento para implantacao futura em um cliente. Realmente e muito proveitoso o uso de ambientes virtuais, conseguimos muito poder usando essa ferramenta. Abracos.

A DLL Libmysql.lib esta no diretorio da aplicacao?? Verifica por favor. Abracos.

Harebamguandi, e isso mesmo, se voce estiver usando a versao paga da SQLLIB e so usar os comandos/funcoes conforme vc ja usa em Xbase, mudando pouca coisa para manipulacao e criacao das tabelas, agora o banco de dados, use: SQL EXECUTE “CREATE DATABASE empresa001†e voce estara criando o banco de dados empresa001. if Table( ‘clientes.dbf’ ) ? ‘tabela de clientes já existe!’ else dbCreate( ‘clientes.dbf’, aEstrutura ) endif Nao muda nada a sintax em Xbase, de uma olhada mais aprofundada no manual da SQLLIB, e bem transparente para uso. Abracos. ps: Estou dando somente uns pitacos, mas como voce so estou comecando  Â

Com um banco de dados como MYSQL realmente essa logica de pensamento ira acabar sim, voce tera que implementar inicialmente varios banco de dados para organizar varias empresas. Exemplo: SQL CONNECT ON '192.168.0.118'; // Nome da estação ou IP do micro onde o MySQL está rodando PORT 3306; // Numero da porta, onde o servidor SQL está escutando DATABASE 'Empresa001'; USER 'root'; PASSWORD 'sql' ; OPTIONS SQL_NO_WARNING ; LIB 'MySQL' Onde Empresa001 (DataBase) e o "Local" onde irao ser armazenadas as suas tabelas relativas a empresa em questao. Entao no seu caso simplesmente trate o banco de dados que sera aberto para trabalho. Para criar seu banco de dados bem como manipula-lo utilize a sintaxe que voce esta acostumado a trabalhar via Xbase, mas se quiser usar sql, va em frente e aproveite o poder que isso podera lhe trazer. Abracos.

Aproveitando a oportunidade, o que pode estar errado no seguinte codigo: id=code>id=code>Nesse codigo quero tirar a / (Barra) e colocar um espaco vazio no lugar da mesma. Abracos.

Harebaba, ganhei o dia, receber um elogio desses do Mestre Vailton.

Vou postar aqui para poder Trocar ideia e contribuir com todos. LOCAL oWndVerMdb,oCnn,oRs, oBrw LOCAL oBar, oSay oCnn:=tOleAuto():new("ADODB.connection") oCnn:open("Provider= MicroSoft.Jet.OLEDB.4.0;Data Source=.\ARI_impac.mdb") //--Pega o Codigo Regulado e da Instalacao em DBF oRs:=tOleAuto():New("ADODB.RecordSet") oRs:CursorLocation := adUseClient oRs:CursorType := adOpenDynamic oRs:LockType := adLockOptimistic oRs:ActiveConnection := oCnn oRs:Source := "SELECT * FROM SAFEMP" oRs:Open() f_COD_REGULA := oRs:Fields("COD_REGULA"):Value f_COD_INSTAL := oRs:Fields("COD_INSTAL"):Value oRs:Close() //--Pega o Ano e Mes de Trabalho para Parametizar o SIMP de DBF oRs:=tOleAuto():New("ADODB.RecordSet") oRs:CursorLocation := adUseClient oRs:CursorType := adOpenDynamic oRs:LockType := adLockOptimistic oRs:ActiveConnection := oCnn oRs:Source := "SELECT SAFCFG.PRC_CODSYS FROM SAFCFG WHERE SAFCFG.PRC_MODSYS="+'"SAFSIM"' oRs:Open() f_MES_ANO := oRs:Fields("PRC_CODSYS"):Value oRs:Close() f_TIP_MOV = 1 f_QUANT_TMP = "00:00:07" //--Pega a Quantidade de Registro da Tabela Movimento do SIMP oRs:=tOleAuto():New("ADODB.RecordSet") oRs:CursorLocation := adUseClient oRs:CursorType := adOpenDynamic oRs:LockType := adLockOptimistic oRs:ActiveConnection := oCnn oRs:Source := "SELECT * FROM TBDR_MOVIMENTO" oRs:Open() nTotal = oRs:RecordCount() oRs:Close() //--Exclui Dados iniciais do SIMP oRs:=tOleAuto():New("ADODB.RecordSet") oRs:CursorLocation := adUseClient oRs:CursorType := adOpenDynamic oRs:LockType := adLockOptimistic oRs:ActiveConnection := oCnn oRs:Source := "DELETE * FROM TBDR_REFERENCIA_MOVIMENTO" oRs:Open() // oRs:Close() //--Atualiza as informacoes iniciais do SIMP oRs:=tOleAuto():New("ADODB.RecordSet") oRs:CursorLocation := adUseClient oRs:CursorType := adOpenDynamic oRs:LockType := adLockOptimistic oRs:ActiveConnection := oCnn oRs:Source := "SELECT * FROM TBDR_REFERENCIA_MOVIMENTO" oRs:Open() oRS:AddNew() oRs:Fields("Cod_Regulado"):Value := f_COD_REGULA oRs:Fields("Dat_MesAno_Referencia"):Value := f_MES_ANO oRs:Fields("Qtd_Registro"):Value := nTotal oRs:Fields("Tip_Movimento"):Value := "1" oRs:Fields("qtd_tempo_critica"):Value := f_QUANT_TMP oRs:Fields("qtd_tempo_carga"):Value := f_QUANT_TMP oRs:Update() oRs:Close() Atualiza_MOV() id=code>id=code> LOCAL oWndVerMdb,oCnn,oRs, oBrw LOCAL oBar, oSay oCnn:=tOleAuto():new("ADODB.connection") oCnn:open("Provider= MicroSoft.Jet.OLEDB.4.0;Data Source=.\ARI_impac.mdb") //--Exclui Dados iniciais do SIMP oRs:=tOleAuto():New("ADODB.RecordSet") oRs:CursorLocation := adUseClient oRs:CursorType := adOpenDynamic oRs:LockType := adLockOptimistic oRs:ActiveConnection := oCnn oRs:Source := "DELETE * FROM TBDR_MOVIMENTO" oRs:Open() // oRs:Close() //--Pega Dados Compras Regulado em varias Tabelas, DBF´s e MDB´s oRs:=tOleAuto():New("ADODB.RecordSet") oRs:CursorLocation := adUseClient oRs:CursorType := adOpenDynamic oRs:LockType := adLockOptimistic oRs:ActiveConnection := oCnn oRs:Source :="INSERT INTO TBDR_MOVIMENTO ( SEQ_MOVIMENTO, COD_REGULADO, COD_INSTALACAO1, COD_OPERACAO, COD_INSTALACAO2, COD_PRODUTO,QTD_PRODUTO, QTD_PRODUTO_KG, NUM_NOTA_FISCAL, COD_SERIE_NF, DAT_NOTA_FISCAL, DAT_REFERENCIA, COD_MODAL, COD_VEICULO, COD_TERCEIRO, COD_MUNICIPIO, COD_ATIVIDADE_ECONOMICA, COD_PAIS, NUM_LI, NUM_DI, COD_TIPO_SERVICO, COD_CARACTERISTICA, COD_METODO,COD_UNIDADE_MEDIDA, VAL_CARACTERISTICA, COD_PROD_OPER_RESULT, VAL_MASSA_ESPECIFICA, COD_EMBALAGEM_GLP )SELECT SAFSIMP.SEQ_MOVIME, SAFEMP.COD_REGULA, SAFEMP.COD_INSTAL, 1011001 AS COD_OPERACAO, SAFFRN.COD_INSTAL,SAFSIMP.PRODUTO, format(SAFSIMP.QUANTIDADE,"+'"000000000000000"'+"), format(Str([quantidade]/100*"+'"0.87"'+")"+","+'"000000000000000"'+") AS QUAT_KL, SAFSIMP.NF_NUMERO, SAFSIMP.SERIE, SAFSIMP.DATA, SAFCFG.PRC_CODSYS, 1 AS MODAL,"+'"0000000"'+" AS VEICULO,"+'"00000000000000"'+" AS TERCEIRO,"+ '"0000000"'+" AS MUNICIPIO,"+ '"00000"'+" AS ATIVIDADE,"+ '"0000"'+" AS PAIS,"+ '"0000000000"'+" AS LIM,"+ '"0000000000"'+"AS DI,"+ '"0"'+" AS COD_SERV,"+ '"000"'+" AS COD_CARA,"+ '"000"'+" AS COD_METO,"+ '"00"'+" AS COD_UNI,"+ '"000000000"'+" AS VAL_CARA,"+ '"000000000"'+" AS COD_PRO,"+ '"0000,000"'+" AS VAL_MASSA,"+ '"00"'+" AS COD_EMBA FROM SAFEMP, SAFCFG, SAFFRN INNER JOIN SAFSIMP ON SAFFRN.COD = SAFSIMP.CODIGO WHERE SAFFRN.COD_INSTAL>"+'"0"'+ " AND "+"SAFSIMP.OPERACAO="+'"COMPRAS"'+" AND "+"SAFCFG.PRC_MODSYS="+'"SAFSIM"' //"INSERT INTO TBDR_MOVIMENTO ( SEQ_MOVIMENTO, COD_REGULADO, COD_INSTALACAO1, COD_OPERACAO, COD_INSTALACAO2, COD_PRODUTO, QTD_PRODUTO, QTD_PRODUTO_KG, NUM_NOTA_FISCAL, COD_SERIE_NF, DAT_NOTA_FISCAL, DAT_REFERENCIA ) SELECT SAFSIMP.SEQ_MOVIME, SAFEMP.COD_REGULA, SAFEMP.COD_INSTAL, 1011001 AS COD_OPERACAO, SAFFRN.COD_INSTAL, SAFSIMP.PRODUTO, format(SAFSIMP.QUANTIDADE,"+'"000000000000000"'+"), format(Str([quantidade]/100*"+'"0.87"'+")"+","+'"000000000000000"'+") AS QUAT_KL, SAFSIMP.NF_NUMERO, SAFSIMP.SERIE, SAFSIMP.DATA, SAFCFG.PRC_CODSYS FROM SAFEMP, SAFCFG, SAFFRN INNER JOIN SAFSIMP ON SAFFRN.COD = SAFSIMP.CODIGO WHERE SAFFRN.COD_INSTAL>"+'"0"'+ " AND "+"SAFSIMP.OPERACAO="+'"COMPRAS"'+" AND "+"SAFCFG.PRC_MODSYS="+'"SAFSIM"' oRs:open() VerMdb() id=code>id=code>Aproveitar o ensejo e agradecer ao Ramon que me deu uma baita ajuda. Abracos.

citação:Bem depois de muito procurar, conseguir usar mesmo que limitadamente o projeto ADORDD, resolvi fazer alguns testes com ADO, e para a minha surpresa, achei MARAVILHOSO, entao atualmente estou, Consultando, Deletando, Accessando tabelas em DBF e Atualizando uma tabela MDB do projeto/aplicativo SIMP. Se interessar para alguem, posto os fontes que consegui ate agora. Abracos. id=quote>id=quote>Na realidade, nao estou usando o ADORDD, como disse tive algumas limitacoes, entao estou usando somente ADO, so para corrigir o post. Abracos.

Bem depois de muito procurar, conseguir usar mesmo que limitadamente o projeto ADORDD, resolvi fazer alguns testes com ADO, e para a minha surpresa, achei MARAVILHOSO, entao atualmente estou, Consultando, Deletando, Accessando tabelas em DBF e Atualizando uma tabela MDB do projeto/aplicativo SIMP. Se interessar para alguem, posto os fontes que consegui ate agora. Abracos.

Kbelo meu amigo, vou te passar umas rotinas em Visual Basic, da uma estudada que resolve seu problema. 'Verifico se a Porta esta aberta, se estiver fecho a mesma If MSComm.PortOpen = True Then MSComm.PortOpen = False End If 'Seto a Com1 para trabalhar com o controle MSComm.CommPort = 1 'Configuro a Porta e suas Propriedades MSComm.Settings = "9600,N,8,1" 'Abro a porta MSComm.PortOpen = True 'Envio comando de leitura do Concentrador para a porta wDado = "(&A)" MSComm.Output = wDado contad = MSComm.InBufferCount ' MsgBox a 'Esse laco precisei colocar ai porque esta com pepino 'Isso se chama GAMBIARRA For a = 1 To 30000000: Next a 'Bom cara o codigo abaixo e para pegar o retorno da variavel 'Contad e quebralas para pegar os dados que quero 'e no final armazenar no banco de dados abastecimentos 'Pego o primeiro abastecimento e jogo na variavel Textos textos = MSComm.Input textos = "F0000" + textos TEXTOS2 = Mid(textos, 9, 50) textos3 = Mid(textos, 8, 1) Dim TotalC, t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14 As String t1 = Mid(TEXTOS2, 1, 6) t1 = Format(Val(t1) / 100, "0.00") t2 = Mid(TEXTOS2, 7, 6) t2 = Format(Val(t2) / 1000, "0.000") t3 = Mid(TEXTOS2, 13, 4) t3 = Format(Val(t3) / 1000, "0.000") t4 = Mid(TEXTOS2, 17, 2) t5 = Mid(TEXTOS2, 19, 4) t5 = Val(t5) t6 = Mid(TEXTOS2, 23, 2) t7 = Mid(TEXTOS2, 25, 8) t7 = Val(t7) t8 = Mid(TEXTOS2, 33, 4) t8 = Val(t8) t9 = Mid(TEXTOS2, 37, 10) t9 = Format(Val(t9) / 100, "0.00") t10 = Mid(TEXTOS2, 47, 2) t11 = Mid(TEXTOS2, 49, 2) t11 = Val(t11) t1 = Str(t1) t2 = Str(t2) t3 = Str(t3) t5 = Str(t5) t7 = Str(t7) t8 = Str(t8) t9 = Str(t9) t11 = Str(t11) 'MsgBox t6 + t10 If t10 = "00" Then If textos3 = "(" Then DoCmd.RunSQL "INSERT INTO Abastecimentos (TotalPagar,VolumeAbastecido,PrecoUnitario,TempoAbast,Bico,Data,NumeroAbastecimento,Encerrante,Status,Checksum) VALUES (" & t1 & "," & t2 & "," & t3 & "," & t5 & ",'" & t6 & "'," & t7 & "," & t8 & "," & t9 & ",'" & t10 & "'," & t11 & ")" 'Agora digo para o concentrador ir para o proximo abastecimento wDado = "(&I)" MSComm.Output = wDado End If End If End Sub id=code>id=code>Resumindo, Trato a porta, envio o comando "(&A)" para poder ter retorno dos dados, trato o retorno, gravo os dados, e incremento para o proximo abastecimento com "(&I)". Kbelo sei que esta em VB mas da para vc ter uma ideia de como ficaria o codigo em Five. Espero ter Ajudado. Abracos.

A Linha 52 do Adoxb.ch comentei ela e nao houve mais o erro, a linha 265 do AdoXb.prg tirei os comentarios e funcionou, o que estou tendo agora e um retorno do erro: "TOleauto/65535" Ja andei procurando mas nao consegui encontrar nada a respeito. Se alguem puder me ajudar fico agradecido. ps: Estou usando o adordd para testes e implementacao da solucao que preciso, nao sei se e a melhor saida mas foi a unica que consegui usar. Abracos.

Isso Wilian, inseri no Adoxb.prg e estou com retorno do mesmo erro, E0017 Ambiguous Match Pattern. Abracos.