Anderson.OL

Com grande experiencia em: - FiveWin/[x]Harbour (Orientação a objetos) - Desenvolvimento de automação comercial - Conhecimento de MySQL (não é obrigatório) - Disponibilidade de deslocamento para Interior do RJ Interessados favor enviar email para anderson.ol@gmail.com Desde FW+Clipper/DBF até FW+[x]Hb/MySQLid=green> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Com grande experiencia em: - FiveWin/[x]Harbour (Orientação a objetos) - Desenvolvimento de automação comercial - Conhecimento de MySQL (não é obrigatório) - Disponibilidade de deslocamento para Interior do RJ Interessados favor enviar email para anderson.ol@gmail.com Desde FW+Clipper/DBF até FW+[x]Hb/MySQLid=green> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

11 polegadas (1366x768 px) me deixam muito satisfeito hoje! Eu indicaria como base de escolha qto ao tamanho/resolução de monitor Desde FW+Clipper/DBF até FW+[x]Hb/MySQLid=green> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Boa tarde Senhores... Estou com um xBrowse no meu sistema que a partir do momento que tirei a coluna direita indicadora de navegação, este ficou sem borda como pode ser visto abaixo: Alguém pode me ajudar? Desde FW+Clipper/DBF até FW+[x]Hb/MySQLid=green> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Boa tarde Senhores... Estou com um xBrowse no meu sistema que a partir do momento que tirei a coluna direita indicadora de navegação, este ficou sem borda como pode ser visto abaixo: Alguém pode me ajudar? Desde FW+Clipper/DBF até FW+[x]Hb/MySQLid=green> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

citação:Estou executando ao entrar no sistema, em cada estacao e até no server! Agora olhei o regedit e nao encontrei estes campos la. Caso eles nao existam temos que criar manualmente ou a funcao poderia criar tbm? flow Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA id=quote>id=quote>As instruções acima já criam no caso de não existir! //-- Cria a arvore de chaves (pastinhas do registro) se não existir e abre-aid=green> oReg := TReg32():New( HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters" ) Cria uma variavel se não existir e tualiza o valor desta no registroid=green> oReg:Set("EnableOplocks", "00000000") ... id=code>id=code>Resumindo, basta usar como foi postado pelo amigo Ariston. Desde FW+Clipper/DBF até FW+[x]Hb/MySQLid=green> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

