JUDSON

mandei para teu email

resolvido: oBro01:bChange := {|| oBro01:refresh() }

Amigos como falei antes estou migrando para mysql ( sqllib ), usando comando dbase ( use , replace ,... ) devido ao tempo para conversao, e ja estou gravando numa base que coloquei na UOL., gostaria que os amigos dessem uma opinião nessa rotina que envia de uma base local para uma remota , achei lento não sei se é a velocidade da net ou existe uma forma melhor de fazer esta rotina, a base so tem 100 registros , com três campos ta levando 3 minutos , imagine com uma tabela de movimento de estoque : function enviando_baseremota () **************************** // DADOS DA BASE LOCAL EM MYSQL nFile:="Tabela de Grupos..." ; oFile:refresh() dbselectarea("grup") ; dbgotop() do while !eof() nPercent++ wcdgr := grup->cdgr wdescr:= grup->descr wpcom := grup->pcom // Inclui Contato na Base de Dados REMOTA lresult := SQLSETCONNECTION( ConectaBaseremota ) // Pesquisa Código do Grupo na base remota cSql := "select cdgr from siigrup where cdgr = "+Any2Sql( wcdgr ) aGrupos := SqlArray( cSql ) If ( SQL_ErrorNO() > 0 ) MsgInfo( "Informe Esta Mensagem Ao Suporte : "+CRLF+SQLErrorMsg(), "Atenção." ) Return( .F. ) Endif If len( aGrupos ) = 0 // QUANDO NAO ACHA A CHAVE PRIMARIA cSql := "insert into siigrup set" else cSql := "update siigrup set" // QUANDO ENCONTRA A CHAVE PRIMARIA endif cSql += " cdgr = "+Any2Sql( wcdgr ) cSql += ", descr = "+Any2Sql( wdescr ) cSql += ", pcom = "+Any2Sql( wpcom ) If len( aGrupos ) > 0 cSql += " where cdgr = "+Any2Sql( wcdgr ) Endif // Realiza Transação Begin Transaction SQL Execute cSql If ( SQL_ErrorNO() > 0 ) SQLRollBack() End Transaction MsgInfo( "Informe Esta Mensagem Ao Suporte : "+CRLF+SQLErrorMsg(), "Atenção." ) Return( NIL ) Endif End Transaction ometer:set(npercent) lresult := SQLSETCONNECTION( ConectaGSERVER1 ) dbselectarea("grup") ; dbskip() enddo // lresult := SQLSETCONNECTION( ConectaBaseremota ) // SQLCOMMIT() lresult := SQLSETCONNECTION( ConectaGSERVER1 ) msgalert("Atualização remota realizada com sucesso.","Atenção") Return( NIL ) O tempo de gravação é o mesmo quando desligo o SET SESSION AUTOCOMMIT=0 e uso o SQLCOMMIT dessa forma esta certa ou pode ser melhor esta rotina ?

Não luis nao to fazendo com array , como disse a conversão pode demorar muito , isso seria num segundo instante . Dessa forma eu ja fiz e funciona blz , mais o meu sistema e muito grande vai demorar muito.

Agradecido ao Joao e ao Luiz F1ernando pelo apoio nesse momento de transição ( rs ) . Como falei to convertendo os mesmo fontes para mysql usando o comandos dbase , Uso xbrowse e la tenho uma pesquisa geralmente pelo codigo e pelo nome na tabela , digito o nome e ele vai avançando ( incremental ) , mas no mysql o xbrowse da uma desarrumada , vcs ainda usam dessa forma ou isso muda com mysql ?

Isso msm joao , vc tem skype , se o amigo tiver e poder gostaria de tirar umas duvidas , ja iniciei a conversao alguns probleminhas , mas ja to inserindo , alterando , deletando , mas uso o xbrowse e la tenho uma pesquisa geralmente pelo codigo e pelo nome na tabela , digito o nome e ele vai avançando ( incremental ) , mas no mysql o xbrowse da uma desarrumada , vc usa esse tipo de pesquisa ? sei q no futuro bem proximo vou ter q mudar , mas e o q da pra fazer agora .

ok joao valeu pela dica muito obrigado , aproposito vc ainda usa os comandos do fivewin com o mysql ?

Amigos estou migrando de dbf para mysql , estou usando os comandos do fivewin ( use , index , ... ) por razoes de pouco tempo para conversao e tb entender melhor ( aos poucos ) o mysql , estou criando os indices dessa forma: if !index("siiusua1.cdx") index on cdfu to siiusua1.cdx endif if !index("siiusua2.cdx") index on usua to siiusua2.cdx endif set index to siiusua1 , siiusua2 set order to 1 browse() set order to 2 browse() mas toda vez que testo o if !index("siiusua1.cdx") ele diz q nao existe e gera novamente , fui no query browse e la ta assim : IDX_siiusua1 e IDX_siiusua2 , ai testo if !index("IDX_siiusua1") e ele novamente informa q nao existe e cria de novo alguem pode me dizer onde estou errando ???

