Gasperin

O terceiro parâmetro é referência ao objeto coluna. Ao menos é isso que diz o help do TXBrwColumn, quanto ao bEditBlock. Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

Oi Pablo! Funciona sim, em 32 bits, só não funciona em clipper. Veja o exemplo postado em dicas. Busque por "showmenu". Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

Desculpem minha falta de conhecimento, mas porque brigar com as abas do Folder? Não seria mais fácil criar as dialogs para uma mesma posição em uma Window e executar Activate()/Destroy(), para cada troca de tipo de documento, trocando a Dialog? Alguém tem usado TMdiFrame()? Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

Oi Giovany! Obrigado!! Só que está dando o erro "Unresolver External 'AdsGetLongLong' refetenced from ADS_XHB_BCC55:ads1". Esta função não tem na versão 6.2. No Harbour não funciona o comando EJECT e estou convertendo um sistema com muitos relatórios para depois migrar para FW. Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

Um outro caminho: Nas impressoras, em geral, caracteres antecedidos pelo código ESC(chr27)) não são imprimíveis. Muitas destas combinações são usadas pelas impressoras para códigos de controle, mas sobram vários neutros. Logo, se o próposito é o de apenas sair como controle tipo liga/desliga, bastaria selecionar dois destes códigos e imprimir: um para liga e outro para desliga e construir um circuito para reconhecer estes códigos. Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

citação: citação:Pegando um gancho na sugestão do Julio Cesar, eu substitui a função EVAL pela funcao TYPE. o retorno de uma função existente no projeto é "UI", dessa forma eu fiz assim: mPROGRAMA := "teste()" if Type( mPrograma )#"UI" ? "Função Não Existe!" end Obridado pela força Rubem Jr http://sistemasit.com Belem/PA id=quote>id=quote>Isso funciona???? Pelo que to vendo vc fez uma verificação de uma variavel string ai sempre vai retornar "C" Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. id=quote>id=quote>Retornaria "C" para ValType( mPrograma ), para Type() é assim mesmo. Primeiro veio a função Type(), depois escreveram a ValType() e os nomes, aparentemente, ficaram trocados. Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

Oi Giovani. Não tenho conseguido utilizar o ADS com xHarbour, tem dado erro de ´Memória não pôde ser "read"´, já com o Harbour funciona bem, mas daí tenho outras limitações que não teria no xH. Poderia me enviar seu xRddAds compilado para xH 1.1 e ADS 6.2. e-mail: delairgasperin@terra.com.br Obrigado. Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

citação:Eu tenho uma impressora bematech não fiscal de 40 colunas, ela esta com algum problema psicológico, porque tem vezes que não respeita o eject, então resolvi assim: Em uma dbf de configurações tenho um campo "Salto" com valor 9. @prow()+Tele0050->Salto,0 say '' isto faz com que pule neste caso 9 linhas Espero ter ajudado daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e muita luta. Cuanto mas conozco a la gente, mas quiero a mi perro. id=quote>id=quote>Deste modo resolve, mas na rede são várias impressoras, com formulários distintos, para imprimir relatórios, também, distintos. O EJECT ou CHR(12) seria o ideal. Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

citação:Tente assim.. @prow()+0,0 say chr(12) Luiz Arruda - Corumbá/MS FWH 2.4 - WS - xHB 09950 - xDev ico.corumba@gmail.com MSN: ico67@msn.com id=quote>id=quote>Infelizmente, não deu. Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

Obrigado pela tentativa. O que vocês não entenderam é que eu quero usar xHarbour, mas não consegui fazer funcionar com ele, me retorna 'A Memória não pôde ser "read"', foi assunto de um tópico passado, ninguem conseguiu me ajudar. Portanto estou usando Harbour, mas EJECT não funciona. Se alguém souber resolver o problema do xHarbour seria ainda melhor, pois quero usar xRddAds. Se não, já está bom se conseguir fazer com que funcione EJECT no Harbour. Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

Ou Kapiaba! Estou compilando com Harbour. No início tentei com xHarbour, mas tive problema para fazer funcionar o ADS, já com Harbour o ADS funciona bem, mas encontrei outros problemas, um deles é este. Consegui um bom "Reference Guide" para o xHarbour, você conhece algum para o Harbour? Obrigado. Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

Em termos básico: SET PRINTER ON SET PRINTER TO LPT1 SET CONSOLE OFF nLin := -5 DO WHILE !EOF() IF nLin <0 IF nLin >-5 EJECT // Não está saltando página no Harbour, mas no Clipper sim. ENDIF ? "Cabecalho" nLin :=60 ENDIF ? "Dados de Registro" nLin-- SKIP ENDD EJECT // Não está saltando página no Harbour, mas no Clipper sim. SET CONSOLE ON SET PRINTER TO SET PRINTER OFF RETURN id=code>id=code>Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

Oi Ico, pode me ajudar? Converti meu sistema Clipper para Harbour, a princípio sem o FW, com a ajuda do Kapiaba, porém ficaram alguns bugs: 1) nas impressões diretas usando "?" o EJECT não funciona e 2) SET PRINT TO LPT2 se a porta não existe, antes simplesmente perdia-se o resultado, agora dá erro ao gravar LPT2.prn. Obrigado. Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

Me refiro ao Harbour sem o FW, em modo texto. A letra aceleradora aparesse em fundo reverso, mas se pressioná-la, em vez de abrir o item correspondente ele entra no primeiro item do menu, como se tivesse sido pressionado a tecla . Valeu a dica, mas isso é para FW. Obrigado. Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop

Boa tarde amigos! É normal os aceleradores de menuitem (&) não funcionarem em Harbour puro? No meu sistema, recém convertido, os itens do menu principal, abrem normalmente com Alt-letra, já os itens de menuitem não abrem quando se preciona as letras correspondentes, antecedidas por &. Responde como se tivesse pressionado . Obrigado. Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop