JUDSON

uso varios @ .

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/photo/my-images/507/antesdocenter.jpg/

Quem coisa maluca , nao deu certo osii60:OnResize := {||osii60:Center()} ACTIVATE WINDOW osii60 valid f_sii60(,2,2) MAXIMIZED ON INIT ( osii60:bInit := {||osii60:Center()} ) fiz as duas maneiras e continua o problema.

Silva coloquei do jeito vc disse a tela fica igual desse jeito http://imageshack.us/photo/my-images/507/antesdocenter.jpg/ ai coloco o osii60:CENTER() antes do activate , mais continua do mesmo jeito , acho ate q centraliza mais a imagem duplica

Valdir , obrigado pela dica , mais nao deu certo , estou usando uma resolucao de 1360 x 768 e a que esta na window e de FROM 0,0 to 1024, 768 veja como ficava antes do center http://imageshack.us/photo/my-images/507/antesdocenter.jpg/ e como ficou com o center. http://imageshack.us/photo/my-images/255/depoisdocenter.jpg/

Galera uso no meu sistema uma tela de venda no padrao 1024 x 768 , mas quando encontro uma resolução maior a tela fica tipo duplicando a imagem DEFINE BRUSH oBrush1 file l_pasta + "frente_guardiao.bmp" DEFINE WINDOW osii60 FROM 0,0 to 1024, 768 ; NO CAPTION ; BORDER NONE ; of ownd_principal ; BRUSH oBrush1 bla bla bla bla ACTIVATE WINDOW osii60 valid f_sii60(,2,2) ON INIT ( sysrefresh() ) a funcao centered ou center nao funciona , alguem pode dar uma dica ?

fale com kleyber , kleyber@tkinformidia.net ou entao diga seu email pq vc receba o arquivo.

Isto e de interesse nosso.

Com esse comando voce pode extrair o sintegra do ecf o resto ( notas e entrada e saidas ) vc pega do seu sistema Bematech_FI_RelatorioSintegraMFD exemplo: retorno = 0 w_fone_:=strtran(left(w_fone,13),"-","") w_fone_:=strtran(w_fone_,"/","") w_fone_:=strtran(w_fone_,"(","") w_fone_:=alltrim(strtran(w_fone_,")","")) retorno:=Bematech_FI_RelatorioSintegraMFD ( 63 ,"c:\guardiao\temp\SINTEGRA.TXT",strzero(month(wdtin),2),str(year(wdtin),4) ,; left(w_empr,35) , left(w_ende,34) , left(w_numer,5) , left(w_compl,22) , left(w_bair,15) ,; left(w_cida,27) +" "+ w_esta , w_cep_ , left(w_fone_,12) , left(w_fone_,10) , left(w_respo,18) )

ok kapi vou testar todas estes q vc gentilmente passou , valeu qq coisa t dou um alo t+.

Pessoal , eu ja stou adquirindo a versao mais nova do five , mas se tiver alguem q tenha a HBCOMM.LIB para FW 9.09 ou tenha uma function para ler peso de balança de pdv ( toledo , filizola ) com os comandos do FW eu agradeço muito , no aguardo ...

qual a marca da IF q ele usa ?

Marcelo essa tela e de PDV por isso preciso dela toda sem borda sem caption , sem SET MESSAGE. DEFINE WINDOW osii60 FROM 0,0 to 1024, 768 ; NO CAPTION ; BORDER NONE ; of ownd ; BRUSH oBrush1

ok , sempre faço isso dessa vez esqueci.

ok , ja envei um email para ele , mas , se alguem tiver o hbcomm.lib para fw 9.09 agradeço muito , pq devo levar tempo pra testar os sistema qd compilar com a versao mais nova , agradeço muito , t+

ja pedi orçamento para o gilmer do fivewin , mas kapiaba onde encontro o bcc 5.8.2 para download ? quero fazer um teste

Kapiaba coloquei a ZLIB.LIB e continua o mesmo erro acho que deve ser a versão mesmo , vou dar uma olhada no TESTCOM.PRG , mas se algume tiver essa versao do HBCOMM.LIB para fw 9.09 eu agradeço.