Galera alguem tem o net framework spk3 para xp ? to precisando com muita urgencia , no aguardo...

ainda nao fiz mais da uma olha neste link

na veia, obrigado João. valeu

coloquei na compilacao a ct.lib e agora sobrou esse erro Error: Unresolved external 'GetModuleFileNameExA' referenced from C:\FWH13.03\LIB\FIVEHX.LIB|GETTASKS

Estou tentando mudar para a versao fwh 13.03 , bcc582 , xharbour 1.2.3 , e esta dando estes erros: Executando: ILINK32 @B32.BC Turbo Incremental Link 5.69 Copyright © 1997-2005 Borland Error: Unresolved external '_HB_FUN_CEILING' referenced from XBROWSE.OBJ Error: Unresolved external '_HB_FUN_LOG10' referenced from C:\FWH13.03\LIB\FIVEHX.LIB|VALTOSTR Error: Unresolved external '_HB_FUN_FLOOR' referenced from C:\FWH13.03\LIB\FIVEHX.LIB|VALTOSTR Error: Unresolved external '_HB_FUN_TOKEN' referenced from C:\FWH13.03\LIB\FIVEHX.LIB|DATABASE Error: Unresolved external '_HB_FUN_CHARREM' referenced from XBROWSE.OBJ Error: Unresolved external '_HB_FUN_AFTERATNUM' referenced from XBROWSE.OBJ Error: Unresolved external '_HB_FUN_RANGEREPL' referenced from XBROWSE.OBJ Error: Unresolved external '_HB_FUN_BLANK' referenced from XBROWSE.OBJ Error: Unresolved external '_HB_FUN_CHARONLY' referenced from XBROWSE.OBJ Error: Unresolved external 'GetModuleFileNameExA' referenced from C:\FWH13.03\LIB\FIVEHX.LIB|GETTASKS alquem pode dar uma dica ?

coloca ela na pasta da sua aplicacao junto com a MP2032.DLL.

RSRS , qq coisa tamos aqui . abraço.

Faço assim o inicio: if file("mp2032.dll") // cada impressora tem sua dll nPorta_ := alltrim(defa->imprconf) // porta : COM1 , COM2 , etc... xDll := loadlib32("mp2032.dll") iRetorno := BmConfiguraModeloImpressora(wmodeloImp) // 1 , 2 , 3 ,4 , ... iRetorno := BmIniciaPorta(nPorta_) endif // pequeno exemplo de impressao de cupom iretorno = BmFormataTX( chr(10) , 1 , 0 , 0 , 0 , 0) iretorno = BmFormataTX( "*CANCELAMENTO DE CUPOM*" + chr(10) , 3 , 0 , 0 , 0 , 0) iretorno = BmFormataTX( "** CUPOM No.: "+wnotax+ " **" + chr(10) , 2 , 0 , 0 , 0 , 0) iretorno = BmFormataTX( chr(10) , 1 , 0 , 0 , 0 , 0) iretorno = BmFormataTX( chr(10) , 1 , 0 , 0 , 0 , 0) iretorno = BmFormataTX( replicate("-",60) + chr(10) , 1 , 0 , 0 , 0 , 0) iretorno = BmFormataTX( space(20)+"A S S I N A T U R A"+chr(10) , 1 , 0 , 0 , 0 , 0) iRetorno = BmAcionaGuilhotina(1) // definir dll dll32 Function BmIniciaPorta ( Porta as LPSTR ) AS LONG PASCAL From "IniciaPorta" LIB xDll dll32 Function BmFechaPorta ( ) AS LONG PASCAL From "FechaPorta" LIB xDll dll32 Function BmImprimeCodigoBarrasEAN8 ( Codigo As LPSTR ) AS LONG PASCAL From "ImprimeCodigoBarrasEAN8" LIB xDll dll32 Function BmAcionaGuilhotina ( Modo As LPSTR ) AS LONG PASCAL From "AcionaGuilhotina" LIB xDll dll32 Function BmConfiguraCodigoBarras ( Altura As PTR , Largura As PTR , PosicaoCaracteres As PTR , Fonte As PTR ,; Margem As PTR ) AS PTR PASCAL From "ConfiguraCodigoBarras" lib xDll dll32 Function BmBematechTX ( comando As LPSTR ) AS LONG PASCAL From "BematechTX" LIB xDll dll32 Function BmFormataTX ( BufTrans As LPSTR, TpoLtra As PTR , Italic As PTR , Sublin As LPSTR , Expand As LPSTR,; Enfat As LPSTR ) As LONG PASCAL From "FormataTX" LIB xDll dll32 Function BmPrinterReset ( ) AS LONG PASCAL From "PrinterReset" LIB xDll dll32 Function BmComandoTX ( comando As LPSTR , tamanho AS PTR ) AS LONG PASCAL From "ComandoTX" LIB xDll dll32 Function BmConfiguraModeloImpressora ( ModeloINF as PTR ) AS LONG PASCAL From "ConfiguraModeloImpressora" LIB xDll