citação:Ola Da erro de HKEY_LOCAL_MACHINE variavel nao existe! Posso criar esta var como local e o resto da funcao fica normal? Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA id=quote>id=quote>Crie assim que funfa! id=code>id=code>Desde FW+Clipper/DBF até FW+[x]Hb/MySQLid=green> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Se eu entendi direito a sua dúvida é como usar JOIN juntamente com o UPDATE. Se for isso a solução é a seguinte: LEFT JOINid=blue> produtos ASid=blue> pro SETid=blue> vda.PER_COM = xxx WHEREid=blue> pro.COMISSAO = yyy ANDid=blue> vda.PER_COM = 0id=orange> id=black>id=code>id=code>Espero ter ajudado. Desde FW+Clipper/DBF até FW+[x]Hb/MySQLid=green> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Trabalhe om Interval mysql> SET @dia = CURRENT_DATE - 10 ; Query OK, 0 rows affected (0.00 sec) mysql> select @dia ; +----------+ | @dia | +----------+ | 20110320 | +----------+ 1 row in set (0.00 sec) mysql> -- pega a variavel e adiciona 1 diaid=green> mysql> SELECT @dia + INTERVAL 1 DAY ; +-----------------------+ | @dia + INTERVAL 1 DAY | +-----------------------+ | 2011-03-21 | +-----------------------+ 1 row in set (0.00 sec) mysql> id=brown>id=code>id=code>Usando este operador vc pode fazer o calculo na clausula where do seu delete id=brown>id=code>id=code>PS: Parenteses não são obrigatórios, coloquei só para simplificar a interpretação. FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 10.6 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Tenta chamar de maneira explicita a transação e o rollback! Function Main() ConectBD(0) SQLExec('START TRANSACTION') For i:=1 To 10 cSql := "Insert into teste (name) values ("+STRZERO(i,2)+")" SQLEXECUTE(cSql) NEXT ?"Passou loop 1" For i:=1 To 10 cSql := "Update teste set name = "+STRZERO(0,2) SQLEXECUTE(cSql) NEXT ?"Passou loop 2" For i:=11 To 20 cSql := "insert teste (name) values ("+STRZERO(i,2)+")" SQLEXECUTE(cSql) NEXT ?"Passou loop 3" SQLExec('ROLLBACK') RETURN .T. //-------------------------------------------------------- id=code>id=code>Fiz testes no prompt do mysql e não tem motivo para não funcionar!! Query OK, 0 rows affected (0.00 sec) mysql> select * from t1 ; Empty set (0.00 sec) mysql> insert t1 set f1 = null ; Query OK, 1 row affected (0.03 sec) mysql> select * from t1 ; +----+---------------------+ | f1 | f2 | +----+---------------------+ | 1 | 2011-03-28 08:21:03 | +----+---------------------+ 1 row in set (0.00 sec) mysql> rollback ; Query OK, 0 rows affected (0.03 sec) mysql> select * from t1 ; Empty set (0.02 sec) id=code>id=code>FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 10.6 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. Observação:id=size4> Lembre-se que dentro da sua função sqlexecute não pode haver commit pois caso contrário não será possível rollbackar!! Editado por - Anderson.ol on 28/03/2011 08:39:41

