gsilve

Ola Paulo, O meu problema especifico e com meu programa compilado com o xHarbour, como o clipper nunca tive problemas, no news do xHB, me informaram que a Microsoft NAO recomenda usar um server W98 e clientes XP. Meu sistema ainda e em modo caracter, compilado com XHB 0.99.51 do CVS e com CLIP53, e ate hoje nao tive nenhum problema com ele, somente este o de gravar dados no server W98 a partir de estacoes com XP. O Inverso funciona bem, ou seja Serve W2k ou XP e estacoes W98+XP Para sanar isto, em uma das empresas onde tenho meu sistema com um server W98 e aproximadamente 30 terminais, trabalho da seguinte maneira, compilo com o Clipper para usar nas maquinas XP, e com o XHB para W98 para ir testando o XHB, e como te disse ate hoje nao tive problemas, nem mesmo com corrupcao de dados, e tenho arquivos muitooooo grande, com mais de 10 anos de informacao. Trabalho assim, pois alguns usuarios preferem o modo caracter ao modo visual. Quando postei anterior, estava simplesmente, comentando o que ocorreu comingo, querendo ajudar. Espero ter esclarecido. Gilberto.

Ola, ICO Tive problemas parecidos, meu sistema estava em um servidor W98, com clientes W98, quando coloquei maquinas com XP, comecou o problema, o sistema nao rodava no XP. Coloquei o sistema no XP, e funcionou em todas as maquinas. Se este for seu problema... Gilberto.

Ola, Se voce estiver usando xharbour, tente a classe WinPrn32 do xHB, ela verifica as impressoras instaladas e mantem no spool do windows, consegui fazer meu sistema em modo caracter imprimir com ela, se a impressora estiver desligada ela mantem no spool ate que o usuario ligue a maquina. Qualquer coisa, contate-me em pv. Gilberto gil_berto_silverio@hotmail.com

Ola, A partir da xhb 99.2 voce deve atualizar por Fwh 2.5... Nao da pra recriar as libs do FWH depois desta atualizacao... Confirme com a Virtual... Gilberto.

Ola, Voce pode usar tambem o HBMAKE do proprio xharbour, e so digitar a linha de comando na propria pasta de seu programa hbmake teste -ex, ele se abrira e voce seleciona as opcoes, e quais os programas que voce criou. Inscreva-se tambem na news do xharbour na yahoo, harbourbr, que la voce vai aprender muito. Gilberto

Ola, Provavelmente este erro e devido a voce estar usando dlls de 16bits, veja no forum como converte-las pra 32. Tive este problemas no inicio, transformei minhas dlls em rc, e nao tive mais problemas. Gilberto.

Ola, MSGYESNO() - Foco no Sim MSGNOYES() - Foco no Nao... Acho que e isto.... Gilberto Silverio

Ola Amigos, Como faço pra definir na TdosPrn, o uso de um forlumario de 8 polegadas ou 48 linhas de 1/6. Ja tentei de tudo mais ela sempre ejeta como 66 linhas. Alguem teria algum exemplo de como usar esta classe? Gratos pela ajuda. Gilberto Silverio. fwh25+xhb99.2+hbmake.

Marllon, obrigado... Gilberto.

Ola amigos, Qual fonte devo usar para uma impressao matricial mais rapida com a classe tprinter, pois preciso imprimir em um forlumario, mais fica muita lenta com arial... To usando desta forma... .... PrnSetSize( 2100, 2050 ) //To adjust a different printer paper size! PRINT oPrn if Empty( oPrn:hDC ) return nil endif DEFINE FONT oFont NAME "arial" SIZE 0, -8 OF oPrn oPrn:SetPos(0,0) nColStep = oPrn:nHorzRes() / 120 nRowStep = oPrn:nVertRes() / 49 nCOL:=2 PAGE oPrn:Say( nRow, nCOL+=(nCOLSTEP*70), SUBSTR(vMATERIAL,1,14), oFONT ) oPrn:Say( nRow, nCOL+=(nCOLSTEP*18), DTOC(vEMISSAO), oFONT ) oPrn:Say( nRow, nCOL+=(nCOLSTEP*18), STR(vFICHA,7), oFONT ) nRow += nRowStep ; nCOL:=2 ..... Alguma dica... Grato pela ajuda. Gilberto Silverio.

Ola João, Grato, mais não funcionou... ta faltando algo... Jef2_tim, siga o procedimento que o Helio postou passo a passo, no topico FOLDER... QUE DEVE FUNCIONAR... Gilberto Silverio.