Fabio , tambem passei por estes problemas quando mudei de LPT1 para USB , usando oPrin := TDosPrn():New("COM18") qd é paralela , na USB uso a MP2032.DLL e a SiUSBXp.DLL que vem no pacote. la tem um mp2032.html help que mostra todas as funcoes , espero ter ajudado qq coisa tamos aqui.

agora kapiaba eu tb posso me dar ao luxo de dizer que tenho minha versão 13.03 -> FERRARI VERMELHINHA !!! rsrsrsrs

Esse forum e uma mãe , obrigado a todos , vendo um post de 2011 http://alanart.net/fivewin/index.php?/topic/18923-problema-com-imagem-de-fundo-resolvido/?hl=%2Bimagem+%2Bsobre+%2Bimagem#entry21435 la estava a resposta me esperando do Ricado Marques a imagem da logo fica assim: ( of oImagem_venda ) // logomarca @ 050,105 Image oImagem_logo FILENAME "BMP\LogoMarca.bmp" Size 415,115 ADJUST PIXEL OF oImagem_venda NOBORDER oImagem_logo:Progress( .F. ) oImagem_logo:refresh()

Kapiaba , nao uso o brush ja me deu muito trabalh no topico passado , entao a solucao foi usar o image , a imagem de fundo é a tela toda e a logomarca fica na posicao 050, 105 ou seja emcima da imagem do fundo , so que nao aparece. DEFINE WINDOW osii60 FROM 0,0 to nResHor, nResVer pixel ; NO CAPTION ; BORDER NONE ; of ownd_principal @ 00,00 Image oImagem_venda FILENAME "BMP\frente_guardiao.jpg" Size nResHor,nResVer ADJUST PIXEL OF osii60 NOBORDER // TRANSPARENT oImagem_venda:Progress( .F. ) oImagem_venda:refresh() // logomarca @ 050,105 Image oImagem_logo FILENAME "BMP\LogoMarca.bmp" Size 415,115 ADJUST PIXEL OF osii60 NOBORDER // LARGURA / ALTURA oImagem_logo:Progress( .F. ) oImagem_logo:refresh()

Amigos tem como colocar imagem sobre outra imagem ? // imagem de fundo @ 00,00 Image oImagem_venda FILENAME "BMP\frente_guardiao.jpg" Size nResHor,nResVer ADJUST PIXEL OF osii60 NOBORDER oImagem_venda:Progress( .F. ) oImagem_venda:refresh() // logomarca @ 050,105 Image oImagem_logo FILENAME "BMP\LogoMarca.bmp" Size 415,115 ADJUST PIXEL OF osii60 NOBORDER oImagem_logo:Progress( .F. ) oImagem_logo:refresh() fiz assim e a imagem do fundo sobrepõem a imagem da logomarca.

valeu pela força kapiaba , esse funcao e interessante , mas vou testar o image .

Consegui resolver , tirei o brush e usei o image. Alem do mais deixo de usar o bmp e passo a usar o jpg que e menor. //-> Pega resolução da tela nResHor := ownd_principal:nHorzRes() nResVer := ownd_principal:nVertRes() DEFINE WINDOW osii60 FROM 0,0 to nResHor, nResVer pixel ; NO CAPTION ; BORDER NONE ; of ownd_principal @ 00,00 Image oImagem_venda FILENAME "BMP\frente_guardiao.jpg" Size nResHor,nResVer ADJUST PIXEL OF osii60 NOBORDER oImagem_venda:Progress( .F. ) oImagem_venda:refresh() ACTIVATE WINDOW osii60 valid f_sii60(,2,2) MAXIMIZED ON PAINT ( sysrefresh())

que pena kleyber , qd o monitor tem uma relosuçao acima de 1024 x 768 a imagem nao fica legal , e fica inviável criar varias telas com tamanhos ( resolucoes ) diferentes e o pior que bmp sempre ocupa mais espaço, sera que o IMAGE que roda .jpg nao faria isso ? http://imageshack.us/photo/my-images/507/antesdocenter.jpg/

ja fiz isso meu bom homem , nao deu certo , Sambomb , ja que nao ta dando certo , sera que existe uma forma de preencher toda a tela com essa imagem , sendo q a imagem esta em 1024 x 768 e a resolucao esta em 1360 x 768 ou em qualquer outra acima ? lembrando que a imagem esta definida assim: //-> Pega resolução da tela nResHor := ownd_principal:nHorzRes() nResVer := ownd_principal:nVertRes() DEFINE BRUSH oBrush1 file l_pasta + "frente_guardiao.bmp" DEFINE WINDOW osii60 FROM 0,0 to nResHor, nResVer pixel ; NO CAPTION ; BORDER NONE ; of ownd_principal ; BRUSH oBrush1 http://imageshack.us...esdocenter.jpg/