Acho que não existe a necessidade de colocar a cláusula full e o comando show columns from tabela pode ser substituido por describe tabela ou simplesmente desc tabela *************************** 1. row *************************** Table: faltas Create Table: CREATE TABLE `faltas` ( `CODIGO` varchar(6) NOT NULL DEFAULT '', `DESCRICAO` varchar(40) NOT NULL DEFAULT '', `UNIDADE` varchar(2) NOT NULL DEFAULT '', `FORNECEDOR` varchar(4) NOT NULL DEFAULT '', `QUANTIDADE` int(4) NOT NULL DEFAULT '0', `PRECO` decimal(12,2) NOT NULL DEFAULT '0.00', `OPERADOR` varchar(20) NOT NULL DEFAULT '', `DISTRIB` int(2) NOT NULL DEFAULT '0', `DEPART` varchar(3) NOT NULL DEFAULT '', `CONTEXP` int(6) NOT NULL DEFAULT '0', `ACTION` int(1) NOT NULL DEFAULT '0', `RECNO` int(11) NOT NULL AUTO_INCREMENT, `CODFILIAL` varchar(3) NOT NULL DEFAULT '', PRIMARY KEY (`RECNO`), UNIQUE KEY `FALTAS` (`CODIGO`,`DISTRIB`,`CODFILIAL`), KEY `FALTAS2` (`DESCRICAO`) ) ENGINE=MyISAM AUTO_INCREMENT=774 DEFAULT CHARSET=latin1 1 row in set (0.00 sec) mysql> show columns from faltas ; +------------+---------------+------+-----+---------+----------------+ | Field | Type | Null | Key | Default | Extra | +------------+---------------+------+-----+---------+----------------+ | CODIGO | varchar(6) | NO | MUL | | | | DESCRICAO | varchar(40) | NO | MUL | | | | UNIDADE | varchar(2) | NO | | | | | FORNECEDOR | varchar(4) | NO | | | | | QUANTIDADE | int(4) | NO | | 0 | | | PRECO | decimal(12,2) | NO | | 0.00 | | | OPERADOR | varchar(20) | NO | | | | | DISTRIB | int(2) | NO | | 0 | | | DEPART | varchar(3) | NO | | | | | CONTEXP | int(6) | NO | | 0 | | | ACTION | int(1) | NO | | 0 | | | RECNO | int(11) | NO | PRI | NULL | auto_increment | | CODFILIAL | varchar(3) | NO | | | | +------------+---------------+------+-----+---------+----------------+ 13 rows in set (0.01 sec) mysql> describe faltas ; +------------+---------------+------+-----+---------+----------------+ | Field | Type | Null | Key | Default | Extra | +------------+---------------+------+-----+---------+----------------+ | CODIGO | varchar(6) | NO | MUL | | | | DESCRICAO | varchar(40) | NO | MUL | | | | UNIDADE | varchar(2) | NO | | | | | FORNECEDOR | varchar(4) | NO | | | | | QUANTIDADE | int(4) | NO | | 0 | | | PRECO | decimal(12,2) | NO | | 0.00 | | | OPERADOR | varchar(20) | NO | | | | | DISTRIB | int(2) | NO | | 0 | | | DEPART | varchar(3) | NO | | | | | CONTEXP | int(6) | NO | | 0 | | | ACTION | int(1) | NO | | 0 | | | RECNO | int(11) | NO | PRI | NULL | auto_increment | | CODFILIAL | varchar(3) | NO | | | | +------------+---------------+------+-----+---------+----------------+ 13 rows in set (0.00 sec) mysql> show full columns from faltas ; +------------+---------------+-------------------+------+-----+---------+----------------+---------------------------------+---------+ | Field | Type | Collation | Null | Key | Default | Extra | Privileges | Comment | +------------+---------------+-------------------+------+-----+---------+----------------+---------------------------------+---------+ | CODIGO | varchar(6) | latin1_swedish_ci | NO | MUL | | | select,insert,update,references | | | DESCRICAO | varchar(40) | latin1_swedish_ci | NO | MUL | | | select,insert,update,references | | | UNIDADE | varchar(2) | latin1_swedish_ci | NO | | | | select,insert,update,references | | | FORNECEDOR | varchar(4) | latin1_swedish_ci | NO | | | | select,insert,update,references | | | QUANTIDADE | int(4) | NULL | NO | | 0 | | select,insert,update,references | | | PRECO | decimal(12,2) | NULL | NO | | 0.00 | | select,insert,update,references | | | OPERADOR | varchar(20) | latin1_swedish_ci | NO | | | | select,insert,update,references | | | DISTRIB | int(2) | NULL | NO | | 0 | | select,insert,update,references | | | DEPART | varchar(3) | latin1_swedish_ci | NO | | | | select,insert,update,references | | | CONTEXP | int(6) | NULL | NO | | 0 | | select,insert,update,references | | | ACTION | int(1) | NULL | NO | | 0 | | select,insert,update,references | | | RECNO | int(11) | NULL | NO | PRI | NULL | auto_increment | select,insert,update,references | | | CODFILIAL | varchar(3) | latin1_swedish_ci | NO | | | | select,insert,update,references | | +------------+---------------+-------------------+------+-----+---------+----------------+---------------------------------+---------+ 13 rows in set (0.02 sec) id=brown>id=code>id=code>Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Eu não uso, mas vi a demonstração do Vailton usando PocketSoap com Fivewin e [x]Harbour e fiquei impressionado, acho que soluciona o uso de DLL paga! Acho que vale a pena pesquisar sobre Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Tente esta dica que me passaram citação:Ola Anderson , tenta com o comando abaixo pois ele faz um ajuste na ultima coluna... oBrw:nStretchCol := STRETCHCOL_LAST Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1012 id=quote>id=quote>Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLib id=brown>O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Senhores O primeiro sistema desenvolvido na RCA com fivewin/16bits finalmente está sendo migrado para Fivewin 10.6/xHarbour. Nos deparamos com um problema com WBrowse, ao inserir o primeiro registro no DBF, a primeira linha fica com um corte na última coluna, como pode ser visto na imagem abaixo: De alguma maneira este bug visual se auto-corrige ao inserir um novo registro, e daí para frente tudo é exibido sem mais problemas. Segue a imagem abaixo: Alguem já passou por isso e sabe como solucionar? Antecipadamente agradeço a todos que ajudarem Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Senhores O primeiro sistema desenvolvido na RCA com fivewin/16bits finalmente está sendo migrado para Fivewin 10.6/xHarbour. Nos deparamos com um problema com WBrowse, ao inserir o primeiro registro no DBF, a primeira linha fica com um corte na última coluna, como pode ser visto na imagem abaixo: De alguma maneira este bug visual se auto-corrige ao inserir um novo registro, e daí para frente tudo é exibido sem mais problemas. Segue a imagem abaixo: Alguem já passou por isso e sabe como solucionar? Antecipadamente agradeço a todos que ajudarem Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