Boa noite Tião , testei mais continua o mesmo erro , antes eu usava esta rotina para ler peso da balança , mas depois que mudei para a nova versao ai apareceu estes erros, compila na boa , mais qd coloco essa rotina da esse erro. function lerbalanca ( w_par3 ) ******************* /* wflag_retu:=.f. cread = space(2048) porta = " " if alltrim(defa->com_bala)="COM1" porta = '1' elseif alltrim(defa->com_bala)="COM2" porta = '2' endif if porta <> " " veloc = 9600 nporta = alltrim(porta) nComm = Init_port("COM"+nporta,veloc,8,0,1,8192) OutBufClr(nComm) if !isworking(nComm) Msginfo("Porta serial não iniciada.") unint_port(nComm) return"" endif if !OutChr(nComm,chr(05)) Msginfo("Comando não recebido pela balança.") unint_port(nComm) return"" endif inkey(.50) Dados := '' Bytes := InbufSize(nComm) if Bytes > 0 InChr(nComm,Bytes,@cRead) endif vlrpeso:=0 wpeso := cread // VlrPeso := val(substr(alltrim(wpeso),4,4)+'.'+substr(alltrim(wpeso),9,2)) // Aqui é o peso // vlrpeso := alltrim(wpeso) // a linha acima eu substituir por esta , nao calculava vlrpeso := val(substr(vlrpeso,2,len(vlrpeso)-2)) // o peso acima de .999 ou seja apartir de um 1 kg em diante unint_port(nComm) if vlrpeso > 0 // Define a RESOURCE e ICONE DEFINE ICON oIcox RESOURCE "TOOLS" DEFINE DIALOG oDlgx RESOURCE "PESO" ICON oIcox title "Produto: "+alltrim(mate->cdpr)+"-"+mate->des2 odlgx:LHELPICON := .f. REDEFINE SAY osay01 id 101 update of odlgx color vcores[1] font vfonts[4] REDEFINE SAY osay02 id 102 update of odlgx color vcores[1] font vfonts[4] REDEFINE SAY osay03 id 103 update of odlgx color vcores[1] font vfonts[4] osay01:ctitle(str(vlrpeso,8,3)) ; osay01:refresh() osay02:ctitle(transform(mate->prve ,"@e 99,999.99")) ; osay02:refresh() osay03:ctitle(transform(mate->prve*vlrpeso,"@e 99,999.99")) ; osay03:refresh() REDEFINE BUTTON obtn01 ID 104 OF odlgx ACTION ( wflag_retu:=.t. , odlgx:end() ) REDEFINE BUTTON obtn02 ID 105 OF odlgx ACTION ( wflag_retu:=.f. , odlgx:end() ) xsetfocus(obtn01) ACTIVATE DIALOG oDlgx CENTERED else return(.f.) endif else vlrpeso:=w_par3 wflag_retu:=.T. endif */ return(wflag_retu)

Isso mesmo Eduardo , essa bendita herança do DOS , mais valeu pela dica obrigado . a rotina agora ta filé. valeu

Bom dia pessoal , ainda nao consegui encontrar esse arquivo espero que os amigos possam dar uma força , obg..

Pessoal to tentando compilar meu sistema q estava na versão fw2.30 para a versão fw9.09 e ta dando esse erro Error: Unresolved external 'std::_String_base::_Xran() const' referenced from C:\FWH9.09\LIB\HBCOMM.LIB|COMM Error: Unresolved external 'std::_String_base::_Xlen() const' referenced from C:\FWH9.09\LIB\HBCOMM.LIB|COMM acho que deve ser a lib hbcomm.lib que não tenho na C:\FWH9.09\LIB\ então resolvi pegar a do fw2.30 alguém possue tao versao dessa dll por favor envie para meu email. interliginformatica@yahoo.com.br obrigado

Eduardo meu amigo valeu pela dica , depois que postei o topico dei uma revisada na minha rotina q fiz a 2 anos atras e deixei de lado devido a lentidão , e refiz do jeito que vc mencionou . e deu certo pelo menos na minha maquina agora vou colocar nos clientes onde algumas maquinas nao sao la essas coisas rsrs , valeu amigo pela força. agora so mais uma dica como faço para colocar no final do topico esses informaçoes sobre o usuario ? eu sabia no outro site nesse eu nao consgui ainda , abraços

Galera gostaria de colocar no meu sistema a hora em tempo real ate fiz uma rotina com o time mais ficou lento , vai ai a rotina , se alguem tiver uma dica manda , no aguardo . DEFINE BRUSH oBrush1 file l_pasta + "frente_guardiao.bmp" DEFINE WINDOW osii60 FROM 0,0 to 1024, 768 ; TITLE w_sigl+" - "+w_sist ; BORDER NONE ; of ownd ; BRUSH oBrush1 ; NO CAPTION ** hora na dialog DEFINE TIMER oTimerh INTERVAL 1000 ACTION (F_TIME()) ACTIVATE TIMER oTimerh function f_time() *************** @ 735,840 SENSITIVE say osaytime var time() pixel size 070,020 FONT vfonts[08] of osii60 COLOR VCORES[3] return(.t.)

Alguém tem uma função para validar código ean-13 e ean-8 ? fico no aguardo.

Aleluia , valeu galera pela ajuda, Everton , Kleyber , rochinha , Rone . Ter que fazer isso no braço ninguém merece , Rone tava faltando era selecionar os [s mesmo. obrigado , FELIZ ANO NOVO MUITA SAUDE PAZ AMOR E PROSPERIDADE PARA 2013 e MUITOS CLIENTES PARA TODOS rsrsr Judson Rosa-São Luis(MA). interliginformatica@yahoo.com.br judsonrc@ig.com.br Fone: (98) 3232-7015 FWH 2.5 - xHARBOUR 0.99.4 - WorkShop.Exe