Ola, To tentando fazer funcionar mais não sei o que to fazendo de errado... .... #INCLUDE "FIVEWIN.CH" #INCLUDE "TSBROWSE.CH" FUNCTION MAIN() LOCAL oBRWDA, ODLGDA USE TABE SHARED NEW DBSETINDEX("TABE") DBSETORDER(1) // TRATAMENTO - C - 50 // CODTRA - N - 04 DEFINE DIALOG oDlgDA RESOURCE "TRATAMENTO" REDEFINE BROWSE oBrwDA CELLED ; ID 101 OF oDlgDA ; COLORS CLR_WHITE, CLR_PINK ; MESSAGE "Cadastro de tratamentos" oBrwDA:LoadFields( .T. ) //oBrwDA:nFreeze := 1 oBrwDA:SetAppendMode( .T. ) oBrwDA:SetDeleteMode( .T., .T. ) // ( lOnOff, lConfirm, bDelete) // flagging columns that affect index key to issue UpStable() when fields change oBrwDA:SetIndexCols( 1, 2 ) oBrwDA:Look3d( .T., , , .F. ) // ( lOnOff, nColumn, nLevel, lPhantomGrid ) // changing colors to column 2 oBrwDA:SetColor( { 1, 2 }, { CLR_YELLOW, CLR_PINK } ) oBrwDA:SetColor( { 3, 4 }, { CLR_WHITE, CLR_BLACK } ) //oBrwDA:aColumns[1]:lEdit := .T. // we don't want empty names oBrwDA:aColumns[ 1 ]:bValid := { | uVar | ! Empty( uVar ) } oBrwDA:aColumns[ 2 ]:bValid := { | uVar | ! Empty( uVar ) } // when working with the same database this is very important oBrwDA:lNoResetPos := .F. oBrwDA:lNoHScroll := .T. REDEFINE BUTTON ID 210 OF oDlgDA ACTION ( DBCLOSEALL(), oDlgDA:End() ) ACTIVATE DIALOG oDlgDA CENTERED ; ON PAINT oMsg := TMsgBar():New( oDlgDA, ; "Cadastro de tratamentos" ) RETURN NIL .... Ocorre que quando faço uma alteração dentro do browse, tipo no meio dos dados e teclo seta pra baixo, o browse não da refresh..., ele fica todo bagunçado, misturando todas a informações. Alguem pode me ajudar? Grato. Gilberto Silverio. fwh 2.5 + xHB 0.99.2

Ola Evandro, Tenho feito varios teste com fwh+xhb+ntx, e ate hoje não tive nenhum problema. Quando e qual problema voce se refere. Pra mim ate hoje não tive corrupcao de dados. Uso Clip53+ntx, xhb+ntx e fwh+xhb+ntx. O Unico problema que tive ate hoje, foi com o dbedit(), qdo fechava os indices dentro de um chamada do mesmo, tipo; ..... USE ARQUIVO NEW SHARED DBEDIT(L_INICIAL,C_INICIAL,L_FINAL,C_FINAL,V1,"ETEL1",V2,V3) RETURN NIL * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *> FUNCTION ETEL1(MODO,INDICE) LOCAL TECLA, CAMPO, RETORNA SETCOLOR(COR12) ; TECLA=LASTKEY() ; CAMPO=V1[iNDICE] ; RETORNA=1 IF MODO=1 @ 24,00 SAY PADC("Inicio do Arquivo !",80) INKEY(3) @ 24,00 SAY SPAC(80) RETORNA=1 ELSEIF MODO=2 @ 24,00 SAY PADC("Fim de Arquivo !",80) INKEY(3) @ 24,00 SAY SPAC(80) RETORNA=1 ELSEIF MODO=3 @ 24,00 SAY PADC("Arquivo Vazio !",80) INKEY(3) @ 24,00 SAY SPAC(80) RETORNA=1 ELSEIF MODO == 4 IF TECLA == 27 CLOSE DATA // vazendo assim da erro... RETORNA:=0 ELSEIF TECLA == 13 ....... Ai tenho que fechar o arquivo depois do dbedit() USE ARQUIVO NEW SHARED DBEDIT(L_INICIAL,C_INICIAL,L_FINAL,C_FINAL,V1,"ETEL1",V2,V3) CLOSE DATA // se nao fizer isto da erro no arquivo RETURN NIL Um abraço. Gilberto Silverio.

Ola, Alguem do grupo teria um exemplo simples de DBCOMBO, pois testei o dbctest da pasta samples, mais não consegui fazer ele funcionar... Agradeço. Gilberto Silverio.

Ola, Postei em Dicas um make para criar a lib do vGet+xHr... So Nao consegui fazer funcionar o bmp dos botoes do calendario... Talves o Wagner possa corrigir este erro... Observe somente os paths do .bat, deixe-os conforme sua configuraçao... Procure compilar seus programa com o hbmake, se voce usar o bld do fwh, da alguns erros de tela dependendo do uso, com o hbmake não ocorre... Espero te-lo ajudado... Gilberto Silverio.