luiz53

Alguem sabe como Saber o Mac Address da Placa de Rede... pelo Five win... Claro que sem usar o IPCONFIG... pois o retorno eh diferente em versões do WINDOWS.. TIPO ALGUMA FUNCAO... ou DLL Ou Alguma Solucao pra Ter essa informação no sistema. Luiz Antonio Xhb 99.3 / FW 2.5 / WorkShop / HbMake / Xmate / Clipper 5.3b / Blinker 5.1 / LLibg luizantoniooliveira@hotmail.com.br

P/SISCAT ---- Parte do codigo Fonte... @25, 02 GET OMemoItem VAR cMemoItem MEMO OF oWinItem ; FONT OFNTMEMO SIZE 0,100 ; COLOR NRGB( 88, 0, 176 ) ; PIXEL NO VSCROLL oMemoItem:lReadOnly := .T. *************** Incluir Produto *************** / .... MemoItem( 1, TEMP->BARRA,TEMP->DESCR) MemoItem( 2, XQTD,XUNI,XTOT,XALI) ... / ********************************************* Function MemoItem(nTipo, xP1, xP2, xP3, xP4 ) ******************************************** LOCAL cLinha := "", cLista, nInd, cLinhas local Nlinhas IF nTipo = 1 cLinha += xP1+SPACE(2)+xP2 ELSEIF nTipo = 2 cLinha += PADC(ALLTRIM(xP1),9)+" X "+; PADC(xP2,11)+" "+PADL(XP3,12)+" "+XP4 ELSEIF nTipo = 3 cLinha += SPACE(20) + xP1 ENDIF IF !EMPTY(cLinha) cLista := oMemoItem:VarGet() IF !EMPTY(cLista) cLinha := cLista + CRLF + cLinha ENDIF oMemoItem:VarPut( cLinha ) oMemoItem:Refresh() // aqui deveria mostra o final // do GETMEMO SEMPRE... ENDIF RETURN NIL Luiz Antonio Xhb 99.3 / FW 2.5 / WorkShop / HbMake / Xmate / Clipper 5.3b / Blinker 5.1 / LLibg luizantoniooliveira@hotmail.com.br

Tenho uma tela de vendas que mostra os itens vendido.. em um campo memo... Ex: 78914653245 Sabao em pó Omo Cx 1 x 5,50 = R$ 5,50 T18% e Assim por diante, conforme vou incluindo novos itens coloco novas linhas no campo memo... o Problemá é que não consigo fazer o Scroll Vertical para mostra os Ultimos itens... quando ultrapassam o Tamanho da Janela... Alguem Sabe como posso resolver este problema ??? Luiz Antonio Xhb 99.3 / FW 2.5 / WorkShop / HbMake / Xmate / Clipper 5.3b / Blinker 5.1 / LLibg luizantoniooliveira@hotmail.com.br

Desculpe ... Kapiaba Mas jah tentei fazer o opemcomm funcionar... e nao roda mesmo... inclusive o proprio gilmer me informou isso... mas se tiver fazendo algo errado... por favor me de uma forca... pois nao consigo fazer uma impressora OLIVETTI PR4 SERIAL IMPRIMIR NDA... DA UMA OLHADA NO MEU TESTE... ********************** FUNCTION COMPRINT(TEXTO) ********************** local cDcb, nBytes local nComm := OpenComm( "COM1", 1024, 128 ) local nError if ! BuildCommDcb( "COM1:9600,n,8,1", @cDcb ) nError = GetCommError( nComm ) MsgInfo( "BuildCommDcb Error: " + Str( nError ) ) endif if ! SetCommState( cDcb ) nError = GetCommError( nComm ) MsgInfo( "SetCommState Error: " + Str( nError ) ) endif if ( nBytes := WriteComm( nComm, TEXTO + Chr( 13 ) ) ) < 0 nError = GetCommError( nComm ) MsgInfo( "WriteComm Error: " + Str( nError ) ) else // Windows requires to have a Window at least to perform comunications !!! // Let's use the MessageBox() Window as default MsgInfo( Str( nBytes ) + " bytes sent" ) endif if FlushComm( nComm, 0 ) != 0 nError = GetCommError( nComm ) MsgInfo( "FlushComm Error: " + Str( nError ) ) endif if ! CloseComm( nComm ) nError = GetCommError( nComm ) MsgInfo( "CloseComm Error: " + Str( nError ) ) endif return nil

Estou tendo a mesma dificuldade com o uso da porta serial... o problema que o opemcomm nao funciona em versão FwH. por isso que estou tentando achar alguma DLL em delphi. se alguem puder ajudar ???? FWH 2.5 / XHARBOUR 0.99.3 / HBMAKE / WS

achei um manual... da olivetti.. mas se alguem ja usou... e pudesse.. me ajudar... Da Olivetti... jah deu certo (+/-) ...

Alguem sabe os comandos impressão de cheque nas impressoras epson tmu-375 e olivetti pr-4

hehehe.... eh verdade... ME DESCULPE... luizantoniooliveira2004@yahoo.com.br luizantoniooliveira@hotmail.com SANTA FE DO SUL - (SP) (17) 3631-3073 (17) 9606-8216