select ... for update Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Falha minha no engano, na compilação eu tinha uma diretiva __CLIPPER__ e isto gerava o erro acima citado. :Sid=red> Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Bom dia Senhores. Estou migrando finalmente o sistema 16 bits (FW 2.6) para 32 com xHb 10.6 e como era de esperar erros foram obtidos.. Turbo Incremental Link 5.69 Copyright © 1997-2005 Borland Error: Unresolved external '_HB_FUN__OBJNEWCLS' referenced from OBJ\TDOSPRNU.OBJ Error: Unresolved external '_HB_FUN__OBJADDMET' referenced from OBJ\TDOSPRNU.OBJ Error: Unresolved external '_HB_FUN_OBJSETUSERDATA' referenced from OBJ\TDOSPRNU.OBJ Error: Unresolved external '_HB_FUN__OBJCLSINS' referenced from OBJ\TDOSPRNU.OBJ id=red>id=code>id=code>Como faço para solucionar isso sem trocar minha classe de relatório? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Bom dia Senhores. Estou migrando finalmente o sistema 16 bits (FW 2.6) para 32 com xHb 10.6 e como era de esperar erros foram obtidos.. Turbo Incremental Link 5.69 Copyright © 1997-2005 Borland Error: Unresolved external '_HB_FUN__OBJNEWCLS' referenced from OBJ\TDOSPRNU.OBJ Error: Unresolved external '_HB_FUN__OBJADDMET' referenced from OBJ\TDOSPRNU.OBJ Error: Unresolved external '_HB_FUN_OBJSETUSERDATA' referenced from OBJ\TDOSPRNU.OBJ Error: Unresolved external '_HB_FUN__OBJCLSINS' referenced from OBJ\TDOSPRNU.OBJ id=red>id=code>id=code>Como faço para solucionar isso sem trocar minha classe de relatório? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

A muito tempo atrás eu tentei isso Kapiaba, e se não me falha a memória faltava um arquivo, o código fonte não estava completo... Não sei hoje como está! Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Minha solucão foi a seguinte: -> Separar o RES do workshop em dois, 1 com BMP e outro com DLG -> Salvei cada uma das partes acima como RC -> O RC dos bitmaps abriu perfeitamente no Pelles C -> O RC dos dialogs eu modifiquei a seguinte string ----> 'DIALOG LOADONCALL MOVEABLE DISCARDABLE'id=red> ----> 'DIALOGEX DISCARDABLE'id=red> Daí funfou Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Não tinha nenhuma "STRINGTABLE" e mesmo assim, após salvar como RC e abrir no Pelles, eu não consegui enxergar as dialogs, apenas um texto. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Bom dia a todos, qual a maneira mais rapida de migrar dialogos do Workshop para o Pelles ? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Bom dia a todos, qual a maneira mais rapida de migrar dialogos do Workshop para o Pelles ? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Eu uso msgwait() com aguarde, se possivel um progresso, tipo 10/150 Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.