COMECEI A DESENVOLVER EM FIVEWIN... E ESTOU TENDO ALGUMAS DIFICULDADES... POR ISSO GOSTARIA DE SABER SE ALGUEM QUE TENHA UM BOM CONHECIMENTO NA FERRAMENTA NAO ESTARIA INTERESSADO EM FAZER UM TREINAMENTO... PARA TIRAR UMAS DUVIDAS E ME AJUDAR NO DESENVOLVIMENTO DE UM SISTEMA QUE JAH POSSUO EM XHARBOUR... MAS ESTOU PASSANDO PARA FIVEWIN... O NEGOCIO SERIA MAIS OU MENOS ASSIM.... ALGUEM QUE QUISER COLOCA O PREÇO DO DIA AULA E EU PAGARIA... POR 15 DIAS... DE TREINAMENTO... POR FAVOR NAO LEVEM A MAL SE ISSO NAO FOR POSSIVEL... NAO TEM PROBLEMAS EU VOU ME VIRANDO... AOS POUCOS... O PROBLEMA EH QUE EU QUERIA ADIANTAR UM POUCO MAIS MEU SISTEMA... QUE JAH ESTA BEM PRONTO... Se o Alexandre ler (nao leve a mal) eu to precisando muito...

VE OQUE VC PRECISA.... SOBRE A QZ1000.... QUE TE MANDO... MAS OS COMANDO QUE TENHO SÃO PARA CLIPPER.... (XHARBOUR) ELA TEM DOIS MODOS UM WINDOWS E OUTROS DOS.... SAO DOIS DRIVES DIFERENTES.... OUTRA COISA... MANDE DIRETO PRO MEU EMAIL luizantoniooliveira@hotmail

sobre contrato de suporte... Qual o valor mensal ???? e por favor enviar mais informacoes....

citação: wagner nao estou encontrador o browse no mais dicas citação: favor enviar email luizantoniooliveira@hotmail.comComo faço para saber a ultima tecla precionada no get. pois na rotina abaixo tenho que precinar o enter para saber a ultima tecla... e se coloco no (on change ele nao executa a funcao. redefine get Onome var vNome id 131 of oFld:aDialogs[ 2 ] ; picture "@k!" on change ; { idxant := CLIENTE->(INDEXORD()) ,; CLIENTE->( dbsetorder( 2 ) ) ,; CLIENTE->( dbseek( oNome:ctext, .t. ) ),; CLIENTE->( dbsetorder( IDXANT ) ), oListbro2:refresh(),eval( geralrefre ) } oNome:bKeyChar:={|tecla1,tecla2| teclax(tecla1,tecla2) } id=quote>id=quote>Olá Luiz, o que realmente você quer fazer ? se é para uma pesquisa incremental no browse, eu montei uma , que se não me engano está no Dicas+Dicas, se não encontrar, me avise que lhe mando :þ) Abraços Vagner Wirts São Paulo-Brasil id=quote>id=quote>

Como faço para saber a ultima tecla precionada no get. pois na rotina abaixo tenho que precinar o enter para saber a ultima tecla... e se coloco no (on change ele nao executa a funcao. redefine get Onome var vNome id 131 of oFld:aDialogs[ 2 ] ; picture "@k!" on change ; { idxant := CLIENTE->(INDEXORD()) ,; CLIENTE->( dbsetorder( 2 ) ) ,; CLIENTE->( dbseek( oNome:ctext, .t. ) ),; CLIENTE->( dbsetorder( IDXANT ) ), oListbro2:refresh(),eval( geralrefre ) } oNome:bKeyChar:={|tecla1,tecla2| teclax(tecla1,tecla2) }

blz.. vagner.... te agradeço... e sei que voce eh o fera do five win (sabe tudo)... eu vou ver se alguem pode me dar uma ajuda.... quando a ser programador sou a muito tempo de joiner(lembra), clipper 5.3 e tenho muito sistemas desenvolvidos. soh to meio amarrado por nao ter onde pesquisar ou seja o chute inicial... mas ta indo... acho que logo estarei com um programa quase pronto... outra coisa pq quando enviei uma mensagem foi duas vezes...

blz.. vagner.... te agradeço... e sei que voce eh o fera do five win (sabe tudo)... eu vou ver se alguem pode me dar uma ajuda.... quando a ser programador sou a muito tempo de joiner(lembra), clipper 5.3 e tenho muito sistemas desenvolvidos. soh to meio amarrado por nao ter onde pesquisar ou seja o chute inicial... mas ta indo... acho que logo estarei com um programa quase pronto... outra coisa pq quando enviei uma mensagem foi duas vezes...

Estou comencando a desenvolver umas rotinas no fivewin/harbour mas tem hora que o sistema nao vai pra frente pois tenho muitas duvidas e nao tem a quem recorrer. por isso estou entrando neste forum pra ver se alguem pode me ajudar. Gostaria de saber se alguem tem interesse de ministrar um curso... nao da fivetech. pois 80.00 R$ a hora e um pouco salgado... moro no interior de sao paulo e estou disposto a viajar pra receber uma ajuda mais apropriada... ha... eu vou continar pedindo novas informacoes... blz.. atenciosamente luiz antonio de oliveira santa fe do sul - (sp)

Estou comencando a desenvolver umas rotinas no fivewin/harbour mas tem hora que o sistema nao vai pra frente pois tenho muitas duvidas e nao tem a quem recorrer. por isso estou entrando neste forum pra ver se alguem pode me ajudar. Gostaria de saber se alguem tem interesse de ministrar um curso... nao da fivetech. pois 80.00 R$ a hora e um pouco salgado... moro no interior de sao paulo e estou disposto a viajar pra receber uma ajuda mais apropriada... ha... eu vou continar pedindo novas informacoes... blz.. atenciosamente luiz antonio de oliveira santa fe do sul - (sp)